function T8_A5markus(reizT8,ratenT8)
%% a)
x=reizT8;
y=ratenT8;
plot(x,y,'*')

hold on
%% b) Lineare Naeherung mit plot
[p,S]=polyfit(x,y,1);
[y_schaetz,delta] = polyval(p,x,S);
errorbar(x,y_schaetz,delta)
hold off

%% c) Antworten auf 5nA und -2nA
g=5;
y=p(1)*g+p(2);
sprintf('Moegliche Anwort auf einen Reiz von 5nA: %g',y)

h=-2;
y2=p(1)*h+p(2);
sprintf('Moegliche Anwort auf einen Reiz von -snA: %g',y2)