(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     25446,        896]
NotebookOptionsPosition[     19032,        679]
NotebookOutlinePosition[     20662,        731]
CellTagsIndexPosition[     20290,        719]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["TeXTools 1.15", "Title"],

Cell["documentation notebook", "Subtitle"],

Cell[TextData[{
 "Eric Rowland\n",
 ButtonBox["http://math.tulane.edu/~erowland/packages.html",
  BaseStyle->"Hyperlink",
  ButtonData:>{
    URL["http://math.tulane.edu/~erowland/packages.html"], None}]
}], "Subsubtitle"],

Cell[CellGroupData[{

Cell["Introduction", "Section"],

Cell[TextData[{
 "TeXTools is a collection of tools to assist writing papers in ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"L", 
     StyleBox[
      AdjustmentBox["A",
       BoxBaselineShift->-0.4,
       BoxMargins->{{-0.5, -0.3}, {0, 0}}],
      FontSize->Smaller], "T", 
     AdjustmentBox["E",
      BoxBaselineShift->0.5,
      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}],
    SingleLetterItalics->False], TraditionalForm]]],
 ".\nThis introduction gets you started with the main features of the \
package; the next section provides a complete list of package symbols along \
with their usage messages and further examples."
}], "Text"],

Cell[TextData[{
 "To use ListTricks, first you will need to load the package by evaluating \
the following cell.  (If you need help, see ",
 ButtonBox["loading a package",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://math.rutgers.edu/~erowland/programs/loadingapackage.html"], 
    None},
  ButtonNote->
   "http://math.rutgers.edu/~erowland/programs/loadingapackage.html"],
 ".)"
}], "Text"],

Cell[BoxData[
 RowBox[{"<<", "TeXTools`"}]], "Code"],

Cell[CellGroupData[{

Cell["Exporting figures", "Subsection"],

Cell["\<\
Let's create a temporary directory for the purpose of demonstrating how to \
use the functions in TeXTools.\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CreateDirectory", "[", "]"}]], "Input"],

Cell[BoxData["\<\"C:\\\\Users\\\\Eric \
Rowland\\\\AppData\\\\Local\\\\Temp\\\\m8236.tmp\"\>"], "Output"]
}, Open  ]],

Cell[TextData[{
 "The value of ",
 StyleBox["$SourceDirectory", "Input"],
 " is the current working directory for TeXTools functions.  It specifies the \
location of the .tex source file.  Let's set ",
 StyleBox["$SourceDirectory", "Input"],
 " to our new directory."
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"$SourceDirectory", "=", "%"}], "Input"]], "Input"],

Cell[BoxData["\<\"C:\\\\Users\\\\Eric \
Rowland\\\\AppData\\\\Local\\\\Temp\\\\m8236.tmp\"\>"], "Output"]
}, Open  ]],

Cell[TextData[{
 "If your graphics files are in a different directory than your source file, \
you may set ",
 StyleBox["$FiguresDirectory", "Input"],
 " to your figures directory.  By default, ",
 StyleBox["$FiguresDirectory", "Input"],
 " is a subdirectory of ",
 StyleBox["$SourceDirectory", "Input"],
 ":"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["$FiguresDirectory", "Input"]], "Input"],

Cell[BoxData["\<\"C:\\\\Users\\\\Eric \
Rowland\\\\AppData\\\\Local\\\\Temp\\\\m8236.tmp\\\\figures\"\>"], "Output"]
}, Open  ]],

Cell[TextData[{
 "However, since this directory doesn't exist yet, we'll have to creat it \
too.  (Of course, you can do all of this so far in your operating system, \
outside of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ".)"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CreateDirectory", "[", 
  StyleBox["$FiguresDirectory", "Input"], "]"}]], "Input"],

Cell[BoxData["\<\"C:\\\\Users\\\\Eric \
Rowland\\\\AppData\\\\Local\\\\Temp\\\\m8236.tmp\\\\figures\"\>"], "Output"]
}, Open  ]],

