cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
  • JMP 19 is here! See the new features at jmp.com/new.
  • Due to global connectivity issues impacting AWS Services, users may experience unexpected errors while attempting to authorize JMP. Please try again later or contact support@jmp.com to be notified once all issues are resolved.

Discussions

Solve problems, and share tips and tricks with other JMP users.
Choose Language Hide Translation Bar
justvince
Level III

Convert decimal to Binary

I need to convert Columns of data (decimal) to binary (8 bit) , then concantenate say the 4 LSB to the next column of data with the 4 MSB.  Is there a way to at least convert decimal data to binary in JMP? 

1 ACCEPTED SOLUTION

Accepted Solutions
Duane_Hayes
Staff (Retired)

Re: Convert decimal to Binary

As previously stated:

 

Hi - can you adapt the following to do what you need?

 

 

// Function to convert an integer into any positive base up to hexadecimal;
base = Function( {n, nbase}, {default local},        ndash = "";        digits= "0123456789ABCDEF";      While( n > 0,               remainder= Mod( n, nbase );               newdigit= Substr( digits, (1 + remainder), 1 );               ndash= newdigit || ndash;               n= (n - remainder)/ nbase;        ); ndash; );   // Print out a few numbers to show it working in binary;   For( i = 1, i <= 32, i++, Show( Char( i ) || " = " || base( i, 2 ) ) );   // Or create some new columns in a data table and fill them;   dt = New Table( "Number Bases", New Column( "N", numeric, values( Index( 1, 32 ) ) ) );   numberbase = {2, 3, 8, 10, 12, 16}; // Some familiar number bases;   For( i = 1, i <= N Items( numberbase ), i++,      k= numberbase[i];      dt<< New Column( "Base "|| Char( k ), character );      For( j = 1, j <= N Row( dt ), j++,      Column( dt, ("Base "|| Char( k )) )[j] = base( j, k ) );      );   // End of program;

 

 

And:

 

No problem - an extra "if" clause will treat n=0 as a special case:

 

 

base = function({n, base}, {default local}, ndash = ""; digits = "0123456789ABCDEF";
if(n > 0, while(n > 0, remainder = mod(n, base); newdigit = substr(digits, (1 + remainder), 1);
ndash = newdigit || ndash; n = (n - remainder) / base), ndash = "0"); ndash);

 

 

(I'm assuming that n is a non-negative integer, and that base is a positive integer.)

Duane Hayes

View solution in original post

4 REPLIES 4

Re: Convert decimal to Binary

Hi - can you adapt the following to do what you need?

// Function to convert an integer into any positive base up to hexadecimal;

base = Function( {n, nbase}, {default local},

       ndash = "";

       digits= "0123456789ABCDEF";

     While( n > 0,

              remainder= Mod( n, nbase );

              newdigit= Substr( digits, (1 + remainder), 1 );

              ndash= newdigit || ndash;

              n= (n - remainder)/ nbase;

       );

ndash;

);

// Print out a few numbers to show it working in binary;

For( i = 1, i <= 32, i++, Show( Char( i ) || " = " || base( i, 2 ) ) );

// Or create some new columns in a data table and fill them;

dt = New Table( "Number Bases", New Column( "N", numeric, values( Index( 1, 32 ) ) ) );

numberbase = {2, 3, 8, 10, 12, 16}; // Some familiar number bases;

For( i = 1, i <= N Items( numberbase ), i++,

     k= numberbase[i];

     dt<< New Column( "Base "|| Char( k ), character );

     For( j = 1, j <= N Row( dt ), j++,

     Column( dt, ("Base "|| Char( k )) )[j] = base( j, k ) );

     );

// End of program;

justvince
Level III

Re: Convert decimal to Binary

It is a start.  But it appears the function base will not convert a zero to binary 0,

Re: Convert decimal to Binary

No problem - an extra "if" clause will treat n=0 as a special case:

base = function({n, base}, {default local}, ndash = ""; digits = "0123456789ABCDEF";

if(n > 0, while(n > 0, remainder = mod(n, base); newdigit = substr(digits, (1 + remainder), 1);

ndash = newdigit || ndash; n = (n - remainder) / base), ndash = "0"); ndash);

(I'm assuming that n is a non-negative integer, and that base is a positive integer.)

Duane_Hayes
Staff (Retired)

Re: Convert decimal to Binary

As previously stated:

 

Hi - can you adapt the following to do what you need?

 

 

// Function to convert an integer into any positive base up to hexadecimal;
base = Function( {n, nbase}, {default local},        ndash = "";        digits= "0123456789ABCDEF";      While( n > 0,               remainder= Mod( n, nbase );               newdigit= Substr( digits, (1 + remainder), 1 );               ndash= newdigit || ndash;               n= (n - remainder)/ nbase;        ); ndash; );   // Print out a few numbers to show it working in binary;   For( i = 1, i <= 32, i++, Show( Char( i ) || " = " || base( i, 2 ) ) );   // Or create some new columns in a data table and fill them;   dt = New Table( "Number Bases", New Column( "N", numeric, values( Index( 1, 32 ) ) ) );   numberbase = {2, 3, 8, 10, 12, 16}; // Some familiar number bases;   For( i = 1, i <= N Items( numberbase ), i++,      k= numberbase[i];      dt<< New Column( "Base "|| Char( k ), character );      For( j = 1, j <= N Row( dt ), j++,      Column( dt, ("Base "|| Char( k )) )[j] = base( j, k ) );      );   // End of program;

 

 

And:

 

No problem - an extra "if" clause will treat n=0 as a special case:

 

 

base = function({n, base}, {default local}, ndash = ""; digits = "0123456789ABCDEF";
if(n > 0, while(n > 0, remainder = mod(n, base); newdigit = substr(digits, (1 + remainder), 1);
ndash = newdigit || ndash; n = (n - remainder) / base), ndash = "0"); ndash);

 

 

(I'm assuming that n is a non-negative integer, and that base is a positive integer.)

Duane Hayes

Recommended Articles