%serie 2 aufgabe 4
%sekanten(startwert2,startwert2)

function erg = sekanten(al,ar)

aw = sekantenfunktion(ar);
awvor = aw + 1;


while abs(aw-awvor) > 10^-6
 awvor = aw;
 aw = sekantenfunktion(al);
 ha = al;
 al = al - ( aw * ( al - ar ) ) / (aw - awvor)
 ar = ha;
% if abs(al-ar) < 10^6
%  break;
% end;
% awvor = aw;
end;
