ZP=0 R{fJ"Q5'
XDEG=0.5 YDEG=0.2 FJDE48Vi
PI=3.14159 <|3%}?
POLARIZ Y 1 0 \"1>NJn&k)
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS <n4` #d
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 x ZP*%yM
DISPLAY W&=OtN
U!
PICTURE 'laser dioed' D8<C7
RETURN 3*&
Y'/!
o//h|f U@
RAYS 0 >v %js!`f
POLARIZ X *X(:vET
DECOMPOSE DIRECTION .99 20 D3yTN"
POLARIZ Y =KUmvV*\
DECOMPOSE DIRECTION .99 20 At"$Cu!k
POLARIZ Z 8[KKi ~A
DECOMPOSE DIRECTION .99 20