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

CLOSE WINDOW >^~^
#MT  
DELETEMFO ALL ):'wxIVGI  
W = 5 ;.uYWP|9  
K= 20 M!'d  
sample = 80 ?{qUn8f2  
SYSP 11, W*6   8In\Jo$|q>  
SYSP 12, 1 7S}0Kuk)  
apod_factor =1/POWER((1/3),1) s{@R|5  
SYSP 13, apod_factor p[JIH~nb  
FOR I, 1, sample+1, 1 E`oA(x7l  
INSERTMFO I IFTNr2I  
SETOPERAND I, 11, “REAY” \W.CHSD  
SETOPERAND I, 9, 1 d}4NL:=&  
norm_pupil_coord = I/sample (U.Go/A#wE  
X= norm_ pupil_coord*W*3 ?Z 2,?G  
# Un-normilized pupil coordinate qUd7O](b=?  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) kw$7G1Q  
#same as the final equation in the article S/XU4i:aV  
SETOPERAND I, 8, -S QEs$9a5TE  
# set target. Positive input #coordinatehas negative T
I DgIK  
# output coordinate (positive lens) thusthe negative sign oRCc8&  
SETOPERAND I, 7, norm_pupil_coord p-}X=O$  
# Set Py column of the operand i]r(VKX  
SETOPERAND I, 2, NSUR() 9m M3Ve*  
# specify the image surface for the REAYvalue calculation X%'z  
NEXT t,7%| {  
OPTIMIZE 5`.CzQVb  
UPDATE ALL # Update all windows 6Cj7 =|L7  
END