v4_3deg/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

% replacement code contributed by M. Losch, November 28, 2008
 fmt = sprintf('%%0%iu',n);
 s=sprintf(fmt,x);
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
13
14	% replacement code contributed by M. Losch, November 28, 2008
15	fmt = sprintf('%%0%iu',n);
16	s=sprintf(fmt,x);