Cell[TextData[{
 "When working on a paper in ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"L", 
     StyleBox[
      AdjustmentBox["A",
       BoxBaselineShift->-0.4,
       BoxMargins->{{-0.5, -0.3}, {0, 0}}],
      FontSize->Smaller], "T", 
     AdjustmentBox["E",
      BoxBaselineShift->0.5,
      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}],
    SingleLetterItalics->False], TraditionalForm]]],
 ", it is useful to have graphics files in both .ps and .pdf formats, so that \
the paper looks correct as both .dvi and .pdf documents.  ",
 StyleBox["ExportFigure", "Input"],
 " exports an image to both formats.  This exports a circle:"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ExportFigure", "[", 
  RowBox[{"\"\<circle\>\"", ",", 
   RowBox[{"Graphics", "[", 
    RowBox[{"Circle", "[", "]"}], "]"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"C:\\\\Users\\\\Eric \
Rowland\\\\AppData\\\\Local\\\\Temp\\\\m8236.tmp\\\\figures\\\\circle.eps\"\>\
", ",", "\<\"C:\\\\Users\\\\Eric \
Rowland\\\\AppData\\\\Local\\\\Temp\\\\m8236.tmp\\\\figures\\\\circle.pdf\"\>\
"}], "}"}]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Checking your spelling", "Subsection"],

Cell["Let's create a .tex file in our temporary directory.", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{"$SourceDirectory", ",", "\"\<paper.tex\>\""}], "}"}], "]"}], 
   ",", 
   RowBox[{"Cell", "[", 
    RowBox[{
    "\"\<This is a survey paper on opallic hypergeoids.\>\"", ",", 
     "\"\<Text\>\""}], "]"}]}], "]"}]], "Input"],

Cell[BoxData["\<\"C:\\\\Users\\\\Eric \
Rowland\\\\AppData\\\\Local\\\\Temp\\\\m8236.tmp\\\\paper.tex\"\>"], "Output"]
}, Open  ]],

Cell["\<\
Now let's check our spelling.
The output is a list of misspelled words along with corresponding line \
numbers.\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MisspelledWords", "[", "%", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"amssymb\"\>", ",", 
     RowBox[{"{", "4", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"opallic\"\>", ",", 
     RowBox[{"{", "11", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"hypergeoids\"\>", ",", 
     RowBox[{"{", "11", "}"}]}], "}"}]}], "}"}]], "Output"]
}, Open  ]],

Cell["\<\
There are several dictionaries in the package source that you can add words \
to.\
\>", "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Working with ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"T", 
     AdjustmentBox["E",
      BoxBaselineShift->0.5,
      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}],
    SingleLetterItalics->False], TraditionalForm]]],
 " files"
}], "Subsection"],

Cell[TextData[{
 StyleBox["TeXCompile", "Input"],
 " compiles a .tex file.  Let's first make a .dvi file."
}], "Text"],

Cell[BoxData[
 RowBox[{"TeXCompile", "[", 
  RowBox[{"\"\<paper\>\"", ",", "\"\<dvi\>\""}], "]"}]], "Input"],

Cell["We can also make a .pdf file.", "Text"],

Cell[BoxData[
 RowBox[{"TeXCompile", "[", 
  RowBox[{"\"\<paper\>\"", ",", "\"\<pdf\>\""}], "]"}]], "Input"],

Cell[TextData[{
 "One way to set up your work environment when writing a ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"L", 
     StyleBox[
      AdjustmentBox["A",
       BoxBaselineShift->-0.4,
       BoxMargins->{{-0.5, -0.3}, {0, 0}}],
      FontSize->Smaller], "T", 
     AdjustmentBox["E",
      BoxBaselineShift->0.5,
      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}],
    SingleLetterItalics->False], TraditionalForm]]],
 " paper is to have open the source file, a command window for compiling the \
source, and the dvi file for viewing the results.  ",
 StyleBox["TeXOpen", "Input"],
 " opens all three.\n(Note that the opening of the command window here is \
Windows-specific.  If you know what the corresponding code should be for \
other operating systems, let me know and I'll add it to the package.)"
}], "Text"],

Cell[BoxData[
 RowBox[{"TeXOpen", "[", "\"\<paper\>\"", "]"}]], "Input"],

Cell["This deletes our temporary directory and its contents:", "Text"],

