Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

Re: Subscript on plus expression

  • To: mathgroup at smc.vnet.net
  • Subject: [mg128717] Re: Subscript on plus expression
  • From: "djmpark" <djmpark at comcast.net>
  • Date: Mon, 19 Nov 2012 19:18:19 -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>

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