+
−% CSVGENERATEDATA Default method to convert a ltpda_uoh-object into csv data.
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−%
+
−% FUNCTION:    csvGenerateData
+
−%
+
−% DESCRIPTION:
+
−%
+
−% CALL:        [data, pl] = csvGenerateData(ltpda_uoh)
+
−%
+
−% INPUTS:      ltpda_uoh: Input objects
+
−%
+
−% OUTPUTS:     data: Cell array with the data which should should be
+
−%                    written to the file.
+
−%              pl:   Parameter list which contains the description of the
+
−%                    data. The parameter list must contain the following
+
−%                    keys:
+
−%                'DESCRIPTION':   Description for the file
+
−%                'COLUMNS':       Meaning of each column seperated by a
+
−%                                 comma. For additional information add
+
−%                                 this name as a key and a description as
+
−%                                 the value. For example:
+
−%                                 |  key  |    value
+
−%                                 -----------------------
+
−%                                 |COLUMNS| 'X1, X2'
+
−%                                 |   X1  | 'x-axis data'
+
−%                                 |   X2  | 'y-axis data'
+
−%
+
−%                'NROWS':         Bumber of rows
+
−%                'NCOLS':         Number of columns
+
−%                'OBJECT IDS':    UUID of the objects seperated by a comma
+
−%                'OBJECT NEAMES': Object names seperated by a comma
+
−%                'CREATOR':       Creator of the objects
+
−%
+
−% VERSION:     $Id: csvGenerateData.m,v 1.2 2010/12/17 15:33:57 hewitson Exp $
+
−%
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−
+
−function [data, pl] = csvGenerateData(objs)
+
−  
+
−  description = '';
+
−  columns     = '';
+
−  uuids       = '';
+
−  names       = '';
+
−  creators    = {};
+
−  creatorStr  = '';
+
−  data = {};
+
−  pl = getDefaultPlist();
+
−  
+
−  for nn = 1:numel(objs)
+
−    
+
−    %%%%%%%%%%%%%%%%%%%%%%   Define header information   %%%%%%%%%%%%%%%%%%%%%%
+
−    if isempty(description)
+
−      description = objs(nn).description;
+
−    else
+
−      description = sprintf('%s | %s', description, strrep(objs(nn).description, '|', ''));
+
−    end
+
−    if isempty(uuids)
+
−      uuids = objs(nn).UUID;
+
−    else
+
−      uuids = sprintf('%s, %s', uuids, objs(nn).UUID);
+
−    end
+
−    if isempty(names)
+
−      names = objs(nn).name;
+
−    else
+
−      names = sprintf('%s, %s', names, strrep(objs(nn).name, ',', ''));
+
−    end
+
−    creator = objs(nn).creator('all');
+
−    creators = [creators, creator];
+
−    
+
−    %%%%%%%%%%%%%%%%%%%%%%   Generate data information   %%%%%%%%%%%%%%%%%%%%%%
+
−    
+
−    x = objs(nn).x;
+
−    y = objs(nn).y;
+
−    dx = objs(nn).dx;
+
−    dy = objs(nn).dy;
+
−    
+
−    if isreal(x) && isreal(y)
+
−      %%%%%%%%%%   real Data   %%%%%%%%%%
+
−      
+
−      
+
−      if ~isa(objs(nn).data, 'cdata')
+
−        [columns, pl] = prepareDataDesc(columns, pl, sprintf('X%d',nn), 'x-data');
+
−      end
+
−      [columns, pl] = prepareDataDesc(columns, pl, sprintf('Y%d',nn), 'y-data');
+
−      data = [data x y];
+
−      
+
−      %%% Add error if it exists
+
−      if ~isempty(dx) || ~isempty(dy)
+
−        if ~isa(objs(nn).data, 'cdata')
+
−          [columns, pl] = prepareDataDesc(columns, pl, sprintf('DX%d',nn), 'error of the x-data');
+
−        end
+
−        [columns, pl] = prepareDataDesc(columns, pl, sprintf('DY%d',nn), 'error of the y-data');
+
−        data = [data dx dy];
+
−      end
+
−      
+
−    else
+
−      %%%%%%%%%%   complex Data   %%%%%%%%%%
+
−            
+
−      if ~isa(objs(nn).data, 'cdata')
+
−        [columns, pl] = prepareDataDesc(columns, pl, sprintf('real(X%d)',nn), 'real part of the x-data');
+
−      end
+
−      if ~isa(objs(nn).data, 'cdata')
+
−        [columns, pl] = prepareDataDesc(columns, pl, sprintf('imag(X%d)',nn), 'imaginary part of the x-data');
+
−      end
+
−      [columns, pl] = prepareDataDesc(columns, pl, sprintf('real(Y%d)',nn), 'real part of the y-data');
+
−      [columns, pl] = prepareDataDesc(columns, pl, sprintf('imag(Y%d)',nn), 'imaginary part of the y-data');
+
−      data = [data real(x) imag(x) real(y) imag(y)];
+
−      
+
−      %%% Add error if it exists
+
−      if ~isempty(dx) || ~isempty(dy)
+
−        if ~isa(objs(nn).data, 'cdata')
+
−          [columns, pl] = prepareDataDesc(columns, pl, sprintf('real(DX%d)',nn), 'real part of the error of x');
+
−        end
+
−        if ~isa(objs(nn).data, 'cdata')
+
−          [columns, pl] = prepareDataDesc(columns, pl, sprintf('imag(DX%d)',nn), 'imaginary part of the error of x');
+
−        end
+
−        [columns, pl] = prepareDataDesc(columns, pl, sprintf('real(DY%d)',nn), 'real part of the error of y');
+
−        [columns, pl] = prepareDataDesc(columns, pl, sprintf('imag(DY%d)',nn), 'imaginary part of the error of y');
+
−        data = [data real(dx) imag(dx) real(y) imag(y)];
+
−      end
+
−      
+
−    end
+
−    
+
−  end
+
−  
+
−  nrows    = max(cellfun(@length, data));
+
−  ncols    = numel(data);
+
−  if ~isempty(columns)
+
−    columns = columns(3:end);
+
−  end
+
−  creators = unique(creators);
+
−  for ii = 1:numel(creators)
+
−    if isempty(creatorStr)
+
−      creatorStr = creators{ii};
+
−    else
+
−      creatorStr = sprintf('%s, %s', creatorStr, creators{ii});
+
−    end
+
−  end
+
−  
+
−  pl.pset('DESCRIPTION', description);
+
−  pl.pset('COLUMNS', columns);
+
−  pl.pset('NROWS', nrows);
+
−  pl.pset('NCOLS', ncols);
+
−  pl.pset('OBJECT IDS', uuids);
+
−  pl.pset('OBJECT NAMES', names);
+
−  pl.pset('CREATOR', creatorStr);
+
−  
+
−
+
−  
+
−  
+
−  %   error('### If it is necessary to export a %-object then add a change request to MANTIS. https://ed.fbk.eu/ltpda/mantis/login_page.php', class(objs));
+
−  
+
−end
+
−
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−%
+
−% FUNCTION:    getDefaultPlist
+
−%
+
−% DESCRIPTION: Get Default Plist
+
−%
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−
+
−function plout = getDefaultPlist()
+
−  persistent pl;  
+
−  if exist('pl', 'var')==0 || isempty(pl)
+
−    pl = buildplist();
+
−  end
+
−  plout = pl;  
+
−end
+
−
+
−function plo = buildplist()
+
−  plo = plist(...
+
−    'DESCRIPTION', '', ...
+
−    'COLUMNS', '', ...
+
−    'NROWS', -1, ...
+
−    'NCOLS', -1, ...
+
−    'OBJECT IDS', '', ...
+
−    'OBJECT NEAMES', '', ...
+
−    'CREATOR', '');
+
−end
+
−
+
−function [columns, pl] = prepareDataDesc(columns, pl, colName, colDesc)
+
−  columns = sprintf('%s, %s', columns, colName);
+
−  pl.append(colName, colDesc);
+
−end
+
−