DataMuseum.dk

top - download

    Length: 896 (0x380)
    Types: TextFile
    Names: »SLIN.BAS«

└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games
    └─ ⟦this⟧ »SLIN.BAS« 

TextFile

1  REM PROGRAM SLIN.BAS
10 PRINT 
20 PRINT "THIS PROGRAM PERFORMS A LEAST SQUARES FIT ON N PAIRS"
30 PRINT "OF DATA POINTS (X,Y) ASSUMING THEM TO LIE ON A"
40 PRINT "STRAIGHT LINE  Y = M*X + C"
50 PRINT 
60 PRINT 
70 PRINT 
80 X1=0 : X3=0 : Y1=0 : Y3=0
90 PRINT "INPUT NUMBER OF DATA PAIRS N ";
100 INPUT N
110 PRINT 
120 PRINT "INPUT (X,Y) DATA IN PAIRS "
130 FOR J=1 TO N
140 INPUT X,Y
150 LET X1=X1+X
160 LET Y1=Y1+Y
170 LET X3=X3+X*X
180 LET Y3=Y3+X*Y
190 NEXT J
200 LET M=((1/X3)*(Y3-(X1*Y1)/N))/(1-(X1*X1)/(N*X3))
210 LET C=(Y1-M*X1)/N
220 PRINT 
230 PRINT " SLOPE (M) = ";M
240 PRINT " INTERCEPT ON Y AXIS (C) = ";C
250 PRINT 
260 PRINT "DO YOU WISH TO ANALYSE ANOTHER SET OF DATA?"
270 PRINT "INPUT YES OR NO ";
280 INPUT A$
290 IF A$="YES" THEN 70
300 END
«eof»