Coding Mathlab mencari Hexadecimal,,..

Coding nya,,..

function konversi

%*********************************************************

%script fungsi untuk melakukan konversi bilangan diketahui

%koefisien-koefisien a1,a2,a3,......an dari suatu polinomial

%dan basis bilangan b

%maka dapat dihitung bn,bn-1,bn-2,.....0 sebagai berikut:

%bn = an

%bn-1 = an-1 bn*b

%bn-2 = an-2 bn*b

%********************************************************

clc

fprintf('<< program konversi bilangan dengan algoritma-1 >>\n');

fprintf('****************************************************');

%proses input

strBIL=input('\nMasukkkan bilangan   =','s');

basis= input('basis bilangan awal (2/8/10/16)=');

%proses perhitungan

[a n] = size (strBIL); %mengetahui panjang string

%chek apakah bilangan hexadesimal

switch upper(strBIL(1))

case'A'

    BSbl = 10;

case 'B'

    BSb1 = 11;

case 'C'

    BSb1 = 12;

case 'D'

    BSb1 = 13;

case 'E'

    BSb1 = 14;

case 'F'

    BSb1 = 15;

otherwise

    BSb1=str2num(strBIL(1));

end;

for i=2:n

    %chek apakah bilangan hexadesimal

    switch upper(strBIL(i))

    case 'A'

        BAkhr=10+BSb1*basis;

    case 'B' 

        BAkhr=11+BSb1*basis;

    case 'C'

        BAkhr=12+BSb1*basis;

    case 'D'

        BAkhr=13+BSb1*basis;

    case 'E'

        BAkhr=14+BSb1*basis;

    case 'F'

        BAkhr=15+BSb1*basis;

    otherwise 

        BAkhr=str2num(strBIL(i))+BSb1*basis;

    end;

    BSb1=BAkhr;

end;

fprintf('>>hasil konversi bilangan = %d => basis 10\n',BAkhr);

return