       Re: Re: Symbolic Formula

• To: mathgroup at smc.vnet.net
• Subject: [mg106388] Re: [mg106347] Re: Symbolic Formula
• From: "David Park" <djmpark at comcast.net>
• Date: Mon, 11 Jan 2010 05:30:57 -0500 (EST)
• References: <hi6t74\$a7b\$1@smc.vnet.net> <18739556.1263114379997.JavaMail.root@n11>

```Would the following work for you?

mysum[i_, n_, p_] :=
Interpretation[Row[{"P(", X == i, "|", n, ", ", p, "))"}],
mysum[i, n, p]]

mysum[i, n,
p] == (Sum[Binomial[n, i] p^i (1 - p)^(n - i), {i, 0, j}] //
HoldForm) // Magnify[#, 2.5] & // TraditionalForm

or

Style[mysum[i, n,
p] == (Sum[Binomial[n, i] p^i (1 - p)^(n - i), {i, 0, j}] //
HoldForm), FontSize -> 35,

David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/

From: John [mailto:jwa0 at lehigh.edu]

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

Step 1:

{n},
{i}
} ), {i, 0, j}]}

Step 2

Manually delete the curly brackets

Step 3

Editing after step 3 produced the following:

\!\(\*
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]", ")"}]}],
Editable->True]\) p^i (1 - p)^(n - i)

The formula on the screen is correct, but it is too small to be viewed
on a projector. Doubling the size works, but if possible, I would
prefer to change the font of the text in the formula.

John

```

• Prev by Date: Re: Manipulating FinancialData[]
• Next by Date: Re: More /.{I->-1} craziness
• Previous by thread: Re: Symbolic Formula
• Next by thread: export differential equation solution obtained through Mathematica to