MathGroup Archive 1996

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

Search the Archive

MMA 3.0 benchmark, test notebook


I have prepared a new test notebook for MMA 3.0

Send your results to karl at itp.tu-graz.ac.at





(***********************************************************************

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 3.0,
MathReader 3.0, or any compatible application. The data for the notebook
starts with the line of 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 at 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[      5648,        131]*)
(*NotebookOutlinePosition[     34966,       1192]*)
(*  CellTagsIndexPosition[     34922,       1188]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " Benchmark Test"
}], "Title",
  Evaluatable->False,
  AspectRatioFixed->True],

Cell[TextData[StyleBox[
"This notebook contains 15 short calculations for use with MMA 3.0.\nRun the \
notebook without modifications.",
  FontColor->RGBColor[0, 0, 1]]], "Text",
  Evaluatable->False,
  AspectRatioFixed->True],

Cell[BoxData[
    \(Block[{},
      ref = {4.35, 4.58, 1.65, 5.08, 16.93, 7.75, 3.02, 4.9, 8.65, 3.75,
          7.65, 7.82, 8.4, 8.1, 9.1}; f[x_] := 4\ x - 4\ x\^2; \n\t
      g[x_] := BesselJ[0, x];
      kdv[u_] :=
        \[PartialD]\_t u - 1\/4\ \[PartialD]\_{x, 3}u -
          \(3\ u\ \[PartialD]\_x u\)\/2;
      q4 := \(-\(5\/8\)\) +
          \((\(-288\) - 96\ Cosh[t\/8 + 2\ x] + 384\ Cosh[\(11\ t\)\/16 - x])
              \)/\((\((
                  \(-10\) - 6\ Cosh[t\/8 + 2\ x] +
                    6\ Cosh[\(11\ t\)\/16 - x] + 9\ Cosh[\(13\ t\)\/16 + x] +
                    Cosh[\(9\ t\)\/16 - 3\ x])\)\ 16)\);
      DSolve[\[PartialD]\_{x, 2}y[x] + y[x]\ E\^x == 0, y[x], x];
      time = {\t\(Timing[N[\[Pi], 13000]]\)\[LeftDoubleBracket]1
              \[RightDoubleBracket], \n\t\t\t
            \(Timing[N[Sin[1\/2], 4000]]\)\[LeftDoubleBracket]1
              \[RightDoubleBracket], \n\t\t\t
            \(Timing[\(10001!\)]\)\[LeftDoubleBracket]1\[RightDoubleBracket],
            \n\t\t\t\(Timing[FactorInteger[2\^79 - 1]]\)\[LeftDoubleBracket]1
              \[RightDoubleBracket], \n\t\t\t
            \(Timing[PrimeQ[2\^2281 - 1]]\)\[LeftDoubleBracket]1
              \[RightDoubleBracket], \n\t\t\t
            \(Timing[Eigenvalues[Table[Random[], {250}, {250}]]]
                \)\[LeftDoubleBracket]1\[RightDoubleBracket], \n\t\t\t
            \(Timing[Nest[f, 0.6, 15000]]\)\[LeftDoubleBracket]1
              \[RightDoubleBracket], \n\t\t\t
            \(Timing[Nest[g, 0.6, 3000]]\)\[LeftDoubleBracket]1
              \[RightDoubleBracket], \n\t\t\t
            \(Timing[Simplify[kdv[q4]]]\)\[LeftDoubleBracket]1
              \[RightDoubleBracket], \n\t\t\t
            \(Timing[
                DSolve[\[PartialD]\_{x, 2}y[x] +
                      \((a\/Cosh[x]\^2 - 1)\)\ y[x] == 0, y[x], x]]
                \)\[LeftDoubleBracket]1\[RightDoubleBracket], \n\t\t\t
            \(Timing[
                Eliminate[{a0\ b0 == g0, a1\ b0 + a0\ b1 == g1,
                    a2\ b0 + 2\ a1\ b1 + a0\ b2 == g2,
                    3\ a2\ b1 + 3\ a1\ b2 - q1\ g1 - g0\ q11 == g3,
                    \(-q1\)\ g2 - \(7\ q11\ g1\)\/2 - g0\ q12 + 6\ a2\ b2 -
                        6\ a1\ b1\ q1 == g4,
                    g2 - 3\ a1\ b1 + q1\ g0 == \(-1\)}, {a0, a1, a2, b0, b1,
                    b2}]]\)\[LeftDoubleBracket]1\[RightDoubleBracket], \n
            \t\t\t\(Timing[\[Integral]\(1\/\(1 + x\^20\)\)\[DifferentialD]x]
                \)\[LeftDoubleBracket]1\[RightDoubleBracket], \n\t\t\t
            \(Timing[Table[N[WeierstrassP[n, 1, 1]], {n, 500}]]
                \)\[LeftDoubleBracket]1\[RightDoubleBracket], \n\t\t\t
            \(Timing[
                Plot3D[Sin[x\ y], {x, 0, 2\ \[Pi]}, {y, 0, 2\ \[Pi]},
                  PlotPoints \[Rule] 300, DisplayFunction \[Rule] Identity]]
                \)\[LeftDoubleBracket]1\[RightDoubleBracket], \n\t\t\t
            \(Timing[
                Plot3D[q4, {x, \(-40\), 40}, {t, \(-40\), 40},
                  PlotPoints \[Rule] 70, DisplayFunction \[Rule] Identity]]
                \)\[LeftDoubleBracket]1\[RightDoubleBracket]} /.
          Second \[Rule] 1; \n\treltime = time\/ref; \n\ttimeN3 = N[time, 3];
      \n\tbenchmark =
        N[15\/\(\[Sum]\+\(j = 1\)\%15 reltime\[LeftDoubleBracket]j
                \[RightDoubleBracket]\), 3]; Print["Version   = ", $Version];
      Print["Times     = ", timeN3]; Print["Benchmark = ", benchmark]; ]\)],
  "Input",
  AspectRatioFixed->True]
}, Open  ]]
},
FrontEndVersion->"Macintosh 3.0 Beta 3",
ScreenRectangle->{{0, 832}, {0, 604}},
WindowToolbars->{},
CellGrouping->Automatic,
WindowSize->{509, 499},
WindowMargins->{{Automatic, 83}, {Automatic, 0}},
PrivateNotebookOptions->{"ColorPalette"->{RGBColor, 256}},
ShowCellLabel->True,
ShowCellTags->False,
RenderingOptions->{"ObjectDithering"->True,
"RasterDithering"->False},
CharacterEncoding->"MacintoshAutomaticEncoding",
StyleDefinitions -> Notebook[{

  Cell[CellGroupData[{
  Cell["Style Definitions", "Subtitle"],

  Cell["\<\
Modify the definitions below to change the default appearance of \
all cells in a given style.  Make modifications to any definition using \
commands in the Format menu.\
\>", "Text"],

  Cell[CellGroupData[{

  Cell["Style Environment Names", "Section"],

  Cell[StyleData[All, "Working"],
    PageWidth->WindowWidth,
    ScriptMinSize->9],

  Cell[StyleData[All, "Presentation"],
    PageWidth->WindowWidth,
    ScriptMinSize->12,
    FontSize->16],

  Cell[StyleData[All, "Condensed"],
    PageWidth->WindowWidth,
    CellBracketOptions->{"Margins"->{1, 1},
    "Widths"->{0, 5}},
    ScriptMinSize->8,
    FontSize->11],

  Cell[StyleData[All, "Printout"],
    PageWidth->PaperWidth,
    ScriptMinSize->5,
    FontSize->10,
    PrivateFontOptions->{"FontType"->"Outline"}]
  }, Closed]],

  Cell[CellGroupData[{

  Cell["Notebook Options", "Section"],

  Cell["\<\
The options defined for the style below will be used at the \
Notebook level.\
\>", "Text"],

  Cell[StyleData["Notebook"],
    PageHeaders->{{Cell[
            TextData[ {
              CounterBox[ "Page"]}], "PageNumber"], None, Cell[
            TextData[ {
              ValueBox[ "FileName"]}], "Header"]}, {Cell[
            TextData[ {
              ValueBox[ "FileName"]}], "Header"], None, Cell[
            TextData[ {
              CounterBox[ "Page"]}], "PageNumber"]}},
    StyleMenuListing->None]
  }, Closed]],

  Cell[CellGroupData[{

  Cell["Styles for Headings", "Section"],

  Cell[CellGroupData[{

  Cell[StyleData["Title"],
    CellMargins->{{7, Inherited}, {8, 40}},
    Evaluatable->False,
    CellGroupingRules->{"TitleGrouping", 0},
    CellHorizontalScrolling->False,
    PageBreakBelow->False,
    TextAlignment->Center,
    CounterIncrements->"Title",
    CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, {
        "Subtitle", 0}, {"Subsubtitle", 0}},
    AspectRatioFixed->True,
    FontFamily->"Times",
    FontSize->24,
    FontWeight->"Bold"],

  Cell[StyleData["Title", "Presentation"],
    CellMargins->{{24, 10}, {20, 40}},
    LineSpacing->{1, 0},
    FontSize->44],

  Cell[StyleData["Title", "Condensed"],
    CellMargins->{{8, 10}, {4, 8}},
    FontSize->20],

  Cell[StyleData["Title", "Printout"],
    CellMargins->{{2, 10}, {15, 30}},
    FontSize->24]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["Subtitle"],
    CellMargins->{{7, Inherited}, {6, 15}},
    Evaluatable->False,
    CellGroupingRules->{"TitleGrouping", 10},
    CellHorizontalScrolling->False,
    PageBreakBelow->False,
    TextAlignment->Center,
    CounterIncrements->"Subtitle",
    CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, {
        "Subsubtitle", 0}},
    AspectRatioFixed->True,
    FontFamily->"Times",
    FontSize->18,
    FontWeight->"Bold"],

  Cell[StyleData["Subtitle", "Presentation"],
    CellMargins->{{24, 10}, {15, 20}},
    LineSpacing->{1, 0},
    FontSize->36],

  Cell[StyleData["Subtitle", "Condensed"],
    CellMargins->{{8, 10}, {4, 4}},
    FontSize->14],

  Cell[StyleData["Subtitle", "Printout"],
    CellMargins->{{2, 10}, {10, 15}},
    FontSize->18]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["Subsubtitle"],
    CellMargins->{{7, Inherited}, {6, 20}},
    Evaluatable->False,
    CellGroupingRules->{"TitleGrouping", 20},
    CellHorizontalScrolling->False,
    PageBreakBelow->False,
    TextAlignment->Center,
    CounterIncrements->"Subsubtitle",
    CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}},
    AspectRatioFixed->True,
    FontFamily->"Times",
    FontSize->14,
    FontSlant->"Italic"],

  Cell[StyleData["Subsubtitle", "Presentation"],
    CellMargins->{{24, 10}, {10, 20}},
    LineSpacing->{1, 0},
    FontSize->24],

  Cell[StyleData["Subsubtitle", "Condensed"],
    CellMargins->{{8, 10}, {8, 12}},
    FontSize->12],

  Cell[StyleData["Subsubtitle", "Printout"],
    CellMargins->{{2, 10}, {8, 10}},
    FontSize->14]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["Section"],
    CellDingbat->"\[GraySquare]",
    CellMargins->{{22, Inherited}, {8, 20}},
    Evaluatable->False,
    CellGroupingRules->{"SectionGrouping", 30},
    CellHorizontalScrolling->False,
    PageBreakBelow->False,
    CellFrameLabelMargins->6,
    CounterIncrements->"Section",
    CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}},
    AspectRatioFixed->True,
    FontFamily->"Times",
    FontSize->18,
    FontWeight->"Bold"],

  Cell[StyleData["Section", "Presentation"],
    CellMargins->{{40, 10}, {11, 32}},
    LineSpacing->{1, 0},
    FontSize->24],

  Cell[StyleData["Section", "Condensed"],
    CellMargins->{{18, Inherited}, {6, 12}},
    FontSize->12],

  Cell[StyleData["Section", "Printout"],
    CellMargins->{{13, 0}, {7, 22}},
    FontSize->14]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["Subsection"],
    CellDingbat->"\[FilledSquare]",
    CellMargins->{{19, Inherited}, {8, 15}},
    Evaluatable->False,
    CellGroupingRules->{"SectionGrouping", 40},
    CellHorizontalScrolling->False,
    PageBreakBelow->False,
    CellFrameLabelMargins->6,
    CounterIncrements->"Subsection",
    CounterAssignments->{{"Subsubsection", 0}},
    AspectRatioFixed->True,
    FontFamily->"Times",
    FontSize->14,
    FontWeight->"Bold"],

  Cell[StyleData["Subsection", "Presentation"],
    CellMargins->{{36, 10}, {11, 32}},
    LineSpacing->{1, 0},
    FontSize->22],

  Cell[StyleData["Subsection", "Condensed"],
    CellMargins->{{16, Inherited}, {6, 12}},
    FontSize->12],

  Cell[StyleData["Subsection", "Printout"],
    CellMargins->{{9, 0}, {7, 22}},
    FontSize->12]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["Subsubsection"],
    CellDingbat->"\[EmptySquare]",
    CellMargins->{{18, Inherited}, {8, 12}},
    Evaluatable->False,
    CellGroupingRules->{"SectionGrouping", 50},
    CellHorizontalScrolling->False,
    PageBreakBelow->False,
    CellFrameLabelMargins->6,
    CounterIncrements->"Subsubsection",
    AspectRatioFixed->True,
    FontFamily->"Times",
    FontSize->12,
    FontWeight->"Bold"],

  Cell[StyleData["Subsubsection", "Presentation"],
    CellMargins->{{34, 10}, {11, 26}},
    LineSpacing->{1, 0},
    FontSize->18],

  Cell[StyleData["Subsubsection", "Condensed"],
    CellMargins->{{17, Inherited}, {6, 12}},
    FontSize->10],

  Cell[StyleData["Subsubsection", "Printout"],
    CellMargins->{{9, 0}, {7, 14}},
    FontSize->11]
  }, Closed]]
  }, Closed]],

  Cell[CellGroupData[{

  Cell["Styles for Body Text", "Section"],

  Cell[CellGroupData[{

  Cell[StyleData["Text"],
    CellMargins->{{7, 10}, {7, 7}},
    Evaluatable->False,
    CellHorizontalScrolling->False,
    PageBreakWithin->Automatic,
    LineSpacing->{1, 3},
    CounterIncrements->"Text",
    AspectRatioFixed->True,
    FontFamily->"Times",
    FontSize->12],

  Cell[StyleData["Text", "Presentation"],
    CellMargins->{{24, 10}, {10, 10}},
    LineSpacing->{1, 5}],

  Cell[StyleData["Text", "Condensed"],
    CellMargins->{{8, 10}, {6, 6}},
    LineSpacing->{1, 1}],

  Cell[StyleData["Text", "Printout"],
    CellMargins->{{2, 2}, {6, 6}}]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["SmallText"],
    CellMargins->{{7, 10}, {6, 6}},
    Evaluatable->False,
    CellHorizontalScrolling->False,
    PageBreakWithin->Automatic,
    LineSpacing->{1, 3},
    CounterIncrements->"SmallText",
    AspectRatioFixed->True,
    FontFamily->"Times",
    FontSize->10],

  Cell[StyleData["SmallText", "Presentation"],
    CellMargins->{{24, 10}, {8, 8}},
    LineSpacing->{1, 5},
    FontSize->12],

  Cell[StyleData["SmallText", "Condensed"],
    CellMargins->{{8, 10}, {5, 5}},
    LineSpacing->{1, 2},
    FontSize->9],

  Cell[StyleData["SmallText", "Printout"],
    CellMargins->{{2, 2}, {5, 5}},
    FontSize->7]
  }, Closed]]
  }, Closed]],

  Cell[CellGroupData[{

  Cell["Styles for Input/Output", "Section"],

  Cell["\<\
The cells in this section define styles used for input and output \
to the kernel.  Be careful when modifying, renaming, or removing these \
styles, because the front end associates special meanings with these style \
names.\
\>", "Text"],

  Cell[CellGroupData[{

  Cell[StyleData["Input"],
    CellMargins->{{42, 10}, {5, 7}},
    Evaluatable->True,
    CellGroupingRules->"InputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
    DefaultFormatType->DefaultInputFormatType,
    LineSpacing->{1, 0},
    AutoItalicWords->{},
    FormatType->InputForm,
    ShowStringCharacters->True,
    NumberMarks->True,
    CounterIncrements->"Input",
    AspectRatioFixed->True,
    FontFamily->"Courier",
    FontSize->12,
    FontWeight->"Bold"],

  Cell[StyleData["Input", "Presentation"],
    CellMargins->{{72, Inherited}, {8, 10}},
    LineSpacing->{1, 0}],

  Cell[StyleData["Input", "Condensed"],
    CellMargins->{{40, 10}, {2, 3}}],

  Cell[StyleData["Input", "Printout"],
    CellMargins->{{39, 0}, {4, 6}},
    FontSize->9]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["Output"],
    CellMargins->{{42, 10}, {7, 5}},
    CellEditDuplicate->True,
    Evaluatable->False,
    CellGroupingRules->"OutputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
    DefaultFormatType->DefaultOutputFormatType,
    LineSpacing->{1, 0},
    AutoItalicWords->{},
    FormatType->InputForm,
    CounterIncrements->"Output",
    AspectRatioFixed->True,
    FontFamily->"Courier",
    FontSize->12],

  Cell[StyleData["Output", "Presentation"],
    CellMargins->{{72, Inherited}, {10, 8}},
    LineSpacing->{1, 0}],

  Cell[StyleData["Output", "Condensed"],
    CellMargins->{{41, Inherited}, {3, 2}}],

  Cell[StyleData["Output", "Printout"],
    CellMargins->{{39, 0}, {6, 4}},
    FontSize->9]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["Message"],
    CellMargins->{{42, Inherited}, {Inherited, Inherited}},
    Evaluatable->False,
    CellGroupingRules->"OutputGrouping",
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    ShowCellLabel->False,
    CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
    DefaultFormatType->DefaultOutputFormatType,
    LineSpacing->{1, 0},
    AutoItalicWords->{},
    FormatType->InputForm,
    CounterIncrements->"Message",
    AspectRatioFixed->True,
    StyleMenuListing->None,
    FontFamily->"Courier",
    FontSize->12,
    FontColor->RGBColor[1, 0, 0]],

  Cell[StyleData["Message", "Presentation"],
    CellMargins->{{72, Inherited}, {Inherited, Inherited}},
    LineSpacing->{1, 0}],

  Cell[StyleData["Message", "Condensed"],
    CellMargins->{{41, Inherited}, {Inherited, Inherited}}],

  Cell[StyleData["Message", "Printout"],
    CellMargins->{{39, Inherited}, {Inherited, Inherited}},
    FontSize->8,
    FontColor->GrayLevel[0]]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["Print"],
    CellMargins->{{42, Inherited}, {Inherited, Inherited}},
    Evaluatable->False,
    CellGroupingRules->"OutputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    ShowCellLabel->False,
    CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
    DefaultFormatType->DefaultOutputFormatType,
    LineSpacing->{1, 0},
    AutoItalicWords->{},
    FormatType->InputForm,
    CounterIncrements->"Print",
    AspectRatioFixed->True,
    StyleMenuListing->None,
    FontFamily->"Courier",
    FontSize->12],

  Cell[StyleData["Print", "Presentation"],
    CellMargins->{{72, Inherited}, {Inherited, Inherited}},
    LineSpacing->{1, 0}],

  Cell[StyleData["Print", "Condensed"],
    CellMargins->{{41, Inherited}, {Inherited, Inherited}}],

  Cell[StyleData["Print", "Printout"],
    CellMargins->{{39, Inherited}, {Inherited, Inherited}},
    FontSize->8]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["Graphics"],
    PageWidth->Infinity,
    CellMargins->{{7, Inherited}, {Inherited, Inherited}},
    Evaluatable->False,
    CellGroupingRules->"GraphicsGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    ShowCellLabel->False,
    DefaultFormatType->DefaultOutputFormatType,
    FormatType->InputForm,
    CounterIncrements->"Graphics",
    AspectRatioFixed->True,
    ImageSize->{282, 287},
    ImageMargins->{{34, Inherited}, {Inherited, 0}},
    StyleMenuListing->None,
    FontFamily->"Courier",
    FontSize->12],

  Cell[StyleData["Graphics", "Presentation"],
    ImageMargins->{{62, Inherited}, {Inherited, 0}}],

  Cell[StyleData["Graphics", "Condensed"],
    ImageSize->{175, 175},
    ImageMargins->{{38, Inherited}, {Inherited, 0}}],

  Cell[StyleData["Graphics", "Printout"],
    ImageSize->{250, 250},
    ImageMargins->{{30, Inherited}, {Inherited, 0}},
    FontSize->9]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["CellLabel"],
    StyleMenuListing->None,
    FontFamily->"Helvetica",
    FontSize->9,
    FontColor->RGBColor[0, 0, 1]],

  Cell[StyleData["CellLabel", "Presentation"],
    FontSize->12],

  Cell[StyleData["CellLabel", "Condensed"],
    FontSize->9],

  Cell[StyleData["CellLabel", "Printout"],
    FontFamily->"Courier",
    FontSize->8,
    FontSlant->"Italic",
    FontColor->GrayLevel[0]]
  }, Closed]]
  }, Closed]],

  Cell[CellGroupData[{

  Cell["Styles for Automatic Numbering", "Section"],

  Cell["\<\
The following styles are useful for numbered equations, figures, \
etc.  They automatically give the cell a FrameLabel containing a reference to \
a particular counter, and also increment that counter.\
\>", "Text"],

  Cell[CellGroupData[{

  Cell[StyleData["NumberedEquation"],
    CellFrameLabels->{{None, Cell[
            TextData[ {"(",
              CounterBox[ "NumberedEquation"], ")"}]]}, {None, None}},
    DefaultFormatType->DefaultInputFormatType,
    TextAlignment->Center,
    CounterIncrements->"NumberedEquation",
    FormatTypeAutoConvert->False],

  Cell[StyleData["NumberedEquation", "Presentation"]],

  Cell[StyleData["NumberedEquation", "Condensed"]],

  Cell[StyleData["NumberedEquation", "Printout"]]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["NumberedFigure"],
    CellMargins->{{4, Inherited}, {Inherited, Inherited}},
    CellFrameLabels->{{None, None}, {Cell[
            TextData[ {"Figure ",
              CounterBox[ "NumberedFigure"]}]], None}},
    CounterIncrements->"NumberedFigure",
    ImageMargins->{{43, Inherited}, {Inherited, 0}},
    FormatTypeAutoConvert->False],

  Cell[StyleData["NumberedFigure", "Presentation"]],

  Cell[StyleData["NumberedFigure", "Condensed"]],

  Cell[StyleData["NumberedFigure", "Printout"]]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["NumberedTable"],
    CellMargins->{{44, Inherited}, {Inherited, Inherited}},
    CellFrameLabels->{{None, None}, {Cell[
            TextData[ {"Table ",
              CounterBox[ "NumberedTable"]}]], None}},
    TextAlignment->Center,
    CounterIncrements->"NumberedTable",
    FormatTypeAutoConvert->False],

  Cell[StyleData["NumberedTable", "Presentation"]],

  Cell[StyleData["NumberedTable", "Condensed"]],

  Cell[StyleData["NumberedTable", "Printout"]]
  }, Closed]]
  }, Closed]],

  Cell[CellGroupData[{

  Cell["Formulas and Programming", "Section"],

  Cell[CellGroupData[{

  Cell[StyleData["InlineFormula"],
    ShowCellBracket->False,
    CellMargins->{{10, 4}, {0, 8}},
    CellHorizontalScrolling->True,
    ScriptLevel->1,
    SingleLetterItalics->True,
    StyleMenuListing->None,
    GridBoxOptions->{ColumnWidths->Automatic}],

  Cell[StyleData["InlineFormula", "Presentation"],
    CellMargins->{{24, 10}, {10, 10}},
    LineSpacing->{1, 5}],

  Cell[StyleData["InlineFormula", "Condensed"],
    CellMargins->{{8, 10}, {6, 6}},
    LineSpacing->{1, 1}],

  Cell[StyleData["InlineFormula", "Printout"],
    CellMargins->{{0, 0}, {6, 6}}]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["ChemicalFormula"],
    ShowCellBracket->False,
    CellMargins->{{10, 4}, {0, 8}},
    CellHorizontalScrolling->True,
    AutoSpacing->False,
    ScriptLevel->1,
    ScriptBaselineShifts->{0.6, Automatic},
    SingleLetterItalics->True,
    ZeroWidthTimes->True,
    GridBoxOptions->{ColumnWidths->Automatic}],

  Cell[StyleData["ChemicalFormula", "Presentation"],
    CellMargins->{{24, 10}, {10, 10}},
    LineSpacing->{1, 5}],

  Cell[StyleData["ChemicalFormula", "Condensed"],
    CellMargins->{{8, 10}, {6, 6}},
    LineSpacing->{1, 1}],

  Cell[StyleData["ChemicalFormula", "Printout"],
    CellMargins->{{0, 0}, {6, 6}}]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["DisplayFormula"],
    ShowCellBracket->False,
    CellMargins->{{42, Inherited}, {Inherited, Inherited}},
    CellHorizontalScrolling->True,
    ScriptLevel->0,
    SingleLetterItalics->True,
    StyleMenuListing->None,
    UnderoverscriptBoxOptions->{LimitsPositioning->True},
    GridBoxOptions->{ColumnWidths->Automatic}],

  Cell[StyleData["DisplayFormula", "Presentation"],
    LineSpacing->{1, 5}],

  Cell[StyleData["DisplayFormula", "Condensed"],
    LineSpacing->{1, 1}],

  Cell[StyleData["DisplayFormula", "Printout"]]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["Program"],
    ShowCellBracket->False,
    CellMargins->{{10, 4}, {0, 8}},
    CellHorizontalScrolling->True,
    StyleMenuListing->None,
    FontFamily->"Courier"],

  Cell[StyleData["Program", "Presentation"],
    CellMargins->{{24, 10}, {10, 10}},
    LineSpacing->{1, 5},
    FontSize->15],

  Cell[StyleData["Program", "Condensed"],
    CellMargins->{{8, 10}, {6, 6}},
    LineSpacing->{1, 1},
    FontSize->10.5],

  Cell[StyleData["Program", "Printout"],
    CellMargins->{{0, 0}, {6, 6}},
    FontSize->9.5]
  }, Closed]]
  }, Closed]],

  Cell[CellGroupData[{

  Cell["Styles for Headers and Footers", "Section"],

  Cell[StyleData["Header"],
    CellMargins->{{7, 0}, {4, 1}},
    Evaluatable->False,
    PageBreakWithin->Automatic,
    AspectRatioFixed->True,
    StyleMenuListing->None,
    FontFamily->"Times",
    FontSize->12,
    FontSlant->"Italic"],

  Cell[StyleData["Footer"],
    CellMargins->{{7, 0}, {0, 4}},
    Evaluatable->False,
    PageBreakWithin->Automatic,
    TextAlignment->Center,
    AspectRatioFixed->True,
    StyleMenuListing->None,
    FontFamily->"Times",
    FontSize->12,
    FontSlant->"Italic"],

  Cell[StyleData["PageNumber"],
    CellMargins->{{0, 0}, {4, 1}},
    StyleMenuListing->None,
    FontFamily->"Times",
    FontSize->10,
    FontWeight->"Bold"]
  }, Closed]],

  Cell[CellGroupData[{

  Cell["Palette Styles", "Section"],

  Cell["\<\
The cells below define styles that define standard \
ButtonFunctions, for use in palette buttons.\
\>", "Text"],

  Cell[StyleData["Paste"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`NotebookApply[
          FrontEnd`InputNotebook[ ], #, After]}]&)}],

  Cell[StyleData["Evaluate"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`NotebookApply[
          FrontEnd`InputNotebook[ ], #, All],
        SelectionEvaluate[
          FrontEnd`InputNotebook[ ], All]}]&)}],

  Cell[StyleData["EvaluateCell"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`NotebookApply[
          FrontEnd`InputNotebook[ ], #, All],
        FrontEnd`SelectionMove[
          FrontEnd`InputNotebook[ ], All, Cell, 1],
        FrontEnd`SelectionEvaluateCreateCell[
          FrontEnd`InputNotebook[ ], All]}]&)}],

  Cell[StyleData["CopyEvaluate"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`SelectionCreateCell[
          FrontEnd`InputNotebook[ ], All],
        FrontEnd`NotebookApply[
          FrontEnd`InputNotebook[ ], #, All],
        FrontEnd`SelectionEvaluate[
          FrontEnd`InputNotebook[ ], All]}]&)}],

  Cell[StyleData["CopyEvaluateCell"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`SelectionCreateCell[
          FrontEnd`InputNotebook[ ], All],
        FrontEnd`NotebookApply[
          FrontEnd`InputNotebook[ ], #, All],
        FrontEnd`SelectionEvaluateCreateCell[
          FrontEnd`InputNotebook[ ], All]}]&)}]
  }, Closed]],

  Cell[CellGroupData[{

  Cell["Hyperlink Styles", "Section"],

  Cell["\<\
The cells below define styles useful for making hypertext \
ButtonBoxes.  The \"Hyperlink\" style is for links within the same Notebook, \
or between Notebooks.\
\>", "Text"],

  Cell[CellGroupData[{

  Cell[StyleData["Hyperlink"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`NotebookLocate[ #2]}]&),
    Active->True,
    ButtonNote->ButtonData}],

  Cell[StyleData["Hyperlink", "Presentation"]],

  Cell[StyleData["Hyperlink", "Condensed"]],

  Cell[StyleData["Hyperlink", "Printout"],
    FontColor->GrayLevel[0],
    FontVariations->{"Underline"->False}]
  }, Closed]],

  Cell["\<\
The following styles are for linking automatically to the on-line \
help system.\
\>", "Text"],

  Cell[CellGroupData[{

  Cell[StyleData["MainBookLink"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    FontWeight->"Plain",
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&),
    Active->True,
    ButtonFrame->"None"}],

  Cell[StyleData["MainBookLink", "Presentation"]],

  Cell[StyleData["MainBookLink", "Condensed"]],

  Cell[StyleData["MainBookLink", "Printout"],
    FontColor->GrayLevel[0],
    FontVariations->{"Underline"->False}]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["AddOnsLink"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    FontFamily->"Times",
    FontWeight->"Plain",
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&),
    Active->True,
    ButtonFrame->"None"}],

  Cell[StyleData["AddOnsLink", "Presentation"]],

  Cell[StyleData["AddOnsLink", "Condensed"]],

  Cell[StyleData["AddOnLink", "Printout"],
    FontColor->GrayLevel[0],
    FontVariations->{"Underline"->False}]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["RefGuideLink"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    FontFamily->"Courier",
    FontWeight->"Plain",
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`HelpBrowserLookup[ "RefGuideLink", #]}]&),
    Active->True,
    ButtonFrame->"None"}],

  Cell[StyleData["RefGuideLink", "Presentation"]],

  Cell[StyleData["RefGuideLink", "Condensed"]],

  Cell[StyleData["RefGuideLink", "Printout"],
    FontColor->GrayLevel[0],
    FontVariations->{"Underline"->False}]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["GettingStartedLink"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    FontFamily->"Times",
    FontWeight->"Plain",
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`HelpBrowserLookup[ "GettingStarted", #]}]&),
    Active->True,
    ButtonFrame->"None"}],

  Cell[StyleData["GettingStartedLink", "Presentation"]],

  Cell[StyleData["GettingStartedLink", "Condensed"]],

  Cell[StyleData["GettingStartedLink", "Printout"],
    FontColor->GrayLevel[0],
    FontVariations->{"Underline"->False}]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["OtherInformationLink"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    FontFamily->"Times",
    FontWeight->"Plain",
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&),
    Active->True,
    ButtonFrame->"None"}],

  Cell[StyleData["OtherInformationLink", "Presentation"]],

  Cell[StyleData["OtherInformationLink", "Condensed"]],

  Cell[StyleData["OtherInformationLink", "Printout"],
    FontColor->GrayLevel[0],
    FontVariations->{"Underline"->False}]
  }, Closed]]
  }, Closed]],

  Cell[CellGroupData[{

  Cell["Placeholder Styles", "Section"],

  Cell["\<\
The cells below define styles useful for making placeholder \
objects in palette templates.\
\>", "Text"],

  Cell[CellGroupData[{

  Cell[StyleData["Placeholder"],
    Editable->False,
    Selectable->False,
    StyleBoxAutoDelete->True,
    Placeholder->True,
    StyleMenuListing->None],

  Cell[StyleData["Placeholder", "Presentation"]],

  Cell[StyleData["Placeholder", "Condensed"]],

  Cell[StyleData["Placeholder", "Printout"]]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["SelectionPlaceholder"],
    Editable->False,
    Selectable->False,
    StyleBoxAutoDelete->True,
    Placeholder->Primary,
    StyleMenuListing->None,
    DrawHighlighted->True],

  Cell[StyleData["SelectionPlaceholder", "Presentation"]],

  Cell[StyleData["SelectionPlaceholder", "Condensed"]],

  Cell[StyleData["SelectionPlaceholder", "Printout"]]
  }, Closed]]
  }, Closed]],

  Cell[CellGroupData[{

  Cell["FormatType Styles", "Section"],

  Cell["\<\
The cells below define styles that are mixed in with the styles \
of most cells.  If a cell's FormatType matches the name of one of the styles \
defined below, then that style is applied between the cell's style and its \
own options.\
\>", "Text"],

  Cell[StyleData["CellExpression"],
    PageWidth->Infinity,
    CellMargins->{{6, Inherited}, {Inherited, Inherited}},
    ShowCellLabel->False,
    ShowSpecialCharacters->False,
    AllowInlineCells->False,
    StyleMenuListing->None,
    FontFamily->"Courier",
    FontSize->12,
    FontColor->GrayLevel[0]],

  Cell[StyleData["InputForm"],
    AllowInlineCells->False,
    StyleMenuListing->None,
    FontFamily->"Courier"],

  Cell[StyleData["OutputForm"],
    PageWidth->Infinity,
    TextAlignment->Left,
    LineSpacing->{1, -5},
    StyleMenuListing->None,
    FontFamily->"Courier"],

  Cell[StyleData["StandardForm"],
    LineSpacing->{1.25, 0},
    StyleMenuListing->None,
    FontFamily->"Courier"],

  Cell[StyleData["TraditionalForm"],
    LineSpacing->{1.25, 0},
    SingleLetterItalics->True,
    TraditionalFunctionNotation->True,
    DelimiterMatching->None,
    StyleMenuListing->None],

  Cell["\<\
The style defined below is mixed in to any cell that is in an \
inline cell within another.\
\>", "Text"],

  Cell[StyleData["InlineCell"],
    TextAlignment->Left,
    ScriptLevel->1,
    StyleMenuListing->None],

  Cell[StyleData["InlineCellEditing"],
    StyleMenuListing->None,
    Background->RGBColor[1, 0.749996, 0.8]]
  }, Closed]]
  }, Open  ]]
  }],
MacintoshSystemPageSetup->"\<\
00l0001804P000000_02 at ?oaonh32@9BH`85:0?l0 at 00005X0FP000003[0;@001
0 at 00I00100000@0200000BL?00400000000000000000010000000000000 at 0?ne
ojH?;@^J00P1000000000000000001T1\>"
]


(***********************************************************************
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[1731, 51, 148, 6, 75, "Title"],
Cell[1882, 59, 226, 5, 46, "Text"],
Cell[2111, 66, 3521, 62, 911, "Input"]
}, Open  ]]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)





  • Prev by Date: Can I learn 3 semesters of calculus by May
  • Next by Date: Memory & repeated call of Module[...]
  • Previous by thread: Can I learn 3 semesters of calculus by May
  • Next by thread: Memory & repeated call of Module[...]