Changeset 128 for trunk/src/cell2tab.m

Timestamp:

Nov 21, 2010, 10:06:11 PM (14 years ago)

Author:

sommeria

Message:

series: give writting access to the group for all subdirectories produced
uvmat.fig: change of vect and scalar frames (to be consistent with view_field)
uvmat: various cleaning
plot_field: various cleaning to improve axes definition and avoid blinking
geometry_calib: improved dispay of point coordiantes, improved link with dataview for REPLICATE.
struct2nc: repair bug , file was not closed.
cell2tab: cleaning
dataview: improve the browser
civ: solve pb of image naming

File:

• trunk/src/cell2tab.m (modified) (1 diff)

trunk/src/cell2tab.m

@@ -4 +4 @@
 %
 % OUTPUT:
-% Tabchar: character array suitable for table display
+% Tabchar: column cell of char strings suitable for display (equal length)
 %
 % INPUT:
-% Tabcell: (ni,nj) cell table, for ni lines 
-% separator: character used for separating displayed columns
+% Tabcell: (ni,nj) cell matrix of char strings to be displayed as  ni lines , nj column
+% separator: char string used for separating displayed columns
 
 function Tabchar=cell2tab(Tabcell,separator) 
-Tabchar={};%default
 [ni,nj]=size(Tabcell);
 
 %determine width of each column
-widthcolumn=max(cellfun(@length,Tabcell));
+if isequal(ni,1)
+    widthcolumn=cellfun('length',Tabcell);% case of a single line, no justification used
+else
+    widthcolumn=max(cellfun('length',Tabcell));
+end
+lsep=numel(separator); %nbre of characters of the separator
+nbchar_line=(sum(widthcolumn)+(nj-1)*lsep); %total nbre of characters in each output line
+default_line=blanks(nbchar_line); %default blank line
+Tabmat=reshape(blanks(nbchar_line*ni),ni,nbchar_line);
+Tabchar=mat2cell(Tabmat,ones(1,ni),nbchar_line); %default output
 
 %justify table
 for itab=1:ni    
-    charchain=[];         
+    charchain=default_line;  
     for jtab=1:nj% read line
         textlu=Tabcell{itab,jtab};
-        if widthcolumn(jtab)>length(textlu)
-            blankstr=char(32*ones(1,widthcolumn(jtab)-length(textlu)));
-            textlu=[textlu blankstr];
+        if jtab==1
+            charchain(1:length(textlu))=textlu;%introduce separator chain string except for the first column
+            ind_column=widthcolumn(1);%new current char index in the line
+        else
+            charchain(ind_column+1:ind_column+lsep)=separator;%introduce separator chain string except for the first column
+            charchain(ind_column+lsep+1:ind_column+lsep+length(textlu))=textlu;%introduce separator chain string except for the first column
+            ind_column=ind_column+widthcolumn(jtab)+lsep;
         end
-        if ~isempty(charchain)
-            textlu=[separator textlu];
-        end
-        charchain=[charchain textlu];
     end
     Tabchar(itab,1)={charchain};
 end
-
-%nb : char(Tabchar(:,jtab)) gives directly a column with the blanks filled