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

CLOSE WINDOW [q+e]kD  
DELETEMFO ALL #+Yp^6zg  
W = 5 "i{_<;p O  
K= 20 H(G^O&ppdB  
sample = 80 n &\'Hm  
SYSP 11, W*6   E?gu(\an@  
SYSP 12, 1 l^UJ
es!  
apod_factor =1/POWER((1/3),1) <r+!hJ[s'  
SYSP 13, apod_factor Q^MXiEO+  
FOR I, 1, sample+1, 1 $,e?X}4  
INSERTMFO I QTjftcu  
SETOPERAND I, 11, “REAY” <A -(&+  
SETOPERAND I, 9, 1 <K#'3&*$s  
norm_pupil_coord = I/sample ZkB6bji  
X= norm_ pupil_coord*W*3 Q f+p0E;  
# Un-normilized pupil coordinate 3q|cZQK!1  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) cR=94i=t  
#same as the final equation in the article 4%!{?[$  
SETOPERAND I, 8, -S ,v}?{pc  
# set target. Positive input #coordinatehas negative Y7kb1UG  
# output coordinate (positive lens) thusthe negative sign !&a;P,_Fb  
SETOPERAND I, 7, norm_pupil_coord \n*7#aX/  
# Set Py column of the operand 7moElh v  
SETOPERAND I, 2, NSUR() ^?s~Fk_V  
# specify the image surface for the REAYvalue calculation ^#BGA|j  
NEXT Z`oaaO
 
OPTIMIZE &8Jg9#  
UPDATE ALL # Update all windows /K,|k EE'n  
END