Directory of image this file is from
This file as a plain text file

C-PS/8 FOCAL, 1971
 1.01 A !!"-1)EXPONENTIAL  0)POWER  1)LINEAR"!,A
 1.02 A !"HOW MANY X VALUES
"!,P
 1.03 T !"X VALUES
"!;F I=1,P;A X(I)
 1.04 T !"Y VALUES
"!;F I=1,P;A Y(I)
 1.05 I (P/2-FITR(P/2))1.06,1.07,1.06
 1.06 S M=(P-1)/2;S N=P;G 1.08
 1.07 S M=P/2;S N=P
 1.08 I (A)1.09,1.11,1.13
 1.10 D 3; D 9; T !"Y ",FEXP(AN(2)),"*(E^",AN(1),"X ";G 1.01
 1.11 F I=1,P;S X(I)=FLOG(X(I)); S Y(I)=FLOG(Y(I))
 1.12 D 3 ;D 9;T !"Y ",FEXP(AN(2)),"X^ ",AN(1);G 1.01
 1.13 D 3;D 9;T !"Y  ",AN(1),"X+ ",AN(2);G 1.01
 3.01 S X1(1)=0;S X1(3)=0;S X1(2)=M;F I=1,M;D 3.10
 3.02 G 3.45
 3.10 S X1(1)=X1(1)+X(I);S X1(3)=X1(3)+Y(I)
 3.45 S Y1(1)=0;S Y1(3)=0;S Y1(2)=P-M;F I=M+1,N;D 3.56
 3.48 RETURN
 3.56 S Y1(1)=Y1(1)+X(I);S Y1(3)=Y1(3)+Y(I)
 9.01 D 14;S AN(1)=U;S AN(2)=V;R
14.02 S U=X1(3)*Y1(2)-X1(2)*Y1(3);S U=U/W
14.03 W=X1(1)*Y1(2)-X1(2)*Y1(1)
14.05 V=X1(1)*Y1(3)-X1(3)*Y1(1);S V=V/W