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

CLOSE WINDOW ~>
ACMO  
DELETEMFO ALL i5*sG^<$H  
W = 5 xFS`#1  
K= 20 z6R<*$4  
sample = 80 QSy=JC9  
SYSP 11, W*6   }o?@  
SYSP 12, 1 ^r$P&}Z\b  
apod_factor =1/POWER((1/3),1) =2{^qvP  
SYSP 13, apod_factor m`-{ V<(M  
FOR I, 1, sample+1, 1 TP oP%Yj"  
INSERTMFO I hun/H4f|  
SETOPERAND I, 11, “REAY” Y]nY.5irL  
SETOPERAND I, 9, 1 BaTE59W  
norm_pupil_coord = I/sample *B`wQhB%  
X= norm_ pupil_coord*W*3 e ?H`p"l  
# Un-normilized pupil coordinate V4Ql6vg_f  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) x5 3aGi|  
#same as the final equation in the article ueYZM<],  
SETOPERAND I, 8, -S Xi1/wbC  
# set target. Positive input #coordinatehas negative }dE0WJcO  
# output coordinate (positive lens) thusthe negative sign `hL16S  
SETOPERAND I, 7, norm_pupil_coord -pc*$oe  
# Set Py column of the operand 0AFjO)  
SETOPERAND I, 2, NSUR() p}}o#a~V),  
# specify the image surface for the REAYvalue calculation rRL:]%POT  
NEXT &B7X LO[  
OPTIMIZE cyG3le& +G  
UPDATE ALL # Update all windows 4jj@"*^a  
END