HF2000 parameters ?

HF2000()
! Sets up microscope parameters for HF2000 (?)
type 'Setting approximate CTF parameters for HF2000 with phys also set'
phy=yes
kv = 200
cs = 1.2
local $a,$b
$a=kv*1e3 $b=cs*1e6 lam=$a*1.60206e-4/9.1083/2.99793^2
lam=6.62517/root(2*1.60206*9.1083*$a*(1+lam/2))
sch=root($b*lam) gl=$b^.25*lam^.75
Type 'Sch=',sch,'nm   Gl=',gl,'nm   Gl/Sch=',gl/sch*1e3,'mrad'
step=0.05
type 'Real Space pixel size 0.5 Angstroms '
def=sch ; type 'Defocus set at ', sch, ' nm'
swidth = 0.5 ; ewidth = 4
Type 'Rms beam convergence/mrad ', swidth
type 'Rms focus spread/nm ', ewidth
end