CLOSEWINDOW c+M@{EbuN
DELETEMFO ALL YG+Yb{^"
%_LHD|<
W=5,K=12.5, Sample=100 0<Y&2<v
zW&O>H
GETSYSTEMDATA 2 b,V=B{(~
GETSYSTEMDATA 3 V1V4 <Zj
GETSYSTEMDATA 11 6Kc7@oO~
U`4Zj1y
FOR I,1,Sample+1, 1 ;+Kewi;<
aRKG)0=
INSERTMFO I M@86u^80
SETOPERAND I,11,"REAY" 8[p6C Jl)
SETOPERAND I,9,1 ,
&f20o
I8>1RXz
norm_pupil_coord=I/Sample *iN]#)3>
X=norm_pupil_coord*15 Mj;'vm7#'
S=K*SQRT(1-EXPE(-2*POWR(X,2)/POWR(W,2)))! Gjh7cm>
SETOPERAND I,8,-S juZ3""
SETOPERAND I,7,norm_pupil_coord ]lG\t'R
SETOPERAND I,2,NSUR() AiI# "
*Bz&