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

CLOSE WINDOW [Bj\h7G
 
DELETEMFO ALL 4D6LP*  
W = 5 (W#^-*$R  
K= 20 @ ZN@EOM$+  
sample = 80 #<es>~0!  
SYSP 11, W*6   9 $^b^It  
SYSP 12, 1 NKiWt Z"  
apod_factor =1/POWER((1/3),1) ~6{U^3  
SYSP 13, apod_factor }/jWa|)f  
FOR I, 1, sample+1, 1 sVe<l mL  
INSERTMFO I =+H,}  
SETOPERAND I, 11, “REAY” >|mZu)HIY;  
SETOPERAND I, 9, 1 0iKAg  
norm_pupil_coord = I/sample 2`Ihrz6  
X= norm_ pupil_coord*W*3 gO/\Yi  
# Un-normilized pupil coordinate m@YK8c#$  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) Lc
(eY{CY  
#same as the final equation in the article CW FE{  
SETOPERAND I, 8, -S H% FP!03  
# set target. Positive input #coordinatehas negative (^58$IW71  
# output coordinate (positive lens) thusthe negative sign <&tdyAT?&  
SETOPERAND I, 7, norm_pupil_coord &,* ILz  
# Set Py column of the operand SQ<{X/5  
SETOPERAND I, 2, NSUR() 4ZkaH(a1  
# specify the image surface for the REAYvalue calculation |3>%(4 OS  
NEXT }taG/kE62  
OPTIMIZE u[nLrEnD  
UPDATE ALL # Update all windows BW ux!  
END