Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

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}}]




  • Prev by Date: Solving differential equations?
  • Next by Date: Re: get a table of coordinates from an image of a graph
  • Previous by thread: Re: Solving differential equations?
  • Next by thread: Re: front end equation formatting