
% ...

% Autor: Miroslav Janota
% Vytvoreno: ...
% CVUT v Praze, Fakulta strojni, RCMT
% Horska 3, 128 00 Praha 2
% Tel: +420 605 205 925
% E-mail: m.janota@rcmt.cvut.cz

% vola externi funkce: ...

%
% Definice funkce
%
                                                                         
%function [varargout]=fordat2mat(varargin)                % definice funkce
 % dbstop if error                                                                               
%clear all; close all; clear global;
%
% Vysvetlivky
%

% ...
% ...

%
% Telo funkce
%

% Nalezeni a nacteni datoveho souboru
%if isempty('varargin{1}')==1 & isempty('varargin{2}')==1
    [filename,cesta]=uigetfile('*.dat','Vyber *.dat soubor:');                                                         % nalezeni cesty a jmena pomoci menu
%else
%    filename=varargin{1}; cesta=varargin{2};                                                                           % zadani cesty a jmena pomoci vstupnich parametru
%end                                                                                                                    %

%filename='2018-09-20-VibPr-DaMn.dat';
fid=fopen([cesta filename],'r');

buf=fread(fid,3,'int32')
Ndat=buf(2); clear buf;

wtb=waitbar(0,'Konverze textovych dat na cisla');                                                                  %
for ii=(1:Ndat)
    
    if ii==1
        buf=fread(fid,5,'int32')
        Ns(ii,1)=buf(2);
    else
        buf=fread(fid,6,'int32')
        Ns(ii,1)=buf(3);
    end
    
    clear buf;
    
    xvalbuf=fread(fid,Ns(ii),'float64'); xval{ii,1}=xvalbuf'; clear xvalbuf;
    yvalbuf{ii,1}=fread(fid,2*Ns(ii),'float64');
    zval{ii,1}=fread(fid,1,'float64');
    
    buf=fread(fid,3,'uchar'); datatyp{ii,1}=char(buf'); clear buf;
    
    bufa=fread(fid,10,'uchar'); dim{ii,1}=char(bufa');
    bufb=fread(fid,10,'uchar'); dim{ii,2}=char(bufb');
    bufc=fread(fid,10,'uchar'); dim{ii,3}=char(bufc');
    
    clear bufa bufb bufc;
    
    buf=fread(fid,20,'uchar'); signal{ii,1}=char(buf'); clear buf;
    buf=fread(fid,80,'uchar'); jmeno{ii,1}=char(buf'); clear buf;
    
    spati(ii,:)=fread(fid,4,'int32')';
    
    buf=fread(fid,3,'uchar'); SpUn{ii,1}=char(buf'); clear buf;
    buf=fread(fid,6,'uchar'); refsig{ii,1}=char(buf'); clear buf;
    
    waitbar(ii/Ndat,wtb)                                                                                           %
    
end
close(wtb)                                                                                                         %


for ii=(1:Ndat)
    if strcmp(datatyp{ii,1},'cas')==1
        yval{ii,1}=yvalbuf{ii,1}(1:2:2*Ns(ii))';
    end
end
clear yvalbuf;

fclose(fid);

% Definice varargoutnich parametru
varargout{1}=xval; varargout{2}=yval; varargout{3}=zval; varargout{4}=dim; varargout{5}=datatyp; varargout{6}=signal; varargout{7}=jmeno; varargout{8}=spati; varargout{9}=SpUn; varargout{10}=refsig;


% Korigovano: ...
%             ...
