ZP=0 `J0i.0p
XDEG=0.5 YDEG=0.2 23!;}zHp
PI=3.14159 V 9wI\0
POLARIZ Y 1 0 %+)o'nf"U
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS uC3:7
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 L!Cz'm"Nl
DISPLAY ^].jH+7i*
PICTURE 'laser dioed' ?, r~=
RETURN 8.J(r(;>
8~lIe:F-
RAYS 0 }x0- V8
POLARIZ X =sJ
_yq0#R
DECOMPOSE DIRECTION .99 20 x%+{VStA
POLARIZ Y epHJ@ W@#
DECOMPOSE DIRECTION .99 20 j@gMbiu
POLARIZ Z %xZG*2vc!B
DECOMPOSE DIRECTION .99 20