ZP=0 O:^m#:[cE
XDEG=0.5 YDEG=0.2 jjbw+
PI=3.14159 C{"uz_Gh
POLARIZ Y 1 0 h~F`[G/'
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS 9[L@*7A`m
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 N=?! ~n9Q-
DISPLAY ,:G3 Y
)
PICTURE 'laser dioed' ]n/fB|t E
RETURN ,pc\
)HR
JsA9Xdk`
RAYS 0 vWM'}(
POLARIZ X q1d'L*
DECOMPOSE DIRECTION .99 20 \K,piCVViN
POLARIZ Y "q'9-lk
DECOMPOSE DIRECTION .99 20 vU|.Gw
POLARIZ Z e.Y*=P}D
DECOMPOSE DIRECTION .99 20