Skip to main content

front end - preventing TraditionalForm from getting "squished"


TraditionalForm[] does a great job generally speaking, with complex equations like the following,


TraditionalForm[
Defer[

1/Pi =
2*Sum[((-1)^k*(6*k)!*(13591409 + 545140134*k))/((3*k)!*k!^3*640320^(3*k + 3/2)), {k, 0, 44}]
]
]

(which is to say…)


pretty equation


However, if I put this same equation in a Grid[] or Table[] or Column[], it gets "squished," as in the following


squished


How can I prevent this from happening? I particularly want to prevent it from swinging the upper bound of the summation to the right of the sigma.




Answer



Answer inspired by this :


Style[Grid[{{TraditionalForm[
Defer[1/Pi =
2*Sum[((-1)^k*(6*k)!*(13591409 + 545140134*k))/((3*k)!*
k!^3*640320^(3*k + 3/2)), {k, 0, 44}]]]}}],
UnderoverscriptBoxOptions -> {LimitsPositioning -> False}]

gives :


enter image description here



EDIT


Rojo's solution (see comments) is better because it doesn't reduce the sigma :


Grid[{{ TraditionalForm[Defer[1/Pi = 
2*Sum[((-1)^k*(6*k)!*(13591409 + 545140134*k))/((3*k)!*
k!^3*640320^(3*k + 3/2)), {k, 0, 44}]]] }},
AllowScriptLevelChange -> False]

enter image description here


Comments