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

CLOSE WINDOW r/AOgS  
DELETEMFO ALL I@Hx LEGj  
W = 5 dL%*;   
K= 20 "o`?-bQ:  
sample = 80 wMR,r@}  
SYSP 11, W*6   l3F$5n  
SYSP 12, 1 K)>F03=uE  
apod_factor =1/POWER((1/3),1) :stHc,  
SYSP 13, apod_factor _`;KmD&5  
FOR I, 1, sample+1, 1 rD <T  
INSERTMFO I ,.ivdg(/  
SETOPERAND I, 11, “REAY” z;oia!9z  
SETOPERAND I, 9, 1 U&])ow):  
norm_pupil_coord = I/sample (c)/&~aE  
X= norm_ pupil_coord*W*3 D
s"
%=  
# Un-normilized pupil coordinate K1J |\!
o  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) &v((tZ  
#same as the final equation in the article WM|G/'q  
SETOPERAND I, 8, -S V':A!  
# set target. Positive input #coordinatehas negative ,}'
8. f  
# output coordinate (positive lens) thusthe negative sign o"X..m<  
SETOPERAND I, 7, norm_pupil_coord Yl&[_ l  
# Set Py column of the operand V~KWy@7  
SETOPERAND I, 2, NSUR() %<DdX*Qp  
# specify the image surface for the REAYvalue calculation #2U#h-vI  
NEXT 2! ,ndLA  
OPTIMIZE [XI:Yf  
UPDATE ALL # Update all windows yOEy3d=*  
END