CLOSEWINDOW ;5bd<N
DELETEMFO ALL A$3Rbn}"
6ki2/ Q
W=5,K=12.5, Sample=100 s91[@rh/
@2/|rq
GETSYSTEMDATA 2 1*9.K'
GETSYSTEMDATA 3 ?}Z t&(#
GETSYSTEMDATA 11 \O;2^
(_zlCHB
FOR I,1,Sample+1, 1 WN+i 3hC
N
o6!gZ1
INSERTMFO I ,< x/
SETOPERAND I,11,"REAY" <mE`<-$
SETOPERAND I,9,1 ^"X.aksA
g w([08
norm_pupil_coord=I/Sample \"oZ\_
X=norm_pupil_coord*15 Z-Qp9G'
S=K*SQRT(1-EXPE(-2*POWR(X,2)/POWR(W,2)))! [&