Matlab - Ayuda! Programa Serie de taylor en una GUI

function varargout = Tay(varargin)

gui_Singleton = 1;

gui_State = struct('gui_Name',       mfilename, ...

                   'gui_Singleton',  gui_Singleton, ...

                   'gui_OpeningFcn', @Tay_OpeningFcn, ...

                   'gui_OutputFcn',  @Tay_OutputFcn, ...

                   'gui_LayoutFcn',  [] , ...

                   'gui_Callback',   []);

if nargin && ischar(varargin{1})

    gui_State.gui_Callback = str2func(varargin{1});

end

if nargout

    [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});

else

    gui_mainfcn(gui_State, varargin{:});

end

function Tay_OpeningFcn(hObject, eventdata, handles, varargin)

handles.output = hObject;

guidata(hObject, handles);

function varargout = Tay_OutputFcn(hObject, eventdata, handles)

varargout{1} = handles.output;

%--------------------------------------------------

function lafuncion_Callback(hObject, eventdata, handles)

function lafuncion_CreateFcn(hObject, eventdata, handles)

if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

    set(hObject,'BackgroundColor','white');

end

%--------------------------------------------------

function elorigen_Callback(hObject, eventdata, handles)

function elorigen_CreateFcn(hObject, eventdata, handles)

if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

    set(hObject,'BackgroundColor','white');

end

%--------------------------------------------------

function rango1_Callback(hObject, eventdata, handles)

function rango1_CreateFcn(hObject, eventdata, handles)

if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

    set(hObject,'BackgroundColor','white');

end

%--------------------------------------------------

function rango2_Callback(hObject, eventdata, handles)

function rango2_CreateFcn(hObject, eventdata, handles)

if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

    set(hObject,'BackgroundColor','white');

end

%--------------------------------------------------

function errorpermitido_Callback(hObject, eventdata, handles)

function errorpermitido_CreateFcn(hObject, eventdata, handles)

if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

    set(hObject,'BackgroundColor','white');

end

%--------------------------------------------------

function pushbutton1_Callback(hObject, eventdata, handles)

f=get(handles.lafuncion, 'String');

origen=str2double(get(handles.elorigen, 'String'));

a=str2double(get(handles.rango1, 'String'));

b=str2double(get(handles.rango2, 'String'));

error=str2double(get(handles.errorpermitido, 'String'));

rango=[a b];

fx=sym(f);

v=findsym(fx);

maximo=max(rango);

orden=0;

t=taylor(fx,v,origen,'order',orden);

while abs(subs(fx,maximo)-subs(t,maximo))>error

    orden=orden+1;

    t=taylor(fx,v,origen,'order',orden);

    set(handles.mostrar,'String',char(t));

end

function mostrar_CreateFcn(hObject, eventdata, handles)

function mostrar_ButtonDownFcn(hObject, eventdata, handles)

function Borrar_Callback(hObject, eventdata, handles)

set(handles.mostrar,'String','');

set(handles.lafuncion,'String','');

set(handles.elorigen,'String','0');

set(handles.rango1,'String','-2*pi');

set(handles.rango2,'String','2*pi');

set(handles.errorpermitido,'String','');

function axes1_CreateFcn(hObject, eventdata, handles)