clear all
clc
a=input('Ingrese el número en hexadecimal a convertir: ','s');
%D = hex2dec(a)
v=fliplr(a);%almacenamos en un vector
%añado elementos
multi=0;
for n=1:length(v)
if v(n)=='1'
conver=str2num(v(n))
multi=multi+conver*16^(n-1)
end
if v(n)=='2'
conver=str2num(v(n))
multi=multi+conver*16^(n-1)
end
if v(n)=='3'
conver=str2num(v(n))
multi=multi+conver*16^(n-1)
end
if v(n)=='4'
conver=str2num(v(n))
multi=multi+conver*16^(n-1)
end
if v(n)=='5'
conver=str2num(v(n))
multi=multi+conver*16^(n-1)
end
if v(n)=='6'
conver=str2num(v(n))
multi=multi+conver*16^(n-1)
end
if v(n)=='7'
conver=str2num(v(n))
multi=multi+conver*16^(n-1)
end
if v(n)=='8'
conver=str2num(v(n))
multi=multi+conver*16^(n-1)
end
if v(n)=='9'
conver=str2num(v(n))
multi=multi+conver*16^(n-1)
end
if v(n)=='A'
conver=str2num(v(n))
conver=[10];
multi=multi+conver*16^(n-1)
end
if v(n)=='B'
conver=str2num(v(n))
conver=11;
multi=multi+conver*16^(n-1)
end
if v(n)=='C'
conver=multi+str2num(v(n))
conver=12;
multi=conver*16^(n-1)
end
if v(n)=='D'
conver=str2num(v(n))
conver=13;
multi=multi+conver*16^(n-1)
end
if v(n)=='E'
conver=str2num(v(n))
conver=14;
multi=multi+conver*16^(n-1)
end
if v(n)=='F'
conver=str2num(v(n))
conver=15;
multi=multi+conver*16^(n-1)
end
end