arctic40km/matlab/myint2str.m

function s=myint2str(x,n);
%MYIN2STR(X,N)   convert integer to string with leading zeros
%                padds integer X with zeros to N locations

if nargin < 2, n=2;  end
if nargin < 1, help myint2str, return, end

s=int2str(x);
n=n-length(s);
for i=1:n
  s=['0' s];
end
1	dimitri	1.1	function s=myint2str(x,n);
2			%MYIN2STR(X,N) convert integer to string with leading zeros
3			% padds integer X with zeros to N locations
4
5			if nargin < 2, n=2; end
6			if nargin < 1, help myint2str, return, end
7
8			s=int2str(x);
9			n=n-length(s);
10			for i=1:n
11			s=['0' s];
12			end