Metodo de Punto Fijo (Version 2) en Matlab

1. clear all;
2.     clc;
3.       fprintf('\n Metodo del Punto Fijo\n\n');
4.            f=input('Dame la fujcion f(x) ','s');
5.             xi=input('Dame el valor inicial de x : ');
6.               e=input('Dame el porciento del error : ');
7.           ea=1000;
8.          c=1;
9.        x=xi;
10.       while ea>e
11.      g=eval(f);
12.     ea=abs((g-x)/g*100);
13.       x=g;
14.         c=c+1;
15.             end
16.         fprintf('\n\n\n\nLa raiz exacta es: %d',g)
17.     fprintf('\n\nNumero de iteraciones: %d',c);