(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 4.0, MathReader 4.0, or any compatible application. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 9056, 317]*) (*NotebookOutlinePosition[ 10009, 348]*) (* CellTagsIndexPosition[ 9965, 344]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Formulas Onscreen - Default Stylesheet", "Section"], Cell[CellGroupData[{ Cell["Input", "Subsection", CellMargins->{{Inherited, 4}, {Inherited, Inherited}}], Cell[BoxData[ \(\[Integral]\_0\%\(2 \[Pi]\)\(\(1 - r\^2\)\/\(1 - 2 r\ cos \((\[Theta])\) + r\^2\)\) \[DifferentialD]\[Theta]\)], "Input", CellMargins->{{Inherited, 4}, {Inherited, Inherited}}], Cell[BoxData[ \(TraditionalForm\`\[Integral]\_0\%\(2 \[Pi]\)\(\(1 - r\^2\)\/\(1 - 2\ r\ cos\ \((\[Theta])\)\ + r\^2\)\) \[DifferentialD]\[Theta]\)], "Input", CellMargins->{{Inherited, 4}, {Inherited, Inherited}}] }, Open ]], Cell[CellGroupData[{ Cell["Text", "Subsection"], Cell[BoxData[ \(\((T1)\)\ So\ I\ said\ to\ her, \[Integral]\_0\%\(2 \[Pi]\)\(\(1 - r\^2\)\/\(1 - 2 r\ cos \((\[Theta])\) + r\^2\)\) \[DifferentialD]\[Theta]\)], "Text", CellMargins->{{Inherited, 4}, {Inherited, Inherited}}], Cell[TextData[{ "(T2) So I said to her, ", Cell[BoxData[ \(\[Integral]\_0\%\(2 \[Pi]\)\(\(1 - r\^2\)\/\(1 - 2 r\ cos \((\[Theta])\) + r\^2\)\) \[DifferentialD]\[Theta]\)]] }], "Text"], Cell[TextData[{ "(T3) So I said to her, ", Cell[BoxData[ \(TraditionalForm\`\[Integral]\_0\%\(2 \[Pi]\)\(\(1 - r\^2\)\/\(1 - 2 r\ \(cos(\[Theta])\) + r\^2\)\) \[DifferentialD]\[Theta]\)]] }], "Text"], Cell["\<\ The above are all text cells, but they were created in different \ ways.\ \>", "Text"], Cell["\<\ Cell (T1) was created by making a copy of the StandardForm input \ cell above, changing it to a text cell, then typing in the leading \ text.\ \>", "Text"], Cell["\<\ Cell (T2) was created by first typing the leading text into a text \ cell, then pasting the formula from the StandardForm input cell as an inline \ cell.\ \>", "Text"], Cell["\<\ In (T1) and (T2), pasting from the TraditionalForm cell instead has \ no effect; the format type is not carried along.\ \>", "Text", FontSlant->"Italic"], Cell["\<\ Cell (T3) was created by first typing the leading text into a text \ cell, then creating an inline cell and typing in the integral by hand.\ \>", \ "Text"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Common Problem #1: Formulas look ugly because they're in Courier \ font. \ \>", "Subsection", FontSlant->"Italic"], Cell["\<\ The default StandardForm specification specifically lists the \ Courier font , as does the InputForm specification. This is done so that \ these types of input cells use a boldface Courier font. But it has the \ unfortunate side effect that inline cells may also end up using the Courier \ font, especially if they are set to use StandardForm.\ \>", "Text"], Cell["\<\ Removing the Courier font from the StandardForm specification will \ fix the inline cells, but then StandardForm input cells also lose the Courier \ font, which is not desirable.\ \>", "Text"], Cell["\<\ There are a number of options that affect the the format applied to \ a particular cell style or inline cell. Here are \ \>", "Text"], Cell[CellGroupData[{ Cell["Stylesheets", "Subsubsection"], Cell["\<\ (1) DefaultFormatType\[Rule] (2) DefaultInlineFormatType\[Rule]\ \>", "Text"], Cell["\<\ These options may be applied to the definition of any cell style.\ \ \>", "Text", FontSlant->"Italic"] }, Open ]], Cell[CellGroupData[{ Cell["Menus", "Subsubsection"], Cell["(2) Menu: Cell/DefaultInlineFormatType", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Options Inspector", "Subsubsection"], Cell["\<\ (1) Cell Options/New Cell Defaults/DefaultFormatType (2) Cell Options/New Cell Defaults/DefaultInlineFormatType (3) Cell Options/New Cell Defaults/DefaultNewInlineCellStyle (1) Cell Options/New Cell Defaults/CommonDefaultFormatTypes (4) Formatting Options/Expression Formatting/FormatType\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Notes", "Subsubsection"], Cell["\<\ (1) These options are related; see online documentation for \ details. (2) These options are related; see online documentation for details. (3) Affects only inline cells created interactively. (4) For use in individual cells.\ \>", "Text"] }, Open ]] }, Open ]], Cell["\<\ Fix #1a: Use a Stylesheet to change the InlineFormula and \ DisplayFormula specifications (under Formulas and Programming) to a different \ font such as Times.\ \>", "Subsection", FontSlant->"Italic"], Cell["\<\ Fix #1b: Set the default format for Inline cells to \ TraditionalForm. (default as installed)\ \>", "Subsection", FontSlant->"Italic"], Cell[CellGroupData[{ Cell["\<\ Common Problem #2: Fractions have tiny numerators and denominators. \ \ \>", "Subsection", FontSlant->"Italic"], Cell["\<\ The cause of this is that the option ScriptSizeMultipliers is \ applied to fraction expressions as well as subscripts and superscripts.\ \>", \ "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Fix #2a: Apply the DisplayFormula style to inline cells.", "Subsection", FontSlant->"Italic"], Cell["\<\ The stylesheet description of the DisplayFormula style contains the \ option ScriptLevel\[Rule]0, which prevents the use of ScriptSizeMultipliers \ on the first level of fractions. You can apply any style from the Style menu \ to any selection of text, in particular to an entire inline cell.\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["(Inline) DisplayFormula", "Subsection", CellMargins->{{Inherited, 4}, {Inherited, Inherited}}], Cell[TextData[{ "(T2) So I said to her, ", Cell[BoxData[ StyleBox[\(\[Integral]\_0\%\(2 \[Pi]\)\(\(1 - r\^2\)\/\(1 - 2 r\ cos \((\[Theta])\) + r\^2\)\) \[DifferentialD]\[Theta]\), "DisplayFormula"]]] }], "Text"], Cell[TextData[{ "(T3) So I said to her, ", Cell[BoxData[ FormBox[ StyleBox[\(\[Integral]\_0\%\(2 \[Pi]\)\(\(1 - r\^2\)\/\(1 - 2 r\ \(cos(\[Theta])\) + r\^2\)\) \[DifferentialD]\[Theta]\), "DisplayFormula"], TraditionalForm]]] }], "Text"] }, Open ]], Cell["\<\ Fix #2b: Set ScriptLevel\[Rule]0 in the stylesheet definition of \ InlineFormula.\ \>", "Subsection", FontSlant->"Italic"], Cell[CellGroupData[{ Cell["\<\ Common Problem #3: Overscripts and Underscripts won't stay put. \ \ \>", "Subsection", FontSlant->"Italic"], Cell[TextData[{ "(T3) So I said to her, ", Cell[BoxData[ FormBox[ StyleBox[\(\[Sum]\+\(n = 1\)\%\[Infinity] 1\/n\^2\), "InlineFormula"], TraditionalForm]]], "." }], "Text"], Cell["\<\ This behavior is controlled by the LimitsPositioning option. Formatting Options/Specific Box Options/ UnderoverscriptBoxOptions/LimitsPositioning\[Rule]False\ \>", "Text"] }, Open ]], Cell["\<\ Fix #3a: Select the offending inline cell and apply the option Formatting Options/Specific Box Options/ UnderoverscriptBoxOptions/LimitsPositioning\[Rule]False. \ \>", "Subsection", FontSlant->"Italic"], Cell["\<\ Fix #3b: In the InlineFormula style, apply the option UnderoverscriptBoxOptions\[Rule]{LimitsPositioning->False}\ \>", "Subsection",\ FontSlant->"Italic"] }, Open ]] }, FrontEndVersion->"4.0 for Macintosh", ScreenRectangle->{{0, 640}, {0, 460}}, ScreenStyleEnvironment->"Working", WindowToolbars->{}, WindowSize->{520, 431}, WindowMargins->{{1, Automatic}, {Automatic, 0}}, ShowCellLabel->False, StyleDefinitions -> "Default.nb", MacintoshSystemPageSetup->"\<\ 00<0001804P000000]P2:?oQon82n@960dL5:0?l0080001804P000000]P2:001 0000I00000400`<300000BL?00400@0000000000000006P801T1T00000000000 00000000000000000000000000000000\>" ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1739, 51, 57, 0, 50, "Section"], Cell[CellGroupData[{ Cell[1821, 55, 84, 1, 46, "Subsection"], Cell[1908, 58, 230, 4, 47, "Input"], Cell[2141, 64, 250, 4, 48, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[2428, 73, 26, 0, 46, "Subsection"], Cell[2457, 75, 261, 4, 49, "Text"], Cell[2721, 81, 229, 6, 43, "Text"], Cell[2953, 89, 245, 6, 45, "Text"], Cell[3201, 97, 96, 3, 31, "Text"], Cell[3300, 102, 165, 4, 48, "Text"], Cell[3468, 108, 177, 4, 48, "Text"], Cell[3648, 114, 165, 4, 50, "Text"], Cell[3816, 120, 165, 4, 48, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[4018, 129, 126, 4, 46, "Subsection"], Cell[4147, 135, 367, 6, 82, "Text"], Cell[4517, 143, 202, 4, 48, "Text"], Cell[4722, 149, 143, 3, 48, "Text"], Cell[CellGroupData[{ Cell[4890, 156, 36, 0, 42, "Subsubsection"], Cell[4929, 158, 193, 5, 48, "Text"], Cell[5125, 165, 114, 4, 32, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[5276, 174, 30, 0, 42, "Subsubsection"], Cell[5309, 176, 54, 0, 31, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[5400, 181, 42, 0, 42, "Subsubsection"], Cell[5445, 183, 312, 6, 99, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[5794, 194, 30, 0, 42, "Subsubsection"], Cell[5827, 196, 249, 6, 82, "Text"] }, Open ]] }, Open ]], Cell[6103, 206, 212, 5, 82, "Subsection"], Cell[6318, 213, 147, 4, 64, "Subsection"], Cell[CellGroupData[{ Cell[6490, 221, 123, 4, 46, "Subsection"], Cell[6616, 227, 161, 4, 48, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[6814, 236, 101, 1, 46, "Subsection"], Cell[6918, 239, 316, 5, 82, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[7271, 249, 102, 1, 46, "Subsection"], Cell[7376, 252, 269, 7, 47, "Text"], Cell[7648, 261, 309, 8, 48, "Text"] }, Open ]], Cell[7972, 272, 134, 4, 46, "Subsection"], Cell[CellGroupData[{ Cell[8131, 280, 119, 4, 46, "Subsection"], Cell[8253, 286, 202, 7, 34, "Text"], Cell[8458, 295, 181, 4, 65, "Text"] }, Open ]], Cell[8654, 302, 215, 5, 82, "Subsection"], Cell[8872, 309, 168, 5, 64, "Subsection"] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)