4037602941

PWSZ Głogów Wprowadzenie do użytkowania pakietu Matlab

function xl = newtonl (a, b, c, d) epsi = 1.0e-5; xl = 0; while 1

fprim = (3*a*xl+2*b)*xl+c; if fprim == 0 xl = -b/a; else

dx = -(((a*xl+b)*xl+c)*xl+d)...

/fprim; xl = xl + dx; if abs(dx) < epsi break; end

end

end;

function x = rown3(a, b, c, d) if a == 0

x = rown21(b, c, d); else

x = newtonl(a, b, c, d); beta = b + a * x;

.Strona 20