MathGroup Archive 2008

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

Search the Archive

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