function binnums=binnum(thebinnumber,digit)  %this program for the number to the bin maxtrix

 binnums(digit)=0;
  j=digit-1;
  for k=1:digit;
      if thebinnumber>=2^j
          binnums(j+1)=1;
          thebinnumber=thebinnumber-2^j;
      end  
     j=j-1;
  end