Takes every picoscope `foo.csv` file, plots it and saves it as `foo.fig` and `foo.eps` Este programilla coge todos los archivos ".csv" de la carpeta donde se encuentra, los representa y los exporta como ".fig" para que le modifiques lo que quieras, y como ".eps", por si ya están listos.

picoscope.m

% Este programilla coge todos los archivos CSV de la carpeta donde se encuentra
% los representa y los exporta como .fig para que le modifiques lo que quieras

% Array con todos los nombres de archivos csv en el directorio
archivos = dir('*.csv');	
figure();
for k = 1:length(archivos)
    % Estrae los datos numericos del CSV
    datos = csvread(archivos(k).name,4,0);
    soporte = datos(:,1);
    % Extrae los nombres y unidades de canales
    f = fopen(archivos(k).name);
    legends = textscan(f,'%s%s%s',2,'delimiter',',');
    alpha = [legends{1:length(legends)}]; % convierte en una matriz normal
    fclose(f);
    numCanales = size(datos,2)-1;
    % Cambia la base de tiempos para que emiece en 0 si no lo hace
    if(soporte(1)<0)
        soporte = soporte - soporte(1);
    end
    % Representación de todos los canales
    hold all
    for n = 1:numCanales
        p(n) = plot(soporte,datos(:,n+1),'LineWidth',2);
    end
    hold off
    nombreCanales = alpha(1,2:numCanales+1);
    leg = legend(p(1:numCanales),nombreCanales,'location','best');
    xlabel(strcat(legends{1}{1},' ',legends{1}{2}) ...
        ,'FontSize',14,'FontName','Times')
    ylabel(strcat('Amplitud ',legends{2}{2}) ...
        ,'FontSize',14,'FontName','Times')
    box off    
    axis tight
    grid on
    set(gca,'FontSize',11,'FontName','Times');
    set(leg,'Location','SouthEast','FontSize',12);
    % Guarda la figura y el eps y muestra el progreso
    saveas(gcf, [archivos(k).name(1:end-4), '.fig'], 'fig');
    disp(['[CVS --> FIG] (' num2str(k) '/' num2str(length(archivos)) ') : '  archivos(k).name(1:end-4)])
    clf
end
% Cierra todas las ventanas de representacion que se abrieron en el plot
close