--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/num3str.m	Tue Oct 20 16:23:49 2009 -0400
@@ -0,0 +1,40 @@
+function [t] = num3str(x,n,m,b)
+% function [t] = num3str(x,n,m,b)
+%   NUM2STR Number to string conversion.
+%
+%   Input:     x           : real number        
+%              n           : digits to the left of the decimal point
+%              m           : digits to the right of the decimal point
+%              b           : string of padding character, eg '0'
+%
+%	   T = NUM2STR(X)  converts the scalar number  X into a string
+%  	   representation  T  with about  4  digits and an exponent if
+%	   required.   This is useful for labeling plots with the
+%	   TITLE, XLABEL, YLABEL, and TEXT commands.  See also INT2STR,
+%	   SPRINTF, and FPRINTF.
+
+%   Felix Tubiana
+
+if nargin<1
+   help num3str
+   return
+end
+if nargin<2, n=4; end
+if nargin<3, m=4; end
+if nargin<4 b=' '; end
+if ndims(x) == 2 & length(x) > 1
+   [c,d] = size(x);
+   for i = 1:c
+      for j = 1:d         
+         t{i,j} = num3str(x(i,j), n, m, b);
+      end
+   end
+else
+   if isstr(x)
+      t = x;
+   else
+      t = sprintf(['%',int2str(n),'.',int2str(m),'f'],x);
+      ii=find(t==' ');
+      t(ii)=b;
+   end
+end