ZP=0 WU@,1.F:
XDEG=0.5 YDEG=0.2 hfc!M2/w
PI=3.14159 3c6)
POLARIZ Y 1 0 ?wY.B
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS WSwmX3rn
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 ![n`n(oN
DISPLAY / /rWc,c
PICTURE 'laser dioed' nuA!Jln_
RETURN o~>go_Y
b=l}|)a
RAYS 0 wfzb:Aig`
POLARIZ X ,DZLEsFM
DECOMPOSE DIRECTION .99 20 g>oLc6T
POLARIZ Y #XPU$=
DECOMPOSE DIRECTION .99 20 FeMu`|2
POLARIZ Z 5q>u
}J
DECOMPOSE DIRECTION .99 20