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

CLOSE WINDOW }EW@/; kC  
DELETEMFO ALL mp\`9j+{  
W = 5 Y?^1=9?6  
K= 20 Gz>M`M`[
4  
sample = 80 }`SXUM_sD`  
SYSP 11, W*6   SvE|"  
SYSP 12, 1 E@f2hW2  
apod_factor =1/POWER((1/3),1) _;M46o%h  
SYSP 13, apod_factor H/eyc`  
FOR I, 1, sample+1, 1 5T,In+~Kd  
INSERTMFO I w(y#{!%+  
SETOPERAND I, 11, “REAY” e2onR~Cf  
SETOPERAND I, 9, 1 S!/N lSr<  
norm_pupil_coord = I/sample 77:s=)   
X= norm_ pupil_coord*W*3 @aA1=9-L  
# Un-normilized pupil coordinate SiM1Go}#  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) Tt0:rQ.  
#same as the final equation in the article
C
US^j  
SETOPERAND I, 8, -S
F%}0q&
 
# set target. Positive input #coordinatehas negative 6]#\|lds1  
# output coordinate (positive lens) thusthe negative sign \[-z4Fxg|'  
SETOPERAND I, 7, norm_pupil_coord G?y'<+Awt  
# Set Py column of the operand /pa8>_,~  
SETOPERAND I, 2, NSUR() Rj/9\F3H  
# specify the image surface for the REAYvalue calculation %o~w  
NEXT m^
8KHa  
OPTIMIZE w84 ]s%y  
UPDATE ALL # Update all windows 6Wos6_  
END