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

CLOSE WINDOW okH*2F(-  
DELETEMFO ALL !rff/0/x"  
W = 5 yE|hA2G?0  
K= 20 "X\6tl7a|  
sample = 80 g])iU9)8  
SYSP 11, W*6   r?HbApV P  
SYSP 12, 1 sZ#U{LI  
apod_factor =1/POWER((1/3),1) =}2k+v-B  
SYSP 13, apod_factor _c,{}sn  
FOR I, 1, sample+1, 1 F87c?Vh)K  
INSERTMFO I PBgU/zVn  
SETOPERAND I, 11, “REAY” I[bWd{i:  
SETOPERAND I, 9, 1 ;8yEhar  
norm_pupil_coord = I/sample j{Sbf04  
X= norm_ pupil_coord*W*3 wS+j^ ;"  
# Un-normilized pupil coordinate cN~F32<  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) 9z7rv,  
#same as the final equation in the article ~r&+18Z;  
SETOPERAND I, 8, -S YFeL#)5y  
# set target. Positive input #coordinatehas negative LQJC]*b1  
# output coordinate (positive lens) thusthe negative sign =*KY)X  
SETOPERAND I, 7, norm_pupil_coord UL`%Xx  
# Set Py column of the operand 9]QHwa>_|2  
SETOPERAND I, 2, NSUR() &+ UnPE(  
# specify the image surface for the REAYvalue calculation _xr@dK<   
NEXT d?)Ic1][  
OPTIMIZE ,Gy2$mglB  
UPDATE ALL # Update all windows (BIg  
END