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

CLOSE WINDOW  t8EI"|  
DELETEMFO ALL y 2> 93m  
W = 5 r*vh3.Agl  
K= 20 c-XO}\?  
sample = 80 Xpg-rxX  
SYSP 11, W*6   ?j.a>{  
SYSP 12, 1 -(:T&rfTp  
apod_factor =1/POWER((1/3),1) Su6kpC!EW  
SYSP 13, apod_factor 04Zdg:[3-!  
FOR I, 1, sample+1, 1 scH61Y8`  
INSERTMFO I v9:J 55x  
SETOPERAND I, 11, “REAY” ;7:} iKU  
SETOPERAND I, 9, 1 AYfOETz  
norm_pupil_coord = I/sample %QEBY>|lI  
X= norm_ pupil_coord*W*3  g]?pY  
# Un-normilized pupil coordinate $`3yImv+w  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) O|8@cO
 
#same as the final equation in the article }vZf&ib-   
SETOPERAND I, 8, -S -^m?%_<50l  
# set target. Positive input #coordinatehas negative |w|c!;,  
# output coordinate (positive lens) thusthe negative sign @e3+Gs  
SETOPERAND I, 7, norm_pupil_coord 2{b
/*w  
# Set Py column of the operand ~Yk^(hl2  
SETOPERAND I, 2, NSUR() Tty'ysH  
# specify the image surface for the REAYvalue calculation q*&H  
NEXT $J4\jIipL  
OPTIMIZE 7gf(5p5ZV  
UPDATE ALL # Update all windows %akW43cE  
END