The cell
corresponds to the textual form
Cell[TextData[{
"The ", StyleBox["average rate of change", FontWeight->"Bold"],
" in ",
Cell[BoxData[FormBox["f", TraditionalForm]]],
" on the interval ",
Cell[BoxData[FormBox[
RowBox[{"[", RowBox[{"a", ",", RowBox[{"a", "+", "h"}]}], "]"}], TraditionalForm]]],
" is the slope of the corresponding secant line: \n",
Cell[BoxData[FormBox[GridBox[{
{GridBox[{{
RowBox[{SubscriptBox["m", "sec"], "=", FractionBox[
RowBox[{RowBox[{"f", "(", RowBox[{"a", "+", "h"}], ")"}], "-",
RowBox[{"f", "(", "a", ")"}]}], "h"]}]}
},
GridBoxAlignment->{"Columns" -> {{"="}}}]}},
GridBoxItemSize->{"Columns" -> {{
Scaled[0.96]}}}], TraditionalForm]]],
"\nThe ", StyleBox["instantaneous rate of change", FontWeight->"Bold"],
" in ",
Cell[BoxData[FormBox["f", TraditionalForm]]],
" at ",
Cell[BoxData[FormBox["a", TraditionalForm]]],
" is "
}], "Definition",
CellChangeTimes->{{3.454944654993936*^9, 3.45494474976772*^9}, {
3.4549518777111692`*^9, 3.454951884742343*^9}, {
3.460806271054368*^9, 3.4608062731390657`*^9}, {
3.478189589239235*^9, 3.478189591304613*^9}, {3.487447061963195*^9,
3.487447061963235*^9}}]
I can't figure out how to enter this in the Mathematica user interface. It seems as though the displayed equation on the second line is an inline cell that is aligned using GridBox
, but I don't see how to create that effect.
GridBoxItemSize
option there. $\endgroup$Writing Assistant
available in thePalettes
menu. See the options underMath Cells
drop-down menu in theWriting and Formatting
section of the palette. $\endgroup$