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

front end equation formatting

• To: mathgroup at smc.vnet.net
• Subject: [mg112496] front end equation formatting
• From: "Scot T. Martin" <smartin at seas.harvard.edu>
• Date: Fri, 17 Sep 2010 06:42:45 -0400 (EDT)

First Cell[] below shows an equation of equally sized character. Second 
Cell[] makes a smaller font of the terms in the FractionBox[]. Does anyone 
know how to set the formatting so that the font does not get smaller? 
Thank!

Cell[BoxData[
  FormBox[
   RowBox[{"h", "=",
    FractionBox["j", "k"]}], TraditionalForm]], "Input",
  CellChangeTimes->{{3.4936705626324425`*^9, 3.4936705700112553`*^9}}]


Cell[TextData[{
  "then, ",
  Cell[BoxData[
   FormBox[
    RowBox[{"h", "=",
     FractionBox["j", "k"]}], 
TraditionalForm]],FormatType->"TraditionalForm"]
}], "Text",
  CellChangeTimes->{{3.4936705831308784`*^9, 3.4936705899480906`*^9}}]