ZP=0 /0cm7[a ?
XDEG=0.5 YDEG=0.2 9B![l=Gh
PI=3.14159 7Vk9{x$z
POLARIZ Y 1 0 dWi<U4
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS )3A+Ell`
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 ^I|i9MH
DISPLAY QOgGL1)7-
PICTURE 'laser dioed' \[qxOZ{
RETURN \crh`~?>
DE7y\oO]
RAYS 0 !VaC=I^{
POLARIZ X bHcBjk.\
DECOMPOSE DIRECTION .99 20 C:t?HLY)fG
POLARIZ Y }t"K(oamm
DECOMPOSE DIRECTION .99 20 dGj0;3FI%
POLARIZ Z KgbBa2@+
DECOMPOSE DIRECTION .99 20