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