function T8A6_Ute

% Zeigt nacheinander (auf Tastendruck) verschiedene Näherungskurven an.
% Benutzt quadfehler (T8A2_Ute)

load reizT8
load ratenT8
load allereizeT8
load alleratenT8

% alleratenT8 in Matrix umformen

alleratenmat=zeros(15,10);
j=1;
for i=1:15
    alleratenmat(i,:)=alleratenT8(j:10*i);
    j=j+10;
end

% Daten plotten

figure
plot(allereizeT8,alleratenT8,'o')  % Messwerte
xlabel('Stromstärke [nA]')
ylabel('Aktionspotenziale pro Sekunde [Sp/s]')
axis([-5 7.5 -100 300])
hold on

x=-5:0.5:7.5;
[p,s]=polyfit(reizT8,ratenT8,1);
y=polyval(p,x,s);
plot(x,y,'g')                % Gerade aus A5
legend('Messwerte','Gerade aus A5')
pause

% Neue Gerade mit polyfit

[p,s]=polyfit(allereizeT8,alleratenT8,1);
y=polyval(p,x,s);
plot(x,y,'c')
legend('Messwerte','Gerade aus A5','neue Gerade aus allen Daten')

    % Fehler
    schaetz=polyval(p,allereizeT8,2);
    f=T8A2_Ute(alleratenmat,(schaetz(1:10:141))');
    text(-4.4,230,['Der Fehler beträgt ' num2str(f) '.'],'Color','c')

pause

% Näherungskurve 2. Grades

[p,s]=polyfit(allereizeT8,alleratenT8,2);
y=polyval(p,x,s);
plot(x,y,'m')
legend('Messwerte','Gerade aus A5','neue Gerade aus allen Daten','Näherung 2. Grades')

    % Fehler
    schaetz=polyval(p,allereizeT8,2);
    f=T8A2_Ute(alleratenmat,(schaetz(1:10:141))');
    text(-4.4,210,['Der Fehler beträgt ' num2str(f) '.'],'Color','m')

pause

% Näherungskurve 3. Grades

[p,s]=polyfit(allereizeT8,alleratenT8,3);
y=polyval(p,x,s);
plot(x,y,'r')
legend('Messwerte','Gerade aus A5','neue Gerade aus allen Daten','Näherung 2. Grades','Näherung 3. Grades')

    % Fehler
    schaetz=polyval(p,allereizeT8,3);
    f=T8A2_Ute(alleratenmat,(schaetz(1:10:141))');
    text(-4.4,190,['Der Fehler beträgt ' num2str(f) '.'],'Color','r')

    pause

% Näherungskurve 4. Grades

[p,s]=polyfit(allereizeT8,alleratenT8,3);
y=polyval(p,x,s);
plot(x,y,'k')
legend('Messwerte','Gerade aus A5','neue Gerade aus allen Daten','Näherung 2. Grades','Näherung 3. Grades','Näherung 4. Grades')

    % Fehler
    schaetz=polyval(p,allereizeT8,4);
    f=T8A2_Ute(alleratenmat,(schaetz(1:10:141))');
    text(-4.4,170,['Der Fehler beträgt ' num2str(f) '.'],'Color','k')

pause

close