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

CLOSE WINDOW {-Y_8@&  
DELETEMFO ALL ZM#WdP  
W = 5 T),:8/  
K= 20 !GIsmqVY  
sample = 80 @zJI0_Bp  
SYSP 11, W*6   H~ZSw7!M8  
SYSP 12, 1 sRZ:9de+  
apod_factor =1/POWER((1/3),1) 42wcpSp  
SYSP 13, apod_factor nUd\4;J#  
FOR I, 1, sample+1, 1 tl)}Be+Dt;  
INSERTMFO I 87^ 4",  
SETOPERAND I, 11, “REAY” fjWh}w8  
SETOPERAND I, 9, 1 ,oG"wgf  
norm_pupil_coord = I/sample + kF[Oh#  
X= norm_ pupil_coord*W*3 GBphab|  
# Un-normilized pupil coordinate Z>,X$Y6<  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) z;/'OJ[.  
#same as the final equation in the article N
ZTYT\7  
SETOPERAND I, 8, -S Yjl0Pz.q  
# set target. Positive input #coordinatehas negative v)d0MxSC  
# output coordinate (positive lens) thusthe negative sign !X8UP{J)L  
SETOPERAND I, 7, norm_pupil_coord /J+)P<_A  
# Set Py column of the operand %f-<ol  
SETOPERAND I, 2, NSUR() =a!6EkX *  
# specify the image surface for the REAYvalue calculation s =5H.q%PV  
NEXT ) ,hj7  
OPTIMIZE $McO'Bye{h  
UPDATE ALL # Update all windows - X_w&  
END