File: LIN.FT of Disk: Disks/MyPDP/m8-backup-rka1-rkb1
(Source file text)
C TESTPROGRAMM DIMENSION C(100) DIMENSION TC(100) DO 10 I=1,100 TC(I)=0. 10 C(I)=0. DO 20 I=1,10 R=FLOAT(I) C(I)=4.*R+.1*R*R*R TC(I)=R 20 CONTINUE CALL LINREG(TC,C) STOP END