       Math Formulas

• To: mathgroup at smc.vnet.net
• Subject: [mg92643] Math Formulas
• From: John <jwa0 at lehigh.edu>
• Date: Thu, 9 Oct 2008 06:36:43 -0400 (EDT)

```Mathematica 6, WindowsXP

NotebookPut[
Notebook[{Cell["October 7, 2008", "Text", TextAlignment -> 1,
FontSize -> 24, Bold,
CellMargins -> {{Inherited, Inherited}, {50, Inherited}}],
Cell["Probability Of Acceptance", "Section", "Text",
CellFrame -> False,
CellMargins -> {{Inherited, Inherited}, {4, 3}}],
Cell["Use the formula,", "Text", TextJustification -> 1,
Hyphenation -> True, FontSize -> 16, Bold, CellFrame -> False,
CellMargins -> {{Inherited, Inherited}, {10, Inherited}}],
Cell[BoxData[
RowBox[{ RowBox[{"(", GridBox[{{"c"}, {"i"}}], ")"}],
SuperscriptBox["p", "i"],
SuperscriptBox["(1-p)", "c-i"]}] ] ,        "Text",
FontSize -> 16, Bold, TextJustification -> 1, Hyphenation -> True,
CellMargins -> {{Inherited + 35, Inherited}, {10, Inherited}}],
Cell["to compute the probability that acceptance sampling deems a \
lot to be acceptable. Values of n, c amd p are specified by the \
user.", "Text", FontSize -> 16, Bold, TextJustification -> 1,
Hyphenation -> True, CellFrame -> False,
CellMargins -> {{Inherited, Inherited}, {10, Inherited}}]}]]

The cell that prints the  formula was suggested to me by Bob. It
prints the formula correctly.
My attempts to insert a summation sign in front of the formula failed.
The command

Sum[f,{i,0,c}]

didn't do the job. Maybe I didn't put it in the right place.

Latex formulas are elegant (suitable for framing). Can Mathematica
match the elegance of Latex? If so I want to know how to do it.

John

```

• Prev by Date: Re: How to print TraditionalForm without evaluation
• Next by Date: Re: Tough Limit
• Previous by thread: Re: NumberSigns and Number Formatting
• Next by thread: Re: Math Formulas