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

CLOSE WINDOW ,\4@Ao  
DELETEMFO ALL Z<K[  
W = 5 zm\=4^X  
K= 20 eI; %/6#  
sample = 80 >Be PE(k  
SYSP 11, W*6   =:v\}/  
SYSP 12, 1 S*?'y  
apod_factor =1/POWER((1/3),1) ,d<wEB?\`  
SYSP 13, apod_factor $jo}?Y+  
FOR I, 1, sample+1, 1 KWCA9.w4q  
INSERTMFO I ;2@MPx  
SETOPERAND I, 11, “REAY” u2y?WcMv  
SETOPERAND I, 9, 1  .VuZ=  
norm_pupil_coord = I/sample KQaw*T[Q3w  
X= norm_ pupil_coord*W*3 q0jzng  
# Un-normilized pupil coordinate 2sjV*\Udf  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) :)t1>y>3  
#same as the final equation in the article j\f;zb?F  
SETOPERAND I, 8, -S A5z`_b4f  
# set target. Positive input #coordinatehas negative 724E(?>J  
# output coordinate (positive lens) thusthe negative sign prb;q~  
SETOPERAND I, 7, norm_pupil_coord -lRXH7|X  
# Set Py column of the operand Sb>;k(;`:  
SETOPERAND I, 2, NSUR() R0_%M  
# specify the image surface for the REAYvalue calculation ]zmY]5  
NEXT ko@I]
gi2  
OPTIMIZE -OZXl  
UPDATE ALL # Update all windows rr'RX  
END