请问这是一段在zemax环境下写的宏程序吗？

CLOSE WINDOW KQNQ<OE4  
DELETEMFO ALL AF{uFna  
W = 5
jL\j$'KC  
K= 20 L?d?O  
sample = 80 :kR>wX  
SYSP 11, W*6   =eU=\td^  
SYSP 12, 1 8Re[]bE  
apod_factor =1/POWER((1/3),1) \+R%KA/F  
SYSP 13, apod_factor .h=n [`RB  
FOR I, 1, sample+1, 1 T(?w}i  
INSERTMFO I ]|CcQ1#|H  
SETOPERAND I, 11, “REAY” 9Q4{ cB  
SETOPERAND I, 9, 1 K'Ywv@  
norm_pupil_coord = I/sample mufGv%U2  
X= norm_ pupil_coord*W*3 A4,{ep'Z!  
# Un-normilized pupil coordinate qKfUm:7Q_  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) :6nD"5(  
#same as the final equation in the article iN Oj@3x  
SETOPERAND I, 8, -S B.r^'>jQ  
# set target. Positive input #coordinatehas negative MRt"#CO  
# output coordinate (positive lens) thusthe negative sign =m2_:&@0x  
SETOPERAND I, 7, norm_pupil_coord sWr;%<K  
# Set Py column of the operand )hrsA&1w  
SETOPERAND I, 2, NSUR() LRu,_2"  
# specify the image surface for the REAYvalue calculation YQN:&Cls  
NEXT !~vK[G(R  
OPTIMIZE i|1*bZ6'  
UPDATE ALL # Update all windows *0>`XK$mWo  
END