ZP=0 8[~~gYl
XDEG=0.5 YDEG=0.2 D
M}s0O$0
PI=3.14159 O~6Q;q P
POLARIZ Y 1 0 #X5hSw;
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS }%x}fu#
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 .gq(C9<B[
DISPLAY 5U~OP
PICTURE 'laser dioed' \yG`Sfu2
RETURN ]n5"Z,K
#
kEOKmO
RAYS 0 TP{Gt.e
POLARIZ X um[!|g/
DECOMPOSE DIRECTION .99 20 +0"x|$f~
POLARIZ Y FCiq?@
DECOMPOSE DIRECTION .99 20 ~.6|dw\p!
POLARIZ Z ^dfx~C
DECOMPOSE DIRECTION .99 20