       Re: Symbolic Formula

• To: mathgroup at smc.vnet.net
• Subject: [mg106363] Re: Symbolic Formula
• From: John <jwa0 at lehigh.edu>
• Date: Sun, 10 Jan 2010 03:31:17 -0500 (EST)
• References: <hi6t74\$a7b\$1@smc.vnet.net>

```On Jan 8, 4:17 am, John <j... at lehigh.edu> wrote:
> Mathematica 6, Windows XP
>
> The left-hand-side of the equality appearing below is shorthand
> notation for the the probability that would be computed, if the right
> hand side was evaluated for specified values of n and p. The
> appearance of  the equality is suitable for displaying in class on a
> projector.
>
>  Grid[{{"P(X=j|n,p)=", Binomial[n, j] // TraditionalForm ,
>    "\!\(\*SuperscriptBox[\"p\", \
> \"j\"]\)(1-p\!\(\*SuperscriptBox[\")\",
> RowBox[{\"n\", \"-\", \"j\"}]]\)"}}, Frame -> True,
>  Spacings -> {.5, 2},
>  ItemStyle -> Directive[FontFamily -> "Tahoma", Bold, 24]]
>
> The cumulative distribution function includes a summation sign on the
> right-hand-side of the equality, but the appearance of my attempts to
> insert the summation sign are not acceptable.
>
> Appearance matters because the equality is displayed on a projector
> and viewed by students in class.
>
> John

I started with the following:

TraditionalForm /@ {Sum[( {
{n},
{i}
} ), {i, 0, j}]}

Manually removed the curly brackets from previous output, and used the
palette to add the remainder of the formula.

\!\(\*
TagBox[
FormBox[
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"i", "=", "0"}], "j"],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"n"},
{"i"}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {},
"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}],