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

CLOSE WINDOW RR{]^g51  
DELETEMFO ALL ipjl[  
W = 5 [esjR`u  
K= 20 3Fo,F  
sample = 80 H&[CSc  
SYSP 11, W*6   eg~$WB;1  
SYSP 12, 1 zv <,  
apod_factor =1/POWER((1/3),1) .=3Sm%  
SYSP 13, apod_factor ]?#f=/  
FOR I, 1, sample+1, 1 =R:3J"ly0  
INSERTMFO I Ayc}uuu  
SETOPERAND I, 11, “REAY” `O.*qs5  
SETOPERAND I, 9, 1 }di)4=U9  
norm_pupil_coord = I/sample ,@
R~y  
X= norm_ pupil_coord*W*3 3*CF!Y%  
# Un-normilized pupil coordinate D`3}j   
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) l@q.4hT  
#same as the final equation in the article ~PHAC@pU  
SETOPERAND I, 8, -S #?}k0Y  
# set target. Positive input #coordinatehas negative ']u w,b  
# output coordinate (positive lens) thusthe negative sign `XP]y=  
SETOPERAND I, 7, norm_pupil_coord %g5weiFM  
# Set Py column of the operand \|@]XNSN  
SETOPERAND I, 2, NSUR() ^>.?kh9z  
# specify the image surface for the REAYvalue calculation szF[LRb  
NEXT @Q!f^  
OPTIMIZE $
ENA$  
UPDATE ALL # Update all windows llhJ,wD  
END