Cell[BoxData[
 RowBox[{"DeleteDirectory", "[", 
  RowBox[{"$SourceDirectory", ",", 
   RowBox[{"DeleteContents", "\[Rule]", "True"}]}], "]"}]], "Input"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Package symbols", "Section"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["$FiguresDirectory", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "$FiguresDirectory"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"$FiguresDirectory gives the current directory where graphics \
files are exported by default.\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3451507789-2828232"]
}, Open  ]],

Cell[TextData[{
 StyleBox["ExportFigure", "Input"],
 " exports graphics files to the directory given by ",
 StyleBox["$FiguresDirectory", "Input"],
 " if no full path is given."
}], "Text"],

Cell[TextData[{
 "By default, ",
 StyleBox["$FiguresDirectory", "Input"],
 " is set to ",
 StyleBox["FileNameJoin[{$SourceDirectory, \"figures\"}]", "Input"],
 "."
}], "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["$SourceDirectory", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "$SourceDirectory"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"$SourceDirectory gives the current directory where LaTeX \
source files are read by default.\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3451507792-7463901"]
}, Open  ]],

Cell[TextData[{
 "The functions in TeXTools check for files in the directory given by ",
 StyleBox["$SourceDirectory", "Input"],
 " if no full path is given."
}], "Text"],

Cell[TextData[{
 "By default, ",
 StyleBox["$SourceDirectory", "Input"],
 " is set to the directory containing the notebook into which TeXTools was \
loaded, if it exists; if not, it is set to the value of ",
 StyleBox["$InitialDirectory", "Input"],
 "."
}], "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["ExportFigure", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "ExportFigure"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"ExportFigure[\\\"file\\\", graphics] exports graphics as both \
\\\"file.eps\\\" and \\\"file.pdf\\\" in the directory given by \
$SourceDirectory.\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3451507797-3345836"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"$FiguresDirectory", "=", "\"\<C:\\\\temp\\\\\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"CreateDirectory", "[", "$FiguresDirectory", "]"}], ";"}], "\n", 
 RowBox[{"ExportFigure", "[", 
  RowBox[{"\"\<rule30\>\"", ",", 
   RowBox[{"ArrayPlot", "[", 
    RowBox[{"CellularAutomaton", "[", 
     RowBox[{"30", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", "1", "}"}], ",", "0"}], "}"}], ",", "100"}], "]"}], 
    "]"}]}], "]"}]}], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"C:\\\\temp\\\\rule30.eps\"\>", 
   ",", "\<\"C:\\\\temp\\\\rule30.pdf\"\>"}], "}"}]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["MisspelledWords", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "MisspelledWords"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"MisspelledWords[\\\"file\\\"] gives a list of misspelled \
words, along with the corresponding line numbers, in a \
file.\\nMisspelledWords[] finds misspelled words in \\\"paper.tex\\\".\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3451507800-9581208"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["SymbolReplace", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "SymbolReplace"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"SymbolReplace[\\\"file\\\", \\\"newfile\\\", symbol \[Rule] \
newsymbol] renames a variable in all math environments in a TeX source file, \
and exports the result to a new file.\\nSymbolReplace[\\\"file\\\", symbol \
\[Rule] newsymbol] exports the result to the original file after making a \
copy.\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3451507803-4996275"]
}, Open  ]],

Cell[TextData[{
 "Replace all instances of the variable ",
 Cell[BoxData[
  FormBox["f", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " with ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]],
  FormatType->"TraditionalForm"],
 ":"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SymbolReplace", "[", 
  RowBox[{"\"\<paper\>\"", ",", "\"\<C:\\\\temp\\\\copy.tex\>\"", ",", 
   RowBox[{"\"\<f\>\"", "\[Rule]", "\"\<a\>\""}]}], "]"}]], "Input"],

Cell[BoxData["\<\"C:\\\\temp\\\\copy.tex\"\>"], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["TeXCompile", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "TeXCompile"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"TeXCompile[\\\"file\\\", \\\"ext\\\"] compiles the source file \
\\\"file.tex\\\" to \\\"file.ext\\\".\\nTeXCompile[\\\"file\\\"] compiles \
\\\"file.tex\\\" to \\\"file.dvi\\\".\\nTeXTeXCompile[] compiles \
\\\"paper.tex\\\" to \\\"paper.dvi\\\".\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3451507891-7766991"]
}, Open  ]],

