Matlab

MBISECCION
function biseccion_Callback(hObject, eventdata, handles)
% hObject handle to biseccion (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)

%****************************************************************

%** Método de BiseccionUdeG **

%****************************************************************

clear;

clc;

%****************************************************************

%** Se ingresan los datos de la ecuación que deseamos **

%** conocer sus raíces, entre que intervalos y con que**

%** porcentaje de error. **

%****************************************************************

fprintf('\nCalculo de la raíz de una ecuacion por método de Biseccion\n\n');

y=input('Función : ','s');

xl=input('Intervalo inferior : ');

xu=input('Intervalo superior : ');e=input('Porciento del error : ');

xi=0;

ea=100;

c=1;



%****************************************************************

%** Se hace el calculo para determinar si en los intervalos **

%** para los que se va a calcular esta comprendida la raiz **

%** de la ecuación**

%****************************************************************

x=xl;

a=eval(y);

x=xu;

b=eval(y);

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 unaraíz entre \n\n');

fprintf('\nestos, Execute de nuevo el programa, por favor.\n\n');


end



%****************************************************************

%** Se realizan los cálculos para determinar la raíz en la **

%** siguiente seccion.**

%****************************************************************



while ea>e

xr=(xl+xu)/2;

x=xl;

yl=eval(y);

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 raíz exacta es: %d',xr)

fprintf('\n\nNumero de iteraciones:%d',c);

break

end

xi=xr;

c=c+1;

end



%****************************************************************

%** Se imprimen resultados **

%****************************************************************



if ea<e

fprintf('\n\n\n\nLa raíz exacta es:%d',xr)

fprintf('\n\nNumero de iteraciones: %d',c);

end

-------------------------------------------------

Falsa posición
% hObject handle to FPosicion (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
clear;
clc;
clear Z
fprintf('\n\n\n\n\t\t\tPROGRAMA QUE RESUELVE UN EJERCICIODE RAICES DE\n');
fprintf('\t\t\t ECUACIONES POR EL METODO DE FALSA POSICION');
Salir=1;
while Salir==1
Funcion=input('\n\nDIGITE LA FUNCION F(x): ','s');
if isempty(Funcion)
fprintf('\t*** DEBE ESPECIFICAR LA FUNCION A LA CUAL DESEA HALLAR LAS RAICES ***');
else
Salir=0;
end
end
Salir=1;
while Salir==1
A=input('\nDIGITE EL VALOR DE A: ');
if...