Maria
SANDY KATHERINE ACEVEDO
MAURICIO CARRERO
WBEIMAR LOGATTO
INGENIERIA DE SISTEMAS
VILLA DEL ROSARIO
2012
Metodo de la Secante:
function secante()
Xi=0;Ximen1=0;
Ximas1=0;
Ea=1;
Et=0;
Raiz=0;
Es=0.05;
syms x y;
f=input('Dijite la Funcion: ');
Raiz=solve(f,x);
disp(Raiz);
Ximen1=input('Dijite Xi-1: ');
Xi=input('Dijite Xi: ');
cont=0;while(Ea>es)
disp('Iteracion '); disp(cont);
disp('Xi-1: '); disp(Ximen1);
disp('Xi: '); disp(Xi);
Ximas1=Xi - ( ( subs(f,Xi)*( Ximen1-Xi) )/( subs(f,Ximen1)-subs(f,Xi)));disp('Xi+1: '); disp(Ximas1);
Ea=abs( (Ximas1-Xi)/Ximas1)*100;
disp('Ea: '); disp(Ea);
Et=abs( (Raiz - Ximas1)/Raiz)*100;
disp('Et: '); disp(Et);
Ximen1=Xi;Xi=Ximas1;
disp('---------------------------------');
cont=cont+1;
end
end
Resultados: Función: 10ex2Cos2x-4 Raiz=0.637883926151463
ITE Xi-1 Xi Xi+1 Ea Et
1 0.0000001.000000 0.355849 181.018357 169.278144
2 1.000000 0.355849 0.560217 36.480213 209.065454
3 0.355849 0.560217 0.66964816.341571 230.369953
4 0.560217 0.669648 0.635654 5.347911 223.751815
5 0.669648 0.635654 0.637826 0.340580 224.174729
60.635654 0.637826 0.637884 0.009083 224.186009
Grafica de la función:
Como podemos observar en la grafica de la función, después de -2 existen muchas raices
Grafica delerror Aproximado:
En esta grafica observamos que el erro en la segunda iteración diverge a un valor de 180, pero después de hay, el error tiende a bajar de una forma aceptable
Grafica del ErrorVerdadero:
En este grafica observamos que el error aproximado empieza en 170 y después de varias iteraciones se estabiliza en un valor cercano a 225
Resultados: Funcion: Ln(x) Raiz=1;
ITE...
Regístrate para leer el documento completo.