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

CLOSE WINDOW =#?=Lh  
DELETEMFO ALL IOH6h=  
W = 5 SKSI\]Cc  
K= 20 $w! v  
sample = 80 ,@@FAL  
SYSP 11, W*6   jbu+>  
SYSP 12, 1 $"{I|UFC  
apod_factor =1/POWER((1/3),1) v,)vW5jGI  
SYSP 13, apod_factor T:w%RF[v9  
FOR I, 1, sample+1, 1 e:iqv?2t  
INSERTMFO I lT F#efcW  
SETOPERAND I, 11, “REAY” t",b.vki\z  
SETOPERAND I, 9, 1 R-BN}ZS  
norm_pupil_coord = I/sample $7&t`E)qY  
X= norm_ pupil_coord*W*3 Vs&Ul6@N  
# Un-normilized pupil coordinate (L7%V !  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) 7V;wCm#b  
#same as the final equation in the article d>`s+B9K0  
SETOPERAND I, 8, -S @D=i|f  
# set target. Positive input #coordinatehas negative <Lfo5:.  
# output coordinate (positive lens) thusthe negative sign K55]W2I9  
SETOPERAND I, 7, norm_pupil_coord C +S>;1  
# Set Py column of the operand :.F;LF&  
SETOPERAND I, 2, NSUR() jRSY`MU}t+  
# specify the image surface for the REAYvalue calculation |&0Cuwt  
NEXT 2@$`xPg   
OPTIMIZE  u~j&g  
UPDATE ALL # Update all windows Ve|=<7%%S  
END