(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    360863,       8488]
NotebookOptionsPosition[    346053,       8026]
NotebookOutlinePosition[    346508,       8044]
CellTagsIndexPosition[    346465,       8041]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 StyleBox[
  RowBox[{
   RowBox[{"Introduction", " ", "to", " ", "Mathematica"}], " ", "-", " ", 
   RowBox[{"Version", " ", "6"}]}], "Title"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"By", " ", "Steven", " ", "J", " ", "Miller"}], 
  "Subtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
  "Department", " ", "of", " ", "Mathematics", " ", "and", " ", 
   "Statistics"}], "Subtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"Williams", " ", "College"}], "Subtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"email", " ", 
   RowBox[{"Steven", ".", "J", ".", 
    RowBox[{"Miller", "@", "williams"}], ".", "edu"}], " ", "if", " ", "you", 
   " ", "have", " ", "any", " ", "Qs"}], 
  "Subsubtitle"], "\[IndentingNewLine]", 
 RowBox[{
  StyleBox[
   RowBox[{"for", " ", "more", " ", "demos"}], "Subsubtitle"], 
  StyleBox[",", "Subsubtitle"], 
  StyleBox[" ", "Subsubtitle"], 
  RowBox[{
   RowBox[{
    StyleBox["see", "Subsubtitle"], 
    StyleBox[" ", "Subsubtitle"], 
    RowBox[{"http", ":"}]}], "//", 
   RowBox[{
    RowBox[{"demonstrations", ".", "wolfram", ".", "com"}], 
    "/"}]}]}]}], "Input",
 CellChangeTimes->{{3.430931926268723*^9, 3.430931956562682*^9}, {
  3.43093318704545*^9, 3.4309332010631075`*^9}, {3.430934084941106*^9, 
  3.4309341000211954`*^9}}],

Cell[BoxData[{
 StyleBox[
  RowBox[{"The", " ", "various", " ", "sections", " ", "are"}], 
  "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"1.", " ", "General", " ", "Commands"}], 
  "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"2.", "Defining", " ", "Functions"}], 
  "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"3.", " ", "Making", " ", "Histograms"}], 
  "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
  "4.", " ", "Probability", " ", "Distributions", " ", "and", " ", 
   "Plotting"}], "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{"5.", " ", "Sample", " ", "Programs"}], " "}], 
  "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"\t", 
   RowBox[{
    RowBox[{"a", ".", " ", "eigenvalues"}], " ", "of", " ", "Toeplitz", " ", 
    "matrices"}], " "}], "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"\t", 
   RowBox[{
    RowBox[{
     RowBox[{"b", ".", " ", "3"}], "x"}], "+", 
    RowBox[{"1", " ", "and", " ", "Benford"}]}], " "}], 
  "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"\t", 
   RowBox[{
    RowBox[{"c", ".", " ", "Josephus"}], " ", "problem"}], " "}], 
  "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"\t", 
   RowBox[{
    RowBox[{"d", ".", " ", "Magic"}], " ", "squares"}]}], 
  "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
  "6.", " ", "Saving", " ", "and", " ", "reading", " ", "information"}], 
  "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"7.", " ", "Manipulating", " ", "Plots"}], 
  "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"8.", " ", "Finding", " ", "Minimums"}], 
  "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"9.", " ", "Solving", " ", "Differential", " ", "Equations"}], 
  "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{"10.", " ", "The", " ", "Blink", " ", "Problem"}], " ", "-", " ", 
   RowBox[{"variable", " ", "for", " ", "loops"}]}], "Subsubtitle"]}], "Input",
 CellChangeTimes->{{3.4309320453909817`*^9, 3.4309320553796*^9}, {
  3.4309321527727804`*^9, 3.430932158903248*^9}, {3.4309323498656344`*^9, 
  3.4309323781860876`*^9}, {3.43093242570746*^9, 3.430932464501852*^9}, {
  3.4309331161954927`*^9, 3.430933141524926*^9}, {3.4337721992733345`*^9, 
  3.4337722036170845`*^9}, {3.4434464320490913`*^9, 3.4434464371897163`*^9}, {
  3.46283766365625*^9, 3.4628376729375*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"1.", " ", "General", " ", "Commands"}], "Section"]], "Input",
 CellChangeTimes->{{3.4309319818384085`*^9, 3.43093199694584*^9}, 
   3.4309321462233953`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"\"\<Putting stuff in quotes allows you to write comments. To \
compile a line, you need to press SHIFT-ENTER. Do not compile the instruction \
lines unless you want to see these lines printed again.\>\"", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "anything", " ", "between", " ", "these", " ", "is", " ", "commented", " ",
     "out", " ", "and", " ", "not", " ", "displayed"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "to", " ", "change", " ", "how", " ", "text", " ", "is", " ", 
     "displayed"}], ",", " ", "highlight", ",", " ", 
    RowBox[{
    "right", " ", "click", " ", "and", " ", "go", " ", "to", " ", "style"}]}],
    " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "sometimes", " ", "the", " ", "code", " ", "is", " ", "correct", " ", 
    "but", " ", "mathematica", " ", 
    RowBox[{"doesn", "'"}], "t", " ", 
    RowBox[{"work", " ", "--"}], " ", "exit", " ", "the", " ", "program", " ",
     "and", " ", 
    RowBox[{"restart", " ", "--"}], " ", "that", " ", "often", " ", "fixes", 
    " ", 
    RowBox[{"it", "!"}]}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.4309320122192764`*^9, 3.430932032835144*^9}, {
  3.4434465631115913`*^9, 3.4434465851272163`*^9}}],

Cell[BoxData["\<\"Putting stuff in quotes allows you to write comments. To \
compile a line, you need to press SHIFT-ENTER. Do not compile the instruction \
lines unless you want to see these lines printed again.\"\>"], "Output",
 CellChangeTimes->{3.4309297130422144`*^9, 3.430932034869194*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"num", " ", "=", " ", 
    RowBox[{"4", " ", "*", "5"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "this", " ", "multiplies", " ", "4", " ", "and", " ", "5", " ", "and", 
      " ", "stores", " ", "the", " ", "result", " ", "in", " ", "num"}], ";", 
     " ", 
     RowBox[{
     "not", " ", "we", " ", "do", " ", "not", " ", "need", " ", "to", " ", 
      "have", " ", "previously", " ", "defined", " ", "the", " ", "variable", 
      " ", "num"}]}], ",", " ", 
    RowBox[{
     RowBox[{"it", " ", "defines", " ", "it", " ", 
      RowBox[{"immediately", ".", " ", "also"}], " ", "it", " ", "is", " ", 
      "okay", " ", "for", " ", "comments", " ", "to", " ", "go", " ", "on", 
      " ", "for", " ", "several", " ", 
      RowBox[{"lines", ".", " ", "the"}], " ", "semi"}], "-", 
     RowBox[{
     "colon", " ", "means", " ", "calculate", " ", "the", " ", "answer"}]}], 
    ",", " ", 
    RowBox[{
    "but", " ", "do", " ", "not", " ", "display", " ", "it", " ", "when", " ",
      "you", " ", "compile", " ", "the", " ", 
     RowBox[{"line", ".", " ", "if"}], " ", "we", " ", "type", " ", "num", 
     " ", "on", " ", "the", " ", "next", " ", "line", " ", "and", " ", 
     "compile"}], ",", " ", 
    RowBox[{"we", " ", "get", " ", "20."}]}], " ", "*)"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData["num"], "Input"],

Cell[BoxData["20"], "Output",
 CellChangeTimes->{3.4309297166445227`*^9, 3.4337119778934045`*^9, 
  3.4337672636014595`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"num", " ", "=", " ", 
  RowBox[{"4", " ", "*", " ", "5", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"this", " ", "calculates", " ", "4", " ", "*", " ", "5"}], ",", 
     " ", 
     RowBox[{
     "stores", " ", "in", " ", "num", " ", "and", " ", "prints", " ", 
      "num"}]}], " ", "*)"}]}]}]], "Input"],

Cell[BoxData["20"], "Output",
 CellChangeTimes->{3.4309297176571536`*^9, 3.4337119814402795`*^9, 
  3.4337672665702095`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Mathematica", " ", "automatically", " ", "multiplies", " ", "two", " ", 
     "quantities", " ", "separated", " ", "by", " ", "a", " ", 
     RowBox[{"space", ".", " ", "If"}], " ", "we", " ", "have", " ", "a", " ", 
     RowBox[{"b", " ", "/", " ", "c"}], " ", "d", " ", "then", " ", "it", " ",
      "does", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", " ", "*", " ", "b"}], ")"}], " ", "/", " ", "c"}], ")"}],
      " ", "*", " ", "d"}], ";", " ", 
    RowBox[{
    "thus", " ", "it", " ", "does", " ", "multiplication", " ", "and", " ", 
     "division", " ", "in", " ", "the", " ", "order", " ", "it", " ", "reads",
      " ", 
     RowBox[{"them", ".", " ", "To"}], " ", "be", " ", "safe", " ", "it", " ",
      "is", " ", "best", " ", "to", " ", "put", " ", "in", " ", "extra", " ", 
     RowBox[{"parentheses", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"num", " ", "=", " ", 
   RowBox[{"4", " ", 
    RowBox[{"5", " ", "/", " ", "2"}], " ", "3"}]}]}]], "Input"],

Cell[BoxData["30"], "Output",
 CellChangeTimes->{3.4309297201462517`*^9, 3.4337119916434045`*^9, 
  3.4337672722889595`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "Many", " ", "standard", " ", "functions", " ", "start", " ", "off", " ",
       "with", " ", "a", " ", "capital", " ", "letter", " ", "and", " ", 
      "then", " ", "the", " ", "name"}], ";", " ", 
     RowBox[{"the", " ", "argument", " ", "is", " ", "in", " ", 
      RowBox[{"braces", ".", " ", "We"}], " ", "can", " ", "have", " ", 
      "many", " ", "things", " ", "in", " ", "one", " ", "input", " ", 
      "block"}]}], ",", " ", 
    RowBox[{"just", " ", "hit", " ", "return", " ", "after", " ", 
     RowBox[{"each", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Note", " ", "E", " ", "is", " ", "2.71828"}], "..."}], ",", " ", 
    RowBox[{
     RowBox[{"Pi", " ", "is", " ", "3.14159"}], "..."}], ",", " ", 
    RowBox[{"I", " ", "is", " ", "the", " ", "sqrt", 
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}]}], ",", " ", "..."}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"a", " ", "=", " ", 
    RowBox[{"Cos", "[", "1.0", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"b", " ", "=", " ", 
    RowBox[{"Sin", "[", "1.0", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"c", " ", "=", " ", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"a", "-", "b"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"d", " ", "=", " ", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", "100"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"e", " ", "=", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{"-", "10.0"}], "]"}]}], "\[IndentingNewLine]", "E", 
   "\[IndentingNewLine]", "Pi", "\[IndentingNewLine]", "I"}]}]], "Input"],

Cell[BoxData["0.5403023058681398`"], "Output",
 CellChangeTimes->{3.430929722004532*^9, 3.4337120265965295`*^9, 
  3.4337672898827095`*^9}],

Cell[BoxData["0.8414709848078965`"], "Output",
 CellChangeTimes->{3.430929722004532*^9, 3.4337120265965295`*^9, 
  3.4337672899139595`*^9}],

Cell[BoxData[
 RowBox[{"0.`", "\[InvisibleSpace]", "+", 
  RowBox[{"0.5487883735464489`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.430929722004532*^9, 3.4337120265965295`*^9, 
  3.4337672899452095`*^9}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.430929722004532*^9, 3.4337120265965295`*^9, 
  3.4337672899452095`*^9}],

Cell[BoxData["0.000045399929762484854`"], "Output",
 CellChangeTimes->{3.430929722004532*^9, 3.4337120265965295`*^9, 
  3.4337672899452095`*^9}],

Cell[BoxData["\[ExponentialE]"], "Output",
 CellChangeTimes->{3.430929722004532*^9, 3.4337120265965295`*^9, 
  3.4337672899452095`*^9}],

Cell[BoxData["\[Pi]"], "Output",
 CellChangeTimes->{3.430929722004532*^9, 3.4337120265965295`*^9, 
  3.4337672899452095`*^9}],

Cell[BoxData["\[ImaginaryI]"], "Output",
 CellChangeTimes->{3.430929722004532*^9, 3.4337120265965295`*^9, 
  3.4337672899608345`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "here", " ", "is", " ", "how", " ", "to", " ", "input", " ", "a", " ", "3",
     "x3", " ", "matrix"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"M", " ", "=", " ", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"4", ",", "5", ",", "6"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "8", ",", "9"}], "}"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.4337121896121545`*^9, 3.4337122094090295`*^9}, {
  3.4337674001014595`*^9, 3.4337674134608345`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "8", ",", "9"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.430929725071718*^9, 3.4337120537840295`*^9, {3.4337121901590295`*^9, 
   3.4337122102371545`*^9}, 3.4337673175233345`*^9, {3.4337674068358345`*^9, 
   3.4337674138827095`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "M", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "this", " ", "displays", " ", "a", " ", "matrix", " ", "in", " ", "matrix",
     " ", "form"}], " ", "*)"}]}]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "2", "3"},
     {"4", "5", "6"},
     {"0", "8", "9"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.4309297263089437`*^9, 3.4337121144715295`*^9, {3.4337121909871545`*^9, 
   3.4337122115652795`*^9}, 3.4337673192264595`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"M2", " ", "=", " ", 
  RowBox[{"M", ".", "M"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"9", ",", "36", ",", "42"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"24", ",", "81", ",", "96"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"32", ",", "112", ",", "129"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.430929727303997*^9, 3.4337121166902795`*^9, {3.4337121921277795`*^9, 
   3.4337122125340295`*^9}, 3.4337673785858345`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\"\<The above multiplies two matrices. We'll now calculate some \
basic quantities.\>\""], "Input"],

Cell[BoxData["\<\"The above multiplies two matrices. We'll now calculate some \
basic quantities.\"\>"], "Output",
 CellChangeTimes->{3.4309297283908415`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"InvM", " ", "=", " ", 
  RowBox[{"Inverse", "[", "M", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "InvM", "]"}]}], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "7"]}], ",", 
     FractionBox["2", "7"], ",", 
     RowBox[{"-", 
      FractionBox["1", "7"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["12", "7"]}], ",", 
     FractionBox["3", "7"], ",", 
     FractionBox["2", "7"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["32", "21"], ",", 
     RowBox[{"-", 
      FractionBox["8", "21"]}], ",", 
     RowBox[{"-", 
      FractionBox["1", "7"]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.4309297298536386`*^9, 3.4337121260652795`*^9, {3.4337121944871545`*^9, 
   3.4337122146902795`*^9}, 3.4337673814764595`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox["1", "7"]}], 
      FractionBox["2", "7"], 
      RowBox[{"-", 
       FractionBox["1", "7"]}]},
     {
      RowBox[{"-", 
       FractionBox["12", "7"]}], 
      FractionBox["3", "7"], 
      FractionBox["2", "7"]},
     {
      FractionBox["32", "21"], 
      RowBox[{"-", 
       FractionBox["8", "21"]}], 
      RowBox[{"-", 
       FractionBox["1", "7"]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.4309297298536386`*^9, 3.4337121260652795`*^9, {3.4337121944871545`*^9, 
   3.4337122146902795`*^9}, 3.4337673814920845`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c", " ", "=", " ", 
  RowBox[{"Eigenvalues", "[", "M", "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Root", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "21"}], "+", 
       RowBox[{"3", " ", "#1"}], "-", 
       RowBox[{"15", " ", 
        SuperscriptBox["#1", "2"]}], "+", 
       SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], ",", 
   RowBox[{"Root", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "21"}], "+", 
       RowBox[{"3", " ", "#1"}], "-", 
       RowBox[{"15", " ", 
        SuperscriptBox["#1", "2"]}], "+", 
       SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}], ",", 
   RowBox[{"Root", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "21"}], "+", 
       RowBox[{"3", " ", "#1"}], "-", 
       RowBox[{"15", " ", 
        SuperscriptBox["#1", "2"]}], "+", 
       SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.4309297328221984`*^9, 3.4337121381277795`*^9, {3.4337121953934045`*^9, 
   3.4337122165027795`*^9}, {3.4337673844764595`*^9, 3.4337674160545845`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\"\<On some versions of mathematica, when you compile the above \
it gives Root[blah]. This is because the answer is \nnot exact. To get an \
exact answer, we use the Numerical Command, N. We first give an example. If \
we type Pi, we get the exact\nanswer (a symbol). If we type N[Pi], it gives \
us a few digits. If we need more digits, do N[Pi,numdigitsneed]\>\""], "Input"],

Cell[BoxData["\<\"On some versions of mathematica, when you compile the above \
it gives Root[blah]. This is because the answer is \\nnot exact. To get an \
exact answer, we use the Numerical Command, N. We first give an example. If \
we type Pi, we get the exact\\nanswer (a symbol). If we type N[Pi], it gives \
us a few digits. If we need more digits, do N[Pi,numdigitsneed]\"\>"], \
"Output",
 CellChangeTimes->{3.4309297364782143`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["Pi"], "Input"],

Cell[BoxData["\[Pi]"], "Output",
 CellChangeTimes->{3.430929744615389*^9, 3.4337121628465295`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "Pi", "]"}]], "Input"],

Cell[BoxData["3.141592653589793`"], "Output",
 CellChangeTimes->{3.4309297457198105`*^9, 3.4337121638465295`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"Pi", ",", " ", "20"}], "]"}]], "Input"],

Cell[BoxData["3.14159265358979323846264338358607339165`20."], "Output",
 CellChangeTimes->{3.430929746705099*^9, 3.4337121683152795`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c", " ", "=", " ", 
  RowBox[{"N", "[", " ", 
   RowBox[{
    RowBox[{"Eigenvalues", "[", "M", "]"}], ",", " ", "10"}], " ", 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"14.8932425533257888025`10.000000000000004", ",", 
   RowBox[{"0.05337872333710559874851826578`8.803268164257855", "+", 
    RowBox[{
    "1.18624877837750788688565384347`10.150075759926084", " ", 
     "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.05337872333710559874851826578`8.803268164257855", "-", 
    RowBox[{
    "1.18624877837750788688565384347`10.150075759926084", " ", 
     "\[ImaginaryI]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.4309297477724133`*^9, 3.4337121709246545`*^9, 
  3.4337122299090295`*^9, 3.4337674392889595`*^9}]
}, Open  ]],

Cell[BoxData["\"\<Notice we now have numerical values of the eigenvalues (to \
10 digits). These values are stored, and we can pull off entries\none at a \
time.\>\""], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input"],

Cell[BoxData["14.8932425533257888025`10.000000000000004"], "Output",
 CellChangeTimes->{3.430929751870784*^9, 3.4337122323152795`*^9, 
  3.4337674453358345`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", " ", 
  RowBox[{"c", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " ", "]"}]], "Input"],

Cell[BoxData["14.89324255332579`"], "Output",
 CellChangeTimes->{3.430929753025984*^9, 3.4337122362215295`*^9}]
}, Open  ]],

Cell[BoxData["\"\<Note how we were able to store the eigenvalues in a vector, \
and then read off the components. Sometimes we need single brackets, \
sometimes we need double brackets.\nUsing N[ ... ] gives numerical \
values.\>\""], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MM", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"m", "+", "n"}], ",", 
    RowBox[{"{", 
     RowBox[{"m", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4337123020496545`*^9, 3.4337123028934045`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4", ",", "5", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "6", ",", "7", ",", "8"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.430929755407667*^9, 3.4337122496277795`*^9, 
  3.4337123036746545`*^9, 3.4337674714452095`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "MM", "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2", "3", "4", "5"},
     {"3", "4", "5", "6"},
     {"4", "5", "6", "7"},
     {"5", "6", "7", "8"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.4309297563304596`*^9, 3.4337122561902795`*^9, 
  3.4337123114090295`*^9, 3.4337674757889595`*^9}]
}, Open  ]],

Cell[BoxData["\"\<The above generates a random 4x4 matrix with entries chosen \
from the uniform distribution.\>\""], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"2", " ", "Pi"}]}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl2Xk4VN//AHBrlsTMHUKlaF9ISmnB+1S2IqWkTQgVkrWEpFIJSUIq2VKW
8illTzghhSKlEopCsszMtY6ZCf3O9/n9dZ7X88y5d+a9nXuf0XD03H1UTERE
5JmoiMj/VnEs29C19qIhr/z/10V95ZvmxtrD7YLmkTlkFT7Tdm6J8QTvW/lG
n8n6W9GFXxhzHi48qghMI2uryeXK9JgboHYx9f0esn6xj1mSFJMC64xnWO+9
mQK73VVb78TkwFosLAu4ngM3h23z4mMwrFd6ZKQWjGFT9XbZLb6NcKW0zFjW
uBG8Ai2P5Hl9g6IzVbqlLc1wsvholNiCn7A4e+4HM3Y7fO7dJpPp2A3dPS0H
qqW7IEKbJ1J4oBc0pB6Lbmf2gPeKmluv0tkg9H27NpvfC91Huy+kFrLB2694
wVrxPrBJFXG/8JYNzy7MUCue0QcblTZsQX1s+OSgu/jR/D4Q+/eIizU5sLVv
5mY9iz6I+XTNFOdxwOl4mqJoch/kBuwUlFVwwbKl+bSefj8InU48/eExCP/N
7G247TgADswR/1K/QXj579C8F24DUF0euPVe8CDEOsfWN/kMQLRqxLf9UYPw
wtxv01jIACz5kCX2+ckgrLOMWNybNgDWG3ts6tiDkOu06FrkrwF4yjjyr9Bt
CFTjrU9WHmCDYnlv7S2fIUivEKudfoQNASe84k4FDoH591YTSxc2GL05v2x1
xBD4Nomnlfuxoe1s8p4nj4bgRq5PukUsG6T/tGU+6B2Cd0byDnPescGxzGZX
9LFhCN2LecFrObC6UIVS9RwGH96CCF99DojltDbdPzMMAfNXvbffyoG0VLt9
eWHDoHXfwXqeFQc6Lx2z+/p4GPTSbhpudOeA43Y/9zn0MLxaH1T/I5W4+VZY
1pkRYJzYyGkQ58Lqxn3bdS6MwOHu5twCGS6I1arKlYSNQJhzETtWgQtpJUk3
3t0dgb5DNwvXzeZCZ1J6PPflCOzPv3ZKaTUXHJ0LHuqKjMLPKq9V6+y44DT0
+dWrsFFwDXHtEORwwSEwel9x9Ci0585xCszngq24BTfnzij46dVvGynmgo1S
1eyUrFGISize1EDyaLbhud+5mlHoMF0Qu7SJCysvXtfcKD0GMpMfNTxGubBc
dluVDmMM1BLcrU/xubAkVuLgMpUxeF28rMVnggvq6Wevqiwdg+ug/GW/BA2s
WtdOnukYGEYHna1h0cBnmNzJuzoG67ITn67VoWH0rqh29o0x6HiXF/1Kl4ah
+WXVabfHIERUWLB1PQ39urojNzPHoLjx7pvVQMOP/fMtvd6OgWiEQW+eBQ2V
qVPiWlI84LJVTm0+RkP5spKEhQo8qD39eeEuVxpe5p7WmaPMA05F4fR97jTk
v2bbTV/CA1pyyH+HDw2Zva0v+kx4cGdBbun3czREriryzAjlwSFtT/PLsTTU
rW7uOR3Fg6FtaStk4mmQXjt+2DieB2ZskSuhd2i4vEHPojudXJ/VleqWRMPZ
LUVL51fzYOyCwslvGTQUGzWnDL3nwe72Y9M0HtHAMxmfWfGZBzOkDys6ZtPg
Y64n6dDNg9YropH1OTS4WRf9ShIfhzfbY9q2FdOQZdO8/+T0cdCK3zjdpoSG
nv3jH/RZ41Au4pJ9sJSGI4f1ytvmj8OnmOObdryiYf+xogTVLePgrDca2fyW
BlP/oj23LoyD7jzxuAtfyPcNbK5zDhuHFS4b41nNJH5B45t1o8ehKFZNLOUb
DYYX9VY1pYzDs0AvpZQ2GtZFFMkx8Ti8WuaubvSLhlORzZd+vhmH9IuqxxI6
aciNGhfmNIzDqlt5VF8XDVqxen2W7ePALvdK8eyhYWFiUXXk5Djkr6sJ1hig
wTG5Wd9Wkg+XWq6ObGTTkJo6nrdiBh9mDva+t+DQMCddL61uDh9yt0T+d4Cm
4WDmPtWEhXxQd7fKtR6k4c6jM9GumnzY2F0222yI1NfTomBpfT60XM9QURmh
Ydez5rHmrXwYXJmfPUoclTvunmnOh5HJa/drR2mQLdI7ZHKIDw2CxnxbHg1m
L/Z9UnLiw/RZ7R9njdMQ+vLMtt9u5PvsHNv1kVjsVZHe5UA+WH25dWqJgIbH
M6iMyRA+REr82vWZePchd8Uz1/jwI6tZ119IgzDrTchgLB9u1pirs/7S8ICn
PuSayAdtLpOVTmxhdNa+6yEfQpeKzlg5Qer/5pd62yd8KJAdmfGU2Egr4vHO
cj5MZlktjJ2kgR3YrVL7hg+WGsEb+MRxNYZXt3zgw8QLzb3WUzToz7w79rKZ
D/sSt57JJP7tNOK09icf1vllpwwRRz3f8elpLx/+BexsWP2P5PNfJlo6xIcn
dmriJ4jbLcRy7gv40GQvaZhAHJpgqzZbTADpBsLgV8QrewuvxckKYFx/qPoH
8de1TOEMlgC2LumkhomDL51wuTpbAI+3vz06SbzkY/VXkYUCGA1IKv9H3DhX
3ThQUwC35JzVBMT+7oF5I7oCyG6fE9JHrF7yWeOkgQAmdr1nNxLXSGlH9xgL
gGcWcDiH2Gtv+JS9pQByVml9vkys8qDLvcVGAB28kV1WxK8GDdp22xPLf29S
JHY1vLPt/XEBPPDi2X4gv5+KHC4y9hLAizs27AvEJS0Wi7G/AAzDqJBlxI5L
MuPWXxTA99db5taS+MqeFhXPDRdA5X6xCnvi3MpD3itiBJD8ycONQ/JzkFHY
8TBBADeMs2b5EIvZMSznPhDAgm0fP3JIfrOz3UpvZwvAXCAf7UBsLXi9nJkv
gB28sL11pD4mTObdjSgVQJmz6/wVxBadTafP1QvgVBnV9JFP6kF7ZTfvC/n9
V/SLlIkTz4Xt9moXAAqKemBN6pGjYqDtRAvg/KGwW3ljJL87M3rNmEJy/nj8
lhwm+U0S2VepKoTscUemBOmP9v6D1ZvmC+FI7llTAekn7VCFtJVrhEDrmjXV
kH5rLPU/pLhXCA3ms30mekl+ZJtqrx8Wgro0PZ77h+Rnv9Z6qWNC0Da4HOFA
+tlr5Jei0E8I4tbezamk35nLzRs67ghhZ5zN7MIfZD5JpTBrUoUwcNJHG30n
8f49bP0sSwjJsUFnK1tpcL6f0HahWAi5Nz+V5pD5U6zS36vxTQiHjmjTmh9p
uM4z0JT9KQSGzcF6/w8kP59veg7/EcKS+Jie0noapkdv4FWOC4Eb3v5Oq44G
O6lwcWflv8D21vPIraRhze/vJhbz/oLfY0rnFZmH0lWrInSX/IWG5NjVb8pJ
PoO/MST1/kLbqN9ICZmnkrwlczNs/oLUUHmgaS4N/3W/Wd976y8UC48qcVJo
uFg5K6gx6S98DH4qcp7Md5tUD1yc/hfqZTeskblHg4jtTJPwgr9Qeeyc1zRy
PuxpOrpn+Ze/8G5Q7vDDa2QeVEh4uCtOQCqvMsrjNJk3KVseDMZMwJswuU2b
t9JwtabxR8i9CSiefXpRHDnf3gzZqSg9JJ83XqXSvokGY6Oz1zcUTMC8i12z
9pHzcUtf3pmQ5gn4cfl53o+FpP/XLLJQnDMJ2eHjKw3JebvqrdSYXvokXIzv
yrUu5YLn4C3tuieTgJ5d6Yso4sJT1YVutoWT8Hrf5Z3FuVzQckcdF95Ogozs
ghx+FjnfmQG1tX2TUHjduFvhFhcWHupPOrRyCk5kH3G9e4ILyvR7k/NFU1Ap
2Rm0gOLCnZv4SB+egqiLZsp2clxQ0c0N2lMzBS8zlzlGTyMOuJ27pIXs76pV
+C7kwCxxx7mNwinQ0pbgK3RxYK7y+Ji64T8Y6xzxHHjOgcWgkV75+h9k+I8z
z23jQMLbElFxVxF0SPHnIl8HNgz+fBZAu4sgx2eJWSvJ85+pMGOozUsEHXuc
cKDLig2jmrG/8v1F0EK1IzvWb2WDZcyJimNhIkjJPfVJ9CI2iB2ec7EuUwSV
fArtnOgdgBPD50RiekRQULOISCN5PtVX2/xP3VkUNV4NO1B/sB/MbD/7OLqI
om8dVT0aVv1gfe94zwN3UXRQcEXU07QfTqhG1S8+LYra/yb0D6/phwSltnua
oaLoQ/HRb/fl+oE/4/T69Vmi6Gy5SVxyaR/kT2V572SLoqsxJmFLlPtgxU9G
97lTYuiA3ki3WtEfeJJFuRT4iCM5ntQHr45uCGo/3LQiVAL92H102SWPX+Ct
v948OU4SBTWaxq0JbgNhipHjQPQ01Npjcb9m5Wdo9EpwOJMmhebKBSz1+fwW
NpjOn/pxXxp9/Cp3bErkGdQab8hCiTJoQ6Pd3JzIpzj9+d0NndmyqJGlrp9+
pgYrLdB0s3s0HVkvyV1o8rsJfxKVDlEtlUMSdSmPdFvbcIG0b0Zj7QwUF7Cq
oCr+F9ZUYrg5VsujFdEP9tu+7MZ0FE9xzVcFtOo6s2tx7R/MHpxbqdWqgExS
qkpqm/7g/t2mnkvbFVA1vefJsfY/uHvmnVq1HuKJG9+iRv7g1uQNwdI8BbQx
xmLqtlovdtxXPsKVZSD15Y5brnn14h3HRQ+/Xs5AW5Ocm7uYfXjB1avanm4M
JFNrE9K0uR/7fNUNdnRnoHWF4gkvt/fjV4s63+/1YKCl7ce8k/b0Y7vX+m76
Pgx0s63dxvJoP04QHX4oE8hAJwY+VjiH9WMqyHbWw3AG8reMNnGs78di3jqS
LVkM5HpkovHm7gFs9ap9z/vHDKQVrvT7ycEBnKoQmYb/Y6CgeH3/KscBbPi0
BzKeMdD355KKbT4DOHDgXqBvMQOF/2GxX8YM4OGj0wZn1DBQ44eSM1s+DuDO
g22tW/4wkI7x5jk229hYzmBfpkMfAyWXtX3Qt2LjtfOafIMHGIgjrxA/+wAb
h3XVyZXQDDTLxseqwoWNtd1LDHX4DORWNM30yVU2Djp3N22eDBM9dog1l3zN
xkqp+9wmljPRbulIjcx1HGwY0rRulhYTlR3/JB9pwMEuzjvF12szkcnSiPcu
RhxcutQ00XcNE+n3pz6X2c3Bjs/XNfRvYqKqRh1OrzsHP61UWt1iwUQa6mlX
Z9/nYLPfTYICDybqXmDx3Eici8+tiDqb48VEpqVxIy+luTjX22wyy4eJzt1U
714hz8Wzp0pFEv2Y6G1HYd2YChdzZ2ZIhQQz0VS0brjOSi6OM/NXsoxiok9a
0v+Z7uPin9lzdHqeMFF9igL79wMuVhr+mtuRw0Srn5mEeWVx8fb1N3VbnjNR
xqkv2SP/cXHea8n17wuY6OnvW5e7Crg49AfXMLeMiVYwzO1c35JXWYUKi+B6
JhLk1VbL9XGxv89Rl5kcJtqT5mifvZjGYebc4xtpJtpcu2pazHIa31545rjd
EBMdZ4u98lxJ48KvYccyxpgoYsDUhbGOxiMb/3NeN8VEXb5j7j1GNPYQH3Gw
UaBQpKuFbbcDjc99P+sQyKTQ4vGZ+ZucaRxZIOGQzKKQyZ8j8hHHaZx9fKZ9
jzKFKN7zN9M9aNz7bsNhP3UKccwPaj4IpLFT3IUD8ToUYsiBpEYMjX1Oyhwo
WUOhvttKqr1xNA4xidnfvpZCeyfPamTcpnEq/8G+xRspFJv3VU4qicbttm/3
Fm6h0IJI1/W2mTTmrN21t9WIQikhu9taH9F4Qr7FesqEQpvOvnPf9R+NZ1f0
7zExp5Dn1+T96s9pvH+R/O6veyi00rcQ7SmhsctUvJVwL4UiIvlG4aU0PtM8
z2rufgotk/ReXVhO4/hwnV3HbCm04ln4m9FKGjdxrC15zhRylYmslHhHY8vC
e9tn+lFo4+yRa54t5Hojjv+U/Cm0Re7eLn4rjS+tWp6vFEgh/bE29YDvNC5+
XKymFEwhH4vHnY4dNJ6f8mWQFUqhRem+v75201j/e2I6K4zES7yRP6+HxvtU
nQ+yIijksGVC5cgfEu/Y4SoqikIv717xeddHY95VhdvMeAqxMCsEcWnMqP5q
zrxD9m+627yNpvEKsWQRZgLJR/3DNeaDNHYI0nRjJFPooerOqbXDNA58MTKX
kUqh0ya+7vNGaHyLV9KkkEbstvSnyCiN67y2GShkUCjZ+Vhz9hiNu58whuWz
KGSdePngaR6N//U3Z8g/JvGNsutcN05j3aPHGPJPKTTHKvTffT6JT5pW9Yxn
5P6nA+LMBTR27RgNmJFLIVOhjxaHOPnApS65QgodL2txU/lL4hO//Y5cMYVG
Nk/IpxE3NTF3yJVQSLHgRuGCCRpzGS2icqUU8ij0PZJELG2ZWji9nEJru8MV
FCZJPK8dPzH9FYUM2wpe+RMb1KxUn15JIXG9H6daifdL8j7LvqZQ5s0/K3Sn
SP1tKQuXfUOhyUvlv68QR56/bChbQ6GY9B1p5HkbZ5aaj8jUUei/yJAjzH80
rhRQWTLvKbS7wWKBOfH3da22Mg0U2jWV9CeImOd7nynTSKENOa5PM4iZz13e
SH+i0EkfchoRa3K1z0p/ppDyN7OtncQmK8a1pb9SaI3nDuYosYNLebfUNwpF
Vz/9Rd4/8Nn0K3elWinUcNwtn7x/4PhOC0up76Qefp0PJ+8f+Nk8RXGpdtKf
pYMOA8R1tm1F036S+4W82viF+PfdNPdpnaQeSkZnFhGLNLtqTOumUC07biya
eJaizlfJHrI/6fFXR2JdK36EZC+FrlttLtEk3hmFQbKf7L92LJVL4uH2LnRU
gk3i07AsPIv4srTlIwkuhZYkJJ46SJxsrGQnMUghpscnRwniFyHfKYlhCnnX
/NyTQeLPnXALEudRKErsj+Enkr8D+82XCcYpdMJRJMmO+HXeiq9cAYWaq0t3
dJH833Vja7dOUkjkU3zmFyGNJd68//7hH6mfNWO7thJ7aDwJrxZlIQ0Z/x2P
SD0ZfTvZ9UyShQLfXkB2pP5y1lhGZ0ixkPUiG70npD5n3VhpkCjDQg6d3Iuj
pH4Hjen4qzNYaHqmGsud1Pe9PK/tdkrEuWXL/w3ReJqC1fgeZRY6EMR9zSD2
ctN5uE2VhcZ/+OfPIv1kojE8qavGQk/OhsUpk/4bjvJ9Pn0RC/kVBtkXkP48
3L/HTnQJC73l2mSH99K4xlh3+vhSFkouibe0If2cNDHq3KlJ9gs9E7+R/jdz
81N5octCOVfk7S6S+ZBXbVP9dB0Lcbqvn1Rpp/FcDT2fh+tZKMp/9GsmmScj
zePvbuizkMFwa3FOy//iH3D+mBELFfVpVTk10Vjm/gFNWxMW6n0nzC77SONT
ExtarMxY6IJoxpBCI4235QlXG1iwkHnD2ltJ72k8qh7Uw7JmoVl2PLPD1TS2
D7KNlbFhofzTzgsDq0h9Neujf/tIPHepOdyooHFK1OTd/kMstGOnmTCtjMbb
J4J3VDix0NLf3954FND4fvPFfA9fFoqfdUPn7gMa91Sv6og6zUJCVFgkfZ/0
Q36HTM4ZFpoBRjs9k8l5FG1gT59loSvs0AKNuzR+v00g43WZhTbYNfnOjqIx
/6WXvfctcn2rla5OfjQ2fDwv4uZtFtKuP+hk5Evm7Z2G/Od3SX4bW8/O8aKx
/GlN2eEkFvIPd5me60rjBSt7830yWOjcgEW5jy2ZT6n2sqeKWEhRXNTMHNE4
Lkp+bdwLFmq1/HQ7WZ/GLUFl9vkvWai++ahS33oaOx+YXTCKWejf02nJTjo0
DqCa7U/XsFDoanVxWoPGDy9bFvi1sFAP217RQZTGQhcDh4C/LPSpPiIm7wU5
318uR6cnWajq+eOLiJzn92aoqHv/YyH3k5Jd1c+4WD93uMNFXBE1BX8RKcnk
4uC/mfb7pysizrmVNaa3uFg8irLXm62InuSYhwo9uFgu78/hsY2KqOK/vYuq
53CxreQXgyF9RbT1/dw0R2UufrKvUo1jqIjqKX4Rn8nFlhOJP7q3KKKEmFX5
8lJcHG28+/Dn7YooM/m0YucgByt+K7XNO6iIemsWZS2p4mC1yZuHvAOJ/ySo
rnckz0edO17cDlJEnQ152s6HOPjUWxnl8mBFVDj4qe6qNQfX3bz4SfaSIpJv
Yt0pMOFgv8Xe2x5eU0Q/LhW/yV7OwY07d+k1JyqiixJWBhJDbBySJs8ywIqo
tVhp76kzbNxjeq1OWkIJ2dpz1nw4MYAdzR3UF01TQue3BeooOw3gH5Zr/TZL
K6EJwa+ofeR59fPeDo1AOSX0W1vMt8JsAFc6rQkYUCRWRos2LhrASefbljQs
UkJWox52Fd/7sXXRiiuxpkootfHQ+HqTfly1+D3MvaaEmp1eaziK92E36QwJ
DZmZyM9Ydnu9fQ8uSl1oUHVzJpIq03Ir1ejCDZv0q3czlVGoT0l11e0OzHe7
t8chShlpF1mXvI39hmt2peydMVMFTbZ/e6se1YgdN+hnZsapoHt+tllqiRU4
7ds5919qqui9y5UNice9sGaosGmI2HVXlcvUIi9cuObMJrG5qkgHurQqajzx
uygv2QXETLsjP7dVeuBRI6csZ2JGgaPWoQJ3bPLcrPsP8SWuhOe5ey64P5xl
y52niugajfpXxx3wKb3oqinijurmQZlaezzVLbdCQZ3cz2mvcUylHankaUJt
4huvrXrTCmyxPo9/25vYavNqldf39uMox/amUeIkv6yV01x2YRXGoU2SGqpI
aaqxeU6VJU4ra05TIi59Yr5Lq9ACF6l89F5H7FRassky0Qz/bKhS8Cd+22Ys
Eu2CsFsQOhNGfEKh4jsq0sejy8ra7xAXe7GKjiStx9JXCp+8IL62dsHxB66r
cMzqNUp1xIoqXwLDUpbiOT9zglqJ3z+oXlR3Qh1nXNfs7ic+KWaUouzFwDqb
Hpn/JV6oc/1//3eV/x8h6tFh
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{0, 2 Pi}, {-0.9999998592131705, 0.9999998782112116}}, {{
     0, 6.283185307179586}, {-0.9999998592131705, 0.9999998782112116}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.4309297581809273`*^9, 3.4337122586434045`*^9, 
  3.4337674782108345`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", " ", 
     RowBox[{"Cos", "[", "x", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"2", " ", "Pi"}]}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl2Xk4VN//AHBrlsTMHUKlaF9ISmnB+1S2IqWkTQgVkrWEpFIJSUIq2VKW
8illTzghhSKlEopCsszMtY6ZCf3O9/n9dZ7X88y5d+a9nXuf0XD03H1UTERE
5JmoiMj/VnEs29C19qIhr/z/10V95ZvmxtrD7YLmkTlkFT7Tdm6J8QTvW/lG
n8n6W9GFXxhzHi48qghMI2uryeXK9JgboHYx9f0esn6xj1mSFJMC64xnWO+9
mQK73VVb78TkwFosLAu4ngM3h23z4mMwrFd6ZKQWjGFT9XbZLb6NcKW0zFjW
uBG8Ai2P5Hl9g6IzVbqlLc1wsvholNiCn7A4e+4HM3Y7fO7dJpPp2A3dPS0H
qqW7IEKbJ1J4oBc0pB6Lbmf2gPeKmluv0tkg9H27NpvfC91Huy+kFrLB2694
wVrxPrBJFXG/8JYNzy7MUCue0QcblTZsQX1s+OSgu/jR/D4Q+/eIizU5sLVv
5mY9iz6I+XTNFOdxwOl4mqJoch/kBuwUlFVwwbKl+bSefj8InU48/eExCP/N
7G247TgADswR/1K/QXj579C8F24DUF0euPVe8CDEOsfWN/kMQLRqxLf9UYPw
wtxv01jIACz5kCX2+ckgrLOMWNybNgDWG3ts6tiDkOu06FrkrwF4yjjyr9Bt
CFTjrU9WHmCDYnlv7S2fIUivEKudfoQNASe84k4FDoH591YTSxc2GL05v2x1
xBD4Nomnlfuxoe1s8p4nj4bgRq5PukUsG6T/tGU+6B2Cd0byDnPescGxzGZX
9LFhCN2LecFrObC6UIVS9RwGH96CCF99DojltDbdPzMMAfNXvbffyoG0VLt9
eWHDoHXfwXqeFQc6Lx2z+/p4GPTSbhpudOeA43Y/9zn0MLxaH1T/I5W4+VZY
1pkRYJzYyGkQ58Lqxn3bdS6MwOHu5twCGS6I1arKlYSNQJhzETtWgQtpJUk3
3t0dgb5DNwvXzeZCZ1J6PPflCOzPv3ZKaTUXHJ0LHuqKjMLPKq9V6+y44DT0
+dWrsFFwDXHtEORwwSEwel9x9Ci0585xCszngq24BTfnzij46dVvGynmgo1S
1eyUrFGISize1EDyaLbhud+5mlHoMF0Qu7SJCysvXtfcKD0GMpMfNTxGubBc
dluVDmMM1BLcrU/xubAkVuLgMpUxeF28rMVnggvq6Wevqiwdg+ug/GW/BA2s
WtdOnukYGEYHna1h0cBnmNzJuzoG67ITn67VoWH0rqh29o0x6HiXF/1Kl4ah
+WXVabfHIERUWLB1PQ39urojNzPHoLjx7pvVQMOP/fMtvd6OgWiEQW+eBQ2V
qVPiWlI84LJVTm0+RkP5spKEhQo8qD39eeEuVxpe5p7WmaPMA05F4fR97jTk
v2bbTV/CA1pyyH+HDw2Zva0v+kx4cGdBbun3czREriryzAjlwSFtT/PLsTTU
rW7uOR3Fg6FtaStk4mmQXjt+2DieB2ZskSuhd2i4vEHPojudXJ/VleqWRMPZ
LUVL51fzYOyCwslvGTQUGzWnDL3nwe72Y9M0HtHAMxmfWfGZBzOkDys6ZtPg
Y64n6dDNg9YropH1OTS4WRf9ShIfhzfbY9q2FdOQZdO8/+T0cdCK3zjdpoSG
nv3jH/RZ41Au4pJ9sJSGI4f1ytvmj8OnmOObdryiYf+xogTVLePgrDca2fyW
BlP/oj23LoyD7jzxuAtfyPcNbK5zDhuHFS4b41nNJH5B45t1o8ehKFZNLOUb
DYYX9VY1pYzDs0AvpZQ2GtZFFMkx8Ti8WuaubvSLhlORzZd+vhmH9IuqxxI6
aciNGhfmNIzDqlt5VF8XDVqxen2W7ePALvdK8eyhYWFiUXXk5Djkr6sJ1hig
wTG5Wd9Wkg+XWq6ObGTTkJo6nrdiBh9mDva+t+DQMCddL61uDh9yt0T+d4Cm
4WDmPtWEhXxQd7fKtR6k4c6jM9GumnzY2F0222yI1NfTomBpfT60XM9QURmh
Ydez5rHmrXwYXJmfPUoclTvunmnOh5HJa/drR2mQLdI7ZHKIDw2CxnxbHg1m
L/Z9UnLiw/RZ7R9njdMQ+vLMtt9u5PvsHNv1kVjsVZHe5UA+WH25dWqJgIbH
M6iMyRA+REr82vWZePchd8Uz1/jwI6tZ119IgzDrTchgLB9u1pirs/7S8ICn
PuSayAdtLpOVTmxhdNa+6yEfQpeKzlg5Qer/5pd62yd8KJAdmfGU2Egr4vHO
cj5MZlktjJ2kgR3YrVL7hg+WGsEb+MRxNYZXt3zgw8QLzb3WUzToz7w79rKZ
D/sSt57JJP7tNOK09icf1vllpwwRRz3f8elpLx/+BexsWP2P5PNfJlo6xIcn
dmriJ4jbLcRy7gv40GQvaZhAHJpgqzZbTADpBsLgV8QrewuvxckKYFx/qPoH
8de1TOEMlgC2LumkhomDL51wuTpbAI+3vz06SbzkY/VXkYUCGA1IKv9H3DhX
3ThQUwC35JzVBMT+7oF5I7oCyG6fE9JHrF7yWeOkgQAmdr1nNxLXSGlH9xgL
gGcWcDiH2Gtv+JS9pQByVml9vkys8qDLvcVGAB28kV1WxK8GDdp22xPLf29S
JHY1vLPt/XEBPPDi2X4gv5+KHC4y9hLAizs27AvEJS0Wi7G/AAzDqJBlxI5L
MuPWXxTA99db5taS+MqeFhXPDRdA5X6xCnvi3MpD3itiBJD8ycONQ/JzkFHY
8TBBADeMs2b5EIvZMSznPhDAgm0fP3JIfrOz3UpvZwvAXCAf7UBsLXi9nJkv
gB28sL11pD4mTObdjSgVQJmz6/wVxBadTafP1QvgVBnV9JFP6kF7ZTfvC/n9
V/SLlIkTz4Xt9moXAAqKemBN6pGjYqDtRAvg/KGwW3ljJL87M3rNmEJy/nj8
lhwm+U0S2VepKoTscUemBOmP9v6D1ZvmC+FI7llTAekn7VCFtJVrhEDrmjXV
kH5rLPU/pLhXCA3ms30mekl+ZJtqrx8Wgro0PZ77h+Rnv9Z6qWNC0Da4HOFA
+tlr5Jei0E8I4tbezamk35nLzRs67ghhZ5zN7MIfZD5JpTBrUoUwcNJHG30n
8f49bP0sSwjJsUFnK1tpcL6f0HahWAi5Nz+V5pD5U6zS36vxTQiHjmjTmh9p
uM4z0JT9KQSGzcF6/w8kP59veg7/EcKS+Jie0noapkdv4FWOC4Eb3v5Oq44G
O6lwcWflv8D21vPIraRhze/vJhbz/oLfY0rnFZmH0lWrInSX/IWG5NjVb8pJ
PoO/MST1/kLbqN9ICZmnkrwlczNs/oLUUHmgaS4N/3W/Wd976y8UC48qcVJo
uFg5K6gx6S98DH4qcp7Md5tUD1yc/hfqZTeskblHg4jtTJPwgr9Qeeyc1zRy
PuxpOrpn+Ze/8G5Q7vDDa2QeVEh4uCtOQCqvMsrjNJk3KVseDMZMwJswuU2b
t9JwtabxR8i9CSiefXpRHDnf3gzZqSg9JJ83XqXSvokGY6Oz1zcUTMC8i12z
9pHzcUtf3pmQ5gn4cfl53o+FpP/XLLJQnDMJ2eHjKw3JebvqrdSYXvokXIzv
yrUu5YLn4C3tuieTgJ5d6Yso4sJT1YVutoWT8Hrf5Z3FuVzQckcdF95Ogozs
ghx+FjnfmQG1tX2TUHjduFvhFhcWHupPOrRyCk5kH3G9e4ILyvR7k/NFU1Ap
2Rm0gOLCnZv4SB+egqiLZsp2clxQ0c0N2lMzBS8zlzlGTyMOuJ27pIXs76pV
+C7kwCxxx7mNwinQ0pbgK3RxYK7y+Ji64T8Y6xzxHHjOgcWgkV75+h9k+I8z
z23jQMLbElFxVxF0SPHnIl8HNgz+fBZAu4sgx2eJWSvJ85+pMGOozUsEHXuc
cKDLig2jmrG/8v1F0EK1IzvWb2WDZcyJimNhIkjJPfVJ9CI2iB2ec7EuUwSV
fArtnOgdgBPD50RiekRQULOISCN5PtVX2/xP3VkUNV4NO1B/sB/MbD/7OLqI
om8dVT0aVv1gfe94zwN3UXRQcEXU07QfTqhG1S8+LYra/yb0D6/phwSltnua
oaLoQ/HRb/fl+oE/4/T69Vmi6Gy5SVxyaR/kT2V572SLoqsxJmFLlPtgxU9G
97lTYuiA3ki3WtEfeJJFuRT4iCM5ntQHr45uCGo/3LQiVAL92H102SWPX+Ct
v948OU4SBTWaxq0JbgNhipHjQPQ01Npjcb9m5Wdo9EpwOJMmhebKBSz1+fwW
NpjOn/pxXxp9/Cp3bErkGdQab8hCiTJoQ6Pd3JzIpzj9+d0NndmyqJGlrp9+
pgYrLdB0s3s0HVkvyV1o8rsJfxKVDlEtlUMSdSmPdFvbcIG0b0Zj7QwUF7Cq
oCr+F9ZUYrg5VsujFdEP9tu+7MZ0FE9xzVcFtOo6s2tx7R/MHpxbqdWqgExS
qkpqm/7g/t2mnkvbFVA1vefJsfY/uHvmnVq1HuKJG9+iRv7g1uQNwdI8BbQx
xmLqtlovdtxXPsKVZSD15Y5brnn14h3HRQ+/Xs5AW5Ocm7uYfXjB1avanm4M
JFNrE9K0uR/7fNUNdnRnoHWF4gkvt/fjV4s63+/1YKCl7ce8k/b0Y7vX+m76
Pgx0s63dxvJoP04QHX4oE8hAJwY+VjiH9WMqyHbWw3AG8reMNnGs78di3jqS
LVkM5HpkovHm7gFs9ap9z/vHDKQVrvT7ycEBnKoQmYb/Y6CgeH3/KscBbPi0
BzKeMdD355KKbT4DOHDgXqBvMQOF/2GxX8YM4OGj0wZn1DBQ44eSM1s+DuDO
g22tW/4wkI7x5jk229hYzmBfpkMfAyWXtX3Qt2LjtfOafIMHGIgjrxA/+wAb
h3XVyZXQDDTLxseqwoWNtd1LDHX4DORWNM30yVU2Djp3N22eDBM9dog1l3zN
xkqp+9wmljPRbulIjcx1HGwY0rRulhYTlR3/JB9pwMEuzjvF12szkcnSiPcu
RhxcutQ00XcNE+n3pz6X2c3Bjs/XNfRvYqKqRh1OrzsHP61UWt1iwUQa6mlX
Z9/nYLPfTYICDybqXmDx3Eici8+tiDqb48VEpqVxIy+luTjX22wyy4eJzt1U
714hz8Wzp0pFEv2Y6G1HYd2YChdzZ2ZIhQQz0VS0brjOSi6OM/NXsoxiok9a
0v+Z7uPin9lzdHqeMFF9igL79wMuVhr+mtuRw0Srn5mEeWVx8fb1N3VbnjNR
xqkv2SP/cXHea8n17wuY6OnvW5e7Crg49AfXMLeMiVYwzO1c35JXWYUKi+B6
JhLk1VbL9XGxv89Rl5kcJtqT5mifvZjGYebc4xtpJtpcu2pazHIa31545rjd
EBMdZ4u98lxJ48KvYccyxpgoYsDUhbGOxiMb/3NeN8VEXb5j7j1GNPYQH3Gw
UaBQpKuFbbcDjc99P+sQyKTQ4vGZ+ZucaRxZIOGQzKKQyZ8j8hHHaZx9fKZ9
jzKFKN7zN9M9aNz7bsNhP3UKccwPaj4IpLFT3IUD8ToUYsiBpEYMjX1Oyhwo
WUOhvttKqr1xNA4xidnfvpZCeyfPamTcpnEq/8G+xRspFJv3VU4qicbttm/3
Fm6h0IJI1/W2mTTmrN21t9WIQikhu9taH9F4Qr7FesqEQpvOvnPf9R+NZ1f0
7zExp5Dn1+T96s9pvH+R/O6veyi00rcQ7SmhsctUvJVwL4UiIvlG4aU0PtM8
z2rufgotk/ReXVhO4/hwnV3HbCm04ln4m9FKGjdxrC15zhRylYmslHhHY8vC
e9tn+lFo4+yRa54t5Hojjv+U/Cm0Re7eLn4rjS+tWp6vFEgh/bE29YDvNC5+
XKymFEwhH4vHnY4dNJ6f8mWQFUqhRem+v75201j/e2I6K4zES7yRP6+HxvtU
nQ+yIijksGVC5cgfEu/Y4SoqikIv717xeddHY95VhdvMeAqxMCsEcWnMqP5q
zrxD9m+627yNpvEKsWQRZgLJR/3DNeaDNHYI0nRjJFPooerOqbXDNA58MTKX
kUqh0ya+7vNGaHyLV9KkkEbstvSnyCiN67y2GShkUCjZ+Vhz9hiNu58whuWz
KGSdePngaR6N//U3Z8g/JvGNsutcN05j3aPHGPJPKTTHKvTffT6JT5pW9Yxn
5P6nA+LMBTR27RgNmJFLIVOhjxaHOPnApS65QgodL2txU/lL4hO//Y5cMYVG
Nk/IpxE3NTF3yJVQSLHgRuGCCRpzGS2icqUU8ij0PZJELG2ZWji9nEJru8MV
FCZJPK8dPzH9FYUM2wpe+RMb1KxUn15JIXG9H6daifdL8j7LvqZQ5s0/K3Sn
SP1tKQuXfUOhyUvlv68QR56/bChbQ6GY9B1p5HkbZ5aaj8jUUei/yJAjzH80
rhRQWTLvKbS7wWKBOfH3da22Mg0U2jWV9CeImOd7nynTSKENOa5PM4iZz13e
SH+i0EkfchoRa3K1z0p/ppDyN7OtncQmK8a1pb9SaI3nDuYosYNLebfUNwpF
Vz/9Rd4/8Nn0K3elWinUcNwtn7x/4PhOC0up76Qefp0PJ+8f+Nk8RXGpdtKf
pYMOA8R1tm1F036S+4W82viF+PfdNPdpnaQeSkZnFhGLNLtqTOumUC07biya
eJaizlfJHrI/6fFXR2JdK36EZC+FrlttLtEk3hmFQbKf7L92LJVL4uH2LnRU
gk3i07AsPIv4srTlIwkuhZYkJJ46SJxsrGQnMUghpscnRwniFyHfKYlhCnnX
/NyTQeLPnXALEudRKErsj+Enkr8D+82XCcYpdMJRJMmO+HXeiq9cAYWaq0t3
dJH833Vja7dOUkjkU3zmFyGNJd68//7hH6mfNWO7thJ7aDwJrxZlIQ0Z/x2P
SD0ZfTvZ9UyShQLfXkB2pP5y1lhGZ0ixkPUiG70npD5n3VhpkCjDQg6d3Iuj
pH4Hjen4qzNYaHqmGsud1Pe9PK/tdkrEuWXL/w3ReJqC1fgeZRY6EMR9zSD2
ctN5uE2VhcZ/+OfPIv1kojE8qavGQk/OhsUpk/4bjvJ9Pn0RC/kVBtkXkP48
3L/HTnQJC73l2mSH99K4xlh3+vhSFkouibe0If2cNDHq3KlJ9gs9E7+R/jdz
81N5octCOVfk7S6S+ZBXbVP9dB0Lcbqvn1Rpp/FcDT2fh+tZKMp/9GsmmScj
zePvbuizkMFwa3FOy//iH3D+mBELFfVpVTk10Vjm/gFNWxMW6n0nzC77SONT
ExtarMxY6IJoxpBCI4235QlXG1iwkHnD2ltJ72k8qh7Uw7JmoVl2PLPD1TS2
D7KNlbFhofzTzgsDq0h9Neujf/tIPHepOdyooHFK1OTd/kMstGOnmTCtjMbb
J4J3VDix0NLf3954FND4fvPFfA9fFoqfdUPn7gMa91Sv6og6zUJCVFgkfZ/0
Q36HTM4ZFpoBRjs9k8l5FG1gT59loSvs0AKNuzR+v00g43WZhTbYNfnOjqIx
/6WXvfctcn2rla5OfjQ2fDwv4uZtFtKuP+hk5Evm7Z2G/Od3SX4bW8/O8aKx
/GlN2eEkFvIPd5me60rjBSt7830yWOjcgEW5jy2ZT6n2sqeKWEhRXNTMHNE4
Lkp+bdwLFmq1/HQ7WZ/GLUFl9vkvWai++ahS33oaOx+YXTCKWejf02nJTjo0
DqCa7U/XsFDoanVxWoPGDy9bFvi1sFAP217RQZTGQhcDh4C/LPSpPiIm7wU5
318uR6cnWajq+eOLiJzn92aoqHv/YyH3k5Jd1c+4WD93uMNFXBE1BX8RKcnk
4uC/mfb7pysizrmVNaa3uFg8irLXm62InuSYhwo9uFgu78/hsY2KqOK/vYuq
53CxreQXgyF9RbT1/dw0R2UufrKvUo1jqIjqKX4Rn8nFlhOJP7q3KKKEmFX5
8lJcHG28+/Dn7YooM/m0YucgByt+K7XNO6iIemsWZS2p4mC1yZuHvAOJ/ySo
rnckz0edO17cDlJEnQ152s6HOPjUWxnl8mBFVDj4qe6qNQfX3bz4SfaSIpJv
Yt0pMOFgv8Xe2x5eU0Q/LhW/yV7OwY07d+k1JyqiixJWBhJDbBySJs8ywIqo
tVhp76kzbNxjeq1OWkIJ2dpz1nw4MYAdzR3UF01TQue3BeooOw3gH5Zr/TZL
K6EJwa+ofeR59fPeDo1AOSX0W1vMt8JsAFc6rQkYUCRWRos2LhrASefbljQs
UkJWox52Fd/7sXXRiiuxpkootfHQ+HqTfly1+D3MvaaEmp1eaziK92E36QwJ
DZmZyM9Ydnu9fQ8uSl1oUHVzJpIq03Ir1ejCDZv0q3czlVGoT0l11e0OzHe7
t8chShlpF1mXvI39hmt2peydMVMFTbZ/e6se1YgdN+hnZsapoHt+tllqiRU4
7ds5919qqui9y5UNice9sGaosGmI2HVXlcvUIi9cuObMJrG5qkgHurQqajzx
uygv2QXETLsjP7dVeuBRI6csZ2JGgaPWoQJ3bPLcrPsP8SWuhOe5ey64P5xl
y52niugajfpXxx3wKb3oqinijurmQZlaezzVLbdCQZ3cz2mvcUylHankaUJt
4huvrXrTCmyxPo9/25vYavNqldf39uMox/amUeIkv6yV01x2YRXGoU2SGqpI
aaqxeU6VJU4ra05TIi59Yr5Lq9ACF6l89F5H7FRassky0Qz/bKhS8Cd+22Ys
Eu2CsFsQOhNGfEKh4jsq0sejy8ra7xAXe7GKjiStx9JXCp+8IL62dsHxB66r
cMzqNUp1xIoqXwLDUpbiOT9zglqJ3z+oXlR3Qh1nXNfs7ic+KWaUouzFwDqb
Hpn/JV6oc/1//3eV/x8h6tFh
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwl2Xk41N/3AHC7GWv2oUhKSVKfLC3onlQKJVooW6WUpEJFH2lRiTbZkz6h
RZZCsiddpEKSsmRJMSHLzFy7kPyu72/+mef1zMxz7z3n3Pue89x5Lie2uwrw
8fFl8fPxzbwLYrHqnwYBa3OnZ14Eafa8NlKL2IuEDMVm/6GeeL7sYFP4CZSX
d8yjnzpzFNXLpPui+45Lh79Rd8q7/c4Nv4Dy27e+KKG+qVwumV54Gen11D+J
o36i5RjPlx6E3Cc+fj5JXbyyf/mOhBuoLQD01lE3m10pTQy/jdZ9Xv1BZGY8
bQlt/9IwtHdu+d2yvwQFrWjwTiyMQEuCJ+P8qOXXJBRWZ0ehHImuZi3qB+vc
hX6n3UELI+5t/TRFkK65/tZ5SXfRy65/xo5RF1r/jbJIuIdwXvFXIer6veGL
7ofHo+MSy9fO/kPXo6e76ufbBFR2xLwsdpIg35UR33xLH6D6saoAWWoh5KT5
oPAR6lx291HvOEGVpqUVBvmP0XjzYoYldZjZouOV2YmoLT/78aPfBKlZDeQO
pSWhDR1OV03GCOqwsXUITk1Gi/bUfjg/StDTXYXTc5JSUOS2AfP8EYJWOQVu
Nkt4ivh/9vTLDRO03UO5OSY8A+XevkWO9RMksQrh6E3P0ePC8WlPQlB/gZdM
+9vnyLr9rYUHj6Dcooac06WZyKD8XKglh6D1bxP+xhVmoWVptT+f/SJo4aZa
657V2UheNrbaq4sgsQrhR3r52Sh6pH9Et5Ogmir3TeXZOejmgZuTYWyCnOr0
QwfS8pB9dXDfxDeCwPYw20gnH3W11b0JaCFoQeNd/aup+civ3b6Fr5mg3pa/
jSpJBch93a2KXw00fj/L521IKEQ3dNal7a6h8Rl0zIoOx2jt1VLuuxKCbinE
GhdLFiP7s+PuSZigL5mBcw22FyMLW6/a80UEOfQ6dqq1FKNVYXFusgUEHXcQ
9xrklCDrjd9yqjIIijRxC747qwx9f1ZzMuQeQU1NO45K7SpDJa+bhltjaPx9
kNXlu2VIt87IY0E0QUnpivLHNN6isPQl66JDCXo592086L9DXVuXxUoGEvSD
XyPvl105mqv6q8zSg64vTjLW8b9y9N/zp1LiRwhyWzPu/7mtHFnN9nUscSVo
0LvGtPBIBboj2i0qt5fWR8f56pCzlcj2r1aBhQ1B2u9aOg3iq1Co4yZXCX2C
jN5aiJmerEGqrXpH2wZ5aFbdk08rI2pQoeObu1U8HupgC0QtzapBZq9CZTJ7
eSiEr3Cu8lANiiPTbS5sHmIbLTHo9/6MTkfYzXH/zEPBL8T3xXl/QZcTvIdF
03moIb4qZ8KrDjk854hd289DT9O1zvaH1SHjswcuXXTkoYtFV6Arsw7xqiIO
e9rx0OIW4w+fB+rQkXfLLq7eykP+imltyV71aHREU8prFQ/Nv3VL3M6rAR2a
fF3iI8lDnn5W+7M8G5FKUJx0VyYXWRw3TmaENqIo3tF28WdcNN9FmzhlNCLn
JdejtZ9wUYO5yDkGrxFtlXR+vj2Wi0yUX8c4HW1CAmobK7de4iKx/KU1ooea
0URnRku/NRcljkggR4dvaPXth4PD3Rx0LN81RGB+G1Jjr7W3EuLQ/Wyjzq/f
hm5Gvdwp/6cP9TcZv5je0Iai6xLdvwz1oVOTcg1/DrUhJxG1QcOffchvbanq
WGobAim7zAclfehqmVpa34p25P7bWITvXB9KqPn6oc6UjVxtMxYNcHtRXbc5
M8mlA7Erpa0NCnrQ9WWjfLl7ulGmoMVtf51fyGtJeVRxIgc5T+ZKlgp0oIkD
R9Nbj/cjvRfrNSZutSGXIlvr0EOD6GRE17/SC5rRgYG64uLgYWTYc8nNfsEX
dHN53oknV0eR1ZjhwKw3ZUigOG/lFb/f6HzkhKsr9zGS0bas/hEzgVoc9GO7
XfPw5njTR/3hf5As+3j6KZsPWIlUmV3I+4t61sR3ZbDrcez7l/yCR/igorq3
Dke2YmPVddPqB/lhv93PwZML2XhJ26yOc6cE4IzxzWNM/06clizrluMtCHUd
r3wOrOvGV+rxOkFfQVB65lcZu6UbOwocm21zVhDYdnEKH+y6sZjj+2rOZUFQ
ZGoGKh7vxoek/Q0WRAlC1CD/id2x3Vjdp1MgIk8QAsc3Pwoc6MaR6/Pve/4R
BP65oYknYnuw/3en2iVXhaD//YLSpvpePLzJ5L7rdSHoU9ddLv6jF3tkzjkc
HyIEUqd+qBl092KHKy0TsneEoG2A/5T3RC9eo71HYyJJCEBdLzdcrQ+Pn97p
VV4hBNZLo90Ou/ZhH0lLaVdJYXhduuOwNbcP83y0m+JkhGGPrubcWyN9+FAb
81GjgjDwXelhlk71YduscsMtasJgt3fBCXkpDjbYY+ast0wYFqt9WuWgy8HD
j9el8dsIQ/bs67XHj3Gwl/Eqy7hIYRAcb+HFdXIw3/HIC7djhKE2dPTmfg4H
h8T3Z138Txh6OuQ0VYc4OFUgZc6Bx8Jwyaba+AIfF7PLlXmLsoUh/GvXN54K
F+/cNRmaWSsMqq/d/fysuNjw+OuGMlkRMPazdlj1nIvL4lXEcxVF4HrMvOVK
uVy8/bMPSlIRgbeuEx95hVx8XH9Z8jUNEXBksfYGv+fipIn4f61WiEDuiYKM
g9+5mBUUMKfRRgQ+soUbisV4eCJ+g0tfqAhEf1ciU048vHbMJPyfKBF4di+l
zukADwdYrSz1vSsCXnaJkjluPMyYWqwh9FAE1uqVnTQ/ycMK9tLsOVkikLb0
ZhczmIeXyzfvt6oXgd72z6rdGTx88mhtWGSTCKwaCQh+lc3DuaVVJc2tItDz
d/+y4AIeNvHC8w53icD64jU6wm942KL6cfuFMRGQ+RjzKqqeh12DT+zPVBaF
h2/DZGeN83DyD7ewMVVRuHHN74HdFA9zDF1KTDREoTu5yS6an2Dvzp3zKrVF
IT93geE4k+CLpmva2UaiQMri7+xUITj2j9B+eWf6/YUinH2rCa7xjN3n+1AU
thdXWZV7EqwdOmvy1BNROKuTol10kuDLGVejvFNF4fT76RWpPgQb8rwrj70Q
hfphvXce/gTfP2qpf7BUFByNa9gRQQS7H/ojasMWhYmP0w5H/iO4LND7oVWX
KNSdcH3WFkewamK38ZZeUfiy+Zqa9QM6/s86r02DopAj+cBV6QnBK/entZgI
MGAkKvL4pgyChRydM7Q1GIC3sHg6xQQ7n60z11rIAKbBkMLCUoLzYi06NLUZ
oBb81lapjI7fZKg8bwUDws4cmMd+T/BnW+nLSqYM2Dzk+5H1ia7PJ1BVwYwB
d38MZXypIfhK1GSerAUDnE8VJ135QvCqul8cye0MsI2/X19TT3CcTbGtkAsD
hm7LzxX7RvBvT8MB/kMMOHIjO+FKK8HbQ5/dmD7CgLQL/vpj3wkW/hRTPOHF
gNiTCmFl7QR7bPHSHghgQMboZ3m+XwS/O/qrjBfIgKV2YmpG3QTPveG0l3ON
AbUbiw2P9xD8pcI88lcYA7apnY561Ufw6k0af1sfMMD43ny+CUKw/qPK4PeJ
DOiaSkro7ydYd9pbLjOFAaJF8fd/DBCskfdG60omA1IDRZ49GSJ4jpxH1rEc
BkgWMorODxOseEJ+rV0BA0oeP168bYRg8UWuO7RLGLBKtEO+aZRgkcuS3+Xe
MqDTYnFE+BjBfD9y3KbKGfCp0dJjw2+Ch6NFztfUMOBy4EXdsHGCeYPpjJd1
DHgqvV5JZ4Lgbiu7iEeNDPj2cr09pm4VSU72aWOA8pFTvOpJghtdrPX2dTBA
898DyPIPXe/r30Xm3QwwL5PqxdRVKg8263EYUHHAnqczRePlY147p58Bpht1
toRTF38ZcBIZZsALbQ/BfuqXurHdZIwB51IF5c3+Epx93fRk0yQDTi37fi6S
OqOrd6p0mgFff3dDC3WqaUTwM0EmOKvIOalME/w4zkguWpQJhv5bv9hQx038
vH9BnAlSLdcTAqhjbG9qHZFmgkw5fp9CHf5CP2u7HBNIMntTJfVNqVYTYyUm
fMvrU/9JfdU9sFxzNhMiBOu3D1MHvFu6Q3ouE/aciG2dovbXaGj9rcGE8Rer
S2j/gH3On3djL2RClf2LqXFqz+aFQx+0mfDivXAEh9rd8NO5HF0mKC5bGfCV
+mC4LyN+BRP6Yi3LX1I78+ZGBBsyIa3H3C2aerdFuar3GiY4Va/Z706944ln
ssNaJlys0coypLYSUNbbaMoEtS3qzpM0HpudS4p0zZhQ6LXMJZ/a9OWRzSwL
Juw2O4SPURsrytbyWzHB41HD6dnUht4vnfpsmNBhGBlYQuO/vNqlu24XE5Qu
Z/P2UmtezZpKcmLC7NP+HwNpPtXZDsFh+5kQvXH3eklqlbVCcmddmSC7YFr2
Fq0HqdGdWlbHmCB0Ubv4NK0XxvapFyu9mJBQOXD/O60vgfREk3mnmXChiNmA
qMdcR7cP+zPh4c63u/pofQ6WxLW2XmRCyOGX9w2oOaqb3N5fYcLv6YdwhtZz
W/2dc7E3mbChUDimi9Z/xcbVyfAfE+pCzoQfpvvlzPvzuhcSmPBGU7x0L91P
WuZl2UWPmZCrtnnYiu63q1u2laxJY8L3ttH9slyCN+xwbdZ/zQSbEZ2jS+n+
Ha5L3XeylAl39UUKWrsIfmTb35X5jtYTx1AisJPO3/7skO4nJuzfrVmWz6b1
uy9MYnEbEzipXoHZ9DzxZDeEH+5gQmTAcqZqCz0PDs5RftLNBO7jqCj/JoLP
H07SnD/AhK962pXqDTQfx4vWqgqIgfghbsZUNT3/zvZ4yiwQAwvTlHYmJvjQ
lO7YNi0xGHhmqvPzFd3vF06dC9ERA4etQsFZLwk+dWn6mriBGAyWnTm9Opfg
FdcUHgmbiUGU8/Tq5mcEp0evqx8/LAaMxKt8njG0vlhBDqs8xOBc89izl1EE
S8ZWtft4isH68ujTf8Lp+Xbfjjd0RgxO/fRxdr1Fz9fHx0R518RA+vXk46oA
ghMz765mPxWDjcsX4QE3Ws+TDtqNGWIQVrHiYZcrrZ+NarOrs8Tg13Gp2loX
gl81PvxTUCgGF5cazbvjSHDt9FMc9kEMnFaOXynZRjC/1euN6/rEYHdR6pwn
+gQ79bJtErTF4Wpi2JXs3zysoZ9oGq0rDqld2YXZwzzcfe6w3s0V4tDCPOyY
1s/Dp2Q48mfWiMNR0WPfg7p5+Maqka/bLMQhZv9sfvZXHi64Kuo8fUQc/DKH
kpbk0Of7fB135xRxMA1cLj/HnYdDw2/YpqSJw6G8FytLDvKwmECf6XCmOFiO
DMc67eVhvvaU2ddfisPHif6F/jvp8zlu0cecD+KQ2/b1ovVaHi5Tmb9ckicO
QSfmJ9rNovORVRktXCEBG+eMnulL42IS8C9bZKUEDOyNe3c2iYvdBxqrbYwk
YPH5wOuCD7h4X82dpF/rJUDF8Kr/eAQXbwlR2CO3SwKkT8uvvfAvF88Xk3nl
7isB6ZxLnUOmXPyFn3FJ+ZUEKDq65N7+xMG8tLvO1sUS4Kf5LsWgnIOZ9kuM
gsokYP4S74TaYg6GF1bDw1USAKpf48cyOTjdJepQTasEXGwuUm+L4OAbbzQs
g6YlwP/FFX4DWw7eEGgiP2IqCfNNtQ5N1fXhHMbJJzUVkvBO3FriWmEv7vIP
4L7+KAlpMbmH21/0YtbAbf20z5Jw2UTURi+1F/s3PSu91iQJB/Qq69/E9OIN
qV3fTXskQcOvk33ndC/+YmmvlMOQgp2G492Sur24P2Rd8N1NUuD3wKYd6P9n
HYVZ7i5vpUBqySf7dfu6MQkZlddrkAb91H+Xz3LrxPODgpadcJ8F4yGygpct
2Jht39Js+msW7LrhY17BacWbO2vHc47LQExp7Fes14DPeLu6KXJlIPnjo+rX
5h+xVe49C0UfWYDxVw2hn/Ix74+7v+CoLFSuyHAVv/ofevA1IPv4STmQktvl
W7TkDZpwM9n376Qc3F5raM9kf0aqU2EOXn7ycK8oR8lvdxPq2nSjkiGkAO+n
w4Iyz7ehNwurkNoNBUje5vbZYeQncmc8EZrHVATV5w/ZeW1dKC9hgcmbMEXQ
fON0KOVJD1owveFsSYQiDJtCmu7zHhTq5FqAoxQhcp9DRBrtx9xUnhi8uqsI
Ax+r9WKqepBK5CLdnAeKMOuj2BX1wR7kH6Q9NylTEcKdFO0njXqR6fHl/Dc+
K8LrX2SworIXVRsZv90uowRCxo96rOv60PX805NmctR1pRNC3/rQJoOMf4wU
lMCiiHnoBe0fi3U14uYrK4GIZuH68cE+lDWP4TusrgR2BWXdhjIcFCNapxW9
XAkG7L03eW7hoAO1R282bVMCyUG/2Z+KOEjdOrH0o40SaIY2Cz4t46BvVd9/
l+xQAubLVqmLHzjI9p2Na6qdEnzusriq0MRBmwtWrj27Vwke8l/6yB2i/W68
YP+cE0pwObNu93YtLvrtfm/HvhAlmHPAL6rtBhfd9nskeiFUCZrbFbL3hnPR
wutPC++HK8HyMKsrDTFctCulcH5LtBJ8ume74mkiF7341TK0K14Jno+dC+9/
zUUeB+dEWj5XgvDvrxt7CBe1Od2vM/yiBAUOtonXLXnI91hi8K46Ot4/1xP+
WPOQ1Lk041MNSpAs8FnpkC0PmfxX9DizWQlmuwSemrufh2KbW0/p/FSCDym3
Xy3x4aGddmoKGsNKcNQFoZQ4Hiq3jt8lqciC0AgjK90eHnIv63wtyqLObDpn
yuUhyVU6WgIqLGB3qatuG+Ch7XMLJkZVWdC1I/eJzTgPtXC/xLdpsuCpTF7l
JIMg3nWR3iwDFpR2DQf8XEhQ6N8tO9JXsiB+mcPq89oE6XlHvEpezYLcPE8b
GV2CzuxRv33fhAVWi3US1A0IEtBaox+0kQVp137E/zQlSOHtsfP2u1iw2f+f
4xOOBOWvyv61047O51v+B5V9BNk/m7DetocFUV+/+OsdICguImj+BicWtPAV
NGw9QpCWy4Pypa4s8FIK3bnwNEHG03Wy/KdZkH3pcaPrDYK+e8/2n/RhQToO
Y4mHEBTQtb9z5AwLAvbUJySHEvTuIy+v158Fa4K/BFVFEbTtP4ZT3RUWaDSs
iMuLJ8hltXFSUiQLGK7LDqu8IOgHsgmpimbBd/RwwiubIEezQ6cHYlhwMJ/n
VZxLkO2O0PVG91lwy8+TaVpIkMWxjh/ViSwYzl1a+fUNQe9Pjr8bSmKB0wMv
9663BG3wk0pnpbIgc+WNnr73BK0NWuXvks6CSEQCWj4QtOLBTdZoLgva734T
31pLUEbSg2mVAhb4uKpGyNYTpJOe24UKWRD+8etwdQNBCwvbsq9hFnzYWbRR
p5kglXp9G9VyFig/GZf+t42gOy3mq0wrWfDH7pHTSDtB8mznuYerWBBSIXvJ
7SdBUiSY+7yG5nMydqteF80Xs/XahiYWeFzc0mHfR9AF6UHPIy10/smSrbc4
BP1REN0d0sqC8sXXUvK4BI1q/LOwsZ0FtVEOrwgh6ORiM8mpnzR+ZtICf/sJ
6l/mMDyviwUyLYYqgoME9RoHlh7tZYEL5BcPDBF0eH1sSiiHBXPIZauWYYI6
zDNCc3gseImS0gpHaD5tm5ynB1mQFTzyfd8YQQ5OvI0LRljA9Ut6rvmboMYD
gkvNx1jQI4C3t1N/8Vw6GT7JggU15qImEzS/vqbsvCkWNOvsUW6lrjpnV/Ft
mgW7rUQmT04SZH7F4zm/gDLINGs+4/9D6+N6wJ2FQsrgoXxb5yr1+rDo85Yi
ytA8Ptuff4qg4jtPXT0ZyvBVIiX2JLVJXPGWKDFl+BukEPyN+uXjer2XEsog
vnH9BuO/BK182qvyQ0oZukoUP4VTZ2dO8wvJKMMzdV+tNup/8uV7tOSUIWeR
lfWCaYLSXy+u2aqgDPfWBZvtpV7ydm2et5IywDl58TDq5A874u4oK0PNrY77
BTP3B1/cAl/NVoaKSs7fRuqHjec82lWVYWrZAl1CrXN1onaA+sKnx1kzztXz
NRJQUwZjE/GVM/cLH0I8xeZTb7p8beUA9fCGA8kHqXPzLecOUZ8f/CF9mnpJ
xUTEjBkJjr6B1LFJt0Vof4JUJ3eZPaG2qHbvnLFZ5uaOX9QLSruujVLXOL+1
/E39YF0Zd8b2EqZZjLnK0BYStG2M+sRho0uLqa+HY4nf1DGquupHqX+ZjByj
/QzS+JAadJa6Qpu/ZMbPziwiN6hNOgdlJqhLatVfP6N+XxqUNuPea3KOPOrm
ub4fJqlPrQx985e69Eym5Mz9yt8OiSXS6sqgFP9564zlQGRiGfXQjjfvZxzH
vbQfqL3Zkfy030Ja96bLram3rt2yesbGo7/veFEznT0ezvjdo9PTAdTsefW1
M7a2GTwUTi2WNV/wL7Xrsz6DLOqVJt4OM+7f43b/DbWhofeVGfuJdgrVUZ/5
Y/d0xiEu32uHqQv66wZnzJrlYCQ8Txmy1DzkZu6LHhZ9fahA/Uu5558Z6xzd
KbaQ2oZtaTXjPNZnL0PqAd9ItxmbvtvaZEZd1lx6ccZVJyvBjrpC7Gv0jG3n
bUo+TP1X9HPqjNuq30ifoT7w5fmrGbv7g28w9cgRn6oZDy8u+h5DnV09r3nG
57+uNkuhTuDL6pwxIzA3rYA6d3oxmXH4Cj2FSuqxD1dHZzynLcO/mdrFtWJy
xk9u6XT0/u/zgb8z/scoxXLyf7////ux/wOGfecC
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{0, 2 Pi}, {-0.9999998830731719, 0.9999999999999918}}, {{
     0, 6.283185307179586}, {-0.9999998830731719, 0.9999999999999918}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.4309297602384124`*^9, 3.4337122712215295`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot3D", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], " ", 
    RowBox[{"Cos", "[", "y", "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "Pi"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"y", ",", " ", "0", ",", " ", "Pi"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJx1nHd8zdf/xyP2rERrryhqBjFL+FxV29doK9Sq1p5NqRUrRjVC7NWKCLVL
7T0+QkTsTSKCCFlG7SAhv3zyfr9el/vT/nMfefY49/153s89n3Pe532u208/
f9PH2cnJqVVWJ6fM6a/Nzs5b17bkrEZ4rXhGXuekhkeU3nvaAO8xaseIeWNP
G21+vxpfau8N8mPdJiUcDo0yKrRYtfWa/z3y/gt6FF7xLNbY0Kb7z6X2PiCf
+rTOwqNZEo1FFWYs2v7sCXnL1fv2HLj8wLi2od+Ia/4vyIPbVc0Z6PGvUbjq
19+luL0mL5Fm/fev8f3m0jVL7U0lX6Htzyx55+dWwckG3kr7fxg5ePT2Z5nI
p2k8eYtF9WtqZiYfrPFX7day0zX/rOQX9Xr/t2x3swFe2cknq5+fb5ark+KW
k3zc4mbr3/cLry1fduvwrlsA/8Zr6Y6LQ0JCT9EzeOXufkG/udo9gy9LyvJ8
7nC7Z/BpuRdfcu+dQM/g/k9y7d5czO4Z/Oe59b/qMfARPYNXn9Dj0VIPu2dw
b20Pz+AztH94BvfTeOAZfIXGD8/gdfV64Rm8ifqBZ/CVjfJ8Y/mEZ/grvcor
t1lmBj2D565QZZnP+hP8G69ZPv/u9tEskfQMvm31OP/zr2PoGfyvxIjPJvjH
0TP438kFu59/nUjP4EVKewZafuAZPOTzEVOt+xOewYtqe3gG36j9wzP4ao0H
nsF3afzwDP6JXi88g1dRP/AM3j/4VYZPeIannQNf5K4483d6Bg+M8dx6/Osw
Xg+4zTn7sYidV/g3XvO7pX4e6HGLnsEj5qYWGDY7lp7BPQrnShmffr3wDP52
eofl1v0Gz+CZjxRpZX3f4Rn8nbaHZ/Ca2j88g0dqPPAMXkjjh2fwVnq98Ay+
V/3AM/j0lEl5LJ/wDB/3XlQu3eb4ZHoG9xiyqk+9IyH0DB41tFlxz/YXeJ3g
/tezRRSLieDfeK2W8X2/Rc/glcrW9bLuH3gGL74vfp31/YVn8C8fV90XnD5+
wjN4CW0Pz479wzOvS+OBZ/DZGj88g8fq9cIzeEv1A8/gV/MFZviEZ95fy34I
PVzGh57B642b3q/X7j30DB5eYtWMQ4XD6Rn8zal1cQ3S48H7gVdLG9vNuh/w
N17l/oykZ/DTn35xZ2r6eAjP4IN7D/rEeh7BM/gZbQ/P4Fm0f3gGr6HxwDP4
O40fnsEv6fXCM3gn9QPPHBdXpGT4hGdc3/xCe7wvnB1Iz+Ax171uFOuynp7B
dzx2nftTev/wDO7Sb9aCuumfLzyDLysVPjUs/fuFOMDbLR5Qdkz6+Ia/8Tok
w+cpeub4Pe/u8jnpz3d4Bh+q7eEZvL32D8/gQRoPPIN/pvHDM7ip1wvP4Jmi
xA88g18v2fkXyyc84zoKeq1/4RNYvQE8g+9OeLfRZdDPnvAM3tar74L+KyZ4
wjN4vTtzh+dynuYJz+BVs8S9vLFkhic8g7+5HTBx8JnZnogP/IhP7Y03a831
xN94zd7t05rl18z1hGfwo9oensFTtH94Bq+m8cAzeEONH57Bu+n1wjP4LfUD
z+CuE/O8tHzCM+KdLffzIXgGvyH3swnP4Jvl8zXhGTyf3A8mPIP/IfePCc/g
reV+M+EZvL/cnybiBm8u97OJv/E6QNvDM+cj2j88g/+p8cAzuKvGD8/g+/V6
4Rk8Vf3AM/hVuZ8PwTPiKi/jMz2D15Hxh57Bw2S8omfw1zK+0TO4u4yH9Azu
LOMnPYOflPGWnsEHyvhMz+CntD3+xquO//QMrs8LegZP1fjhGfyiXi88g3dU
P/AM3lrGZ3rG+8fKfIOewavL85SewSPl+UvP4H7yvKZn8CryfKdnzrNkPkDP
4EVl/kDP4HVlvkHP4MW0Pa7TsX/8jVed/9AzeIDGD8/gMXq98AzeXP3AM/hl
mW/QM95nu8yf6Rn8T5kf0jN4Q5lP0jN4Xpl/0jP4FZmv0jN4dZnf0jP4G5kP
0zO4k8yf6Rk8RdvDs2P/uH4+9zQexq2vBTR+eAZvrtcLz+C71A88g0+T+TM9
o78Ssh6kZ/Ccst6hZ/BMsj6iZ/Atsp6iZ/AVsv6iZ/B1sl6jZ/CCsr6jZ/BD
sh6kZ/BC2h6ewddr//AMrutTegbfofHjb/rW64Vn8IrqB57B+8h6kJ7x75pL
foOewUvK+p2ewSvKep+ewQMlP0DP4L9JPoGewf0k/0DP4EMkX0HP4O6S36Bn
8KHaHp7Bp2v/8Ayu+RZ6Bg/W+OELvI5eL/7Ga2P1A8/sR/Ib9Iz/r/k6egbX
fB09g2u+jp7BNV9Hz+Car6NncM3X0TO45uvoGVzzdfQMrvk6egbXfB09g2u+
jp7BNV9Hz+Car6NncM3X0TNeNV93qEj8pn1l9h4wdg14/VtT85kxKaluauqj
lcbNg0MbeXjmsIEHK0f7V/ev9B7glWxsLFG91uSN042Tk0tUivC/Qv7LpVbt
UtLbHxzn1C7YO5sNfIJy9A9+VftB//WGbmsS8PCNsUq4if7BB0k/JvoHH60c
/YOf1X7Qv8/jWWW2Tn1nTJTrYnvwIOVoj9dfu01tvWDsAeZhwaemjvv90sOA
RugHfKW2h3dw79XV/Kz2+Bv/Tvs30T+49n8If+NV+2f8eJ+RbhM37l5/gPGj
v+bC+X7g2p7XiX60Pe8f/DuN/1DlA6MmlN+70cBr7XlfDty/fqNRvm2rfQU3
57CBByrH3/j/2t7E33jV9vSAf5dU7/Kgqq6zGqEd/r9zu1Jftd5p7x/xLm2b
wRk//t3lfb8PTu+H8aMfbc9/j/+v7bneRD8azyH8jX+n8ZjtfB68TnU7wXxy
qX4lQyu2CTdyZ32TI9Utku/ru6DQW+deEeRoP7V6kZ/HhV0zRsVNODku8g7b
l+9x6XqFTTHkaF90lWezHQ1ijP4nfeekuCWy/YijJ708xsWRo71Lyplet+/f
M7r8M9nLZ+C/bB/Q0c85ZFgSOdofn3SnQlp4olG+5VezxkU+Zftb7a7NrDX4
ITnaT4m8+n3XzQ+Mkg2aPNn/1r7fMXt1dr8Wbf41Cv3Hfgfao5/sn5jJfaY8
YnvHvH3+Uk13129m3x+Zq/2Do30O7SenS7OiPgPT2P62xg+O9r9p/JMm/XWo
W3P7fsoc9QOO9ifUz/g3n3uPi3Rm+zHqHxztP1X/Y4avcgsclIXtK+vnC877
Rz/fkQ/KXtr/1r5fM03vH3Dug+j9M6zP6qlRs+37OKENr525+yScHO1r6v2J
+5b7C26nJ7b+NYz3J/jXy+82OPLqCu9DcFu3Bm75rt/i/cZ87fFK7b/46i7v
K/A49zmPPS/H8/4BD2t8u0qLyUm8H8Bn2Zp8ecHjAe8Hx/0FfO7gs7U9Pl/w
cO0fnyN4gsaDzwv8H40fnwt4S71e+AdvpX7gGbyW+oRnzFN8F1dNch93lJ7B
70Y/mJ6S/xI9g0+u3fP2xb+i6Bm8Woe3rj0XxNAz+JerVvgv2nSXnsFXPy9W
Nskpnp65XzBnQ63GoxPo2XF/AZ7B07Q9PIOv0f7hGbyBxgPP3O/Q+OEZ3F+v
F57BE9UPPIPPU5/wjHnfkn9TU+8UMOkZfGHIxSYJ/c/SM/dntgU9OZ7rKj2D
d9voERuV8wY9g7+rdfH6hPG36Rl8TcvYDbbOd+gZ/JZv/hnzp8TSs+P+AjyD
x2h7eAZfq/3DM3iaxgPP4D01fngGd9frhWfwZeoHnsG3q094xjy6/tlo91HB
O+kZPLrpxo5jKx6jZ/DP/bd8N2/TWXoGX9BnnluuKZfoGbxRhcUjvJ9dpWfw
nQVLbKnpF0nP4IeDzjU/XSGKnh33F+AZPETbwzP4bu0fnsFtGg88gy/R+OGZ
62a9XngGj1U/8Mz9BfUJz1iX9F05YFGE+xp6Bo/95Pv+Z3bspGfmp4sV8fYf
ZdIzuFeTv/NMzBxKz+ATN67yne5/nJ65b5Or0q1W1U/SM3hFfx+3P6NO0bPj
/gI8g1fS9vAMvkT7h2fwSRoPPIN30fjhGbyMXi88gyeqH3gGH6M+4RnrvFHJ
5/duHj/IE57BLyx7sMo7zscTnsHnds9X1n/iFE94Bvd41mDn8DN+nvAM/vpl
2ZPzqgR4wjN4vvl3utjqz/GEZ/AkL5dl2ZvM9Sz0H/sL8Az+QNvDM/gn2j88
g6dqPPAMXkfjh2fwxXq98AweqX7gGXyW+oRnrJt/Ev8mPIPfks/LhGfwAvL5
mvAM/q3cDyY8g4+V+8eEZ/B5cr+Z8AxeVu5Ps9B/7C/AM3g5bQ/P4Au0f3gG
H6/xwDO4fh9NeAYvodcLz+D31A88g49Qn/CMPEQ9GU/oGTxKxh96BneT8Yqe
wefL+EbP4A1lPKRn8B0yftIz+CEZb+nZcX8BnsFNbQ/P4Dr+0zO4Pi/omfvG
Gj88g1fS64Vn8DvqB57BW6lPeEZeZ6E8H+kZfJ48T+kZvLw8f+mZ+1HyvKZn
8LfyfKdn8FUyH6Bn8GiZP9Cz4/4CPIPr/ISewVdr//AMrvMfegbvofHDM/dH
9HrhGfxP9QPP4FvUJzwjTzZR5nv0DB4j80N6ZnuZT9Iz88cy/6Rn8LoyX6Vn
8JUyv6Vn7hfIfJieHfcX4Bk8VdvDM/hf2j88g9fTeOCZ+xEaPzxzv0CvF57B
49QPPIPPVp/wjLxjSVm/0DP4V7LeoWdwT1kf0TP3C2Q9Rc/gsbL+omfwo7Je
o2fwGbK+o2fH/QV4Bp+p7eEZ/Jj2D8/g9zQeeAbfqPHDM+so9XrhGbyF+oFn
8BrqE56Rxy0h63F6Bp8s63p6Bi8i+QF6Bs8veQZ6Bg+TfAU9g0+SvAc9g2eV
/Ak9O+4vwDN4Nm0Pz+CaF6JncM0v0TN4AY0fnrnPotcLz9y/UD/wDF5DfcIz
8nWbJR9Cz+Cal6Nn5hElP0PP4Jpno2dwzafRM7jmzegZXPNj9Oy4vwDP4Jrv
omdwzWvRM+tJNR54Btc8FT0zD6rXC8/cp1A/8InXvrlXXs/cy57nzPfqk2KR
/seM05cDf/OKtuczT4+o6bnzWYiR/btivUt1t+ctXTQP/fLcmxfxleO4Hpl7
53nqdf+dRvlhcW7dqiZxPVJW87TfBBctVq7+Q65HcvTNnc19b6AxbMSlrFa9
NHz6/Uf+sIXGX954NsZ1mT1PmEPjd5k+/9TAGHs+8IzGX6PP1Jy98yVxPYI8
+oJHy0IrecZxPbJY42/0z/MDB2fY83iDNf5Gj+fHVWgTQY+Vm/V/FfDwurFx
uW3q+/k3vMZnGVa6sudV+kw6OqPIQK9rRvYxzXsvbXebPsN1/6R00qMsOdLs
+bd1jTfXb2ZeMj7N8kW/1qkJ9Onn1Lj1jmcXDPeGnbZYdbnw2du82LVMhfPG
vthJuTbUtedjW/xH/q2Cxn9zkG/5gAn2/FsOjb/kzR+uPvvsPn0i/qUbW297
HJxAn9j/WR6Rc3Oauz1fukHjrxs572mpyNv0OVfjjz85w7/AFHv+c6jGvzZh
vfl+nnPJFw/35lt915h4tMuT9/NvObLXOdLUjDW2hg2Mnzvenn/D6ym3ZbkG
xdyg57hjxy9ufxZjHFvq2W5F6B169lqdPyopb4xRpOup3FbdMjyHTf0+1q3C
bcMWuPphvwWJ9Nw//OtrW6feNDpdTna5uOc+PZfXvFYWh/zbIo2/7tsXXW1P
7fm3bBq/+59evU4+suffEH+O0X1/7ph8j57jNf7C4+8XiHOJpedOGn/az+9e
jgi8Sc8nNf6xu/rerDzTnuccpvHXfhE0+v08Z9Eqa0Z5XbpvNO+VP3/se/k3
/9z/Tgx4mGRsubmn4Mzp5+j3dVJdv9DsScbQxLgtd7Zco2e8yj7sLXqOWH9i
iYdngrHb7+Lgjsl36LnFdNcVA7zijU2+k+KOhN6j5139u64P9o4zwgpuulP8
ajw9r9O8Vn2H/Fthjb9YSt7o3eXu0rOfxh98cHxCvwWx9Iz4p7Rf8cqseYee
B2j8pTPG81v0HKnxf/2ukNuet5H2fLLG//25McHrfS/S836Nf1/0X7ffz3O2
XbK56DnfJ4bH+J1N38+/ZctxOSgp7xNjZY2yziWmhNHzoVGvymRb+tjIl3j0
jVUHC78j4ouvdavw2Ige3LioT+tr9IzX5btDtwxMv//h+WTAqR5bpz4y9jZ8
dGNj9G16rjfk034JQQ8NtzEhvw4KuUPPC7Hf7pB/+5/G3/SfIb8W33SDnrNq
/Avcs7fpOv4GPSP+oOsjfTLnjaLnkRp/4dVTkgY1jqDnrhp/jXw13Tq6XKbn
sxr/pStdFjf75Aw9N9T499vKxb2f55xddObrp4VeGCdKtiv7nbmWnpv7bxmf
b/VzY+H8LWFWXSs8v3t9OVMlj+fGohl1amwoE0rP2Gc/GZWn4vJhp+l3aGSJ
XD+2eWZEt17xeMiPF+kZry6HfMdUSh//4Tl6T1/XJX2fGl3H3m73cFQkPV/V
vNa3Dvm3WRq/84XOLp0bnrPvi2n8z7vXWOPe+zw9p2n8f3m0aNq803l6RvwH
PI6Wf77oLD0jfreZ07puanbSnrfX+LNM9V1TfZ39vj0f2D+i4OZXRmjGfv0A
+vTLE9DNw/OVMSJjf38efdrGbb39vxPJxsxaZx9Mn76SPpO1rqBwRn3mVvrc
3PVNwtTYl4b/F2/Kvbqynx77nSo5JNj7pTGhRruoosZR+sRrQvL4vBXSnxfw
iVen9P98Y7Yzz3ZO45+f4TmQPn/X+Gdk3Od/0yfil/fdTp+oi1ieUXe6iz4R
f5TTtjHHPHbRm4u+f1q5qTm6B63iPDZ81oAGXpdSDI+q3Yp7F9rKeazvuwDz
l54pxnnph/NY1EvMlfflPPZx9NXj63zeGL9InJzHrvtfSuvQ7G+MLnJdnMf+
cLDU+VsLXhtP5mZ44Dy2s+ajDIe8GV6viGfOYxH/cPlcOI+dpPFPlM+R81jE
n18+d85jEf90uU84X/1mhduiHtFpxuii7lUHxu+gt1z6/s5yf9LbEd+BQQuT
3xmF5H6mtzFaN7JV7n96q9Fz+5rTLu+M5fJ9obfEc9cqJQS9NR7J94vego3U
fzJXeWs8PJ/xfaS305pf6uuQB+ug8X8r33d6Y/5Axgd6Q/w3ZDyhN9S9nJDx
h94Q/58yXnH+f1/jXynjG32ecJlYv/G+TLZlMk7S5+qWc1PP+maynZZxlT4R
VyUZh+mz+96dvkl5M9lcZNymzy+fHP9q9GUn2x8yztPnZxWvZ8m21Mk2S54L
9Pm454Ow+T862erLc4Q+H2geqbZDvgvxl5DnFH0i/l3yXLPfh/oaJM9B+kT8
N+W5SZ+I31Wes/RZUOPfKM9lrlufavxfyXOcnhO/eVjx0m+ZbWvluU/Px/zT
7vdsk9n2ncwT6HnFEZd/Hrlmtn0p8wp6RryFZB5iz5N71PHIFexsmyjzFnqu
PbDF88V9nW2BMs+h5/wru+wqV9XZ9pnMi+g5j+aR3oV8mO9C/CEy76JnxL9B
5mn0jPh3yryOnvEq9XW37HlyjX+4zBvpuY7Gv0fmmfTsqvH/IPNSes65oGuR
Ph2y2krLPJae750aEvW0UFbbrzLvpeeQzL7LfG9msT2VeTI9L2sw74d8q7PY
Csi8mp4Rb2aZh9Nzx793xVb0yGKrKPN2eq4eG75696vMthoyz6fnKppHOuiQ
70L838o6gp4Rf0NZd9Az4i8s6xR6Rvxhsq6hZ7xekHUQPXtp/Dtl3UTPHhr/
LFln0XPFKydyJBfPbpsr6zJ6zpr3xsmpsdlst2UdR88xXz+a6bohm62GrPvo
GfWAf8o6kZ7/2OHq4l43m22xrCvpeYTGW0TWofTcvmzdhS1Ds9oiZN1Kz21Q
L+yQ70L8e2RdTM+Iv4qso+kZ8ReQdTc9I/4ysk6nZ8SfW9b19IzXB5IHoOdv
NP6Dkjeg59YF673yS8hh++ze7h9LP7B7Rv1aPck/0LPztG7jVo1I55KvoGfU
Ac6W/AY973vh63TYOYfNXfIh9Lyw6vwj/zuR3ZZP8if0/IvG+7nkW+h56H/k
u1pp/MMln0PPiP9byf/QM+L/QvJF9Iz4X0t+iZ4Rf27JR9HzIo3/ouSv6POm
zrd9ZP7A9cJt5dMdeIDOt2N1vYB+SqmPzOUz5m+c9/bXeWkdmb9x/jxQubsD
n6bzzI06T8b7umn/+bR/8LM6X21SUubbiKenzt8CZB7O+wTzvX7SP/1sUB7k
wMN0/lZZ559435+0/zzyvuSf6OecS+Kk5xU6Lzom3tj+L+W3HHh7nRf9rvM6
9NNB84F6/9PDFuWVHHgT/XdjNZ+JfnDf9hHO98WrjwPHfav9kyOPqvV4jBN1
epqXZj0i/n//10UjlkadYjvwiOS7QTUnBfB3AcBLjj+e/UwF++8qgF8tNSfC
qiNCHQ/ztzlODbLquFB3Au6cYOtk1dHxfKny2omFU6y6SuzrMw/xzzxvqw4T
+9DgdbQ99k3BM2v/2Ofj9Wo82JcCv67xYx8FvJJeL/L+4DPUG3zivm7/rFnf
NtVP0ifrwupF3Gi7dQZ9gs+qEdOulp+9Po/7urtu3rXqr+ATvPiwFk2t+jf4
BP/85fyaVv0hfIIPPbC/qVV3Cp/g3X3+7WHVqcInuLe2h0/wsto/fIKX1Hjg
E/yJxg+f4H/o9cIn+DD1hvsY/OXv46Mtb/CM50m2wF0n/P2P0zN4w9t7W6+4
60fP4P6Pmvxr1VPBM/hov6ppVj0bPIOHemxeYNUTwjN42v2zt6x6TngGbzG5
4rt34fa6HNb9ZUs1Dw9LomfwltoensGdHkj/8AwepvHAM/g4jR+ewRfo9cIz
eFn1Bs/g3ce0bWN5g2fmR9d65/bNHGr/nRrlbbfkX7Sv4m/0DD5rzxpvqz4N
nsHPjs/0zqoPhGfw0QkLs1r1mfAMXi0ouIJVHwvP3FdfWbysVecMz+ClIj93
tuqieY5XeT5tD8+O/cMzuI/GA8/glzV+eAZfrNcLz+CT1RvPCymvnnV2hjd4
xnzns0Ixx2aMMukZ/It+D/cU+MuXnsEPLdy52Kr3g2f2s3BKtFVvCc+su5+1
frFV7wrP4MkLZ63Ne/0WPYPXq/Dq2fYGMfQM/jrCNsqqJ4dnrqe1PTw79g/P
4PM1HngGL6LxwzP4ab1eeAZvqN7gGfy33e33Wt7gGfPH31/VyHl2x077+Qfl
F/b0CEl6NpKewYf8Gl3fqp+EZ/ADp0qb8f3P0jN458wvP7Pqh+GZ/UwtHRjy
6go9s276gP/fY8Ou0TP40hIBpaw6fHh2bM9z3cqHav+s+0E9msYDz+BHNX54
Bh+l1wvP4CvVG/etlV85EJ/hDZ4xHw9IO9XTqnsEfz/PeTjPPE/4R/v1n674
KvnXfjwX8357p4LfNsDngvar5z1uNDJ4J+vvP2j/xwr+DgPaD6j1uklMAZOf
4wd515br+fsMaL+1WLUdVccd5ef7Qf87N/N3G9B+SO8baS1/tf9uxvvtbU23
8fccHPPA4B+0P7adv/OA9nmcEmaUTJ9PFv5I3tjWfAd//wHtE7V/cMf+cf+g
/VCNH9wxftxXjn7AHf3gfkN7b/UP7uif9UDafrN+vjzH6/D5sm4D94/eb+CO
9xvuW7TPXqxqE+t+A3e833DfYr3oI/3zHBn3S+W+PYT7EHy+xM9zo+DtxQPP
jYIHi0+eGwXvKp8Lz42CX9b8Nu4H8OS0eOs+4blRx3w4Pl/wbto/PkfwFRoP
Pi9wL40fnwv4Mr1e1gnBj3qDZ/DnRTP88xwu1t+TZJyhZ/DTMj7TM3h/Ga/o
GXynjG/0DP6tjIf0zH5k/KRn8DIy3tIz6/dlfKZn8M+1PTyDD9D+4Rn8O40H
nsH3a/w8b698mF4vPIMvU2/wDH5exmd6Rj4jvzw36Rm8nMw36Bl8nzx/6Rnc
VZ7X9AweIM93egZ/JvMBegavI/MHegZ/KfMNegavq+3h2bF/eAafrfHAM3gh
jR+ewcP1elnHpvxL9QbP4FNkvkHPyA/1kXkgPYO3lvkzPYPPkPkkPbNuReaf
9Mx9aZmv0jN4FZnf0jN4LpkP0zN4cZk/0zN4bm0Pz479wzP4KI0HnsHPa/zw
DL5ArxeewSeoN3hmvaTMn+kZ+bYssq6hZ/AGsh6kZ/Bpsj6iZ/CRsp6iZ/Aj
sv6iZ/C3sh6kZ/CvZX1Hz+BrZT1Izzyvqe3h2bF/eAbX9Sk9M4+u8cMz+Fy9
XngGd1NvrNtT3kXWg/SMPFw7WafTM/h6yW/QM/hMWe/TM/PMkh+gZ/Bikk+g
Z3A3yT/QM/gQyVfQM3hXyW/QM7jmQ+gZvIz2D8/gJTQeeAZ/rPHDM/gSvV54
BvdWbzxXr/yF5DfoGfm8vpJf4u9RgJeQfBR9gmv+jT7B+0i+iz7BnSQ/Rp/g
tSSfRp88byr5N/oE13wdfYJn0v7hk9el8cAnuObf6BNc82/0CT5d/cAn+HeF
Fy6vOSngUBWtF0S+LnWJq+ujUZGszwMv2CtPqFVHhHoy8JWp1YqXuBrP+ifw
9b+c97Dq6FCvA540P5eLVceI+glw1H+iPoD5zIbtGlt1jNgnBj88ocEcq+4O
+5rgQZUrV9hj1YnpPhz43y/PVi+x6Qb3jcDPhUw9+n3Dc9ynYf5zf6+2y8cG
sh4Rebb7v/9TbFP0bdbPgd9J7JX3aOg91nuBr0zd9caqM0R9EviIy/+utOo8
UfcAXkLrM7H/DR40qNwEq54Q+7XglYyjxfsviOX+Injg7MZ3rHot7IeB91gz
76dqvc8bX+j+DfikL4pFhIX+zfo/5Lta/THY16rrQ70X+ME1hbJadZWorwIv
OX9sM6uuFfvH4C/cvAscrmnfrwXfHZ0p1qofw/4c+Jb5k6OseifsJ4EX//by
6RLGdtbJIV+UKapIbav+E3VRPJ+d+OpC9rS73A8Gd2rhVnpw4wjuX4I/rheZ
bNVTYb+K9bx/bY0O/3oX68OQP5l0smVpq+4X+4U8J3QhJMyqv8L+Frhn3pvF
jnvsYj30++upx19M82zxkXV6z8OBnuU/sh4v3fQvz3UfW3dv3uC58GPr6x+3
eF79yDr68JJtnp0/sv5NqLTD8/RH1rlzftnu+eAj69ngQ1s983xs3druH88q
H1ufLlvr2eYj61DfrH94Dv3IetP25zjPSjpeYX30YNZurwHxO0zU47JOR9df
qB91XD+i3tFx/Yj6PMf1I+p+HNeD4TouOfaPcQm8s8aDcQk8SNeDGJdY9xpZ
YO+35loT+1jgKR7/a7do4wAzq45LWL9kmVOqilXng7pY8ManH9W16lJQx8n1
UccqLaw6CtQdgk+YXOms65Rr5iodf8BbeyQNsOoKQnX8AY/+strYGdPPmRh/
wN223DxTfEqYifGH5yQi79ewficQ+8f29eYcm9O/88xXOv5gvdC5q8/93W8j
zYM6/oDfGTx8llXvgfEHfMu6EWut+gSMP+CtwrdNt+pSMP6An+pQOYf1O3sY
f8DHtru73aq/wvgD3tX51LiA6StNjD+Yb6/8u/jrey6xJsYfcJdOoT5WXQTG
H/CBj6a1teqUMP6AH7h197lVD4bxB9z1Xd+bXx7ZamL8wfyzfNS4xVZ9BcYf
8OfrAkcP/fGiifEHfE++qrFvruw3UQ/K+aTWY2DfnfPDQh0HFTeOmvwdIZzD
k8+L50yY791z8am1P476A55fV87fHVJuaD9Ouh+MvNO/NTLuc8PprOt6xzyn
NQ7gXATa55Tvi7HkI+OqNZ5U0u8X2pfT9njug8+V75fhq/HwnLF+7wbr+4K/
jZDvaWv1g/u5tN7P8GnPz2R4MLEvjvnGq30y38A8DdxL5mmNsF+O+ZuXzE9M
Q9uR6z441h08Zy/71IcwnoCHaT+oA8b79ui854l1TucT/XwxT2gr9wPrg8Gr
TIx7Vrb+Q+OE1h+AB2fU6T3guSM8x/3kPjQS9fwJeKLct6wzBm+9Oi6ha9Uk
1tGCr41tdKVXviTWiYJXku+FkV/PBeE5fv9txvfIOK7nW8DXyveO50nAe8v3
lPXN4MUPmhutc1Kof+U5qoz6zzjWp4J/JuMA6yz5vjJucLwAL6PnFObo+SXM
HyrL+MNzROADZLwyOuq5EfAwGd94TgO8hYyHrM8GL5/8ax7rXBjqd8Fz5wrt
YZ2fQn0q+A4Zb1knCp4o4zPrGsF/lPGc4xd4TT0XgHNQGB86yfOC53bAi8rz
hedMwG/J84jnIsDbyvOLdefgsTF/HOwYfY11NuC3M577EawbBv9Nno+sfwUf
Lc9T1mvyHIw8f1lfyPpZeV6zHg48n9bn4zwSxqU1mufH+RnH/Rqc93Dcd8D5
BMf9C9SLO+6boB7acX8Edb08N6n9oA4VfJu+L+om2V7jbK7jC/PbWj+POn7H
/Hw2HX8wfm7T8TO7ji/gb6dI3TjGJfAb8jmaqGsHvymfu4nzhHi+F5T5uYlz
ceCRMp83G+u4BJ5LvhcmxiXwsvI9MkN0XAKfIOsF/k4g6z1lfcHfXQS/IusR
E+fEwJ81z1i/mDi3AJ5Pxh8T4xJ/R0TGKxPjEng5WR+ZGJfA065nrKdMnJ/E
9/XlNxnrLxPnAMGDZb1m4twazwvK+s7E+MPzAbIeNLfo+AO+WsZzE+MPeAsZ
/02MP+DFZb1pYvwB3y/rUxPjD7iuZ81B+rzGPGecrH9NnGNkXa2sl02cu2N9
oqyvTZwTA68o63ET55rAl8n63UQdIbjUsT8wUc8HXlmepybq/sGHS97ARP06
+HLJM5iotwaPkbyEifpg5hUlj2H+rPMZzAf2Sj7EHK7jD+v+JH9i4vwb+FLJ
t5g4rwVuSn7GRF0mz4VLPscsreMCeFmtR0WdIng3mYeYqDsET5Q8kol6ffC1
kncyUV8OvkLyVCbqocELSV7LRP0u835/ZOTBzE6o53Oo5/TQdSi48+yMdSjr
mDmuKnf/yPrXWtd76/uhvbv23/Yj62IrP9BB++c4qetfxA3+mdZzom4S87pp
DufEwdc5d/VJvGCfh4F/WuvGm2vN7PMh8FbVv29xJ8VeTwO+dkLBEJdo++9V
gqecy/NmXJi9boC/i9N32ZYhgY847jvmAzFes566xk7XXuH2/TPwxqMLnyh9
236+Avx5cqbUp2n2fQvwzpHHK+1qbT8PDj6+feeIozfs55fBUY8KP/DXp3bv
Fqa7/dw3zytEzNywONh+7hv8h91ppda3sp/7Bm9k6575cK779AN+98aRO5a3
nA55Qsdz3Oy/at7jO7rZz3Gz3rz9nxPn77H/jiLbm2kDR7W2j2vglzf98rfH
uKv0AO7zIK5FiZQwXi98lDpRxWnuaPv5a/DyTb/Lvf+UvR4IfFj47RyWB1wv
6wOnT55v3T/cJ0P/TzfPn7rtDuMHH1jO3FdrcDTjB695suKO+W0vM37wtx3W
Oj8Nsf/eGq7jh5v1EueMtp9fBv/7aJvx1ufIc+LKL/Rvms26/xEP+K8d/yjk
V9N+jph1bhtajvyq3wXGA+66rVXZL0+F8H0R13cvwrNZ9xXeF9xjyOk11vcR
/YNHHTz4Y7tDp9g/2w+oHbC85wH2g/fJ2m7ejoT07zvu7w/ye1V+4++tfZDf
u7CUv7f2wfp61Ur+3toH+b3U9fy9tQ/W73m38PfWPmjfZRt/b+2D/GS4/bzn
+9zbfQd/V+0DPm07f1ftg3zpk638XbUP4nHezN9V++B9163j76o5euDz4z+8
Id5pQV2OlOy7nec7wF8deFkiqOcBnu8AHzKySNF6p0J4vgN88rrcWx6HhPJ8
B/jKa4H7iqWE2c+F4fd3M+ou7Oc6wZ2CPKO37Q7jeQ3wmWMKdevSMZTnNcB7
GK6ecfVDeF6D9TmTXvinZtvPcwfgM/R6HZ9HefV5BA+I68jtxMzp9y09gI9I
G1M0/ftCD+A/VXGplv69pgfwohn78lfpAbxgs5ou6eM5rxd8VdKy40PjL/F6
wfcNyBNV5eZ5Xi/4o4MTmzmPPMnrBZ8SeC9LvfpHGD/eJ7bv5oTfa0Yyfv7+
XMZ+azTjBx/pPbxC+jjM+MHfPCp9dWfrGMbJ8/cHxs90HRvBOMF3DS6WPLzW
JcYJHjwmZaUVPz4X8C5VFia/Tf8cESd/3/FN/XHp4y3jBA/y2dYh/TnCOPmc
WT9ib/pzlvGAfz2vzz4rTsQDXnPBzNpV0z0jHvBO3X/8Oj79fsP78vcO6yzZ
nP5c4/vy/NDK6kvTn/vsH/z0wMutfo63n4MDr7jQa2PXjvbvEf5dUYfzaOBZ
69tSfgp/wH7Ae2Y923/Hbvv3Dv/f8VwVf19Kz2Xgb86/pB+OX+Dd9NwBvj/8
fRSJh/3g+1RMrovtwE+KB/bvWG+P/rmvJz75/QEvIf7t52HwO9PyednPTyn3
kM+X/x7cJvcD4wEvqXXpiAf8E7mv7PVnylfKfcjvCXiU3Lf/L5/mpvk0xI/7
vaXc/4wffJl8Xxg/+Hb5fjEO8IPyfeR1gb/SOnBcF/hb+V7zusBHyzjA6wLv
KeMGrwv8gYwz/y+f5qH5NM7/9H7X8co+P1N+X8Y3Xhfz+TIe2vOD+B0CGT/t
v5PjUI+N6wUvLuMwrxfcTcZtXi/4ABnneb3gY+W5YN//UH5eniP83oJnd/i9
C3xfszmc+wNfIM8v+3628p7yvLPfr8oHyvORfsCXyfOU1wnuKs9fenPMv8Eb
67flOU5v/B0dee7TG/hCmSfQG/gEmVfQG7jLwYx5CL2BL1EPwxzWp4XVG+J3
zNfldsjLpWleDu3Bl2hdKM9NK88k81Key2P9pMxj2T/4WZn3sn/wZK2HRP/g
1WX+zHkReAeZb/N9mQfbmjE/5/uCj5X5POczHG9k/s94HOsGEQ/4WVlHMB7w
dbLu4LyFv3Mg6xTGic8zUdY1jBO8kqyDGCd4D1k32X9PQ3lRWWcxfvB1Wo+H
+FmPJ+s1xg/uLes7xg9eTtaDnM+Al5b1I68L92MfWW/yuvi7sLI+5XVxPSTr
WV4X69Zk/ct5Dng3WS/zeh3r4nC94LGyHuf1guv6ndcLrut9Xi94guQHOF8C
HyD5BF4v5x2Sl+D1gn8reQxeL/hjyXvwesEbSZ6E8x/wFpJXoQfHejZ44O/v
St6GHsA1z0MPzMtJXogemA+UPBI98PeqJe/EeR34P5Kn4n3CczednSeUem+8
At+pvJ3DvsOrch+ed8Z1BEp7zvfANytv57DfivPI/webqkRR
   "], {{
     {EdgeForm[None], GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJwtmXfgVtMfx5/nnnNR2fErlLR3RNKQNDXMjFDaShklEQ1ayKg0yKg0jLLa
UqEhhJRKQ1ZFkdAwoqTf6+19/7id13M63+e594zP5/1535Kdera6I8nlcm/y
T6D9iPYk2h35XK4DPBp+Em4PPwGPg8vBjeBL4DJwA7gJXBZuCDeFq8LN4cvh
m+Gn4efgnvAU+EX4evhReASsm5gMvwB3g5+FJ8K3w8/D0+Cu8DPwBLga3AK+
Aj4TrgPXh4vDteGL4FPg6vD58P/g8+AL4N/zfsZjaPdzHQeXoD1Eu49rr/6G
8a1or6O/BnwVfC2cxFzuRrgkk1WC/rrwxfQXgWvAteC7GXMTXI4xfeC2cCm4
EWM6wjczpgD998EN6P+DzyfDBWkL0t9P30n/hVy3wPfSN4K/XQK/x5jH4Hfg
ZfBEeA28Hn4O/hReC0+AV8Pr4GfhVfBn8AD4DXgOfD88C54HD4RnwnPhvvAr
8OvwPfAM+DW4D/wy/IqeEZ4OvwpPgj+DP4efh9fCG+Cp8AZ4M9wKHgw/CI+D
P4Q/hvvzbA/Bl/GsheDh8JVwP/hB+FL4ScavhD9h/Bj4fXglPBb+QHsW/of2
N679XI/T/y7tcvqfgj+CV8Gj4GXw+/BIeCm8Aq7Db3SD7+E3H6B/Njyf/gPa
Q/DxtH9rD8GFae9lzHPw8/AgeCr8MvwEPAdekM2DfusDeDK8HP4Qfhn+GF4N
D4anwdPh++AJ8GT4Efg1eFbe96Pz8lJ2/7q3N+F+8ER4CjwEfgGeAY+G58Jv
wU/Di+El8Hh4EfwufA18l/YV3Ba+Hx6SrdGdmgf4GOaiu84Rc9OQqz+8hfZG
xgyABzGmDTwQHgzfkHjMA9n+0fmdBF/O3zwMfx+8xlrr72ivY8zdcD/GXAv3
ge+DH8723hvwn1yF4WNph9P/KjwTngZvhL+Ad3MdDZ9Eu4srhY+j/YnrKPgE
2l/0PPCptL/q7MFFaE/le86Fa8J7uQrBZ9D+kHcsLED7l8bBJ9Lu1PmHj6bd
x3UsXJz2Ry6mK1eIdo/OMHya9iRXUbgo7b9cp8PFaI/nSyrBZ+u+4LJwRfgI
1xnwmfo++kvCZfVMcCnFEz0TXBouD+tmitGcBefh4oozmg+4DFxBsQ2uCFfT
/cIV4KrwCXBl+Bz4RLgKXB0+zHUafLq+Jzr+KA5dzZjecN9sjbSX3oEfghfC
b2uvRs/FK4yvyEI8yv9dT9/90XM6g/5B0ev0Kjwwek6nw4Oj1+w1uCnXA3zn
N7Sn8j1XKd/w/2fAtynuw8fBjRPH1CJwO9qmWgS4ptYVLgn3h6+Eh0Wv/Rt8
59DoPfE6/GD0ms2EJ0TPxQr4mei5WwY/Fz1f78Fjo+f9be3r6H0wG342el2X
w+Oi1+Mdxa7o9XsXbsb9tIYbK+ZF77lZ9A+PzkNz4PHR67cUfip6vZfAE6P3
6/vw6Oj9tAieFJ3bPoCLps7Tl9CXwLWUk/Qd8IVwLd0XfIFyIRzg2vD5cITr
wDXhk+Bm8MXwYa7q8Nm0R7jOU07VfDCmKXyR7oXrXPgczQH9TeB6em64LnyB
5hW+BK4PF4bnJY63pVLnpKvgs1Lnmyv0TKn1QRO4WGod0BI+JbVWUU48LbW2
aAYXT60hLoXPTJ2rLoNPhpvDDeBy8DD4WrhE6hx2OVw6df5rBZeFh8LXwGVS
58ir4fLwg/B18OmptUjz6L632BKLlZejY9Z81mJM9HleHDw37RnTic/nJNYG
HfKe13Zwx7zntQPcOW+90RHuAp+sOYMb5r1uneFuea9tF/iWvNfwZri78hW/
dyl8JFhzSHukmnOtJ9yIMWXobwMHrbXWUDqE/t+4zoJL0w6Ijicb+f9E6w+f
m8UlaaoacLXg+9QZ1LwugBflPX9vwgvhQ1zl4cqKqdoj8HlZLKql2JK3HlOs
K6Pn5XfXKZ/y3cdp30gnMLag9iZcR3Faewqum/ee7Qr3gB+N1lLzgvedcvqt
fK6iOAS3hZuydrP4nNee5+qhGMv4o+Bb9ezwRYyZzpjb6avH5770b6ZtEpwr
v6Y9jzHPMKYTYy6BW8AN4cejdcObjKnPda/yFO2I6FyyAB4VnRvegp+IjrkL
dQ/Ba12OvkbBefZL2pLap/BVjCum/Q5fqjit8wE3V97QuYdbwpXh1nAbuJL2
LHyj8o9iJNwCrqhzAN+Qt05uADeGS+n8wa3g0oqd8NV563xp4Gu0R3S24Cvh
Cjor8PV5xxjli9vgS+Hb4F7SAPAdcG/4Ms0rfKfiL/yt9IDyAfw1vE05AP4G
3q54DW+VfoBfCtaW79N3JGe9fkB5NPE+b6/cA38Fb1V+zFsX/sU1g/4vab+l
b2XiPL5M/zDX27Pzon1xA9wu7/WUDh+o/BitK09QfFN8gecyfpFiGNyfMW8n
3icD8q6dVF8cpX2uXAP/Ehz7H4Efp/8g7Z9cv3L9m/PnPVyHuf7g+p1rOeOP
py3J+Cnw5/CmvJ9f87BRv8P3r8ju7cNsrj5IfH7f0+/RLkmsux5j/ObEZ+oU
+n/mcxFx3nMZ8q5/NGcxbz2t+0ryvlfdW5r3/Ynz8Lacz6meQ8+tPDwKHqtz
DV+Ycz7dl7guUz79LXHdpHy6N4sDigf7E9dxyqF/Z3tSe1P3o7Vcn93Pv/74
3/3qvk/gGhKtBQtH35fu72+ukdHa/VTabxI/7//gg/SVgyvlPe5wNudp9rfb
sjnQb6/P1uZgtl5Jtn75bA8eye7hQPZ5b7bn9LfaN5sS7wfFuYOJa2Tl8Rfh
zTrjOqfBOaKuNFTieKhYuyexZtP8PB2tF0/TfCeOq2fABZTD4dp8zy+Jn+t0
+p+PrktLKPZkcVvzWTj4/FajvyifG8PNtK5ZnC+uGJbF6jOV0+BqcDFpkOBY
JD3wT/a7Z0kDZDG5lPJetqaldb/B66j4EYNzTVlpnOB8VF46Aa6nMcqzyrdw
a61DFvNLSm8Ex72q0mXBcawyfGxwDKwEFwp+lorwC9E+RQWd2eDYWEW6Iji+
SavsTJzvikqfap7gIornwXWQ6qESwblD2qlGcM6Vhnk52iOQziwaHBuVt6U9
O8Fduf/b846HszWXwf3SRdKt+v67FT+DNUAdaajg/C5NJe9AOqE2/EZ0jtXf
VQnWCRdKhwTPlbRcseB4Li13RnBMlvarFZwfpX9UX/+cs/5czHVlYl19H9cC
eH60L/FjzrnsiuAYKA2mOv0dxiyLrs0Xw0sVC4NzjTRe8eBcIw1ZJDh3SCvW
DNYn0pN9uebzt/Oidf0g+ocxD/lgv+hD2iTY21lJeyix1yR9+2nielz1xerE
dZnqiFWJ60TVF2sS1+mqIz5J7KuovliXuK6R/p8Y7Cfcyj08F+whdIcfC9Yt
7eAJwR5FD+V0eD58EzwiWOe0h0cGa78O8NrEtd5/NUWwl9KG/heDvZG74KHw
6/AN8LBgH+ZGeEt0za9aSfXNJPqnMierpUkS1zvTgv2cO7W3gz2f3vCUYG+n
J7w12l+QbpF+2UL/N3zPpGAP5Db6J2te4DvgqcF+US/42WBf5Rb45uAYLr39
ULBH1BYeFVzrdYTv5PvHwk/z/b3hcfAz8F3wk/Cz2vvwY/AouAc8Ah4Nd4aH
wY/AveAx8Pi8vUH5jU/lvTd7wX3ynoOR8Bj4Crin5jNvf3Iw/BB8U+KacSjc
CR4KD4c7wkPgh+Hu8OPwE/BTwf5PN57lyWBvratyRLRvIl0nfae5WsP48cF+
jnydccH+0s2MGRvsxXWBx8Bvw53hLon9q0d1b6rlctYA8jbleY6k/wV4E7xF
2gb+Av4KfjjY55Hf0y14TjQ3XYM9WNU47YK1hGqQisGaak2w3ziHsUen9iHn
wsfAlYM12Ge0VYPncK32fvTcqXaunsU9xZmzg+d/nbRucO2/Ptj//C5n/Vw3
WP9s0nfnrZ/f0vrkrf0WwoH/awl/RLuDz1Vzrou/T+w5qI7emuU46eEvstyn
XPllYq9D9dRXiT0N6eqvE3sm0tJbEnsj0vzbEnsd0tI/J/ZjVUd/l9jrUC22
PbH3otp5V5YTlWd3J/aHVWv/lNgXUs1+frBX9jntBcE+1Qba2sH+1UbaAln8
V467P9gXVZ04EH4p51pyULCvJe9Evoj2yVKe8YFgf7U1YwYE+6uqT28P9sxV
n65P7B3Jo2gdvOe1968Ljp+q9zsE7yvtr/bBPqrqYp1Dncel9N9B//ic6+Jj
2RMNE+eRe4K9d9W5PYM9dtXgJwd73auCtb40w0zF0eC6T/muYLBP/jHtScH6
+ZPgulH1ozyNDYl9Kvkknyf2uOR79A32NuVxboj2NOXVyLNRnJzNb94d7P+r
Nu8THBvlFfQK9hjlNRbgWeonzpWNgz3Jr7Reqf1xneuV0XHhJ8XC6Bi0WzE+
Okbsgj/Ozu3P8HvRXudO5QS4ZWL/c1F0DJI3NTrYyz2sPBBd2+h3F0bXPKoT
l0d7ozvgFdGe6Q/wl9F+8SHF3Wgf9kd4bXQ8/U15I4uz+7UXgjW/4s+maO/4
L/o2R/u/f+vsRPukB+Fvo33nf3V2on3hfxSrov3frTpH0b6w7v/PaO0lvbQg
un5T7bkmOkbvU2yL9gG/VfyL9m23aY8E5wLN7fVZvNL+vCE4tmtum2X7Vpqq
Xup4p3xUP3VtpnzUPDhW6/tbBMdw3WfN1O8zFG9bBucO/a5qM+mTd/m/uqnj
qfL1ham1tfJ7ndR+sfL7XcG++p+KCdE1gOqCQ9EegbTltcG5RmtxTXDO0npd
HZw7tB9aBec1rekP0fpbmnxJtK+9nf5aqd+LKL/8E+37SG/XTv1eRHlW7zaU
IzR+e7T/orpsXXQe/Z3+T6Nz517FtGgfR5p8W3T9pnpnVXRu26PYFe3pSKt/
Ep2Df9Vzww0Sx/xZ0d6dYtrsaF9OMW1mtHenOP96dHxQ/B8enPuUj4YEv1PQ
Htsd7U+pXvg72muQJt8X7VNI//8R7SNI5/8V7TtIq++N9ixUL/wa7WWojvgx
2utR/bIr2utRjfNbtA+i2mFPtJehumBntK8kDb8/2ptQHfFLdG2j2mdutAeo
PDU42Lv+Lw7rnOd8Ll6Mfmep2NUv+B2KztfG6Hc8B+D+XPNyPmvT6a9H/6eK
adHvb7Svngn2r3TuDkZ7Mao79L5K+mqF5jf6HdIfjPk+2iNTTXpf8Psj/dYj
we+MFB/uDdYDipO/R3s08ogKspcuTlw77Ij26VS/vBrdr1w/A74IXg1Pi35H
q1j9UvQ7VMX2OdF+r3LZK9GxVFpiavQ7TuXuKdHvWaXJ2wTrPcXPA9EekGqu
KqnfU0r3qqaQHyL/7PzU7yalkc5O/d5OGlu1gPSDdESD1B6QtGjV1O/npDkb
p/aApJ87ZjFfOe7i1F6PdG+j1F6S9LD8HOWoJqlj9q5Mh1RP/R5RWr1L8Lsz
nalzU78jlKatnPrdoTR5w9Q+lPS2vJ3dOdc/nYLf/elMnZP6XaZqAfnZO3Ou
beQL/ZRzjSQ/U76CPJtqqd9fqo6Qh/1DznWX/CXtixb8f+fg94A6y1q3HTlr
uAqp37VIJ8ijlNbS3quU+n2wagr9hn5L/s/k6Hfhqqfky8i3kN/VPfh9peL5
rcHvDZVrCqWOD/IfegS/l1TekQclP0Ne0p3BGkY5t3fw+zjt4Rqp3zFL98rv
ktZornc1Olc5x7HywZpQ+1Dn5vucdeotwRpA+rZtsFZR/v0/FcP6hg==
         "]], Polygon3DBox[CompressedData["
1:eJwtmnfgl1Mbxp8zfqSljCSV0iAaqLREEmVUNIwWTVtlJRKyeW2R2UBlC/Fa
rxQlDYnsFNnKKHu+16fr+eP5fc91zrOfc+77uq7713DY6D6nx6IoztWfrN87
U1Gs0u8M4Q4VRTFAnY8KPxmKYg/hI4XvEb5XeBfhcdr/ceGJ2r+xcH+NzxJ+
SONNhY8VfkT4CeHdhc/R/o8JX6D9GwnfpfEuGuukvk3qG5g9/pT6mmt8UPb5
5wq3EL5Gx78qfJP2bSm8UL8/Cf+sbZHa12p8odo3q91K4xOFnxG+NPp+Xtbv
d8K/aHtN7Qkaf1rtS9RuovGbdb09eVb1rVPfUcKz1X5Yfbtq/CbhVjyL+j7V
+Mk6/ha1z1D7TY2dKHyT8BjhN4Trcz7hNjpmvdonafxm4bEaXyFcV1tL4b01
/o3aQzV+jfCJGl/Cu9Z2sMa6qu8P9V2q8RfVvib6fV4m/D/h/0R/n2OEJwkP
FV6kY3fStqtwc53ja7Uv1/hLwtdGv996PI9wa41/q/at2vZRe2/1faN96gg3
VXsP9X2l9hU6fp7wddHfo4v6RgqfrPGawncLH6T2Aer7XftcpP2fVftytXfT
+IXC/xW+LPp9Hq39HxB+JHj8FuG9+Pbq+0z7bKetm3AX4d/Urq3xBmo3Vt8X
au+gbWfhRsKfq32btnZqt1bft8zp6HfPN/hK7WG6/n/UPkntpdp3uPC13L/w
MuHJ2tpq/73U97X6qmrbV7id8PdqX6P2FWpv0PaS8L06fjXzXe0DdP8r9LuD
8Hrt94nOdaj6Xomes3do3yHapqg9Un07aux44duFR/GuhQ/RMVfxfYLxKI1P
FT5N43WFe2Uff5fGd2Z9afwS4WEaf01jJwhPE2ZR19P4cPW9IPyy9m/D+9X4
Mta5xtsKTxGeLzxNeI32vVl4Kfcavf+I7Pk2P3j/s5LX8/kabyh8gMZHCZ+i
8W2Ej9L49cJDeA/CvZOf52jhHnxv4RuEj+NbMn+EzxM+VLi78GHZx98S/LyH
Z+8/Ofh5ztfvOOamtud0TO/s93e3+hto/LTk+HOWxuoLj0meX+dEj49OXs9n
R7+/7sIXCR8pvL1wD53vStZT8Pc5KPv+JgrXYv1r/yXCt2v/1sRD4auFj4ke
7559vsuCn68nc5L3HXw/E/R7LnNT2ws6Zmj2+niRNafxG3S+54Rv09hq7kX4
CeEbhD8Unir8vvBM4c7a/+zk+DwhOh7fJrxC+B7h9sKDdcxc4WeD4+VkjS9n
/mh8H+Fpwh8Izxbej/Ur/K7wfcKdhO8Rfk/4ftaB8Azhj4QfFO4i3Cd7ft4X
HM9vF+6sdnv1/RD9PIvVvjX6+fpmz8/7g/PFXRp/h3yi8Y7Cd2p8f411VN9G
9d0hvJ9wB+EfhfsJz+T6wfH6xOy1tTg4X03X+T4UfkD77s/6yo43L7CmhW/V
+BvMF423Ez4uOz88T4wQHpKdD54Lzh+jsuPlK8H7j8yOtwuC398J2fHw1eD3
fZ3Ov4j5G32+q4SfFL5R+CNiZXL+PFV4J42flJ2vXg9+fmLE28LTo2PHKRp/
TXhp8Pu/PhlPjn6eU7Pf77Lg+XBy9vWXBH+/Stqe1L6fq69CY1V0fF+1d1Xf
L8IDhC8VHi68mGfT73rh8douCI7B9dQO0bH5AW2j1X+K+rZQu436RwgfL1xb
5/osOT4SJ18md2sbp/YZ5BjmLtcInuMXC88RPlf4TOG2wuu0Xa721eqbl30N
7n2/6GvP1na6xk5WX1b7QW1jhE/lmZKvybU5x/lqvw2fEH5I+AyNj4vONcQE
YsPDGj9D+HRynPBDwmOFTxNuRqwTPlN4tHAL4W46/mzhs7Q9yrm1naP2WI3v
lXxPn6ndOfpe+0THAmICseYt+JTwg8JjyY0a/7rw++S9Pqvxi/V7gXA3cqXG
vyr8vDz33OwYQgwcX8aD19Wepf3WCj+VHSPPUd843i2chPyhvu3gX+QI5p/w
tsLvJ8ejCeW5lye/S+6F9/1e8rU4J+d+knio9tnq6wC3Er5Q+HzhrsQq4fG8
H+F2cBU4QzAnOQSuQkwLzlmHCr8AJxG+WLhH8jfn218mfB7XU199tXdR31Ws
RfJj8Jw9DO6WHZuJ0ZVZ68Rf4QnCBxLbku+Nfdj3OW2T1J6ovoOSz8GzHBV9
bu6Je+8ffa/cM3OzX/SzLCA/BXO0Php7hfwUzCn6wk2FbwzmFP2S19SUYM7H
WhsdHfuIgeRqcvZtwZyRXH58dK4j55Er4TCN1d4ymtvA6W7V+I2Fud7r5L9g
DjpQuIa2Q5irXEdjx2lsoPCn2lqVnGeq+u4szIU2c0zhOwpzzxOicyk5FW4S
k7n5zuqfoX23SuaiTeA+2Zxpmva/qzCXqqntULVbanymxkJyLK8vPF24SI7l
9YSnZeeIZsLVonMHnHmmzje9MJeGg+1C7IrmZnDSRsSeaK7atZyvh0fPRdYM
a7lX9FpiDrCWe0bPjfnargvO2eRu5gzr77Do+cEcJFb1jZ6bK4l52v8+1mjy
N2duDYieC0eW8+vY6HMzp4gVvaPn2hz9rhM+qVyDV0TnenI+3BjNA9etEa2F
0BCzNX5vYW1BzkNrVC9zIZphlsZnFNYSaAK4bq1orfAeayA455xHLie/BXOI
8ck5FW2zdXSufYd8p/E56js3mbPD/beP5vIXRmsvNBhaL2XPJ+bVloofy5Jj
F7GJeEeOGcTcCc4910fnRnIk2qFBcjzaV/1baHzn5HjUSbiiwpyHXEZOgzsc
qP6RwqO0VdP4lhr/QmNPRcevesn6o4NwqjBHWkjuKcydKgl/qfbT0fEPjvuO
xt8szH2nqn9VMGeCO22hrZfaDdW/Sfu+G603NmmfT4V/zOY3zGHmMpqpdakv
foVDR+utP8mdGvteW6dSP/yjse+EO8IdhP8W/iJaf8Vo/fIT7w0urb73ozUL
507RegcOsSiYs8Mt6ifz744az3q+usIjhNsLR96XcG/ip/BP2d+YuXNR9Lcn
BxEL0P/kJnIka3l8dO4kR5M7r4zO3cwh5ubF0XOLOcbamBQ99y5J1htXs64r
vGYmC58ZvZZ+Jabq/g9SX9Xkd7qFcM3C7xqNjF5Df6H3ammfIeRWtf/W2A7C
xwnvLfxP9jn6Ce8Wfe7qwkcJ7y78u3A14f7CzYR/y46Pxwg3F/5TuJLwEcKN
hH8W3lr4aOE9hP/I5jTHC7cW/le4jvAw4X0iQUkcTng4uU44CG8vPFh4T+G/
smMyuWxEdKz+OFpP/6FnXCe8Qbit8Fb6/ZLvq9/teXZyiPCHzFvmFjlGeK3w
jswdckT2fKst/Jfw9dkaH62/W2G9upx1pvY35NhsDY+WZ45+V84ptHTDwnMN
vdsiOCYTm/E4dlL732Dv4xPhOsxlclC2vm4SHKOJ1au0VVN7o/qu1PjbnFP4
R2JftqdSl7UT7bW8pd8qXAvOlj3nmfs/E6Oz9XQl4Q1wBuEPWPfCv5CDic/C
lXlWOAPxU3grng2OkL0GawW/ozXlGsMrYE2z9pbFzZ+x+BqOprElcfOyLr6E
Iwj/K9xdeCf9/pC94QegbxhjjnZRe9ty7nJwD/3UjY4VrPmDhetExwL8DPwF
Yiyxlm9ALKgc/W2ICayNHctY8Zd+uwnX1u+G7G9KLKkS/a2zrtdTuIHwxuw5
jF9yQOG5zZo/MPgeiQV4THhNxJyfdcziuPlTFF/AOTW2NNoH/Er4wuwY2FXt
/QvHRq5xgPB+ha8N54GrDozmQsRA9t0mOjZyDfatGX1tOBHca1A0V2oc7Rd1
Lcwt4BT9hY8s8avRHt9a4ZnCc5Pzf9Py+7Nmdg9eU6wlNPjEko+Sm5doO1bt
wcF8qAaaKzhn7JMcI48NjhHEzuXaZ7rw3axZ4a3RmMExtY1wdTRf8Jrfu+Rr
l5f8Fj72WPL6qFPOx8eT10/dcn6T/+H/xFRiKx7HLSXfw+uZk7w+6pfr5RXh
fQt7pPADPDa8NmJ+e41VrbD+GircUniptgFqDwnmX7PI6YU90m2y9RneA5y/
l9qtko8jz6JnttL5hgbH3N2S+9A6Ywrv+6f2a6P2Dvqdmp3Peb+PM88r7Hlc
VvJ5+CtztkNwjGMuryj5GRoLrbUjnEq4rcZmCU/Stq3GaqnvjWhP4o1gzwWv
orLwsOAcsHuyPviB+KKtuo59o+R7aEK04dbaNgpvYg5me0iTS/4M/340OZ7W
LuMFmrhH8JpDKz+bHAtblPH2f8lrlzUMH31GuAnvqozX80u+i2cBX1tQ8mc8
DfjWf5Njc/MyXpMDtgv2DMkNq5gzwg+TM7Xvc8n8r2UZb38XfqowxyPfomfv
Kfk8ufzlkl/DUeDTK5O/HRoWLft8Mv9rVcbzF5L5J5438fhF4RaFPVj0/hPJ
+r9BGc9fSuabeMTw7/XRz19Jv1OEH07+djXKfPNIcuytVcZvcuQxwTmb3EkO
7hmsWcjNTyXnkiZl/D8zm5vB0brp2DOy/Zu3hQ+s8BzZUvjb4LnzQHJ+qFzG
79XR9/O78HXCTyfrqV3LfDoveT7jGaOv3iz5O54A3sBDyfm4epkfZifnp0pl
vHwwOT9XLePlq8mxjJgGf8bPwKtEQ/dM9jvhy2gOtAf+AP4BmgPtgUeIV4jH
i5eJxw7/hp/Dn/GU8KrwtPCaqAFQW8EDpDYA34bPw/fhv3h+eH94WtROnoej
ca/CBydzcGIja5i1/Dp5qnCNpFq2J/BMNIfGK6DGQC2IGg21BzwmvCY8KbzD
Qyrsi+OPVyVXJHsXeBhbZXt0eHV4XtSa8CypJeEh4mVSk6D2g96gVoHHhXeH
XsL7wkNEP+EfoQ+oGeDn4Kegp/Cs8brxrPGyF+qaN/HthfsnewgLomMGsQNP
G28bTw9vHP/h+ehvxrfD88P7m1fYO8RfejE6hhJL8ZTRy+hn/CQ8QPTOy4X1
BB4iXiIeI7Up9Ab6BP6O/sCDxstHb+NNs4baB89J1hYeI14jHiTebcNkLblO
W4SfJGt7NNl2yf4C/gB+AvoZ/YaehvPD/VkzrB3W1P3JHix+xPTC+g5P983g
GgFeLzWNlcGeMbUOPEm8SWJqDbiB8FvBa/I+jd+nvqOCY3pl5lMZ38np5PaF
3EPhmhZ6dVHy2icG4Afg2a4IrkHg5b6W7Cf0CvYPKpfHN42+Fp7U3GhNiFe1
WNthavcO9ivwpPGmpxWuPZITh5TzvWbJL9CDK8v8SA4aWeZTchM1Kmp/+IXU
ro5I9kbxSKtka84BwZoDLYoGGxisIdBmaNpBwZoDrUsNktooNQhqk78la3U0
OnpqQ/LawUMdnOwJ4w3j6eKV4wHjBaOP8ebR4GhxNPdZ2Z443jg1EGqbeMLo
aTxCvMKDKuwDMWcgemh0tDqa5ezsGEusRR/Dt/CD8Evwu/CH3kqOVcQsvM8/
iCmFPV30YdfstY5vST2nUTZXJh/Bh5tm80M4Kdy0QTY3QBPDdxtm82E0M3y5
sbbOhTkn3LOhfn8tvH7nowWSn51n2vxs2fq9T7Be7Jyt1+BscLf9srkbnA5u
t0s2n4bTb+b22XoPTgW36pD9buBEcKOO2dwIDgIX6ZTNRYYLVxFumc3HjwzW
f02y+S8cGi69azYXh6PD1cdkrzXWGGvtm2SvEE8Qb/DbZG8PDxEv8dfk2E6M
R79/nbzWWfN4g6Oz1w5rmLV8ejZ3Yk2xtpplcxs0OHqZNfux8MPRa5lvvlb4
0ei50CJbz7A+ydU8I8/KO2qeHEPWqP1IdGxpnq2XDg/Wz7tn65lDg/X3Htl6
6LBgfd4ue62wRlgre2Xr8X7BehuN3ze4D+2PpzAnuAaJ10DNkdojHlJHuEc2
l4JvoP2mlfyCZ0CbEROIDcSUWK6Hx6K/GXMJTwlvHI8Krwl90q+8PnoKDwkf
jxiMt0Q9AF9qz2T/nzZeFXOOPmJWr5Lf4IWiQQaX8QC+A2fGI+R65F/E6NHB
NZo65fp+IrqmgPdGzXVGcA2JWuznwf/TgIZDy/HOuF/0E95F22xtQ4wiVu2T
HauIUcSq/bO1DZoIbdQ6+9pwNLha++x75Z7hCntm+0l8E75Nm2wuh4ZCSw1K
rr3AAeACxABiAZwH7sOaZG1yDrwdasLUnPDvqRXDceG6cG68hm7ZsZZ92Hc7
4RqFPSO8I+pP/ct8Q7yGU8Ot8TfWlPcwL9qD4t6+TPbm8ezRqyE7l84p9Qsc
AW40OJo7/CW8oLDnhvf2d3IsJabiVcIx4ZpwQrwDNBvaDc2H90ENmVoyNXBq
/3BEuCIcFa0Np4RbwiHxItCIaEU0JN4InBvujSbEW+F78+y8A/jZmmTtiQbF
r/4zmVvAMfBC+R8C/pcAvxs/f1OyX4fHjNc8Nju3k8NZ/z8mcwU4A148HB4u
DwfGS7qxjPdT1P44m9Oz1lhzeDU/J2tbNC5+4i/JWoYaHH4imgZtfV6pdT7Q
9lLwOScl17BWB9e4yVeTyuOvit6X/6nYJtgT4npfJXM7ai74CT+xxgp79viN
xKDDy/WPt0dMJjaTI/Dq0OhodTTgyvKZlpf5kmdFE6IN0TB4S8QwYhkxDG+R
GEYsI+bhPf6TzCXgFHjNH5fziZoT9QA4N3rsiGgujoeBl4Hmwdv6IrmWRI2J
+gJ+MP5cg8L+6MZk/5UaALUA/meBeiT1x+4lv6VWhmaboPb3yX4uNR9qP98l
a0U0I7UfNBZaq2Fh7w1Ng7apWcaT9clrhxoT/uXnyVwATkC9g//xuDS4vsn/
fqCR0cpoXLzKd4n7hfkivPGH8vtTM6J2NKL8fqdEey9oaLR048JeKJqtWbDG
RMt9lOw3UeOjnvNucq2TmiS1Sf4nY16wB83/alBjvzn4f0qoveNZdA/mkHgZ
nyTXEqlJUu9bnexPUYOlfrQ2uVZJDZP636fJfi41SOqFHybXg6iBUn9CU6It
GxX2bt9Orh9SA6cW/k5yvZEaKbXSVcn1Rmrg1ML/D5TW5Q8=
         "]], Polygon3DBox[CompressedData["
1:eJwt13nclVMeAPD73vu+0b5RtGlRSUl5tae0aqNVtNNe2rQRFdpGtGhBka2y
S83IMpUy1jFFokhpL81QZrJkKMz3N8/7x+9zzu97fs+991nOOc+tNHBstzHp
VCr1d5Ej6mVSqStF8+xU6hoDf9ZulV+mf11WKtVBTXF5I9FQtDDe3tgr2lz5
FaKZflu2TrtNXlu/s2M7OraE/KDowW5nE1kHeUu1Hdg0NoXllzfg9cXV+u2M
/UW7PX6bfn4/9hL9GiKLr2P9HdvbsWl5K9GVzWIzxUZ5LVGT9ZH3VFckzoE1
ZaPYMHYR+0YMZPeyWay3/D9iJFvEFrDB8u/EcLaQzWMD47x83kz2V/Yqm8Z6
stlsI3udTWfXs1lsA3uNTWXHRC92F5vKusm/Fr3Z3Wwa6y7/txjBHmDz2SD5
v8TN7E9xvqyX/AbfMYdtYm+wu9jh+D3sDjaZdZL/U/RlM9hd7Hr5AdGd3cYm
sPbyE2Iwu4/NYX3lnXxHPECr2RNsKGvPhrIVbBnrzzqwUWwle0p8LO8oRrNV
8sfVDVHXjg1hj7KH2QD2ubyI/tvad8RUNdfy29gm+ZvizuzkXOKcNsS1jnNk
37JB+nN93mxjfeR7RMe4R3HfWUt5W7X95UvULRbvx/MvBrCl8oXqesY1YdPZ
eraWTWZd2dR4PtkaNpEdF33YPWw66yGvK+qIq9S3MbZW+6N8gv4j6h5SN0p+
WkxhT7LH2AT5D2I8W84eZLfIvxe3smVsKRspz415w4axgaxMzElWnw1lQ8Sz
8nqiERshH6yuXMxxUUs0NdbS2Jo4TjTWHxnHqisf6wNryIazQaws+0nczp5g
K9h4eU1xqWiivoWxl7TV5dVi/chO5vEL2ckcjrncWP9q9qL2lHyc/sM+b4nP
GyHvxqfFWsNeZpPYoZhLbAqbxDrKr1M3KT4nzpWNZteyifF97Bk2hjVgTdgt
bCirwDqzyfFb2XNsLPuvuIc9x1azO+S/iBnsefY0u1P+s7ibPctWsSny1j7v
BjaP3csKyruIO2NtZevErngexI1svnyuus6OvZHdx95iW8QeeR8xP+aBfLO6
2ep2ZJLrWzAnuX9xH8epe5EdUveVupXx/LA17Ajbz1azF2L+ywtmJev/R8bH
qHteeyC+kz2pZjR7ju1n+8RB+VjxAjso36vuqXge2UvscNSxVfF8s5fZUXaA
Pc1KxtyUFxclxKH4/Fjv9M8Ruqmt6eQazE0n1ymuVw0/sg67gg2U91dXKvYY
VofdxPqykrGGs2Xp5NrFNcx17PMxN/XzC8OpbXH/dZ7W7mVfsMfUjGLPsK/Y
bvZ43jyqx3qyG7KSDXMkW832yD9HK9R9kkme4wI5yfMf82B9zBE1BURJdXvi
+Yx1W15Y5GMfs5djX5GXjlr2aTyLsSfJi8a1YdtjrYn5L78oK1kbY41cw07K
z4/zYzviusXeJS8rCrGdse7EHiK/MO47+yyeRXZKXj5+D9sV+6lzW6L9kL3H
7s+7byfk58V5iBnZydrZL53ss7HflnbelVlZ1lHe1rG/61dh5bSd2DXsD/1K
rIy2A2vDftOvyippu7JrWbbvrc6qsO6sMzuHXcAyLJddzr7Wr8Yqa7ux61i+
WINijWG9WA9WKOZIvA+wvnEvWVFWkV3I2rPW7Kx+TXaptje7nhVWdxG7gLWL
84h9T35JrG3p5LmI52N13jy/I53sd7HvVXJdyrACrLG8ns87qX85q6u9mfVj
5+fNt2fZx2y7aObY89gP+lXivqvbbbwUOyOvKaqx/enk3aeLdmKsifE8OPZ8
9qv+pTGHxAL5xaKiui7yTvE45+3Tt6STPTD2wrKOLceKsxbyq9Sd1i/N0tor
WG12XL88K6FtGb+X/aR/IcuvbcQaimXyCqJk/E55c3U/65dlBbVNWH32nf4A
tlT7j9iP2fxMcp2rpZPrHtf/tPxm8RDblpW8xy5U90cmOac4t7Xp1P8n++ux
lsuLiVJoX7w7sCxtZVaBHdP/GyusrR3Xi53Sf5sViXsV15p9r1/UZ74b787s
XXkx+RvqzsoviPll7GC8Z7Df5GUi2CHWT+3idN6xbJ6aDeJ3ebm47uyw8ddi
X4k5HveRfcU2xeKorRjzVfeo/sY45ziHOJ4dYSczyTtFvFu8JS/kO3dmknfz
ojnJe368728WOTF34tlS/02se7Fnam9lY1hr+f7YH9kENo61le+L/ZaNZ2NZ
G/kXmeQ/QQnf0Tj2f7E37gcbp260ulbyzzLJe1CRnOR/Q/x/6OU33h/3QN0m
dTPZW+Icdgmryk7of5pJ3lEKOba2/uWit2Pnxb1S96a6WWxXJvkfUywn+S8R
/ym2iHysurqL1X2r/3km+Y9RPCf5XxP/bz6Muc6uVtdUXUb+jijK6rBa7Ie4
h6yCtjlrErcmb+9Znk7mbszh/fFOLB5jn4Wpe1DdIPYI+4RtZYvZELYizpF9
xJaywexRtoNtY0vYr+LeWM/ZS2yGvIqoHPdT/bFY/7TDxUp1u9XtjOfBeF+2
gL3LtrA5bBh7nO2MNYc9xG5iD7Kt7AO2gO2OfTrWYGNN9a8SI/RXqftS3S5j
j7JXxenYd2K/YHtjbWcXi4z6ozEtte/LSxlroO5Kdkb/A1Ze24w1ZlmZZC05
N52sX7GOHY/5x4uxuvLL1P0Y6wWrqm3LWrECMf/Ew2wz28gWyes6PpcNYgNY
6Zh/4sn4fvYOWy6vEet7vIuw7vEOl0nW01/y9sDYC4/Iv4x3C+Pn6jfTby7e
i1rH1leTa+xX/TPsAe3r7BU2N29PKZ1O1shYK0/Kz/JF7A35enX3yf8H72/Q
0A==
         "]], 
        Polygon3DBox[{{974, 574, 691, 1141, 806, 807}, {973, 573, 690, 1140, 
         802, 803}, {829, 828, 1144, 694, 695, 1145}, {827, 826, 1142, 692, 
         693, 1143}}]}]}, {}, {}, {}}, {
     {GrayLevel[0], Line3DBox[CompressedData["
1:eJwt0ssqRVEcB+DlfncQSUKKIU/gkjFJhiRlRmJKMhTJmDwAXoAnoMjQnYNz
jkuGkvsE3yqD3/7+q71367d2u3lsenAqK4SwINmGOP/Isxxmh1DBCzbxie38
YCfzckLoYzWH2cJWmTD3cJYDXOIo1zjFTc5zhyvcY2VuCK/MVeCYscgXznkS
O/CUlzzjFc+Z5AWveckb3sqVOcUk07xmhje8i8/wnik+MM1953qP57LOxAr8
5paOR1znLpe5zTlucJKrHOEi+znDbnbJuLmZQ6xiL3PYwTd7tvGRjSz3HV7i
fXsn+Cuf8X3rcjaxjA0sZT1LWMdi1rKINSyM+7FSCswJ5rOMeSyh7UIR1QkF
VCMcuHz8/w9/NVxANA==
       "]]}, {
      Line3DBox[{714, 1037, 485, 713, 1149, 936, 715, 1150, 937, 716, 1151, 
       938, 717, 1152, 939, 718, 1153, 940, 719, 1154, 1043, 1249, 720, 1155, 
       941, 721, 1156, 942, 722, 1157, 943, 723, 1158, 944, 724, 1159, 945, 
       725, 1160, 946, 726, 1148, 1161, 947, 1038}], 
      Line3DBox[{728, 1044, 1250, 727, 500, 729, 1162, 948, 730, 1163, 949, 
       731, 1164, 950, 732, 1165, 951, 733, 1166, 1045, 1251, 734, 1046, 1252,
        735, 1167, 952, 736, 1168, 953, 737, 1169, 954, 738, 1170, 955, 739, 
       1171, 956, 740, 1172, 957, 741}], 
      Line3DBox[{743, 1047, 1253, 742, 1048, 1254, 744, 516, 745, 1173, 958, 
       746, 1174, 959, 747, 1175, 960, 748, 1176, 1049, 1255, 749, 1050, 1256,
        750, 1051, 1257, 751, 524, 752, 1177, 961, 753, 1178, 962, 754, 1179, 
       963, 755, 1180, 964, 756}], 
      Line3DBox[{758, 1052, 1258, 757, 1053, 1259, 759, 1054, 1260, 760, 532, 
       761, 1181, 965, 762, 1182, 966, 763, 1183, 1055, 1261, 764, 1056, 1262,
        765, 1057, 1263, 766, 1058, 1264, 767, 1059, 1265, 768, 1184, 967, 
       769, 1185, 968, 770, 1186, 969, 771}], 
      Line3DBox[{773, 1060, 1266, 772, 1061, 1267, 774, 1062, 1268, 775, 1063,
        1269, 776, 548, 777, 1187, 970, 778, 1188, 1064, 1270, 779, 1065, 
       1271, 780, 1066, 1272, 781, 1067, 1273, 782, 1068, 1274, 783, 1069, 
       1275, 784, 1189, 971, 785, 1190, 972, 786}], 
      Line3DBox[{788, 1023, 1024, 1349, 787, 1070, 1276, 789, 1071, 1277, 790,
        1072, 1278, 791, 1073, 1279, 792, 564, 793, 1191, 1074, 1280, 794, 
       1075, 1281, 795, 1076, 1282, 796, 1077, 1283, 797, 1078, 1284, 798, 
       1079, 1285, 799, 1080, 1286, 800, 1350, 1025, 1026, 801}], 
      Line3DBox[{805, 1028, 1192, 973, 803, 1030, 1193, 974, 807, 1194, 975, 
       809, 1195, 976, 811, 1196, 977, 813, 1197, 978, 815, 1198, 580, 817, 
       1199, 979, 819, 1200, 980, 821, 1201, 981, 823, 1202, 982, 825, 1203, 
       983, 827, 1143, 1204, 984, 829, 1145, 1205, 985, 831}], 
      Line3DBox[{830, 1032, 1300, 1144, 828, 1031, 1299, 1142, 826, 1298, 
       1089, 824, 1297, 1088, 822, 1296, 1087, 820, 1295, 1086, 818, 1294, 
       1085, 816, 1293, 579, 814, 1292, 1084, 812, 1291, 1083, 810, 1290, 
       1082, 808, 1289, 1081, 806, 1141, 1288, 1029, 802, 1140, 1287, 1027, 
       804}], Line3DBox[{833, 1033, 1090, 1351, 832, 1034, 1206, 986, 834, 
       1207, 987, 835, 1208, 988, 836, 1209, 989, 837, 1210, 990, 838, 1211, 
       1091, 1301, 839, 594, 840, 1212, 991, 841, 1213, 992, 842, 1214, 993, 
       843, 1215, 994, 844, 1146, 1216, 995, 845, 1147, 1217, 996, 846}], 
      Line3DBox[{848, 1035, 1092, 1352, 847, 1093, 1302, 849, 1218, 997, 850, 
       1219, 998, 851, 1220, 999, 852, 1221, 1000, 853, 1222, 1094, 1303, 854,
        1095, 1304, 855, 608, 856, 1223, 1001, 857, 1224, 1002, 858, 1225, 
       1003, 859, 1226, 1004, 860, 1353, 1036, 1005, 861}], 
      Line3DBox[{863, 1096, 1305, 862, 1097, 1306, 864, 615, 865, 1227, 1006, 
       866, 1228, 1007, 867, 1229, 1008, 868, 1230, 1098, 1307, 869, 1099, 
       1308, 870, 1100, 1309, 871, 623, 872, 1231, 1009, 873, 1232, 1010, 874,
        1233, 1011, 875, 1234, 1012, 876}], 
      Line3DBox[{878, 1101, 1310, 877, 1102, 1311, 879, 1103, 1312, 880, 631, 
       881, 1235, 1013, 882, 1236, 1014, 883, 1237, 1104, 1313, 884, 1105, 
       1314, 885, 1106, 1315, 886, 1107, 1316, 887, 639, 888, 1238, 1015, 889,
        1239, 1016, 890, 1240, 1017, 891}], 
      Line3DBox[{893, 1108, 1317, 892, 1109, 1318, 894, 1110, 1319, 895, 1111,
        1320, 896, 647, 897, 1241, 1018, 898, 1242, 1112, 1321, 899, 1113, 
       1322, 900, 1114, 1323, 901, 1115, 1324, 902, 1116, 1325, 903, 655, 904,
        1243, 1019, 905, 1244, 1020, 906}], 
      Line3DBox[{908, 1117, 1326, 907, 1118, 1327, 909, 1119, 1328, 910, 1120,
        1329, 911, 1121, 1330, 912, 1245, 1021, 913, 1246, 1122, 1331, 914, 
       1123, 1332, 915, 1124, 1333, 916, 1125, 1334, 917, 1126, 1335, 918, 
       1127, 1336, 919, 671, 920, 1247, 1022, 921}], 
      Line3DBox[{935, 1042, 709, 934, 1348, 1139, 933, 1347, 1138, 932, 1346, 
       1137, 931, 1345, 1136, 930, 1344, 1135, 929, 1343, 1134, 928, 1342, 
       1133, 1248, 927, 1341, 1132, 926, 1340, 1131, 925, 1339, 1130, 924, 
       1338, 1129, 923, 1337, 1128, 922, 1354, 1040, 1039, 1041}]}, {
      Line3DBox[{263, 486, 1149, 264, 500, 292, 1254, 515, 307, 1259, 530, 
       322, 1267, 545, 337, 1276, 560, 352, 1288, 691, 574, 1193, 367, 697, 
       587, 1206, 382, 1302, 600, 397, 1306, 614, 412, 1311, 629, 427, 1318, 
       644, 442, 1327, 659, 457, 1337, 674, 472}], 
      Line3DBox[{265, 487, 1150, 266, 501, 1162, 293, 516, 308, 1260, 531, 
       323, 1268, 546, 338, 1277, 561, 353, 1289, 575, 1194, 368, 588, 1207, 
       383, 601, 1218, 398, 615, 413, 1312, 630, 428, 1319, 645, 443, 1328, 
       660, 458, 1338, 675, 473}], 
      Line3DBox[{267, 488, 1151, 268, 502, 1163, 294, 517, 1173, 309, 532, 
       324, 1269, 547, 339, 1278, 562, 354, 1290, 576, 1195, 369, 589, 1208, 
       384, 602, 1219, 399, 616, 1227, 414, 631, 429, 1320, 646, 444, 1329, 
       661, 459, 1339, 676, 474}], 
      Line3DBox[{269, 489, 1152, 270, 503, 1164, 295, 518, 1174, 310, 533, 
       1181, 325, 548, 340, 1279, 563, 355, 1291, 577, 1196, 370, 590, 1209, 
       385, 603, 1220, 400, 617, 1228, 415, 632, 1235, 430, 647, 445, 1330, 
       662, 460, 1340, 677, 475}], 
      Line3DBox[{271, 490, 1153, 272, 504, 1165, 296, 519, 1175, 311, 534, 
       1182, 326, 549, 1187, 341, 564, 356, 1292, 578, 1197, 371, 591, 1210, 
       386, 604, 1221, 401, 618, 1229, 416, 633, 1236, 431, 648, 1241, 446, 
       663, 1245, 461, 1341, 678, 476}], 
      Line3DBox[{273, 491, 1154, 275, 505, 1166, 297, 520, 1176, 312, 535, 
       1183, 327, 550, 1188, 342, 565, 1191, 357, 579, 1198, 372, 592, 1211, 
       387, 605, 1222, 402, 619, 1230, 417, 634, 1237, 432, 649, 1242, 447, 
       664, 1246, 462, 679, 1248, 477}], 
      Line3DBox[{277, 493, 1155, 278, 1252, 507, 299, 1256, 522, 314, 1262, 
       537, 329, 1271, 552, 344, 1281, 567, 359, 1294, 581, 1199, 374, 594, 
       389, 1304, 607, 404, 1308, 621, 419, 1314, 636, 434, 1322, 651, 449, 
       1332, 666, 464, 1343, 681, 479}], 
      Line3DBox[{279, 494, 1156, 280, 508, 1167, 300, 1257, 523, 315, 1263, 
       538, 330, 1272, 553, 345, 1282, 568, 360, 1295, 582, 1200, 375, 595, 
       1212, 390, 608, 405, 1309, 622, 420, 1315, 637, 435, 1323, 652, 450, 
       1333, 667, 465, 1344, 682, 480}], 
      Line3DBox[{281, 495, 1157, 282, 509, 1168, 301, 524, 316, 1264, 539, 
       331, 1273, 554, 346, 1283, 569, 361, 1296, 583, 1201, 376, 596, 1213, 
       391, 609, 1223, 406, 623, 421, 1316, 638, 436, 1324, 653, 451, 1334, 
       668, 466, 1345, 683, 481}], 
      Line3DBox[{283, 496, 1158, 284, 510, 1169, 302, 525, 1177, 317, 1265, 
       540, 332, 1274, 555, 347, 1284, 570, 362, 1297, 584, 1202, 377, 597, 
       1214, 392, 610, 1224, 407, 624, 1231, 422, 639, 437, 1325, 654, 452, 
       1335, 669, 467, 1346, 684, 482}], 
      Line3DBox[{285, 497, 1159, 286, 511, 1170, 303, 526, 1178, 318, 541, 
       1184, 333, 1275, 556, 348, 1285, 571, 363, 1298, 585, 1203, 378, 598, 
       1215, 393, 611, 1225, 408, 625, 1232, 423, 640, 1238, 438, 655, 453, 
       1336, 670, 468, 1347, 685, 483}], 
      Line3DBox[{287, 498, 1160, 288, 512, 1171, 304, 527, 1179, 319, 542, 
       1185, 334, 557, 1189, 349, 1286, 572, 364, 1299, 692, 693, 1204, 379, 
       698, 699, 1216, 394, 612, 1226, 409, 626, 1233, 424, 641, 1239, 439, 
       656, 1243, 454, 671, 469, 1348, 686, 484}], 
      Line3DBox[{289, 706, 707, 1161, 290, 513, 1172, 305, 528, 1180, 320, 
       543, 1186, 335, 558, 1190, 350, 688, 1350, 689, 365, 1300, 694, 695, 
       1205, 380, 700, 701, 1217, 395, 703, 1353, 704, 410, 627, 1234, 425, 
       642, 1240, 440, 657, 1244, 455, 672, 1247, 470, 709, 710, 711}], 
      Line3DBox[{471, 673, 1354, 708, 456, 658, 1326, 441, 643, 1317, 426, 
       628, 1310, 411, 613, 1305, 396, 599, 1352, 702, 381, 586, 1351, 696, 
       366, 1192, 573, 690, 1287, 351, 559, 1349, 687, 336, 544, 1266, 321, 
       529, 1258, 306, 514, 1253, 291, 499, 1250, 262, 485, 705, 712}], 
      Line3DBox[{478, 680, 1342, 463, 665, 1331, 448, 650, 1321, 433, 635, 
       1313, 418, 620, 1307, 403, 606, 1303, 388, 593, 1301, 373, 580, 1293, 
       358, 566, 1280, 343, 551, 1270, 328, 536, 1261, 313, 521, 1255, 298, 
       506, 1251, 276, 492, 1249, 274}]}, {}, {}}},
   VertexNormals->CompressedData["
1:eJyVXHdcj+33L9lblJXdUDITSnWQvZIZkZ1NkWwa0jDLKC1FhGgZFR+uSlOD
ptLQHp/KFiJ+9919Pt/v19VzvX6P559ez/26nutzrnOf8z7v97nP9Qxat2vh
xhZSUlKzW0lJyXB/1SceM/X2qSDaI3oq7uygqLtDp+nfwWOXi7P30gqictby
45fR6/XCb+roB1VXgHF3q31bt5WTFikh31O27tGrzwpoOziuEvyWazkFPSgl
3v0DzE0vHdErj/GKu6NZDZodVjWMeVtEtGImNy79YavXqLhN+7hKDSxNHNt3
1YFcYiNjOpCUOeh51hwc1Ne4DibdPtXnUEoSyYhS7ml/65Sehkmo3Dadd9DJ
uIeG8g1nkVqKy835/c/o9f/N//MOdIT1QK9fLOwPttT+GoI9MJGyx1ewH/wo
+5cL54UOeN6veF53wT8wCf0Tgf5Bf0LX7DP/yp9OBht9+rWtIB5KSdPVVl2F
Uun0qe+HV4KUdnG8bNdyMqBu+rBtdqEQ6+785mZDJUzI0vwkN7OUfMiaJ77V
XQQVcYZpr+dUw7XaViMLzYqIjPKYdIv0aFhfYL6wT8caOHBd0fzV8Ryy6FHA
+9e68fBgX9reZT9q4eyGdg49Tz0nXfeKFvc+9Rx0qi2eh7q+hZreswzvJ50T
rR9v8+Iw59feh9c3buX8eUpYD7K4Xg/X7xP2h8XU/r6CPdCSskdTsB++Uvb/
1mo6L6jieePxvI6Cf+Ae+qcM/YP+hJeK1f8qPln+fLL6Tke/z6Vkw+2DM7vZ
RsOy9kkmmy9WwbE5GlNm/ComR88VDGjvlwQrtJzddE9Wg7fRidPPOheSJN3o
S4HK6eCv9m7Oz0gxqEbO76NVnkXCZIfXcX9h0zn5zOXStTAw4PL4XN14knVy
n2YO56dpn03X8f7pY/Gg3wP106L84JRoPk6ndhrQ2IeLz37CesjG9TNwvYqw
P9D7uwv2QDJlzxHBfjiO9huj/SLhvLATz2uE5/2F/h9P+Qf9Cb8fKDX8m3xn
xSfLnxcmlH6xDHxDtr38XF+vlAlWLbfXjxNXQ1L+6tX2QbnETStSySEoF3KK
xfm+RmKQWyqVcFc5nXQ8Gz0phjv3uD63dPjzrgveabAnPZq4SR06wMfd+yTp
cXy8tdwyf23nbfais6liDQ0u7x2SHOT5fF8trAd6fQ9hf6D3TxTsAQ/KnrOC
/bCLsl/ifyfqvOMw/uWy//QP+hP8nxjv/jf4ycp3Vnyy/Fm/oW44ZzcZYaxy
bR93Dtk1TlW8/ftnmQS09UsinY9/s+fP8fWNpxVvv767maV/dxHpOPWMijx3
ju89DO7z9stYO3+3XmotihjxKZA/h9qAylu8/XrCeuhErd8r7A+S/b/g/p8E
e2Ak2tMN7UlA/3tR9kviP4M6rwR/eqN/1krwB/G/RceIf1WPWPjJyndWfLL8
+SPgp2xX22hit2ob8Hlp66A2lc/Hvg3lS7bYhZL7LSzFfF6uvJ0Xx+fjj3FD
Q25FWYp01r87xefl5vfGXwZx+dhLWA/0+gZhf6D3l/i/C+X/7hj/XdD+sWi/
MuJPJJ7XFM9rifi/C/1zD/2D/oRFXg3/qr6z6hELP1n5zopPlj+t3yS/Vll1
lehIwQO+zmim1ozh68uIBaFL2x8zFcHzLR58nTm830+Lry9HhPWgS63vQ/nf
GPcHKv6/oT0S/HFH+9+h/QqI/4V43ql43tNYf8dQ/kF/Qt7rtH/Fl1j1nVWP
WPjJyndWfLL8WXP1Woyaw7CIZORNkr+qwnodPVx/CNc3CPvr6FL7Swv26Dyi
7JES7NdxQfvt0X554bw6lXjeKXjeasE/OsfRPz3RP+hPnSOu02/9G/7J4kus
+s6qRyz8ZOU7Kz5Z/jyI8a9HrZen8kUSz9qYX52peDbGfPSg4rkX5u8bKp4d
MN81qHhGf5J8Kp5ZfJ7FP1l8iVXfWfWIhZ+sfGfFJ8uf3xj4vxvrRVfKnm5Y
X7pR+KyI9SiKwmcLrF9mFD6jP8liCp+Z+ojB51n8k8WXWPWdVY9Y+MnKd1Z8
svz5AfnPaMqeOORLPpT9rsivsqjz+iAfU6D8g/4kLSm+wdKbLH3E4vMs/sni
S6z6zqpHLPxk5TsrPln+PI383wLtt0b7D6NeOEedF/1D+iJ/rkT/oD/JXYo/
s/Q7S2+y9BGLz7P4J4svseo7qx6x8JOV76z4ZPnzEerffdR5GwX/kMmUf9Cf
pN1DQQ/+f/0Qln5n6U2WPmLxeRb/ZPElVn1n1SMWfrLynRWfLH86YP8nifIP
+pOIsb/xL/tLrH4IS7+z9CZLH7H4PIt/svgSq76z6hELP1n5zopPlj9JxZHW
Sv/rT67SipzzMkjPoMHHbp+PAPvZ8zWcJ72VPIfJ1HPFda8bPwwWkRGOdQ++
DBbBsw89c3d5voNBZqqfb5yPID8Kr5904f67/C5a/fj1fYXn0OaN8DwXn+M+
sJLapy8+p/fvhfvQ+3fH36X3x30IvX8Fnos+Lz4n9HlNXTqUiQ5VkOTg9Y42
U21AbdDot6kxFeBnf2ncwjMVZPjzrpezBy/S+wV7s/NCKyTrQfzP68G5le1f
rZ/3z/uTtiH/bE8wtT/LTtb+LDtZ+w+uWa580LWCuO9wHHdAdx2cszh3JezW
f55D3t89J/12/vl8o+lK586eFaTliVP3ZAbo63m0WLNg+PX/PIdZjOcXb//6
p+ckl/GctT9jH9bvNtv/yY7iqWtkK4hMpsyJnG4+oDFp76QipUoIut7XppV/
Obkw/fq1hnozvSNPy06Un62El7WvPU4blJOR9e+2ZIwKhnWHfY73T6wEmyJz
lRcry4iidot7aYkH9DZWpNTtCaqC/rp5JxPrS8k2+83T39iEgxp4BcikV0Fa
TEuVk0YlZFD3xt8OW6z1lLuGX24zQQw3fCDMurSYPHo3yNjTIhLsqyY6zxgn
huF7qpVOJBWSL+Nq4/WL7fQaQ8L1F3aqheTU1YmO6QVk8vWMeZMcYuDqp/Cu
Kjk1EDlsQH/Tm9mkg4uV1/5aR707GrDWvK4O1j1qV9kQl0XGaLbbO1opAVIG
uJw/f7AOFhy/tmjAhgSiOPNY0KGaU3qR03Lulm15B1LcP5Hv7zXT75M2yy9M
mBlPPjU27rkc8xySfp8IaU/eCutb3Wum63WE/UEJ94/C/dWFfUCyTzLuIxLs
h05o/120f5VgP4xF+1PRfjXBP/AN/fMb/ZMo+AemUP55IfgflND/Q9H/foL/
4Qn63wH9f0x4vzAc3+8mfL/9hPcLFvh+h+H7DRTiBy5j/Bz9M35AA+NnPcaP
qCRdym1DBYRWut7JT1yjp3g9a1Sb/AoQCfEJslR8dnK03STfr5yMI61CvmoG
Q37154TKL5VQ2HGdbJJeGbm42OGCl2YkaIjElaG7q8C44bajcmQJabVkQF6M
XgLsn3FZaee4aijb67n1rFMRIZdFz7JkXoKp+5mvK8ZwumnqMdjVNY9Ix62d
5+ueAasNZksdn10DNb/OtCpck0EW+3dUOuOZDRPExy8OW1QLBlv61PqujiGj
729t9z4wB/aub5FR1qOuKR6kvIOb9XN0hfUgWW+J6yuE/YHeP06wB1qgPWvQ
nhLBfohG+zeh/cuF80JH6rwFgn/AHf0zFv3TUfAnTEd/FqA/9TsfsOi1vJT8
+iQ+uuViOMz0cxy4ZV416HnHnTBfWkKyItqf6zgtAQJG7kheZsvxw9Df4/vc
LSJRch2LNFLT4LpCyvTnadXgOXrYqCFP88mGRZ+X5NRnw+tWfubjR4rhfpuo
0G7V2WRT78jzXuvy4Ovo9kEBZ8TgkXEh4sSvFyTb5lNkenohxJ8btbV/sRh6
O7m1GHMkkugeeRzpZlcEL2ZGq2T2rAFpzs1WubdF51AfOaI+6iCsB3r9BWF/
eIX7J+D+IYI9sIWyx02wHzZT9l8RzgvxeN4beF5dwT+QR/lniuBP6P5Z8Ocs
9Cf5arGfs4+4drx0RIOz9/2XrdN4Oz9unibH2Ue6KdgZOnD27prX5Qhv59BO
YzM91+UR5etxh2U5e7ftzr3P27ksNPD0q/psEtN5uJi3d9BZ6628nWrKUgqc
fcTyq7YDb2+rwvixvJ1SbXepdpiWQLYVt0ng7bWamRPK2zl1WnS/TRfDydus
pzd4ey+UL5Ph7eTDedLPa836jSOE9fAO15/H9T/aNO0P23H/Y7i/imAP7Ed7
WqI9SwT7IZGyX0k4L6hT530v+Ad6U/5Bf8I1yp+tquxnvgvMIYEhiT7XuPx7
MzWtis+7vsYzlpz2zCYftXbk8fmXEL3Jnc+79InLDvu4Z5C56c9+8fkXNH5L
vS2XdwO+uf3KlHlJ/PXUHvH5136eRSmfd3X+e48800sgTstkE/j862E8tiOf
d3u+mph7akaSx6Ulk/j869D/QAqfd3Wrprz7ohlMGvSMHPj8uyKVEMznHe9n
q8Xuzfq3b4T18INabybsD/T+NYI9cBLt6Y729Bfsh1tof1u0/4VwXjDE8wbi
eXsL/oF6yj8tBX8CQX8Woj+1NLRvucY8J/fk7g54ztW3qD1+9/m6Znhg4YOR
SglEa9ak+z+4Ombdy/U4X79M245+oOcQQ9yssnY5cfWqZcWPemWuTg2Pr/rh
bhFJ0t3W1vN1Kbygbg9fj0Z4TuhUYBNOppjMieDrz6/duWf5uvPjg6oobVQw
Ce+V+4ivM63a7tzB1xeXhe0mZ3fzIQlzZxvx9WTWwxMj+TrShM/yTs364bbC
epCsn4nrvwr7g2T/lri/mmAP6KM9jWiPmmA/ZKD9D9H+dcJ5wQvPK4PnNRD8
A7qUf8YL/oQ49Gck+nP+uw7WKz6eEz1TmNBlEMcvYi8ZuvG8QnSn3arEtWdE
r10d0nkeYXe+N/D8oboozeqUn6PIYov+HZ4vFO3I7c/zhIVpRRUDNh8X6Xyp
WMLzAoPS6v08H3iUvWyDutZRUdr7qdP5+j8ydE0mX/fXuPQSFRTvEc1Z7nKB
r/PTBtft5eu7l9ScrWOD1otsjKSta1ZXgFzP+CXuRRVN+Cz10SAiBXWz5O8p
Yb2OLa6Xx/XGwv469P4PBHt0aHvmC/br6KH989D+cuG8OofxvIV43keCf3SK
0D/H0T/oT51s9GcM+lMT/U/H8zx8X5J4tsH3JXm/rvh+W+H7HYbxQMezJH7o
eP5GxZsknk8z4lNaiGcdOp6tMP4TqfWfMV8iqHhWwvyi41kF8zET7Q9D+00w
f72peJ6D+a5HxbMG4kMC5U8ZxJMgCp8l+EPj80vEKwY+w03Et3Z/4vN/8FCC
z7sZ+FmLeCvBZ+8/8bnZ94VCxHMan3cy8L8K68UpCp8VsL7cpvA5BevRIgqf
e2L9+kr5pwXWu0gKn59ifXTD+vgB6+M7rKc9sJ6aYT1Vxvo7lKq/knodR9Vr
SX3fR9X33ww+MInBH5BvNPu+oI785AO1/quwP9mJ+x/F/ZWQ/xyg7FmEfCmJ
sn8w8quR1HnfIh/rT/kH/UluUP6cjHyvJfK92cj3dJAfvkZ+eAf5oYRPxlF8
ksU/Q5Gvbqf5KvLb1xR/lkc+DMiHU5EPSwn8udn3hTbIt+n1Z5Gf5+P+cbh/
EPL5XZQ9l5D/b0f7c9F+b9QLSdR50T+kiPIP+pP0pvzZAfULUPolH/WON6V3
VqA+6krpo1LUU/GUnopF/dUO9ZcJ6q8q1GsrUa+NQ702G/WdFuq7PX/qwWbf
F7RQP07E9Ra4vhT1pgnuPx73j0Z92pHSp8WoZxMp+41Q//bC8x7A8+ahXr6G
/tFE/6A/yTz0ZyH6U6LHe1F6/AXq+qmUrpf0B05S/YHr2GdIpfo8z7FfsQL7
Fb7Yr1iLfQ9D7HskY99DB/snPX4J/ZPEP/swzb4vDMW+jRyuf47rV2JfaCHV
F4rH/tJKyp6r2KdKp/okCtjvOo/nVcfzpmLfbBb6ZwP65zH231TQn2PRn0+w
H2I/4GdTP2QI9kOwLwdJJ9v7/W9fDvtvYDrM84/+G/bZYETLjVKO/9Nnw34a
7MnYmfC//TTsm4Hywr7e/9s3w/4YlImHBf9Df6z59wXsp5Xjekm/C/taRBX3
l/S1sH9FLNEeSf8K+1REA+2X9KmwH0V24Xkl/SjsO5E09I+k71T2Ym7cZaUK
sia4xrFnlhdsGu5pM6VHJUzra90/cWM5aT1HIXp7SgCEzWpwf/eoEkjrpL53
BpYRqW9nH4y5FAIXv6gW3o6vgpEvWv3OVykhRnoPrpRXhkLmmXcPruuJod/m
IQetzhWS8Ut09ZJOhUDIHu8lx9rUwuXZF7JPumWTO9qriydE3oYTq913Hyyr
gx/L7FqOtEggOe7BY05/9IDHfTe0kDYV/GkVc09kTPUPXZ8v6rpxWTx8yq0p
NuX+NspfHFUpfguhMMjrx+8saHNqel4bpyggS9t4WDyqA9udJQkjoBBGGned
GXAtDLpYVvf371ALMXqXdumqlMD4ed/zdirfgV4latM153B6xK7x2lOdMlBu
XFqk+8IDzhuPsSyI5fTplTlyPufLYcXEql+yJjagWz3Fe7xvJWz+vKTHpInl
pJ1bp09O44JBZs80pVF5laD5qzjd2KaMrC14fkK331MoWf7YVmZ6FZhfv+p9
Znwp6bx5w7H7GTEQtaxd1xmdquHmkIPpu/SLycjQbEu9xYmgFahuuHuUGHpd
q01O+pVPBkUus2qxNRn2XhxRL+1bA3bdhqwz3ptFlpoaVqyqSYGTOXOVj42t
gzE5Fls7LoknF03aDPJ/lALz5+07meryVuDDVqGi14i30xBvP6afs3+9OQaC
NFTLd09/BYe6XcrcZVIHCw0SdHLSMuDy2Q1yudxfn6X3hrnE1IJRXpee4zvn
w1pNm19dj7yAA2RRbeytGohcOf/RA51iWOXaNmf4lHhICtNddXwRxzOnqbp2
cSqFY3XLu/qaEfCxa3WkS7v/zler4/fHOPz+uFpl4S7FL+VgfGj08m8cDgxq
e7XRc3Il+G/Z5OPnXEoKZxol33YNhwWKjfVPBlWDr9ysT3PSSsj7kyVh7v3i
wdChoK2vdjXs0Ule0PtQMTlgErNksspLCNkW+CPiTDVoPV+rlC37hqTJO/YO
r8wA968z1ssriSGx5+R3Dim5RGPP2llTUrLhsIfvI+3vHI4VrLq3vDydnFL+
7KqZkgMRl1YHyH6sgV0qRlfPm8YQv6FWvS7E5MIw9dpDg3Nqhf5bZtB/5tOc
kD+otZDuusc6EvQ0VL1WyxSBx34j3e0ba+Bcit3VxNMvIdzqkG/j43yo2vN5
q4NJDRzVaBj9ZHYO+EtPa+T/OvRQK3j2WwwbwgrXlRUVgsEj7eMilQzQ2xUg
f3LZf+erT1Df09saTDGyf14KYrNK7Vsbo+BteETRvJgqeGWavV6/sgy0Pnr2
vsPF7c+4n4OrFavgxJsdPlnFReSwxos5i6wiQWXrgQDPQjGMOjp4hdSwIjLZ
dd1K7+JUULmz2PeSLcdbtAtGNUYXENlxVyuC1mfBDb19HcImikFm0/1uTwa+
Jm0/rE/l/kIr9Y5mTwaKwX+Ey2BuHZm+aFYx99+Bg88GaX69+Z3lmZ7FqcRb
7+ct7nfAfNLw0/z+b4+cfW1oFUne73pWztkF/V3lzvD2NPEHo1uicOTDw5AP
pxpNrVnpFg6T4k+cW9+iFM6+Ht4pmnvvfQ7mRi/amwg39vVdUODN6bWBHVIn
fagGj+wrLi6bMqC44YXvox5v4GXq+U3OOv+dF5LMq+TifEiq9NSPEdw6v+75
q85z/91t7ca9/Pq91gPa8ftemzpt4hLudwJshlXy+2t42RjzdqTMNFq7mrMr
etSQYbw9A28GmJyPySXypYvmXzSNga5XrV34+OlhPz5zbEoOWeVeZruiPB3e
W56+x8ebVthi28kp2cT8/apAx5RcWNU14SEfn7NWVS8Nq8wgMeZGqVxcQ0Z9
/6V8PEt/6es5SeUleZi07DKXBzAubmMlH/8mm4PWX+4XT+ZNPjFybloJKJ/f
+s6Hy5dvQz8evekaTjSPHnjJ5RnYNDq/5vOrSXdYXRVNpPTd7Y1W+re5uLmi
EnyCj6Pvy0g7Pn5Maye2vMnF2dXSzSf5uGvcfySWjzfWPNV3xenhj7k4/npI
rXs5F9cq8+TaNsUzxn8Axr89xr+j+rXqn1yejIgYu/c5lzdeX5Yf4vNl57Nd
hnxerQgZfNGCy7Mgrc8r+Pzq/yz/enZFCil/uH9KtUo8VIfGqE7h8BDMO45b
WZNCYj1kR6zcmwXXzY8r8Ph56F11jdTWZMKlw4HkX/nQEPirhMdb3wa5NrqL
E8kgw4heZvrFsHpBby0enysLe+jcy4ghtoWQzeE6DA9Wr5/O4XmbuT9NJ/Z7
SoKkzRu5OgCjTi7YyuO/94KIqY7jgoldpJ0GVzdgYLlcZ75eNMGzhWuz/tvj
D19qv3A46L1f7ziPi15bTtfweMia9/uWfv2KN4ezy55VP+dxV9qldA2Ptxd+
1Rqrc7gsu+5gi4ccTmed/D6Fx2fN5XuWdOFwfKDb4DQe1/c4rc/j8Xwe4v8V
xP8riP+vTkP71hqepHqAie6W7QnwSnX2hkVcvb7XeO9l2tVbZIVUW4XqsGwQ
p866bfOmDhRV9q5KOBVC1j43aG99rhBUZU9o8nxAx7u7emllKPF6badZwNVh
MnGuK88fnPN9H466FEKum3nrc7wDTiodesbzDa2Ab/e2pASQLbBGm+MpcKFw
ux3PT6YcXST7sZsP8ZJJi4vrWwE2E+sryxWw/2N5XET32XqIWkXNeLOmWV/I
5caG2e24ur7c7KIaX+dnGMw5ydf3ivM5R8dxPCAgTBzP84ItS2pW8HygfjiU
b+F4w5b5rjd4HqH8yFqJ5w9eh75o3uR4xvep0zaO5HjHR+fev29wfEN/Vky7
R/vj4UOWet5j7m9C/Rd7Usnx7f3nFAI6RMOOeT/OvtbKhoJWFgMyb9fBZdzn
I+7zGfepwt/djL87FH83De28jXZuRTu347mMqHONFvzQLN764Vwu/XwU+tkb
/WyNflZhvBcHfI/++B6d8D2OwPd+Bd/7U3zvvTBONmOcqGCcRLfLrxm07hUk
b/zU18U/BtpYbhSNXloHizA+3an4lMRzH4xnC4zn8xj/XTH+szH+v2C+LKXy
hTXPHIf5eIXKx6Z69Opssz7YWcz3E5jvAzDfG+YI+BBC4UMx4okd4ok64okr
4o8i4s8qxB9zxKsUxKtviFfTEN8SEd/8EN92IU7Op3DyNOLqMApXJTzkBsVD
viFuf6Jw25LC+XrE+c1UXfiJdSEc64gv1pFvWEea8HCBV7N+VxHWqfFYp6yx
Ti3CurYA65oi1rXGz0IdDKPq4DSsm8lYN9Oxbo7FOnuAqrPyWJfXUHV5ENZx
VazjXbCOj8W6L6LqviXyBG+KJ0h4xVWKV7B4iIS3lCBveYG8RQF5zk3kOQ+R
5xQhL5qMvOgM8qKm+m57Xec88tUTyFcLkHd9Qd6lgLxrA/K0q8jTdiFP80Ve
Nx95nT3yuh+mAg/sQvHAy8gb+1K8UcIzZ1E80w556SmKl0p47BiKx0p4bxXF
eyU82YGamzVFXr0QebUu8mpJ/N+heIgz8naCvL0Cebsm8vwpyPPdkOc31SOD
Ozpiqt9ljDriHuoIVdQRPVB3uKHuCEPdEY06RRd1yiHUKWNQ1+ShrvFAXWOG
OsgWdVAo6iAf1E3fKN10A3XWd9RZhqizJLpsDaXLJHOzYykdV4u6zxl13xXU
fVGoE7ejTnyOOlGiK/ehrtyPulKC89cR570Q53+jbn2KunUf6lbez5NGh+ic
pPpdCqiLY1AXz0NdfBh19AHU0U6oo2VRd2tTutsPdfpM1OkTUafvRF0/EHV9
NOr6sdgHsKD6AKbYNxiIfYNW2DdQd0oPqV9dAd86dTH3nroOXtbe7eVQVPGf
/oMx9h90sP+wAfsVy7Ff4YL9ijjsb2zH/kZP7G8cx37IYuyHdMZ+yAPsnyhh
/+Qp9k9uYL9lwGuh39KA/ZYmfJ52T0dq/5M/+l2V2M+J8vizn3MB+z/tJwr9
H3vs//TGfpEx1S9Sx/7SUewvZWN/6Qn2o/pjP8oV+1FTsX81FPtXEdi/eibw
B/Ic+UNr5A9PkVcUUrxCWdAL8BX1QiXqhZkCfyM0f1sr8DeyE/lbPvK3hcjr
9lDPKwWeDGuQJ1cjT56I/LBltrB/PO6veaaJb0Mj8u1s5Nv3BR4ONA+/ivvT
PPwV8nP6d+ej/RaUnbLC7xL6d8ehH1pl/+mH3ug3WmcNQv31jfKnCN8L7X+M
f2JHxf8wzIs3+DwNn2M/E8ypfmYpPnf45+fEjXqO+5NFnf/cH+fxyEXsP0vm
8bAvTfxwTk/Sl2bNkbLWs+b3WPNmrPko1jwPa/6ENS/B+r7P+h7N+n7K+t7H
+j7F+p7CmrNlzeWy5h5Zc3qsuTLWHBRrboc1Z8Kai2B9x2d9d2Z9J2V912N9
h2J9N2HNJ7PmmVlzpKy5R9acHmuujDUHxZrbYc2ZsOYiWN/xWd+dWd9JWd/1
WN+hWHPdrDlw1lwua46UNffImtNjzZWx5qBYczusORPWXATrOz7ruzPrOynr
ux5rHp41P8+ac2bN5bLmSFlzj6w5PdZcGWsOijW3w5ozYc1FsL7js747s76T
su4RsO4dsObGWXPOrLlc1hwpa+6RNafHmitjzUGx5nZYcyasuQjWd3zWd+e/
vWfxt/c4/nZu/2/nz/92jvpv54H/dq71b+cz/3bO8G/n5f527utv55f+dg7n
b+dJ/nYugnXfh3U/iHVPhHWvgTWHz5obZ805s+ZyWXOkrLlH1pwea66MNQfF
mtthzZmw7kmx7lWx7t2w7omw7jWw5vBZc+OsOWfWXC5rjpQ198ia02PNlbHm
oFhzO6z7Zaz7aKx7TKx7N6x7Iqx7Daw5fNbcOGvOmTWXy5ojZc09sub0WHNl
rDko1r081j0+1r0wFv9k3bth3RNh3WtgzeGz5sZZc86suVzWHClr7pE1p8ea
K2PdZ2Tdf2Tds2PdC2PdY2Ldu2HdE2Hda2DN4bPmxllzzqy5XNYcKWvukTWn
x7oHyro3yrq3yLpnx7oXxrrHxLp3w7onwrrXwJrDZ82Ns+acWXO5rDlS1twj
6/4s677n/3M/sdl9Otb9r//nvlKz+zWs+yD/z/0F1rw9az682Twza/6W1f/8
tjJAderEcuIw/Zf7wnHBMCRRQWF4XiXo2he2j3QuJe6W6X4rLoWDp55b1N1B
1eDyomGEZkkR+ekcsXrp0Ujw6rliqEWhGAxf6srNj8slTmOrfS6vi4H0QxVP
al/VQrijZ/dskkKiEvzORRnEw97cy/ueurwFb/we0UDNf24tmqy+Z9oraHd0
xAAP0xg4bzDk4GOTOtgd38a6lUwR9H/h9sTlWCQUBH38GbqxBirD3FpOalEK
R+IVZXw4O/t3fzK89Ew1dMuWatCuLINXw/fN1+DO5WKvEvxBsQoezjO4M+RL
OWzb0b64iPNPi8vfYr0ms7/XbNTuEHcmrYS4B5cbDlKIBxmVquTj2tUwfvqb
jxXDikhJ6QyFMQWpUBcRsXGlrRiITIuxcS9zyN2SNQani9MhVl7RrPZDDXyf
09tL7nMK2Vl0Z7meOacXtVLtQ8bWwWL8LuZBzT/o1DovCHycD9FagUbbT78E
f1ulZQEmNdDKfbB7qncxeBwZeUF6byKcGjwj2+BDNdxaqB9i97wUvm3SU/De
GAUGUmFBBjFV/5nPpL/rDZgwrpj/DuVTZPTBzMQGNG2PvRnnWwlqsmmy72MK
yKAfc7fbrc2COdLTHNwncvi5dF2JXFo2aR1TcOhVYi5UX86/O++7GH73e6dY
bJ5Mwj+WJZn/yIfOgSoWa31r4OXkPvJhPd7AqvFl2Wc3ZcCFlolfXHTEzb7b
SuYbrVosmdnNqRSK09+ahJkReN227FGndtXQXjbHJ16nDA5eDt03OM0Dvimd
v5QVWwWKGeLN1dUZZOLdlOdvu76B4u8DDXWUuLrZ8dcakVEiOaIdqHRhSjGc
W/vS5ckoMaSNltevLCoEU7OITpEqGfDk/Tx3x2ViaIyWPh2jUwx62jkdbaZw
eb1xVgvLRWKwPnN94HqVEtglEvf8pHoHarR1D/ecI4bAN3M8R2TFkKJ4p/Pz
xpdCf9eZ8zd2qobXFQ9LT3TOB2spDc/UIy+gUL5xjN+tGvB6MDJaDIVwdMgU
l33+YbD7sL7Ppg61TXpqQlXzuWj++Zq6EFEuNd/bpMdrm8+jNumyjc3nJ5v0
oF3zeb8mHWrZfD6NNS/UZM8/zMPwz4sWNp/raPpdx//OIUh0a5O+XtX8uzn/
fODuUJ1TlA5tOpfcfR2p78/+0JuaPY2Kft+IAUWjiHcla19Byw224VOX1kHp
2/0TnDlckKuKTuZxAg4secPjw+zu3U97cbgw4qCXFo8T8a3ju/D48FnTeP9o
DheyQ14rTOTnHt9VX+LxIaQh1aKQwwV7n4lRPE6kfC29x+PDw6kPaheMCybL
5ryeyeElJCTWteRxsl728jKjS+Gkz9labQ4voW3qiOs8Thb3vf128dFIop8x
zYLDSyAa39rzOCkePOKL67oYMu3Zu1QOL6Fe18C/CSdbWFpWqsSTOLWaTTkV
KTB9Q1tF/vtakUz6kU3bE8ik8yZOPTQ8YYjDc0v++92cuF922zhceH96W9sg
DiceXiXTeXxoOP2srxSHC+Ev+xfzODHUWvkJjw/rK13KPTlccKnbUsbjxKuw
gxd4fOjNmD9U6J3VOEAhnlirTW5xNq0EHK5a3uNxT3Tb+sKoglSSuN5/SuWw
IgjQcTbkcU8j6NPRU8XpxGGI61cO/+DjzLpNPO6tqr93Wtc8i7RWN5zX83MK
pOc7OvO4NyDy6JqqsGzSTznmcM7VW1DyaHwC/x1z+kf/DjxeGMy4Ecvjh+HF
1ZU8brDmkX4Gar+9z+GF+wG5wzx+OPeL9uZxY6nb7JvH12aR5ddVnnF4Bi+N
Rhzlcaw4KEyUnZhLkqpMb8qnZcPVI3dCeBxLbOswgMMvsnPHpYgS82Q4Os/Q
nscx2bxLc6rPFJIPGc8/1lwIAeXZ7z/mtqmF3yUxkwmHI23Eaz/xuNIuPewk
jyf3RaJzVhyOrHEYnsXjyvB9rar2cniiExY1iMMpcvG52zBxdQYMNJ5uwuNV
4QCTN+enFJM5XVumPTFKhG2jym7zeJV1p/CurUoJ6W3SV01cEwpOM35Xv9IT
Q8uBSp+SOXxxNk7wsufwZo1ep8E8zuy3qjDm8Ig4Gz59MzIrBk59Ud7M49Kq
4sHJzgPLyL5NlyYddw2BoiFxR0XxVWCAdceXqjvxrax7x24sJ8/etDhTkBIA
7x8HPPz4qBIU8X09UxLeVzG+r8JLLX36aGeTkZM/ztXrGA39fdTto2/XQYHw
HGbj8374HPcBKeU/9/mEcb7I5c84RxwQSY3s+gcOpGK+uGG+zMR8kRLwRLQV
8aQX4kmysB7CqPzC34Vo6ncx7yCdev4Y97lJ/S7GMxQp/RnPueifaZR/WN/H
Wfek/r/v5luo7+Cs//8M6/v4jtEuT61lPUmmpnz6YrME0Eie9EaVO+9zjIcr
GA/vMB4eWMdc6JR9mxy62qer0qVsGBrfqW1eWR1cXCFdM+dUFDyxW24sJZ0N
phOnfR3xqA5WYxwuwTgsxDg8hHF7BOP2JMbt5hMHulVfCCH2lqV5XP7B1CnZ
6XzejXk02MqCq6Olo89yaFcImWILK76eSvLCCfNiHeZFDubR+1VCHjliHhVj
3mlg3m3FvNPHPD1J5WlUrvzDyppQcuP05jJuP3gUbpTE75Owe9igtxw/iJW5
sYznC2MiLhjzPCEUccAEcWAE4oAEN1ohbrRH3GDNB8oj/sQj/igh/rxEvFqM
eHUE8UqM+BaJ+HYN8W0l4uFCxMM0xEPHEYcm27iGkN8qDZ+49wPFK+Q28O/F
32+0fF+Ob50eGhvD8y+PaXMP8bzrO4W3Loi3rHsBMxDPFyKeL0A8Z83jbcR6
UTJMqBcZWC+0sb4cwfryGetLEtajWKxHd7EeqWD9OoL1yxHr1+zbCcdepwQQ
U5m1mlxcg9aTfr58PNfWZOps4njw29ZW9TwvzqqxT+b5MF0fJfPDGxn19AfW
3wisvypYf+diva7Hen0f6zU9F+eNOCw1ROAJ45AnfEee8AF5BSCviEZe0aW7
wEN6Ig9pjzwkFnnLUuQtichbWHPjIuQ/DhT/kR4n8KVXyJe+Il9aifxqFPKr
WORXtcjHeiEf00U+poPzUWKcv0rEuSPWPD/iJ6ghfg5A/DREv7lR99pkav98
j5n4Hsfje9+E730CvncP5OfLkZ/vQX6ei3x+F/L5N8jnb1F54Y55cRDzSGqo
kEdFmEd+qBdKUC8ooF6wQn2hjfqiFvXFT9QjI1GPRKEeSUf9sh71y1PULzT+
jEb8uYt4dQvxKgLxKgv1kTXqo7Ooj/qjntJHPVWEekqiv2ai/mpA/SXRay9Q
r+WhXqPvr0nmctNQD65GPXge9aA64nkl4nkG4vkyxP+ziP9TEP8/o96MQr3Z
CfXmZdSnnVGfVqE+VUQ9q0rp2f6of71Q/45D/fuLcZ9Roq+/U/paosd9KT2u
hfo9gdLvx7E+Eqo+ZmE9tcJ6qoz19Cf2DXZj38AA+waR2GcIpvoM47AvUUP1
JTZgH+Mq1ceQ9EM2Uv2Qrtg/KaD6J5J+y1mq32KO/ZlhVH9mA/ZzelL9HDfs
/3TDedSf2P8JRB5SgTxkDPIQEfaRMrGPZIF9pEXYd/Kg+k7nsE/VweXPPpUO
9rXCqL7WV+yDeWIfTAn7YAY4J/kt6895zumCDiXDUIfKoA6djPp0LD6Xxueo
63XKUP/qo/5dgHjYG+cwY3F/7A/oHKZ08Wj83ZG4fwvcXxft7EjNnZYx5id/
rZs87PGKcjJyn39Xn56BMOHUouu9oith/isj8xGtysiWBJOivWMfgshvcF3v
F1Ww2FHLX/ylmIQ8NY3stO0JxG02fT1XWwz3RswyS2ssIC5VdzIPj46GxmON
U50qauDh/Ff6cz9kEfcOdZeO6ceC/3Wf36Mu1cHGG3YBdcfiyZv3OoaJR+Jh
300FJzXOTldGP7DudTsN03Iu7uPbDzLLjYETJftkFbzqON6o9TCuoQAa9lQv
VroWBXZWSQO71dXAzVCNS6n1xVDgel3FbLwIrKBg1jcO996r75/7pHUZ2Gad
viaWfgAw/HMY388vSWu9u9PKcqg0TDSxjAoA/RN6EZHP/nO/Hg5QfnsYoz9l
WtdS4ht89vHPr7HQ/aaJ552+1SB3UL88qqqI5L2UbvkhOBksz5ptGzhWDGYD
v71XLMgjPe4dXGJkmQZfO9k6f99TA2f6uD282DeTfLQyWPuyVyZMHzVCcUdA
LSzMr7nqNz2WpO6S805/lwX+HcZkL7z033vcHlS967At4WGiKA9S1TfL5LRL
A/sLZVvVTtdA8anYQLOKIrDL/C5//FYS3Hy0dfrcGWJ4OHB5YGn3UvAb/OB+
O86f+9QdDowdWg1HP42siT9RBtfNIywNkh/D9ouixwvnVUGV5kWHDpx/voeE
Gjpx/nGKe708mvOPx/cTx+dbFZI1fbsPn3M3E2LOXt5fqiqGsuHqFdW3c0je
Pf/2ajdzQGGJVujNTDG47472bXMgjShMKC15/DoP5sbuSBxqUQOd7ymO/6kR
TY6PeZaS+LMAZg7q3TGMi5+7hTtHeRkXwqCWJa3i+mXCo/tdfmxdIIbz9otC
zQ4Ww6nfO4Mdc1NBrmy2tDigGn70CrubzZ2rxPlbXEvuXF9/93XV48617/PY
pWHce0975lc9vsUDyH+WZN2Ge+/K54lvTWAmObbRb2XB0ULIfZMU9ZOzP3/o
mv5D7ycT9xttHvWrKoIA7W0tFnLvMbHmQ8HNHU9I7pKdxoFfisH2SeburVz8
JxdcsLHm7HTvojDwEWdn6eZ0nb2cnaLkhuFLOf/XDg2ZeZLz/7ydrjkrOf8H
j87fncDF594JASt2TRCB4bTXGnx8qteb9ZD7HktejQkI7961FIx87pRGc3EV
bxO9e4XmQxI2Ryu8b6sy8Pnpl63E5eOWsv1yt7n3bpwbpf6ee+9pi5z9RnDv
PetazIICLi9yneWVh/hFQdwQr/bSXF4Epj5r+a5nIAnRuKIWvqIcdN1Hfu4T
Lcy9FH24J4rB7xdx+P2Cx5+uPUKbzcE2zaXoBjeb22zq+6ndbjZn2PTc4lqz
ubgmXe99udkcV1OfcJ2jiJ7TOMGY32jC1U1nms0bNPUnNT2bfR9v6n8m+DX7
nttk56GAZt8f0Q/Nvpeh33ReUXPX99vWHG/ZJxYutFF73L1FNhjmNzi8vVAH
DzLGRw3hcOqszbLl8dz7eXL/U0serz7lWB3YweFUY+qUDB63vihfHsbHw7l1
249UcTj1fOTbfTxuPfBR9eTxynJniNoeLg89qxee5XFr+Wz/qzxeqV/Nmhx7
ygN6fNxrbqNQASOvrQu/268SdjQk5nly7/170t2ZHN5D+af3Z3ic159j92jP
2IckuLbEk8N7GOscnMbj/IsDK3t02PaE7HqiUsbhPZhn3xLxOL/m4UP9Q6Oj
ybAjOrLpjQVwY+ILVR7n8bzEA8+7AM+ry7hfsDfsw8hXXLwebROw+zkXvz11
567k8Wq6idl5Gy5PBp31aeBxK63PoJE8Xo2Q9d3Ylstn5S+mVTxu5Yfmm/B4
VTPdY8k8DqcmylyQS+BwS8vvji+PV0ecPfrZc/65eab4Oo9bZUv09Xm8OvZi
/a4fX2NJRqjCYQ6/4XBHLxsetxu0H554F5zM+aH/qGgu37UmaS/hcXt9fdGJ
ZZZppJOe/02lgjxYkR9ly+N2xbZVZ170yiSb1O0cL/XNhG/1qk24/esm0Y7l
8l9+1IRSHrdUnQzf8nh12iJQw4HDqc2puj953Kq6ca6mmsOraIWKfTLcuZbf
jq3kcWtza7PDPF4RT7tnmhxOuWQGWPO4dfCGlCmPV0sNajbPvptJOm15PNrA
qhB0f77ZzuPtlj4tZqjezCFHbyXdEt/OAetwzSa8TVPrNYzDWfJWzcys7YE0
WBuk+orHW+u34cM4nCVRDTMTGjWi4X3MDBUeb32WNSyO4OxvbWCiacPZ/31M
j1E8ju3JHxbryL2X4qTsAzye2c+YF8Xj2LSMU3e2c/j17GFtEI9nDecuyvFx
K5ZaE5R/tJBo5H/YWBuYCYGONik8rsocGLCLw1MyU77QQ/V+MuxY49uLx9Xh
1fv7c3hKeo6Z7BSw4wmEzD1/jsfVDLN5y99xcbJmsnEaj3NPB32/yOObeuwW
l0Ecrm0YXfaJxzkj89i3UlwexVYnH+Vwk1i9fLhG/nss+O7c1cjj53fDO6c4
3CRF+0VuKzUfwrfdvT7y+LmYuhcv0d26C+L7uLyOAc2j3dQecbzj2Kahz397
1oG94phOHG6Sqx1CtT5yfMnW16V9Xy6PblI89gfyll03ImoNXt1rdi/DEffZ
h/tY4z7Ttc51DAppjrdqaM8YtMcK7fmJ53qG5/qK50pAP+xGP/igH0xG3TBY
PCFYtJfC7f7ozzXozxXoz5fo/+Xof4L+H4Xv68to4X0F4/tqje93IvV+32M8
qFLxcEB0VUtlcPN6MQLjKpqKK3OMwyKMQweMQ1+M25YYtw0Yt8+xn+ZJ9dPs
MP6DMP7fYfxnY75UUvlijvllSeWXMeZja8xHPczHcLnP0q5mzevdXUZeP2Xg
wDkGbkjdEnCmF+KMCuKMpJ92m+qn1SJeraXwaiviW2vEt5WIb60mCnh4B/Fw
IuKhA+LnS8TPI4ifir1/hu3xal7HtzBwuA5xWwdxewLi9hjEeRUK52dhXVDE
uvAS68J+rCO2WEfksI7QeS35rmHAuPcXj/XrIlW/dmO9U8J654/1rhrr4w6s
j7uxPi7FehqE9VQT66kd1t9vWH8rsP4G7pS+1ZnjOfTc8nBGHXfCuu9F1X1f
5AlJyBPuI09olyvwil/IKz4jr4hCHnIRechj5CExyFvc0A8G6AdD1KcyWMfj
0G92yMdo+yV9OU9Kp1z2bz+v+B942kUGL81AHpuKPDYeeewm5L3LKd57Y6R8
xwHjmvO9e8ifwyn+PBj5di7y7WXIt4OQn29Efr4Q+flj5PM1yOfnI5+X8H83
iv9/VHX6oBX/X545H/EtAHVEAeoIa9QRL1F3eKPuuIW6YyDqFHvUKTmoUyxR
18SjrilAXfMddVAppYMuoG46Q+mmINRZSqizIlBnyS7s++nqvgCdQxQf/hEq
6LVTqNdmoF47j/pOCfXdbNR3hagHyyg9eBH14xZKP0r0ppjSmxJ96o/6dAfq
0zDUs1dRz1qini1F/WuP+tcf9W9H1MtplF4eknvp7o60YJ03FM/XQz2eiXr8
Bupxe9Tv31C/T0P9vg31fh9K78tif0CM/YF92B+4j/2EQOwn9MB+QjH2Jeqp
voSkj3GS6mPcwr7HW+x7HMO+x2Hsk7SxEPokx7FP8h77Kiuwr2KHfZW7a2ec
tO5zTyeLmmebj32bT9i32Y99mxDs8wRSfZ5g7Atdo/pChthHSsc+UgL2keZi
38kO+05PsO/UiH2qxdin0sI+VcqJsFFF0tnk85QVw217x4KjvGppI4dXycJz
aK0vPHfA5zqM/29PAq7/ivs44Xp8Ttrq/7m/pC+0F/tCm7Ev9H+Fx6wi
    "]],
  Axes->True,
  BoxRatios->{1, 1, 0.4},
  ImageSize->{360., 287.9120701575579},
  Method->{"RotationControl" -> "Globe"},
  PlotRange->
   NCache[{{0, Pi}, {0, Pi}, {-0.9999999999999748, 0.9999999999999748}}, {{
     0, 3.141592653589793}, {0, 3.141592653589793}, {-0.9999999999999748, 
     0.9999999999999748}}],
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  ViewPoint->{1.3521286227278422`, -2.6637864613375504`, 1.5893363004710104`},
  ViewVertical->{0., 0., 1.}]], "Output",
 CellChangeTimes->{3.43092976378799*^9, 3.4337123196434045`*^9, 
  3.4337674854452095`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", " ", 
  RowBox[{
   RowBox[{"t", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{"-", 
      RowBox[{"t", "^", "2"}]}], "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "x"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], "-", 
  FractionBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     SuperscriptBox["x", "2"]}]], "2"]}]], "Output",
 CellChangeTimes->{3.4309297663903627`*^9, 3.4337123383309045`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", " ", 
  RowBox[{
   RowBox[{"t", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{"-", 
      RowBox[{"t", "^", "2"}]}], "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData["0.4908421805556334`"], "Output",
 CellChangeTimes->{3.4309297679527626`*^9, 3.4337123396746545`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input"],

Cell[BoxData[
 StyleBox[
  RowBox[{"2.", " ", "Defining", " ", "Functions"}], "Section"]], "Input",
 CellChangeTimes->{{3.4309320656621447`*^9, 3.4309320705026555`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "we", " ", "now", " ", "show", " ", "how", " ", "to", " ", "define", " ", 
    RowBox[{"functions", ".", " ", "We"}], " ", "use", " ", "underscore", " ",
     "by", " ", "the", " ", "variable", " ", "names"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"nthprime", "[", "n_", "]"}], " ", ":=", " ", 
    RowBox[{"Prime", "[", "n", "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"this", " ", "gives", " ", "the", " ", "nth", " ", "prime"}], " ", 
   "*)"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"nthprime", "[", "10", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nthprime", "[", "9", "]"}]}], "Input"],

Cell[BoxData["29"], "Output",
 CellChangeTimes->{3.4309297738176217`*^9, 3.4337123582996545`*^9, 
  3.4337675108670845`*^9}],

Cell[BoxData["23"], "Output",
 CellChangeTimes->{3.4309297738176217`*^9, 3.4337123582996545`*^9, 
  3.4337675108827095`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"diffnthprime", "[", "n_", "]"}], " ", ":=", " ", 
    RowBox[{
     RowBox[{"nthprime", "[", "n", "]"}], " ", "-", " ", 
     RowBox[{"nthprime", "[", 
      RowBox[{"n", "-", "1"}], "]"}]}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"this", " ", "gives", " ", "the", " ", "difference", " ", 
    RowBox[{"b", "/", "w"}], " ", "the", " ", "nth", " ", "and", " ", 
    RowBox[{"(", 
     RowBox[{"n", "-", "1"}], ")"}], "st", " ", "prime"}], " ", 
   "*)"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"diffnthprime", "[", "10", "]"}]], "Input"],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{3.4309298973946733`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"powersum", "[", 
   RowBox[{"n_", ",", "k_"}], "]"}], " ", ":=", " ", 
  RowBox[{"Sum", "[", " ", 
   RowBox[{
    RowBox[{"i", "^", "k"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"powersum", "[", 
  RowBox[{"100", ",", "2"}], "]"}]], "Input"],

Cell[BoxData["338350"], "Output",
 CellChangeTimes->{
  3.4309299009247203`*^9, {3.4337123702996545`*^9, 3.4337123817215295`*^9}, 
   3.4337675199295845`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "we", " ", "now", " ", "show", " ", "how", " ", "to", " ", "define", " ", 
     RowBox[{"functions", ".", " ", "We"}], " ", "use", " ", "underscore", 
     " ", "by", " ", "the", " ", "variable", " ", "names"}], ",", " ", 
    RowBox[{
    "and", " ", "then", " ", "Module", " ", "followed", " ", "by", " ", 
     RowBox[{"braces", ".", " ", "Whatever"}], " ", "is", " ", "inside", " ", 
     "the", " ", "braces", " ", "are", " ", "local", " ", "variables"}], ",", 
    " ", 
    RowBox[{
    "known", " ", "only", " ", "to", " ", "this", " ", "procedure", " ", "or",
      " ", 
     RowBox[{"function", ".", " ", "If"}], " ", "we", " ", "write", " ", 
     "something", " ", "equals", " ", 
     RowBox[{"{", "}"}], " ", "then", " ", 
     RowBox[{"we", "'"}], "ve", " ", "initialized", " ", "it", " ", "to", " ",
      "be", " ", "the", " ", "empty", " ", 
     RowBox[{"array", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
       "this", " ", "function", " ", "counts", " ", "the", " ", "number", " ",
         "of", " ", "solutions", " ", "to", " ", 
        RowBox[{"x", "^", "2"}]}], " ", "+", " ", 
       RowBox[{"y", "^", "2"}]}], " ", "=", " ", 
      RowBox[{"a", " ", "modulo", " ", "n"}]}], ";", " ", 
     RowBox[{"it", " ", "has", " ", "two", " ", "inputs"}]}], ",", " ", 
    RowBox[{"n", " ", "and", " ", 
     RowBox[{"a", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "we", " ", "find", " ", "all", " ", "solutions", " ", "and", " ", 
      "store", " ", "it", " ", "in", " ", "an", " ", "array"}], ";", " ", 
     RowBox[{
     "as", " ", "we", " ", "want", " ", "to", " ", "be", " ", "able", " ", 
      "to", " ", "access", " ", "this", " ", "array", " ", "afterwards"}]}], 
    ",", " ", 
    RowBox[{
    "we", " ", "do", " ", "not", " ", "have", " ", "it", " ", "as", " ", "a", 
     " ", "local", " ", "but", " ", "rather", " ", "global", " ", 
     "variable"}], ",", " ", "ie", ",", " ", 
    RowBox[{
    "not", " ", "inside", " ", "the", " ", "braces", " ", "inside", " ", 
     "the", " ", 
     RowBox[{"module", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"NumSolns", "[", 
     RowBox[{"n_", ",", "a_"}], "]"}], " ", ":=", " ", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x", ",", "y", ",", "count"}], "}"}], ",", " ", 
      RowBox[{"(*", " ", 
       RowBox[{
       "we", " ", "put", " ", "the", " ", "local", " ", "variables", " ", 
        "in", " ", "braces", " ", "after", " ", "module"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<We are looking for solutions to x^2 + y^2 = \>\"", ",", " ", "a",
          ",", " ", "\"\< mod \>\"", ",", " ", "n", ",", " ", "\"\<.\>\""}], 
        "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"count", " ", "=", " ", "0"}], ";", " ", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"we", " ", "initialize", " ", "count"}], ",", " ", 
         RowBox[{"the", " ", "number", " ", "of", " ", "solns"}], ",", " ", 
         RowBox[{"to", " ", "zero"}]}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"Clear", "[", "ListOfSolns", "]"}], ";", " ", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{
         "if", " ", "we", " ", "had", " ", "used", " ", "ListOfSolns", " ", 
          "before"}], ",", " ", 
         RowBox[{"this", " ", "clears", " ", "it"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"ListOfSolns", " ", "=", " ", 
        RowBox[{"{", "}"}]}], ";", " ", 
       RowBox[{"(*", " ", 
        RowBox[{
        "we", " ", "set", " ", "ListOfSolns", " ", "to", " ", "the", " ", 
         "empty", " ", "array"}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"For", " ", "[", 
        RowBox[{
         RowBox[{"x", " ", "=", " ", "0"}], ",", " ", 
         RowBox[{"x", " ", "\[LessEqual]", "   ", 
          RowBox[{"n", "-", "1"}]}], ",", " ", 
         RowBox[{"x", "++"}], ",", " ", 
         RowBox[{"(*", " ", 
          RowBox[{
          "how", " ", "we", " ", "do", " ", "a", " ", "for", " ", "loop"}], 
          " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"{", "  ", 
          RowBox[{"(*", " ", 
           RowBox[{
           "starting", " ", "brace", " ", "of", " ", "the", " ", "for", " ", 
            "loop"}], " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", " ", "[", 
            RowBox[{
             RowBox[{"y", " ", "=", " ", "0"}], ",", " ", 
             RowBox[{"y", "\[LessEqual]", " ", 
              RowBox[{"n", "-", "1"}]}], ",", " ", 
             RowBox[{"y", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"If", "[", " ", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Mod", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"x", "^", "2"}], " ", "+", " ", 
                    RowBox[{"y", "^", "2"}], " ", "-", " ", "a"}], ",", "n"}],
                    "]"}], " ", "\[Equal]", "  ", "0"}], ",", " ", 
                 "\[IndentingNewLine]", 
                 RowBox[{"{", " ", "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"Print", "[", 
                    RowBox[{
                    "\"\<We found a solution: (x,y) = (\>\"", ",", " ", "x", 
                    ",", " ", "\"\<, \>\"", ",", " ", "y", ",", " ", 
                    "\"\<).\>\""}], "]"}], ";", " ", 
                   RowBox[{"(*", " ", 
                    RowBox[{
                    "prints", " ", "the", " ", "found", " ", "solution"}], 
                    " ", "*)"}], "\[IndentingNewLine]", " ", 
                   RowBox[{"count", " ", "=", " ", 
                    RowBox[{"count", "+", "1"}]}], ";", " ", 
                   RowBox[{"(*", " ", 
                    RowBox[{
                    "increases", " ", "count", " ", "by", " ", "1", " ", "to",
                     " ", "indicate", " ", "found", " ", "a", " ", "soln"}], 
                    " ", "*)"}], "\[IndentingNewLine]", 
                   RowBox[{"ListOfSolns", " ", "=", " ", 
                    RowBox[{"Append", "[", 
                    RowBox[{"ListOfSolns", ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], ";"}], " ", 
                  RowBox[{"(*", " ", 
                   RowBox[{
                   "adds", " ", "to", " ", "list", " ", "of", " ", "solns"}], 
                   " ", "*)"}], "\[IndentingNewLine]", "}"}]}], 
                "\[IndentingNewLine]", "]"}], ";"}], " ", 
              RowBox[{"(*", " ", 
               RowBox[{"end", " ", "of", " ", "If", " ", "loop"}], " ", 
               "*)"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";"}], " ", 
          RowBox[{"(*", " ", 
           RowBox[{"end", " ", "of", " ", "y", " ", "For", " ", "loop"}], " ",
            "*)"}], "\[IndentingNewLine]", "}"}]}], " ", "]"}], ";", 
       RowBox[{"(*", " ", 
        RowBox[{"end", " ", "of", " ", "x", " ", "For", " ", "loop"}], " ", 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<The number of solutions when the modulus = \>\"", ",", " ", "n", 
         ",", " ", "\"\<, a = \>\"", ",", " ", "a", ",", " ", 
         "\"\< is equal to \>\"", ",", " ", "count"}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<The solutions are \>\"", ",", " ", "ListOfSolns", ",", " ", 
         "\"\<.\>\""}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.4309299423078136`*^9, 3.4309299670708776`*^9}, {
  3.4309299978960533`*^9, 3.4309300154544992`*^9}, {3.4337124399715295`*^9, 
  3.4337124424715295`*^9}, {3.4337675573827095`*^9, 3.4337675591795845`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
      "we", " ", "compile", " ", "the", " ", "above", " ", "when", " ", "n"}],
       "=", 
      RowBox[{
       RowBox[{"5", " ", "and", " ", "a"}], "=", "1"}]}], ";", " ", 
     RowBox[{
     "since", " ", "count", " ", "is", " ", "a", " ", "local", " ", 
      "variable"}]}], ",", " ", 
    RowBox[{
     RowBox[{
     "when", " ", "we", " ", "print", " ", "count", " ", "AFTER", " ", 
      "running", " ", "the", " ", "program", " ", "it", " ", "is", " ", "not",
       " ", "related", " ", "to", " ", "the", " ", "value", " ", "from", " ", 
      "the", " ", "program"}], ";", " ", "however"}], ",", " ", 
    RowBox[{
    "the", " ", "value", " ", "of", " ", "ListOfSolns", " ", "IS", " ", 
     "related", " ", "to", " ", "its", " ", "value", " ", "from", " ", 
     "running", " ", "the", " ", 
     RowBox[{"program", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"NumSolns", "[", 
   RowBox[{"5", ",", "1"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4309300190792675`*^9, 3.4309300195597057`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"We are looking for solutions to x^2 + y^2 = \"\>", 
   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" mod \"\>", 
   "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "We are looking for solutions to x^2 + y^2 = ", 1, " mod ", 5, "."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.430929919971353*^9, {3.4309299696742263`*^9, 3.4309299873098164`*^9}, 
   3.4309300205479236`*^9, 3.4337124827059045`*^9, 3.4337675752420845`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"We found a solution: (x,y) = (\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\").\"\>"}],
  SequenceForm["We found a solution: (x,y) = (", 0, ", ", 1, ")."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.430929919971353*^9, {3.4309299696742263`*^9, 3.4309299873098164`*^9}, 
   3.4309300205479236`*^9, 3.4337124827059045`*^9, 3.4337675752577095`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"We found a solution: (x,y) = (\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\").\"\>"}],
  SequenceForm["We found a solution: (x,y) = (", 0, ", ", 4, ")."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.430929919971353*^9, {3.4309299696742263`*^9, 3.4309299873098164`*^9}, 
   3.4309300205479236`*^9, 3.4337124827059045`*^9, 3.4337675752889595`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"We found a solution: (x,y) = (\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\").\"\>"}],
  SequenceForm["We found a solution: (x,y) = (", 1, ", ", 0, ")."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.430929919971353*^9, {3.4309299696742263`*^9, 3.4309299873098164`*^9}, 
   3.4309300205479236`*^9, 3.4337124827059045`*^9, 3.4337675753045845`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"We found a solution: (x,y) = (\"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\").\"\>"}],
  SequenceForm["We found a solution: (x,y) = (", 4, ", ", 0, ")."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.430929919971353*^9, {3.4309299696742263`*^9, 3.4309299873098164`*^9}, 
   3.4309300205479236`*^9, 3.4337124827059045`*^9, 3.4337675753202095`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"The number of solutions when the modulus = \"\>", 
   "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\", a = \"\>", 
   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" is equal to \"\>", 
   "\[InvisibleSpace]", "4"}],
  SequenceForm[
  "The number of solutions when the modulus = ", 5, ", a = ", 1, 
   " is equal to ", 4],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.430929919971353*^9, {3.4309299696742263`*^9, 3.4309299873098164`*^9}, 
   3.4309300205479236`*^9, 3.4337124827059045`*^9, 3.4337675753358345`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"The solutions are \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "0"}], "}"}]}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm["The solutions are ", {{0, 1}, {0, 4}, {1, 0}, {4, 0}}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.430929919971353*^9, {3.4309299696742263`*^9, 3.4309299873098164`*^9}, 
   3.4309300205479236`*^9, 3.4337124827059045`*^9, 3.4337675753670845`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ListOfSolns", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "this", " ", "access", " ", "the", " ", "first", " ", "entry", " ", "of", 
     " ", "the", " ", "soln"}], ",", " ", 
    RowBox[{"a", " ", "pair"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ListOfSolns", "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "accesses", " ", "the", " ", "first", " ", "entry", " ", "of", " ", "the", 
    " ", "first", " ", "entry", " ", "of", " ", "the", " ", "solns"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ListOfSolns", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"same", " ", "as", " ", "above"}], ",", " ", 
    RowBox[{"alternate", " ", "way", " ", "to", " ", "access", " ", "it"}]}], 
   " ", "*)"}]}]}], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.4309300249421735`*^9, 3.4337675819920845`*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.4309300249421735`*^9, 3.4337675820233345`*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.4309300249421735`*^9, 3.4337675820389595`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input"],

Cell[BoxData[
 StyleBox[
  RowBox[{"3.", " ", "Making", " ", "Histograms"}], "Section"]], "Input",
 CellChangeTimes->{{3.430932108158448*^9, 3.4309321110879483`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "we", " ", "first", " ", "load", " ", "in", " ", "some", " ", "packages", 
    " ", "to", " ", "do", " ", "histograms"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"if", " ", "you", " ", "write", " ", 
    RowBox[{"Options", "[", "something", "]"}], " ", "it", " ", "gives", " ", 
    "you", " ", "the", " ", "various", " ", "options", " ", "for", " ", 
    RowBox[{"what", "'"}], "s", " ", "inside"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"<<", "\"\<BarCharts`\>\""}], ";", 
    RowBox[{"<<", "\"\<Histograms`\>\""}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{"<<", "\"\<PieCharts`\>\""}], "\[IndentingNewLine]", 
   RowBox[{"Options", "[", "Histogram", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.43093023824981*^9, 3.4309302643760676`*^9}, {
  3.4309304187919655`*^9, 3.4309304418061175`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ApproximateIntervals", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"BarEdges", "\[Rule]", "True"}], ",", 
   RowBox[{"BarEdgeStyle", "\[Rule]", 
    RowBox[{"GrayLevel", "[", "0", "]"}]}], ",", 
   RowBox[{"BarOrientation", "\[Rule]", "Vertical"}], ",", 
   RowBox[{"BarStyle", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"FrequencyData", "\[Rule]", "False"}], ",", 
   RowBox[{"HistogramCategories", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"HistogramRange", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"HistogramScale", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"AlignmentPoint", "\[Rule]", "Center"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", 
    FractionBox["1", "GoldenRatio"]}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"Background", "\[Rule]", "None"}], ",", 
   RowBox[{"BaselinePosition", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"ColorOutput", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ContentSelectable", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "False"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"FrameTicks", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"FrameTicksStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"GridLines", "\[Rule]", "None"}], ",", 
   RowBox[{"GridLinesStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"ImageMargins", "\[Rule]", "0.`"}], ",", 
   RowBox[{"ImagePadding", "\[Rule]", "All"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"Method", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"PlotRangeClipping", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRangePadding", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotRegion", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PreserveImageOptions", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Prolog", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"RotateLabel", "\[Rule]", "True"}], ",", 
   RowBox[{"Ticks", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"TicksStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"DisplayFunction", "\[RuleDelayed]", "$DisplayFunction"}], ",", 
   RowBox[{"FormatType", "\[RuleDelayed]", "TraditionalForm"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.430930424067995*^9, 3.4309304432318077`*^9}, 
   3.4337125075965295`*^9, 3.4337676294920845`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"UniformDiff", "[", "numdo_", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "i", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ValueList", "=", 
        RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"DiffList", "=", 
        RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "we", " ", "first", " ", "put", " ", "in", " ", "ValueList", " ", "a",
          " ", "total", " ", "of", " ", "numdo", " ", "random", " ", 
         "numbers", " ", "uniformly", " ", "distributed", " ", 
         RowBox[{"on", " ", "[", 
          RowBox[{"0", ",", "1"}], "]"}]}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"i", "=", "1"}], ",", 
         RowBox[{"i", "\[LessEqual]", "numdo"}], ",", 
         RowBox[{"i", "++"}], ",", 
         RowBox[{
          RowBox[{"ValueList", "=", 
           RowBox[{"Append", "[", 
            RowBox[{"ValueList", ",", 
             RowBox[{"RandomReal", "[", "]"}]}], "]"}]}], ";"}]}], "]"}], ";",
        "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"we", " ", "now", " ", "sort", " ", "that", " ", "list"}], 
        " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"ValueList", "=", 
        RowBox[{"Sort", "[", "ValueList", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "we", " ", "form", " ", "a", " ", "new", " ", "list", " ", "of", " ", 
         "differences", " ", "of", " ", "adjacent", " ", "sorted", " ", 
         RowBox[{"elements", ".", " ", "Nice"}], " ", "theorem", " ", "that", 
         " ", "this", " ", "converges", " ", "to", " ", "an", " ", 
         "exponential", " ", "distribution"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"i", "=", "1"}], ",", 
         RowBox[{"i", "\[LessEqual]", 
          RowBox[{"numdo", "-", "1"}]}], ",", 
         RowBox[{"i", "++"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"DiffList", "=", 
            RowBox[{"Append", "[", 
             RowBox[{"DiffList", ",", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"ValueList", "\[LeftDoubleBracket]", 
                  RowBox[{"i", "+", "1"}], "\[RightDoubleBracket]"}], "-", 
                 RowBox[{
                 "ValueList", "\[LeftDoubleBracket]", "i", 
                  "\[RightDoubleBracket]"}]}], ")"}], " ", "numdo"}]}], 
             "]"}]}], ";"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "we", " ", "first", " ", "print", " ", "a", " ", "standard", " ", 
         "histogram"}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{
         "must", " ", "remember", " ", "to", " ", "surround", " ", "command", 
          " ", "with", " ", "print", " ", "inside", " ", "a", " ", "module"}],
          ",", " ", 
         RowBox[{
          RowBox[{"don", "'"}], "t", " ", "need", " ", "print", " ", "if", 
          " ", "at", " ", "the", " ", "prompt"}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"Histogram", "[", "DiffList", "]"}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";", " ", 
       RowBox[{"(*", " ", 
        RowBox[{"generates", " ", "blank", " ", "line"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"we", " ", "reprint", " ", "the", " ", "histogram"}], ",", 
         " ", 
         RowBox[{
          RowBox[{"with", " ", "the", " ", "y"}], "-", 
          RowBox[{
          "axis", " ", "scaled", " ", "so", " ", "that", " ", "the", " ", 
           "total", " ", "area", " ", "is", " ", "1"}]}]}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"Histogram", "[", 
         RowBox[{"DiffList", ",", 
          RowBox[{"HistogramScale", "\[Rule]", "1"}], ",", 
          RowBox[{
          "PlotLabel", " ", "\[Rule]", " ", 
           "\"\<Differences b/w Order Statistics of Unif Distr RVs\>\""}], 
          ",", " ", 
          RowBox[{"AxesLabel", " ", "\[Rule]", " ", 
           RowBox[{"{", 
            RowBox[{"difference", ",", " ", "percentage"}], "}"}]}]}], "]"}], 
        "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"end", " ", "of", " ", "module"}], " ", "*)"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.4309300302992525`*^9, 3.4309300370800686`*^9}, {
  3.4309301194888563`*^9, 3.430930120267127*^9}, {3.430930234388729*^9, 
  3.430930415408393*^9}, {3.430930446020692*^9, 3.430930465834853*^9}, {
  3.4309307323090086`*^9, 3.430930858520657*^9}, {3.4309309027561073`*^9, 
  3.4309309263044043`*^9}, {3.430931033017301*^9, 3.430931056335144*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"UniformDiff", "[", "1000", "]"}], "\[IndentingNewLine]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {0.25, 219}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{0.25, 0}, {0.5, 172}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{0.5, 0}, {0.75, 130}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{0.75, 0}, {1., 112}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{1., 0}, {1.25, 90}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{1.25, 0}, {1.5, 60}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{1.5, 0}, {1.75, 44}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{1.75, 0}, {2., 46}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{2., 0}, {2.25, 20}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{2.25, 0}, {2.5, 21}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{2.5, 0}, {2.75, 19}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{2.75, 0}, {3., 13}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{3., 0}, {3.25, 12}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{3.25, 0}, {3.5, 10}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{3.5, 0}, {3.75, 5}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{3.75, 0}, {4., 3}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{4., 0}, {4.25, 10}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{4.25, 0}, {4.5, 1}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{4.5, 0}, {4.75, 3}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{4.75, 0}, {5., 2}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{5., 0}, {5.25, 1}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{5.25, 0}, {5.5, 1}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{5.5, 0}, {5.75, 1}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{5.75, 0}, {6., 0}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{6., 0}, {6.25, 0}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{6.25, 0}, {6.5, 1}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{6.5, 0}, {6.75, 1}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{6.75, 0}, {7., 0}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{7., 0}, {7.25, 0}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{7.25, 0}, {7.5, 1}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{7.5, 0}, {7.75, 1}]}},
  AlignmentPoint->Center,
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->None,
  AxesOrigin->{0., 0},
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  DisplayFunction:>$DisplayFunction,
  Epilog->{},
  FormatType:>TraditionalForm,
  Frame->False,
  FrameLabel->None,
  FrameStyle->{},
  FrameTicks->Automatic,
  FrameTicksStyle->{},
  GridLines->None,
  GridLinesStyle->{},
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  LabelStyle->{},
  Method->Automatic,
  PlotLabel->None,
  PlotRange->{{0., 7.75}, All},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotateLabel->True,
  Ticks->{{{0., 
      FormBox["0", TraditionalForm]}, {2., 
      FormBox["2", TraditionalForm]}, {4., 
      FormBox["4", TraditionalForm]}, {6., 
      FormBox["6", TraditionalForm]}}, Automatic},
  TicksStyle->{}]], "Print",
 CellChangeTimes->{
  3.4309304008517075`*^9, 3.4309304679519053`*^9, 3.4309307487688923`*^9, {
   3.430930782488414*^9, 3.4309308393334084`*^9}, 3.4309309287495604`*^9, 
   3.430931058969742*^9, 3.4337126145652795`*^9, 3.4337676620702095`*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.4309304008517075`*^9, 3.4309304679519053`*^9, 3.4309307487688923`*^9, {
   3.430930782488414*^9, 3.4309308393334084`*^9}, 3.4309309287495604`*^9, 
   3.430931058969742*^9, 3.4337126145652795`*^9, 3.4337676620858345`*^9}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{0., 0}, {0.25, 0.8768768768768769}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{0.25, 0}, {0.5, 0.6886886886886887}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{0.5, 0}, {0.75, 0.5205205205205206}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{0.75, 0}, {1., 0.44844844844844844`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{1., 0}, {1.25, 0.36036036036036034`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{1.25, 0}, {1.5, 0.24024024024024024`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{1.5, 0}, {1.75, 0.17617617617617617`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{1.75, 0}, {2., 0.1841841841841842}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{2., 0}, {2.25, 0.08008008008008008}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{2.25, 0}, {2.5, 0.08408408408408409}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{2.5, 0}, {2.75, 0.07607607607607608}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{2.75, 0}, {3., 0.05205205205205205}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{3., 0}, {3.25, 0.04804804804804805}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{3.25, 0}, {3.5, 0.04004004004004004}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{3.5, 0}, {3.75, 0.02002002002002002}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{3.75, 0}, {4., 0.012012012012012012`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{4., 0}, {4.25, 0.04004004004004004}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{4.25, 0}, {4.5, 0.004004004004004004}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{4.5, 0}, {4.75, 0.012012012012012012`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{4.75, 0}, {5., 0.008008008008008008}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{5., 0}, {5.25, 0.004004004004004004}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{5.25, 0}, {5.5, 0.004004004004004004}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{5.5, 0}, {5.75, 0.004004004004004004}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{5.75, 0}, {6., 0}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{6., 0}, {6.25, 0}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{6.25, 0}, {6.5, 0.004004004004004004}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{6.5, 0}, {6.75, 0.004004004004004004}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{6.75, 0}, {7., 0}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{7., 0}, {7.25, 0}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{7.25, 0}, {7.5, 0.004004004004004004}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{7.5, 0}, {7.75, 0.004004004004004004}]}},
  AlignmentPoint->Center,
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["difference", TraditionalForm], 
    FormBox["percentage", TraditionalForm]},
  AxesOrigin->{0., 0},
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  DisplayFunction:>$DisplayFunction,
  Epilog->{},
  FormatType:>TraditionalForm,
  Frame->False,
  FrameLabel->None,
  FrameStyle->{},
  FrameTicks->Automatic,
  FrameTicksStyle->{},
  GridLines->None,
  GridLinesStyle->{},
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  LabelStyle->{},
  Method->Automatic,
  PlotLabel->FormBox[
   "\"Differences b/w Order Statistics of Unif Distr RVs\"", TraditionalForm],
  PlotRange->{{0., 7.75}, All},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotateLabel->True,
  Ticks->{{{0., 
      FormBox["0", TraditionalForm]}, {2., 
      FormBox["2", TraditionalForm]}, {4., 
      FormBox["4", TraditionalForm]}, {6., 
      FormBox["6", TraditionalForm]}}, Automatic},
  TicksStyle->{}]], "Print",
 CellChangeTimes->{
  3.4309304008517075`*^9, 3.4309304679519053`*^9, 3.4309307487688923`*^9, {
   3.430930782488414*^9, 3.4309308393334084`*^9}, 3.4309309287495604`*^9, 
   3.430931058969742*^9, 3.4337126145652795`*^9, 3.4337676621639595`*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input"],

Cell[BoxData[
 StyleBox[
  RowBox[{
  "4.", " ", "Probability", " ", "Distributions", " ", "and", " ", 
   "Plotting"}], "Section"]], "Input",
 CellChangeTimes->{{3.4309321998996468`*^9, 3.430932234721637*^9}}],

Cell[BoxData["\"\<In older versions of Mathematica we would type \
<<Statistics`ContinuousDistributions` to load in some continuous \
distributions, but in verison 6 seems like we're okay.\>\""], "Input",
 CellChangeTimes->{{3.4309301902177277`*^9, 3.4309302151975746`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"gdist", " ", "=", " ", 
  RowBox[{"NormalDistribution", "[", 
   RowBox[{"0", ",", "1"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"NormalDistribution", "[", 
  RowBox[{"0", ",", "1"}], "]"}]], "Output",
 CellChangeTimes->{3.4309301704777803`*^9, 3.430930476693533*^9, 
  3.4337126506434045`*^9, 3.4337676906639595`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NN", " ", "=", " ", 
  RowBox[{"MatrixForm", "[", "  ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Random", "[", "gdist", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"m", ",", " ", "4"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"n", ",", "4"}], "}"}]}], " ", "]"}], "  ", "]"}]}]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.11533949221107019`", "1.2506442583587043`", "0.6678736596240835`", 
      RowBox[{"-", "0.08560497159827533`"}]},
     {
      RowBox[{"-", "0.598427588262866`"}], "0.015667052297393715`", 
      RowBox[{"-", "1.0200780232704563`"}], 
      RowBox[{"-", "1.2479148886248295`"}]},
     {
      RowBox[{"-", "0.22476512566477477`"}], "0.7706420634376775`", 
      RowBox[{"-", "0.3245097006350134`"}], 
      RowBox[{"-", "0.7525213899461227`"}]},
     {
      RowBox[{"-", "2.069531056169281`"}], 
      RowBox[{"-", "1.65100927045129`"}], 
      RowBox[{"-", "1.5193237027901372`"}], 
      RowBox[{"-", "0.14641110613317873`"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.430930172107559*^9, 3.430930477493286*^9, 
  3.4337126567684045`*^9, 3.4337676916952095`*^9}]
}, Open  ]],

Cell[BoxData["\"\<This allows us to load in a statistics package and generate \
matrices with entries from a normal distribution. Watch what happens to the \
entries as we change the standard deviation.\>\""], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"gdist2", " ", "=", " ", 
  RowBox[{"NormalDistribution", "[", 
   RowBox[{"0", ",", "10"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"NormalDistribution", "[", 
  RowBox[{"0", ",", "10"}], "]"}]], "Output",
 CellChangeTimes->{3.430930479956996*^9, 3.4337126599246545`*^9, 
  3.4337676967577095`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NN", " ", "=", " ", 
  RowBox[{"MatrixForm", "[", "  ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Random", "[", "gdist2", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"m", ",", "4"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"n", ",", "4"}], "}"}]}], " ", "]"}], "  ", "]"}]}]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "19.348570375738422`"}], "13.864375259688298`", 
      "10.75769247162021`", 
      RowBox[{"-", "0.4849270507840933`"}]},
     {
      RowBox[{"-", "3.2284086369223823`"}], "10.33479853066577`", 
      "17.900067228685728`", 
      RowBox[{"-", "9.056360727187146`"}]},
     {
      RowBox[{"-", "9.089668527654373`"}], "21.551859689849948`", 
      RowBox[{"-", "12.797157151860999`"}], "11.012009014635588`"},
     {"16.775353259634734`", "11.324097691747737`", "2.269919469354842`", 
      "3.3506057104605804`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.43093048096865*^9, 3.4337126624715295`*^9, {3.4337676982420845`*^9, 
   3.4337677189764595`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Det", "[", "NN", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Det", "[", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", "19.348570375738422`"}], "13.864375259688298`", 
       "10.75769247162021`", 
       RowBox[{"-", "0.4849270507840933`"}]},
      {
       RowBox[{"-", "3.2284086369223823`"}], "10.33479853066577`", 
       "17.900067228685728`", 
       RowBox[{"-", "9.056360727187146`"}]},
      {
       RowBox[{"-", "9.089668527654373`"}], "21.551859689849948`", 
       RowBox[{"-", "12.797157151860999`"}], "11.012009014635588`"},
      {"16.775353259634734`", "11.324097691747737`", "2.269919469354842`", 
       "3.3506057104605804`"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], "]"}]], "Output",
 CellChangeTimes->{3.430930481908043*^9, 3.4337126633152795`*^9, 
  3.4337677202577095`*^9}]
}, Open  ]],

Cell[BoxData["\"\<Notice we do NOT get the determinant. The problem is that \
NN is NOT a matrix, but a DISPLAYED matrix.\>\""], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NNN", " ", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Random", "[", "gdist2", "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"m", ",", "4"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", "4"}], "}"}]}], " ", "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "15.18869362463745`"}], ",", 
     RowBox[{"-", "3.40351159167747`"}], ",", 
     RowBox[{"-", "20.864804183028316`"}], ",", 
     RowBox[{"-", "4.479879963978409`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12.658536287768671`", ",", "5.969467435624362`", ",", 
     RowBox[{"-", "19.632950906719497`"}], ",", "2.4122960386464674`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.971124507049472`"}], ",", "11.354571420348204`", ",", 
     "0.6754206035513004`", ",", "0.23835397922032778`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.2568767774692992`"}], ",", 
     RowBox[{"-", "6.193962090805949`"}], ",", 
     RowBox[{"-", "2.2729420819337682`"}], ",", 
     RowBox[{"-", "1.9298370305341803`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.430930487329571*^9, 3.4337126863152795`*^9, 
  3.4337677356014595`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Det", "[", "NNN", "]"}]], "Input"],

Cell[BoxData["8596.9183263781`"], "Output",
 CellChangeTimes->{3.4309304907268143`*^9, 3.4337126872059045`*^9, 
  3.4337677384139595`*^9}]
}, Open  ]],

Cell[BoxData["\"\<To define a function, one needs to do an underscore after \
each variable, and := instead of =\>\""], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{"x", " ", "+", " ", "y"}], "]"}], " ", "*", " ", 
   RowBox[{"z", "^", "2"}]}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"1", ",", "2", ",", "3"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"9", " ", 
  RowBox[{"Sin", "[", "3", "]"}]}]], "Output",
 CellChangeTimes->{3.4309304949550595`*^9}]
}, Open  ]],

Cell[BoxData["\"\<To get numerical values, one can use 1.0 instead of \
1\>\""], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"1.0", ",", "2", ",", "3"}], "]"}]], "Input"],

Cell[BoxData["1.2700800725388048`"], "Output",
 CellChangeTimes->{3.4309304967420545`*^9}]
}, Open  ]],

Cell[BoxData["\"\<you can do multiple statements on one line if you separate \
with a semi-colon. Only the output of the last is displayed. Here, g[n] is \
the nth prime number.\>\""], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "n_", "]"}], " ", ":=", " ", 
  RowBox[{"Prime", "[", "n", "]"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", "2", "]"}], ";", "  ", 
   RowBox[{"g", "[", "3", "]"}]}], "  "}], "\[IndentingNewLine]", 
 RowBox[{"g", "[", "4", "]"}]}], "Input"],

Cell[BoxData["5"], "Output",
 CellChangeTimes->{3.430930500763282*^9}],

Cell[BoxData["7"], "Output",
 CellChangeTimes->{3.4309305007769527`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"G", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"Sum", "[", " ", 
   RowBox[{"n", ",", " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", 
      RowBox[{"Floor", "[", "x", "]"}]}], "}"}]}], "]"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{"G", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{1.0000001836734693`, 1.}, {1.0883290672436214`, 1.}, {
      1.1766579508137736`, 1.}, {1.3681752137691279`, 1.}, {
      1.5470009521313688`, 1.}, {1.7223188393698843`, 1.}, {1.817407530896667,
       1.}, {1.9124962224234499`, 1.}, {1.9346819547310066`, 1.}, {
      1.956867687038563, 1.}, {1.9679605531923414`, 1.}, {1.9790534193461196`,
       1.}, {1.9845998524230088`, 1.}, {1.990146285499898, 1.}, {
      1.9929195020383426`, 1.}, {1.995692718576787, 1.}, {1.9971301020408163`,
       1.}}], LineBox[{{2.0028698979591835`, 3.}, {2.0456106162687893`, 3.}, {
      2.0899820808839022`, 3.}, {2.1861547580216536`, 3.}, {
      2.2823274351594045`, 3.}, {2.4711649383111816`, 3.}, {
      2.6473109168698454`, 3.}, {2.742813654056702, 3.}, {2.838316391243559, 
      3.}, {2.882894878688709, 3.}, {2.9274733661338592`, 3.}, {
      2.9497626098564345`, 3.}, {2.9720518535790097`, 3.}, {
      2.9831964754402973`, 3.}, {2.994341097301585, 3.}, {2.997127252766907, 
      3.}, {2.9971301020408165`, 3.}}], 
     LineBox[{{3.0028698979591835`, 6.}, {3.0054857191628725`, 6.}, {
      3.0110580300935164`, 6.}, {3.0166303410241597`, 6.}, {
      3.1040333903525976`, 6.}, {3.191436439681035, 6.}, {3.3811020341529603`,
       6.}, {3.5580761040317723`, 6.}, {3.749909669725634, 6.}, {
      3.8440725270107023`, 6.}, {3.938235384295771, 6.}, {3.960189658042899, 
      6.}, {3.9821439317900267`, 6.}, {3.987632500226809, 6.}, {
      3.9931210686635907`, 6.}, {3.9958653528819816`, 6.}, {
      3.9971301020408165`, 6.}}], 
     LineBox[{{4.002869897959184, 10.}, {4.004098205537154, 10.}, {
      4.015075342410718, 10.}, {4.0260524792842824`, 10.}, {4.069961026778538,
       10.}, {4.113869574272794, 10.}, {4.209116417168831, 10.}, {
      4.304363260064868, 10.}, {4.482165421263828, 10.}, {4.674827078277839, 
      10.}, {4.769403981222982, 10.}, {4.863980884168124, 10.}, {
      4.9080964544924175`, 10.}, {4.95221202481671, 10.}, {4.974269809978856, 
      10.}, {4.996327595141002, 10.}, {4.997130102040816, 10.}}], 
     LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQPbdpevAHJhEHBjDQc1hzNHv1VhYEn29HR2kHO4J/
ac4hTj1eBH9a45+5l4UQfDnvgmNycgj+UpEn7zI1Efyv9cV34roRfNfXTKeC
3yL4ExpCF9stEYXz16088GZiuBic/0mAr0tGShzOf7X4XPijEgT/oVm/6orz
CL5SbmvIl9sIfsri6maHFwh+y75vs9LeIfhLbxZu6vmC4Jul6++b/x3BP/bl
zclNvxD85NqMNfx/EXwAN7ZWGQ==
      "]], 
     LineBox[{{6.002869897959184, 21.}, {6.024846066981901, 21.}, {
      6.048864800535948, 21.}, {6.09690226764404, 21.}, {6.144939734752133, 
      21.}, {6.239260743406455, 21.}, {6.333581752060778, 21.}, {
      6.509532244776309, 21.}, {6.70034223330689, 21.}, {6.789401465275624, 
      21.}, {6.878460697244359, 21.}, {6.922113350447795, 21.}, {
      6.96576600365123, 21.}, {6.9766791669520885`, 21.}, {6.987592330252948, 
      21.}, {6.993048911903378, 21.}, {6.997130102040816, 21.}}], 
     LineBox[{{7.002869897959184, 28.}, {7.003962075204235, 28.}, {
      7.00669036602945, 28.}, {7.009418656854665, 28.}, {7.031244983456383, 
      28.}, {7.053071310058101, 28.}, {7.147806364372498, 28.}, {
      7.242541418686894, 28.}, {7.419320002722574, 28.}, {7.610958082573304, 
      28.}, {7.7899046378309205`, 28.}, {7.877623989897866, 28.}, {
      7.965343341964811, 28.}, {7.97723697946162, 28.}, {7.989130616958429, 
      28.}, {7.9921040263326315`, 28.}, {7.9950774357068335`, 28.}, {
      7.997130102040816, 28.}}], 
     LineBox[{{8.002869897959183, 36.}, {8.006971073203642, 36.}, {
      8.012917891952046, 36.}, {8.036705166945664, 36.}, {8.060492441939282, 
      36.}, {8.108066991926517, 36.}, {8.155641541913752, 36.}, {
      8.244444879591667, 36.}, {8.333248217269581, 36.}, {8.52571438844046, 
      36.}, {8.714672708487612, 36.}, {8.802806106214632, 36.}, {
      8.890939503941652, 36.}, {8.938721076758924, 36.}, {8.986502649576197, 
      36.}, {8.992475346178356, 36.}, {8.997130102040817, 36.}}], 
     LineBox[{{9.002869897959183, 45.}, {9.004420739382676, 45.}, {
      9.007407087683756, 45.}, {9.010393435984835, 45.}, {9.022338829189152, 
      45.}, {9.03428422239347, 45.}, {9.058175008802106, 45.}, {
      9.082065795210742, 45.}, {9.17128317854873, 45.}, {9.260500561886719, 
      45.}, {9.43542747743897, 45.}, {9.625213888806272, 45.}, {
      9.80230877558046, 45.}, {9.994263158169698, 45.}, {9.997131487248115, 
      45.}, {9.99999981632653, 45.}}]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{2., 0},
  PlotRange->{{1, 10}, {0., 45.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.430930503924212*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\"\<You can also plot several functions at once.\>\""], "Input"],

Cell[BoxData["\<\"You can also plot several functions at once.\"\>"], "Output",
 CellChangeTimes->{3.4309305086651196`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"G", "[", "x", "]"}], ",", " ", 
     RowBox[{
      RowBox[{".5", "*", "x", " ", "*", " ", 
       RowBox[{"(", 
        RowBox[{"x", "+", "1"}], ")"}]}], " ", "+", " ", 
      RowBox[{"0", "*", " ", "x", "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"6", " ", "x"}], "]"}]}]}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "1", ",", " ", "25"}], "}"}]}], " ", 
  "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{1.0000004897959183`, 1.}, {1.2355441793163238`, 1.}, {
      1.4710878688367293`, 1.}, {1.7264442194438683`, 1.}, {1.981800570051007,
       1.}, {1.989251642482767, 1.}, {1.996702714914527, 1.}, {
      1.996702714914527, 1.}}], 
     LineBox[{{2.0041537873462874`, 3.}, {2.011604859778047, 3.}, {
      2.026507004641567, 3.}, {2.0414091495050872`, 3.}, {2.0712134392321273`,
       3.}, {2.101017728959168, 3.}, {2.1606263084132484`, 3.}, {
      2.2202348878673286`, 3.}, {2.3394520467754893`, 3.}, {2.45866920568365, 
      3.}, {2.6924263886683377`, 3.}, {2.926183571653025, 3.}, {
      2.957879802161952, 3.}, {2.98957603267088, 3.}, {2.9975000902981117`, 
      3.}, {2.9975000902981117`, 3.}}], 
     LineBox[{{3.0054241479253436`, 6.}, {3.0133482055525755`, 6.}, {
      3.0212722631798075`, 6.}, {3.0371203784342713`, 6.}, {3.052968493688735,
       6.}, {3.1163609547065905`, 6.}, {3.179753415724446, 6.}, {
      3.3065383377601565`, 6.}, {3.4333232597958667`, 6.}, {3.66997107107647, 
      6.}, {3.906618882357073, 6.}, {3.93867644140299, 6.}, {
      3.970734000448907, 6.}, {3.978748390210386, 6.}, {3.9867627799718655`, 
      6.}, {3.9947771697333447`, 6.}, {3.9961089899256304`, 6.}}], 
     LineBox[{{4.003891010074369, 10.}, {4.018820339017783, 10.}, {
      4.034849118540741, 10.}, {4.098964236632575, 10.}, {4.16307935472441, 
      10.}, {4.291309590908078, 10.}, {4.4195398270917465`, 10.}, {
      4.671323164627449, 10.}, {4.923106502163152, 10.}, {4.952464165256263, 
      10.}, {4.981821828349373, 10.}, {4.98916124412265, 10.}, {
      4.996098579038617, 10.}}], 
     LineBox[{{5.003901420961383, 15.}, {5.011179491442483, 15.}, {
      5.025858322989039, 15.}, {5.040537154535594, 15.}, {5.099252480721815, 
      15.}, {5.157967806908037, 15.}, {5.2753984592804795`, 15.}, {
      5.3928291116529214`, 15.}, {5.64750307748454, 15.}, {5.902177043316158, 
      15.}, {5.9318960349462575`, 15.}, {5.961615026576358, 15.}, {
      5.976474522391408, 15.}, {5.991334018206459, 15.}, {5.998763766113983, 
      15.}, {5.998763766113983, 15.}}], 
     LineBox[{{6.006193514021509, 21.}, {6.013623261929034, 21.}, {
      6.0210530098365584`, 21.}, {6.080490993096759, 21.}, {6.139928976356959,
       21.}, {6.25880494287736, 21.}, {6.37768090939776, 21.}, {
      6.610755707606927, 21.}, {6.8438305058160935`, 21.}, {6.907052370640068,
       21.}, {6.970274235464044, 21.}, {6.978176968567041, 21.}, {
      6.986079701670038, 21.}, {6.993982434773034, 21.}, {6.99610396987251, 
      21.}}], LineBox[{{7.00389603012749, 28.}, {7.017690634082025, 28.}, {
      7.033496100288019, 28.}, {7.0651070327000065`, 28.}, {7.096717965111994,
       28.}, {7.223161694759944, 28.}, {7.349605424407894, 28.}, {
      7.585570850912976, 28.}, {7.821536277418059, 28.}, {7.885480799316014, 
      28.}, {7.949425321213967, 28.}, {7.965411451688455, 28.}, {
      7.981397582162944, 28.}, {7.989390647400189, 28.}, {7.997383712637433, 
      28.}, {7.997383712637433, 28.}}], 
     LineBox[{{8.005376777874677, 36.}, {8.01336984311192, 36.}, {
      8.045342104060898, 36.}, {8.077314365009876, 36.}, {8.205203408805783, 
      36.}, {8.333092452601692, 36.}, {8.584193405361875, 36.}, {
      8.835294358122058, 36.}, {8.893839088114397, 36.}, {8.952383818106739, 
      36.}, {8.967020000604824, 36.}, {8.98165618310291, 36.}, {
      8.988974274351953, 36.}, {8.9961060705283, 36.}}], 
     LineBox[{{9.0038939294717, 45.}, {9.01092854809908, 45.}, {
      9.040200913095251, 45.}, {9.069473278091422, 45.}, {9.186562738076105, 
      45.}, {9.303652198060787, 45.}, {9.557643779116885, 45.}, {
      9.811635360172984, 45.}, {9.870902747239302, 45.}, {9.930170134305623, 
      45.}, {9.959803827838783, 45.}, {9.989437521371944, 45.}, {
      9.996845944755233, 45.}, {9.996845944755233, 45.}}], 
     LineBox[{{10.004254368138524`, 55.}, {10.011662791521815`, 55.}, {
      10.019071214905104`, 55.}, {10.033888061671684`, 55.}, {
      10.048704908438264`, 55.}, {10.167239682570905`, 55.}, {
      10.285774456703544`, 55.}, {10.542656666055558`, 55.}, {
      10.799538875407572`, 55.}, {10.862590144037668`, 55.}, {
      10.925641412667762`, 55.}, {10.95716704698281, 55.}, {
      10.988692681297858`, 55.}, {10.99657408987662, 55.}, {10.99657408987662,
       55.}}], LineBox[{{11.004455498455382`, 66.}, {11.012336907034143`, 
      66.}, {11.020218315612905`, 66.}, {11.035981132770429`, 66.}, {
      11.051743949927953`, 66.}, {11.177846487188143`, 66.}, {
      11.303949024448332`, 66.}, {11.539232066177895`, 66.}, {
      11.774515107907458`, 66.}, {11.838289033611531`, 66.}, {
      11.902062959315606`, 66.}, {11.933949922167642`, 66.}, {
      11.96583688501968, 66.}, {11.981780366445697`, 66.}, {
      11.997723847871717`, 66.}, {11.997723847871717`, 66.}}], 
     LineBox[{{12.005695588584725`, 78.}, {12.013667329297736`, 78.}, {
      12.021639070010744`, 78.}, {12.029610810723753`, 78.}, {
      12.157158662131902`, 78.}, {12.28470651354005, 78.}, {
      12.522880183565528`, 78.}, {12.761053853591006`, 78.}, {
      12.87780212118793, 78.}, {12.994550388784852`, 78.}, {
      12.996120258685131`, 78.}}], 
     LineBox[{{13.003879741314872`, 91.}, {13.009143922234466`, 91.}, {
      13.016440688959275`, 91.}, {13.023737455684081`, 91.}, {
      13.038330989133698`, 91.}, {13.052924522583313`, 91.}, {
      13.082111589482544`, 91.}, {13.111298656381773`, 91.}, {
      13.169672790180234`, 91.}, {13.228046923978695`, 91.}, {
      13.481356120259273`, 91.}, {13.73466531653985, 91.}, {13.85285889828473,
       91.}, {13.97105248002961, 91.}, {13.978439578888665`, 91.}, {
      13.985826677747719`, 91.}, {13.993213776606773`, 91.}, {
      13.996113506896169`, 91.}}], 
     LineBox[{{14.003886493103831`, 105.}, {14.01537507318394, 105.}, {
      14.030149270902049`, 105.}, {14.05969766633827, 105.}, {
      14.089246061774489`, 105.}, {14.14834285264693, 105.}, {
      14.20743964351937, 105.}, {14.463639468095863`, 105.}, {
      14.719839292672358`, 105.}, {14.845600637544788`, 105.}, {
      14.971361982417218`, 105.}, {14.979222066471745`, 105.}, {
      14.987082150526271`, 105.}, {14.994942234580797`, 105.}, {
      14.99610894960353, 105.}}], 
     LineBox[{{15.003891050396474`, 120.}, {15.018522486744379`, 120.}, {
      15.034242654853433`, 120.}, {15.06568299107154, 120.}, {
      15.097123327289648`, 120.}, {15.160003999725863`, 120.}, {
      15.222884672162078`, 120.}, {15.45748532911612, 120.}, {
      15.692085986070161`, 120.}, {15.819292645090549`, 120.}, {
      15.946499304110935`, 120.}, {15.962400136488483`, 120.}, {
      15.97830096886603, 120.}, {15.986251385054803`, 120.}, {
      15.994201801243578`, 120.}, {15.996108901497044`, 120.}}], 
     LineBox[{{16.003891098502958`, 136.}, {16.010102633621127`, 136.}, {
      16.041904298376224`, 136.}, {16.07370596313132, 136.}, {
      16.137309292641515`, 136.}, {16.20091262215171, 136.}, {
      16.438403907401664`, 136.}, {16.675895192651623`, 136.}, {
      16.792302267860784`, 136.}, {16.908709343069944`, 136.}, {
      16.937811111872236`, 136.}, {16.966912880674524`, 136.}, {
      16.981463765075667`, 136.}, {16.996014649476813`, 136.}, {
      16.996121216756894`, 136.}}], 
     LineBox[{{17.003878783243106`, 153.}, {17.01056553387796, 153.}, {
      17.01784097607853, 153.}, {17.025116418279104`, 153.}, {
      17.083319955883688`, 153.}, {17.14152349348827, 153.}, {
      17.394150304993325`, 153.}, {17.64677711649838, 153.}, {
      17.764629505855503`, 153.}, {17.88248189521262, 153.}, {
      17.911944992551902`, 153.}, {17.94140808989118, 153.}, {
      17.95613963856082, 153.}, {17.970871187230458`, 153.}, {
      17.97823696156528, 153.}, {17.9856027359001, 153.}, {
      17.992968510234917`, 153.}, {17.996108924724886`, 153.}}], 
     LineBox[{{18.003891075275114`, 171.}, {18.059260479248298`, 171.}, {
      18.118186673926857`, 171.}, {18.37370411372783, 171.}, {
      18.6292215535288, 171.}, {18.748519257033877`, 171.}, {
      18.867816960538953`, 171.}, {18.92746581229149, 171.}, {
      18.98711466404403, 171.}, {18.994570770513096`, 171.}, {
      18.996115270429193`, 171.}}], 
     LineBox[{{19.003884729570807`, 190.}, {19.00948298345123, 190.}, {
      19.0169390899203, 190.}, {19.031851302858435`, 190.}, {
      19.04676351579657, 190.}, {19.07658794167284, 190.}, {
      19.106412367549108`, 190.}, {19.34033063972763, 190.}, {
      19.57424891190615, 190.}, {19.701114378538776`, 190.}, {
      19.827979845171406`, 190.}, {19.891412578487717`, 190.}, {
      19.954845311804032`, 190.}, {19.970703495133108`, 190.}, {
      19.986561678462188`, 190.}, {19.994490770126728`, 190.}, {
      19.996107824655006`, 190.}}], 
     LineBox[{{20.003892175344994`, 210.}, {20.010348953455807`, 210.}, {
      20.018278045120347`, 210.}, {20.049994411778503`, 210.}, {
      20.08171077843666, 210.}, {20.318519678911095`, 210.}, {
      20.55532857938553, 210.}, {20.683639360166115`, 210.}, {
      20.8119501409467, 210.}, {20.876105531336993`, 210.}, {
      20.940260921727287`, 210.}, {20.956299769324858`, 210.}, {
      20.972338616922432`, 210.}, {20.98035804072122, 210.}, {
      20.988377464520006`, 210.}, {20.99639688831879, 210.}, {
      20.99639688831879, 210.}}], 
     LineBox[{{21.004416312117577`, 231.}, {21.036494007312726`, 231.}, {
      21.06857170250787, 231.}, {21.320516129237404`, 231.}, {
      21.57246055596694, 231.}, {21.6899717529363, 231.}, {
      21.807482949905662`, 231.}, {21.866238548390342`, 231.}, {
      21.924994146875022`, 231.}, {21.954371946117362`, 231.}, {
      21.983749745359702`, 231.}, {21.991094195170287`, 231.}, {
      21.998438644980872`, 231.}, {21.998438644980872`, 231.}}], 
     LineBox[{{22.005783094791457`, 253.}, {22.013127544602042`, 253.}, {
      22.027816444223212`, 253.}, {22.04250534384438, 253.}, {
      22.29734039886983, 253.}, {22.552175453895284`, 253.}, {
      22.6711319650126, 253.}, {22.790088476129917`, 253.}, {
      22.849566731688576`, 253.}, {22.909044987247235`, 253.}, {
      22.938784115026564`, 253.}, {22.968523242805894`, 253.}, {
      22.98339280669556, 253.}, {22.998262370585223`, 253.}, {
      22.998262370585223`, 253.}}], 
     LineBox[{{23.005697152530054`, 276.}, {23.013131934474888`, 276.}, {
      23.020566716419722`, 276.}, {23.028001498364553`, 276.}, {
      23.26123738576755, 276.}, {23.494473273170552`, 276.}, {
      23.62099754741542, 276.}, {23.747521821660285`, 276.}, {
      23.810783958782718`, 276.}, {23.87404609590515, 276.}, {
      23.90567716446637, 276.}, {23.937308233027586`, 276.}, {
      23.953123767308195`, 276.}, {23.968939301588804`, 276.}, {
      23.976847068729107`, 276.}, {23.98475483586941, 276.}, {
      23.992662603009713`, 276.}, {23.996093751913264`, 276.}}], 
     LineBox[{{24.003906248086736`, 300.}, {24.236696885848936`, 300.}, {
      24.47282340154785, 300.}, {24.984701755119147`, 300.}, {
      24.992350632661612`, 300.}, {24.99999951020408, 300.}}]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVz3k4FHgcx/FBGrnv8wnlGJqcTQzJ7ys1RUYUkik3OcoxTVFKxziSK6yN
pkZipaTT2aEIsVu62FaOXBFqG8eaxjX764/P835ef37WBEbvDhElEAh+eL86
mXSCTSDw0Kl265ZfDSYZvTHU5qErtXeLvEx4qL+9S5Nux0NPNXScv/jw0FtZ
iweF8Ty0aDMiW1nDQ1UFYwOWUzyUMEH0Ho2ZQidve9iHDE2hY1LVX4U/ppFM
p6mgvXkGHaKXib1Rn0Mpx3q38oZmUPpj6T57+hwiaFy4qCoyi25fjUgZOzuH
pg98IQVtnkWTT6Wdhifn0N9jHK/F6ll0MGoiM6mJj7gLElWmN/5DftlSqlEn
BMhMbzgqL42P3N6N6PQpL6E7J6xmttziI9EXq4siPZeQ6fu0uOk/+Wg++Puw
3e9LaP1Z8zPu0j/RvXq3hhvqy2jd51M5ctk/kXMZqYarK0T6HPWq9N8ESJ4m
1X2eSwB1JVcBu2gBUbad/C7eKQoEsXo2q1qI7paHxhuVEGGq9Fmq4IMQqWfl
W6q2E2GI1pqeOC1E4eMeEmt+ECGwZdypWY0AjSLJK7M2ScDWVXz3Dg8C7Ki/
RW/pkoBVOQqBQx0EqHWUJt6Uk4Tca7Rzki9EYGUryXBboTSUPrvX5FMhBggG
JL+KKEDPkwf/vg8jwv6MnXs2zatCt0+kGTNOCi7r1qmSY7VBYXtmaCPIQawc
yKiQ9UBiwrKbU6kAl0aEw5UzJFCQr+nccl8JbF3UaAtGJmDdd/gvh1wVWDrt
KdNjZwHP58+4dHLUoFLnbibTlwIHn7W1NZzTAPqlIIO6FGsoCLqhqeKvBZOb
lhpoH21hvffg3HLIalg8/Uht+I499M3s6gAnHdCo/3S7HzmA4Ie0evotXRhs
ygs6G+sI7Z5PH1ZUrIGBtAYHVv02IMlJ0OM5a0HWwC1En78damPOVGQV6cFA
n1OXVrIzdBnkEd1z9SGuj/bEVZwOBuwPRgcKDaBrQJ6a2LMLbN0+U4o4hhDt
El55M9Ad+mOS7TMzSMAo16Rsfr0bHtrsk2nJMQK9NwGTjFAPUPN62V2ebAze
xlPl/jOeAEOEnCbWOuA1TzIepOyFy6phMobxZFCeJVaLu+wDNjc8dWPEeniv
EnF+UIQB3I6C1qwYE4isc+Je+rYfEqPyeKuZplDyIp1/r98XvgUYqe8LNIN3
wYk2PF9/aEk8Khq9wRyuUpp3PooIgP1zJXHESnNYGIQC00OB+B91yFbfAkST
Kv/JjQ6Cg8ZBZnl/WIAiKg0bvhgMz70YCQ7alqD9uq/EvCwELL0nbioXW4KA
NBLf9SkUItm0j5u1NoDmkQDtfNEwSA2VmBfJ2wDtii+TOeRweLI6QDihTIHG
V4Gp1UcjoG45RWxdFgVCe6w+2N6PhNcPHScyFTZC8FnFcpA7DM26oa0ZuRvh
ZLdJiXp0FLBrPYsHJa2AnE1dLG6IBsbaXl9GphX0hnEnqYUxMF9jpkUmWsNL
yRWT551jIUFs/FV+ojUwjQNeDCzEgoq+TYABgQp2xlKbbZ4z4ViU16zkcSq0
jQqvrU04ArwMyQiVRSqkXa/iNDmxQCvJQdkAW9bdNLsHm5YQ30DB7vCsPTeL
fSV8VNEDeyGAH27ozIIdtKbHudjSyWY2F7CvCY/LyC9RgTh3+pP7Tha4Mcfv
SS5TIYRdbDTowoKEcF2GJjZJIK49j13mv1d8HbZey3ElJToLFl1b9jlht/ll
L2/FLicXi57/5SJmVzk24Yu3h7iQCqXOGikxriwg92YvK2Ov0D9yMg3b60Nr
uT721T29zOvYtxspS47YidW9fp3Y3lz5snPYfHa+LXUXC9j5291ysQ3lIizc
se9kJM4XY2fz6EYR2CsSvrk2YsvWOKpewTZj6gneYutf9pSpxvYJ9ykZwGZ1
HlvRgZ3in0PnYRNCbiyMYt/f28YXYjfvHJsWYv8PnFOyuw==
      "]]}, {}}, {{}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{5., 0},
  PlotRange->{{1, 25}, {0., 324.99998751020416`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.430930511070239*^9}]
}, Open  ]],

Cell[BoxData["\"\<Mathematica also supports IF and FOR statements\>\""], \
"Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mod", "[", 
  RowBox[{"12", ",", "7"}], "]"}]], "Input"],

Cell[BoxData["5"], "Output",
 CellChangeTimes->{3.4309305196976166`*^9}]
}, Open  ]],

Cell[BoxData["\"\<The above is the mod function: 12 mod 7 is 5\>\""], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"h", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"If", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Mod", "[", " ", 
      RowBox[{
       RowBox[{"Floor", "[", "x", "]"}], ",", " ", "2"}], "]"}], " ", 
     "\[Equal]", " ", "1"}], ",", " ", "5", ",", " ", 
    RowBox[{"-", "5"}]}], "]"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{"h", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxF1nk4FHgYB/CZ2ZnRMGIws6YaFNthyTGOspWhUI+VK9r0ZDNoVaKUkVCU
pNazhSFnx/DI1VpKUa2OERGSXLmflcnduIpcezzrfX/P8z6/5/PP+7zv9693
Nd/fyZtEIBBy/6l//7CPduOLi8rPCP89FZ7w1EHb8FR0HvFkJsEUTfG2MWQf
UAIrt770FcUywEV2+v19umgncYrnhmpF8LH6H1QZQnR0Z0fN9AE0y0v3zrAl
OmMwLKJnHXpQN8vPbQVa/0Td/kY6mnRetSWAhm6M4zsxqOisjPzaAhJ61Gck
Nm1BYcnPjPKZ51hj6JBPW32v9aJTuL5DN9nokqCUIwX2y8G741w0FpLpYJv0
P3fvHJYFC4pSlbo00VmVwc0n99PAjQJeVvXoMjBprYxg9Xl0cthgZ40tWr+p
1uo0E63Jqy66uxzNyqtQ75VB01jiGFUiei786YzdVxnI4y/Xknclw+hKncK7
mt3ouFaRx4wY7R4pZL7JRvuNv/YY6aSCzx785nc5ZTRBV/3p9otkcNuvyZfy
mkjg2epwVQc6epWsT86kJRFsufted0MTAXw4boFZ6IMO8IzN8LFDhxppGWgY
oonpI19CtNBRlIdlLSz0q9KVIooiWtYv/CKXhv5xTZ+PBwmtdjc+Se3L4tOl
PHeMddXNXUYfNdamtK9C/2JC3mt/fB7sadqVLRbPgrVPmy36ZU6Db3c6lwdb
TIHLC4zCe/InwB8jmFtsVMfBWkbFgUpbx8B8yZ6CTg8pOLcjmhVkjR5veBKm
+D2aVedqcICDNquSfshRQLuXX0n6TESTzu1Kiur/tGSexk9s4+EzaHODgbeO
8ujQ3mg5juEo+FHCeqt+1xFwoDmRQ/86ANYfeD+ply4B73jUTpt37QEfzymY
Zii/A1MvTN+yDqgCux7SvN0QWgpW4+7UETFywdKkZK+xZD7ORxK+tN60y3xp
v40pnpUqJv7gLnbhqJxCKNiZ2/okyiISLP9sSLPc7Rr4xKGjA+XCRHDaPmMz
z8jbYAKheNGz7A7Ya63bS0N2Ebiy5v0VrnMJ2PdWUAInvwpspvu8yOH6OzBJ
wOzwYveAZegOEfxRCdhKEM8f3DkIvtDTvD0gYwTsnhd2NePoKPYXaLU3cj+B
s9u/hI9cR7MsXq+lzqE3yWusj5KVLpknCW7bQvsWLZQIHWM00ZbO9ocU9NE3
dMqvMnehZyibS1fy0Y313WQ77THwH6lRDmfH0Yo3A/ULMyfA/iIvxQ+uU2D3
IymcSxHT4MuOgs3ctFlwRRHl2j7beTBZJUFy7usCOPhD73eMnxfBo/cNvUVi
NP0wtbiiA72B00YemkKnzXokbiMSeEt5ZfS75l6SQec22ZbVy6OLXvAa2Cro
NwKVNdt00cPa/Sf41mj+rEnhRC665fVFaaQCEZyoeSr+6gDaJYRvkiImgX3l
htbUuZHB6nkVidRBCrjWgDJ15QUVHFKy3VkhVQbsZiOocryPNmvONhfWonM5
L84Yt6HZ3u3FzRJ0/TIf53Uj6Oj8SWnQBJrnEPHbqxn09IS8DpuwbMm8h4yT
qjcM0QK9VrKmN3riiKhTpxp9PMv3gYkeDbyt0THGUFYWTCeZ8jf2oa2O7UnQ
jqeDVUs5/lZay8FNTGfC43l0XEB0rH6LApi/7m13Ty+a28HeGCtFp5lscxn4
jCbH8kMt5tEPAsVva4iKsP+gyKVvmox+vPcGN4eBjqF/jNinhtYVnFZ7ZIqu
66Y9XuGIVrynM9l+Ae0UZa+b/gBdJj38XGMFA6y9P9IlMwzdLKGJ4l2UsD+/
z0JJXRmcksCgBs+gY8r0Qp/Mof+/R8F/A21p4P4=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-5, 5}, {-5., 5.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.430930521953332*^9, 3.4337127343309045`*^9}]
}, Open  ]],

Cell[BoxData["\"\<If statements work by IF[Condition, Then This, Else This]. \
You can have nested IF statements\>\""], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"h", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"If", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Mod", "[", " ", 
      RowBox[{
       RowBox[{"Floor", "[", "x", "]"}], ",", " ", "3"}], "]"}], " ", 
     "\[Equal]", " ", "0"}], ",", " ", "0", ",", " ", "\[IndentingNewLine]", 
    "\t\t      ", 
    RowBox[{"If", "[", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Mod", "[", " ", 
        RowBox[{
         RowBox[{"Floor", "[", "x", "]"}], ",", " ", "3"}], "]"}], " ", 
       "\[Equal]", " ", "1"}], ",", " ", "1", ",", " ", "2"}], "]"}]}], 
   "\[IndentingNewLine]", "                      ", "]"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{"h", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "9"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxN0As0FGgbB/AhchvjLpRBonSh7eLLJTOlWIQuQrTIXeVWUW19IaVhELJC
qv1IZVNKsqIsU5SiLBlat8gWo1zHGmR833dOvf/ec57znt85z/mf5/x1vEN3
+olSKBTB/+b/Pz9c75PgOsuC8vX5sjU9Fl72Z3yz+v0V8rycSGJ+7ZqgP3Pi
iHu2l6rU5GQQt6kIBitzrhPvEqi1VuSUEqcGFWwrz6kljj3zS41hSivxUS2p
JZIxPcS2C6n+5pofiYUhKTrp6+FijnLnoD2ssV/T6dIpmFdmuHm6G4533kEv
y+0nfp6awV27jEd88m+NNDYTXm1y1f69K5z57sbTtHg40Ohh8SgPlmhoTy66
PUhsJaljvWLtZ+LXzQcWv7eBXa+WzmZ7wQeMt5VIJ8Mpvkd1eP2wxmrOl//M
wXkz1LY9qkPEpWm5yXWWcHtVw8zNK7Bvolqr1wN4yMWnWK0epgwLAllTcEK5
5Ram/DCxUlyylkAf1tdcwg1wgov6Q+5pHYA3lDxMbI2BOVFigeczYTs7R0vr
IviNajZ9rgb26O2bKu2AP942agkZh8vMN7oqiY989QhDNOvCmqZy2H5igJoa
Nkq8crl70L+nx4ipnvU1QWf4xBpqCoy++EniNy+X3PN2nyb+ojOemtI7Q6x7
rPpQZdAsce++vfuctYXEv9pNOg5x4eiqLdama+aIPdenWcQlwa+GN5iurIAt
fute39QP/+VaV2LGhyMl7q/Nn4Ol3B32nBOnML/Ww3RZ80TNXAYef1d4MV8V
Pn8+Q1VuMbxY1jZCrgUuSZhtlmOJEOuKGphEUecR9/9TkT0SKUY8GaB0rXFO
nHhnSataQdV84juUnKSYGAnisHluvKN34B/mq1mHtMO9cdZdtz7AaRJHIwZG
Yd4z2ibWJLyZdZ26dBbO/tGirUZU8pspY5LcPF9J2LYuOHQeDc6NFzfLVYJ3
Sa9v6qbDJTLpFPf1MLV+Rf2UKeyb+ORiJhNWkR035NrBkbSdP+3whjcoyJdb
n4crVBMPrxuAxQY4U9uGYYeKqSi/CfidZ0BihogU8fyCzfkCdXi72RT3kS38
wdPfdGshrFjAFHEOlSb+o2wv+3i7DPHvWzY+lvGXJY5jn7VRPwg7NTW06B+C
Rzw9hjadgpefiNI6lgFfuVcd01f7XR7dyurxUhry/JKbXqyCdQu5Hm1r4SqT
gKPjDHjaiXXTwBUOYb+QzmDBzgKH1yEDsEYny0d5GO6q5kw+5MN+bGNtcYoc
8RE6PfySKnxhy2fF55aws8HSG8E2sAZtn5mSI5zb+sbHww0u3v+ohB8GN6aw
nXWuwOkRNbzaPNjVbe7UwQK4W/fwjd9L4KFSN4H9y+/yL6UnjjfCkdGvtLO4
sNBms01fD8wxPNkZ/xGOUyoNN/oM2wqGxVvGYNlOg+yfBd/dX+1jqC38br/Z
oadXRP6rRxiFNQduPRCDaWWsCJYE3JTDkTKUhTNivlxuVoTpdmG1dDqcr9w3
FGQAT0Qd7vBgw1sHRV/s+gynRO/Os7imQHynoOpTqosi8Zg8LWGRhhIxL++V
S+8RuMf4vN7N1/Di4LNO/HbYN+9ELLMfPlP5T7b/EJz/Nrw4kQ8bBxhVXp2E
a/mf6oqnYefTv7XUzMIf5AJ72ijK3/plBp50YoSrw4P9zMtSa+CRavU9pj7w
RPaY8oF0eCDj7lPKBNyZFnIkY7cKcagNvYkjpUq81OJurH4D3LbgQrvrsgXE
CaMRa9mxsGts8AmLu7Ceit+T0Q44c8r7F3o/TO3yCrAbh60aPRt7BHAUx8Pk
mBDOMesKthRR+2ZKWclPuTQxuGVVJ/ftfHjs+l6ZfClYTruDEUaFV2a5HzGT
g/3Zbp1/KsNvQ12LhFpw1QanXa7GMNdU18/LBB40H4sMNIdVN6VkH9sMH7Sp
78l0gBe4bQl76w+HnFiX5HYRXlSp/GyvANYVlTLxvq1O7HimW3glXINYv2aA
07FsIfGx7eXut1bAL9sT+McN4bCxFfoL1sEVWiHxOxjw9p/HHGt3wyeMZjqK
TsOvyl9GnDoLa1vl0OxZcO3ejUxeEiyfEJW3JAu+3jdvf1YRLAh9IxpYDNvN
XLtk/AAeUbBqaC6HzRis1bRauDGLOnm6A154Z2Vwcjfsz9n2PqsXnuUlvr7b
D/84V7j10SCcrtRQ8WwIXm4ue7OLD0dsX0XnTcJVvvbpE9Mw9XiwtIgQdklK
iqaKLPrqEcbQg4aDuhLwmS7ZPaaycFc0TTpDD96gK1cxuhH+FCCvWRAC/1qo
EOV1FfZQMeQ4TsMLT9mKM3ZrElck+XU7adCJjX7IMmhuhy166xsUjbWIHS5Q
Du1MgT1nFNWZ1XCYj17VqjH40F2JCDsBfGR2wCBICE+nrhJ9RNH+1g/TTM8/
1FIUPll2pePFPPiRXavNTnG4MvOhMFQGrvr70v0kBfhplJdmnSZcp653Tmw5
fDb8aXCxC7ypzsfJ6yycx7mzZ6QLXtDOk1zE1CHuaWL+63k2/HjgnJz8LFyt
UiTGEsI1m7hTc3PwfwEpC7qe
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 9}, {0., 2.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.4309305269198103`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IntegerQ", "[", 
  RowBox[{"Sqrt", "[", "21222079685", "]"}], "]"}]], "Input"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.430930529104241*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   StyleBox[
    RowBox[{"5.", " ", "Sample", " ", "Programs"}], "Section"], 
   StyleBox["\[IndentingNewLine]", "Section"], 
   StyleBox[
    RowBox[{"5", 
     RowBox[{"a", ".", " ", "Eigenvalues"}], " ", "of", " ", "Toeplitz", " ", 
     "Matrices"}], "Subsection"]}]}]], "Input",
 CellChangeTimes->{{3.4309322601702037`*^9, 3.4309323015445085`*^9}}],

Cell[BoxData["\"\<We now include a quick program to calculate eigenvalues of \
Toeplitz Matrices. This code can easily be \nmodified for other \
investigations.\>\""], "Input"],

Cell[BoxData["\"\<First we make sure we have loaded in the packages we \
need.\>\""], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "\"\<BarCharts`\>\""}], ";", 
  RowBox[{"<<", "\"\<Histograms`\>\""}], ";", 
  RowBox[{"<<", "\"\<PieCharts`\>\""}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ndist", " ", "=", " ", 
    RowBox[{"NormalDistribution", "[", 
     RowBox[{"0", ",", "1"}], "]"}]}], ";"}], " "}]], "Input"],

Cell[BoxData["\"\<In the program below, we calculate num matrices, each is n \
x n. we choose the entries randomly from the standard normal\ndistribution \
subject to being a real symmetric toeplitz matrix with zeros on the main \
diagonal. remember a toeplitz matrix is constant along diagonals. we \
normalize the eigenvalues by\nsqrt[n]. we also have some if statements that \
print based on where we are -- the point is to know how much longer the \
program\nwill have to run. we then create a histogram.\>\""], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"TopMatnodiag", "[", 
     RowBox[{"n_", ",", "num_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"aa", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Clear", "[", "temp", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"temp", "=", 
        RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"aa", "=", "1"}], ",", 
         RowBox[{"aa", "\[LessEqual]", "num"}], ",", 
         RowBox[{"aa", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Clear", "[", "a", "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"i", "=", "1"}], ",", 
             RowBox[{"i", "\[LessEqual]", "n"}], ",", 
             RowBox[{"i", "++"}], ",", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"i", ",", "i"}], "]"}], "=", "0"}]}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"k", "=", "2"}], ",", 
             RowBox[{"k", "\[LessEqual]", "n"}], ",", 
             RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"ran1", "=", 
                RowBox[{"Random", "[", "ndist", "]"}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"For", "[", 
                RowBox[{
                 RowBox[{"i", "=", "1"}], ",", 
                 RowBox[{"i", "\[LessEqual]", 
                  RowBox[{"n", "-", "k", "+", "1"}]}], ",", 
                 RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
                 RowBox[{"{", "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"a", "[", 
                    RowBox[{"i", ",", 
                    RowBox[{"k", "-", "1", "+", "i"}]}], "]"}], "=", 
                    RowBox[{
                    RowBox[{"a", "[", 
                    RowBox[{
                    RowBox[{"k", "-", "1", "+", "i"}], ",", "i"}], "]"}], "=",
                     "ran1"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}],
                ";"}], " ", 
              RowBox[{"(*", " ", 
               RowBox[{"end", " ", "of", " ", "i", " ", "loop"}], " ", "*)"}],
               "\[IndentingNewLine]", "}"}]}], "]"}], ";", " ", 
           RowBox[{"(*", " ", 
            RowBox[{"end", " ", "of", " ", "k", " ", "loop"}], " ", "*)"}], 
           "\[IndentingNewLine]", 
           RowBox[{"mat", "=", 
            RowBox[{"Array", "[", 
             RowBox[{"a", ",", 
              RowBox[{"{", 
               RowBox[{"n", ",", "n"}], "}"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"tempev", "=", 
            RowBox[{"N", "[", 
             RowBox[{
              RowBox[{"Eigenvalues", "[", "mat", "]"}], " ", "/", " ", 
              RowBox[{"Sqrt", "[", 
               RowBox[{"1.0", " ", "n"}], "]"}]}], "]"}]}], ";", " ", 
           "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Mod", "[", 
               RowBox[{"aa", ",", "20"}], "]"}], "\[Equal]", "0"}], ",", 
             RowBox[{"Print", "[", 
              RowBox[{"\"\<We're at aa = \>\"", ",", "aa"}], "]"}]}], "]"}], 
           ";", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"b", "=", "1"}], ",", 
             RowBox[{"b", "\[LessEqual]", "n"}], ",", 
             RowBox[{"b", "++"}], ",", 
             RowBox[{
              RowBox[{"temp", "=", 
               RowBox[{"Append", "[", 
                RowBox[{"temp", ",", 
                 RowBox[{
                 "tempev", "\[LeftDoubleBracket]", "b", 
                  "\[RightDoubleBracket]"}]}], "]"}]}], ";"}]}], "]"}], ";"}],
           "\[IndentingNewLine]", "}"}]}], "]"}], ";", " ", 
       RowBox[{"(*", " ", 
        RowBox[{"end", " ", "of", " ", "aa", " ", "loop"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"first", " ", "histogram", " ", "is", " ", "un"}], "-", 
         RowBox[{
          RowBox[{"normalized", ".", " ", "second"}], " ", "rescaled", " ", 
          "to", " ", "have", " ", "unit", " ", "area", " ", "and", " ", 
          "labels", " ", 
          RowBox[{"added", ".", " ", "remember"}], " ", "to", " ", "use", " ",
           "PRINT", " ", "around", " ", "histograms", " ", "inside", " ", 
          RowBox[{"modules", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"Histogram", "[", "temp", "]"}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"Histogram", "[", 
         RowBox[{"temp", ",", 
          RowBox[{"HistogramCategories", "\[Rule]", "bincat"}], ",", 
          RowBox[{"HistogramScale", "\[Rule]", "1"}], ",", " ", 
          RowBox[{
          "PlotLabel", " ", "\[Rule]", " ", "\"\<Enter Name Here\>\""}], ",", 
          " ", 
          RowBox[{"AxesLabel", " ", "\[Rule]", " ", 
           RowBox[{"{", 
            RowBox[{"\"\<x-axis label\>\"", ",", "\"\<y-axis label\>\""}], 
            "}"}]}]}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], 
   ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"end", " ", "module"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.430930560582695*^9, 3.4309307102957687`*^9}, {
  3.4309309455189953`*^9, 3.430931026208166*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TopMatnodiag", "[", 
  RowBox[{"10", ",", "100"}], "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"We're at aa = \"\>", "\[InvisibleSpace]", "20"}],
  SequenceForm["We're at aa = ", 20],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.430930554020615*^9, 3.4309307134371696`*^9, {3.4309309804435177`*^9, 
   3.430930997018628*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"We're at aa = \"\>", "\[InvisibleSpace]", "40"}],
  SequenceForm["We're at aa = ", 40],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.430930554020615*^9, 3.4309307134371696`*^9, {3.4309309804435177`*^9, 
   3.4309309970537825`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"We're at aa = \"\>", "\[InvisibleSpace]", "60"}],
  SequenceForm["We're at aa = ", 60],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.430930554020615*^9, 3.4309307134371696`*^9, {3.4309309804435177`*^9, 
   3.4309309970889363`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"We're at aa = \"\>", "\[InvisibleSpace]", "80"}],
  SequenceForm["We're at aa = ", 80],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.430930554020615*^9, 3.4309307134371696`*^9, {3.4309309804435177`*^9, 
   3.4309309971260433`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"We're at aa = \"\>", "\[InvisibleSpace]", "100"}],
  SequenceForm["We're at aa = ", 100],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.430930554020615*^9, 3.4309307134371696`*^9, {3.4309309804435177`*^9, 
   3.43093099716608*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{-2.6, 0}, {-2.4, 2}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-2.4, 0}, {-2.1999999999999997`, 2}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-2.1999999999999997`, 0}, {-1.9999999999999996`, 7}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-1.9999999999999996`, 0}, {-1.7999999999999994`, 9}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-1.7999999999999994`, 0}, {-1.5999999999999992`, 16}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-1.5999999999999992`, 0}, {-1.399999999999999, 27}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-1.399999999999999, 0}, {-1.1999999999999988`, 38}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-1.1999999999999988`, 0}, {-0.9999999999999987, 53}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-0.9999999999999987, 0}, {-0.7999999999999985, 56}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-0.7999999999999985, 0}, {-0.5999999999999983, 69}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-0.5999999999999983, 0}, {-0.39999999999999813`, 64}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-0.39999999999999813`, 0}, {-0.19999999999999796`, 82}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-0.19999999999999796`, 0}, {2.220446049250313*^-15, 76}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{2.220446049250313*^-15, 0}, {0.2000000000000024, 80}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{0.2000000000000024, 0}, {0.4000000000000026, 72}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{0.4000000000000026, 0}, {0.6000000000000028, 78}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{0.6000000000000028, 0}, {0.8000000000000029, 63}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{0.8000000000000029, 0}, {1.000000000000003, 65}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{1.000000000000003, 0}, {1.2000000000000033`, 45}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{1.2000000000000033`, 0}, {1.4000000000000035`, 34}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{1.4000000000000035`, 0}, {1.6000000000000036`, 20}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{1.6000000000000036`, 0}, {1.8000000000000038`, 17}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{1.8000000000000038`, 0}, {2.000000000000004, 9}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{2.000000000000004, 0}, {2.200000000000004, 4}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{2.200000000000004, 0}, {2.4000000000000044`, 6}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{2.4000000000000044`, 0}, {2.6000000000000045`, 2}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{2.6000000000000045`, 0}, {2.8000000000000047`, 2}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{2.8000000000000047`, 0}, {3.000000000000005, 0}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{3.000000000000005, 0}, {3.200000000000005, 1}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{3.200000000000005, 0}, {3.4000000000000052`, 0}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{3.4000000000000052`, 0}, {3.6000000000000054`, 1}]}},
  AlignmentPoint->Center,
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->None,
  AxesOrigin->{-2.6, 0},
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  DisplayFunction:>$DisplayFunction,
  Epilog->{},
  FormatType:>TraditionalForm,
  Frame->False,
  FrameLabel->None,
  FrameStyle->{},
  FrameTicks->Automatic,
  FrameTicksStyle->{},
  GridLines->None,
  GridLinesStyle->{},
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  LabelStyle->{},
  Method->Automatic,
  PlotLabel->None,
  PlotRange->{{-2.6, 3.6000000000000054`}, All},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotateLabel->True,
  Ticks->{{{-2., 
      FormBox[
       RowBox[{"-", "2"}], TraditionalForm]}, {-1., 
      FormBox[
       RowBox[{"-", "1"}], TraditionalForm]}, {0., 
      FormBox["0", TraditionalForm]}, {1., 
      FormBox["1", TraditionalForm]}, {2., 
      FormBox["2", TraditionalForm]}, {3., 
      FormBox["3", TraditionalForm]}}, Automatic},
  TicksStyle->{}]], "Print",
 CellChangeTimes->{
  3.430930554020615*^9, 3.4309307134371696`*^9, {3.4309309804435177`*^9, 
   3.4309309972705655`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-2.6, 0}, {-2.4, 0.009999999999999992}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-2.4, 0}, {-2.1999999999999997`, 0.009999999999999992}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-2.1999999999999997`, 0}, \
{-1.9999999999999996`, 0.03499999999999997}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-1.9999999999999996`, 0}, \
{-1.7999999999999994`, 0.04499999999999996}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-1.7999999999999994`, 0}, \
{-1.5999999999999992`, 0.07999999999999993}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-1.5999999999999992`, 0}, \
{-1.399999999999999, 0.13499999999999987`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-1.399999999999999, 0}, \
{-1.1999999999999988`, 0.18999999999999984`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-1.1999999999999988`, 0}, \
{-0.9999999999999987, 0.26499999999999974`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-0.9999999999999987, 0}, \
{-0.7999999999999985, 0.27999999999999975`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-0.7999999999999985, 0}, \
{-0.5999999999999983, 0.3449999999999997}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-0.5999999999999983, 0}, \
{-0.39999999999999813`, 0.31999999999999973`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-0.39999999999999813`, 0}, \
{-0.19999999999999796`, 0.40999999999999964`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{-0.19999999999999796`, 0}, \
{2.220446049250313*^-15, 0.37999999999999967`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{2.220446049250313*^-15, 0}, \
{0.2000000000000024, 0.39999999999999963`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{0.2000000000000024, 0}, \
{0.4000000000000026, 0.35999999999999965`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{0.4000000000000026, 0}, \
{0.6000000000000028, 0.3899999999999997}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{0.6000000000000028, 0}, \
{0.8000000000000029, 0.3149999999999997}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{0.8000000000000029, 0}, \
{1.000000000000003, 0.32499999999999973`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{1.000000000000003, 0}, \
{1.2000000000000033`, 0.22499999999999978`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{1.2000000000000033`, 0}, \
{1.4000000000000035`, 0.16999999999999987`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{1.4000000000000035`, 0}, \
{1.6000000000000036`, 0.09999999999999991}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{1.6000000000000036`, 0}, \
{1.8000000000000038`, 0.08499999999999994}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{1.8000000000000038`, 0}, \
{2.000000000000004, 0.04499999999999996}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{2.000000000000004, 0}, \
{2.200000000000004, 0.019999999999999983`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{2.200000000000004, 0}, \
{2.4000000000000044`, 0.029999999999999975`}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{2.4000000000000044`, 0}, \
{2.6000000000000045`, 0.009999999999999992}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{2.6000000000000045`, 0}, \
{2.8000000000000047`, 0.009999999999999992}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{2.8000000000000047`, 0}, {3.000000000000005, 0}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{3.000000000000005, 0}, \
{3.200000000000005, 0.004999999999999996}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{3.200000000000005, 0}, {3.4000000000000052`, 0}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], 
    RectangleBox[{3.4000000000000052`, 0}, \
{3.6000000000000054`, 0.004999999999999996}]}},
  AlignmentPoint->Center,
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"x-axis label\"", TraditionalForm], 
    FormBox["\"y-axis label\"", TraditionalForm]},
  AxesOrigin->{-2.6, 0},
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  DisplayFunction:>$DisplayFunction,
  Epilog->{},
  FormatType:>TraditionalForm,
  Frame->False,
  FrameLabel->None,
  FrameStyle->{},
  FrameTicks->Automatic,
  FrameTicksStyle->{},
  GridLines->None,
  GridLinesStyle->{},
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  LabelStyle->{},
  Method->Automatic,
  PlotLabel->FormBox["\"Enter Name Here\"", TraditionalForm],
  PlotRange->{{-2.6, 3.6000000000000054`}, All},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotateLabel->True,
  Ticks->{{{-2., 
      FormBox[
       RowBox[{"-", "2"}], TraditionalForm]}, {-1., 
      FormBox[
       RowBox[{"-", "1"}], TraditionalForm]}, {0., 
      FormBox["0", TraditionalForm]}, {1., 
      FormBox["1", TraditionalForm]}, {2., 
      FormBox["2", TraditionalForm]}, {3., 
      FormBox["3", TraditionalForm]}}, Automatic},
  TicksStyle->{}]], "Print",
 CellChangeTimes->{
  3.430930554020615*^9, 3.4309307134371696`*^9, {3.4309309804435177`*^9, 
   3.4309309973711452`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"5", 
    RowBox[{"b", ".", " ", "3"}], "x"}], "+", 
   RowBox[{"1", " ", "and", " ", "Benford"}]}], "Subsection"]], "Input",
 CellChangeTimes->{{3.430932313562294*^9, 3.4309323184477234`*^9}}],

Cell[BoxData["\"\<Below is some code for investigating 3x+1 and its \
generalizations\>\""], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"RemoveTwo", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "i", "}"}], ",", " ", 
    RowBox[{
     RowBox[{"i", " ", "=", " ", "x"}], ";", " ", 
     RowBox[{"While", "[", "  ", 
      RowBox[{
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{"i", ",", "2"}], "]"}], " ", "\[Equal]", " ", "0"}], ",", 
       " ", 
       RowBox[{"i", " ", "=", " ", 
        RowBox[{"i", " ", "/", " ", "2"}]}]}], "]"}], ";", " ", 
     RowBox[{"Return", "[", "i", "]"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"F3", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{"RemoveTwo", "[", " ", 
    RowBox[{
     RowBox[{"3", "*", 
      RowBox[{"RemoveTwo", "[", "x", "]"}]}], " ", "+", " ", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"F5", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{"RemoveTwo", "[", " ", 
    RowBox[{
     RowBox[{"5", "*", 
      RowBox[{"RemoveTwo", "[", "x", "]"}]}], " ", "+", " ", "1"}], "]"}]}], 
  ";"}]}], "Input"],

Cell[BoxData["\"\<We now give a code to check the first digits of the 3x+1 \
problem\>\""], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ben3", "[", 
    RowBox[{"start_", ",", " ", "num_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"d", ",", "m", ",", "j", ",", "x"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"m", "=", "1"}], ",", " ", 
        RowBox[{"m", "\[LessEqual]", " ", "9"}], ",", " ", 
        RowBox[{"m", "++"}], ",", " ", 
        RowBox[{
         RowBox[{"numdig", "[", "m", "]"}], " ", "=", " ", "0"}]}], "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"x", " ", "=", " ", "start"}], ";", "\[IndentingNewLine]", 
      RowBox[{"count", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"j", " ", "\[LessEqual]", " ", "num"}], ",", " ", 
        RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{"(*", " ", 
          RowBox[{
           RowBox[{"Print", "[", 
            RowBox[{
            "\"\<x = \>\"", ",", " ", "x", ",", " ", "\"\< at j = \>\"", ",", 
             " ", "j"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"numdig", "[", "   ", 
            RowBox[{"Mod", "[", "  ", 
             RowBox[{
              RowBox[{"Floor", "[", 
               RowBox[{"x", "*", 
                RowBox[{"1.0", " ", "/", " ", 
                 RowBox[{"10", "^", 
                  RowBox[{"Floor", "[", 
                   RowBox[{"Log", " ", "[", 
                    RowBox[{"10", ",", " ", "x"}], "]"}], "]"}]}]}]}], " ", 
               "]"}], ",", " ", "10"}], " ", "]"}], " ", "]"}], "++"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"count", " ", "=", " ", 
           RowBox[{"count", "+", "1"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"x", " ", "=", " ", 
           RowBox[{"F3", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"x", " ", "\[Equal]", " ", "1"}], ",", " ", 
            RowBox[{"j", " ", "=", " ", 
             RowBox[{"num", " ", "+", " ", "5"}]}]}], "]"}], ";"}], 
         "\[IndentingNewLine]", "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"bF", "[", "y_", "]"}], " ", ":=", " ", 
       RowBox[{
        RowBox[{"numdig", "[", 
         RowBox[{"Floor", "[", 
          RowBox[{"y", " ", "+", " ", ".5"}], "]"}], "]"}], " ", "/", 
        "count"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ben", "[", "y_", "]"}], " ", ":=", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"10", ",", " ", 
         RowBox[{"1", " ", "+", " ", 
          RowBox[{"(", 
           RowBox[{"1.0", "/", "y"}], ")"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Plot", "[", " ", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"bF", "[", "y", "]"}], ",", " ", 
          RowBox[{"ben", "[", "y", "]"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"y", ",", ".5", ",", "9.5"}], "}"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Count (the number of terms before we hit one) = \>\"", ",", " ", 
        "count"}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<The number is approximately 10^\>\"", ",", " ", 
        RowBox[{"Floor", "[", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{"1.0", " ", "start"}]}], "]"}], "]"}]}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ben3", "[", 
  RowBox[{
  "454353466457645775463645646475438578437598768493763984764983769837445745774\
5", ",", "1000"}], "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Count (the number of terms before we hit one) = \"\>", 
   "\[InvisibleSpace]", "529"}],
  SequenceForm["Count (the number of terms before we hit one) = ", 529],
  Editable->False]], "Print",
 CellChangeTimes->{3.430931073650442*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"The number is approximately 10^\"\>", "\[InvisibleSpace]", 
   "75"}],
  SequenceForm["The number is approximately 10^", 75],
  Editable->False]], "Print",
 CellChangeTimes->{3.4309310736621604`*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData["\"\<The following compares the terms of 5x+1 to a geometric \
brownian motion and the first digits of the\nterms to Benford's law.\>\""], \
"Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"glog", "[", 
   RowBox[{"x_", ",", "end_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "numat", ",", "tempplot", ",", "numdig", ",", "lognumdig", ",", "m", ",",
       "y", ",", "temp"}], "}"}], ",", 
    RowBox[{
     RowBox[{"Clear", "[", "tempplot", "]"}], ";", 
     RowBox[{"Clear", "[", "temp", "]"}], ";", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"m", "=", "1"}], ",", 
       RowBox[{"m", "\[LessEqual]", "9"}], ",", 
       RowBox[{"m", "++"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"lognumdig", "[", "m", "]"}], "=", "0"}], ";", 
         RowBox[{
          RowBox[{"numdig", "[", "m", "]"}], "=", "0"}], ";"}], "}"}]}], 
      "]"}], ";", 
     RowBox[{"tempplot", "=", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";", 
     RowBox[{"numat", "=", 
      RowBox[{"RemoveTwo", "[", "x", "]"}]}], ";", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "\[LessEqual]", "end"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Mod", "[", 
              RowBox[{"j", ",", "1000"}], "]"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             RowBox[{"Print", "[", 
              RowBox[{
              "\"\<j = \>\"", ",", "j", ",", "\"\< x = \>\"", ",", "numat", 
               ",", "\"\< and goes to \>\"", ",", 
               RowBox[{"F", "[", "numat", "]"}]}], "]"}], ";"}]}], "]"}], ";", 
          RowBox[{"AppendTo", "[", 
           RowBox[{"tempplot", ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", 
              RowBox[{"Log", "[", 
               RowBox[{"\[ExponentialE]", ",", "numat"}], "]"}]}], "}"}]}], 
           "]"}], ";", 
          RowBox[{"AppendTo", "[", 
           RowBox[{"tempplot", ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Log", "[", 
                 RowBox[{"\[ExponentialE]", ",", "1.25`"}], "]"}], " ", "j"}],
                "+", 
               RowBox[{"Log", "[", 
                RowBox[{"\[ExponentialE]", ",", "x"}], "]"}]}]}], "}"}]}], 
           "]"}], ";", 
          RowBox[{
           RowBox[{"numdig", "[", 
            RowBox[{"Mod", "[", 
             RowBox[{
              RowBox[{"Floor", "[", 
               FractionBox[
                RowBox[{"numat", " ", "1.`"}], 
                SuperscriptBox["10", 
                 RowBox[{"Floor", "[", 
                  RowBox[{"Log", "[", 
                   RowBox[{"10", ",", "numat"}], "]"}], "]"}]]], "]"}], ",", 
              "10"}], "]"}], "]"}], "++"}], ";", 
          RowBox[{"temp", "=", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"Log", "[", 
              RowBox[{"10", ",", "numat"}], "]"}], "-", 
             RowBox[{"j", " ", 
              RowBox[{"Log", "[", 
               RowBox[{"10", ",", "1.25`"}], "]"}]}]}]]}], ";", 
          RowBox[{
           RowBox[{"lognumdig", "[", 
            RowBox[{"Mod", "[", 
             RowBox[{
              RowBox[{"Floor", "[", 
               FractionBox[
                RowBox[{"temp", " ", "1.`"}], 
                SuperscriptBox["10", 
                 RowBox[{"Floor", "[", 
                  RowBox[{"Log", "[", 
                   RowBox[{"10", ",", "temp"}], "]"}], "]"}]]], "]"}], ",", 
              "10"}], "]"}], "]"}], "++"}], ";", 
          RowBox[{"numat", "=", 
           RowBox[{
            RowBox[{"5", " ", "numat"}], "+", "1"}]}], ";"}], "}"}]}], "]"}], 
      " ", 
      RowBox[{"ListPlot", "[", 
       RowBox[{"tempplot", ",", 
        RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}]}], ";", 
     RowBox[{"Clear", "[", "tempplot", "]"}], ";", 
     RowBox[{"tempplot", "=", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"m", "=", "1"}], ",", 
       RowBox[{"m", "\[LessEqual]", "9"}], ",", 
       RowBox[{"m", "++"}], ",", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"tempplot", ",", 
         RowBox[{"{", 
          RowBox[{"m", ",", 
           FractionBox[
            RowBox[{"1.`", " ", 
             RowBox[{"numdig", "[", "m", "]"}]}], "end"]}], "}"}]}], "]"}]}], 
      "]"}], ";", 
     RowBox[{"ListPlot", "[", "tempplot", "]"}], ";", 
     RowBox[{"Clear", "[", "tempplot", "]"}], ";", 
     RowBox[{
      RowBox[{"bF", "[", "y_", "]"}], ":=", 
      FractionBox[
       RowBox[{"numdig", "[", 
        RowBox[{"Floor", "[", 
         RowBox[{"y", "+", "0.5`"}], "]"}], "]"}], "end"]}], ";", 
     RowBox[{
      RowBox[{"ben", "[", "y_", "]"}], ":=", 
      RowBox[{"Log", "[", 
       RowBox[{"10", ",", 
        RowBox[{"1", "+", 
         FractionBox["1.`", "y"]}]}], "]"}]}], ";", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"bF", "[", "y", "]"}], ",", 
         RowBox[{"ben", "[", "y", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "0.5`", ",", "9.5`"}], "}"}]}], "]"}], ";", 
     RowBox[{"tempplot", "=", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"m", "=", "1"}], ",", 
       RowBox[{"m", "\[LessEqual]", "9"}], ",", 
       RowBox[{"m", "++"}], ",", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"tempplot", ",", 
         RowBox[{"{", 
          RowBox[{"m", ",", 
           FractionBox[
            RowBox[{"1.`", " ", 
             RowBox[{"lognumdig", "[", "m", "]"}]}], "end"]}], "}"}]}], 
        "]"}]}], "]"}], ";", 
     RowBox[{
      RowBox[{"logbF", "[", "y_", "]"}], ":=", 
      FractionBox[
       RowBox[{"lognumdig", "[", 
        RowBox[{"Floor", "[", 
         RowBox[{"y", "+", "0.5`"}], "]"}], "]"}], "end"]}], ";", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"logbF", "[", "y", "]"}], ",", 
         RowBox[{"ben", "[", "y", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "0.5`", ",", "9.5`"}], "}"}]}], "]"}]}]}], 
   "]"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"glog", "[", 
  RowBox[{"421", ",", "1500"}], "]"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"j = \"\>", "\[InvisibleSpace]", "1000", 
   "\[InvisibleSpace]", "\<\" x = \"\>", "\[InvisibleSpace]", 
   "78627459858896190554915044142981596540239954356816401074379433127810212249\
709097202786597557996482873795877901629817441090154823674077229265398128849431\
166212749098622153893910584085151812229304810216349585335780211763179371557421\
875336269342316222496051338418485431034315331848764685814454988100204805769932\
276068742174054984533165042135545915309165887418335326703139836399678918414091\
434763303615963002985010536926594034633027214596316505559887855884430080780309\
434873806208934163344037680342676995140555140776766417723013472257825338145946\
430078213898318021766628846122184512978444688861312816781835613271472733983782\
093622425926298695459752243641481049947700512903203673431562492623925209045410\
156", "\[InvisibleSpace]", "\<\" and goes to \"\>", "\[InvisibleSpace]", 
   RowBox[{
   "F", "[", 
    "7862745985889619055491504414298159654023995435681640107437943312781021224\
970909720278659755799648287379587790162981744109015482367407722926539812884943\
116621274909862215389391058408515181222930481021634958533578021176317937155742\
187533626934231622249605133841848543103431533184876468581445498810020480576993\
227606874217405498453316504213554591530916588741833532670313983639967891841409\
143476330361596300298501053692659403463302721459631650555988785588443008078030\
943487380620893416334403768034267699514055514077676641772301347225782533814594\
643007821389831802176662884612218451297844468886131281678183561327147273398378\
209362242592629869545975224364148104994770051290320367343156249262392520904541\
0156", "]"}]}],
  SequenceForm[
  "j = ", 1000, " x = ", 
   786274598588961905549150441429815965402399543568164010743794331278102122497\
090972027865975579964828737958779016298174410901548236740772292653981288494311\
662127490986221538939105840851518122293048102163495853357802117631793715574218\
753362693423162224960513384184854310343153318487646858144549881002048057699322\
760687421740549845331650421355459153091658874183353267031398363996789184140914\
347633036159630029850105369265940346330272145963165055598878558844300807803094\
348738062089341633440376803426769951405551407767664177230134722578253381459464\
300782138983180217666288461221845129784446888613128167818356132714727339837820\
936224259262986954597522436414810499477005129032036734315624926239252090454101\
56, " and goes to ", 
   $CellContext`F[
   786274598588961905549150441429815965402399543568164010743794331278102122497\
090972027865975579964828737958779016298174410901548236740772292653981288494311\
662127490986221538939105840851518122293048102163495853357802117631793715574218\
753362693423162224960513384184854310343153318487646858144549881002048057699322\
760687421740549845331650421355459153091658874183353267031398363996789184140914\
347633036159630029850105369265940346330272145963165055598878558844300807803094\
348738062089341633440376803426769951405551407767664177230134722578253381459464\
300782138983180217666288461221845129784446888613128167818356132714727339837820\
936224259262986954597522436414810499477005129032036734315624926239252090454101\
56]],
  Editable->False]], "Print",
 CellChangeTimes->{3.4309310845735717`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxNzHk81Hkcx/GZcY653deM4oFNy1rpcOT3sz1a15Z9oMKoPESyxWRLOrSU
KTokpXFUKkM6hNC6WqsJ0aM2Dx5EGKNizbCWaZBZZnb3j/1+9o/34/V4/vNe
GcULiiERCATBP/u3jz9cjyIQJFiG8cBvC8E9mJ7Vh+N5Pe+Ro8MdrjqVjSF7
i15GmXRMIjdla+rzW2aQS2jaa4oufUL+4BswaWY4h2zNvyy8VjCP7FPdxExS
gA9Ixk+GBC4gpyanuLamgK/Q9SfXPABbvIton2wBl5SW3RG+BcdRtmSr34Od
EuUp3GmwvC/vh7pFcJ3nxlADrc9Yf4RvYVBiO0YquOrS3Qj+bk5KzTm4iPyl
AzfupFKJTNn9qi2Ov4RsZsrCPp5TI8tiroQ+diTi/5n1NNJtpJaEPONc4bya
qYHcVfqXffJ+MB5ZbMMuAFea+1k9bwePJ1uyBcNgTu+f5nEK8IHy6HdsJbgx
faCgWw3W5W4Ny9DSxNkGnvn2sl+x7S7PTT0pYLmkPK/UGHwpW2DMsAavoPkn
MXrBNeeXexiZWsjWpFVuqVQd5N/nmwpnjugiz8calHSpyciPCDeyTp2iICdo
hMuSK8DO2qY+CYNgyVkf8cNxcI5OcpJ0Fix7QffOXAB/k3mXar8MLvT16m8j
UXG+y3Fun6wek+v2CaN1wcF6a7tHOOBaSi6Buxa8nsVs9MkGNxpfPOQqBY/v
3uu+uZyGzLqPE7fz6MjN9REXjg0ykLnFRWKtGiby6pSy2LrDLGT/4iPkj3fA
+zo2P2S+ASdzHZfujoHPThtu2bgEnpB8bcJU/++vZ+voe6I+/rO73VHnwFqs
vG3/wyeaYHp9ZlKmDrj7hojsRAMLTi3d7NEHcwIOtnM44FLDj9Nxq8BzqYeG
dl0Ab54kvQz+A3w5bZvQq8QAueJ+y1TODkNkOZN+3tLcCHl0XbbtvTdg6/gz
IYpBcLTwRDo+AeY3zxfunQaXDiRWX1SA18V+1XxrAdyumOqsVoK3n37Q27YM
HmfsG+0nGONndxJ/rGyowvalhGCJZuDJCfwm2QU888wszH0PeK5Qbrg/FywV
VLUS5sDDVxIOC7aZIPP8ON0isimyvVdVut1r8PnZpDUX0s2QQ9PjT3hVgW2N
Yp7PDoHzF6OucSbAVHFkbMAn8Lddu7tGP4NTRbvcjqrANzzE8ZuI5riwLubR
JXIFVl+7s5iuCe51HO4b0AbL70ZQSsngAV5opcoK3LIhJDh0HTjhhGtWeB7Y
stnwRcRnsA2J7Bb1yAI5kD+iKkq0RLZrk4qGvmAjdxVQF04PgZdlF99UTYAd
PGn3xApw0veOHNkCuCV6S+6cEkw9Fq9HVIF3ZGWlUYkcvJLQ8DbC9wE2/eT1
ARsdMF9MC3OngcVpdD2BLXiDDaNpdiN4KpbJvp8Avl3OSo28Bd5l5CQKVIIt
fvLXwrZZIQ+3V/McaCuQ8/Jf5UrjwWV+BLdVHeCqk+eotyXg+sf6EuNFsFt/
eqPtErhRpch1VYOVOY6kp4SVeHi0x0hgVhnmYbuXt4kETqkvGnqpAX4a8NYv
SAvcnN+g4lHALWPXa7JY4NbUSHYnG9xpZpuh6QA+k9gaX70D7N25JyTyDFgo
qgibEYNNBmW6lrg18mg3vr6jEPyLNIPBXAY/M6rUzFSB27z7FtVq8N/7ODmv

     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVy3dczf8DxfFbkko03NK4UlfJ9qVC1nkrKyIkUpeuEfVDRpGvVMr1LaJd
FMpIpUS3IVo3KZrudRuqm6uhtLVcGvh9/HEe5/H846V36NQuR2kajeZH7e9z
W+8cotGa8PIEQ9/wmhg3ZhzQvqfehDq9i1ylU2Ic3atbbbqwCRaWA1JzbcRg
lMdtcLVrAttoz4NuPTH801LmtGc0wV2SvvtB3icc8OH1lTs3Q9HlfMG+X41Q
mNl68VZVC2Ifhw7yokVos31sZNzVgkeh9zgVV0UoCD3WI6C1wmPbyd1jp0U4
J9uzX2FRKwrNKzbnbxKhqXeYePq3YvMO+ckCSQOycmUnHV7zBUKP41NEdg04
YjcvbFFCG4xP5FzzW1EPmUanZWm8NmTVs0s/GNTj0f6EepO6NmywGQs2nVaP
Fra+7hr5dvSPFIWw++rAPqaTsvV4O7iXBzgy8XWwd1N957T4K3qMI+86adVh
V+Do6MOsDticpdMH1D5iUMk0ZragA0LVsgAX2Y8ICXFfl9TRAenV4h9SP2oh
CB/242p2gm5g1+VcV4vtd/roBR6d+N/SmImmd2uxJbFl0Sd0YcXyEsunhrVY
V1h2aHpJN1TP/8Abyxq8yOEbjIm7saf6oa8/qcG8zOoO8fdujEy47cYyrgE9
UewSP6sHtDD3n4sZNei4OXjRxLsHTlZagb491QjcpxVmvawXRw4vBC+oGo39
zm+C4voQOag53vu5Cju7XP5zzelDWhU/y7amCm9bXS32CvsQk+0+n19Whee1
nnwd2jdcY2p3iTOr4JsbIkqx/4aBStc7fjeqQC9qHHGU74fp5ULN3lVVyAmS
UeUU9MPghHVgwEMh0iL8L+aW9+Mfoy097lFCJN1RbB2u7Yf71bbTJ4OFiE6g
Zzj29kN4RTrT1UuICzz9PZu0BuBjYna/206IZd/WRyu4DYAVuVrHU02I1O1X
mSGGgzBPpBtVBn9A3BRZo5jAIQyN6sg8vieA1/IS5bLoIZxTuqndFCGA7cHr
fd/jh/BRrJbEDBRAMXNq0jbeENIGj9LyvQRwY03X+/VtCGO3jxyyZAuwPnmO
EmvnMLgW74vy9QVo3by1W5P+HVH2vGonRz6YnOBHEVES9DZpMVpeV6K90yRk
IE6CnB1xop0vKpFsJfLalipBRPC9srKkShhrz7ab+E6Cf7KgUBdWiU1pOcrn
hiVg2LWLDhytxImmds/dVj/ws8uFTZ9SiazVa2ynTfyJzZ9vGX5kV8Dye6di
yOkRLDuoIZc6sxxDXpWnmi6NYGVy84adauWIluMKF18bwat5JyNHFcrRoX3h
9vsHI/B5csnCUVIGjpmsvmLVCLb6ZfRFVZYhN4i5ys9kFCEFa3UveJZhwTx7
Z8/RUQTN3cUuaynFZIeKYmfOONRXaXyQLixB/xnuc+/gcWzZaKET+KoE1ZzI
qIi743DLY2+eyS3B3ST2ydcZ47DcdVPL+n4JFkiG6Zpt42i3FkymeZdg+80Z
R0o2/IIUO63NeU0JQnNcpA0n/YbGxq3mNvnvoKmhgi/X/mArJ7T0IP8tuhxD
bbkLpcgJ8+dyw6QYKrls088Z0qSaUT/yquwNAoMi1ZWYMoT13+n2k1GFSL/+
q0rJfyK5J1HwnxX8GkzpuabeipNI9Ax1kVJwAb5KcqL7z8uRmLEAtr8bD5Jj
0+IEf+TJjqvZPK+qPKTQ7t708ZlMik9br7Q4lIts9Ruuxp2KpLjo2b/tc3Kg
8oRI7Tk1lWSPRoZaD75C/ktWwL8iJRLnWFQY1vES9g9jxBPTlYlaFD/zxecs
zL+UcCzLTYVc8uhS2dH/Ao/pX/qc56oShC6N2Kv3Ahu6pcuse1XJtIwJTuId
mQi+bPNobdw08sw5ZlbCnQw8e1LQE7KXTnqbwx32fk/HoPLU6wwtNeL5KOee
s2U6mpcFGSTy1cguf5FMyMs0fI8epB8PVyd5Ml22k5hp+BTq4hZpM52YpD+N
WXSLi1MWOsJCeQ1iptTmO8LgwnBt6pXZlRpkc4SHen5sKq4PnDMKuKJJ9qkw
RvSXpKJgxW5r22VahFaUfmZf+HMw8unvWD+1iKxlntWCgmeYJS1veihFmyQe
jfktK/MMVpzPv2POMMj7HrWCsXUpmF3cWdg4ZwZxCNxvezbiKQRRij98G2eQ
+a9ll9YPJeP+UxVvdqwO0a79ZOxmmQxtry0TYTOTjFvaXTDISsKnt2mn5k3R
JRl8oaYjIwm3bleEd57UJdxYnQZmwBMkWNBM55bokkBeDX+5/BOUahr4yczT
I++Wq7KUfROxrvTwbvZVPbJFb6rDN7lEPCp8tq9frEfCp1ZkP45MwHRRlxyD
MEmssl89a2YCmoVkeUk0k9Re8D2yKiMeeZ1+Ssq/mKTR4sNa5/Xx0Jm1hK9N
+blTJpNF2YvVEGhIOXg0UdaK8lr+gqmgzHTPf29MOT/jg6ILZR/BQwcaZZ63
tkIF5Vk9Ozi3zOPxWu25jP9vJimYZFZfbBYPppVtURhlxd103kvKvv5SnFjK
P5QkccmUzcasJ2RRdqr9ejqEcmHTT6l2yt7RHPn9lN8km/0x/8MkOV8frhle
Fw/9tu58K8p5eif0v1Lm6ER42VPOLl0/uYHy+pCvv85SXnRYv55Huej8jfEH
lKtf3j0X8LdPNclNoezr0Mzy+tt3ij1eUbZ2NVl/5m/PWjImoFzePHnaXspx
EQ3ZjZQ3rg4ctaAsw79ysYPy4Qm6LaspH5FbuHKYsuby16WLKRevqx35Q9n8
4xkuk/L/AWxDGtU=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{2., 0.1},
  PlotRange->{{0.5, 9.5}, {0.04346569458077323, 0.47712114836185604`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.430931085314735*^9}]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input"],

Cell[BoxData[
 StyleBox[
  RowBox[{"5", 
   RowBox[{"c", ".", " ", "The"}], " ", "Josephus", " ", "Problem"}], 
  "Subsection"]], "Input",
 CellChangeTimes->{{3.4309323278182173`*^9, 3.4309323333120065`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "does", " ", "the", " ", "josephus", " ", "problem", " ", "for", " ", 
     "k"}], " ", "<=", " ", "4"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "you", " ", "have", " ", "n", " ", "people", " ", "in", " ", "a", " ", 
     "circle"}], ",", " ", 
    RowBox[{
     RowBox[{
     "person", " ", "one", " ", "starts", " ", "with", " ", "a", " ", "gun", 
      " ", "and", " ", "kills", " ", "the", " ", "k"}], "-", 
     RowBox[{
     "1", "st", " ", "person", " ", "from", " ", "him", " ", "and", " ", 
      "then", " ", "passes", " ", "the", " ", "gun", " ", "to", " ", "the", 
      " ", "next", " ", "person", " ", "on", " ", "the", " ", 
      RowBox[{"circle", ".", " ", "this"}], " ", "continues", " ", "until", 
      " ", "only", " ", "1", " ", "person", " ", "is", " ", 
      RowBox[{"left", "."}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"josp", "[", 
     RowBox[{"n_", ",", " ", "k_"}], "]"}], " ", ":=", " ", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"nlist", " ", "=", " ", 
        RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"count", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"i", " ", "=", " ", "1"}], ",", " ", 
         RowBox[{"i", " ", "\[LessEqual]", " ", "n"}], ",", " ", 
         RowBox[{"i", "++"}], ",", " ", 
         RowBox[{"nlist", " ", "=", " ", 
          RowBox[{"AppendTo", "[", 
           RowBox[{"nlist", ",", "i"}], "]"}]}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"listlength", " ", "=", " ", 
        RowBox[{"Length", "[", "nlist", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", "nlist", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"While", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"listlength", " ", "\[GreaterEqual]", " ", "k"}], " ", "&&",
           " ", 
          RowBox[{"count", " ", "\[LessEqual]", " ", "n"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"count", " ", "=", " ", 
            RowBox[{"count", "+", "1"}]}], ";", " ", 
           RowBox[{"(*", " ", 
            RowBox[{"makes", " ", "sure", " ", "coding", " ", "error", " ", 
             RowBox[{"doesn", "'"}], "t", " ", "have", " ", "program", " ", 
             "run", " ", "4", "ever"}], "*)"}], "\[IndentingNewLine]", 
           RowBox[{"newlist", " ", "=", " ", 
            RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"tempnewlist", " ", "=", " ", 
            RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"last", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Mod", "[", 
               RowBox[{"listlength", ",", "k"}], "]"}], " ", "==", " ", "0"}],
              ",", "\[IndentingNewLine]", 
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"For", "[", 
                RowBox[{
                 RowBox[{"i", " ", "=", " ", "1"}], ",", " ", 
                 RowBox[{"i", " ", "\[LessEqual]", " ", "listlength"}], ",", 
                 " ", 
                 RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"Mod", "[", 
                    RowBox[{"i", ",", "k"}], "]"}], " ", "\[NotEqual]", " ", 
                    "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"newlist", " ", "=", " ", 
                    RowBox[{"AppendTo", "[", 
                    RowBox[{"newlist", ",", 
                    RowBox[{"nlist", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}]}], "]"}],
                   ";"}]}], "]"}], ";"}], "\[IndentingNewLine]", "}"}]}], 
            "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Mod", "[", 
               RowBox[{"listlength", ",", "k"}], "]"}], " ", "!=", " ", "0"}],
              ",", " ", "\[IndentingNewLine]", 
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"tempnewlist", " ", "=", " ", 
                RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
               RowBox[{"For", "[", 
                RowBox[{
                 RowBox[{"i", " ", "=", " ", "1"}], ",", " ", 
                 RowBox[{"i", " ", "\[LessEqual]", " ", 
                  RowBox[{"k", "*", 
                   RowBox[{"Floor", "[", 
                    RowBox[{"listlength", "/", "k"}], "]"}]}]}], ",", " ", 
                 RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"Mod", "[", 
                    RowBox[{"i", ",", "k"}], "]"}], " ", "\[NotEqual]", " ", 
                    "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"tempnewlist", " ", "=", " ", 
                    RowBox[{"AppendTo", "[", 
                    RowBox[{"tempnewlist", ",", 
                    RowBox[{"nlist", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}]}], "]"}],
                   ";"}]}], "]"}], ";", "\[IndentingNewLine]", 
               RowBox[{"newlist", " ", "=", " ", 
                RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
               RowBox[{"remainder", " ", "=", " ", 
                RowBox[{"listlength", " ", "-", " ", 
                 RowBox[{"k", "*", " ", 
                  RowBox[{"Floor", "[", 
                   RowBox[{"listlength", "/", "k"}], "]"}]}]}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"For", "[", 
                RowBox[{
                 RowBox[{"i", " ", "=", " ", 
                  RowBox[{
                   RowBox[{"k", "*", " ", 
                    RowBox[{"Floor", "[", 
                    RowBox[{"listlength", "/", "k"}], "]"}]}], "+", "1"}]}], 
                 ",", " ", 
                 RowBox[{"i", " ", "<=", " ", "listlength"}], ",", " ", 
                 RowBox[{"i", "++"}], ",", " ", 
                 RowBox[{"newlist", " ", "=", " ", 
                  RowBox[{"AppendTo", "[", 
                   RowBox[{"newlist", ",", " ", 
                    RowBox[{"nlist", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}], "]"}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"For", "[", 
                RowBox[{
                 RowBox[{"i", " ", "=", " ", "1"}], ",", " ", 
                 RowBox[{"i", " ", "\[LessEqual]", " ", 
                  RowBox[{"Length", "[", "tempnewlist", "]"}]}], ",", " ", 
                 RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
                 RowBox[{"newlist", " ", "=", " ", 
                  RowBox[{"AppendTo", "[", 
                   RowBox[{"newlist", ",", 
                    RowBox[{"tempnewlist", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}], "]"}], ";"}],
               "\[IndentingNewLine]", "}"}]}], "]"}], ";", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"nlist", " ", "=", " ", "newlist"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", "nlist", "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"listlength", " ", "=", " ", 
            RowBox[{"Length", "[", "nlist", "]"}]}], ";"}], 
          "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}]}], "]"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"k", " ", "\[Equal]", " ", "3"}], ",", " ", 
         RowBox[{"Print", "[", 
          RowBox[{"\"\<{\>\"", ",", 
           RowBox[{"nlist", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", "\"\<}\>\""}], "]"}]}], 
        "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"k", "  ", "==", " ", "4"}], " ", "&&", " ", 
          RowBox[{
           RowBox[{"Length", "[", "nlist", "]"}], " ", "\[Equal]", " ", 
           "2"}]}], ",", " ", 
         RowBox[{"Print", "[", 
          RowBox[{"\"\<{\>\"", ",", 
           RowBox[{"nlist", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "\"\<}\>\""}], "]"}]}], 
        "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"k", " ", "==", " ", "3"}], " ", "&&", " ", 
          RowBox[{
           RowBox[{"Length", "[", "nlist", "]"}], " ", "\[Equal]", " ", 
           "3"}]}], ",", 
         RowBox[{"Print", "[", 
          RowBox[{"\"\<{\>\"", ",", 
           RowBox[{"nlist", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", "\"\<}\>\""}], "]"}]}], 
        "]"}], ";"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}],
    ";"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"josp", "[", 
  RowBox[{"28", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.4337678775389595`*^9, 3.4337678888670845`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28"}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.4309310916219482`*^9, 3.4337128706434045`*^9, {3.4337678692733345`*^9, 
   3.4337678893670845`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "3", ",", "5", ",", "7", ",", "9", ",", "11", ",", "13", ",", 
   "15", ",", "17", ",", "19", ",", "21", ",", "23", ",", "25", ",", "27"}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.4309310916219482`*^9, 3.4337128706434045`*^9, {3.4337678692733345`*^9, 
   3.4337678893827095`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "5", ",", "9", ",", "13", ",", "17", ",", "21", ",", "25"}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.4309310916219482`*^9, 3.4337128706434045`*^9, {3.4337678692733345`*^9, 
   3.4337678894139595`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"25", ",", "1", ",", "9", ",", "17"}], "}"}]], "Print",
 CellChangeTimes->{
  3.4309310916219482`*^9, 3.4337128706434045`*^9, {3.4337678692733345`*^9, 
   3.4337678894295845`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"25", ",", "9"}], "}"}]], "Print",
 CellChangeTimes->{
  3.4309310916219482`*^9, 3.4337128706434045`*^9, {3.4337678692733345`*^9, 
   3.4337678894452095`*^9}}],

Cell[BoxData[
 RowBox[{"{", "25", "}"}]], "Print",
 CellChangeTimes->{
  3.4309310916219482`*^9, 3.4337128706434045`*^9, {3.4337678692733345`*^9, 
   3.4337678894608345`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input"],

Cell[BoxData[
 StyleBox[
  RowBox[{"5", 
   RowBox[{"d", ".", " ", "Magic"}], " ", "Squares"}], "Subsection"]], "Input",
 CellChangeTimes->{{3.430932394121591*^9, 3.430932399020692*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "this", " ", "program", " ", "will", " ", "find", " ", "all", " ", "3", 
    " ", "x", " ", "3", " ", "magic", " ", "squares", " ", "with", " ", 
    "rows", " ", "and", " ", "columns", " ", "and", " ", "diagonals", " ", 
    "summing", " ", "to", " ", "15."}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"ninelist", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", 
       "8", ",", "9"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"permninelist", " ", "=", " ", 
     RowBox[{"Permutations", "[", "ninelist", "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"j", " ", "=", " ", "1"}], ",", " ", 
      RowBox[{"j", " ", "\[LessEqual]", " ", 
       RowBox[{"9", "!"}]}], ",", " ", 
      RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", " ", "=", " ", "1"}], ",", " ", 
          RowBox[{"i", " ", "\[LessEqual]", " ", "9"}], ",", " ", 
          RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"matrix", "[", "i", "]"}], " ", "=", " ", 
             RowBox[{
              RowBox[{"permninelist", "[", 
               RowBox[{"[", "j", "]"}], "]"}], "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
           "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"rows", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", 
        RowBox[{"columns", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", 
        RowBox[{"diag", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", " ", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"matrix", "[", "1", "]"}], " ", "+", " ", 
             RowBox[{"matrix", "[", "2", "]"}], " ", "+", " ", 
             RowBox[{"matrix", "[", "3", "]"}]}], " ", "\[Equal]", " ", 
            "15"}], " ", "&&", " ", 
           RowBox[{
            RowBox[{
             RowBox[{"matrix", "[", "4", "]"}], " ", "+", " ", 
             RowBox[{"matrix", "[", "5", "]"}], " ", "+", " ", 
             RowBox[{"matrix", "[", "6", "]"}]}], " ", "\[Equal]", " ", 
            "15"}], " ", "&&", " ", 
           RowBox[{
            RowBox[{
             RowBox[{"matrix", "[", "7", "]"}], " ", "+", " ", 
             RowBox[{"matrix", "[", "8", "]"}], " ", "+", " ", 
             RowBox[{"matrix", "[", "9", "]"}]}], " ", "\[Equal]", " ", 
            "15"}]}], ",", " ", 
          RowBox[{"rows", " ", "=", " ", "1"}]}], "]"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"If", "[", " ", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"matrix", "[", "1", "]"}], " ", "+", " ", 
             RowBox[{"matrix", "[", "4", "]"}], " ", "+", " ", 
             RowBox[{"matrix", "[", "7", "]"}]}], " ", "\[Equal]", " ", 
            "15"}], " ", "&&", " ", 
           RowBox[{
            RowBox[{
             RowBox[{"matrix", "[", "2", "]"}], " ", "+", " ", 
             RowBox[{"matrix", "[", "5", "]"}], " ", "+", " ", 
             RowBox[{"matrix", "[", "8", "]"}]}], " ", "\[Equal]", " ", 
            "15"}], " ", "&&", " ", 
           RowBox[{
            RowBox[{
             RowBox[{"matrix", "[", "3", "]"}], " ", "+", " ", 
             RowBox[{"matrix", "[", "6", "]"}], " ", "+", " ", 
             RowBox[{"matrix", "[", "9", "]"}]}], " ", "\[Equal]", " ", 
            "15"}]}], ",", " ", 
          RowBox[{"columns", " ", "=", " ", "1"}]}], "]"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"If", "[", " ", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"matrix", "[", "1", "]"}], " ", "+", " ", 
            RowBox[{"matrix", "[", "4", "]"}], " ", "+", " ", 
            RowBox[{"matrix", "[", "9", "]"}]}], " ", "\[Equal]", " ", 
           RowBox[{
            RowBox[{"matrix", "[", "3", "]"}], " ", "+", " ", 
            RowBox[{"matrix", "[", "4", "]"}], " ", "+", " ", 
            RowBox[{"matrix", "[", "7", "]"}]}]}], ",", " ", 
          RowBox[{"diag", " ", "=", " ", "1"}]}], "]"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"rows", " ", "==", " ", "1"}], " ", "&&", " ", 
           RowBox[{"columns", " ", "\[Equal]", " ", "1"}], " ", "&&", " ", 
           RowBox[{"diag", " ", "\[Equal]", " ", "1"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Print", "[", 
            RowBox[{"MatrixForm", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"matrix", "[", "1", "]"}], ",", 
                 RowBox[{"matrix", "[", "2", "]"}], ",", 
                 RowBox[{"matrix", "[", "3", "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"matrix", "[", "4", "]"}], ",", 
                 RowBox[{"matrix", "[", "5", "]"}], ",", 
                 RowBox[{"matrix", "[", "6", "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"matrix", "[", "7", "]"}], ",", 
                 RowBox[{"matrix", "[", "8", "]"}], ",", 
                 RowBox[{"matrix", "[", "9", "]"}]}], "}"}]}], "}"}], "]"}], 
            "]"}], ";"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "}"}]}], "]"}], ";"}]}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2", "7", "6"},
     {"9", "5", "1"},
     {"4", "3", "8"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.4309311107105703`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2", "9", "4"},
     {"7", "5", "3"},
     {"6", "1", "8"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.4309311126088867`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"4", "3", "8"},
     {"9", "5", "1"},
     {"2", "7", "6"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.430931125437167*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"4", "9", "2"},
     {"3", "5", "7"},
     {"8", "1", "6"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.430931130389975*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"6", "1", "8"},
     {"7", "5", "3"},
     {"2", "9", "4"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.430931141170535*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"6", "7", "2"},
     {"1", "5", "9"},
     {"8", "3", "4"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.4309311460501056`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"8", "1", "6"},
     {"3", "5", "7"},
     {"4", "9", "2"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.4309311587573*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"8", "3", "4"},
     {"1", "5", "9"},
     {"6", "7", "2"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.4309311606136265`*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{3.4309312887694864`*^9, 3.430932716061923*^9}],

Cell[BoxData[
 StyleBox[
  RowBox[{
  "6.", " ", "Saving", " ", "and", " ", "Reading", " ", "Information"}], 
  "Section"]], "Input",
 CellChangeTimes->{{3.4309312905476933`*^9, 3.430931296570745*^9}, {
  3.430932411909515*^9, 3.430932416713895*^9}, {3.4309325024671955`*^9, 
  3.430932502737686*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "a", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", " ", "=", " ", "1"}], ",", " ", 
    RowBox[{"i", " ", "\[LessEqual]", " ", "5"}], ",", " ", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"j", " ", "=", " ", "1"}], ",", " ", 
      RowBox[{"j", " ", "\[LessEqual]", " ", "5"}], ",", " ", 
      RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"k", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"k", " ", "\[LessEqual]", " ", "5"}], ",", " ", 
        RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"a", "[", "i", "]"}], "[", "j", "]"}], "[", "k", "]"}], 
          " ", "=", 
          RowBox[{"i", "*", "j", "*", "k"}]}], ";"}]}], " ", "]"}]}], "]"}]}],
    "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tablelist", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", "i", "]"}], "[", "j", "]"}], "[", "k", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "1", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "tablelist", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Put", "[", 
   RowBox[{"tablelist", ",", "\"\<pleaseworksave\>\""}], "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "clear", " ", "these", " ", "two", " ", "lines", " ", "to", " ", "test", 
    " ", "that", " ", "it", " ", "really", " ", "is", " ", "saving", " ", 
    "and", " ", "reading"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "tablelist", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "readlist", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "tablelist", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "readlist", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"readlist", " ", "=", " ", 
   RowBox[{"Get", "[", "\"\<pleaseworksave\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\<Now that we've read it in, readlist = \>\"", ",", " ", "readlist"}], 
   "]"}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.430931309640221*^9, 3.4309314596550336`*^9}, {
  3.4337129555809045`*^9, 3.4337129582059045`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"1"},
          {"2"},
          {"3"},
          {"4"},
          {"5"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"2"},
          {"4"},
          {"6"},
          {"8"},
          {"10"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"3"},
          {"6"},
          {"9"},
          {"12"},
          {"15"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"4"},
          {"8"},
          {"12"},
          {"16"},
          {"20"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"5"},
          {"10"},
          {"15"},
          {"20"},
          {"25"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}]},
     {
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"2"},
          {"4"},
          {"6"},
          {"8"},
          {"10"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"4"},
          {"8"},
          {"12"},
          {"16"},
          {"20"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"6"},
          {"12"},
          {"18"},
          {"24"},
          {"30"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"8"},
          {"16"},
          {"24"},
          {"32"},
          {"40"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"10"},
          {"20"},
          {"30"},
          {"40"},
          {"50"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}]},
     {
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"3"},
          {"6"},
          {"9"},
          {"12"},
          {"15"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"6"},
          {"12"},
          {"18"},
          {"24"},
          {"30"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"9"},
          {"18"},
          {"27"},
          {"36"},
          {"45"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"12"},
          {"24"},
          {"36"},
          {"48"},
          {"60"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"15"},
          {"30"},
          {"45"},
          {"60"},
          {"75"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}]},
     {
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"4"},
          {"8"},
          {"12"},
          {"16"},
          {"20"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"8"},
          {"16"},
          {"24"},
          {"32"},
          {"40"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"12"},
          {"24"},
          {"36"},
          {"48"},
          {"60"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"16"},
          {"32"},
          {"48"},
          {"64"},
          {"80"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"20"},
          {"40"},
          {"60"},
          {"80"},
          {"100"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}]},
     {
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"5"},
          {"10"},
          {"15"},
          {"20"},
          {"25"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"10"},
          {"20"},
          {"30"},
          {"40"},
          {"50"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"15"},
          {"30"},
          {"45"},
          {"60"},
          {"75"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"20"},
          {"40"},
          {"60"},
          {"80"},
          {"100"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"25"},
          {"50"},
          {"75"},
          {"100"},
          {"125"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.43093142278337*^9, 3.430931460128636*^9}, {
   3.4337129290027795`*^9, 3.4337129587215295`*^9}, 3.4337679282420845`*^9}],

Cell[CellGroupData[{

Cell[BoxData["tablelist"], "Print",
 CellChangeTimes->{{3.4309314399043446`*^9, 3.4309314601842966`*^9}, {
   3.4337129291590295`*^9, 3.4337129587840295`*^9}, 3.4337679283202095`*^9}],

Cell[BoxData["readlist"], "Print",
 CellChangeTimes->{{3.4309314399043446`*^9, 3.4309314601842966`*^9}, {
   3.4337129291590295`*^9, 3.4337129587840295`*^9}, 3.4337679283983345`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Now that we've read it in, readlist = \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "4", ",", "6", ",", "8", ",", "10"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "6", ",", "9", ",", "12", ",", "15"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "8", ",", "12", ",", "16", ",", "20"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "10", ",", "15", ",", "20", ",", "25"}], "}"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "4", ",", "6", ",", "8", ",", "10"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "8", ",", "12", ",", "16", ",", "20"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "12", ",", "18", ",", "24", ",", "30"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", "16", ",", "24", ",", "32", ",", "40"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"10", ",", "20", ",", "30", ",", "40", ",", "50"}], "}"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "6", ",", "9", ",", "12", ",", "15"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "12", ",", "18", ",", "24", ",", "30"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"9", ",", "18", ",", "27", ",", "36", ",", "45"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"12", ",", "24", ",", "36", ",", "48", ",", "60"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"15", ",", "30", ",", "45", ",", "60", ",", "75"}], "}"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "8", ",", "12", ",", "16", ",", "20"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", "16", ",", "24", ",", "32", ",", "40"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"12", ",", "24", ",", "36", ",", "48", ",", "60"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"16", ",", "32", ",", "48", ",", "64", ",", "80"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"20", ",", "40", ",", "60", ",", "80", ",", "100"}], "}"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "10", ",", "15", ",", "20", ",", "25"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"10", ",", "20", ",", "30", ",", "40", ",", "50"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"15", ",", "30", ",", "45", ",", "60", ",", "75"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"20", ",", "40", ",", "60", ",", "80", ",", "100"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"25", ",", "50", ",", "75", ",", "100", ",", "125"}], "}"}]}],
       "}"}]}], "}"}]}],
  SequenceForm[
  "Now that we've read it in, readlist = ", {{{1, 2, 3, 4, 5}, {2, 4, 6, 8, 
   10}, {3, 6, 9, 12, 15}, {4, 8, 12, 16, 20}, {5, 10, 15, 20, 25}}, {{2, 4, 
   6, 8, 10}, {4, 8, 12, 16, 20}, {6, 12, 18, 24, 30}, {8, 16, 24, 32, 40}, {
   10, 20, 30, 40, 50}}, {{3, 6, 9, 12, 15}, {6, 12, 18, 24, 30}, {9, 18, 27, 
   36, 45}, {12, 24, 36, 48, 60}, {15, 30, 45, 60, 75}}, {{4, 8, 12, 16, 
   20}, {8, 16, 24, 32, 40}, {12, 24, 36, 48, 60}, {16, 32, 48, 64, 80}, {20, 
   40, 60, 80, 100}}, {{5, 10, 15, 20, 25}, {10, 20, 30, 40, 50}, {15, 30, 45,
    60, 75}, {20, 40, 60, 80, 100}, {25, 50, 75, 100, 125}}}],
  Editable->False]], "Print",
 CellChangeTimes->{{3.4309314399043446`*^9, 3.4309314601842966`*^9}, {
   3.4337129291590295`*^9, 3.4337129587840295`*^9}, 3.4337679284764595`*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.4309313922804394`*^9}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["7. Manipulating Plots", "Section"]], "Title",
 CellChangeTimes->{{3.4308696379639664`*^9, 3.4308696409510803`*^9}, {
   3.4309316848437457`*^9, 3.430931688356216*^9}, {3.430932455613749*^9, 
   3.4309324559486885`*^9}, 3.4337721710858345`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "here", " ", "is", " ", "a", " ", "simple", " ", "way", " ", "to", " ", 
    "modify", " ", "functions"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "this", " ", "allows", " ", "us", " ", "to", " ", "vary", " ", "c", " ", 
     "and", " ", 
     RowBox[{"B", ".", " ", "To"}], " ", "see", " ", "there", " ", "values", 
     " ", "click"}], " ", "+"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Abs", "[", "x", "]"}], "^", "c"}], " ", "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"1", "/", "x"}], "]"}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "B"}], ",", "B"}], "}"}]}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"c", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"B", ",", 
      RowBox[{"-", ".1"}], ",", ".1"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.43093170651521*^9, 3.4309317936981063`*^9}, {
   3.4309318295317507`*^9, 3.4309318643263984`*^9}, 3.4337721710858345`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`B$$ = 
    0.021999999999999992`, $CellContext`c$$ = 1.6360000000000001`, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 1, 2}, {
      Hold[$CellContext`B$$], -0.1, 0.1}}, Typeset`size$$ = {
    360., {114., 119.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`c$998$$ = 
    0, $CellContext`B$999$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`B$$ = -0.1, $CellContext`c$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$998$$, 0], 
        Hold[$CellContext`B$$, $CellContext`B$999$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[Abs[$CellContext`x]^$CellContext`c$$ 
        Sin[1/$CellContext`x], {$CellContext`x, -$CellContext`B$$, \
$CellContext`B$$}], 
      "Specifications" :> {{$CellContext`c$$, 1, 2}, {$CellContext`B$$, -0.1, 
         0.1}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{405., {172., 177.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.430931794408022*^9, 3.430931832866498*^9, {3.4309318697547617`*^9, 
   3.4309319037379384`*^9}, 3.4337129906434045`*^9, 3.4337679926795845`*^9, 
   3.4337721710858345`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "this", " ", "shows", " ", "how", " ", "to", " ", "manipulate", " ", 
    "graphs", " ", "with", " ", "LOTS", " ", "of", " ", 
    RowBox[{"options", "!"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "here", " ", "we", " ", "construct", " ", "the", " ", "graph", " ", "of", 
    " ", "a", " ", "function", " ", "and", " ", "its", " ", "tangent", " ", 
    "line"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"cubic", "[", "x_", "]"}], " ", ":=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", "^", "3"}], "-", 
        RowBox[{"2", 
         RowBox[{"x", "^", "2"}]}], " ", "-", 
        RowBox[{"2", " ", "x"}], " ", "+", " ", "1"}], ")"}], "/", "8"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"quartic", "[", "x_", "]"}], " ", ":=", " ", 
     RowBox[{"1", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "^", "4"}], " ", "+", " ", 
         RowBox[{"3", " ", 
          RowBox[{"x", "^", "3"}]}], " ", "-", " ", 
         RowBox[{"20", " ", 
          RowBox[{"x", "^", "2"}]}], " ", "+", " ", "x", " ", "+", " ", "3"}],
         ")"}], "/", "100"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"cauchy", "[", "x_", "]"}], " ", ":=", " ", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "+", 
      RowBox[{"4", " ", "/", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", "/", "2"}], ")"}], "^", "2"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"g", "[", "x_", "]"}], " ", ":=", " ", 
     RowBox[{"Sin", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"h", "[", "x_", "]"}], " ", ":=", " ", 
     RowBox[{"x", "^", "3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"chain", "[", "x_", "]"}], " ", ":=", " ", 
     RowBox[{"h", "[", 
      RowBox[{"g", "[", "x", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"f", "[", "x", "]"}], ",", " ", 
         RowBox[{
          RowBox[{"f", "[", "x1", "]"}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{"f", "'"}], "[", "x1", "]"}], "*", 
           RowBox[{"(", 
            RowBox[{"x", "-", "x1"}], ")"}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{
          RowBox[{"-", "2"}], " ", "Pi"}], ",", " ", 
         RowBox[{"2", "Pi"}]}], "}"}], ",", 
       RowBox[{"PlotRange", " ", "\[Rule]", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3"}], ",", "3"}], "}"}]}], ",", " ", 
       RowBox[{"Epilog", " ", "\[Rule]", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"PointSize", "[", ".025", "]"}], ",", " ", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{"x1", ",", 
             RowBox[{"f", "[", "x1", "]"}]}], "}"}], "]"}]}], "}"}]}]}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x1", ",", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "Pi"}], ",", " ", 
       RowBox[{"2", " ", "Pi"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"f", ",", " ", 
       RowBox[{"{", 
        RowBox[{
        "Sin", ",", "Cos", ",", "Tan", ",", "Sec", ",", "Csc", ",", "Cot", 
         ",", "Exp", ",", "cubic", ",", "quartic", ",", "cauchy", ",", "g", 
         ",", "h", ",", "chain"}], "}"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.430869648912484*^9, 3.430869651423066*^9}, {
   3.4308697359752717`*^9, 3.4308698715007772`*^9}, {3.430869926464056*^9, 
   3.430869969330453*^9}, {3.430870020198291*^9, 3.4308700250759087`*^9}, {
   3.4308700954776525`*^9, 3.430870104835452*^9}, 3.430870151433056*^9, {
   3.430870186867311*^9, 3.43087019036904*^9}, {3.4308702256079955`*^9, 
   3.4308703634644065`*^9}, {3.4308704170185957`*^9, 3.430870694146366*^9}, {
   3.4309315365583143`*^9, 3.4309317031414022`*^9}, 3.4337721711014595`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`f$$ = 
    Sec, $CellContext`x1$$ = -2.538406864100553, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`x1$$], (-2) Pi, 2 Pi}, {
      Hold[$CellContext`f$$], {
      Sin, Cos, Tan, Sec, Csc, Cot, 
       Exp, $CellContext`cubic, $CellContext`quartic, $CellContext`cauchy, \
$CellContext`g, $CellContext`h, $CellContext`chain}}}, Typeset`size$$ = {
    360., {115., 120.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`x1$1836$$ = 
    0, $CellContext`f$1837$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`f$$ = Sin, $CellContext`x1$$ = (-2) Pi}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x1$$, $CellContext`x1$1836$$, 0], 
        Hold[$CellContext`f$$, $CellContext`f$1837$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[{
         $CellContext`f$$[$CellContext`x], \
$CellContext`f$$[$CellContext`x1$$] + 
         Derivative[
           1][$CellContext`f$$][$CellContext`x1$$] ($CellContext`x - \
$CellContext`x1$$)}, {$CellContext`x, (-2) Pi, 2 Pi}, PlotRange -> {-3, 3}, 
        Epilog -> {
          PointSize[0.025], 
          Point[{$CellContext`x1$$, 
            $CellContext`f$$[$CellContext`x1$$]}]}], 
      "Specifications" :> {{$CellContext`x1$$, (-2) Pi, 2 
         Pi}, {$CellContext`f$$, {
         Sin, Cos, Tan, Sec, Csc, Cot, 
          Exp, $CellContext`cubic, $CellContext`quartic, $CellContext`cauchy, \
$CellContext`g, $CellContext`h, $CellContext`chain}}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{405., {172., 177.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.4308701917839885`*^9, {3.430870227450651*^9, 3.430870296817305*^9}, {
   3.430870329565209*^9, 3.4308703637964163`*^9}, {3.4308704380533824`*^9, 
   3.4308705637601805`*^9}, 3.4308706631844807`*^9, 3.4308706946551228`*^9, 
   3.430931508587448*^9, {3.4309315629892397`*^9, 3.430931644277006*^9}, 
   3.4309316799407387`*^9, 3.4337130541277795`*^9, 3.4337680264608345`*^9, 
   3.4337721711014595`*^9}]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.4337131539090295`*^9, 3.4337721711014595`*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.4337132831277795`*^9, 3.4337132930652795`*^9}, 
   3.4337721711014595`*^9}],

Cell[BoxData[
 StyleBox[
  RowBox[{"8.", " ", "Finding", " ", "Minimums"}], "Subtitle"]], "Input",
 CellChangeTimes->{{3.4337721802889595`*^9, 3.4337722075077095`*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
   "Below", " ", "is", " ", "some", " ", "code", " ", "to", " ", "solve", " ",
     "a", " ", "system", " ", "of", " ", 
    RowBox[{"equations", ".", " ", "Sometimes"}], " ", "you", " ", "can", " ",
     "use", " ", "NSolve"}], ",", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
      "but", " ", "that", " ", "can", " ", "break", " ", "down", " ", "for", 
       " ", "complicated", " ", 
       RowBox[{"systems", ".", " ", "A"}], " ", "nice", " ", "trick", " ", 
       "is", " ", "to", " ", "rewrite", " ", "your", " ", "equations", " ", 
       "as", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"f", 
           RowBox[{"(", "x", ")"}]}], " ", "-", " ", 
          RowBox[{"g", 
           RowBox[{"(", "x", ")"}]}]}], ")"}], "^", "2"}]}], " ", "+"}], " ", 
     "..."}], " ", "+", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"u", 
        RowBox[{"(", "x", ")"}]}], " ", "-", " ", 
       RowBox[{"v", 
        RowBox[{"(", "x", ")"}]}]}], ")"}], "^", "2"}]}], ",", " ", 
   RowBox[{
    RowBox[{
    "as", " ", "the", " ", "minimum", " ", "of", " ", "this", " ", "will", 
     " ", "solve", " ", "the", " ", "system", " ", "f", 
     RowBox[{"(", "x", ")"}]}], " ", "=", " ", 
    RowBox[{"g", 
     RowBox[{"(", "x", ")"}]}]}], ",", " ", "...", ",", " ", 
   RowBox[{
    RowBox[{"u", 
     RowBox[{"(", "x", ")"}]}], " ", "=", " ", 
    RowBox[{"v", 
     RowBox[{
      RowBox[{"(", "x", ")"}], "."}]}]}]}], "Subsubtitle"]], "Input",
 CellChangeTimes->{{3.4337722117889595`*^9, 3.4337722817733345`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "here", " ", "is", " ", "a", " ", "system", " ", "of", " ", "equations", 
    " ", "from", " ", "Professor", " ", "Morgan"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"f1", "[", 
      RowBox[{"L0_", ",", "X_", ",", "T1_", ",", "T2_", ",", "T3_"}], "]"}], 
     " ", ":=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"T1", "+", "T2"}], ")"}], " ", "-", " ", 
        RowBox[{"L0", "*", 
         RowBox[{"(", 
          RowBox[{"T3", "/", 
           RowBox[{"Sin", "[", "T3", "]"}]}], ")"}], "*", 
         RowBox[{"Sin", "[", "T1", "]"}]}]}], ")"}], "^", "2"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"f2", "[", 
      RowBox[{"L0_", ",", "X_", ",", "T1_", ",", "T2_", ",", "T3_"}], "]"}], 
     " ", ":=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sin", "[", "T2", "]"}], " ", "-", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"L0", "-", "1"}], ")"}], "*", 
         RowBox[{"Sin", "[", "T1", "]"}]}]}], ")"}], "^", "2"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"f3", "[", 
      RowBox[{"L0_", ",", "X_", ",", "T1_", ",", "T2_", ",", "T3_"}], "]"}], 
     " ", ":=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", "X", "*", 
         RowBox[{"Sin", "[", "T1", "]"}], "*", 
         RowBox[{"Sin", "[", "T1", "]"}]}], " ", "-", " ", 
        RowBox[{"(", 
         RowBox[{"T1", "-", 
          RowBox[{".5", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", "T1"}], "]"}]}], " ", "+", " ", "T2", " ", "-", 
          RowBox[{".5", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", "T2"}], "]"}]}]}], ")"}]}], ")"}], "^", "2"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"f4", "[", 
      RowBox[{"L0_", ",", "X_", ",", "T1_", ",", "T2_", ",", "T3_"}], "]"}], 
     " ", ":=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", "X"}], " ", "-", 
        RowBox[{"L0", "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"T3", "-", 
             RowBox[{".5", "*", 
              RowBox[{"Sin", "[", 
               RowBox[{"2", "T3"}], "]"}]}]}], ")"}], "/", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Sin", "[", "T3", "]"}], "*", 
             RowBox[{"Sin", "[", "T3", "]"}]}], ")"}]}], ")"}]}]}], " ", 
       ")"}], "^", "2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"L0_", ",", "X_", ",", "T1_", ",", "T2_", ",", "T3_"}], "]"}], 
     " ", ":=", " ", 
     RowBox[{
      RowBox[{"f1", "[", 
       RowBox[{"L0", ",", "X", ",", "T1", ",", "T2", ",", "T3"}], "]"}], " ", 
      "+", " ", 
      RowBox[{"f2", "[", 
       RowBox[{"L0", ",", "X", ",", "T1", ",", "T2", ",", "T3"}], "]"}], "+", 
      RowBox[{"f3", "[", 
       RowBox[{"L0", ",", "X", ",", "T1", ",", "T2", ",", "T3"}], "]"}], "+", 
      RowBox[{"f4", "[", 
       RowBox[{"L0", ",", "X", ",", "T1", ",", "T2", ",", "T3"}], "]"}]}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.4337722976014595`*^9, 3.4337723082420845`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"here", "'"}], "s", " ", "the", " ", "above", " ", "four", " ", 
      "equations", " ", "with", " ", "L0"}], " ", "=", " ", 
     RowBox[{"0", " ", "and", " ", "trying", " ", "to", " ", "use", " ", 
      RowBox[{"NSolve", ".", " ", 
       RowBox[{"WARNING", ":", " ", 
        RowBox[{"IT", " ", "MAY", " ", "HANG", " ", "UP"}]}]}]}]}], ",", " ", 
    RowBox[{
    "AND", " ", "YOU", " ", "MAY", " ", "NEED", " ", "TO", " ", "ABORT", " ", 
     "THE", " ", "CALCULATION"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"NSolve", " ", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"T1", "+", "T2"}], ")"}], "*", 
        RowBox[{"Sin", "[", "T3", "]"}]}], "==", 
       RowBox[{"2", "*", "T3", "*", 
        RowBox[{"Sin", "[", "T1", "]"}]}]}], ",", " ", 
      RowBox[{
       RowBox[{"Sin", "[", "T2", "]"}], " ", "==", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "-", "1"}], ")"}], "*", 
        RowBox[{"Sin", "[", "T1", "]"}]}]}], ",", " ", 
      RowBox[{
       RowBox[{"4", "X", "*", 
        RowBox[{"Sin", "[", "T1", "]"}], "*", 
        RowBox[{"Sin", "[", "T1", "]"}]}], " ", "\[Equal]", " ", 
       RowBox[{"T1", "-", 
        RowBox[{".5", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"2", "T1"}], "]"}]}], " ", "+", " ", "T2", " ", "-", 
        RowBox[{".5", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"2", "T2"}], "]"}]}]}]}], ",", " ", 
      RowBox[{
       RowBox[{"4", "X", "*", 
        RowBox[{"Sin", "[", "T3", "]"}], "*", 
        RowBox[{"Sin", "[", "T3", "]"}]}], " ", "\[Equal]", " ", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"T3", "-", 
          RowBox[{".5", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", "T3"}], "]"}]}]}], ")"}]}]}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"X", ",", "T1", ",", "T2", ",", "T3"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4337724571952095`*^9, 3.4337724834764595`*^9}}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.4337724430077095`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "this", " ", "function", " ", "takes", " ", "as", " ", "input", " ", "a", 
     " ", "value", " ", "of", " ", "L0", " ", "and", " ", "starting", " ", 
     "values", " ", "for", " ", "X"}], ",", "T1", ",", " ", 
    RowBox[{
    "T2", " ", "and", " ", "T3", " ", "and", " ", "looks", " ", "for", " ", 
     "a", " ", 
     RowBox[{"minimum", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"minimizer", "[", 
     RowBox[{
     "L0start_", ",", "xstart_", ",", "t1start_", ",", "t2start_", ",", 
      "t3start_"}], "]"}], " ", ":=", " ", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<Starting values: (L0,X1,T1,T2,T3) =  (\>\"", ",", " ", "L0start",
          ",", " ", "\"\<,\>\"", ",", " ", "xstart", ",", " ", "\"\<,\>\"", 
         ",", " ", "t1start", ",", " ", "\"\<,\>\"", ",", " ", "t2start", ",",
          " ", "\"\<,\>\"", ",", " ", "t3start", ",", "\"\<).\>\""}], "]"}], 
       ";", 
       RowBox[{"Print", "[", 
        RowBox[{"\"\<FindMinimum found \>\"", ",", 
         RowBox[{"FindMinimum", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"f", "[", 
              RowBox[{"L0start", ",", "X", ",", "T1", ",", "T2", ",", "T3"}], 
              "]"}], ",", 
             RowBox[{"X", " ", "\[LessEqual]", " ", 
              RowBox[{"Pi", "/", "2"}]}], ",", 
             RowBox[{"T1", " ", "\[GreaterEqual]", " ", 
              RowBox[{"Pi", "/", "2"}]}], ",", " ", 
             RowBox[{"T2", " ", "\[LessEqual]", " ", 
              RowBox[{"Pi", "/", "2"}]}], ",", " ", 
             RowBox[{"T3", " ", "\[LessEqual]", " ", 
              RowBox[{"Pi", "/", "2"}]}], ",", 
             RowBox[{"X", " ", "\[GreaterEqual]", " ", "0"}], ",", " ", 
             RowBox[{"T1", " ", "\[LessEqual]", " ", "Pi"}], ",", " ", 
             RowBox[{"T2", " ", "\[GreaterEqual]", " ", "0"}], ",", " ", 
             RowBox[{"T3", " ", "\[GreaterEqual]", " ", "0"}]}], "}"}], ",", 
           " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"X", ",", "xstart"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"T1", ",", "t1start"}], "}"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"T2", ",", "t2start"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"T3", ",", "t3start"}], "}"}]}], "}"}], ",", " ", 
           RowBox[{"MaxIterations", " ", "\[Rule]", " ", "1000"}]}], "]"}]}], 
        "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"\"\<f[Pi/4,Pi/2,Pi/2,Pi/2] = \>\"", ",", " ", 
         RowBox[{"f", "[", 
          RowBox[{
           RowBox[{"Pi", "/", "4"}], ",", 
           RowBox[{"Pi", "/", "2"}], ",", 
           RowBox[{"Pi", "/", "2"}], ",", 
           RowBox[{"Pi", "/", "2"}]}], "]"}], ",", " ", "\"\<.\>\""}], "]"}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"\"\<Pi/ 8 = \>\"", ",", " ", 
         RowBox[{"Pi", "/", "8."}], ",", " ", "\"\<, Pi/4 = \>\"", ",", " ", 
         RowBox[{"Pi", "/", "4."}], ",", " ", "\"\< and Pi/2 = \>\"", ",", 
         " ", 
         RowBox[{"Pi", "/", "2.0"}], ",", " ", "\"\<.\>\""}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"minimizer", "[", 
  RowBox[{"1.002", ",", 
   RowBox[{"Pi", "/", "3"}], ",", 
   RowBox[{"Pi", "/", "3"}], ",", 
   RowBox[{"Pi", "/", "3"}], ",", 
   RowBox[{"Pi", "/", "3"}]}], "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Starting values: (L0,X1,T1,T2,T3) =  (\"\>", 
   "\[InvisibleSpace]", "1.002`", "\[InvisibleSpace]", "\<\",\"\>", 
   "\[InvisibleSpace]", 
   FractionBox["\[Pi]", "3"], "\[InvisibleSpace]", "\<\",\"\>", 
   "\[InvisibleSpace]", 
   FractionBox["\[Pi]", "3"], "\[InvisibleSpace]", "\<\",\"\>", 
   "\[InvisibleSpace]", 
   FractionBox["\[Pi]", "3"], "\[InvisibleSpace]", "\<\",\"\>", 
   "\[InvisibleSpace]", 
   FractionBox["\[Pi]", "3"], "\[InvisibleSpace]", "\<\").\"\>"}],
  SequenceForm[
  "Starting values: (L0,X1,T1,T2,T3) =  (", 1.002, ",", Rational[1, 3] Pi, 
   ",", Rational[1, 3] Pi, ",", Rational[1, 3] Pi, ",", Rational[1, 3] Pi, 
   ")."],
  Editable->False]], "Print",
 CellChangeTimes->{3.4337724469139595`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"FindMinimum found \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1.1475597566972219`*^-7", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"X", "\[Rule]", "0.39309001763649426`"}], ",", 
       RowBox[{"T1", "\[Rule]", "1.5715971501201595`"}], ",", 
       RowBox[{"T2", "\[Rule]", "0.0017991142844890901`"}], ",", 
       RowBox[{"T3", "\[Rule]", "1.5699891055725679`"}]}], "}"}]}], "}"}]}],
  SequenceForm[
  "FindMinimum found ", {
   1.1475597566972219`*^-7, {$CellContext`X -> 
     0.39309001763649426`, $CellContext`T1 -> 
     1.5715971501201595`, $CellContext`T2 -> 
     0.0017991142844890901`, $CellContext`T3 -> 1.5699891055725679`}}],
  Editable->False]], "Print",
 CellChangeTimes->{3.4337724474139595`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"f[Pi/4,Pi/2,Pi/2,Pi/2] = \"\>", "\[InvisibleSpace]", 
   RowBox[{"f", "[", 
    RowBox[{
     FractionBox["\[Pi]", "4"], ",", 
     FractionBox["\[Pi]", "2"], ",", 
     FractionBox["\[Pi]", "2"], ",", 
     FractionBox["\[Pi]", "2"]}], "]"}], "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm["f[Pi/4,Pi/2,Pi/2,Pi/2] = ", 
   $CellContext`f[
   Rational[1, 4] Pi, Rational[1, 2] Pi, Rational[1, 2] Pi, Rational[1, 2] 
    Pi], "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.4337724474452095`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Pi/ 8 = \"\>", "\[InvisibleSpace]", "0.39269908169872414`", 
   "\[InvisibleSpace]", "\<\", Pi/4 = \"\>", "\[InvisibleSpace]", 
   "0.7853981633974483`", "\[InvisibleSpace]", "\<\" and Pi/2 = \"\>", 
   "\[InvisibleSpace]", "1.5707963267948966`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Pi/ 8 = ", 0.39269908169872414`, ", Pi/4 = ", 0.7853981633974483, 
   " and Pi/2 = ", 1.5707963267948966`, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.4337724474608345`*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.4337724474608345`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"here", "'"}], "s", " ", "a", " ", "simpler", " ", "example", " ",
     "using", " ", "NSolve"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"NSolve", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"3", " ", 
          RowBox[{"x", "^", "4"}], " ", "y"}], " ", "+", " ", 
         RowBox[{"4", " ", 
          RowBox[{"x", "^", "2"}], " ", 
          RowBox[{"y", "^", "2"}]}], " ", "-", " ", 
         RowBox[{"2", "x"}], " ", "+", " ", "y"}], " ", "\[Equal]", " ", 
        "0"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", "2"}], " ", "+", " ", 
         RowBox[{"y", "^", "2"}]}], " ", "\[Equal]", " ", "2"}]}], "}"}], ",",
      " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"NSolve", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", " ", 
        RowBox[{"x", "^", "5"}]}], " ", "+", " ", 
       RowBox[{"4", " ", 
        RowBox[{"x", "^", "2"}]}], " ", "-", " ", 
       RowBox[{"2", "x"}], " ", "+", " ", "1"}], " ", "\[Equal]", " ", "0"}], 
     ",", " ", "x"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4337724940545845`*^9, 3.4337725738827095`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "0.08126610854882813`"}], "+", 
       RowBox[{"1.6835596217374744`", " ", "\[ImaginaryI]"}]}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{"2.198099863771716`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.06224300416168262`", " ", "\[ImaginaryI]"}]}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "0.08126610854882813`"}], "-", 
       RowBox[{"1.6835596217374744`", " ", "\[ImaginaryI]"}]}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{"2.198099863771716`", "\[InvisibleSpace]", "-", 
       RowBox[{"0.06224300416168262`", " ", "\[ImaginaryI]"}]}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"0.7126791535806671`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.2160329601330904`", " ", "\[ImaginaryI]"}]}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "1.2466003011482378`"}], "+", 
       RowBox[{"0.12350565536632853`", " ", "\[ImaginaryI]"}]}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"0.7126791535806671`", "\[InvisibleSpace]", "-", 
       RowBox[{"0.2160329601330904`", " ", "\[ImaginaryI]"}]}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "1.2466003011482378`"}], "-", 
       RowBox[{"0.12350565536632853`", " ", "\[ImaginaryI]"}]}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"0.1328402722424649`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.40972215739465984`", " ", "\[ImaginaryI]"}]}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{"1.4668341848374027`", "\[InvisibleSpace]", "-", 
       RowBox[{"0.03710549119640998`", " ", "\[ImaginaryI]"}]}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"0.1328402722424649`", "\[InvisibleSpace]", "-", 
       RowBox[{"0.40972215739465984`", " ", "\[ImaginaryI]"}]}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{"1.4668341848374027`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.03710549119640998`", " ", "\[ImaginaryI]"}]}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"-", "0.32057349810549407`"}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{"-", "1.3774006796544018`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.400176901309834`"}], ",", 
     RowBox[{"y", "\[Rule]", "0.19875775466226311`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"-", "1.3864234620629796`"}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{"-", "0.2789802570815554`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"-", "1.2216865756899589`"}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{"-", "0.7123776461813918`"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.4337725151327095`*^9, 3.4337725338045845`*^9}, {
  3.4337725640233345`*^9, 3.4337725742577095`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "1.272962717837035`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"0.28263463949201123`", "\[InvisibleSpace]", "-", 
      RowBox[{"0.4448843670066425`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"0.28263463949201123`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.4448843670066425`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"0.3538467194265063`", "\[InvisibleSpace]", "-", 
      RowBox[{"0.9040933473841649`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"0.3538467194265063`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.9040933473841649`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.4337725151327095`*^9, 3.4337725338045845`*^9}, {
  3.4337725640233345`*^9, 3.4337725742733345`*^9}}]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.4434450610334663`*^9}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.4434450634240913`*^9}],

Cell[BoxData[
 StyleBox[
  RowBox[{"8.", " ", "Solving", " ", "Differential", " ", "Equations"}], 
  "Subtitle"]], "Input",
 CellChangeTimes->{{3.4337721802889595`*^9, 3.4337722075077095`*^9}, {
  3.4434450689709663`*^9, 3.4434450747522163`*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{
  "Below", " ", "is", " ", "some", " ", "code", " ", "to", " ", "solve", " ", 
   "differential", " ", "equations", " ", "and", " ", "how", " ", "to", " "}],
   "Subsubtitle"]], "Input",
 CellChangeTimes->{{3.4337722117889595`*^9, 3.4337722817733345`*^9}, {
  3.4434451583772163`*^9, 3.4434451662365913`*^9}, {3.4434451998303413`*^9, 
  3.4434452027365913`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"here", "'"}], "s", " ", "how", " ", "to", " ", "define", " ", 
    "a", " ", "function", " ", "and", " ", "then", " ", "take", " ", "the", 
    " ", "derivative", " ", "of", " ", "it"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"y", "[", "x_", "]"}], " ", ":=", " ", 
    RowBox[{
     RowBox[{"3", 
      RowBox[{"x", "^", "4"}]}], " ", "+", " ", 
     RowBox[{"2", "x"}], " ", "-", " ", "1"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"derivy", "[", "x_", "]"}], " ", ":=", " ", 
    RowBox[{
     RowBox[{"y", "'"}], "[", "x", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4434451685334663`*^9, 3.4434451771115913`*^9}, {
  3.4434458934240913`*^9, 3.4434459112834663`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"this", " ", "prints", " ", "the", " ", "function"}], ",", " ", 
    RowBox[{
    "and", " ", "shows", " ", "that", " ", "we", " ", "have", " ", "taken", 
     " ", "the", " ", "derivative", " ", "correctly"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"derivy", "[", "x", "]"}]}]], "Input",
 CellChangeTimes->{{3.4434460646428413`*^9, 3.4434460848772163`*^9}, {
  3.4434464966115913`*^9, 3.4434465087834663`*^9}}],

Cell[BoxData[
 RowBox[{"derivy", "[", "x", "]"}]], "Output",
 CellChangeTimes->{{3.4434460786740913`*^9, 3.4434460854553413`*^9}, 
   3.4434465097365913`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "here", " ", "is", " ", "another", " ", "way", " ", "to", " ", "take", " ",
     "derivatives", " ", "of", " ", "functions"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"3", 
      RowBox[{"x", "^", "4"}]}], " ", "+", " ", 
     RowBox[{"2", "x"}], " ", "-", " ", "1"}], ",", " ", "x"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4434465139084663`*^9, 3.4434465516897163`*^9}}],

Cell[BoxData[
 RowBox[{"2", "+", 
  RowBox[{"12", " ", 
   SuperscriptBox["x", "3"]}]}]], "Output",
 CellChangeTimes->{{3.4434465235022163`*^9, 3.4434465521272163`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "we", " ", "show", " ", "how", " ", "to", " ", "solve", " ", "a", " ", 
    "differential", " ", "equation"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"note", " ", 
    RowBox[{"C", "[", "1", "]"}], " ", "and", " ", 
    RowBox[{"C", "[", "2", "]"}], " ", "are", " ", "the", " ", "free", " ", 
    "coefficients"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Clear", "[", "y", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"DSolve", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"y", "''"}], "[", "x", "]"}], " ", "+", " ", 
       RowBox[{"3", " ", 
        RowBox[{
         RowBox[{"y", "'"}], "[", "x", "]"}]}], " ", "+", "  ", 
       RowBox[{"2", 
        RowBox[{"y", "[", "x", "]"}]}]}], "\[Equal]", " ", "0"}], ",", " ", 
     RowBox[{"y", "[", "x", "]"}], ",", "x"}], "]"}], " "}]}]], "Input",
 CellChangeTimes->{{3.4434460872053413`*^9, 3.4434461151740913`*^9}, {
  3.4434461626740913`*^9, 3.4434462201272163`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"y", "[", "x", "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "x"}]], " ", 
      RowBox[{"C", "[", "1", "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", "x"}]], " ", 
      RowBox[{"C", "[", "2", "]"}]}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.4434461844240913`*^9, 3.4434462087522163`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "we", " ", "show", " ", "how", " ", "to", " ", "solve", " ", "a", " ", 
    "differential", " ", "equation", " ", "with", " ", "boundary", " ", 
    "coefficients"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Clear", "[", "y", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"DSolve", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"y", "''"}], "[", "x", "]"}], " ", "+", " ", 
         RowBox[{"3", " ", 
          RowBox[{
           RowBox[{"y", "'"}], "[", "x", "]"}]}], " ", "+", "  ", 
         RowBox[{"2", 
          RowBox[{"y", "[", "x", "]"}]}]}], "\[Equal]", " ", "0"}], ",", " ", 
       RowBox[{
        RowBox[{"y", "[", "0", "]"}], " ", "==", " ", "4"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"y", "'"}], "[", "0", "]"}], " ", "==", " ", "2"}]}], "}"}], 
     ",", " ", "y", ",", "x"}], "]"}], " "}]}]], "Input",
 CellChangeTimes->{{3.4434462476897163`*^9, 3.4434463023459663`*^9}, {
  3.4434463490334663`*^9, 3.4434463552678413`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"y", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", "x", "}"}], ",", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", "x"}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "3"}], "+", 
         RowBox[{"5", " ", 
          SuperscriptBox["\[ExponentialE]", "x"]}]}], ")"}]}]}], "]"}]}], 
   "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.4434462695647163`*^9, 3.4434463028772163`*^9}, {
   3.4434463501115913`*^9, 3.4434463559709663`*^9}, 3.4434464503928413`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "here", " ", "we", " ", "only", " ", "give", " ", "two", " ", "boundary", 
     " ", "conditions"}], ",", " ", 
    RowBox[{
    "so", " ", "there", " ", "is", " ", "still", " ", "an", " ", 
     "undertermined", " ", "coefficient"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Clear", "[", "y", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"DSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"y", "'''"}], "[", "x", "]"}], "+", 
         RowBox[{"4", 
          RowBox[{"y", "[", "x", "]"}]}]}], "\[Equal]", "0"}], ",", 
       RowBox[{
        RowBox[{"y", "[", "0", "]"}], "\[Equal]", "1"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"y", "'"}], "[", "0", "]"}], "\[Equal]", "4"}]}], "}"}], ",",
      "y", ",", "x"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4434464050647163`*^9, 3.4434464095334663`*^9}, {
  3.4434464597990913`*^9, 3.4434464892522163`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"y", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", "x", "}"}], ",", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "3"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["2", 
           RowBox[{"2", "/", "3"}]]}], " ", "x"}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "3"}], " ", 
          RowBox[{"C", "[", "3", "]"}]}], "-", 
         RowBox[{"3", " ", 
          SuperscriptBox["\[ExponentialE]", 
           FractionBox[
            RowBox[{"3", " ", "x"}], 
            SuperscriptBox["2", 
             RowBox[{"1", "/", "3"}]]]], " ", 
          RowBox[{"Cos", "[", 
           FractionBox[
            RowBox[{
             SqrtBox["3"], " ", "x"}], 
            SuperscriptBox["2", 
             RowBox[{"1", "/", "3"}]]], "]"}]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["\[ExponentialE]", 
           FractionBox[
            RowBox[{"3", " ", "x"}], 
            SuperscriptBox["2", 
             RowBox[{"1", "/", "3"}]]]], " ", 
          RowBox[{"C", "[", "3", "]"}], " ", 
          RowBox[{"Cos", "[", 
           FractionBox[
            RowBox[{
             SqrtBox["3"], " ", "x"}], 
            SuperscriptBox["2", 
             RowBox[{"1", "/", "3"}]]], "]"}]}], "+", 
         RowBox[{
          SqrtBox["3"], " ", 
          SuperscriptBox["\[ExponentialE]", 
           FractionBox[
            RowBox[{"3", " ", "x"}], 
            SuperscriptBox["2", 
             RowBox[{"1", "/", "3"}]]]], " ", 
          RowBox[{"Sin", "[", 
           FractionBox[
            RowBox[{
             SqrtBox["3"], " ", "x"}], 
            SuperscriptBox["2", 
             RowBox[{"1", "/", "3"}]]], "]"}]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["2", 
           RowBox[{"1", "/", "3"}]], " ", 
          SqrtBox["3"], " ", 
          SuperscriptBox["\[ExponentialE]", 
           FractionBox[
            RowBox[{"3", " ", "x"}], 
            SuperscriptBox["2", 
             RowBox[{"1", "/", "3"}]]]], " ", 
          RowBox[{"Sin", "[", 
           FractionBox[
            RowBox[{
             SqrtBox["3"], " ", "x"}], 
            SuperscriptBox["2", 
             RowBox[{"1", "/", "3"}]]], "]"}]}], "-", 
         RowBox[{"3", " ", 
          SqrtBox["3"], " ", 
          SuperscriptBox["\[ExponentialE]", 
           FractionBox[
            RowBox[{"3", " ", "x"}], 
            SuperscriptBox["2", 
             RowBox[{"1", "/", "3"}]]]], " ", 
          RowBox[{"C", "[", "3", "]"}], " ", 
          RowBox[{"Sin", "[", 
           FractionBox[
            RowBox[{
             SqrtBox["3"], " ", "x"}], 
            SuperscriptBox["2", 
             RowBox[{"1", "/", "3"}]]], "]"}]}]}], ")"}]}]}], "]"}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.4434463820959663`*^9, 3.4434464100334663`*^9}, {
  3.4434464475647163`*^9, 3.4434464612834663`*^9}}]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.46283760684375*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.462837608328125*^9, 3.462837609359375*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.46283761196875*^9, 3.4628376129375*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.462837616109375*^9, 3.462837616734375*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.462837628328125*^9, 3.462837629921875*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"9.", " ", "The", " ", "BLINK", " ", "Problem"}], "Title"]], "Input",
 CellChangeTimes->{{3.462834324484375*^9, 3.462834328625*^9}, {
  3.462837659765625*^9, 3.4628376601875*^9}}],

Cell[BoxData[{
 StyleBox[
  RowBox[{"Consider", " ", "N", " ", 
   RowBox[{"people", ".", " ", "Everyone"}], " ", "closes", " ", "their", " ",
    "eyes", " ", "and", " ", "randomly", " ", "chooses"}], "Section"], "\n", 
 StyleBox[
  RowBox[{
  "someone", " ", "to", " ", "look", " ", "at", " ", "other", " ", "than", 
   " ", 
   RowBox[{"themselves", ".", "What"}], " ", "is", " ", "the", " ", 
   "probability"}], "Section"], "\n", 
 StyleBox[
  RowBox[{
  "at", " ", "least", " ", "two", " ", "people", " ", "are", " ", "looking", 
   " ", "at", " ", "each", " ", 
   RowBox[{"other", "?", "A"}], " ", "nice", " ", "application"}], 
  "Section"], "\n", 
 StyleBox[
  RowBox[{
   RowBox[{
   "is", " ", "to", " ", "a", " ", "Doctor", " ", "Who", " ", "episode", " ", 
    "from", " ", "2007"}], ",", "  ", 
   RowBox[{"Blink", "."}]}], "Section"]}], "Input",
 CellChangeTimes->{{3.46283447721875*^9, 3.462834541328125*^9}, {
  3.46283613671875*^9, 3.462836142453125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  "\"\<http://en.wikipedia.org/wiki/Blink_(Doctor_Who)\>\"", "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  ButtonBox[
   PaneSelectorBox[{
    False->"\<\"http://en.wikipedia.org/wiki/Blink_(Doctor_Who)\"\>", True->
    StyleBox["\<\"http://en.wikipedia.org/wiki/Blink_(Doctor_Who)\"\>", 
     "HyperlinkActive"]}, Dynamic[
     CurrentValue["MouseOver"]],
    BaseStyle->{"Hyperlink"},
    BaselinePosition->Baseline,
    FrameMargins->0,
    ImageSize->Automatic],
   BaseStyle->"Hyperlink",
   ButtonData->{
     URL["http://en.wikipedia.org/wiki/Blink_(Doctor_Who)"], None},
   ButtonNote->"http://en.wikipedia.org/wiki/Blink_(Doctor_Who)"],
  Annotation[#, "http://en.wikipedia.org/wiki/Blink_(Doctor_Who)", 
   "Hyperlink"]& ]], "Output",
 CellChangeTimes->{{3.462834489828125*^9, 3.4628345188125*^9}}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
   "The", " ", "following", " ", "command", " ", "is", " ", "very", " ", 
    RowBox[{"useful", ".", " ", "It"}], " ", "takes", " ", "an", " ", 
    "integer", " ", "n", " ", "and", " ", "writes", " ", "it", " ", "in", " ",
     "base", " ", 
    RowBox[{"B", ".", " ", "It"}], " ", "then", " ", "outputs", " ", "the", 
    " ", "digits", " ", "in", " ", "a", " ", "string"}], ",", " ", 
   RowBox[{
   "padding", " ", "on", " ", "the", " ", "left", " ", "so", " ", "that", " ",
     "the", " ", "string", " ", "has", " ", "a", " ", "fixed", " ", 
    RowBox[{"length", ".", " ", "We"}], " ", 
    RowBox[{"don", "'"}], "t", " ", "really", " ", "need", " ", "to", " ", 
    "isolate", " ", "this", " ", "as", " ", "a", " ", "function"}], ",", " ", 
   RowBox[{
   "but", " ", "as", " ", "this", " ", "is", " ", "so", " ", "important", " ",
     "for", " ", "looping", " ", "on", " ", "an", " ", "arbitrary", " ", 
    "number", " ", "of", " ", "variables"}], ",", " ", 
   RowBox[{"it", " ", "is", " ", "worth", " ", 
    RowBox[{"isolating", "."}]}]}], "Subsection"]], "Input",
 CellChangeTimes->{{3.462834930890625*^9, 3.46283496171875*^9}, {
  3.462836196234375*^9, 3.46283625909375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"stringforloop", "[", 
   RowBox[{"number_", ",", " ", "base_", ",", " ", "totallength_"}], "]"}], 
  " ", ":=", " ", 
  RowBox[{"IntegerDigits", "[", 
   RowBox[{"number", ",", "base", ",", "totallength"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"stringforloop", "[", 
  RowBox[{"1341", ",", "3", ",", "10"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"stringforloop", "[", 
  RowBox[{"1342", ",", "3", ",", "10"}], "]"}]}], "Input",
 CellChangeTimes->{{3.46283497034375*^9, 3.4628350454375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "1", ",", "1", ",", "2", 
   ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.46283503471875*^9, 3.46283504584375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "1", ",", "1", ",", "2", 
   ",", "0", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{{3.46283503471875*^9, 3.46283504584375*^9}}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
   "The", " ", "code", " ", "below", " ", "solves", " ", "the", " ", "Blink", 
    " ", 
    RowBox[{"problem", ".", " ", "I"}], " ", "have", " ", "NOT", " ", 
    "programmed", " ", "the", " ", "efficiencies", " ", "we", " ", 
    "discussed"}], ",", " ", 
   RowBox[{
   "such", " ", "as", " ", "1", " ", "is", " ", "matched", " ", "with", " ", 
    "2"}], ",", " ", 
   RowBox[{"2", " ", "with", " ", "3", " ", "et", " ", 
    RowBox[{"cetera", ".", " ", "It"}], " ", "does", " ", "give", " ", "a", 
    " ", "good", " ", "idea", " ", "of", " ", "how", " ", "to", " ", "handle",
     " ", "problems", " ", "such", " ", "as", " ", 
    RowBox[{"these", "."}]}]}], "Section"]], "Input",
 CellChangeTimes->{{3.462836435359375*^9, 3.46283650015625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Here", " ", "is", " ", "how", " ", "you", " ", "create", " ", "a", " ", 
    "program", " ", "in", " ", 
    RowBox[{"mathematica", ".", " ", "You"}], " ", "underscore", " ", "the", 
    " ", 
    RowBox[{"variable", ".", " ", "The"}], " ", 
    RowBox[{"{", "}"}], " ", "in", " ", "Module", " ", "lists", " ", "the", 
    " ", "local", " ", 
    RowBox[{"variables", " ", "--"}], " ", "I", " ", "never", " ", "really", 
    " ", "bother", " ", "making", " ", "things", " ", 
    RowBox[{"local", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"blink", "[", "n_", "]"}], " ", ":=", " ", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "numpossibles", " ", "is", " ", "how", " ", "many", " ", "possible", 
        " ", "outcomes", " ", "we", " ", "have"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"numpossibles", " ", "=", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"n", "-", "1"}], ")"}], "^", "n"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "numwork", " ", "will", " ", "be", " ", "how", " ", "many", " ", "of",
          " ", "these", " ", "we", " ", "have", " ", "where", " ", "two", " ",
          "people", " ", "are", " ", "not", " ", "looking", " ", "at", " ", 
         "each", " ", "other"}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"numwork", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Below", " ", "is", " ", "my", " ", "favorite", " ", "part", " ", 
         "of", " ", "the", " ", 
         RowBox[{"code", " ", "--"}], " ", "it", " ", "is", " ", "a", " ", 
         "REALLY", " ", "efficient", " ", "way", " ", "to", " ", "loop", " ", 
         "through", " ", "the", " ", "possible", " ", "values", " ", "of", 
         " ", "n", " ", "random", " ", 
         RowBox[{"variables", " ", "--"}], " ", "what", " ", "makes", " ", 
         "it", " ", "so", " ", "nice", " ", "is", " ", "that", " ", "the", 
         " ", "number", " ", "of", " ", "random", " ", "variables", " ", "is",
          " ", "itself", " ", 
         RowBox[{"variable", "!"}]}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"m", " ", "=", " ", "0"}], ",", " ", 
         RowBox[{"m", " ", "\[LessEqual]", " ", 
          RowBox[{"numpossibles", "-", "1"}]}], ",", " ", 
         RowBox[{"m", "++"}], ",", " ", "\[IndentingNewLine]", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{"(*", " ", 
           RowBox[{
            RowBox[{"as", " ", "mentioned", " ", "above"}], ",", " ", 
            RowBox[{"the", " ", 
             RowBox[{"IntegerDigits", "[", 
              RowBox[{"m", ",", "B", ",", "pad"}], "]"}], " ", "takes", " ", 
             "three", " ", 
             RowBox[{"inputs", ".", " ", "The"}], " ", "first"}], ",", " ", 
            "m", ",", " ", 
            RowBox[{
             RowBox[{"is", " ", "our", " ", "number"}], ";", " ", 
             RowBox[{"the", " ", "second"}]}], ",", " ", "B", ",", " ", 
            RowBox[{
             RowBox[{"is", " ", "the", " ", "base"}], ";", " ", 
             RowBox[{"the", " ", "third"}]}], ",", " ", 
            RowBox[{
            "pad", " ", "tells", " ", "us", " ", "how", " ", "many", " ", 
             "entries", " ", "we", " ", "want", " ", "in", " ", "our", " ", 
             RowBox[{"list", ".", " ", "It"}], " ", "works", " ", "as", " ", 
             RowBox[{"follows", ".", " ", "It"}], " ", "takes", " ", "the", 
             " ", "base", " ", "B", " ", "expansion", " ", "of", " ", "m", 
             " ", "and", " ", "saves", " ", "that", " ", "in", " ", "a", " ", 
             "list"}], ",", " ", 
            RowBox[{
             RowBox[{
             "where", " ", "each", " ", "element", " ", "of", " ", "the", " ",
               "list", " ", "is", " ", "a", " ", "different", " ", 
              RowBox[{"digit", ".", " ", "It"}], " ", "then", " ", "pads", 
              " ", "the", " ", "list", " ", "with", " ", "zeros", " ", "in", 
              " ", "the", " ", "beginning", " ", "so", " ", "that", " ", "it",
               " ", "is", " ", "a", " ", "certain", " ", 
              RowBox[{"length", ".", " ", "If"}], " ", "m", " ", "loops", " ",
               "from", " ", "0", " ", "to", " ", 
              RowBox[{"B", "^", "n"}]}], " ", "-", " ", "1"}], ",", " ", 
            RowBox[{"then", " ", "this", " ", "has", " ", 
             RowBox[{"{", 
              RowBox[{"x1", ",", "...", ",", "xn"}], "}"}], " ", "loop", " ", 
             "from", " ", 
             RowBox[{"{", 
              RowBox[{"0", ",", "...", ",", "0"}], "}"}], " ", "to", " ", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"B", "-", "1"}], ",", "...", ",", 
                RowBox[{"B", "-", "1"}]}], "}"}], "."}]}]}], " ", "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"tempdigits", " ", "=", " ", 
            RowBox[{"IntegerDigits", "[", 
             RowBox[{"m", ",", 
              RowBox[{"n", "-", "1"}], ",", "n"}], "]"}]}], ";", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{
             "note", " ", "here", " ", "we", " ", "are", " ", "using", " ", 
              "the", " ", "base", " ", "as", " ", "n"}], "-", "1."}], " ", 
            "*)"}], "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{
            "we", " ", "now", " ", "want", " ", "to", " ", "transfer", " ", 
             "our", " ", "list", " ", "to", " ", "the", " ", 
             RowBox[{"digits", ".", " ", "we"}], " ", "initialize", " ", 
             "digits", " ", "to", " ", "be", " ", "an", " ", "empty", " ", 
             "list"}], " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"digits", " ", "=", " ", 
            RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{"we", " ", "now", " ", "construct", " ", "our", " ", 
              RowBox[{"number", " ", "--"}], " ", "we", " ", 
              RowBox[{"don", "'"}], "t", " ", "allow", " ", "i", " ", "to", 
              " ", "look", " ", "at", " ", "i"}], ",", " ", 
             RowBox[{
              RowBox[{
              "so", " ", "the", " ", "easiest", " ", "way", " ", "to", " ", 
               "ensure", " ", "that", " ", "is", " ", "to", " ", "add", " ", 
               "the", " ", "number", " ", "to", " ", "it", " ", "modulo", " ",
                "n"}], ";", " ", 
              RowBox[{
               RowBox[{
               "as", " ", "the", " ", "number", " ", "is", " ", "at", " ", 
                "most", " ", "n"}], "-", "1"}]}], ",", " ", 
             RowBox[{"this", " ", "makes", " ", "sure", " ", "i", " ", 
              RowBox[{"doesn", "'"}], "t", " ", "look", " ", "at", " ", 
              RowBox[{"i", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"i", " ", "=", " ", "1"}], ",", " ", 
             RowBox[{"i", " ", "\[LessEqual]", " ", "n"}], ",", " ", 
             RowBox[{"i", "++"}], ",", " ", 
             RowBox[{"digits", " ", "=", " ", 
              RowBox[{"AppendTo", "[", 
               RowBox[{"digits", ",", " ", 
                RowBox[{"Mod", "[", 
                 RowBox[{
                  RowBox[{"i", "+", 
                   RowBox[{"tempdigits", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}], ",", "n"}], "]"}]}], 
               "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{
             "we", " ", "sent", " ", "tempwork", " ", "to", " ", "1"}], ";", 
             " ", 
             RowBox[{
             "if", " ", "it", " ", "stays", " ", "as", " ", "1", " ", "we", 
              " ", "found", " ", "another", " ", "thing", " ", "that", " ", 
              "works"}]}], " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"tempwork", " ", "=", " ", "1"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{
            "this", " ", "is", " ", "a", " ", "simple", " ", "way", " ", "to",
              " ", "check", " ", "if", " ", "anyone", " ", "is", " ", 
             "looking", " ", "at", " ", "someone", " ", "looking", " ", 
             "back"}], " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"i", " ", "=", " ", "1"}], ",", " ", 
             RowBox[{"i", " ", "\[LessEqual]", " ", "n"}], ",", " ", 
             RowBox[{"i", "++"}], ",", " ", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"i", " ", "\[Equal]", " ", 
                RowBox[{"digits", "[", 
                 RowBox[{"[", 
                  RowBox[{"digits", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], ",", " ", 
               RowBox[{"tempwork", " ", "=", " ", "0"}]}], "]"}]}], "]"}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"numwork", " ", "=", " ", 
            RowBox[{"numwork", " ", "+", " ", "tempwork"}]}], ";"}], 
          "\[IndentingNewLine]", "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "this", " ", "prints", " ", "out", " ", "the", " ", "results"}], " ", 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"\"\<Number of possibles is \>\"", ",", " ", "numpossibles"}],
         "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"\"\<Number that work is \>\"", ",", " ", "numwork"}], "]"}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"\"\<Percentage that works is \>\"", ",", " ", 
         RowBox[{"numwork", " ", 
          RowBox[{"1.0", " ", "/", " ", "numpossibles"}]}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.462835253265625*^9, 3.462835329375*^9}, {
   3.462835418765625*^9, 3.462835451875*^9}, 3.4628355081875*^9, {
   3.462835569203125*^9, 3.462835569625*^9}, {3.462835652203125*^9, 
   3.46283590353125*^9}, {3.46283629353125*^9, 3.46283629678125*^9}, {
   3.4628365175625*^9, 3.462836666796875*^9}, {3.4628367129375*^9, 
   3.462836836546875*^9}, {3.4628370545625*^9, 3.462837107984375*^9}, {
   3.4628373615625*^9, 3.462837492203125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "this", " ", "prints", " ", "the", " ", "results", " ", "for", " ", 
     "various", " ", "n"}], ",", " ", 
    RowBox[{
    "and", " ", "tells", " ", "us", " ", "how", " ", "long", " ", "it", " ", 
     "took", " ", "to", " ", "run"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Timing", "[", 
    RowBox[{"blink", "[", "3", "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Timing", "[", 
    RowBox[{"blink", "[", "4", "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Timing", "[", 
    RowBox[{"blink", "[", "5", "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Timing", "[", 
    RowBox[{"blink", "[", "6", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.46283587734375*^9, 3.4628359209375*^9}, {
   3.462836280609375*^9, 3.462836327828125*^9}, 3.46283637415625*^9, {
   3.462837496875*^9, 3.46283750946875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Number of possibles is \"\>", "\[InvisibleSpace]", "8"}],
  SequenceForm["Number of possibles is ", 8],
  Editable->False]], "Print",
 CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, {
   3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 
   3.462837510109375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Number that work is \"\>", "\[InvisibleSpace]", "2"}],
  SequenceForm["Number that work is ", 2],
  Editable->False]], "Print",
 CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, {
   3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 
   3.462837510125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Percentage that works is \"\>", "\[InvisibleSpace]", "0.25`"}],
  SequenceForm["Percentage that works is ", 0.25],
  Editable->False]], "Print",
 CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, {
   3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 
   3.46283751015625*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, {
   3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 
   3.462837510171875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4.760081218080359`*^-15", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{{3.462836311765625*^9, 3.46283632859375*^9}, 
   3.462836375046875*^9, 3.462837510203125*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Number of possibles is \"\>", "\[InvisibleSpace]", "81"}],
  SequenceForm["Number of possibles is ", 81],
  Editable->False]], "Print",
 CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, {
   3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 
   3.462837510234375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Number that work is \"\>", "\[InvisibleSpace]", "18"}],
  SequenceForm["Number that work is ", 18],
  Editable->False]], "Print",
 CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, {
   3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 
   3.462837510265625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Percentage that works is \"\>", "\[InvisibleSpace]", 
   "0.2222222222222222`"}],
  SequenceForm["Percentage that works is ", 0.2222222222222222],
  Editable->False]], "Print",
 CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, {
   3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 
   3.462837510265625*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, {
   3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 
   3.46283751028125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.016000000000005205`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{{3.462836311765625*^9, 3.46283632859375*^9}, 
   3.462836375046875*^9, 3.46283751028125*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Number of possibles is \"\>", "\[InvisibleSpace]", "1024"}],
  SequenceForm["Number of possibles is ", 1024],
  Editable->False]], "Print",
 CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, {
   3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 
   3.462837510296875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Number that work is \"\>", "\[InvisibleSpace]", "220"}],
  SequenceForm["Number that work is ", 220],
  Editable->False]], "Print",
 CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, {
   3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 
   3.462837510296875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Percentage that works is \"\>", "\[InvisibleSpace]", 
   "0.21484375`"}],
  SequenceForm["Percentage that works is ", 0.21484375],
  Editable->False]], "Print",
 CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, {
   3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 
   3.4628375103125*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, {
   3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 
   3.462837510328125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.17200000000000565`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{{3.462836311765625*^9, 3.46283632859375*^9}, 
   3.462836375046875*^9, 3.462837510328125*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Number of possibles is \"\>", "\[InvisibleSpace]", "15625"}],
  SequenceForm["Number of possibles is ", 15625],
  Editable->False]], "Print",
 CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, {
   3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 
   3.46283751121875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Number that work is \"\>", "\[InvisibleSpace]", "3320"}],
  SequenceForm["Number that work is ", 3320],
  Editable->False]], "Print",
 CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, {
   3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 
   3.462837511234375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Percentage that works is \"\>", "\[InvisibleSpace]", 
   "0.21248`"}],
  SequenceForm["Percentage that works is ", 0.21248],
  Editable->False]], "Print",
 CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, {
   3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 
   3.462837511234375*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, {
   3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 
   3.46283751125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.9369999999999975`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{{3.462836311765625*^9, 3.46283632859375*^9}, 
   3.462836375046875*^9, 3.462837511265625*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{831, 683},
WindowMargins->{{10, Automatic}, {3, Automatic}},
DockedCells->(FrontEndExecute[{
   FrontEnd`NotebookApply[
    FrontEnd`InputNotebook[], #, Placeholder]}]& ),
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 1307, 35, 173, "Input"],
Cell[1855, 57, 2460, 65, 312, "Input"],
Cell[4318, 124, 192, 4, 39, "Input"],
Cell[CellGroupData[{
Cell[4535, 132, 1321, 30, 152, "Input"],
Cell[5859, 164, 295, 3, 50, "Output"]
}, Open  ]],
Cell[6169, 170, 1363, 31, 132, "Input"],
Cell[CellGroupData[{
Cell[7557, 205, 29, 0, 31, "Input"],
Cell[7589, 207, 124, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7750, 214, 340, 9, 31, "Input"],
Cell[8093, 225, 124, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8254, 232, 1099, 24, 112, "Input"],
Cell[9356, 258, 124, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9517, 265, 1684, 39, 252, "Input"],
Cell[11204, 306, 139, 2, 30, "Output"],
Cell[11346, 310, 139, 2, 30, "Output"],
Cell[11488, 314, 219, 4, 30, "Output"],
Cell[11710, 320, 121, 2, 30, "Output"],
Cell[11834, 324, 144, 2, 30, "Output"],
Cell[11981, 328, 135, 2, 30, "Output"],
Cell[12119, 332, 125, 2, 30, "Output"],
Cell[12247, 336, 133, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12417, 343, 636, 16, 52, "Input"],
Cell[13056, 361, 461, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13554, 378, 228, 6, 31, "Input"],
Cell[13785, 386, 764, 21, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14586, 412, 83, 2, 31, "Input"],
Cell[14672, 416, 417, 11, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15126, 432, 113, 1, 31, "Input"],
Cell[15242, 435, 158, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15437, 442, 165, 3, 52, "Input"],
Cell[15605, 447, 739, 25, 45, "Output"],
Cell[16347, 474, 1108, 35, 84, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17492, 514, 97, 2, 31, "Input"],
Cell[17592, 518, 1065, 33, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18694, 556, 391, 4, 132, "Input"],
Cell[19088, 562, 440, 6, 126, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19565, 573, 28, 0, 31, "Input"],
Cell[19596, 575, 98, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19731, 581, 55, 1, 31, "Input"],
Cell[19789, 584, 113, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19939, 590, 84, 2, 31, "Input"],
Cell[20026, 594, 137, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20200, 600, 171, 5, 31, "Input"],
Cell[20374, 607, 580, 12, 30, "Output"]
}, Open  ]],
Cell[20969, 622, 177, 2, 72, "Input"],
Cell[CellGroupData[{
Cell[21171, 628, 77, 2, 31, "Input"],
Cell[21251, 632, 161, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21449, 639, 116, 3, 31, "Input"],
Cell[21568, 644, 111, 1, 30, "Output"]
}, Open  ]],
Cell[21694, 648, 243, 3, 72, "Input"],
Cell[CellGroupData[{
Cell[21962, 655, 313, 9, 31, "Input"],
Cell[22278, 666, 486, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22801, 683, 64, 1, 31, "Input"],
Cell[22868, 686, 776, 21, 72, "Output"]
}, Open  ]],
Cell[23659, 710, 126, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[23810, 715, 207, 6, 31, "Input"],
Cell[24020, 723, 9417, 161, 231, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33474, 889, 291, 9, 31, "Input"],
Cell[33768, 900, 18293, 307, 231, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52098, 1212, 325, 9, 31, "Input"],
Cell[52426, 1223, 60097, 978, 303, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112560, 2206, 258, 8, 31, "Input"],
Cell[112821, 2216, 246, 7, 51, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[113104, 2228, 259, 8, 31, "Input"],
Cell[113366, 2238, 114, 1, 30, "Output"]
}, Open  ]],
Cell[113495, 2242, 178, 3, 152, "Input"],
Cell[113676, 2247, 169, 3, 39, "Input"],
Cell[113848, 2252, 569, 14, 72, "Input"],
Cell[CellGroupData[{
Cell[114442, 2270, 126, 2, 52, "Input"],
Cell[114571, 2274, 124, 2, 30, "Output"],
Cell[114698, 2278, 124, 2, 30, "Output"]
}, Open  ]],
Cell[114837, 2283, 535, 14, 52, "Input"],
Cell[CellGroupData[{
Cell[115397, 2301, 66, 1, 31, "Input"],
Cell[115466, 2304, 72, 1, 30, "Output"]
}, Open  ]],
Cell[115553, 2308, 271, 8, 31, "Input"],
Cell[CellGroupData[{
Cell[115849, 2320, 86, 2, 31, "Input"],
Cell[115938, 2324, 158, 3, 30, "Output"]
}, Open  ]],
Cell[116111, 2330, 8158, 177, 652, "Input"],
Cell[CellGroupData[{
Cell[124294, 2511, 1122, 27, 92, "Input"],
Cell[CellGroupData[{
Cell[125441, 2542, 521, 10, 23, "Print"],
Cell[125965, 2554, 486, 9, 23, "Print"],
Cell[126454, 2565, 486, 9, 23, "Print"],
Cell[126943, 2576, 486, 9, 23, "Print"],
Cell[127432, 2587, 486, 9, 23, "Print"],
Cell[127921, 2598, 582, 12, 23, "Print"],
Cell[128506, 2612, 698, 18, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[129253, 2636, 1008, 28, 92, "Input"],
Cell[130264, 2666, 141, 3, 30, "Output"],
Cell[130408, 2671, 96, 1, 30, "Output"],
Cell[130507, 2674, 96, 1, 30, "Output"]
}, Open  ]],
Cell[130618, 2678, 178, 3, 152, "Input"],
Cell[130799, 2683, 166, 3, 39, "Input"],
Cell[CellGroupData[{
Cell[130990, 2690, 925, 20, 112, "Input"],
Cell[131918, 2712, 2914, 61, 249, "Output"]
}, Open  ]],
Cell[134847, 2776, 5059, 114, 432, "Input"],
Cell[CellGroupData[{
Cell[139931, 2894, 103, 2, 52, "Input"],
Cell[CellGroupData[{
Cell[140059, 2900, 5632, 109, 235, "Print"],
Cell[145694, 3011, 280, 4, 23, "Print"],
Cell[145977, 3017, 6415, 139, 243, "Print"]
}, Open  ]]
}, Open  ]],
Cell[152419, 3160, 201, 3, 172, "Input"],
Cell[152623, 3165, 210, 5, 39, "Input"],
Cell[152836, 3172, 274, 3, 52, "Input"],
Cell[CellGroupData[{
Cell[153135, 3179, 132, 3, 31, "Input"],
Cell[153270, 3184, 212, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153519, 3193, 343, 9, 31, "Input"],
Cell[153865, 3204, 1304, 32, 72, "Output"]
}, Open  ]],
Cell[155184, 3239, 218, 2, 52, "Input"],
Cell[CellGroupData[{
Cell[155427, 3245, 134, 3, 31, "Input"],
Cell[155564, 3250, 189, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[155790, 3259, 339, 9, 31, "Input"],
Cell[156132, 3270, 1215, 31, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[157384, 3306, 57, 1, 31, "Input"],
Cell[157444, 3309, 1243, 31, 72, "Output"]
}, Open  ]],
Cell[158702, 3343, 137, 1, 52, "Input"],
Cell[CellGroupData[{
Cell[158864, 3348, 284, 8, 31, "Input"],
Cell[159151, 3358, 965, 24, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[160153, 3387, 58, 1, 31, "Input"],
Cell[160214, 3390, 138, 2, 30, "Output"]
}, Open  ]],
Cell[160367, 3395, 128, 1, 31, "Input"],
Cell[160498, 3398, 248, 7, 31, "Input"],
Cell[CellGroupData[{
Cell[160771, 3409, 87, 2, 31, "Input"],
Cell[160861, 3413, 124, 3, 30, "Output"]
}, Open  ]],
Cell[161000, 3419, 89, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[161114, 3424, 89, 2, 31, "Input"],
Cell[161206, 3428, 90, 1, 30, "Output"]
}, Open  ]],
Cell[161311, 3432, 193, 2, 52, "Input"],
Cell[161507, 3436, 121, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[161653, 3443, 189, 5, 52, "Input"],
Cell[161845, 3450, 70, 1, 30, "Output"],
Cell[161918, 3453, 72, 1, 30, "Output"]
}, Open  ]],
Cell[162005, 3457, 26, 0, 31, "Input"],
Cell[162034, 3459, 250, 7, 31, "Input"],
Cell[CellGroupData[{
Cell[162309, 3470, 179, 5, 31, "Input"],
Cell[162491, 3477, 4728, 77, 249, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[167256, 3559, 78, 0, 31, "Input"],
Cell[167337, 3561, 123, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[167497, 3567, 500, 15, 31, "Input"],
Cell[168000, 3584, 13502, 216, 248, "Output"]
}, Open  ]],
Cell[181517, 3803, 83, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[181625, 3808, 80, 2, 31, "Input"],
Cell[181708, 3812, 72, 1, 30, "Output"]
}, Open  ]],
Cell[181795, 3816, 78, 0, 31, "Input"],
Cell[181876, 3818, 342, 10, 31, "Input"],
Cell[CellGroupData[{
Cell[182243, 3832, 199, 6, 31, "Input"],
Cell[182445, 3840, 2268, 43, 238, "Output"]
}, Open  ]],
Cell[184728, 3886, 128, 1, 31, "Input"],
Cell[184859, 3889, 664, 18, 72, "Input"],
Cell[CellGroupData[{
Cell[185548, 3911, 178, 5, 31, "Input"],
Cell[185729, 3918, 2960, 55, 245, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[188726, 3978, 102, 2, 31, "Input"],
Cell[188831, 3982, 74, 1, 30, "Output"]
}, Open  ]],
Cell[188920, 3986, 483, 11, 137, "Input"],
Cell[189406, 3999, 176, 2, 72, "Input"],
Cell[189585, 4003, 94, 1, 31, "Input"],
Cell[189682, 4006, 168, 4, 31, "Input"],
Cell[189853, 4012, 173, 5, 31, "Input"],
Cell[190029, 4019, 524, 6, 152, "Input"],
Cell[190556, 4027, 5688, 131, 552, "Input"],
Cell[CellGroupData[{
Cell[196269, 4162, 91, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[196385, 4168, 287, 7, 23, "Print"],
Cell[196675, 4177, 289, 7, 23, "Print"],
Cell[196967, 4186, 289, 7, 23, "Print"],
Cell[197259, 4195, 289, 7, 23, "Print"],
Cell[197551, 4204, 288, 7, 23, "Print"],
Cell[197842, 4213, 6739, 142, 238, "Print"],
Cell[204584, 4357, 7462, 172, 233, "Print"]
}, Open  ]]
}, Open  ]],
Cell[212073, 4533, 273, 4, 232, "Input"],
Cell[212349, 4539, 80, 1, 72, "Input"],
Cell[212432, 4542, 224, 3, 192, "Input"],
Cell[212659, 4547, 240, 6, 31, "Input"],
Cell[212902, 4555, 101, 1, 31, "Input"],
Cell[213006, 4558, 570, 16, 31, "Input"],
Cell[213579, 4576, 513, 16, 52, "Input"],
Cell[214095, 4594, 100, 1, 31, "Input"],
Cell[214198, 4597, 3764, 91, 372, "Input"],
Cell[CellGroupData[{
Cell[217987, 4692, 163, 4, 52, "Input"],
Cell[CellGroupData[{
Cell[218175, 4700, 282, 6, 23, "Print"],
Cell[218460, 4708, 248, 6, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[218735, 4718, 162, 2, 52, "Input"],
Cell[218900, 4722, 6413, 179, 412, "Input"],
Cell[CellGroupData[{
Cell[225338, 4905, 85, 2, 31, "Input"],
Cell[225426, 4909, 3311, 50, 328, "Print"],
Cell[228740, 4961, 5023, 90, 238, "Output"]
}, Open  ]],
Cell[233778, 5054, 45, 0, 52, "Input"],
Cell[233826, 5056, 208, 5, 31, "Input"],
Cell[234037, 5063, 9340, 203, 952, "Input"],
Cell[CellGroupData[{
Cell[243402, 5270, 151, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[243578, 5277, 494, 10, 23, "Print"],
Cell[244075, 5289, 336, 8, 23, "Print"],
Cell[244414, 5299, 257, 7, 23, "Print"],
Cell[244674, 5308, 219, 5, 23, "Print"],
Cell[244896, 5315, 198, 5, 23, "Print"],
Cell[245097, 5322, 175, 4, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[245299, 5330, 45, 0, 52, "Input"],
Cell[245347, 5332, 186, 4, 31, "Input"],
Cell[CellGroupData[{
Cell[245558, 5340, 5874, 132, 532, "Input"],
Cell[CellGroupData[{
Cell[251457, 5476, 658, 19, 50, "Print"],
Cell[252118, 5497, 658, 19, 50, "Print"],
Cell[252779, 5518, 656, 19, 50, "Print"],
Cell[253438, 5539, 656, 19, 50, "Print"],
Cell[254097, 5560, 656, 19, 50, "Print"],
Cell[254756, 5581, 658, 19, 50, "Print"],
Cell[255417, 5602, 654, 19, 50, "Print"],
Cell[256074, 5623, 658, 19, 50, "Print"]
}, Open  ]]
}, Open  ]],
Cell[256759, 5646, 146, 2, 72, "Input"],
Cell[256908, 5650, 301, 7, 39, "Input"],
Cell[CellGroupData[{
Cell[257234, 5661, 2665, 67, 332, "Input"],
Cell[259902, 5730, 17199, 497, 392, "Output"],
Cell[CellGroupData[{
Cell[277126, 6231, 183, 2, 23, "Print"],
Cell[277312, 6235, 182, 2, 23, "Print"],
Cell[277497, 6239, 3775, 88, 138, "Print"]
}, Open  ]]
}, Open  ]],
Cell[281299, 6331, 89, 1, 52, "Input"],
Cell[CellGroupData[{
Cell[281413, 6336, 267, 3, 64, "Title"],
Cell[CellGroupData[{
Cell[281705, 6343, 1191, 31, 72, "Input"],
Cell[282899, 6376, 2061, 44, 366, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[284997, 6425, 4232, 112, 232, "Input"],
Cell[289232, 6539, 2893, 60, 366, "Output"]
}, Open  ]],
Cell[292140, 6602, 113, 1, 52, "Input"],
Cell[292256, 6605, 124, 2, 31, "Input"],
Cell[292383, 6609, 168, 3, 44, "Input"],
Cell[292554, 6614, 1636, 45, 131, "Input"],
Cell[294193, 6661, 3331, 96, 152, "Input"],
Cell[CellGroupData[{
Cell[297549, 6761, 2122, 56, 112, "Input"],
Cell[299674, 6819, 79, 1, 30, "Output"]
}, Open  ]],
Cell[299768, 6823, 3573, 80, 272, "Input"],
Cell[CellGroupData[{
Cell[303366, 6907, 219, 6, 31, "Input"],
Cell[CellGroupData[{
Cell[303610, 6917, 777, 17, 38, "Print"],
Cell[304390, 6936, 789, 18, 26, "Print"],
Cell[305182, 6956, 557, 14, 38, "Print"],
Cell[305742, 6972, 541, 11, 23, "Print"],
Cell[306286, 6985, 79, 1, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[306414, 6992, 1324, 37, 72, "Input"],
Cell[307741, 7031, 3211, 84, 107, "Output"],
Cell[310955, 7117, 1032, 24, 50, "Output"]
}, Open  ]],
Cell[312002, 7144, 89, 1, 52, "Input"],
Cell[312094, 7147, 89, 1, 52, "Input"],
Cell[312186, 7150, 246, 5, 44, "Input"],
Cell[312435, 7157, 398, 8, 34, "Input"],
Cell[312836, 7167, 789, 20, 72, "Input"],
Cell[CellGroupData[{
Cell[313650, 7191, 489, 11, 52, "Input"],
Cell[314142, 7204, 158, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[314337, 7212, 498, 14, 52, "Input"],
Cell[314838, 7228, 169, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[315044, 7237, 1089, 27, 92, "Input"],
Cell[316136, 7266, 503, 15, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[316676, 7286, 1142, 30, 72, "Input"],
Cell[317821, 7318, 637, 18, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[318495, 7341, 1073, 31, 72, "Input"],
Cell[319571, 7374, 3047, 89, 105, "Output"]
}, Open  ]],
Cell[322633, 7466, 86, 1, 52, "Input"],
Cell[322722, 7469, 92, 1, 31, "Input"],
Cell[322817, 7472, 89, 1, 31, "Input"],
Cell[322909, 7475, 92, 1, 31, "Input"],
Cell[323004, 7478, 92, 1, 31, "Input"],
Cell[323099, 7481, 214, 4, 58, "Input"],
Cell[323316, 7487, 974, 24, 144, "Input"],
Cell[CellGroupData[{
Cell[324315, 7515, 119, 2, 31, "Input"],
Cell[324437, 7519, 726, 18, 30, "Output"]
}, Open  ]],
Cell[325178, 7540, 1239, 23, 112, "Input"],
Cell[CellGroupData[{
Cell[326442, 7567, 537, 12, 72, "Input"],
Cell[326982, 7581, 224, 5, 30, "Output"],
Cell[327209, 7588, 224, 5, 30, "Output"]
}, Open  ]],
Cell[327448, 7596, 800, 17, 118, "Input"],
Cell[328251, 7615, 10794, 215, 792, "Input"],
Cell[CellGroupData[{
Cell[339070, 7834, 915, 21, 112, "Input"],
Cell[CellGroupData[{
Cell[340010, 7859, 344, 7, 23, "Print"],
Cell[340357, 7868, 335, 7, 23, "Print"],
Cell[340695, 7877, 354, 7, 23, "Print"],
Cell[341052, 7886, 197, 3, 23, "Print"]
}, Open  ]],
Cell[341264, 7892, 211, 4, 33, "Output"],
Cell[CellGroupData[{
Cell[341500, 7900, 346, 7, 23, "Print"],
Cell[341849, 7909, 340, 7, 23, "Print"],
Cell[342192, 7918, 387, 8, 23, "Print"],
Cell[342582, 7928, 196, 3, 23, "Print"]
}, Open  ]],
Cell[342793, 7934, 208, 4, 30, "Output"],
Cell[CellGroupData[{
Cell[343026, 7942, 350, 7, 23, "Print"],
Cell[343379, 7951, 342, 7, 23, "Print"],
Cell[343724, 7960, 369, 8, 23, "Print"],
Cell[344096, 7970, 197, 3, 23, "Print"]
}, Open  ]],
Cell[344308, 7976, 208, 4, 30, "Output"],
Cell[CellGroupData[{
Cell[344541, 7984, 351, 7, 23, "Print"],
Cell[344895, 7993, 344, 7, 23, "Print"],
Cell[345242, 8002, 365, 8, 23, "Print"],
Cell[345610, 8012, 193, 3, 23, "Print"]
}, Open  ]],
Cell[345818, 8018, 207, 4, 30, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)