Matlab - dibujar las diferentes columnas de una matriz

function varargout = graficar_matriz_por_columnas1_por_Jose_Caballero(varargin)

%% http://www.lawebdelprogramador.com/foros/Matlab/1316898-dibujar_las_diferentes_columnas_de_una_matriz.html

% HOla a todos!

% 

% estoy teniendo un problema a la hora de dibujar las diferentes columnas de

% una matriz. 

% Mi objetivo es la programación de dos botones "forward" y "back". Los he

% programado mediante toggle button. Mi objetivo es que cada vez que este

% activo uno de ellos se recorra la matriz por columnas y se dibuje en cada

% ocasión dicha columna.

% 

% Dentro en callback de estos botones realizo la llamada una función:

% funcion_forward y funcion_back.

% (incluyo únicamente una de ellas, pues supongo que sabiendo hacer una

% la otra será similar

%%

clc

gui_Singleton = 1;

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

                   'gui_Singleton',  gui_Singleton, ...

                   'gui_OpeningFcn', @graficar_matriz_por_columnas1_por_Jose_Caballero_OpeningFcn, ...

                   'gui_OutputFcn',  @graficar_matriz_por_columnas1_por_Jose_Caballero_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 graficar_matriz_por_columnas1_por_Jose_Caballero_OpeningFcn...

    (hObject, eventdata, handles, varargin)

handles.output = hObject;

guidata(hObject, handles);

function varargout=graficar_matriz_por_columnas1_por_Jose_Caballero_OutputFcn(hObject, eventdata, handles)

varargout{1} = handles.output;

function Open_Callback(hObject, eventdata, handles)

function OpenFile_Callback(hObject, eventdata, handles)

[archivo,ruta]=uigetfile('*.txt','Abrir Archivo');

if archivo ==0

    return;

else

    matriz=importdata([ruta archivo]);

    handles.matriz=matriz;

end

guidata(hObject, handles);

function fila_matriz_Callback(hObject, eventdata, handles)

columnas=str2num(get(hObject,'String'));

matriz=handles.matriz;

axes(handles.axes1)

hold on

colores=rand(3,30);

for i=1:length(columnas)

plot(matriz(:,i),'color',[colores(i,1) colores(i,2) colores(i,3) ]);

end

hold on

guidata(hObject, handles);

function varargout = grafica_columnas_de_una_matriz_por_jose_caballlero(varargin)

% Mi objetivo esque el usuario seleccione el botón forward y cada

% vez que se pulse dicho botón se realice la presentación de cada

% un canal (columna 1), si vuelve a pulsar forward, entonces se

% presentaria la columna 2, y asi sucesivamente...de un en uno. 

%     Lo mismo ocurriría con el botón back, pero sería en sentido

% inverso. El valor de t, como me preguntabas lo he definido de 

% la forma mas simple posible t=[0:1:2]....aunque en la aplicación

%     real este "t" dependenderá de la fs introducida etc....

clc

gui_Singleton = 1;

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

                   'gui_Singleton',  gui_Singleton, ...

                   'gui_OpeningFcn', @grafica_columnas_de_una_matriz_por_jose_caballlero_OpeningFcn, ...

                   'gui_OutputFcn',  @grafica_columnas_de_una_matriz_por_jose_caballlero_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 grafica_columnas_de_una_matriz_por_jose_caballlero_OpeningFcn(hObject, eventdata, handles, varargin)

global k

k=1;

handles.output = hObject;

guidata(hObject, handles);

function varargout = grafica_columnas_de_una_matriz_por_jose_caballlero_OutputFcn(hObject, eventdata, handles)

varargout{1} = handles.output;

function Frecuencia_de_Muestreo_Callback(hObject, eventdata, handles)

fs=str2double(get(handles.Frecuencia_de_Muestreo,'string'));

if isnan(fs)

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

    errordlg('El dato introducido en Frec.Muestreo debe ser un número','Error');

    return;

end

handles.fs=fs;

guidata(hObject, handles);

function Longitud_temporal_Callback(hObject, eventdata, handles)

t=str2double(get(handles.Longitud_temporal,'string'));

if isnan(t)

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

    errordlg('El dato introducido en Long.Temporal debe ser un número','Error');

    return;

end

handles.t=t;

guidata(hObject, handles);

function Escala_Callback(hObject, eventdata, handles)

escala=str2double(get(handles.Escala,'string'));

if isnan(escala)

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

errordlg('El dato introducido en Escala debe ser un número','Error');

return;

end

handles.escala=escala;

guidata(hObject, handles);

function adelante_Callback(hObject, eventdata, handles)

global k matriz

fs=handles.fs;

t=handles.t;

escala=handles.escala;

t1=0:1/fs:t;

if k==1;

matriz=rand(length(t1),length(t1));

end

if k==0

    k=1;

end

opcion=get(hObject,'Value');

if k>size(matriz,1)

    k=k-1;

    errordlg('Ya se  gráfico toda las columnas de matriz','Error');

    return;

end

if opcion

    valores=matriz(:,k);

    axes(handles.axes2)

     plot(t1,valores);

    k=k+1;

end

guidata(hObject, handles);

function atras_Callback(hObject, eventdata, handles)

global k matriz

fs=handles.fs;

t=handles.t;

escala=handles.escala;

t1=0:1/fs:t;

opcion=get(hObject,'Value');

if k==0

    errordlg('Ya se  gráfico toda las columnas de matriz','Error');

    return;

end

if opcion

    valores=matriz(:,k);

    axes(handles.axes2)

     plot(t1,valores);

    k=k-1;

end

guidata(hObject, handles);