Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: front end equation formatting

  • To: mathgroup at smc.vnet.net
  • Subject: [mg112518] Re: front end equation formatting
  • From: "David Park" <djmpark at comcast.net>
  • Date: Sat, 18 Sep 2010 07:25:50 -0400 (EDT)

Paste the following into the InlineCell and then evaluate it in place.

Style[h == j/l, 
 FractionBoxOptions -> {AllowScriptLevelChange -> False}]


David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/  


From: Scot T. Martin [mailto:smartin at seas.harvard.edu] 

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: Problem with Run[]
  • Next by Date: Re: A little help with sort
  • Previous by thread: front end equation formatting
  • Next by thread: Re: front end equation formatting