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

CLOSE WINDOW K+Ehj(eF  
DELETEMFO ALL 7
uxy<#Ar  
W = 5  :E'38~  
K= 20 Lsuc*Ps  
sample = 80 R-hqaEB  
SYSP 11, W*6   t</Kel|D  
SYSP 12, 1 %,>> <8  
apod_factor =1/POWER((1/3),1) CWt,c
wFW  
SYSP 13, apod_factor <[[DS%(M^  
FOR I, 1, sample+1, 1 Px'%5TKN  
INSERTMFO I
&|Z:8]'P  
SETOPERAND I, 11, “REAY” g24)GjDi  
SETOPERAND I, 9, 1 Fi(_A  
norm_pupil_coord = I/sample Uj6R?E{Jt  
X= norm_ pupil_coord*W*3 (zye Ch  
# Un-normilized pupil coordinate >iWl-hI-  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) ].2q.7Yur  
#same as the final equation in the article hGD7/qTN  
SETOPERAND I, 8, -S +<@7x16  
# set target. Positive input #coordinatehas negative K'n^, t  
# output coordinate (positive lens) thusthe negative sign :uhvDYp(-  
SETOPERAND I, 7, norm_pupil_coord wdoA>a?q  
# Set Py column of the operand QTK\"  
SETOPERAND I, 2, NSUR() <k}>eGn  
# specify the image surface for the REAYvalue calculation kw|bEL9!u  
NEXT 5K{(V^88F  
OPTIMIZE %^gT.DsX-  
UPDATE ALL # Update all windows E{Y0TZ+  
END