Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

Re: How to create a new Form

  • To: mathgroup at smc.vnet.net
  • Subject: [mg58859] Re: How to create a new Form
  • From: "Nilton" <nilton.volpato at ig.com.br>
  • Date: Thu, 21 Jul 2005 03:08:05 -0400 (EDT)
  • References: <200507170704.DAA02672@smc.vnet.net><dbidvj$bqn$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

thanks stephen, thanks carl, both solutions worked as I wanted.

-- Nilton

stephen layland wrote:
> and thus spake Nilton [2005.07.17 @ 02:16]:
> > I would like to create a new Form that is a "wrapper" (like Short,
> > CForm, ...), which affects printing, but not evaluation. For example:
> >
> > In[1]:= 10 + f[5] // BinaryForm
> >
> > Out[1]//BinaryForm =
> >         1010 + f[101]
> >
> > In[2]:= %
> > Out[2]= 10 + f[5]
> >
> > I know there is BaseForm, but this is just an example. In fact I would
> > like to do something more complicated, but must know how to do
> > something like this first.
> >
> > Can anyone help?
>
> Try something like this:
>
>     In[1]:= Format[BinaryForm[x_]] := x /. n_?NumberQ :> FromDigits[IntegerDigits[n, 2]]
>         Unprotect[$OutputForms]; AppendTo[$OutputForms,BinaryForm];
>         Protect[$OutputForms];
>
>     In[4]:= 1234+f[234+x]//BinaryForm
>
>     Out[4]//BinaryForm=
>     10011010010+f[11101010+x]
>
>     In[5]:=
>     %
>
>     Out[5]=
>     1234+f[234+x]
>
>
> (and I'd recommend avoiding looking at the Combinatorica code. ;) )
>
> Happy Hacking!
>
> > Thanks,
> > -- Nilton
>
> --
> /*------------------------------*\
> |        stephen layland         |
> |    Documentation Programmer    |
> | http://members.wri.com/layland |


  • Prev by Date: Re: writing text and formula in mathematica
  • Next by Date: Re: Re: Directed Graph from Adjacency Matrix
  • Previous by thread: Re: How to create a new Form
  • Next by thread: Re: How to create a new Form