%% panel3: interaktywny program do przegladania danych lvm (ASCII)
% Autor dr inz. Zbigniew Marszalek, antic@agh.edu.pl, v6.11.2015.
function panel3
clc, clear all, close all
%%%%%%%%%%%%%%%%%%%%%%%%%
SCIEZKA = '\\s.traffic.eu.org\GoFlex Home Personal\Gardawice\_RejGARD_dane\R2015_09_20';
%%%%%%%%%%%%%%%%%%%%%%%%%
%% Start
fprintf('* Generuje liste plikow z %s ...\n',SCIEZKA)
lista_plikow = dir([SCIEZKA '\*.lvm']); %gen. lista plikow .lvm
lista_plikow_len = length(lista_plikow);
fprintf('* Znaleziono %.0f plikow *.lvm\n',lista_plikow_len)
fprintf('* n - next, p - prev, q - quit, num \n')
if lista_plikow_len
k = 1;
rysunek(k, SCIEZKA, lista_plikow);
while 1 
   akcja=input('n/p/q ','s');
   if akcja == 'q'
       break; % koniec
   end
   if akcja == 'n' % next 
       if k < lista_plikow_len
        k = k + 1;
       end
   end
   if akcja == 'p' % prev
       if k > 1
        k = k - 1;
       end
   end
   [nr, status ] = str2num(akcja);
   if status && (nr <= lista_plikow_len) && (nr > 0)
    k = nr;
   end
   rysunek(k, SCIEZKA, lista_plikow);
end
end
%% Funkcja rysunek
function rysunek(k, SCIEZKA, lista_plikow)
    s1=0; s2=0; s3=0; s4=0; s5=0; s6=0; s7=0; s8=0; s9=0; s10=0; s11=0;
    s12=0; s13=0; s14=0; s15=0; s16=0; s17=0; s18=0; s19=0; s20=0;
    kolor = [' ';'g';'g';'r';'r';'b';'b';'m';'m';'r';'r';'g';'g';'b';'b'];
    fprintf('%d) %s ',k ,lista_plikow(k).name)
    sciezka_plik = [SCIEZKA '/' lista_plikow(k).name];
    d = load(sciezka_plik);
    [wi,ko]=size(d);
    for ss = 1:1:ko % petla dla wszystkich danych do ko
        eval(sprintf('s%d = d(:,%d);', ss,ss)); % generuje sygnaly s1..s11
    end
    hold off
    for ss = 2:1:ko % petla dla sygnalow od 2
        eval(sprintf('plot(s1, s%d, ''%s'')', ss,kolor(ss)));
        hold on
    end
    xlabel('t  [s]'); ylabel('Profil  [V]');
    title(regexprep(lista_plikow(k).name, '_', '\\_'));
    grid on
end
end