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

CLOSE WINDOW C1uV7t*\  
DELETEMFO ALL Mn 8| Knh  
W = 5 ]*X z~Ox2  
K= 20 *^iSP(dg
 
sample = 80 "H9q%S,FH  
SYSP 11, W*6   tmQ,>  
SYSP 12, 1 !y862oKD  
apod_factor =1/POWER((1/3),1) 7ju^
B/7  
SYSP 13, apod_factor DH"_.j  
FOR I, 1, sample+1, 1 ~Zw37C9J  
INSERTMFO I "[sr0'g:  
SETOPERAND I, 11, “REAY” dtBr#Te  
SETOPERAND I, 9, 1 XaaR>HljJ  
norm_pupil_coord = I/sample .7+"KP:  
X= norm_ pupil_coord*W*3 09=w  
# Un-normilized pupil coordinate w^ X@PpP  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) ^SbxClUfw!  
#same as the final equation in the article ;3iWV"&_A  
SETOPERAND I, 8, -S 4WPco"xH!  
# set target. Positive input #coordinatehas negative P=a&
>i  
# output coordinate (positive lens) thusthe negative sign ^[6#Kw&E  
SETOPERAND I, 7, norm_pupil_coord iM$iZ;Tp
 
# Set Py column of the operand 4YXp,U  
SETOPERAND I, 2, NSUR() 4m%Yc
k{R  
# specify the image surface for the REAYvalue calculation xiVbVr#[  
NEXT KvjH\;
78  
OPTIMIZE %r@:7/  
UPDATE ALL # Update all windows <.ZD.u  
END