wdec2bas.m

来自「very good matlab of Monte carlo」· M 代码 · 共 17 行

%DEC2BAS		Converts a decimal number to a vector of coefficients base r
%
%y = dec2bas(n,r)
%
%n = positive integer to convert
%r = base to convert (1, ... , 9)

function y=wdec2bas(n,r) %Walter's dec2bas

i=1;
y(1)=0;
while n>0
   y(i)=rem(n,r);
   n=floor(n/r);
   i=i+1;
   
end;