sábado, 10 de marzo de 2012

Metodo de la Regla Falsa (Version 2) en Matlab

clear all;
  clc;
    fprintf('\n metodo de la Regla Falsa\n\n');
     y=input('Dame la funcion : ','s');
       xl=input('Dame el intervalo inferior : ');
        xu=input('Dame el intervalo superior : ');
       e=input(<+span>'Dame el porciento del error : ');
     xi=0;
   ea=100;
  c; 
 x=xl;
a=eval(y);
 x=xu; 
  b=eval);
  cc=a*b;
    if cc>0
   fprintf('\n\nLos intervalos que ha ingresado para hacer el calculo de la raiz\n\n');
 fprintf('\nde la ecuacion no son los adecuados por no existir una raiz entre \n\n');
fprintf('\nestos, precione enter para executar de nuevo el programa, por favor.\n\n');
 pause
  regfal
end 
 while ea>e
x=xl;
yl=eval(y);
x=xu;
yu=eval(y);
xr=xu-yu*(xl-xu)/(yl-<+span>yu)<+span>;
x=xr;
yr=eval(y);
ea=abs((xr-xi)/xr)*100;
z=yl*yr;
if z<0
xu=xr;
end
if z>0
xl=xr;
end
if z==0
fprintf('\n\n\n\nLa raiz exacta es: %d',xr)
fprintf('\n\nNumero de iteraciones: %d',c)
break
end
xi=xr;
c=c+1;
end
if ea<e
fprintf('\n\n\n\nLa raiz exacta es: %d',xr)
fprintf('\n\nNumero de iteraciones: %d',c);
end

No hay comentarios:

Publicar un comentario