Que te importa

Solo disponible en BuenasTareas
  • Páginas : 2 (411 palabras )
  • Descarga(s) : 0
  • Publicado : 24 de febrero de 2012
Leer documento completo
Vista previa del texto
FALSA POSICION
clc
clear
r= input ('dame el coeficiente del termino cubico');
m= input ('dame el coeficiente del termino cuadratico');
k=
b= input ('Dame el segundo intervalo (b): ');
N=input ('Dame el numero de interaciones (N): ');
T= input ('Dame el valor de tolerancia (T): ');
s=0;
i=1;
funcion=[r m k co];
per=a:0.2:b;
cu=polyval(funcion,per);
plot(per,cu);
grid;disp ('i a b c f(a) f(b) f(c) ');
while i0
fprintf('El metodo funciono despues de %d iteraciones y la raiz es %.4f',s+6,c);
else
fprintf('Elmetodo fracaso despues de %d iteraciones\n\n', N);
end

ILLINOIS
clc
clear
w= input ('dame el coeficiente del termino cubico');
j= input ('dame el coeficiente del termino cuadratico');
k=input ('dame el coeficiente del termino lineal');
co= input ('dame el valor de la constante');
a= input ('Dame el primer extremo (a): ');
b= input ('Dame el segundo extremo (b): ');
N= input ('Dameel numero de interaciones (N): ');
T= input ('Dame el valor de tolerancia (T): ');
s=0;
i=1;
disp ('i a b c f(a) f(b) f(c) ');x=((w*a^3)+(j*a^2)+(k*a)+(co));
y=((w*b^3)+(j*b^2)+(k*b)+(co));
c=a-((x*(b-a))/(y-x));
z=((w*c^3)+(j*c^2)+(k*c)+(co));
funcion=[w j k co];
per=a:0.2:b;
cu=polyval(funcion,per);
plot(per,cu);
grid;
while i0fprintf('El metodo funciono despues de %d iteraciones la raiz es %.4f',s,c);
else
fprintf('El metodo fracaso despues de %d iteraciones\n\n', N);
end

NEWTON RAPHSON MEJORADO
clc
clearxi=input('Introduce el valor inicial: ');
a=input('Coeficiente de valor cubico: ');
b=input('Coefiente de valor cuadrado: ');
c=input('Coefinciente de valor lineal: ');
d=input('Valor constante: ');t=0.001;
x=0;
dif=1;
e=3*a;
g=2*b;
pu=6*a;
f=[a b c d];
[0 e g 0];
f11=[0 0 pu g];
d=1:0.2:2;
y=polyval(f,d);
plot(d,y);
grid;
N=input ('numero de interacciones: ');

while xt...
tracking img