ZP=0 &I?d(Z=:\
XDEG=0.5 YDEG=0.2 |1UJKJwX
PI=3.14159 i~.9B7hdE
POLARIZ Y 1 0 ]t;bCD6*
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS T4x[
\v5d
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 O],]\M{GL
DISPLAY 9FmX^t$T
PICTURE 'laser dioed' 9P# <T7
RETURN @mu=7_$U
,{sCI/
RAYS 0 tkf^sGgNO
POLARIZ X RhI>Ak;-
DECOMPOSE DIRECTION .99 20 zzZK S
POLARIZ Y pLsJa?}R
DECOMPOSE DIRECTION .99 20 5+Hw @CY3
POLARIZ Z Cm[^+.=I
DECOMPOSE DIRECTION .99 20