%% aufgabe 7, numerik, bibiana, marina, thomas
function [r,rs]=horny(a,x)	%% so definiert man sich eine funktion
				%% eingabe: a: koeffizientenvektor des polynoms
				%%          x: x-koordinate, an der es berechnet
                                %%          werden soll
				%% ausgabe: r: funktionswert r(x)
				%%          rs: ableitung des polynoms.
rs=1:length(a)-1;		%% erstmal einen vektor anlegen, der um eins
				%% kleiner ist als der alte. 
r=0;				%% startwert fuer r
for i=1:1:length(a)		%% von 1 bis zum ende des koeffizientenvektors
	r=r*x+a(i);
	if (i~=length(a)) 
		rs(i)=r;
	end
end