MathGroup Archive 2001

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

Search the Archive

Re: Aligning equal signs

  • To: mathgroup at smc.vnet.net
  • Subject: [mg31407] Re: Aligning equal signs
  • From: "Allan Hayes" <hay at haystack.demon.co.uk>
  • Date: Sat, 3 Nov 2001 05:29:13 -0500 (EST)
  • References: <9rqveb$jin$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

"Ken Morgan" <kmorga51 at calvin.edu> wrote in message
news:9rqveb$jin$1 at smc.vnet.net...
> Is there any way to get Mathematica to automatically align equal signs
when
> writing multiple line equations in TraditionalForm (such as seen in a
> textbook)?
>

Ken,

Here is a note about alignmnent that I made quite a while ago - sorry about
the length.
Any suggestions or corrections would be welcome.
To read it just copy from above Notebook down to above my name, Allan, near
the end, then paste into an open notebook.
Reply, "Yes", to the query panel that comes up.

Notebook[{

Cell[CellGroupData[{
Cell["Aligning text to a marker, grids", "Section"],

Cell[CellGroupData[{

Cell[TextData[{
  "Input cells  ",
  StyleBox["(works only with a cell in Standard or Traditional form)",

    FontWeight->"Plain"]
}], "Subsubsection"],

Cell[BoxData[
    RowBox[{"Clear", "[",
      RowBox[{"a", ",", "abc"}], "]"}]], "Input"],

Cell["Here is some text in an input cell", "Text"],

Cell[BoxData[
    RowBox[{
      RowBox[{"A", "[",
        RowBox[{"a", " ", ",", " ", "c"}], "]"}], ",", "\n",
      RowBox[{"B", "[",
        RowBox[{"abc", " ", ",", " ", "cde"}], "]"}], ",", "\n",
      "123"}]], "Input"],

Cell["\<\
- Put the invisible character \\[\[InvisibleSpace]AlignmentMarker]  (\
\[AliasIndicator]\[InvisibleSpace]am\[AliasDelimiter]) immediately \
after each character c
- give the cell the option, TextAlignment \[Rule] AlignmentMarker.
This gives\
\>", "Text"],

Cell[BoxData[
    RowBox[{
      RowBox[{"A", "[",
        RowBox[{"a", " ", ",", " ", "c"}], "\[AlignmentMarker]",
        "]"}], ",", "\n",
      RowBox[{"B", "[",
        RowBox[{"abc", "\[AlignmentMarker] ", ",", " ",
          RowBox[{"c", "\[AlignmentMarker]", "de"}]}], "]"}], ",",
      "\n", "123"}]], "Input",
  TextAlignment->AlignmentMarker],

Cell["\<\
\t\[Bullet] lines with the marker align on the first  marker
\t\[Bullet] other line align to the left of the first character\
\>", "Text"],

Cell[TextData[{
  "A similar alignment mechanism works in grid columns in any cell \
style BUT the alignment for a line with no alignment marker is to the \
",
  StyleBox["right of the last character, not to the left of the first \
one",
    FontSlant->"Italic"],
  ", and we need to include \"\\[\[InvisibleSpace]AlignmentMarker]\" \
in the values for ColumnAlignments \[LongDash] see below."
}], "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Grid Columns (works in all  cell styles)", "Subsubsection"],

Cell["The alignments used for the columns are given by the option", \
"Text"],

Cell[BoxData[
    RowBox[{"ColumnAlignments", " ", "->", " ",
      RowBox[{"{",
        RowBox[{
        "Left", ",", "Right", ",", "Center", ",", "\"\<2\>\"", ",",
          "\"\<\\[\[InvisibleSpace]AlignmentMarker]\>\"", ",",
          "\"\<.\>\"", ",", "\"\<m\>\""}], "}"}]}]], "Input",
  CellMargins->{{13, Inherited}, {Inherited, Inherited}}],

Cell["\<\
If alignments are set for the cel then they will apply  to all grids \
in the cell but can be overridden by alignments for separated \
grids.\
\>", "Text"],

Cell[BoxData[
    FormBox[GridBox[{
          {"Left", "Right", "Centre", "2",
            RowBox[{
            " ", "\[AliasIndicator]am\[AliasIndicator]", " "}], ".",
            "m"},
          {"12345", "1213", "1213", "123.0",
            RowBox[{"19", "\[AlignmentMarker]", "1111"}], "1.22",
            "ambbb"},
          {"12", "23", "23", "111.2344",
            RowBox[{"11119", "\[AlignmentMarker]", "11"}], "122.",
            "aaamb"},
          {"666", "666", "666", "666", "666", "666", "666"}
          },
        ColumnAlignments->{
          Left, Right, Center, "2", "\[AlignmentMarker]", ".", "m"},
        GridFrame->True,
        RowLines->True,
        ColumnLines->True], TextForm]], "Text"],

Cell[" The alignment marker is to the right of the 9's.", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Try", "Subsubsection"],

Cell["Try setting up the following in a text cell", "Text"],

Cell[BoxData[
    FormBox[GridBox[{
          {" ",
            RowBox[{
              RowBox[{"f",
                RowBox[{"(", "x", ")"}]}], "+",
              RowBox[{"g",
                RowBox[{"(", "x", ")"}]}]}], "=",
            RowBox[{
              RowBox[{"h",
                RowBox[{"(", "x", ")"}]}], "-",
              RowBox[{"g",
                RowBox[{"(", "x", ")"}]}]}]},
          {"\[Implies]",
            RowBox[{"g",
              RowBox[{"(", "x", ")"}]}], "=",
            RowBox[{
              RowBox[{"h",
                RowBox[{"(", "x", ")"}]}], "-",
              RowBox[{"q",
                RowBox[{"(", "x", ")"}]}], "-",
              RowBox[{"f",
                RowBox[{"(", "x", ")"}]}]}]}
          }], TextForm]], "Text",
  GridBoxOptions->{ColumnAlignments->{Left, Right, Center, Left}}],

Cell["\<\
Is it better in this case to set grid options at cell or grid level? \
With grid level they will affect only this grid; with cell level they \
will affect all grids in this cell.\
\>", "Text"]
}, Open  ]]
}, Open  ]]
},
FrontEndVersion->"4.1 for Microsoft Windows",
ScreenRectangle->{{0, 1024}, {0, 723}},
WindowToolbars->"RulerBar",
WindowSize->{582, 668},
WindowMargins->{{66, Automatic}, {-37, Automatic}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PageHeaders->{{Cell[
        TextData[ {"Wordprocessing   ",
          CounterBox[ "Page"]}], "PageNumber"], Cell[
        TextData[ {
          ValueBox[ "DateLong"]}], "Header"], Cell[
        TextData[ {"\[Copyright] Allan Hayes 1999"}], "Header"]}, {
    Cell[
        TextData[ {"\[Copyright] Allan Hayes 1999"}], "Header"], Cell[

        TextData[ {
          ValueBox[ "DateLong"]}], "Header"], Cell[
        TextData[ {"Wordprocessing   ",
          CounterBox[ "Page"]}], "PageNumber"]}},
PrintingOptions->{"PrintingMargins"->{{57.5625, 57.5625}, {57.5625, \
36}},
"PrintCellBrackets"->False,
"PrintRegistrationMarks"->False,
"PrintMultipleHorizontalPages"->False,
"FacingPages"->True},
PrivateFontOptions->{"FontType"->"Outline"},
Magnification->1,
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,
    CellLabelMargins->{{12, Inherited}, {Inherited, Inherited}},
    ScriptMinSize->9],

  Cell[StyleData[All, "Presentation"],
    PageWidth->WindowWidth,
    CellLabelMargins->{{24, Inherited}, {Inherited, Inherited}},
    ScriptMinSize->12],

  Cell[StyleData[All, "Condensed"],
    PageWidth->WindowWidth,
    CellLabelMargins->{{8, Inherited}, {Inherited, Inherited}},
    ScriptMinSize->8],

  Cell[StyleData[All, "Printout"],
    PageWidth->PaperWidth,
    CellLabelMargins->{{2, Inherited}, {Inherited, Inherited}},
    ScriptMinSize->5,
    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"]}},
    CellFrameLabelMargins->6,
    StyleMenuListing->None]
  }, Closed]],

  Cell[CellGroupData[{

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

  Cell[CellGroupData[{

  Cell[StyleData["Title"],
    CellMargins->{{12, Inherited}, {20, 40}},
    CellGroupingRules->{"TitleGrouping", 0},
    PageBreakBelow->False,
    DefaultNewInlineCellStyle->"None",
    InputAutoReplacements->{"TeX"->StyleBox[
            RowBox[ {"T",
              AdjustmentBox[
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}},
                BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[
            RowBox[ {"L",
              StyleBox[
                AdjustmentBox[
                "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}},
                  BoxBaselineShift -> -0.2], FontSize -> Smaller],
              "T",
              AdjustmentBox[
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}},
                BoxBaselineShift -> 0.5], "X"}]],
        "mma"->"Mathematica", "Mma"->"Mathematica",
        "MMA"->"Mathematica"},
    LanguageCategory->"NaturalLanguage",
    CounterIncrements->"Title",
    CounterAssignments->{{"Section", 0}, {"Equation", 0}, {
        "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}},
    FontFamily->"Helvetica",
    FontSize->36,
    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}, {12, 30}},
    FontSize->24]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["Subtitle"],
    CellMargins->{{12, Inherited}, {20, 15}},
    CellGroupingRules->{"TitleGrouping", 10},
    PageBreakBelow->False,
    DefaultNewInlineCellStyle->"None",
    InputAutoReplacements->{"TeX"->StyleBox[
            RowBox[ {"T",
              AdjustmentBox[
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}},
                BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[
            RowBox[ {"L",
              StyleBox[
                AdjustmentBox[
                "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}},
                  BoxBaselineShift -> -0.2], FontSize -> Smaller],
              "T",
              AdjustmentBox[
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}},
                BoxBaselineShift -> 0.5], "X"}]],
        "mma"->"Mathematica", "Mma"->"Mathematica",
        "MMA"->"Mathematica"},
    LanguageCategory->"NaturalLanguage",
    CounterIncrements->"Subtitle",
    CounterAssignments->{{"Section", 0}, {"Equation", 0}, {
        "Figure", 0}, {"Subsubtitle", 0}},
    FontFamily->"Helvetica",
    FontSize->24],

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

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

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

  Cell[CellGroupData[{

  Cell[StyleData["Subsubtitle"],
    CellMargins->{{12, Inherited}, {20, 15}},
    CellGroupingRules->{"TitleGrouping", 20},
    PageBreakBelow->False,
    DefaultNewInlineCellStyle->"None",
    InputAutoReplacements->{"TeX"->StyleBox[
            RowBox[ {"T",
              AdjustmentBox[
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}},
                BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[
            RowBox[ {"L",
              StyleBox[
                AdjustmentBox[
                "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}},
                  BoxBaselineShift -> -0.2], FontSize -> Smaller],
              "T",
              AdjustmentBox[
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}},
                BoxBaselineShift -> 0.5], "X"}]],
        "mma"->"Mathematica", "Mma"->"Mathematica",
        "MMA"->"Mathematica"},
    LanguageCategory->"NaturalLanguage",
    CounterIncrements->"Subsubtitle",
    CounterAssignments->{{"Section", 0}, {"Equation", 0}, {
        "Figure", 0}},
    FontFamily->"Helvetica",
    FontSize->14,
    FontSlant->"Italic"],

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

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

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

  Cell[CellGroupData[{

  Cell[StyleData["Section"],
    CellDingbat->"\[FilledSquare]",
    CellMargins->{{25, Inherited}, {8, 24}},
    CellGroupingRules->{"SectionGrouping", 30},
    PageBreakBelow->False,
    DefaultNewInlineCellStyle->"None",
    InputAutoReplacements->{"TeX"->StyleBox[
            RowBox[ {"T",
              AdjustmentBox[
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}},
                BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[
            RowBox[ {"L",
              StyleBox[
                AdjustmentBox[
                "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}},
                  BoxBaselineShift -> -0.2], FontSize -> Smaller],
              "T",
              AdjustmentBox[
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}},
                BoxBaselineShift -> 0.5], "X"}]],
        "mma"->"Mathematica", "Mma"->"Mathematica",
        "MMA"->"Mathematica"},
    LanguageCategory->"NaturalLanguage",
    CounterIncrements->"Section",
    CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}},
    FontFamily->"Helvetica",
    FontSize->16,
    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->"\[FilledSmallSquare]",
    CellMargins->{{22, Inherited}, {8, 20}},
    CellGroupingRules->{"SectionGrouping", 40},
    PageBreakBelow->False,
    DefaultNewInlineCellStyle->"None",
    InputAutoReplacements->{"TeX"->StyleBox[
            RowBox[ {"T",
              AdjustmentBox[
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}},
                BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[
            RowBox[ {"L",
              StyleBox[
                AdjustmentBox[
                "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}},
                  BoxBaselineShift -> -0.2], FontSize -> Smaller],
              "T",
              AdjustmentBox[
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}},
                BoxBaselineShift -> 0.5], "X"}]],
        "mma"->"Mathematica", "Mma"->"Mathematica",
        "MMA"->"Mathematica"},
    LanguageCategory->"NaturalLanguage",
    CounterIncrements->"Subsection",
    CounterAssignments->{{"Subsubsection", 0}},
    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->"\[FilledSmallSquare]",
    CellMargins->{{22, Inherited}, {8, 18}},
    CellGroupingRules->{"SectionGrouping", 50},
    PageBreakBelow->False,
    DefaultNewInlineCellStyle->"None",
    InputAutoReplacements->{"TeX"->StyleBox[
            RowBox[ {"T",
              AdjustmentBox[
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}},
                BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[
            RowBox[ {"L",
              StyleBox[
                AdjustmentBox[
                "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}},
                  BoxBaselineShift -> -0.2], FontSize -> Smaller],
              "T",
              AdjustmentBox[
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}},
                BoxBaselineShift -> 0.5], "X"}]],
        "mma"->"Mathematica", "Mma"->"Mathematica",
        "MMA"->"Mathematica"},
    LanguageCategory->"NaturalLanguage",
    CounterIncrements->"Subsubsection",
    FontFamily->"Times",
    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->{{12, 10}, {7, 7}},
    InputAutoReplacements->{"TeX"->StyleBox[
            RowBox[ {"T",
              AdjustmentBox[
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}},
                BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[
            RowBox[ {"L",
              StyleBox[
                AdjustmentBox[
                "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}},
                  BoxBaselineShift -> -0.2], FontSize -> Smaller],
              "T",
              AdjustmentBox[
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}},
                BoxBaselineShift -> 0.5], "X"}]],
        "mma"->"Mathematica", "Mma"->"Mathematica",
        "MMA"->"Mathematica"},
    Hyphenation->True,
    LineSpacing->{1, 3},
    CounterIncrements->"Text"],

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

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

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

  Cell[CellGroupData[{

  Cell[StyleData["SmallText"],
    CellMargins->{{12, 10}, {6, 6}},
    DefaultNewInlineCellStyle->"None",
    Hyphenation->True,
    LineSpacing->{1, 3},
    LanguageCategory->"NaturalLanguage",
    CounterIncrements->"SmallText",
    FontFamily->"Helvetica",
    FontSize->9],

  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}},
    TextJustification->0.5,
    FontSize->7]
  }, Closed]]
  }, Open  ]],

  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. Some attributes for these styles are actually set in \
FormatType Styles (in the last section of this stylesheet). \
\>", "Text"],

  Cell[CellGroupData[{

  Cell[StyleData["Input"],
    CellMargins->{{45, 10}, {5, 7}},
    Evaluatable->True,
    CellGroupingRules->"InputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    DefaultFormatType->DefaultInputFormatType,
    HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
    AutoItalicWords->{},
    LanguageCategory->"Formula",
    FormatType->InputForm,
    ShowStringCharacters->True,
    NumberMarks->True,
    LinebreakAdjustments->{0.85, 2, 10, 0, 1},
    CounterIncrements->"Input",
    FontWeight->"Bold"],

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

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

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

  Cell[StyleData["InputOnly"],
    Evaluatable->True,
    CellGroupingRules->"InputGrouping",
    CellHorizontalScrolling->True,
    DefaultFormatType->DefaultInputFormatType,
    HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
    AutoItalicWords->{},
    LanguageCategory->"Formula",
    FormatType->InputForm,
    ShowStringCharacters->True,
    NumberMarks->True,
    LinebreakAdjustments->{0.85, 2, 10, 0, 1},
    CounterIncrements->"Input",
    StyleMenuListing->None,
    FontWeight->"Bold"],

  Cell[CellGroupData[{

  Cell[StyleData["Output"],
    CellMargins->{{47, 10}, {7, 5}},
    CellEditDuplicate->True,
    CellGroupingRules->"OutputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    DefaultFormatType->DefaultOutputFormatType,
    HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
    AutoItalicWords->{},
    LanguageCategory->"Formula",
    FormatType->InputForm,
    CounterIncrements->"Output"],

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

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

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

  Cell[CellGroupData[{

  Cell[StyleData["Message"],
    CellMargins->{{45, Inherited}, {Inherited, Inherited}},
    CellGroupingRules->"OutputGrouping",
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    ShowCellLabel->False,
    DefaultFormatType->DefaultOutputFormatType,
    HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
    AutoItalicWords->{},
    FormatType->InputForm,
    CounterIncrements->"Message",
    StyleMenuListing->None,
    FontSize->11,
    FontColor->RGBColor[0, 0, 1]],

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

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

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

  Cell[CellGroupData[{

  Cell[StyleData["Print"],
    CellMargins->{{45, Inherited}, {Inherited, Inherited}},
    CellGroupingRules->"OutputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    ShowCellLabel->False,
    DefaultFormatType->DefaultOutputFormatType,
    HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
    AutoItalicWords->{},
    FormatType->InputForm,
    CounterIncrements->"Print",
    StyleMenuListing->None],

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

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

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

  Cell[CellGroupData[{

  Cell[StyleData["Graphics"],
    CellMargins->{{4, Inherited}, {Inherited, Inherited}},
    CellGroupingRules->"GraphicsGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    ShowCellLabel->False,
    DefaultFormatType->DefaultOutputFormatType,
    LanguageCategory->None,
    FormatType->InputForm,
    CounterIncrements->"Graphics",
    ImageMargins->{{43, Inherited}, {Inherited, 0}},
    StyleMenuListing->None,
    FontFamily->"Courier",
    FontSize->10],

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

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

  Cell[StyleData["Graphics", "Printout"],
    ImageMargins->{{30, Inherited}, {Inherited, 0}},
    Magnification->0.8]
  }, 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]]
  }, Open  ]],

  Cell[CellGroupData[{

  Cell["Inline Formatting", "Section"],

  Cell["\<\
These styles are for modifying individual words or letters in a cell \
exclusive of the cell tag.\
\>", "Text"],

  Cell[StyleData["RM"],
    StyleMenuListing->None,
    FontWeight->"Plain",
    FontSlant->"Plain"],

  Cell[StyleData["BF"],
    StyleMenuListing->None,
    FontWeight->"Bold"],

  Cell[StyleData["IT"],
    StyleMenuListing->None,
    FontSlant->"Italic"],

  Cell[StyleData["TR"],
    StyleMenuListing->None,
    FontFamily->"Times",
    FontWeight->"Plain",
    FontSlant->"Plain"],

  Cell[StyleData["TI"],
    StyleMenuListing->None,
    FontFamily->"Times",
    FontWeight->"Plain",
    FontSlant->"Italic"],

  Cell[StyleData["TB"],
    StyleMenuListing->None,
    FontFamily->"Times",
    FontWeight->"Bold",
    FontSlant->"Plain"],

  Cell[StyleData["TBI"],
    StyleMenuListing->None,
    FontFamily->"Times",
    FontWeight->"Bold",
    FontSlant->"Italic"],

  Cell[StyleData["MR"],
    StyleMenuListing->None,
    FontFamily->"Courier",
    FontWeight->"Plain",
    FontSlant->"Plain"],

  Cell[StyleData["MO"],
    StyleMenuListing->None,
    FontFamily->"Courier",
    FontWeight->"Plain",
    FontSlant->"Italic"],

  Cell[StyleData["MB"],
    StyleMenuListing->None,
    FontFamily->"Courier",
    FontWeight->"Bold",
    FontSlant->"Plain"],

  Cell[StyleData["MBO"],
    StyleMenuListing->None,
    FontFamily->"Courier",
    FontWeight->"Bold",
    FontSlant->"Italic"],

  Cell[StyleData["SR"],
    StyleMenuListing->None,
    FontFamily->"Helvetica",
    FontWeight->"Plain",
    FontSlant->"Plain"],

  Cell[StyleData["SO"],
    StyleMenuListing->None,
    FontFamily->"Helvetica",
    FontWeight->"Plain",
    FontSlant->"Italic"],

  Cell[StyleData["SB"],
    StyleMenuListing->None,
    FontFamily->"Helvetica",
    FontWeight->"Bold",
    FontSlant->"Plain"],

  Cell[StyleData["SBO"],
    StyleMenuListing->None,
    FontFamily->"Helvetica",
    FontWeight->"Bold",
    FontSlant->"Italic"],

  Cell[CellGroupData[{

  Cell[StyleData["SO10"],
    StyleMenuListing->None,
    FontFamily->"Helvetica",
    FontSize->10,
    FontWeight->"Plain",
    FontSlant->"Italic"],

  Cell[StyleData["SO10", "Printout"],
    StyleMenuListing->None,
    FontFamily->"Helvetica",
    FontSize->7,
    FontWeight->"Plain",
    FontSlant->"Italic"],

  Cell[StyleData["SO10", "EnhancedPrintout"],
    StyleMenuListing->None,
    FontFamily->"Futura",
    FontSize->7,
    FontWeight->"Plain",
    FontSlant->"Italic"]
  }, Closed]]
  }, Closed]],

  Cell[CellGroupData[{

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

  Cell[CellGroupData[{

  Cell[StyleData["InlineFormula"],
    CellMargins->{{10, 4}, {0, 8}},
    CellHorizontalScrolling->True,
    HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
    LanguageCategory->"Formula",
    ScriptLevel->1,
    SingleLetterItalics->True],

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

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

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

  Cell[CellGroupData[{

  Cell[StyleData["DisplayFormula"],
    CellMargins->{{42, Inherited}, {Inherited, Inherited}},
    CellHorizontalScrolling->True,
    DefaultFormatType->DefaultInputFormatType,
    HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
    LanguageCategory->"Formula",
    ScriptLevel->0,
    SingleLetterItalics->True,
    UnderoverscriptBoxOptions->{LimitsPositioning->True}],

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

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

  Cell[StyleData["DisplayFormula", "Printout"],
    FontSize->10]
  }, Closed]],

  Cell[CellGroupData[{

  Cell[StyleData["Program"],
    CellFrame->{{0, 0}, {0.5, 0.5}},
    CellMargins->{{10, 4}, {0, 8}},
    CellHorizontalScrolling->True,
    LanguageCategory->"Formula",
    ScriptLevel->1,
    FontFamily->"Courier"],

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

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

  Cell[StyleData["Program", "Printout"],
    CellMargins->{{2, 0}, {6, 6}},
    FontSize->9]
  }, Closed]]
  }, 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"],
    FontSize->16],

  Cell[StyleData["Hyperlink", "Condensed"],
    FontSize->11],

  Cell[StyleData["Hyperlink", "Printout"],
    FontSize->10,
    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,
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&),
    Active->True,
    ButtonFrame->"None"}],

  Cell[StyleData["MainBookLink", "Presentation"],
    FontSize->16],

  Cell[StyleData["MainBookLink", "Condensed"],
    FontSize->11],

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

  Cell[CellGroupData[{

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

  Cell[StyleData["AddOnsLink", "Presentation"],
    FontSize->16],

  Cell[StyleData["AddOnsLink", "Condensed"],
    FontSize->11],

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

  Cell[CellGroupData[{

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

  Cell[StyleData["RefGuideLink", "Presentation"],
    FontSize->16],

  Cell[StyleData["RefGuideLink", "Condensed"],
    FontSize->11],

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

  Cell[CellGroupData[{

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

  Cell[StyleData["GettingStartedLink", "Presentation"],
    FontSize->16],

  Cell[StyleData["GettingStartedLink", "Condensed"],
    FontSize->11],

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

  Cell[CellGroupData[{

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

  Cell[StyleData["OtherInformationLink", "Presentation"],
    FontSize->16],

  Cell[StyleData["OtherInformationLink", "Condensed"],
    FontSize->11],

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

  Cell[CellGroupData[{

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

  Cell[StyleData["Header"],
    CellMargins->{{0, 0}, {4, 1}},
    DefaultNewInlineCellStyle->"None",
    LanguageCategory->"NaturalLanguage",
    StyleMenuListing->None,
    FontSize->10,
    FontSlant->"Italic"],

  Cell[StyleData["Footer"],
    CellMargins->{{0, 0}, {0, 4}},
    DefaultNewInlineCellStyle->"None",
    LanguageCategory->"NaturalLanguage",
    StyleMenuListing->None,
    FontSize->9,
    FontSlant->"Italic"],

  Cell[StyleData["PageNumber"],
    CellMargins->{{0, 0}, {4, 1}},
    StyleMenuListing->None,
    FontFamily->"Times",
    FontSize->10]
  }, 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["Placeholder Styles", "Section"],

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

  Cell[CellGroupData[{

  Cell[StyleData["Placeholder"],
    Placeholder->True,
    StyleMenuListing->None,
    FontSlant->"Italic",
    FontColor->RGBColor[0.890623, 0.864698, 0.384756],
    TagBoxOptions->{Editable->False,
    Selectable->False,
    StripWrapperBoxes->False}],

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

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

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

  Cell[CellGroupData[{

  Cell[StyleData["PrimaryPlaceholder"],
    StyleMenuListing->None,
    DrawHighlighted->True,
    FontSlant->"Italic",
    Background->RGBColor[0.912505, 0.891798, 0.507774],
    TagBoxOptions->{Editable->False,
    Selectable->False,
    StripWrapperBoxes->False}],

  Cell[StyleData["PrimaryPlaceholder", "Presentation"]],

  Cell[StyleData["PrimaryPlaceholder", "Condensed"]],

  Cell[StyleData["PrimaryPlaceholder", "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. This is particularly true of Input and \
Output.\
\>", "Text"],

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

  Cell[StyleData["InputForm"],
    InputAutoReplacements->{},
    AllowInlineCells->False,
    Hyphenation->False,
    StyleMenuListing->None,
    FontFamily->"Courier"],

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

  Cell[StyleData["StandardForm"],
    InputAutoReplacements->{
      "->"->"\[Rule]", ":>"->"\[RuleDelayed]", "<="->"\[LessEqual]",
        ">="->"\[GreaterEqual]", "!="->"\[NotEqual]",
        "=="->"\[Equal]", Inherited},
    LineSpacing->{1.25, 0},
    StyleMenuListing->None,
    FontFamily->"Courier"],

  Cell[StyleData["TraditionalForm"],
    InputAutoReplacements->{
      "->"->"\[Rule]", ":>"->"\[RuleDelayed]", "<="->"\[LessEqual]",
        ">="->"\[GreaterEqual]", "!="->"\[NotEqual]",
        "=="->"\[Equal]", Inherited},
    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]],

  Cell[CellGroupData[{

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

  Cell["\<\
The cells below define styles that are used to affect the display of \
certain types of objects in typeset expressions.  For example, \
\"UnmatchedBracket\" style defines how unmatched bracket, curly \
bracket, and parenthesis characters are displayed (typically by \
coloring them to make them stand out).\
\>", "Text"],

  Cell[StyleData["UnmatchedBracket"],
    StyleMenuListing->None,
    FontColor->RGBColor[0.760006, 0.330007, 0.8]]
  }, Closed]]
  }, Open  ]]
  }]
]



Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565





  • Prev by Date: RE: Finding variables in a very long expression (corrected)
  • Next by Date: Clearing Subscripted Variables?
  • Previous by thread: Re: Aligning equal signs
  • Next by thread: Re: Aligning equal signs