ZP=0 k!{0ku}]
XDEG=0.5 YDEG=0.2 E?L^L3s
PI=3.14159 [|
\Z"
POLARIZ Y 1 0 03]
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS \I!C`@0
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 v[3QI7E3
DISPLAY \0K3TMl)J
PICTURE 'laser dioed' RmR-uQU-c
RETURN m :6.
R)p+#F(s
RAYS 0 })I_@\q
POLARIZ X ,BUDo9h
DECOMPOSE DIRECTION .99 20 9-Y.8:A`
POLARIZ Y ;IN!H@bq
DECOMPOSE DIRECTION .99 20 =5a|'O
POLARIZ Z DEdJH4
DECOMPOSE DIRECTION .99 20