1 REM Ins{nt av 2314
10 ; CHR$(12)"   GEOMETRISK REGRESSION"
20 ; 
30 ; "ANTALET K[NDA PUNKTER";
40 INPUT N
50 J=0
60 K=0
70 L=0
80 M=0
90 R2=0
100 FOR I=1 TO N
110 ; "X,Y I PUNKT";I;
120 INPUT X,Y
130 Y=LOG(Y)
140 X=LOG(X)
150 J=J+X
160 K=K+Y
170 L=L+X^2%
180 M=M+Y^2%
190 R2=R2+X*Y
200 NEXT I
210 B=(N*R2-K*J)/(N*L-J^2%)
220 A=(K-B*J)/N
230 ; 
240 ; "F(X)=";EXP(A);"*X^";B
250 J=B*(R2-J*K/N)
260 M=M-K^2%/N
270 K=M-J
280 ; 
290 R2=J/M
300 ; "R2=";R2
310 ; "RXY=";SQR(R2)
320 ; "FELET=";SQR(ABS(K/(N-2)))
330 ; 
340 ; "INTERPOLATION 0=SLUTA"
350 ; "X=";
360 INPUT X
370 IF X=0 THEN 410
380 ; "Y=";EXP(A)*X^B
390 ; 
400 GOTO 350
410 REM 
420 END