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

CLOSE WINDOW rX_@Ihv'  
DELETEMFO ALL +$4(zPs@  
W = 5 EA ]+vq  
K= 20 B9p?8.[  
sample = 80 ^`un'5Vk  
SYSP 11, W*6   P96pm6H_;  
SYSP 12, 1 5T sUQc  
apod_factor =1/POWER((1/3),1) 720PjQ  
SYSP 13, apod_factor C{TA.\   
FOR I, 1, sample+1, 1 J>fQNW!{  
INSERTMFO I ?X@fKAj  
SETOPERAND I, 11, “REAY” n>@oBG)!  
SETOPERAND I, 9, 1
<: &*  
norm_pupil_coord = I/sample 2,ECYie^  
X= norm_ pupil_coord*W*3 YK|bXSA[  
# Un-normilized pupil coordinate ^u3V E  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) ^N8)]F,  
#same as the final equation in the article 8XbA'% o  
SETOPERAND I, 8, -S &-(463  
# set target. Positive input #coordinatehas negative Kw#so; e  
# output coordinate (positive lens) thusthe negative sign O=u1u}CP?  
SETOPERAND I, 7, norm_pupil_coord  >S$Z  
# Set Py column of the operand U,nEbKJgk  
SETOPERAND I, 2, NSUR() ~?B;!Csk  
# specify the image surface for the REAYvalue calculation l7&$}x-  
NEXT EC
v)v  
OPTIMIZE f~}H  
UPDATE ALL # Update all windows L^Jk=8  
END