Trabalho para entregar de Newton --- 03

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

clear
clc
function y = f(x)
 y = x^4 + 2*x^3 - 13*x^2 - 14*x + 24 
endfunction
function y = df(x)
 y = 4*x^3 + 6*x^2 - 26*x - 14 
endfunction
function [raiz, iter, conderro] = newton (x0, toler, intermax)
 Raiz = 0
 iter = 0
 CondErro = null
 x = x0
 Fx = f(x)
 DFx = df(x)
 printf("\n\n Calculo de raiz de equação pelo metodo de Newton\n\n")
 printf("Inter\t x\t\t DFx\t\t Fx\t\t Delta_x\n")
 printf("%i\t %f\t %e\t %e\n",iter,x,DFx,Fx)
 while iter < intermax
 DeltaX = -Fx/DFx
 x = x + DeltaX
 Fx = f(x)
 DFx = df(x)
 iter = iter + 1
 mprintf("%i\t %f\t %e\t %e\t %e\n",iter,x,DFx,Fx,DeltaX)
 if (abs(DeltaX)<=toler & abs(Fx)<=toler) | DFx==0
 break
 end
 end
 raiz = x
 if abs(DeltaX)<=toler & abs(Fx)<=toler then
 conderro =0
 else conderro = 1
 end
 printf("\n\nRaiz\t\t=\t%f \n",x)
 printf("inter\t\t=\t%i\n",iter)
 printf("conderro\t=\t%i\n ",conderro)
endfunction