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