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

CLOSE WINDOW (m})V0/`  
DELETEMFO ALL s\_ ,aI  
W = 5 SxNs  
K= 20 >AV?g8B;  
sample = 80 u.R:/H<>~  
SYSP 11, W*6   3Cq17A 9  
SYSP 12, 1 UEt#;e  
apod_factor =1/POWER((1/3),1) {V,rWg  
SYSP 13, apod_factor Jt@7y"<  
FOR I, 1, sample+1, 1 zAS&L%^tV  
INSERTMFO I [p|-G*=00  
SETOPERAND I, 11, “REAY” FX 0
^I 0  
SETOPERAND I, 9, 1 OP{ d(~+  
norm_pupil_coord = I/sample sLPFeibof5  
X= norm_ pupil_coord*W*3 5YJ
LR;  
# Un-normilized pupil coordinate %.[t(F  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) $D1Pk  
#same as the final equation in the article >cQ*qXI0  
SETOPERAND I, 8, -S yD$rls:v<  
# set target. Positive input #coordinatehas negative 0O|T\E8e  
# output coordinate (positive lens) thusthe negative sign 9-
I;'  
SETOPERAND I, 7, norm_pupil_coord :^%My]>T  
# Set Py column of the operand Xb5n;=)  
SETOPERAND I, 2, NSUR() mS6L6)] S  
# specify the image surface for the REAYvalue calculation kL{2az3"c  
NEXT 0l!@bj  
OPTIMIZE %BC*h}KGH  
UPDATE ALL # Update all windows W_ngB[  
END