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