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

CLOSE WINDOW a
 M9v  
DELETEMFO ALL 4^uSW&`;/  
W = 5 yfK}1mx)j  
K= 20 X8VBs#tLE  
sample = 80 Gsv<Rjj:  
SYSP 11, W*6  
I%u 2 ce  
SYSP 12, 1 T[ZmD{6l  
apod_factor =1/POWER((1/3),1) .6P.r}  
SYSP 13, apod_factor xRe`Duy:  
FOR I, 1, sample+1, 1 n74\{`8]o  
INSERTMFO I Ux7LN@4og  
SETOPERAND I, 11, “REAY” nm@
h5ON_  
SETOPERAND I, 9, 1 [a04
( 2g  
norm_pupil_coord = I/sample GuO}CQs^W  
X= norm_ pupil_coord*W*3 r5DRF4,7  
# Un-normilized pupil coordinate LP6p  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) H0;Iv#S!  
#same as the final equation in the article EW|$qLg  
SETOPERAND I, 8, -S HwHF8#D*l  
# set target. Positive input #coordinatehas negative _;BwP  
# output coordinate (positive lens) thusthe negative sign K f/[Edn  
SETOPERAND I, 7, norm_pupil_coord lFGuQLuqA{  
# Set Py column of the operand !\X9$4po@  
SETOPERAND I, 2, NSUR() X>8,C^~$1  
# specify the image surface for the REAYvalue calculation B:Ts_9*  
NEXT )GkJ%o#H2  
OPTIMIZE zMR)w77  
UPDATE ALL # Update all windows zbmC?2$  
END