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

CLOSE WINDOW S#Tu/2<}  
DELETEMFO ALL }
#&L  
W = 5 q(v|@l|)yO  
K= 20 (U\D7ItMG  
sample = 80 /L./-92NH4  
SYSP 11, W*6   ^UFNds'q  
SYSP 12, 1 .9UrWBW\I  
apod_factor =1/POWER((1/3),1) g
u&W:FY  
SYSP 13, apod_factor >'jkL5l  
FOR I, 1, sample+1, 1 e{^^u$C1.e  
INSERTMFO I  pQ7<\8s*  
SETOPERAND I, 11, “REAY” Nv3u)?A3w  
SETOPERAND I, 9, 1 n$E$@  
norm_pupil_coord = I/sample KDj/
S-S  
X= norm_ pupil_coord*W*3 J7t) H_S{  
# Un-normilized pupil coordinate K#VGG,h7Y  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) o'8%5M@  
#same as the final equation in the article 7G0;_f{  
SETOPERAND I, 8, -S zjzEmX  
# set target. Positive input #coordinatehas negative j3u!lZ}U  
# output coordinate (positive lens) thusthe negative sign b*4aUpW  
SETOPERAND I, 7, norm_pupil_coord xc7Rrh]}  
# Set Py column of the operand &-m}w:j=  
SETOPERAND I, 2, NSUR() T&}KUX~Q/  
# specify the image surface for the REAYvalue calculation XV,ce~ro[  
NEXT q d:"LS  
OPTIMIZE )19#g1rn5  
UPDATE ALL # Update all windows X1BqN+=@9  
END