ZP=0 {
JDD"z
XDEG=0.5 YDEG=0.2 i<tJG{A=
PI=3.14159 HmU6:8V
*Z
POLARIZ Y 1 0 y
|
I9"R
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS 8s[1-l
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 v*As:;D_
DISPLAY ~>0H
k}Hv
PICTURE 'laser dioed' ){eQ.yW
RETURN BOy&3.h5?
i!RYrae
RAYS 0 }o[<1+W(.
POLARIZ X b<"jmB{
DECOMPOSE DIRECTION .99 20 0fUsERr1*
POLARIZ Y K@Q%NK,
DECOMPOSE DIRECTION .99 20 cQBc6eAi
POLARIZ Z 5.yiNWh
DECOMPOSE DIRECTION .99 20