Advertisement
Randomsurpriseguy

LagrangeKoeffizienten Zähler

May 7th, 2020
3,184
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Octave 0.32 KB | None | 0 0
  1. function koeffizienten = Lagrange(Nullstellen_vec)
  2.   NSt=-1*Nullstellen_vec;
  3.   out=0*[0:1:length(NSt)]
  4.   out(1)=1;
  5.   for i=1:length(NSt)
  6.     outc=out;
  7.     for j=2:length(out)-1
  8.       out(j)=outc(j-1)+outc(j)*NSt(i);
  9.     endfor
  10.     out(1)=outc(1)*NSt(i);
  11.     out(i+1)=1;
  12.   endfor
  13.   koeffizienten=out;
  14.  
  15. endfunction
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement