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,
FontFamily -> "Helvetica"] // TraditionalForm
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
Addendum:
Step 1:
TraditionalForm /@ {Sum[( {
{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]", ")"}]}],
TraditionalForm],
TraditionalForm,
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