Lineare Regression - Listing

Dokumentation ansehen
Programmspeicher-Image laden

10	"L" CLS :CLEAR :WAIT 0
20	INPUT "Anzahl Punkte: ";N
30	FOR I=1 TO N
40	CURSOR 0,2:PRINT "X";STR$ I;" =
50	CURSOR 0,3:PRINT "Y";STR$ I;" =
60	CURSOR 6,2:INPUT X
70	CURSOR 6,3:INPUT Y
80	R=R+X:S=S+Y
90	P=P+X*X:Q=Q+Y*Y:O=O+X*Y
100	NEXT I:CLS
110	L=R/N:M=S/N
120	V=SQR (P/N-L*L):W=SQR (Q/N-M*M)
130	X=P-L*L*N:Y=Q-M*M*N
140	G=O-R*S/N
150	B=G/X:A=M-B*L:K=G/SQR (X*Y)
160	PRINT "y=a+b*x , Korr.koeff. k
170	PRINT "a = ";A:PRINT "b = ";B:WAIT :USING "##.###":PRINT "k =";MDF K:USING :WAIT 0:CLS
180	PRINT "Mittelwerte :":PRINT "Xm = ";L:WAIT :PRINT "Ym = ";M:WAIT 0:CLS
190	PRINT "Varianzen :":PRINT "Sx = ";V:PRINT "Sy = ";W
200	END

Dokumentation ansehen
Programmspeicher-Image laden