Re: Mathematica Ouput: subscripts and superscripts
- To: mathgroup at smc.vnet.net
- Subject: [mg15066] Re: Mathematica Ouput: subscripts and superscripts
- From: Rolf Mertig <rolf at mertig.com>
- Date: Thu, 10 Dec 1998 03:13:00 -0500
- Organization: Mertig Research & Consulting
- References: <74aj8i$46k@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Andreas Paul Friedrich Bernhard wrote:
>
> sub/super/over and underscripts. However, is it possible to define a
> variable (including any sub,super,over,underscripts) that is recognised
> as a single expression.
>
> For example I would like to use a variable defined as an x with two over
> dots (as in "x dot dot"), however Mathematica will not permit this.
>
> Similarly I would like to define a variable defined as x with the
> subscript 0a, however Mathematica will treats the subscript as a
> seperate 0*a subexpression, rather than an intrinsic part of the
> variable definition.
>
> Andy
If you basically care about the output, then one possibility is: xdd/:
MakeBoxes[xdd, _] := OverscriptBox["x", "\[DoubleDot]"]
x0a/: MakeBoxes[x0a, _] :=
SubscriptBox["x", StyleBox["0a", ZeroWidthTimes -> True]]
or, more general:
x/: MakeBoxes[x[i_Integer,a_Symbol], _]:=
SubscriptBox["x", StyleBox[RowBox[{i,a}], ZeroWidthTimes -> True]]
Now evaluate:
{xdd, x0a, x[1,s]}
and it looks nice.
Rolf
------
Rolf Mertig
Mertig Research & Consulting
Mathematica training and programming Development and distribution of
FeynCalc Amsterdam, The Netherlands
http://www.mertig.com