sábado, 28 de abril de 2012

Método de Langranje en matlab Gui



















Acontinuacion Describo Cada una de las lineas de codigo Usadas en el programa



%Codigo del edit tex (puntos)
function puntos_Callback(hObject, eventdata, handles)
x=str2num(get(handles.puntos,'string'));
n=length(x);

%Codigo del Edit Tex (Funcion)
function funcion_Callback(hObject, eventdata, handles)
fx=inline(get(handles.funcion,'string'));

%codigo del Edit Tex (int "punto en el cual interpolar")
nx=str2double(get(handles.int,'string'));

%codigo del boton Salir
function salir_Callback(hObject, eventdata, handles)
close(gcbf);

%codigo Del boton Graficar
function graficar_Callback(hObject, eventdata, handles)
handles.axes1;
fx=inline(get(handles.funcion,'string'));
ezplot(fx);

%Codigo del Boton Calcular

function calcular_Callback(hObject, eventdata, handles)
x=str2num(get(handles.puntos,'string'));
n=length(x);
fx=inline(get(handles.funcion,'string'));
nx=str2double(get(handles.int,'string'));
s=0;
for k=1:n
    Num=1;
    Dem=1;
    for i=1:n;
        if k ~=i;
            Num=Num*(nx-x(i));
            Dem=Dem*(x(k)-x(i));
        end
        La=Num/Dem;
    end
     s=s+La*fx(x(k));    
end
set(handles.salida,'string',s);


2 comentarios:

  1. podrias subir el metodo de secante pero que realice una tabla con los valores y que grafique no la funcion sino la secuencia de los puntos encontrados para la aproximacion a la raiz.

    ResponderEliminar
    Respuestas
    1. Gracias por tu comentario. Tomare en cuenta tu comentario para realizar este programa. Ya que en estos momento me encuentro entrando de nuevo a clases y pues espero en unas semanas normalizarme y tomar ritmo, así ya podría tener tiempo para desarrollar algo con matlab.

      Eliminar