       Re: simple question

• To: mathgroup at smc.vnet.net
• Subject: [mg76447] Re: simple question
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Tue, 22 May 2007 02:55:59 -0400 (EDT)
• Organization: Uni Leipzig
• References: <f2rrb1\$a36\$1@smc.vnet.net>

```Hi,

Unprotect[Element]

Element /: MakeBoxes[Element[a__, dom_],
fmt_: StandardForm] := (Print[a];
RowBox[{"Element", "[", MakeBoxes[a, fmt], ",", MakeBoxes[b, fmt],
"]"}])

Protect[Element]

will do that.

Regards
Jens

dimitris wrote:
> I think the following is very simple but anyway...
>
> Suppose the following expression
>
> In:=
> \!\(o = \((\((2\/\(27 + 3\ \@69\))\)\^\(1/3\) + 1\/3\ \((1\/2\ \((27 +
> 3\ \
> \@69)\))\)\^\(1/3\))\)\^27369\)
>
> Out=
> \!\(\((\((2\/\(27 + 3\ \@69\))\)\^\(1/3\) + 1\/3\ \((1\/2\ \((27 + 3\
> \
> \@69)\))\)\^\(1/3\))\)\^27369\)
>
> (It is in StandardForm!)
>
> In:=
> o//InputForm
> Out//InputForm=
> ((2/(27 + 3*Sqrt))^(1/3) + ((27 + 3*Sqrt)/2)^(1/3)/3)^27369
>
> Now consider the command
>
> In:=
> Element[o,Integers]//InputForm
>
> Out//InputForm=
> ((2/(27 + 3*Sqrt))^(1/3) + ((27 + 3*Sqrt)/2)^(1/3)/3)^27369
> Integers
>
> Even the presence of //InputForm it appears the special
> character \[Element].
>
> However I would like as output of In
>
> Element[((2/(27 + 3*Sqrt))^(1/3) + ((27 + 3*Sqrt)/2)^(1/3)/
> 3)^27369, Integers]
>
> What must be modified to this end?
>
> Thanks
> Dimitris
>
>

```

• Prev by Date: Re: Re: Re: Re: 6.0 not seeing style
• Next by Date: Re: Re: change \$UserDocumentsDirectory
• Previous by thread: Re: simple question
• Next by thread: Re: Re: Number of Differing Digits & Another