Con respecto al ejercicio.
Publicado por Esteban (2 intervenciones) el 29/03/2005 23:22:33
Buenas tardes, esto es lo que hasta el momento he desarrollado, pero aun no da.
%BISECCION (matlab)
clear
clc
disp ('METODO DE BISECCION')
f=input ('entre comillas sencillas Ingrese la función en términos de x: ');
Xa=input ('limite inferior del intervalo: ‘);
Xb=input (‘limite superior del intervalo: ' );
x=Xa;
Ya=eval (f);
If Ya==0
disp ('el limite inferior es raíz')
End
x=Xb;
Yb=eval (f);
If Yb==0
disp ('el limite superior es raíz')
End
if Ya*Yb>=0
disp ('en este intervalo no existe ninguna raíz')
Break
End
ni =input ('ingrese número de iteraciones: ‘);
ER=input ('el error porcentual mínimo admitido es: ');
n=0;
q=1;
while n<ni
n=n+1;
Xc= (Xa+Xb)/2;
x=Xc;
Yc=eval (f);
ER=abs ((Xc-q)/q)*100;
q=Xc;
If Yc==0 ó er<=ER;
Break
End
If Ya*Yc<0
Xs=Xc;
Ys=Yc;
Else
Xa=Xc;
Ya=Yc;
end
End
%REGLA FALSA (MATLAB)
Clear
clc
disp (' METODO DE REGLA FALSA')
f=input (' entre comillas sencillas Ingrese la función en términos de x: ');
Xa=input ('limite inferior del intervalo: ‘);
Xb=input ('limite superior del intervalo: ‘);
x=Xa;
Ya=eval (f);
If Ya==0
%BISECCION (matlab)
clear
clc
disp ('METODO DE BISECCION')
f=input ('entre comillas sencillas Ingrese la función en términos de x: ');
Xa=input ('limite inferior del intervalo: ‘);
Xb=input (‘limite superior del intervalo: ' );
x=Xa;
Ya=eval (f);
If Ya==0
disp ('el limite inferior es raíz')
End
x=Xb;
Yb=eval (f);
If Yb==0
disp ('el limite superior es raíz')
End
if Ya*Yb>=0
disp ('en este intervalo no existe ninguna raíz')
Break
End
ni =input ('ingrese número de iteraciones: ‘);
ER=input ('el error porcentual mínimo admitido es: ');
n=0;
q=1;
while n<ni
n=n+1;
Xc= (Xa+Xb)/2;
x=Xc;
Yc=eval (f);
ER=abs ((Xc-q)/q)*100;
q=Xc;
If Yc==0 ó er<=ER;
Break
End
If Ya*Yc<0
Xs=Xc;
Ys=Yc;
Else
Xa=Xc;
Ya=Yc;
end
End
%REGLA FALSA (MATLAB)
Clear
clc
disp (' METODO DE REGLA FALSA')
f=input (' entre comillas sencillas Ingrese la función en términos de x: ');
Xa=input ('limite inferior del intervalo: ‘);
Xb=input ('limite superior del intervalo: ‘);
x=Xa;
Ya=eval (f);
If Ya==0
Valora esta pregunta


0