%Sensorik
%Vergessenskurve
%Rainer Koller
%07.04.2002

%Aufgabe Seite 3.29 Kp.3 TSU

%Polynom Grad
polynom_grad = 4;

%Eingabe der 3 Vektoren
Zeit = [0 1 4 7 10 14 17 21 24 28 35 42 46 50];
Wissen_ohne_Rep = [100 55 45 34 25 20 17 15 16 19 18 17 16 16];
Wissen_mit_Rep = [100 97 89 82 80 78 77 76 75 74 72 70 69 68];

%Vektor mit gleichmässigen Abständen für Zeit Funktion
Zeit_linear = linspace (0,50,100);

%Kurven fit für Linearisierung mit "polyfit"-Funktion
polyfit_ohne_Rep = polyfit(Zeit, Wissen_ohne_Rep, polynom_grad);
polyfit_mit_Rep =  polyfit(Zeit, Wissen_mit_Rep, polynom_grad);

%Berechnen der Geradenwerte mit der "polyval"-Funktion
Geradenw_mit_Rep = polyval(polyfit_mit_Rep, Zeit_linear);
Geradenw_ohne_Rep = polyval(polyfit_ohne_Rep, Zeit_linear); 

%Plot der Kurven
plot(Zeit,Wissen_ohne_Rep,'m');
hold on;
plot(Zeit,Wissen_mit_Rep,'g');
hold on;
plot(Zeit_linear,Geradenw_mit_Rep);
hold on;
plot(Zeit_linear,Geradenw_ohne_Rep);
xlabel('Zeit in Tagen');
ylabel('Wissen in %');
title('Sensorik - Linearisierung mit Polynom');