Re: Superscript on plus expression
- To: mathgroup at smc.vnet.net
- Subject: [mg128815] Re: Superscript on plus expression
- From: Bob Hanlon <hanlonr357 at gmail.com>
- Date: Wed, 28 Nov 2012 03:16:34 -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>
You could use a replacement rule. ssr = ss_?( # === Subscript || # === Superscript&)[arg_Plus,k_] :> ss["(" <> StringJoin@@Riffle[ToString/@ (List@@arg), " + "] <> ")", k]; {Subscript[a+b, k], Superscript[a+b, k]}/.ssr Bob Hanlon On Tue, Nov 27, 2012 at 3:30 AM, Dave Snead <dsnead6 at charter.net> wrote: > 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]], > Subscript[head[args], k]} > > 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]], > Superscript[head[args], k]} > > don't work! > > > How can I get Mathematica to parenthesize the sum in > Superscript[Plus[a,b],k] ? > > Thanks in advance, > Dave Snead > > > > >
- References:
- Plotting a series of Roots
- From: William Duhe <wjduhe@loyno.edu>
- Plotting a series of Roots