wolffd@0: function x = exportation(s)
wolffd@0: 
wolffd@0: % SCALAR/EXPORTATION exports the values of a scalar object
wolffd@0: % Filterbank not taken into consideration yet.
wolffd@0: 
wolffd@0: v = get(s,'Data');
wolffd@0: t = get(s,'Title');
wolffd@0: n = get(s,'Name');
wolffd@0: pt = get(s,'PeakPosUnit');
wolffd@0: pp = get(s,'PeakPos');
wolffd@0: frames = 0;
wolffd@0: for i = 1:length(v)
wolffd@0:     if iscell(v{i})
wolffd@0:         v{i} = v{i}{1}; %% Segmented audio cannot be exported properly now.
wolffd@0:     end
wolffd@0:     if iscell(v{i})
wolffd@0:         v{i} = v{i}{1};
wolffd@0:     end
wolffd@0:     if size(v{i},2) > 1 || size(v{i},3) > 1
wolffd@0:         frames = 1;
wolffd@0:     end
wolffd@0: end
wolffd@0: for i = 1:length(v)
wolffd@0:     vi = v{i};
wolffd@0:     pti = pt{i};
wolffd@0:     ppi = pp{i};
wolffd@0:     for j = 1:size(vi,1)
wolffd@0:         me = mean(vi(j,:,1),2);
wolffd@0:         if frames
wolffd@0:             st = std(vi(j,:,1),0,2);
wolffd@0:             if not(isempty(pti{1}))
wolffd@0:                 if i == 1
wolffd@0:                     if size(vi,1) > 1
wolffd@0:                         x{1,j*4-3} = ['mean',t,num2str(j)];
wolffd@0:                         x{1,j*4-2} = ['std',t,num2str(j)];
wolffd@0:                         x{1,j*4-1} = ['peakpos',t,num2str(j)];
wolffd@0:                         x{1,j*4} = ['peakval',t,num2str(j)];
wolffd@0:                     else
wolffd@0:                         x{1,j*4-3} = ['mean',t];
wolffd@0:                         x{1,j*4-2} = ['std',t];
wolffd@0:                         x{1,j*4-1} = ['peakpos',t];
wolffd@0:                         x{1,j*4} = ['peakval',t];
wolffd@0:                    end
wolffd@0:                 end
wolffd@0:                 pep = ppi{1,j,1}{1}; %% only first peak is taken
wolffd@0:                 pet = pti{1,j,1}{1}; %% only first peak is taken
wolffd@0:                 pev = vi(j,pep,1);
wolffd@0:                 x{i+1,j*4-3} = me;
wolffd@0:                 x{i+1,j*4-2} = st;
wolffd@0:                 x{i+1,j*4-1} = pet; 
wolffd@0:                 x{i+1,j*4} = pev;
wolffd@0:             else
wolffd@0:                 if i == 1
wolffd@0:                     if size(vi,1) > 1
wolffd@0:                         x{1,j*2-1} = ['mean',t,num2str(j)];
wolffd@0:                         x{1,j*2} = ['std',t,num2str(j)];
wolffd@0:                     else
wolffd@0:                         x{1,j*2-1} = ['mean',t];
wolffd@0:                         x{1,j*2} = ['std',t];
wolffd@0:                     end
wolffd@0:                 end
wolffd@0:                 x{i+1,j*2-1} = me;
wolffd@0:                 x{i+1,j*2} = st;
wolffd@0:             end
wolffd@0:         else
wolffd@0:             if i == 1
wolffd@0:                 x{1,j} = t;
wolffd@0:             end
wolffd@0:             x{i+1,j} = me;
wolffd@0:         end
wolffd@0:     end
wolffd@0: end