Převod sousat

[Nymik]

Dobrý den, potřeboval bych poradit jak pozměnit kod, tak aby vypisoval i čísla od 11tkové soustavy do 16tkové v nasledujícím kodu:

M soubor:

a = input('Zadej číslo v desítkové soustavě: ');
b = input('Zadej zaklad soustavy: ');
bin = decbin(a, b);
str = sprintf('%1d je v binarním kodu %1s.', a, bin);
disp(str);

a funkce :

function [bin] = decbin(dec, zaklad)
% Funkce vrací řetězec znaků odpovídající číslu v dec. v soustvě základ
dec = int32(dec);
zaklad = int32(zaklad);
bin = '';
while (dec ~= 0)
zbytek = rem(dec, zaklad);
dec = idivide(dec, zaklad, 'fix');
bin = strcat(char(48 + zbytek), bin);
end


Předem děkuju.