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

CLOSE WINDOW "t<${  
DELETEMFO ALL wW3fsXu  
W = 5 c2}?[\U]  
K= 20 C043h?x  
sample = 80 z$3 
3NM  
SYSP 11, W*6   ;79X
#hI  
SYSP 12, 1 4:\s.Z{!3  
apod_factor =1/POWER((1/3),1) tylMJ$ 9*.  
SYSP 13, apod_factor tHS
e>*eC  
FOR I, 1, sample+1, 1 +Y!9)~f}7X  
INSERTMFO I \*}JdEHB  
SETOPERAND I, 11, “REAY” v;S7i>\  
SETOPERAND I, 9, 1 >EFjyhVE  
norm_pupil_coord = I/sample ~jab/cR  
X= norm_ pupil_coord*W*3 <RmI)g>'_^  
# Un-normilized pupil coordinate |x|#n  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) vUGEzCM  
#same as the final equation in the article $oO9N^6yF  
SETOPERAND I, 8, -S DLYk#d: q?  
# set target. Positive input #coordinatehas negative ]8(_{@/  
# output coordinate (positive lens) thusthe negative sign A KO#$OJE  
SETOPERAND I, 7, norm_pupil_coord
PaF`dnJ  
# Set Py column of the operand N|c;Qzl
 
SETOPERAND I, 2, NSUR() @[0zZX2EE  
# specify the image surface for the REAYvalue calculation @ 8yV15!
 
NEXT }2Y:#{m  
OPTIMIZE +#gJ[Cc  
UPDATE ALL # Update all windows 4K82%P9a  
END