pkg load io
pkg load financial
prvnidenmereni='11/11/2019'; %%mesic/den/rok
%%odstraneni prazdnych znaku
%jmeno=strcat(char(jmeno));  %%%odstraneni prazdnych znaku
%jmeno=cellstr(jmeno);   %%odstraneni prazdnych znaku - vraceni do cell
smazat={'.dat',' ','casacc','casnap'};
jmeno_output=cellfun(@(x) erase(x,smazat),jmeno,'UniformOutput',0); %odstraneni znaku
smazat={' ','1','2','3','4','5','6','7','8','9','0'};
smer=cellfun(@(x) erase(x,smazat),signal,'UniformOutput',0); %smer, vyjadreni ze signalu (smazani znaku)
smer(1:8)=smer(index_loz(1));
smer(9:16)=smer(index_loz(9));

jmeno_output(1:8)=jmeno_output(index_loz(1));
jmeno_output(9:16)=jmeno_output{index_loz(5)};
jmeno_output(17:end)=[];

signal(1:8)=signal(index_loz(1));
signal(9:16)=signal(index_loz(9));

nuly_pro_otacky=num2cell(zeros([length(jmeno) 1]));


for k=1:1:length(index_loz)
  rok=char(jmeno_output{k})(1:4);
  mesic=char(jmeno_output{k})(6:7);
  den=char(jmeno_output{k})(9:10);
  datum{k,1}=strcat(den,'.',mesic,'.',rok);

  jmeno_output{k}=strcat(jmeno_output{k},'rmsvel');
  
  casovyrozsahzacatek{k,1}=tmin{k,1};
  casovyrozsahkonec{k,1}=tmax{k,1};
  
  denodprvnihomereni{k,1}=daysact(prvnidenmereni,strcat(num2str(mesic),'/',num2str(den),'/',rok));
  fmin_output{k,1}=fminimum{k,1};
  fmax_output{k,1}=fmaximum{k,1};
  end

sloupec1=jmeno_output;
sloupec2=datum;
sloupec3=denodprvnihomereni;
sloupec4=num2cell(RMS{1,2}); %mohutnost
%sloupec5=nuly_pro_otacky(1:16);  %prazdny sloupec, pro rucni dopsani otacek
otacky24(1:16)=24000;
sloupec5=num2cell(otacky24');
sloupec6=signal(1:16); %typ signalu
sloupec7=smer(1:16); %smer
sloupec8={['vretenik'];['vretenik'];['vretenik'];['vretenik'];['vretenik'];['vretenik'];['vretenik'];['vretenik'];['tubus'];['tubus'];['tubus'];['tubus'];['tubus'];['tubus'];['tubus'];['tubus']}; %umisteni
sloupec9=casovyrozsahzacatek;
sloupec10=casovyrozsahkonec; %rozsah frekvenci
sloupec11=fmin_output;
sloupec12=fmax_output;
sloupec13={['BPFO_front'];['BPFI_front'];['BSF_front'];['FTF_front'];['BPFO_rear'];['BPFI_rear'];['BSF_rear'];['FTF_rear'];['BPFO_front'];['BPFI_front'];['BSF_front'];['FTF_front'];['BPFO_rear'];['BPFI_rear'];['BSF_rear'];['FTF_rear']};
sloupec14={[1];[1];[1];[1];[1];[1];[1];[1];[2];[2];[2];[2];[2];[2];[2];[2]};

output=[sloupec1, sloupec2,sloupec3,sloupec4,sloupec5,sloupec6,sloupec7,sloupec8,sloupec9,sloupec10,sloupec11,sloupec12,sloupec13,sloupec14]; %definice output


%xlsread('test.xlsx','Sheet1','A1:A9999');
%number=max(xlsread('test.xlsx','Sheet1','A1:A9999'));
%N=num2cell(((number+1):1:(number+rows(output)))');
N=num2cell(1:length(jmeno_output))';
output=[N,output];


header_output={'Index','Nazev','Datum','Den','RMS [mm/s]','Otacky [/min]','Snimac','Smer','Umisteni','t_zac [s]','t_kon [s]','Fmin [Hz]','Fmax [Hz]','Premereno','Mereni'};
cesta_output=cesta(1:end-5);
jmeno_souboru=strcat(cesta(end-18:end-5),'_loziskova');
nazev_output=strcat(cesta_output,'\',jmeno_souboru,'.xlsx');
xlswrite(nazev_output,header_output,'data','A1');
status=xlswrite(nazev_output,output,'data','A2');







