NUMBER SYSTEMS/ BASE CONVERTER: output=powr2(b) - File Exchange

Code covered by the BSD License

Highlights from
NUMBER SYSTEMS/ BASE CONVERTER

num_sys(varargin) GUI for number system converter.
[e,factor]=div2(a) This function divides an array by 2 and calculates the remainder too.
b=str2num(a) This function converts a string into an array.
output=array_adder(array1,arr... This function adds 2 arrays, after making them of equal lengths by appending with reqd number of zeros.
output=bin2hex(input) This function converts a single-digit binary number into corresponding hexagonal number.
output=bin2oct(input) This function converts a single-digit binary number into corresponding octagonal number.
output=bin_2_dec(input) This function converts an binary number into corresponding decimal number.
output=bin_2_hex(input) This function converts an binary number into corresponding hexagonal number.
output=bin_2_oct(input) This function converts an binary number into corresponding octagonal number.
output=bincheck(input) This function keeps it same if its a valid number in this system.
output=dec2bin2(input) This function converts an array in binary format to an array in decimal format.
output=dec_2_bin(input) This function converts an decimal number into corresponding binary number.
output=dec_2_hex(input) This function converts an decimal number into corresponding hexagonal number.
output=dec_2_oct(input) This function converts an decimal number into corresponding octagonal number.
output=deccheck(input) This function keeps it same if its a valid number in this system.
output=hex2bin(input) This function converts a single-digit hexagonal number into corresponding binary number.
output=hex_2_bin(input) This function converts an decimal number into corresponding octagonal number.
output=hex_2_dec(input) This function converts an hexagonal number into corresponding decimal number.
output=hex_2_oct(input) This function converts an hexadecimal number into corresponding octagonal number.
output=hexcheck(input) This function keeps it same if its a valid number in this system.
output=oct2bin(input) This function converts a single-digit octagonal number into corresponding binary number.
output=oct_2_bin(input) This function converts an octagonal number into corresponding binary number.
output=oct_2_dec(input) This function converts an octagonal number into corresponding decimal number.
output=oct_2_hex(input) This function converts an octagonal number into corresponding hexadecimal number.
output=octcheck(input) This function keeps it same if its a valid number in this system.
output=powr2(b) This function calculates the power of 2 with the input as the exponent.
View all files

from NUMBER SYSTEMS/ BASE CONVERTER by Divakar Roy
Convert a number between different number systems-hex,oct,bin,dec.

output=powr2(b)

function output=powr2(b)

% This function calculates the power of 2 with the input as the exponent.
%  Class of both variables-output and b are "char".
if ( b==0 || b==1 || b==2 )
    output=num2str(power(2,b));
end
a=2;
c=zeros(1,b);
%==========================================================================
num(1)=a*a;
count2=1;
check2=10;
while 1
    check=a/check2;
    if(check<1)
        len=count2;
        break;
    end
    count2=count2+1;
    check2=check2*10;
end
expo=power(10,len);
c(1)=num(1)-floor(num(1)/expo)*expo;
c(2)=floor(num(1)/expo);
%==========================================================================
if(b>2)
    d=[0 0];
    for k=1:b
        num(1)=c(k)*a+d(2);
        d(1)=num(1)-floor(num(1)/expo)*expo;
        d(2)=floor(num(1)/expo);
        got(k)=d(1); %#ok<AGROW>
    end
    %==========================================================================
    for count=1:b-3
        c=got;
        for k=1:b
            num(1)=c(k)*a+d(2);
            d(1)=num(1)-floor(num(1)/expo)*expo;
            d(2)=floor(num(1)/expo);
            got(k)=d(1); %#ok<AGROW>
        end
    end
    got=fliplr(got);
    %==========================================================================
    boss=1;
    if(got(1)==0)
        count3=0;
        for j=2:length(got)
            if(got(j)~=0)
                boss=j;
                break;
            end
            count3=count3+1;
        end
    end
    for i=1:length(got)-boss+1
        jad(i)=got(i+boss-1); %#ok<AGROW>
    end
    %==========================================================================
    expo1=power(10,len-1);
    output=[];
    for j=1:length(jad)
        fiop=num2str(jad(j));
        if((jad(j)/expo1)<1&&j~=1)
            want=len-length(fiop);
            zor=[];
            for k=1:want
                zor=[zor '0']; %#ok<AGROW>
            end
            output=[output zor fiop]; %#ok<AGROW>
        end
        if((jad(j)/expo1)>=1||j==1)
            output=[output fiop]; %#ok<AGROW>
        end
    end
end

Highlights from NUMBER SYSTEMS/ BASE CONVERTER

Highlights from
NUMBER SYSTEMS/ BASE CONVERTER