Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

[Date Index] [Thread Index] [Author Index]

Search the Archive

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

Addendum:

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

What appears above is exactly what I want except that it is too small
to be viewed on a projector. How do I make it bigger?

John


  • Prev by Date: Re: More /.{I->-1} craziness
  • Next by Date: Re: export differential equation solution obtained
  • Previous by thread: Re: Symbolic Formula
  • Next by thread: Re: Symbolic Formula