Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Formatting Problem with Summation Symbol

• To: mathgroup at smc.vnet.net
• Subject: [mg88602] Re: [mg88550] Formatting Problem with Summation Symbol
• From: Carl Woll <carlw at wolfram.com>
• Date: Fri, 9 May 2008 03:27:15 -0400 (EDT)
• References: <200805080813.EAA14300@smc.vnet.net>

David Park wrote:

>I often write short derivations in a single cell with a statement on each 
>line and sometimes Print statements interspersed as commentary. This gives 
>one input cell and multiple output cells. Then one can select all the output 
>cells and double-click to hide the input cell. However, sometimes it is a 
>bit inconvenient to select all the output cells so I would like to display 
>them as lines in a  Column instead. Then there would be only one output cell 
>to select. However, it is difficult to obtain the same formatting in Column 
>as one obtains in output cells.
>
>Here is an example:
>
>p[x] == Sum[a[n] x^n, {n, 0, N}] // TraditionalForm
>
>Now I try to display the same statement as part of a Column. (Usually one 
>would have more entries but here I just simplify it to one entry.)
>
>Style[Column[{p[x] == Sum[a[n] x^n, {n, 0, N}]}],
>  "Output"] // TraditionalForm
>
>This does not look like the ordinary "Output" formatting. I can improve the 
>limits positioning by using:
>
>Style[Column[{p[x] == Sum[a[n] x^n, {n, 0, N}]}], "Output",
>  UnderoverscriptBoxOptions -> {LimitsPositioning ->
>     False}] // TraditionalForm
>
>This still does not look like normal "Output" because the Sigma is too 
>small. I can make the Sigma larger by using:
>
>Style[Column[{p[x] == Sum[a[n] x^n, {n, 0, N}]}], "Output",
>  UnderoverscriptBoxOptions -> {LimitsPositioning -> False},
>  SpanMinSize -> 2] // TraditionalForm
>
>But now the brackets are too large. Is there a method to use a Column 
>expression and have each line look like regular Output formatting?
>
>  
>
Column formats its contents using ScriptLevel->1. So, override this by 
including an explicit Style directive:

Column[{Style[p[x] == Sum[a[n] x^n, {n, 0, N}], ScriptLevel -> 0]}]

Carl Woll
Wolfram Research

• References:
  • Formatting Problem with Summation Symbol
    • From: "David Park" <djmpark@comcast.net>