1 REM Ins{nt av 2314
10 ; CHR$(12)"   EXPONENTIELL  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 J=J+X
150 K=K+Y
160 L=L+X^2%
170 M=M+Y^2%
180 R2=R2+X*Y
190 NEXT I
200 B=(N*R2-K*J)/(N*L-J^2%)
210 A=(K-B*J)/N
220 ; 
230 ; "A=";EXP(A)
240 ; "B=";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)*EXP(B*X)
390 ; 
400 GOTO 350
410 REM 
420 END