ZP=0 [Te"|K ':
XDEG=0.5 YDEG=0.2 .jv#<"DW
PI=3.14159 O$(#gB'B
POLARIZ Y 1 0 K9tr Iy$v
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS WzqYBa
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 (&!x2M
DISPLAY <i ";5+
PICTURE 'laser dioed' j2`%sBo
RETURN 5_[we1$P
3y}8|ML
RAYS 0 >* h3u7t
POLARIZ X r
E&}B5PN=
DECOMPOSE DIRECTION .99 20 j58'P 5N
POLARIZ Y -+z8bZ
DECOMPOSE DIRECTION .99 20 7U2?in}?Qi
POLARIZ Z nU,~*Us
DECOMPOSE DIRECTION .99 20