function e=basiswechsel(d,b,c)
N=length(d);
%Berechne Z
x=d';
for i=1:N
    x(i)=b^(N-i);
end
Z=d*x;
%Bestimme Anzahl an Stellen in neuer Basis
M=1;
a=c;
while floor(Z/a)>0
    M=M+1;
    a=a*c;
end
%Bestimme Koeffizineten in der neuen Basis
e=zeros(1,M);
for i=1:M
   e(i)=floor(Z/(c^(M-i)));
   Z=Z-e(i)*c^(M-i);
end



end