Laserfiche WebLink
<br />'tA3='t(1)**A3 <br />YA"=Y(!)HA4 <br />YAS=Y (I) HAS <br />ZI=ZI-WFl (I)>YAI <br />Z2=ZZ-.E~C!)>YA2 <br />n=Yl.-(!)>YA3 <br />'t'2=V2;\IIf(1)"'Y.Atl <br />nOo."(Il'YAS <br />Y4=Y4.-ElXl!).YAl <br />Y5oYS._~XClj'YA3 <br />YO=Y.."lXC!j>YAS <br />Y7oY7.-ElXI!).YA2 <br />20 YB=Y6..lXI!)>YA4 <br />TH1=(lJ~YZ-l2'Y3)/{YJ.Y2-~3*Y3) <br />lHI =ARSllHl) <br />lH2=(ZI-1Hl>Yl)/Y3 <br />TH2=A6Sl1H2) <br />AlPHAII)=AoSIAlPHAll)) <br />'lPHA(2)=AbSlAlPHA(Z)) <br />GO TO (5~,5b),KK <br />55 F=Y~iTHI*V5iTt12*Yb <br />H'E1ACI)=IHI <br />THETA(2)=Tt12 <br />k,TUHN <br />So F=Y7;THJ.Yb,TH2*Y~ <br />lHtlAlI)=THI <br />THfTAI21=TH2 <br />RETURN <br />tND <br /> <br />H##nuuuuuuUHUUUUHuuouunuuuuuuonuuunuuuuuuuunuUUUHHuonHCnUUUUDUUUUUCUUUUOP <br /> <br />33 <br />