MathGroup Archive 2012

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

Search the Archive

Re: Subscript on plus expression


How about this?

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]} 

Tests:

Subscript[a + b, k] 

Subscript[a x, k] 


David Park
djmpark at comcast.net 
http://home.comcast.net/~djmpark/index.html 



From: Dave Snead [mailto:dsnead6 at charter.net] 

Hi,

Mathematica fails to parenthesize the a+b in Subscript[Plus[a,b],k]

so the output looks identical to
Plus[a,Subscript[b,k]]

Is this a bug?
Is there an option to force the parentheses?

Thanks in advance,
Dave Snead






  • Prev by Date: Re: System of second-order nonlinear ordinary differential equations
  • Next by Date: Re: Is there a way to do comment with just one keystroke at the start
  • Previous by thread: Re: Plotting a series of Roots
  • Next by thread: Superscript on plus expression