Cell["Possible file types include dvi, pdf, and ps.", "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["TeXOpen", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "TeXOpen"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"TeXOpen[\\\"file\\\"] opens the files \\\"file.tex\\\" and \
\\\"file.dvi\\\", as well as a command prompt for compiling the \
source.\\nTeXOpen[] opens \\\"paper.tex\\\" and \\\"paper.dvi\\\".\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3451507894-4473827"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["TeXTableForm", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "TeXTableForm"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"TeXTableForm[array] gives the TeX format of a \
two\[Hyphen]dimensional table \*StyleBox[\\\"array\\\", \\\"TI\\\"].\\nThe \
options Alignment and TableHeadings can be given.\"\>", "MSG"]], "Print", \
"PrintUsage",
 CellTags->"Info3451507896-6764199"]
}, Open  ]],

Cell[TextData[{
 "This is a minor improvement over the functionality for tables built into ",
 StyleBox["TeXForm", "Input"],
 ".\nIn addition to having two options, it handles ragged arrays."
}], "Text"],

Cell[TextData[{
 "There is a trick to actually copying the output from this function:  It is \
best to select the entire output cell by its bracket on the right or by \
triple-clicking on the output; if ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " does not believe that you intend to copy the entire cell (even if every \
character is selected), several stray quotes and backslashes will appear when \
it is pasted."
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["TeXTableForm", "Input"], "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"47", ",", "1104", ",", "1105"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"817", ",", "744", ",", "1105"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"943", ",", "576", ",", "1105"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1073", ",", "264", ",", "1105"}], "}"}]}], "}"}], 
  "]"}]], "Input"],

Cell[BoxData["\<\"\\\\[\\n\\\\begin{array}{ccc}\\n47 & 1104 & 1105 \
\\\\\\\\\\n817 & 744 & 1105 \\\\\\\\\\n943 & 576 & 1105 \\\\\\\\\\n1073 & 264 \
& 1105\\n\\\\end{array}\\n\\\\]\"\>"], "Output"]
}, Open  ]],

Cell["Options:", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", 
  StyleBox["TeXTableForm", "Input"], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Alignment", "\[Rule]", "Center"}], ",", 
   RowBox[{"TableHeadings", "\[Rule]", "None"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["TeXTableForm", "Input"], "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"47", ",", "1104", ",", "1105"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"817", ",", "744", ",", "1105"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"943", ",", "576", ",", "1105"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1073", ",", "264", ",", "1105"}], "}"}]}], "}"}], ",", 
   RowBox[{"Alignment", "\[Rule]", "Center"}], ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"None", ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y", ",", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["x", "2"], "+", 
          SuperscriptBox["y", "2"]}]]}], "}"}]}], "}"}]}]}], "]"}]], "Input"],

Cell[BoxData["\<\"\\\\[\\n\\\\begin{array}{ccc}\\nx & y & \\\\sqrt{x^2+y^2} \
\\\\\\\\ \\\\hline\\n47 & 1104 & 1105 \\\\\\\\\\n817 & 744 & 1105 \
\\\\\\\\\\n943 & 576 & 1105 \\\\\\\\\\n1073 & 264 & \
1105\\n\\\\end{array}\\n\\\\]\"\>"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["TeXTableForm", "Input"], "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"47", ",", "1104", ",", "1105"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"817", ",", "744", ",", "1105"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"943", ",", "576", ",", "1105"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1073", ",", "264", ",", "1105"}], "}"}]}], "}"}], ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", "4", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y", ",", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["x", "2"], "+", 
          SuperscriptBox["y", "2"]}]]}], "}"}]}], "}"}]}]}], "]"}]], "Input"],

Cell[BoxData["\<\"\\\\[\\n\\\\begin{array}{c|ccc}\\n & x & y & \
\\\\sqrt{x^2+y^2} \\\\\\\\ \\\\hline\\n1 & 47 & 1104 & 1105 \\\\\\\\\\n2 & \
817 & 744 & 1105 \\\\\\\\\\n3 & 943 & 576 & 1105 \\\\\\\\\\n4 & 1073 & 264 & \
1105\\n\\\\end{array}\\n\\\\]\"\>"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["TeXTableForm", "Input"], "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"47", ",", "1104", ",", "1105"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"817", ",", "744", ",", "1105"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"943", ",", "576", ",", "1105"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1073", ",", "264", ",", "1105"}], "}"}]}], "}"}], ",", 
   RowBox[{"Alignment", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"Right", ",", "Right", ",", "Left"}], "}"}], "}"}]}]}], 
  "]"}]], "Input"],

