transdetobi.m

清华大学运筹学课件

function b=transdetobi(d,n,p)

d=d(:);
len_d=length(d);

if min(d)<0
  error('Cannot convert a negative number');
elseif ~isempty(find(d==inf))
  error('Input must not be Inf');
elseif find(d~=floor(d))
  error('Input must be an integer');
end

if nargin<2
   tmp=max(d);
   b1=[];
     while tmp>0
     b1=[bq rem(tmp,2)];
     tmp=floor(tmp/2);
     end
  
   n=length(b1);
end
 
 if nargin<3  
    p=2;
 end

 b=zeros(len_d,n);
 for i=1:len_d
     j=1;
     tmp=d(i);
     while(j<=n)&(tmp>0)
          b(i,j)=rem(tmp,p);
          tmp=floor(tmp/p);
     j=j+1;
     end
 end