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