ZP=0 T*PEUq
XDEG=0.5 YDEG=0.2 VHMQY*lk
PI=3.14159 dE_"|,:
POLARIZ Y 1 0 r@qLG"[\c
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS SQn.`0HT
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 _*%K!%}l=
DISPLAY =~Qg(=U0U
PICTURE 'laser dioed' ^v'0\(H?P
RETURN g?Nk-cg
US(RWXyg
RAYS 0 =_z o
POLARIZ X j/=Tj'S?D
DECOMPOSE DIRECTION .99 20 E;x-O)(&
POLARIZ Y G9LWnyQt
DECOMPOSE DIRECTION .99 20 {FKr^)g
POLARIZ Z #$-?[c$>
DECOMPOSE DIRECTION .99 20