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

                    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[     66560,       2205]*)
(*NotebookOutlinePosition[     75918,       2536]*)
(*  CellTagsIndexPosition[     75874,       2532]*)
(*WindowFrame->Palette*)



Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
  "New in ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " 4"
}], "Title"],

Cell[TextData[{
  StyleBox["Underlined arguments in this palette are equivalent to ",
    FontFamily->"Arial",
    FontSize->9],
  StyleBox["\[SelectionPlaceholder]", "MR",
    FontFamily->"Arial"],
  StyleBox[". \nOther arguments are pasted as ",
    FontFamily->"Arial",
    FontSize->9],
  StyleBox["\[Placeholder]", "MR",
    FontFamily->"Arial"],
  StyleBox[".\n",
    FontFamily->"Arial",
    FontSize->9]
}], "Text",
  LineSpacing->{1, 0}],

Cell[CellGroupData[{

Cell["Numerical Computation", "Section"],

Cell[CellGroupData[{

Cell["Continued Fractions", "Subsection"],

Cell["\<\
Numeric quantities can be converted to and from continued fraction \
representations.\
\>", "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"ContinuedFraction", 
              StyleBox["[",
                "TBI"], 
              RowBox[{
                StyleBox["x",
                  "SelArg"], ",", 
                StyleBox["n",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"ContinuedFraction", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", "\[Placeholder]"}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"ContinuedFraction", "[", 
              StyleBox["x",
                "SelArg"], "]"}],
            
            ButtonData:>RowBox[ 
              {"ContinuedFraction", "[", "\[SelectionPlaceholder]", "]"}]]},
        {
          ButtonBox[
            RowBox[{"FromContinuedFraction", "[", 
              StyleBox["list",
                "SelArg"], "]"}],
            
            ButtonData:>RowBox[ 
              {"FromContinuedFraction", "[", "\[SelectionPlaceholder]", "]"}]
              ]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      GridDefaultElement:>ButtonBox[ 
        "\\[Placeholder]", ButtonData :> "\\[Placeholder]"]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["ContinuedFraction",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]],

Cell[CellGroupData[{

Cell["RealDigits", "Subsection"],

Cell[TextData[{
  "Three- and four-argument forms for ",
  StyleBox["RealDigits", "MR"],
  " specify how many digits to return and a place to start, which need not be \
the first significant digit."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"RealDigits", "[", 
              RowBox[{
                StyleBox["x",
                  "SelArg",
                  FontFamily->"Times New Roman"], ",", 
                StyleBox["b",
                  "Arg",
                  FontFamily->"Times New Roman",
                  FontWeight->"Plain",
                  FontSlant->"Italic"], ",", 
                StyleBox["len",
                  "Arg",
                  FontFamily->"Times New Roman",
                  FontWeight->"Plain",
                  FontSlant->"Italic"]}], "]"}],
            ButtonData:>RowBox[ {"RealDigits", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"RealDigits", "[", 
              RowBox[{
                StyleBox["x",
                  "SelArg"], ",", 
                StyleBox["b",
                  "Arg"], ",", 
                StyleBox["len",
                  "Arg"], ",", 
                StyleBox["n",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"RealDigits", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]", ",", "\[Placeholder]"}], "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      GridDefaultElement:>ButtonBox[ 
        "\\[Placeholder]", ButtonData :> "\\[Placeholder]"]]], "Input",
  TextAlignment->Left],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["RealDigits",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]],

Cell[CellGroupData[{

Cell["IntegerExponent", "Subsection"],

Cell[TextData[{
  StyleBox["IntegerExponent", "MR"],
  " finds the highest power of a given base that divides a given integer."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"IntegerExponent", "[", 
              RowBox[{
                StyleBox["n",
                  "SelArg",
                  FontFamily->"Times New Roman"], ",", 
                StyleBox["b",
                  "Arg",
                  FontFamily->"Times New Roman",
                  FontWeight->"Plain",
                  FontSlant->"Italic"]}], "]"}],
            ButtonData:>RowBox[ {"IntegerExponent", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", "\[Placeholder]"}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"IntegerExponent", "[", 
              StyleBox["n",
                "SelArg",
                FontFamily->"Times New Roman"], "]"}],
            
            ButtonData:>RowBox[ 
              {"IntegerExponent", "[", "\[SelectionPlaceholder]", "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      GridDefaultElement:>ButtonBox[ 
        "\\[Placeholder]", ButtonData :> "\\[Placeholder]"]]], "Input",
  TextAlignment->Left],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["IntegerExponent",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Algebraic Computation", "Section"],

Cell[CellGroupData[{

Cell["Simplifying with Assumptions", "Subsection"],

Cell[TextData[{
  "The two-argument forms of ",
  StyleBox["Simplify", "MR"],
  " and ",
  StyleBox["FullSimplify", "MR"],
  " do simplification based upon given assumptions on variables. Assumptions \
may take the form of equations, inequalities,or membership in a certain \
number domain (for instance, ",
  StyleBox["x \[Element] Reals", "MR"],
  " means that ",
  StyleBox["x", "MR"],
  " is a real number)."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"Simplify", "[", 
              RowBox[{
                StyleBox["expr",
                  "SelArg"], ",", 
                StyleBox["assum",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"Simplify", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", "\[Placeholder]"}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"FullSimplify", "[", 
              RowBox[{
                StyleBox["expr",
                  "SelArg"], ",", 
                StyleBox["assum",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"FullSimplify", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", "\[Placeholder]"}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"Simplify", "[", 
              RowBox[{
                StyleBox["expr",
                  "SelArg"], ",", 
                RowBox[{
                  StyleBox["var",
                    "Arg"], "\[Element]", "Reals"}]}], "]"}],
            ButtonData:>RowBox[ {"Simplify", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", 
                  RowBox[ {"\[Placeholder]", "\[Element]", "Reals"}]}], "]"}]
              ]},
        {
          ButtonBox[
            RowBox[{"FunctionExpand", "[", 
              RowBox[{
                StyleBox["expr",
                  "SelArg"], ",", 
                StyleBox["assum",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"FunctionExpand", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", "\[Placeholder]"}], 
                "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      GridDefaultElement:>ButtonBox[ 
        "\\[Placeholder]", ButtonData :> "\\[Placeholder]"]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["Simplify",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]],

Cell[CellGroupData[{

Cell["Antiderivatives", "Subsection"],

Cell[TextData[{
  "Derivative[-",
  StyleBox["n", "Arg"],
  "][",
  StyleBox["f", "Arg"],
  "]",
  StyleBox[" for positive integer ", "Text"],
  StyleBox["n", "Arg"],
  StyleBox[" gives the ", "Text"],
  Cell[BoxData[
      FormBox[
        SuperscriptBox[
          StyleBox["n",
            "Arg"], 
          StyleBox["th",
            "Text"]], TraditionalForm]]],
  StyleBox[" antiderivative (indefinite integral) of ", "Text"],
  StyleBox["f", "Arg"],
  StyleBox[".", "Text"]
}], "MR"],

Cell[BoxData[
    ButtonBox[
      RowBox[{
        RowBox[{"Derivative", "[", 
          RowBox[{"-", 
            StyleBox["n",
              "Arg"]}], "]"}], "[", 
        StyleBox["f",
          "SelArg"], "]"}],
      ButtonData:>RowBox[ {
          RowBox[ {"Derivative", "[", "\[Placeholder]", "]"}], "[", 
          "\[SelectionPlaceholder]", "]"}]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["Derivative",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]],

Cell[CellGroupData[{

Cell["Transforms", "Subsection",
  AutoSpacing->False],

Cell[TextData[{
  "Several kinds of continuous transform operations are built into ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  "."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"LaplaceTransform", "[", 
              RowBox[{
                StyleBox["expr",
                  "SelArg"], ",", 
                StyleBox["t",
                  "SelArg"], ",", 
                StyleBox["s",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"LaplaceTransform", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"InverseLaplaceTransform", "[", 
              RowBox[{
                StyleBox["expr",
                  "SelArg"], ",", 
                StyleBox["s",
                  "Arg"], ",", 
                StyleBox["t",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"InverseLaplaceTransform", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"FourierTransform", "[", 
              RowBox[{
                StyleBox["expr",
                  "SelArg"], ",", 
                StyleBox["t",
                  "Arg"], ",", 
                StyleBox["\[Omega]",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"FourierTransform", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"InverseFourierTransform", "[", 
              RowBox[{
                StyleBox["expr",
                  "SelArg"], ",", 
                StyleBox["\[Omega]",
                  "Arg"], ",", 
                StyleBox["t",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"InverseFourierTransform", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"ZTransform", "[", 
              RowBox[{
                StyleBox["expr",
                  "SelArg"], ",", 
                StyleBox["n",
                  "Arg"], ",", 
                StyleBox["z",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"ZTransform", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"InverseZTransform", "[", 
              RowBox[{
                StyleBox["expr",
                  "SelArg"], ",", 
                StyleBox["z",
                  "Arg"], ",", 
                StyleBox["n",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"InverseZTransform", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      RowLines->{False, True, False, True, False}]], "Input",
  Evaluatable->True,
  CellGroupingRules->"NormalGrouping",
  CellHorizontalScrolling->True,
  PageBreakAbove->True,
  PageBreakWithin->False,
  GroupPageBreakWithin->False,
  CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
  DefaultFormatType->DefaultInputFormatType,
  LineSpacing->{1.25, 0},
  FormatType->InputForm,
  AutoSpacing->False,
  ScriptMinSize->9,
  ShowStringCharacters->True,
  NumberMarks->True,
  StyleMenuListing->None],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["LaplaceTransform",
    ButtonStyle->"RefGuideLink"],
  ", etc."
}], "SmallText",
  AutoSpacing->False]
}, Closed]],

Cell[CellGroupData[{

Cell["Polynomial subresultants", "Subsection"],

Cell[TextData[{
  StyleBox["Subresultants", "MR"],
  " gives the principal subresultant coefficients of a pair of polynomials."
}], "Text"],

Cell[BoxData[
    ButtonBox[
      RowBox[{"Subresultants", "[", 
        RowBox[{
          SubscriptBox[
            StyleBox["poly",
              "SelArg"], "1"], ",", 
          StyleBox[
            SubscriptBox[
              StyleBox["poly",
                "TI"], "2"],
            "Arg"], ",", 
          StyleBox["var",
            "Arg"]}], "]"}],
      ButtonData:>RowBox[ {"Subresultants", "[", 
          RowBox[ 
          {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
            "\[Placeholder]"}], "]"}]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["Subresultants",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Mathematical Functions", "Section"],

Cell[CellGroupData[{

Cell["Constants", "Subsection"],

Cell[TextData[{
  "The Khinchin and Glaisher constants and harmonic numbers are built into ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  "."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox["Khinchin",
            ButtonData:>"Khinchin"]},
        {
          ButtonBox["Glaisher",
            ButtonData:>"Glaisher"]},
        {
          ButtonBox[
            RowBox[{"HarmonicNumber", "[", 
              StyleBox["n",
                "SelArg"], "]"}],
            
            ButtonData:>RowBox[ 
              {"HarmonicNumber", "[", "\[SelectionPlaceholder]", "]"}]]},
        {
          ButtonBox[
            RowBox[{"HarmonicNumber", "[", 
              RowBox[{
                StyleBox["n",
                  "SelArg"], ",", 
                StyleBox["r",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"HarmonicNumber", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", "\[Placeholder]"}], 
                "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      GridDefaultElement:>ButtonBox[ 
        "\\[Placeholder]", ButtonData :> "\\[Placeholder]"]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["Khinchin",
    ButtonStyle->"RefGuideLink"],
  ", ",
  ButtonBox["Glaisher",
    ButtonStyle->"RefGuideLink"],
  ", ",
  ButtonBox["HarmonicNumber",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]],

Cell[CellGroupData[{

Cell["Integer and Bit Operations", "Subsection"],

Cell[TextData[{
  StyleBox["Mod", "MR"],
  " and ",
  StyleBox["Quotient", "MR"],
  " accept a third argument that specifies an offset for the set of possible \
remainders. Multiplicative order and the Carmichael function \[Lambda](",
  StyleBox["n", "Arg"],
  ") are also built into ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  "."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"Mod", "[", 
              RowBox[{
                StyleBox["m",
                  "SelArg"], ",", 
                StyleBox["n",
                  "Arg"], ",", 
                StyleBox["d",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"Mod", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"Quotient", "[", 
              RowBox[{
                StyleBox["m",
                  "SelArg"], ",", 
                StyleBox["n",
                  "Arg"], ",", 
                StyleBox["d",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"Quotient", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"MultiplicativeOrder", "[", 
              RowBox[{
                StyleBox["k",
                  "SelArg"], 
                StyleBox[",",
                  "Input"], 
                StyleBox["n",
                  "Arg"]}], 
              StyleBox["]",
                "Input"]}],
            ButtonData:>RowBox[ {"MultiplicativeOrder", "[", 
                RowBox[ {"\[SelectionPlaceholder]", 
                  StyleBox[ ",", "Input"], "\[Placeholder]"}], 
                StyleBox[ "]", "Input"]}]]},
        {
          ButtonBox[
            RowBox[{"MultiplicativeOrder", "[", 
              RowBox[{
                StyleBox["k",
                  "SelArg"], 
                StyleBox[",",
                  "Input"], 
                StyleBox["n",
                  "Arg"], ",", 
                StyleBox["rlist",
                  "Arg"]}], 
              StyleBox["]",
                "Input"]}],
            ButtonData:>RowBox[ {"MultiplicativeOrder", "[", 
                RowBox[ {"\[SelectionPlaceholder]", 
                  StyleBox[ ",", "Input"], "\[Placeholder]", ",", 
                  "\[Placeholder]"}], 
                StyleBox[ "]", "Input"]}]]},
        {
          ButtonBox[
            RowBox[{"CarmichaelLambda", "[", 
              StyleBox["n",
                "SelArg"], "]"}],
            ButtonData:>RowBox[ {"MultiplicativeOrder", "[", 
                RowBox[ {"\[SelectionPlaceholder]", 
                  StyleBox[ ",", "Input"], "\[Placeholder]", ",", 
                  "\[Placeholder]"}], 
                StyleBox[ "]", "Input"]}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["Mod",
    ButtonStyle->"RefGuideLink"],
  ", ",
  ButtonBox["Quotient",
    ButtonStyle->"RefGuideLink"],
  ", ",
  ButtonBox["MultiplicativeOrder",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"],

Cell[TextData[{
  StyleBox["DigitCount[", "MR"],
  StyleBox["n",
    FontFamily->"Times New Roman",
    FontSlant->"Italic"],
  StyleBox["]", "MR"],
  " gives the number of 1's that are in the binary representation of an \
integer ",
  StyleBox["n",
    FontSlant->"Italic"],
  ". The three-argument form counts occurrences of a given digit in the \
integer as written in  a given base."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"DigitCount", "[", 
              StyleBox["n",
                "SelArg"], "]"}],
            
            ButtonData:>RowBox[ 
              {"DigitCount", "[", "\[SelectionPlaceholder]", "]"}]]},
        {
          ButtonBox[
            RowBox[{"DigitCount", "[", 
              RowBox[{
                StyleBox["n",
                  "SelArg"], ",", 
                StyleBox["d",
                  "Arg"], ",", 
                StyleBox["b",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"DigitCount", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      GridDefaultElement:>ButtonBox[ 
        "\\[Placeholder]", ButtonData :> "\\[Placeholder]"]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["DigitCount",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"],

Cell[TextData[{
  StyleBox["BitAnd", "MR"],
  ", ",
  StyleBox["BitOr", "MR"],
  ", and ",
  StyleBox["BitXor", "MR"],
  " do bitwise operations between integers."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"BitAnd", "[", 
              RowBox[{
                SubscriptBox[
                  StyleBox["n",
                    "SelArg"], "1"], ",", 
                StyleBox[
                  SubscriptBox[
                    StyleBox["n",
                      "TI"], "2"],
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"BitAnd", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", "\[Placeholder]"}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"BitOr", "[", 
              RowBox[{
                SubscriptBox[
                  StyleBox["n",
                    "SelArg"], "1"], ",", 
                StyleBox[
                  SubscriptBox[
                    StyleBox["n",
                      "TI"], "2"],
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"BitOr", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", "\[Placeholder]"}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"BitXor", "[", 
              RowBox[{
                SubscriptBox[
                  StyleBox["n",
                    "SelArg"], "1"], ",", 
                StyleBox[
                  SubscriptBox[
                    StyleBox["n",
                      "TI"], "2"],
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"BitXor", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", "\[Placeholder]"}], 
                "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      GridDefaultElement:>ButtonBox[ 
        "\\[Placeholder]", ButtonData :> "\\[Placeholder]"]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["BitAnd",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]],

Cell[CellGroupData[{

Cell["Special Functions", "Subsection"],

Cell[TextData[{
  "The three-argument form of ",
  StyleBox["PolyLog", "MR"],
  " is a generalization of the two-argument form."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"PolyLog", "[", 
              RowBox[{
                StyleBox["n",
                  "Arg"], ",", 
                StyleBox["p",
                  "Arg"], ",", 
                StyleBox["z",
                  "SelArg"]}], "]"}],
            ButtonData:>RowBox[ {"PolyLog", "[", 
                RowBox[ 
                {"\[Placeholder]", ",", "\[Placeholder]", ",", 
                  "\[SelectionPlaceholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"StruveH", "[", 
              RowBox[{
                StyleBox["n",
                  "Arg"], ",", 
                StyleBox["z",
                  "SelArg"]}], "]"}],
            ButtonData:>RowBox[ {"StruveH", "[", 
                RowBox[ {"\[Placeholder]", ",", "\[SelectionPlaceholder]"}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"StruveL", "[", 
              RowBox[{
                StyleBox["n",
                  "Arg"], ",", 
                StyleBox["z",
                  "SelArg"]}], "]"}],
            ButtonData:>RowBox[ {"StruveL", "[", 
                RowBox[ {"\[Placeholder]", ",", "\[SelectionPlaceholder]"}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"AppellF1", "[", 
              RowBox[{
                StyleBox["a",
                  "Arg"], ",", 
                StyleBox[
                  SubscriptBox[
                    StyleBox["b",
                      "TI"], "1"],
                  "Arg"], ",", 
                StyleBox[
                  SubscriptBox[
                    StyleBox["b",
                      "TI"], "2"],
                  "Arg"], ",", 
                StyleBox["c",
                  "Arg"], ",", 
                StyleBox["x",
                  "SelArg"], ",", 
                StyleBox["y",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"AppellF1", "[", 
                RowBox[ 
                {"\[Placeholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]", ",", "\[Placeholder]", ",", 
                  "\[SelectionPlaceholder]", ",", "\[Placeholder]"}], "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      GridDefaultElement:>ButtonBox[ 
        "\\[Placeholder]", ButtonData :> "\\[Placeholder]"]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["PolyLog",
    ButtonStyle->"RefGuideLink"],
  ", ",
  ButtonBox["StruveH",
    ButtonStyle->"RefGuideLink"],
  ", ",
  ButtonBox["AppellF1",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]],

Cell[CellGroupData[{

Cell["Comparison and Step Functions", "Subsection"],

Cell[TextData[{
  "Several functions are based on comparisons between numbers. ",
  StyleBox["DiracDelta", "MR"],
  " is a generalized function defined by behavior under integral and \
differential operations."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"DiscreteDelta", "[", 
              RowBox[{
                SubscriptBox[
                  StyleBox["n",
                    "SelArg"], "1"], ",", 
                StyleBox[
                  SubscriptBox[
                    StyleBox["n",
                      "TI"], "2"],
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"DiscreteDelta", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", "\[Placeholder]"}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"KroneckerDelta", "[", 
              RowBox[{
                SubscriptBox[
                  StyleBox["n",
                    "SelArg"], "1"], ",", 
                StyleBox[
                  SubscriptBox[
                    StyleBox["n",
                      "TI"], "2"],
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"KroneckerDelta", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", "\[Placeholder]"}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"UnitStep", "[", 
              StyleBox["x",
                "SelArg"], "]"}],
            
            ButtonData:>RowBox[ 
              {"UnitStep", "[", "\[SelectionPlaceholder]", "]"}]]},
        {
          ButtonBox[
            RowBox[{"DiracDelta", "[", 
              StyleBox["x",
                "SelArg"], "]"}],
            ButtonData:>"\\[Placeholder]"]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      RowLines->{False, False, True},
      GridDefaultElement:>ButtonBox[ 
        "\\[Placeholder]", ButtonData :> "\\[Placeholder]"]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["DiscreteDelta",
    ButtonStyle->"RefGuideLink"],
  ", ",
  ButtonBox["DiracDelta",
    ButtonStyle->"RefGuideLink"],
  ", etc."
}], "SmallText"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lists and Matrices", "Section"],

Cell[CellGroupData[{

Cell["Arrays", "Subsection"],

Cell[TextData[{
  "The three-argument form of ",
  StyleBox["Array", "MR"],
  " sets the origin value for the array indices (by default it is 1). The \
four-argument form specifies the head to be used at each level of the output \
array expression."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"Array", "[", 
              RowBox[{
                StyleBox["f",
                  "SelArg"], ",", 
                StyleBox["dims",
                  "Arg"], ",", 
                StyleBox["origin",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"Array", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"Array", "[", 
              RowBox[{
                StyleBox["f",
                  "SelArg"], ",", 
                StyleBox["dims",
                  "Arg"], ",", 
                StyleBox["origin",
                  "Arg"], ",", 
                StyleBox["h",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"Array", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]", ",", "\[Placeholder]"}], "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      GridDefaultElement:>ButtonBox[ "\\[Placeholder]"]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["Array",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]],

Cell[CellGroupData[{

Cell["Manipulating Parts of Lists", "Subsection"],

Cell[TextData[{
  StyleBox["Part", "MR"],
  ", ",
  StyleBox["Take", "MR"],
  ", and ",
  StyleBox["Drop", "MR"],
  " can pick out nested lists of parts on multiple levels. ",
  StyleBox["All", "MR"],
  " specifies that all parts on a level should be chosen (useful for getting \
a column from a matrix)."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{
              StyleBox["expr",
                "SelArg"], "\[LeftDoubleBracket]", 
              RowBox[{"All", ",", 
                StyleBox["j",
                  "Arg"]}], "\[RightDoubleBracket]"}],
            
            ButtonData:>RowBox[ 
              {"\[SelectionPlaceholder]", "\[LeftDoubleBracket]", 
                RowBox[ {"All", ",", "\[Placeholder]"}], 
                "\[RightDoubleBracket]"}]]},
        {
          ButtonBox[
            RowBox[{"Take", "[", 
              RowBox[{
                StyleBox["list",
                  "SelArg"], ",", 
                SubscriptBox[
                  StyleBox["seq",
                    "Arg"], "1"], ",", 
                SubscriptBox[
                  StyleBox["seq",
                    "Arg"], "2"]}], "]"}],
            ButtonData:>RowBox[ {"Take", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"Drop", "[", 
              RowBox[{
                StyleBox["list",
                  "SelArg"], ",", 
                SubscriptBox[
                  StyleBox["seq",
                    "Arg"], "1"], ",", 
                SubscriptBox[
                  StyleBox["seq",
                    "Arg"], "2"]}], "]"}],
            ButtonData:>RowBox[ {"Drop", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      GridDefaultElement:>ButtonBox[ 
        "\\[Placeholder]", ButtonData :> "\\[Placeholder]"]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["Part",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]],

Cell[CellGroupData[{

Cell["Stepping Sequences", "Subsection"],

Cell[TextData[{
  "A sequence specification of the form ",
  StyleBox["{", "MR"],
  StyleBox["m",
    FontFamily->"Times New Roman",
    FontSlant->"Italic"],
  StyleBox[",", "MR"],
  StyleBox["n",
    FontFamily->"Times New Roman",
    FontSlant->"Italic"],
  StyleBox[",", "MR"],
  StyleBox["s",
    FontFamily->"Times New Roman",
    FontSlant->"Italic"],
  StyleBox["}", "MR"],
  " indicates a sequence that goes from the ",
  StyleBox["m",
    FontSlant->"Italic"],
  "-th element to the ",
  StyleBox["n",
    FontSlant->"Italic"],
  "-th element by steps of ",
  StyleBox["s",
    FontSlant->"Italic"],
  "."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"Take", "[", 
              RowBox[{
                StyleBox["list",
                  "SelArg"], ",", 
                RowBox[{"{", 
                  RowBox[{
                    StyleBox["m",
                      "Arg"], ",", 
                    StyleBox["n",
                      "Arg"], ",", 
                    StyleBox["s",
                      "Arg"]}], "}"}]}], "]"}],
            ButtonData:>RowBox[ {"Take", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", 
                  RowBox[ {"{", 
                    RowBox[ 
                    {"\[Placeholder]", ",", "\[Placeholder]", ",", 
                      "\[Placeholder]"}], "}"}]}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"Drop", "[", 
              RowBox[{
                StyleBox["ist",
                  "SelArg"], ",", 
                RowBox[{"{", 
                  RowBox[{
                    StyleBox["m",
                      "Arg"], ",", 
                    StyleBox["n",
                      "Arg"], ",", 
                    StyleBox["s",
                      "Arg"]}], "}"}]}], "]"}],
            ButtonData:>RowBox[ {"Drop", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", 
                  RowBox[ {"{", 
                    RowBox[ 
                    {"\[Placeholder]", ",", "\[Placeholder]", ",", 
                      "\[Placeholder]"}], "}"}]}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"StringTake", "[", 
              RowBox[{
                StyleBox["string",
                  "SelArg"], ",", 
                RowBox[{"{", 
                  RowBox[{
                    StyleBox["m",
                      "Arg"], ",", 
                    StyleBox["n",
                      "Arg"], ",", 
                    StyleBox["s",
                      "Arg"]}], "}"}]}], "]"}],
            ButtonData:>RowBox[ {"StringTake", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", 
                  RowBox[ {"{", 
                    RowBox[ 
                    {"\[Placeholder]", ",", "\[Placeholder]", ",", 
                      "\[Placeholder]"}], "}"}]}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"StringDrop", "[", 
              RowBox[{
                StyleBox["string",
                  "SelArg"], ",", 
                RowBox[{"{", 
                  RowBox[{
                    StyleBox["m",
                      "Arg"], ",", 
                    StyleBox["n",
                      "Arg"], ",", 
                    StyleBox["s",
                      "Arg"]}], "}"}]}], "]"}],
            ButtonData:>RowBox[ {"StringDrop", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", 
                  RowBox[ {"{", 
                    RowBox[ 
                    {"\[Placeholder]", ",", "\[Placeholder]", ",", 
                      "\[Placeholder]"}], "}"}]}], "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      GridDefaultElement:>ButtonBox[ 
        "\\[Placeholder]", ButtonData :> "\\[Placeholder]"]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["Take",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]],

Cell[CellGroupData[{

Cell["Partitioning and Padding", "Subsection"],

Cell[TextData[{
  "The four-argument form of ",
  StyleBox["Partition", "MR"],
  " specifies how the first and last partitions should align with the \
beginning and end of the input list, allowing overhangs to be filled by \
cyclic extension of the input list. The five-argument form gives a padding \
value to be used to fill overhangs."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"Partition", "[", 
              RowBox[{
                StyleBox["list",
                  "SelArg"], ",", 
                StyleBox["n",
                  "Arg"], ",", 
                StyleBox["d",
                  "Arg"], ",", \({1, 1}\)}], "]"}],
            ButtonData:>RowBox[ {"Partition", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]", ",", 
                  RowBox[ {"{", 
                    RowBox[ {"1", ",", "1"}], "}"}]}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"Partition", "[", 
              RowBox[{
                StyleBox["list",
                  "SelArg"], ",", 
                StyleBox["n",
                  "Arg"], ",", 
                StyleBox["d",
                  "Arg"], ",", \({1, 1}\), ",", 
                StyleBox["pad",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"Partition", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]", ",", 
                  RowBox[ {"{", 
                    RowBox[ {"1", ",", "1"}], "}"}], ",", "\[Placeholder]"}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"Partition", "[", 
              RowBox[{
                StyleBox["list",
                  "SelArg"], ",", 
                StyleBox["n",
                  "Arg"], ",", 
                StyleBox["d",
                  "Arg"], ",", \({1, 1}\), ",", \({}\)}], "]"}],
            ButtonData:>RowBox[ {"Partition", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]", ",", 
                  RowBox[ {"{", 
                    RowBox[ {"1", ",", "1"}], "}"}], ",", 
                  RowBox[ {"{", "}"}]}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"PadLeft", "[", 
              RowBox[{
                StyleBox["list",
                  "SelArg"], ",", 
                StyleBox["n",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"PadLeft", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", "\[Placeholder]"}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"PadLeft", "[", 
              RowBox[{
                StyleBox["list",
                  "SelArg"], ",", 
                StyleBox["n",
                  "Arg"], ",", 
                StyleBox["pad",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"PadLeft", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"PadLeft", "[", 
              RowBox[{
                StyleBox["list",
                  "SelArg"], ",", 
                StyleBox["n",
                  "Arg"], ",", 
                StyleBox["pad",
                  "Arg"], ",", 
                StyleBox["m",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"PadLeft", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]", ",", "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"PadRight", "[", 
              RowBox[{
                StyleBox["list",
                  "SelArg"], ",", 
                StyleBox["n",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"PadRight", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", "\[Placeholder]"}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"PadRight", "[", 
              RowBox[{
                StyleBox["list",
                  "SelArg"], ",", 
                StyleBox["n",
                  "Arg"], ",", 
                StyleBox["pad",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"PadRight", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"PadRight", "[", 
              RowBox[{
                StyleBox["list",
                  "SelArg"], ",", 
                StyleBox["n",
                  "Arg"], ",", 
                StyleBox["pad",
                  "Arg"], ",", 
                StyleBox["m",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"PadRight", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]", ",", "\[Placeholder]"}], "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      RowLines->{False, False, True, False, False, True, False},
      GridDefaultElement:>ButtonBox[ 
        "\\[Placeholder]", ButtonData :> "\\[Placeholder]"]]], "Input",
  Active->False],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["Partition",
    ButtonStyle->"RefGuideLink"],
  ", ",
  ButtonBox["PadLeft",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]],

Cell[CellGroupData[{

Cell["Matrix Operations", "Subsection"],

Cell[TextData[{
  StyleBox["Tr", "MR"],
  " is the matrix trace function. ",
  StyleBox["Minors[", "MR"],
  StyleBox["m", "Arg"],
  StyleBox[",", "MR"],
  StyleBox["k", "Arg"],
  StyleBox["]", "MR"],
  " gives a table of  ",
  StyleBox["k", "Arg"],
  "\[Times]",
  StyleBox["k", "Arg"],
  " minors of a matrix, and ",
  StyleBox["Minors[", "MR"],
  StyleBox["m", "Arg"],
  StyleBox["]", "MR"],
  " is equivalent to ",
  StyleBox["Minors[", "MR"],
  StyleBox["m", "Arg"],
  StyleBox[",", "MR"],
  StyleBox["m", "Arg"],
  StyleBox["-1]", "MR"],
  "."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"Tr", "[", 
              StyleBox["list",
                "SelArg"], "]"}],
            ButtonData:>RowBox[ {"Tr", "[", "\[SelectionPlaceholder]", "]"}]]}
          ,
        {
          ButtonBox[
            RowBox[{"Tr", "[", 
              RowBox[{
                StyleBox["list",
                  "SelArg"], ",", 
                StyleBox["f",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"Tr", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", "\[Placeholder]"}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"Minors", "[", 
              StyleBox["m",
                "SelArg"], "]"}],
            ButtonData:>"\\[Placeholder]"]},
        {
          ButtonBox[
            RowBox[{"Minors", "[", 
              RowBox[{
                StyleBox["m",
                  "SelArg"], ",", 
                StyleBox["k",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"Minors", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", "\[Placeholder]"}], 
                "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      GridDefaultElement:>ButtonBox[ 
        "\\[Placeholder]", ButtonData :> "\\[Placeholder]"]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["Tr",
    ButtonStyle->"RefGuideLink"],
  ", ",
  StyleBox["Minors", "RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]],

Cell[CellGroupData[{

Cell["Convolution and Correlation", "Subsection",
  Active->False],

Cell[TextData[{
  StyleBox["ListConvolve", "MR"],
  " and ",
  StyleBox["ListCorrelate", "MR"],
  " perform convolution and correlation operations on lists of data. Optional \
arguments allow special alignment and padding choices and generalizations to \
use other functions in place of ",
  StyleBox["Times", "MR"],
  " and ",
  StyleBox["Plus", "MR"],
  "."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"ListConvolve", "[", 
              RowBox[{
                StyleBox["ker",
                  "SelArg"], ",", 
                StyleBox["list",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"ListConvolve", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", "\[Placeholder]"}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"ListConvolve", "[", 
              RowBox[{
                StyleBox["ker",
                  "SelArg"], ",", 
                StyleBox["list",
                  "Arg"], ",", 
                StyleBox["k",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"ListConvolve", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"ListConvolve", "[", 
              RowBox[{
                StyleBox["ker",
                  "SelArg"], ",", 
                StyleBox["list",
                  "Arg"], ",", 
                StyleBox["k",
                  "Arg"], ",", 
                StyleBox["pad",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"ListConvolve", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]", ",", "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"ListConvolve", "[", 
              RowBox[{
                StyleBox["ker",
                  "SelArg"], ",", 
                StyleBox["list",
                  "Arg"], ",", 
                StyleBox["k",
                  "Arg"], ",", 
                StyleBox["pad",
                  "Arg"], ",", 
                StyleBox["g",
                  "Arg"], ",", 
                StyleBox["h",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"ListConvolve", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]", ",", "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"ListCorrelate", "[", 
              RowBox[{
                StyleBox["ker",
                  "SelArg"], ",", 
                StyleBox["list",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"ListCorrelate", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", "\[Placeholder]"}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"ListCorrelate", "[", 
              RowBox[{
                StyleBox["ker",
                  "SelArg"], ",", 
                StyleBox["list",
                  "Arg"], ",", 
                StyleBox["k",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"ListCorrelate", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"ListCorrelate", "[", 
              RowBox[{
                StyleBox["ker",
                  "SelArg"], ",", 
                StyleBox["list",
                  "Arg",
                  FontWeight->"Plain"], ",", 
                StyleBox["k",
                  "Arg"], ",", 
                StyleBox["pad",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"ListCorrelate", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]", ",", "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"ListCorrelate", "[", 
              RowBox[{
                StyleBox["ker",
                  "SelArg"], ",", 
                StyleBox["list",
                  "Arg"], ",", 
                StyleBox["k",
                  "Arg"], ",", 
                StyleBox["pad",
                  "Arg"], ",", 
                StyleBox["g",
                  "Arg"], ",", 
                StyleBox["h",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"ListCorrelate", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]", ",", "\[Placeholder]"}], "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      RowLines->{False, False, False, True, False},
      GridDefaultElement:>ButtonBox[ 
        "\\[Placeholder]", ButtonData :> "\\[Placeholder]"]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["ListConvolve",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText",
  Active->False]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Programming", "Section"],

Cell[CellGroupData[{

Cell["Functional programming", "Subsection"],

Cell[TextData[{
  StyleBox["f",
    FontSlant->"Italic"],
  StyleBox["@@@", "MR"],
  StyleBox["expr",
    FontSlant->"Italic"],
  " is a special input form for ",
  StyleBox["Apply[", "MR"],
  StyleBox["f",
    FontFamily->"Times New Roman",
    FontSlant->"Italic"],
  StyleBox[", ", "MR"],
  StyleBox["expr",
    FontFamily->"Times New Roman",
    FontSlant->"Italic"],
  StyleBox[", {1}]", "MR"],
  ". ",
  StyleBox["NestWhile", "MR"],
  " and ",
  StyleBox["NestWhileList", "MR"],
  " are generalizations of ",
  StyleBox["FixedPoint", "MR"],
  "."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{
              StyleBox["f",
                "Arg"], "@@@", 
              StyleBox["expr",
                "SelArg"]}],
            ButtonData:>RowBox[ {"\[Placeholder]", "@@", 
                RowBox[ {"@", "\[SelectionPlaceholder]"}]}]]},
        {
          ButtonBox[
            RowBox[{"NestWhile", "[", 
              RowBox[{
                StyleBox["f",
                  "SelArg"], ",", 
                StyleBox["expr",
                  "Arg"], ",", 
                StyleBox["test",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"NestWhile", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"NestWhile", "[", 
              RowBox[{
                StyleBox["f",
                  "SelArg"], ",", 
                StyleBox["expr",
                  "Arg"], ",", 
                StyleBox["test",
                  "Arg"], ",", 
                StyleBox["m",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"NestWhile", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]", ",", "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"NestWhileList", "[", 
              RowBox[{
                StyleBox["f",
                  "SelArg"], ",", 
                StyleBox["expr",
                  "Arg"], ",", 
                StyleBox["test",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"NestWhileList", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"NestWhileList", "[", 
              RowBox[{
                StyleBox["f",
                  "SelArg"], ",", 
                StyleBox["expr",
                  "Arg"], ",", 
                StyleBox["test",
                  "Arg"], ",", 
                StyleBox["m",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"NestWhileList", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]", ",", "\[Placeholder]"}], "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      RowLines->{True, False},
      GridDefaultElement:>ButtonBox[ 
        "\\[Placeholder]", ButtonData :> "\\[Placeholder]"]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["NestWhile",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]],

Cell[CellGroupData[{

Cell["Replace with Level Specification", "Subsection"],

Cell[TextData[{
  "With a level specification as a third argument, ",
  StyleBox["Replace", "MR"],
  " will apply rules to parts of an expression on the specified levels."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"Replace", "[", 
              RowBox[{
                StyleBox["expr",
                  "SelArg"], ",", 
                StyleBox["rules",
                  "Arg"], ",", 
                StyleBox["levelspec",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"Replace", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[Placeholder]", ",", 
                  "\[Placeholder]"}], "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      GridDefaultElement:>ButtonBox[ "\\[Placeholder]"]]], "Input",
  GeneratedCell->True],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["Replace",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Notebook Front End", "Section"],

Cell[TextData[{
  "Options for the notebook front end are typically set in the Option \
Inspector, but they can also be set by using ",
  StyleBox["SetOptions", "MR"],
  " on ",
  StyleBox["$FrontEnd", "MR"],
  " (for a global change) or on a ",
  StyleBox["NotebookObject", "MR"],
  " or ",
  StyleBox["NotebookSelection", "MR"],
  " expression (to take effect in a particular notebook or selected cells)."
}], "Text"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["SetOptions",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"],

Cell[CellGroupData[{

Cell["Customized Aliases and Automatic Replacements", "Subsection"],

Cell[TextData[{
  "There are two options for defining automatic conversions of some character \
sequences into other sequences. ",
  StyleBox["InputAliases", "MR"],
  " defines additional aliases, which can be typed within \[AliasIndicator] \
\[AliasIndicator] to produce the specified results. ",
  StyleBox["InputAutoReplacements", "MR"],
  " defines sequences that the notebook front end will replace as soon as you \
type them in. "
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"SetOptions", "[", 
              RowBox[{
                StyleBox["obj",
                  "SelArg"], ",", 
                RowBox[{"InputAliases", "\[Rule]", 
                  StyleBox["rules",
                    "Arg"]}]}], "]"}],
            ButtonData:>RowBox[ {"SetOptions", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", 
                  RowBox[ {"InputAliases", "\[Rule]", "\[Placeholder]"}]}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"SetOptions", "[", 
              RowBox[{
                StyleBox["obj",
                  "SelArg"], ",", "\[IndentingNewLine]", 
                RowBox[{"InputAutoReplacements", "\[Rule]", 
                  StyleBox["rules",
                    "Arg"]}]}], "]"}],
            ButtonData:>RowBox[ {"SetOptions", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", 
                  RowBox[ 
                  {"InputAutoReplacements", "\[Rule]", "\[Placeholder]"}]}], 
                "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      GridDefaultElement:>ButtonBox[ 
        "\\[Placeholder]", ButtonData -> ReplaceAll[ 
          "\\[Placeholder]", {StyleBox[ 
              Pattern[ pl, 
                Blank[ ]], "SelArg"] -> "\[SelectionPlaceholder]", StyleBox[ 
              Pattern[ pl, 
                Blank[ ]], "Arg"] -> "\[Placeholder]"}]]]], "Input",
  AutoSpacing->False],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["InputAliases",
    ButtonStyle->"RefGuideLink"],
  ", ",
  ButtonBox["InputAutoReplacements",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyphenation and Visual Editing Markers", "Subsection"],

Cell["\<\
There are options for turning on or off automatic hyphenation, automatic \
styles (such as unmatched bracket coloring), selection highlighting and the \
cursor tracker.\
\>", "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"SetOptions", "[", 
              RowBox[{
                StyleBox["obj",
                  "SelArg"], ",", 
                RowBox[{"Hyphenation", "\[Rule]", 
                  StyleBox["val",
                    "Arg"]}]}], "]"}],
            ButtonData:>RowBox[ {"SetOptions", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", 
                  RowBox[ {"Hyphenation", "\[Rule]", "\[Placeholder]"}]}], 
                "]"}]]},
        {
          ButtonBox[
            RowBox[{"SetOptions", "[", 
              RowBox[{
                StyleBox["obj",
                  "SelArg"], ",", 
                RowBox[{"ShowAutoStyles", "\[Rule]", 
                  StyleBox["val",
                    "Arg"]}]}], "]"}]]},
        {
          ButtonBox[
            RowBox[{"SetOptions", "[", 
              RowBox[{
                StyleBox["obj",
                  "SelArg"], ",", 
                RowBox[{"ShowSelection", "\[Rule]", 
                  StyleBox["val",
                    "Arg"]}]}], "]"}],
            ButtonData:>RowBox[ {"SetOptions", "[", 
                RowBox[ {"\[SelectionPlaceholder]", ",", 
                  RowBox[ {"ShowSelection", "->", "\[Placeholder]"}]}], "]"}]
              ]},
        {
          ButtonBox[
            RowBox[{"SetOptions", "[", 
              RowBox[{
                StyleBox["obj",
                  "SelArg"], ",", "\[IndentingNewLine]", 
                RowBox[{"ShowCursorTracker", "\[Rule]", 
                  StyleBox["val",
                    "Arg"]}]}], "]"}],
            ButtonData:>RowBox[ {"SetOptions", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\[IndentingNewLine]", 
                  RowBox[ {"ShowCursorTracker", "->", "\[Placeholder]"}]}], 
                "]"}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0]], "Input",
  LineSpacing->{1, 0},
  AutoSpacing->False],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["Hyphenation",
    ButtonStyle->"RefGuideLink"],
  ", ",
  ButtonBox["ShowAutoStyles",
    ButtonStyle->"RefGuideLink"],
  ", etc."
}], "SmallText"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Import and Export", "Section",
  GeneratedCell->True],

Cell[TextData[{
  "Import and export functions move data between ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " expression format and various other formats. ",
  StyleBox["Import", "MR"],
  " and ",
  StyleBox["Export", "MR"],
  " work with files, and ",
  StyleBox["ImportString", "MR"],
  " and ",
  StyleBox["ExportString", "MR"],
  " work  with strings of data in a specified format."
}], "Text",
  GeneratedCell->True],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"Import", "[", "\"\<\!\(\*
StyleBox[\(file\),\n\"SelArg\"]\)\>\"", "]"}],
            
            ButtonData:>RowBox[ 
              {"Import", "[", "\"\[SelectionPlaceholder]\"", "]"}]]},
        {
          ButtonBox[
            RowBox[{"Import", "[", 
              RowBox[{"\"\<\!\(\*
StyleBox[\(file\),\n\"SelArg\"]\)\>\"", ",", 
                StyleBox["format",
                  "Arg"]}], "]"}],
            ButtonData:>RowBox[ {"Import", "[", 
                RowBox[ 
                {"\"\[SelectionPlaceholder]\"", ",", "\[Placeholder]"}], "]"}]
              ]},
        {
          ButtonBox[
            RowBox[{"Export", "[", "\"\<\!\(\*
StyleBox[\(file\),\n\"SelArg\"]\)\>\"", 
              StyleBox["]",
                "Input"]}],
            
            ButtonData:>RowBox[ 
              {"Export", "[", "\"\[SelectionPlaceholder]\"", 
                StyleBox[ "]", "Input"]}]]},
        {
          ButtonBox[
            RowBox[{"Export", "[", 
              RowBox[{"\"\<\!\(\*
StyleBox[\(file\),\n\"SelArg\"]\)\>\"", 
                StyleBox[",",
                  "Input"], 
                StyleBox["format",
                  "Arg"]}], 
              StyleBox["]",
                "Input"]}],
            ButtonData:>RowBox[ {"Export", "[", 
                RowBox[ {"\"\[SelectionPlaceholder]\"", 
                  StyleBox[ ",", "Input"], "\[Placeholder]"}], 
                StyleBox[ "]", "Input"]}]]},
        {
          ButtonBox[
            RowBox[{"ImportString", "[", 
              RowBox[{"\"\<\!\(\*
StyleBox[\(data\),\n\"SelArg\"]\)\>\"", 
                StyleBox[",",
                  "Input"], 
                StyleBox["format",
                  "Arg"]}], 
              StyleBox["]",
                "Input"]}],
            ButtonData:>RowBox[ {"ImportString", "[", 
                RowBox[ {"\"\[SelectionPlaceholder]\"", 
                  StyleBox[ ",", "Input"], "\[Placeholder]"}], 
                StyleBox[ "]", "Input"]}]]},
        {
          ButtonBox[
            RowBox[{"ExportString", "[", 
              RowBox[{"\"\<\!\(\*
StyleBox[\(data\),\n\"SelArg\"]\)\>\"", 
                StyleBox[",",
                  "Input"], 
                StyleBox["format",
                  "Arg"]}], 
              StyleBox["]",
                "Input"]}],
            ButtonData:>RowBox[ {"ExportString", "[", 
                RowBox[ {"\"\[SelectionPlaceholder]\"", 
                  StyleBox[ ",", "Input"], "\[Placeholder]"}], 
                StyleBox[ "]", "Input"]}]]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      GridDefaultElement:>ButtonBox[ "\\[Placeholder]"]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["Import",
    ButtonStyle->"RefGuideLink"],
  ", ",
  ButtonBox["Export",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]],

Cell[CellGroupData[{

Cell["Other Features", "Section"],

Cell[CellGroupData[{

Cell["FromCharacterCode", "Subsection"],

Cell[TextData[{
  StyleBox["FromCharacterCode[{", "MR"],
  Cell[BoxData[
      FormBox[
        SubscriptBox[
          StyleBox["list",
            "Arg"], "1"], TraditionalForm]]],
  StyleBox[", ", "MR"],
  Cell[BoxData[
      FormBox[
        SubscriptBox[
          StyleBox["list",
            "Arg"], "2"], TraditionalForm]]],
  StyleBox[", \[Ellipsis] }]", "MR"],
  " returns a list of strings made from the character codes in each ",
  Cell[BoxData[
      FormBox[
        SubscriptBox[
          StyleBox["list",
            "Arg"], "i"], TraditionalForm]]],
  ". The two-argument form of ",
  StyleBox["FromCharacterCode", "MR"],
  " constructs strings according to a specified character encoding."
}], "Text"],

Cell[BoxData[GridBox[{
        {
          ButtonBox[
            RowBox[{"FromCharacterCode", "[", 
              StyleBox["lists",
                "SelArg"], "]"}],
            
            ButtonData:>RowBox[ 
              {"FromCharacterCode", "[", "\[SelectionPlaceholder]", "]"}]]},
        {
          ButtonBox[
            RowBox[{"FromCharacterCode", "[", 
              RowBox[{
                StyleBox["list",
                  "SelArg"], ",", "\"\<\!\(\*
StyleBox[\(encoding\),\n\"Arg\"]\)\>\""}], "]"}],
            ButtonData:>RowBox[ {"FromCharacterCode", "[", 
                RowBox[ 
                {"\[SelectionPlaceholder]", ",", "\"\[Placeholder]\""}], "]"}]
              ]}
        },
      RowSpacings->0,
      ColumnSpacings->0,
      GridDefaultElement:>ButtonBox[ "\\[Placeholder]"]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["FromCharacterCode",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]],

Cell[CellGroupData[{

Cell["Path Option for Get", "Subsection"],

Cell[TextData[{
  "The ",
  StyleBox["Path", "MR"],
  " option can be used to specify a the list of directories in which to look \
for the file. The default setting is ",
  StyleBox["Path:>$Path", "MR"],
  "."
}], "Text"],

Cell[BoxData[
    ButtonBox[
      RowBox[{"Get", "[", 
        RowBox[{"\"\<\!\(\*
StyleBox[\(name\),\n\"SelArg\"]\)\>\"", ",", 
          RowBox[{"Path", "->", 
            StyleBox["list",
              "Arg"]}]}], "]"}],
      ButtonData:>RowBox[ {"Get", "[", 
          RowBox[ {"\[SelectionPlaceholder]", ",", 
            RowBox[ {"Path", "->", "\[Placeholder]"}]}], "]"}]]], "Input"],

Cell[TextData[{
  "See Help Browser: ",
  ButtonBox["Get",
    ButtonStyle->"RefGuideLink"],
  "."
}], "SmallText"]
}, Closed]]
}, Closed]]
}, Open  ]]
},
FrontEndVersion->"4.0 for Microsoft Windows",
ScreenRectangle->{{0, 1024}, {0, 695}},
WindowSize->{275, 430},
WindowMargins->{{Automatic, 4}, {Automatic, 2}},
WindowFrame->"Palette",
WindowElements->"VerticalScrollBar",
WindowFrameElements->"CloseBox",
WindowClickSelect->False,
ShowCellBracket->False,
Active->True,
StyleDefinitions -> Notebook[{
  Cell[TextData[{
    "Prototypes for the New in ",
    StyleBox["Mathematica",
      FontSlant->"Italic"],
    " 4 Palette. This abbreviated style sheet is used to reduce the size of \
the notebook as a whole while still allowing the styles to be easily modifed. \
Remember that all other styles will be adopted from the default style sheet.  \
        "
  }], "Text"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Title"],
    CellFrame->{{0, 0}, {0.5, 0}},
    CellMargins->{{8, 8}, {5, 10}},
    CellGroupingRules->{"TitleGrouping", 0},
    PageBreakBelow->False,
    CounterIncrements->"Title",
    CounterAssignments->{
      {"Section", 0}, {"Equation", 0}, {"Figure", 0}, {"Subtitle", 0}, {
        "Subsubtitle", 0}},
    FontFamily->"Helvetica",
    FontSize->18,
    FontWeight->"Bold",
    FontColor->GrayLevel[0],
    Background->None],
  
  Cell[StyleData["Title", "Working"]],
  
  Cell[StyleData["Title", "Presentation"],
    CellMargins->{{24, 10}, {5, 10}},
    LineSpacing->{1, 0},
    FontSize->22],
  
  Cell[StyleData["Title", "Condensed"],
    CellMargins->{{4, 10}, {4, 8}},
    FontSize->18],
  
  Cell[StyleData["Title", "Printout"],
    CellMargins->{{2, 10}, {6, 10}},
    FontSize->18]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Section"],
    CellDingbat->None,
    ShowGroupOpenCloseIcon->True,
    CellMargins->{{24, Inherited}, {3, 18}},
    CellElementSpacings->{"ClosedGroupTopMargin"->7},
    CellGroupingRules->{"SectionGrouping", 30},
    PageBreakBelow->False,
    CounterIncrements->"Section",
    CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}},
    FontFamily->"Helvetica",
    FontSize->14,
    FontWeight->"Bold"],
  
  Cell[StyleData["Section", "Presentation"],
    CellMargins->{{24, Inherited}, {Inherited, 20}},
    LineSpacing->{1, 0},
    FontSize->18],
  
  Cell[StyleData["Section", "Printout"],
    CellMargins->{{14, Inherited}, {Inherited, 20}},
    FontSize->14],
  
  Cell[StyleData["Section", "Condensed"],
    CellMargins->{{4, Inherited}, {2, 2}},
    FontSize->14]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Subsection"],
    ShowGroupOpenCloseIcon->True,
    CellMargins->{{24, Inherited}, {0, 1}},
    CellGroupingRules->{"SectionGrouping", 50},
    PageBreakBelow->False,
    CounterIncrements->"Subsubsection",
    FontFamily->"Times",
    FontSize->12,
    FontWeight->"Bold",
    FontColor->RGBColor[0, 0, 0.6]],
  
  Cell[StyleData["Subsection", "Presentation"],
    CellMargins->{{24, Inherited}, {Inherited, 15}},
    LineSpacing->{1, 0},
    FontSize->18],
  
  Cell[StyleData["Subsection", "Printout"],
    CellMargins->{{14, Inherited}, {Inherited, 15}},
    FontSize->12],
  
  Cell[StyleData["Subsection", "Condensed"],
    CellMargins->{{4, Inherited}, {2, 2}},
    FontSize->12]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Text"],
    CellMargins->{{8, Inherited}, {0, Inherited}},
    FontFamily->"Times"],
  
  Cell[StyleData["Text", "Presentation"],
    CellMargins->{{24, Inherited}, {10, Inherited}},
    LineSpacing->{1, 0}],
  
  Cell[StyleData["Text", "Printout"],
    CellMargins->{{14, Inherited}, {0, Inherited}},
    FontSize->10],
  
  Cell[StyleData["Text", "Condensed"],
    CellMargins->{{4, Inherited}, {0, 2}},
    FontSize->10]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["SmallText"],
    CellMargins->{{8, Inherited}, {12, 4}},
    LineSpacing->{1, 3},
    CounterIncrements->"SmallText",
    FontFamily->"Helvetica",
    FontSize->9],
  
  Cell[StyleData["SmallText", "Presentation"],
    CellMargins->{{24, 21}, {8, 8}},
    LineSpacing->{1, 5},
    FontSize->12],
  
  Cell[StyleData["SmallText", "Condensed"],
    CellMargins->{{4, 21}, {5, 5}},
    LineSpacing->{1, 2},
    FontSize->9],
  
  Cell[StyleData["SmallText", "Printout"],
    CellMargins->{{2, 2}, {5, 5}},
    FontSize->7]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Input"],
    CellMargins->{{5, Inherited}, {0, Inherited}},
    Evaluatable->True,
    CellGroupingRules->"InputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
    DefaultFormatType->DefaultInputFormatType,
    FormatType->InputForm,
    ShowStringCharacters->True,
    NumberMarks->True,
    FontSize->10,
    FontWeight->"Bold",
    ButtonBoxOptions->{ButtonMargins->5,
    Background->GrayLevel[0.8]}],
  
  Cell[StyleData["Input", "Presentation"],
    CellMargins->{{24, Inherited}, {20, Inherited}},
    LineSpacing->{1, 0}],
  
  Cell[StyleData["Input", "Printout"],
    CellMargins->{{30, Inherited}, {10, Inherited}},
    FontSize->10],
  
  Cell[StyleData["Input", "Condensed"],
    CellMargins->{{4, Inherited}, {2, 2}},
    FontSize->10]
  }, Closed]],
  
  Cell[StyleData["RefGuideLink"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`HelpBrowserLookup[ "RefGuideLink", #]}]&),
    Active->True,
    ButtonFrame->"None"}],
  
  Cell[StyleData["SelArg"],
    FontFamily->"Times",
    FontWeight->"Plain",
    FontSlant->"Italic",
    FontVariations->{"Underline"->True}],
  
  Cell[StyleData["Arg"],
    FontFamily->"Times",
    FontWeight->"Plain",
    FontSlant->"Italic"],
  
  Cell[StyleData["MR"],
    FontFamily->"Courier",
    FontWeight->"Plain",
    FontSlant->"Plain"],
  
  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["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,
    StyleMenuListing->None,
    DrawHighlighted->True],
  
  Cell[StyleData["SelectionPlaceholder", "Presentation"]],
  
  Cell[StyleData["SelectionPlaceholder", "Condensed"]],
  
  Cell[StyleData["SelectionPlaceholder", "Printout"]]
  }, Closed]]
  }, Closed]]
  }]
]


(***********************************************************************
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[1740, 51, 100, 5, 46, "Title"],
Cell[1843, 58, 446, 15, 46, "Text"],

Cell[CellGroupData[{
Cell[2314, 77, 40, 0, 39, "Section"],

Cell[CellGroupData[{
Cell[2379, 81, 41, 0, 18, "Subsection"],
Cell[2423, 83, 109, 3, 38, "Text"],
Cell[2535, 88, 1183, 35, 63, "Input"],
Cell[3721, 125, 129, 5, 32, "SmallText"]
}, Closed]],

Cell[CellGroupData[{
Cell[3887, 135, 32, 0, 21, "Subsection"],
Cell[3922, 137, 210, 5, 55, "Text"],
Cell[4135, 144, 1572, 43, 47, "Input"],
Cell[5710, 189, 122, 5, 32, "SmallText"]
}, Closed]],

Cell[CellGroupData[{
Cell[5869, 199, 37, 0, 21, "Subsection"],
Cell[5909, 201, 139, 3, 38, "Text"],
Cell[6051, 206, 1084, 30, 45, "Input"],
Cell[7138, 238, 127, 5, 32, "SmallText"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{
Cell[7314, 249, 40, 0, 28, "Section"],

Cell[CellGroupData[{
Cell[7379, 253, 50, 0, 18, "Subsection"],
Cell[7432, 255, 424, 12, 123, "Text"],
Cell[7859, 269, 1844, 51, 81, "Input"],
Cell[9706, 322, 120, 5, 32, "SmallText"]
}, Closed]],

Cell[CellGroupData[{
Cell[9863, 332, 37, 0, 21, "Subsection"],
Cell[9903, 334, 491, 19, 42, "MR"],
Cell[10397, 355, 368, 11, 27, "Input"],
Cell[10768, 368, 122, 5, 32, "SmallText"]
}, Closed]],

Cell[CellGroupData[{
Cell[10927, 378, 54, 1, 21, "Subsection"],
Cell[10984, 381, 155, 5, 38, "Text"],
Cell[11142, 388, 3622, 103, 119, "Input",
  Evaluatable->True,
  CellGroupingRules->"NormalGrouping",
  PageBreakAbove->True,
  PageBreakWithin->False],
Cell[14767, 493, 155, 6, 32, "SmallText"]
}, Closed]],

Cell[CellGroupData[{
Cell[14959, 504, 46, 0, 21, "Subsection"],
Cell[15008, 506, 139, 3, 38, "Text"],
Cell[15150, 511, 545, 17, 28, "Input"],
Cell[15698, 530, 125, 5, 32, "SmallText"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{
Cell[15872, 541, 41, 0, 28, "Section"],

Cell[CellGroupData[{
Cell[15938, 545, 31, 0, 18, "Subsection"],
Cell[15972, 547, 163, 5, 38, "Text"],
Cell[16138, 554, 994, 30, 81, "Input"],
Cell[17135, 586, 258, 11, 32, "SmallText"]
}, Closed]],

Cell[CellGroupData[{
Cell[17430, 602, 48, 0, 21, "Subsection"],
Cell[17481, 604, 356, 11, 72, "Text"],
Cell[17840, 617, 2675, 76, 103, "Input"],
Cell[20518, 695, 258, 11, 32, "SmallText"],
Cell[20779, 708, 399, 12, 70, "Text"],
Cell[21181, 722, 922, 27, 70, "Input"],
Cell[22106, 751, 122, 5, 70, "SmallText"],
Cell[22231, 758, 175, 7, 70, "Text"],
Cell[22409, 767, 1714, 50, 70, "Input"],
Cell[24126, 819, 118, 5, 70, "SmallText"]
}, Closed]],

Cell[CellGroupData[{
Cell[24281, 829, 39, 0, 21, "Subsection"],
Cell[24323, 831, 140, 4, 38, "Text"],
Cell[24466, 837, 2363, 68, 83, "Input"],
Cell[26832, 907, 250, 11, 32, "SmallText"]
}, Closed]],

Cell[CellGroupData[{
Cell[27119, 923, 51, 0, 21, "Subsection"],
Cell[27173, 925, 222, 5, 72, "Text"],
Cell[27398, 932, 1698, 50, 83, "Input"],
Cell[29099, 984, 198, 8, 32, "SmallText"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{
Cell[29346, 998, 37, 0, 28, "Section"],

Cell[CellGroupData[{
Cell[29408, 1002, 28, 0, 18, "Subsection"],
Cell[29439, 1004, 261, 6, 72, "Text"],
Cell[29703, 1012, 1196, 34, 47, "Input"],
Cell[30902, 1048, 117, 5, 32, "SmallText"]
}, Closed]],

Cell[CellGroupData[{
Cell[31056, 1058, 49, 0, 21, "Subsection"],
Cell[31108, 1060, 317, 10, 72, "Text"],
Cell[31428, 1072, 1778, 50, 67, "Input"],
Cell[33209, 1124, 116, 5, 32, "SmallText"]
}, Closed]],

Cell[CellGroupData[{
Cell[33362, 1134, 40, 0, 21, "Subsection"],
Cell[33405, 1136, 627, 25, 55, "Text"],
Cell[34035, 1163, 3136, 85, 85, "Input"],
Cell[37174, 1250, 116, 5, 32, "SmallText"]
}, Closed]],

Cell[CellGroupData[{
Cell[37327, 1260, 46, 0, 21, "Subsection"],
Cell[37376, 1262, 350, 7, 106, "Text"],
Cell[37729, 1271, 5077, 141, 181, "Input"],
Cell[42809, 1414, 186, 8, 70, "SmallText"]
}, Closed]],

Cell[CellGroupData[{
Cell[43032, 1427, 39, 0, 21, "Subsection"],
Cell[43074, 1429, 560, 23, 55, "Text"],
Cell[43637, 1454, 1321, 40, 83, "Input"],
Cell[44961, 1496, 160, 7, 32, "SmallText"]
}, Closed]],

Cell[CellGroupData[{
Cell[45158, 1508, 66, 1, 21, "Subsection"],
Cell[45227, 1511, 371, 11, 89, "Text"],
Cell[45601, 1524, 4750, 131, 161, "Input"],
Cell[50354, 1657, 141, 6, 32, "SmallText"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{
Cell[50544, 1669, 30, 0, 28, "Section"],

Cell[CellGroupData[{
Cell[50599, 1673, 44, 0, 18, "Subsection"],
Cell[50646, 1675, 564, 23, 55, "Text"],
Cell[51213, 1700, 2651, 75, 105, "Input"],
Cell[53867, 1777, 121, 5, 32, "SmallText"]
}, Closed]],

Cell[CellGroupData[{
Cell[54025, 1787, 54, 0, 21, "Subsection"],
Cell[54082, 1789, 183, 4, 55, "Text"],
Cell[54268, 1795, 663, 19, 27, "Input"],
Cell[54934, 1816, 119, 5, 32, "SmallText"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{
Cell[55102, 1827, 37, 0, 28, "Section"],
Cell[55142, 1829, 419, 11, 106, "Text"],
Cell[55564, 1842, 122, 5, 32, "SmallText"],

Cell[CellGroupData[{
Cell[55711, 1851, 67, 0, 35, "Subsection"],
Cell[55781, 1853, 448, 9, 140, "Text"],
Cell[56232, 1864, 1499, 38, 67, "Input"],
Cell[57734, 1904, 203, 8, 32, "SmallText"]
}, Closed]],

Cell[CellGroupData[{
Cell[57974, 1917, 60, 0, 21, "Subsection"],
Cell[58037, 1919, 192, 4, 72, "Text"],
Cell[58232, 1925, 1983, 54, 101, "Input"],
Cell[60218, 1981, 200, 8, 32, "SmallText"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{
Cell[60467, 1995, 59, 1, 28, "Section"],
Cell[60529, 1998, 435, 14, 89, "Text"],
Cell[60967, 2014, 2736, 77, 123, "Input"],
Cell[63706, 2093, 182, 8, 32, "SmallText"]
}, Closed]],

Cell[CellGroupData[{
Cell[63925, 2106, 33, 0, 28, "Section"],

Cell[CellGroupData[{
Cell[63983, 2110, 39, 0, 18, "Subsection"],
Cell[64025, 2112, 720, 23, 89, "Text"],
Cell[64748, 2137, 826, 23, 47, "Input"],
Cell[65577, 2162, 129, 5, 32, "SmallText"]
}, Closed]],

Cell[CellGroupData[{
Cell[65743, 2172, 41, 0, 21, "Subsection"],
Cell[65787, 2174, 221, 7, 55, "Text"],
Cell[66011, 2183, 391, 10, 27, "Input"],
Cell[66405, 2195, 115, 5, 32, "SmallText"]
}, Closed]]
}, Closed]]
}, Open  ]]
}
]
*)




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

