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