Mate 5

%Metodo Punto fijo
clear, clc
cf = input(' Ingrese función a evaluar \n preferentemenet de esta forma x^2-2*x+4 y que encierren con apostrofe : \n');
cg = input(' Ingrese función despejada como deesta forma (x^2+4)/2: ');
syms x
f = inline(cf);
g = inline(cg);
dg = diff(cg,x);
rmin=input('De donde iniciara a tabulacion: ');
rmax=input('Hasta donde finalazara a tabula: ');
inc=input('De cuantosera el incremento: ');
disp('______________________________________________')
disp(' x y ')
disp('______________________________________________')
forx=rmin:inc:rmax
f(x);
fprintf('|\t%3.4f \t| %f \t|\n',x,f(x));
end
disp('______________________________________________')
tol = input('Ingrese tolerancia:');
error = 100;
x = input('Ingrese un valorinicial:');
n=0;
disp('______________________________________________')
disp(' n xi error')
disp('______________________________________________')
if (abs(eval(dg))<1)
else
disp('requiere otra funcion g(x)pues diverge con la actual ');
break;
end
while((error>tol) && (n<=150))
fprintf('\t%i\t%3.5f\t%f\n',n,x,error);
n = n+1;
anterior=x;
x = g(x);error =abs( x-anterior );
end
disp('______________________________________________')








% Método Newton Raphson
clear, clc
cf = input(' Ingrese función a evaluar \n preferentemenet de esta formax^4-7*x^3+12*x^2+4*x-16 y que encierren con apostrofe : \n');
syms x
f = inline(cf);
derivada = diff(cf,x);
df = inline(derivada);
rmin=input('De donde iniciara a tabulacion: ');
rmax=input('Hasta dondefinalazara a tabula: ');
inc=input('De cuanto sera el incremento: ');
disp('______________________________________________')
disp(' x y ')disp('______________________________________________')
for x=rmin:inc:rmax
f(x);
fprintf('|\t%3.5f \t| %f \t|\n',x,f(x));
end
disp('______________________________________________')
tol = input('Ingrese...