function g=Exviii(x)
%%
%%Ejercicio 18; Cálculo numérico I, 2002/03
%%
%%La función calcula el valor de la función g del ejercicio
%%para el valor dado de x.
%%
%%Primeramente imprime el número de iteraciones.
%%
%%A continuación imprime una tabla del error en el cálculo de g(.5)
%%en función del grado del polinomio de Taylor utilizado.
%%
%%Finalmente da la respuesta g(x).
%%
g=x;a=x;n=1;sig=1;
while abs(a)>10^-7
   sig=-1*sig;a=n^2*a*x/(n+1)^2;
   g=g+sig*a;
   n=n+1;
end
disp(' ')
disp('Número de iteraciones: ')
disp(n)
fprintf(' n   error \n')
for n=1:20
   err=1/2^n/n^2;
   fprintf('%2g  %10.2e\n',n,err)
end