MathGroup Archive 2010

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

Search the Archive

Re: front end equation formatting


You want this...

Cell[TextData[{
 "then, ",
 Cell[BoxData[
  FormBox[
   RowBox[{"h", "=", 
    FractionBox["j", "k"]}], TraditionalForm]]]
}], "Text",
 ScriptSizeMultipliers->{1.}]

ScriptSizeMultipliers is fully documented, so you can read more about how it 
works.

Sincerely,

John Fultz
jfultz at wolfram.com
User Interface Group
Wolfram Research, Inc.


On Fri, 17 Sep 2010 06:42:45 -0400 (EDT), Scot T. Martin wrote:
> 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: Re: A little help with sort
  • Next by Date: Re: Need speed partitioning WeatherData
  • Previous by thread: Re: front end equation formatting
  • Next by thread: Range of data with BezierFunction