function s=dec2basebis(d,b)

% passage de la base 10 à la base b (adaptée et inspirée de dec2base)
% 
%   *********************************************************
%    s=dec2basebis(d,b) :  
%  
%    * Entrées : 
%       *  d : entier positif ou nul (numérique ou symbolique)
%    * Entrées facultative
%       *  b : entier supérieur à 2, égal à 2 par défaut.
%    * Sorties : 
%       * s est vide si d=0
%             sinon, s est un tableau contenant les chiffres (dans le sens
%             de l'écriture) de d en base b, soit tels que : 
%             d=sum_{i=0}^n s(n+1-i) b^i.
%               
%  
%   ************ Fonctions auxiliaires utilisées ************
%  
%      aucune
%  
%   *********************************************************
%  
%   2025 by          Jérôme BASTIEN
%                    Université Claude Bernard Lyon I, Polytech Lyon, Laboratoire LIBM, Villeurbanne
%                    E-Mail : jerome.bastien@univ-lyon1.fr
% 

if nargin==1||isempty(b)
    b=2;
end
if d==0
    s=[];
else
    n=floor(log(d)/log(b));
    if isnumeric(d)
        dn=n;
        s=zeros(1,n+1);
        isn=1;
    else
        dn=double(n);
        s=sym(zeros(1,dn+1));
        isn=0;
    end
    db=d;
    for i=0:dn
        if i<=dn-1||~isn
            Q=floor(db/b);
        end
        if isn
            s(dn+1-i)=rem(db,b);
        else
            s(dn+1-i)=db-Q*b;
        end
        db=Q;
    end
    if s(1)==0
        error('s(1) est nul');
    end
end