Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.


Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

Topic: Subscript on plus expression
Replies: 16   Last Post: Dec 3, 2012 3:18 AM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   Messages: [ Previous | Next ]
David Park

Posts: 1,560
Registered: 5/19/07
Re: Subscript on plus expression
Posted: Nov 19, 2012 7:18 PM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

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@comcast.net
http://home.comcast.net/~djmpark/index.html



From: Dave Snead [mailto:dsnead6@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







Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2014. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.