Superscript on plus expression

• To: mathgroup at smc.vnet.net
• Subject: [mg128796] Superscript on plus expression
• From: "Dave Snead" <dsnead6 at charter.net>
• Date: Tue, 27 Nov 2012 03:30:28 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net
• References: <20121117084935.868E56AF3@smc.vnet.net> <19898081.6403.1353229345311.JavaMail.root@m06> <000301cdc668\$e3ec8740\$abc595c0\$@comcast.net>

```Hi,

Mathematica fails to parenthesize the a+b in Superscript[Plus[a,b],k]
so the output looks identical to
Plus[a,Superscript[b,k]]

Previous suggestions that worked to fix a similar problem for the Subscript
case, i.e.,

Format[Subscript[arg_Plus, k_]] :=
Subscript[
"(" <> StringJoin @@ Riffle[ToString /@ (List @@ arg), " + "] <>
")", k]

and

MakeBoxes[Subscript[(head : (Plus | Times))[args__], k_],
form : (StandardForm | TraditionalForm)] :=
InterpretationBox[#1, #2] & @@ {SubscriptBox[
RowBox[{"(", ToBoxes[head[args], form], ")"}], ToBoxes[k, form]],

don't carry over analogously to the Superscript case!

Format[Superscript[arg_Plus, k_]] :=
Superscript[
"(" <> StringJoin @@ Riffle[ToString /@ (List @@ arg), " + "] <>
")", k]

and

MakeBoxes[Superscript[(head : (Plus | Times))[args__], k_],
form : (StandardForm | TraditionalForm)] :=
InterpretationBox[#1, #2] & @@ {SuperscriptBox[
RowBox[{"(", ToBoxes[head[args], form], ")"}], ToBoxes[k, form]],

don't work!

How can I get Mathematica to parenthesize the sum in
Superscript[Plus[a,b],k] ?

```

• Prev by Date: inserting an equation and plotting it
• Next by Date: Re: Manually tell Mathematica how to evaluate integrals
• Previous by thread: Re: Subscript on plus expression
• Next by thread: Re: Superscript on plus expression