MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: balanced ternary arithmetic


Karl:

I don't know of a package that does this, but here is code that I 
recently wrote for a course I'm teaching.  

Ken Levasseur
Math. Sci.
UMass Lowell

In[1]:=
tern[0]={0}; tern[1]={1};tern[-1]={-1};


In[2]:=
tern[k_]:=tern[k]=Join[ tern[Quotient[k,3,-1]],tern[Mod[k,3,-1]]]

In[3]:=
tern[2]

Out[3]=
{1, -1}

In[4]:=
tern[100]

Out[4]=
{1, 1, -1, 0, 1}

In[5]:=
tern[-32]

Out[5]=
{-1, -1, 1, 1}

Karl D'Adamo wrote:

>Does anyone know of any packages available that can express numbers in
>balanced ternary notation?  The BaseForm function can do regular base 3,
>but I want to use -1,0,1
>
>Thanks.
>
>
>




  • Prev by Date: Re: graphics on the same line
  • Next by Date: Re: weibull distribution
  • Previous by thread: balanced ternary arithmetic
  • Next by thread: Math LM