Directory of image this file is from
This file as a plain text file
M8()BTC U/W-FOCAL:LSTSQR15.10.78?MB7BJZ;A :FOUT(140) "WHICH FUNCTIONS ";C = EXPONENT OF HIGHEST POWER?MCSBTA N(I=I+1);O (FTRM()- -),.3;I (FTRM()-141),.4;G .2?MC-B^A M;I (M-N(I)).7,.7;F N=N(I)+1,M;S N(I=I+1)=N?M?DLB(Z M;F N=1,I;S M=FMAX(N(N),M);C N= OF FNS+1,M=MAX ORDER?M?D1B2A "INPUT DEVICE ";I (F(9)),2.1;A "FILE NAME ";F I=1,4;S D(I)=C(I)?M?ETB<D 9;O I (D(1),D(2),D(3),D(4)):(C(1),C(2),C(3),C(4),C(5),C(6)) .5?MEWCF?ME]CPG 2.2?M?E?DJA "ENTER DATA POINTS - TERMINATE THE LAST ONE WITH A COLON"!!?M?FHDTI (M),.3;A X?MF*D^A Y;S Y(P=P+1)=Y;D 3;I (FTRM()- :),4.1;I (FTRM()-154 .2,4.1,.2?MGCFJS SY=SY+Y*Y;F I=1,M+I;S SY(I)=SY(I)+Y,Y=Y*X?M?G\FTS X(P)=X,Y=1;F I=,2*M;S SX(I)=SX(I)+Y,Y=Y*X?M?G8HJO I;F M=1,N-M;S !=N(M)+1;D 5,6,7;J .2;A !!:-1;D 8?M?G;HT?MHDH^T !!;O I,E;R?MH!JJF I=1,!;S A(I,!+1)=SY(I);F J=1,!;S A(I,J)=SX(I+J-2)?M?H5LJF =1,!;D .3;F J=1,!;I (I-J).4,,.4?MH9LTR?M?ITL^S X=A(I,I),A(I,I)=1;F K=1,!+K;S A(I,K)=A(I,K)/X?M?I2L(S X=A(J,I);Z A(J,I);F K=1,!+K;S A(J,K)=A(J,K)-A(I,K)*X?MJRNJT !!%4.03"STD. DEV. =";S Y=SY;F I=1,!;S Y=Y-SY(I)*A(I,!+1)?MJ3NTT Y=FSQT(Y/(P-!))," FOR N= ":FOU ( /+!)%3" AND"P," POINTS"!?M?KXN^F I=1,!;T !:5"C(":FOUT( /+I)")="%,A(I,!+1),%.03" +/-"Y*FSQT(A(I,I))?M?K3PJF I=1,P;T %.04,X(I),Y(I),F(.2),%.03,Y-Y(I),!;N;R?MLGPTZ Y;F J=!,-1,1;S Y=Y*X(I)+A(J,!+1)?ML$RJF I=6,-1,1;S C(I)=- ?;C READ A DEVICE OR FILE NAME?M?M RTI (255-C=FIN()),.3;I (141-C),.4;I ( :+C(I=I+1)=-C).2,,.2?MM\R^S C(I)=- ?,I=I-FSGN(I);I (C).2,,.2+FOUT(92)?MR(O (C(1)+C(2)+C(3)+C(4)+833),.1;S I;CHECK FOR TTY ?M?ML D LSTSQR;L S Note: Lines longer than 256 characters were wrapped