Cell[BoxData["\<\"\\\\[\\n\\\\begin{array}{rrl}\\n47 & 1104 & 1105 \
\\\\\\\\\\n817 & 744 & 1105 \\\\\\\\\\n943 & 576 & 1105 \\\\\\\\\\n1073 & 264 \
& 1105\\n\\\\end{array}\\n\\\\]\"\>"], "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
},
AutoGeneratedPackage->None,
WindowSize->{1272, 717},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
ShowSelection->True,
TrackCellChangeTimes->False,
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3451507789-2828232"->{
  Cell[8623, 322, 197, 3, 40, "Print",
   CellTags->"Info3451507789-2828232"]},
 "Info3451507792-7463901"->{
  Cell[9396, 353, 196, 3, 40, "Print",
   CellTags->"Info3451507792-7463901"]},
 "Info3451507797-3345836"->{
  Cell[10232, 384, 251, 4, 40, "Print",
   CellTags->"Info3451507797-3345836"]},
 "Info3451507800-9581208"->{
  Cell[11354, 424, 293, 5, 58, "Print",
   CellTags->"Info3451507800-9581208"]},
 "Info3451507803-4996275"->{
  Cell[11847, 442, 403, 6, 58, "Print",
   CellTags->"Info3451507803-4996275"]},
 "Info3451507891-7766991"->{
  Cell[12982, 483, 351, 5, 75, "Print",
   CellTags->"Info3451507891-7766991"]},
 "Info3451507894-4473827"->{
  Cell[13585, 503, 300, 5, 58, "Print",
   CellTags->"Info3451507894-4473827"]},
 "Info3451507896-6764199"->{
  Cell[14083, 521, 280, 5, 58, "Print",
   CellTags->"Info3451507896-6764199"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3451507789-2828232", 19418, 692},
 {"Info3451507792-7463901", 19527, 695},
 {"Info3451507797-3345836", 19636, 698},
 {"Info3451507800-9581208", 19746, 701},
 {"Info3451507803-4996275", 19856, 704},
 {"Info3451507891-7766991", 19966, 707},
 {"Info3451507894-4473827", 20076, 710},
 {"Info3451507896-6764199", 20186, 713}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 30, 0, 83, "Title"],
Cell[600, 24, 42, 0, 49, "Subtitle"],
Cell[645, 26, 222, 6, 47, "Subsubtitle"],
Cell[CellGroupData[{
Cell[892, 36, 31, 0, 71, "Section"],
Cell[926, 38, 650, 18, 50, "Text"],
Cell[1579, 58, 405, 11, 29, "Text"],
Cell[1987, 71, 52, 1, 47, "Code"],
Cell[CellGroupData[{
Cell[2064, 76, 39, 0, 36, "Subsection"],
Cell[2106, 78, 131, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[2262, 85, 63, 1, 31, "Input"],
Cell[2328, 88, 105, 1, 30, "Output"]
}, Open  ]],
Cell[2448, 92, 279, 7, 30, "Text"],
Cell[CellGroupData[{
Cell[2752, 103, 86, 2, 31, "Input"],
Cell[2841, 107, 105, 1, 30, "Output"]
}, Open  ]],
Cell[2961, 111, 321, 9, 30, "Text"],
Cell[CellGroupData[{
Cell[3307, 124, 64, 1, 31, "Input"],
Cell[3374, 127, 116, 1, 30, "Output"]
}, Open  ]],
Cell[3505, 131, 248, 7, 29, "Text"],
Cell[CellGroupData[{
Cell[3778, 142, 106, 2, 31, "Input"],
Cell[3887, 146, 116, 1, 30, "Output"]
}, Open  ]],
Cell[4018, 150, 655, 19, 32, "Text"],
Cell[CellGroupData[{
Cell[4698, 173, 167, 4, 31, "Input"],
Cell[4868, 179, 281, 6, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[5198, 191, 44, 0, 28, "Subsection"],
Cell[5245, 193, 68, 0, 29, "Text"],
Cell[CellGroupData[{
Cell[5338, 197, 340, 10, 31, "Input"],
Cell[5681, 209, 118, 1, 30, "Output"]
}, Open  ]],
Cell[5814, 213, 135, 4, 47, "Text"],
Cell[CellGroupData[{
Cell[5974, 221, 68, 1, 31, "Input"],
Cell[6045, 224, 356, 11, 30, "Output"]
}, Open  ]],
Cell[6416, 238, 105, 3, 29, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[6558, 246, 271, 11, 32, "Subsection"],
Cell[6832, 259, 118, 3, 30, "Text"],
Cell[6953, 264, 108, 2, 31, "Input"],
Cell[7064, 268, 45, 0, 29, "Text"],
Cell[7112, 270, 108, 2, 31, "Input"],
Cell[7223, 274, 830, 21, 50, "Text"],
Cell[8056, 297, 72, 1, 31, "Input"],
Cell[8131, 300, 70, 0, 29, "Text"],
Cell[8204, 302, 152, 3, 31, "Input"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8405, 311, 34, 0, 71, "Section"],
Cell[CellGroupData[{
Cell[8464, 315, 71, 0, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[8560, 319, 60, 1, 31, "Input"],
Cell[8623, 322, 197, 3, 40, "Print",
 CellTags->"Info3451507789-2828232"]
}, Open  ]],
Cell[8835, 328, 189, 5, 30, "Text"],
Cell[9027, 335, 175, 6, 30, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[9239, 346, 70, 0, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[9334, 350, 59, 1, 31, "Input"],
Cell[9396, 353, 196, 3, 40, "Print",
 CellTags->"Info3451507792-7463901"]
}, Open  ]],
Cell[9607, 359, 170, 4, 30, "Text"],
Cell[9780, 365, 266, 7, 30, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[10083, 377, 66, 0, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[10174, 381, 55, 1, 31, "Input"],
Cell[10232, 384, 251, 4, 40, "Print",
 CellTags->"Info3451507797-3345836"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10520, 393, 488, 13, 72, "Input"],
Cell[11011, 408, 139, 3, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[11199, 417, 69, 0, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[11293, 421, 58, 1, 31, "Input"],
Cell[11354, 424, 293, 5, 58, "Print",
 CellTags->"Info3451507800-9581208"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[11696, 435, 67, 0, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[11788, 439, 56, 1, 31, "Input"],
Cell[11847, 442, 403, 6, 58, "Print",
 CellTags->"Info3451507803-4996275"]
}, Open  ]],
Cell[12265, 451, 252, 10, 29, "Text"],
Cell[CellGroupData[{
Cell[12542, 465, 186, 3, 31, "Input"],
Cell[12731, 470, 57, 0, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[12837, 476, 64, 0, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[12926, 480, 53, 1, 31, "Input"],
Cell[12982, 483, 351, 5, 75, "Print",
 CellTags->"Info3451507891-7766991"]
}, Open  ]],
Cell[13348, 491, 61, 0, 29, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[13446, 496, 61, 0, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[13532, 500, 50, 1, 31, "Input"],
Cell[13585, 503, 300, 5, 58, "Print",
 CellTags->"Info3451507894-4473827"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[13934, 514, 66, 0, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[14025, 518, 55, 1, 31, "Input"],
Cell[14083, 521, 280, 5, 58, "Print",
 CellTags->"Info3451507896-6764199"]
}, Open  ]],
Cell[14378, 529, 203, 4, 48, "Text"],
Cell[14584, 535, 438, 9, 47, "Text"],
Cell[CellGroupData[{
Cell[15047, 548, 430, 13, 31, "Input"],
Cell[15480, 563, 197, 2, 164, "Output"]
}, Open  ]],
Cell[15692, 568, 24, 0, 29, "Text"],
Cell[CellGroupData[{
Cell[15741, 572, 93, 2, 31, "Input"],
Cell[15837, 576, 161, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16035, 585, 786, 23, 44, "Input"],
Cell[16824, 610, 246, 3, 183, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17107, 618, 766, 23, 44, "Input"],
Cell[17876, 643, 267, 3, 183, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18180, 651, 600, 18, 31, "Input"],
Cell[18783, 671, 197, 2, 164, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)