# Lineare Regression

## Problembeschreibung

******************************************
Dokumentnummer: D1503
******************************************
Ein Programm für die lineare Regression ist
zu erstellen.

## Problemlösung

EINGABE

x:read("x-Werte eingeben in []");

y:read("y-Werte eingeben in []");

VERARBEITUNG

n:length(y);

sx:sum(x[i],i,1,n);
sy:sum(y[i],i,1,n);
sx2:sum(x[i]^2,i,1,n);
sxy:sum(x[i]*y[i],i,1,n);

g1:a*sx2+b*sx = sxy;
g2:a*sx+b*n = sy;

globalsolve:true;
solve([g1,g2],[a,b]);
fpprec:8;
y:a*x+b;

EINGABE

print("a =",a, "b =",b,"errechnete Werte =",y),numer$