CLOSEWINDOW
,V|>nkQ DELETEMFO ALL
dGHRHXi W=5
0y6nMI K=20
7gPkg63 sample=80
#&Biu}4D SYSP 11,W*6
18|H SYSP 12,1
N{E>R&,q apod_factor=1/POWR((1/3),2)
>JnEhVRQJ9 SYSP 13,apod_factor
I`FH^= FOR I,1,sample+1,1
V4xZC\)Gk INSERTMFO I
8=<d2u' SETOPERAND I,11,"REAY"
[j-]n#E=9y SETOPERAND I,9,1
^oPf>\),C norm_pupil_coord=I/sample
2j(w*k
q~ X=norm_pupil_coord*W*3
i7Y96] S=K*SQRT(1-EXPE(-2*2*POWR(X,2)/POWR(W,2)))
jh}[7M SETOPERAND I,8,-S
#d__ SETOPERAND I,7,norm_pupil_coord
fMhMB |W. SETOPERAND I,2,NSUR()
J]Uki*s NEXT
uVIs5IZzIi OPTIMIZE
L?0dZY-" UPDATE ALL
y%3Yr?] END
+vJ[k