Matlab - Método de la secante modificado

%% Método de la secante modificado: Ejemplo 6.8.

clc

clear

close all

%Pedir los datos del ejercicio.

f=input('Ingrese la función: ');

x1=input('Ingrese el valor inicial: ');

delta=input('Ingrese el valor del factor delta: ');

err=input('Ingrese el error máximo permitido a la solución aproximada: ');

N=100; %Número de iteraciones posibles.

xx(1)=x1; %Historial de x.

for i=1:N

    x2=x1-(f(x1)*delta*x1)/(f(x1+delta*x1)-f(x1)); %Fórmula del método de la secante modificado.

    x1=x2;

    xx(i)=x2; ii=i; %Número de iteraciones.

    Err = abs(xx(i) - xx(i-1));

    if Err<err break

    end %Condición de convergencia.

end

disp(['La raíz es: ' num2str(x2) ' ,con error: ' num2str(Err) ' ,número de iteraciones: ' num2str(ii)])