ZP=0 ?HOnDw.v1
XDEG=0.5 YDEG=0.2 !"/"Mqs3$
PI=3.14159 [giw(4m#y
POLARIZ Y 1 0 4_2oDcdf
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS Wn=I[K&&
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 Z= -fL
DISPLAY Omn$O>
PICTURE 'laser dioed' ~#so4<A`3
RETURN .i?{h/9y
-f:PgBj
RAYS 0 h7.jWJTo
POLARIZ X /_expSPHl
DECOMPOSE DIRECTION .99 20 ]C+PJ:CC
POLARIZ Y t]vv&vk>
DECOMPOSE DIRECTION .99 20 }9B},
POLARIZ Z IcqzMmb
DECOMPOSE DIRECTION .99 20