ZP=0 d,^O[9UWo
XDEG=0.5 YDEG=0.2 cfIC(d
PI=3.14159 IhNX~Jg'^
POLARIZ Y 1 0 1/97_:M0~F
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS O)q4^AE$
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101
(=!At)O
DISPLAY V?Jy
PICTURE 'laser dioed' ozRO:*51
RETURN
vfkF@^D
HP8J\`
RAYS 0 On*I.~
POLARIZ X =o9s?vOJ
DECOMPOSE DIRECTION .99 20 >?@5>wF
POLARIZ Y !8G)`'
DECOMPOSE DIRECTION .99 20 uyYV_Q0~;
POLARIZ Z 5SY%B#;5G
DECOMPOSE DIRECTION .99 20