ZP=0 Lu6g`O:['
XDEG=0.5 YDEG=0.2 [m{sl(Q
PI=3.14159 6d/Q"As
POLARIZ Y 1 0 p%meuWV%5
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS dq.U#Rhrx
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 r@C~_LgL)
DISPLAY d/yF}%0QI
PICTURE 'laser dioed' ~Z/,o)
RETURN I ?Dp*u*
yIn$ApSGY
RAYS 0 Le?g,c
POLARIZ X #0T/^ #
DECOMPOSE DIRECTION .99 20 @:Zk,
POLARIZ Y P#!N
DECOMPOSE DIRECTION .99 20 5C1EdQ4S0
POLARIZ Z 1UJ rPM%
DECOMPOSE DIRECTION .99 20