metdonewtonraphson

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

% Método de Newton Raphson
%DUPLA: Joelmo Schueroff e Lucas Ecco
format long;
clear all
clc
syms('x')
f(x) = input('Digite a função de x: ');
z(x)= diff(f(x));
x0 = input('Qual o valor inicial: ');
max = input('Qual o valor máximo de operações: ');
erro = input('Qual o valor do erro: ');
x = x0;
k = 1;
fprintf('\n\n')
fprintf('\t\t k \t\t\t\t\t x \t\t\t\t\t f(x)\t\t\t\t|xn-xn-1|\n\n')
while k<=max
 if abs(z(x))<=0.000000001
 fprintf('\n Método inapropriado, df/dx=0')
 break
 end
 xn = x-f(x)/z(x);
 disp([k,double(xn),double(f(x)),double(abs(xn-x))])
 if abs(xn-x)<=erro
 break
 else
 x=xn;
 end
 k = k+1;
 if k>max
 fprintf('O número de iterações não foi suficiente!')
 end
 
end
fprintf('\n\n\n')
fprintf('A raiz aproximada é:')
disp(double(x))