(* 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[    606675,      15281]
NotebookOptionsPosition[    586658,      14660]
NotebookOutlinePosition[    587606,      14693]
CellTagsIndexPosition[    587430,      14686]
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, 3.493120300515625*^9, 3.507032258625*^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, 3.493120301671875*^9, 3.507032263921875*^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, 3.493120311828125*^9, 3.5070322718125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"num", " ", "=", " ", 
  RowBox[{"4", " ", 
   RowBox[{"5", " ", "/", " ", 
    RowBox[{"(", 
     RowBox[{"2", " ", "3"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.507032308796875*^9, 3.507032309640625*^9}}],

Cell[BoxData[
 FractionBox["10", "3"]], "Output",
 CellChangeTimes->{3.50703231025*^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, 3.493120318515625*^9, 3.507032351875*^9}],

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

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

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

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

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

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

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Log"}]], "Input",
 CellChangeTimes->{{3.507032355390625*^9, 3.507032357078125*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Log\\\", \\\"[\\\", StyleBox[\\\"z\\\", \
\\\"TI\\\"], \\\"]\\\"}]\\) gives the natural logarithm of \\!\\(\\*StyleBox[\
\\\"z\\\", \\\"TI\\\"]\\) (logarithm to base \\!\\(\\*StyleBox[\\\"e\\\", \
\\\"TI\\\"]\\)). \\n\\!\\(\\*RowBox[{\\\"Log\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"b\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"z\\\", \
\\\"TI\\\"]}], \\\"]\\\"}]\\) gives the logarithm to base \
\\!\\(\\*StyleBox[\\\"b\\\", \\\"TI\\\"]\\). \"\>", "MSG"], 
  "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Log"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.507032360796875*^9},
 CellTags->"Info3507014360-2959539"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Fibonacci", "[", "2011", "]"}]], "Input",
 CellChangeTimes->{{3.49312034978125*^9, 3.49312035234375*^9}, 
   3.5070323793125*^9}],

Cell[BoxData[\
"84073579943882355991591020100496318256982322082731914671183765728631631058267\
399622828035236697991155253226649712761502398340981429199065594661403930217357\
799832748809718864131559903580434916020122612507570961683392059868716114509148\
577035482369726087868755544819113907993118312110770306027130821301279711750310\
195093140891719488310777719414193829329634682705927235017526538074720960522641\
6257371561420458877735186155589"], "Output",
 CellChangeTimes->{
  3.49312035278125*^9, {3.507032375015625*^9, 3.507032380265625*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"gm", "[", "n_", "]"}], " ", ":=", "  ", 
  RowBox[{"1.0", " ", 
   RowBox[{
    RowBox[{"Fibonacci", "[", "n", "]"}], " ", "/", " ", 
    RowBox[{"Fibonacci", "[", 
     RowBox[{"n", "-", "1"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.49312035721875*^9, 3.4931204179375*^9}, {
  3.507032406140625*^9, 3.507032411234375*^9}, {3.507032453234375*^9, 
  3.507032454015625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"gm", "[", "2010", "]"}]], "Input",
 CellChangeTimes->{{3.4931203658125*^9, 3.493120369109375*^9}, {
  3.507032427203125*^9, 3.50703245040625*^9}}],

Cell[BoxData["1.6180339887498951`"], "Output",
 CellChangeTimes->{
  3.4931203695625*^9, {3.4931204009375*^9, 3.493120422453125*^9}, {
   3.507032422203125*^9, 3.50703245628125*^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}, 3.493120327671875*^9, 3.493120431265625*^9, 
   3.507032474875*^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" -> {{Center}}, "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, 3.49312044415625*^9, 
   3.507032479859375*^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, 3.493120494359375*^9, 
   3.5070324888125*^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[{"?", "Inverse"}]], "Input",
 CellChangeTimes->{{3.493120507609375*^9, 3.493120509359375*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Inverse\\\", \\\"[\\\", StyleBox[\\\"m\\\
\", \\\"TI\\\"], \\\"]\\\"}]\\) gives the inverse of a square matrix \
\\!\\(\\*StyleBox[\\\"m\\\", \\\"TI\\\"]\\). \"\>", "MSG"], 
  "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Inverse"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.49312051021875*^9},
 CellTags->"Info3493106109-4865235"]
}, 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, 3.507032516875*^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" -> {{Center}}, "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.4337673814764595`*^9, 3.507032516890625*^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}, 
   3.4931205475625*^9, 3.507032531171875*^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, 
  3.493120578*^9, 3.507032552328125*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

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

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"14.8932425533257888025`10.", ",", 
   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, 3.493120575546875*^9, 
  3.50703255959375*^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", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.49312060590625*^9, 3.493120606640625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"14.8932425533257888025`10.", ",", 
    RowBox[{"0.05337872333710559874851826578`8.803268164257855", "+", 
     RowBox[{
     "1.18624877837750788688565384347`10.150075759926084", " ", 
      "\[ImaginaryI]"}]}], ",", 
    RowBox[{"0.05337872333710559874851826578`8.803268164257855", "-", 
     RowBox[{
     "1.18624877837750788688565384347`10.150075759926084", " ", 
      "\[ImaginaryI]"}]}]}], "}"}], "[", "1", "]"}]], "Output",
 CellChangeTimes->{3.493120607421875*^9, 3.50703257196875*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData["14.8932425533257888025`10."], "Output",
 CellChangeTimes->{3.430929751870784*^9, 3.4337122323152795`*^9, 
  3.4337674453358345`*^9, 3.49312060359375*^9, 3.507032576484375*^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[{"bob", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"444", ",", "44"}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.4931206481875*^9, 3.49312065646875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"444", ",", "44"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.493120656984375*^9, 3.507032602765625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"bob", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "[", 
  RowBox[{"[", "2", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"bob", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.49312065796875*^9, 3.493120680640625*^9}}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{{3.493120659953125*^9, 3.493120681140625*^9}, 
   3.507032626390625*^9}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{{3.493120659953125*^9, 3.493120681140625*^9}, 
   3.50703262640625*^9}]
}, Open  ]],

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, 3.50703262821875*^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" -> {{Center}}, "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, 3.507032629578125*^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:eJwlmXk4lN/7x61ZUmaeISRF+0pKaaH7VEKRUqJFSFpIEhGSSiUk2SvZUpb4
RHZJTpSikKiEopAsM/NYx8xk+Z3v9fvrXK/rmvMs7/f7vu/zXKNhf27fCTER
EZFsURGR/63iWLauc921Lbyy/18X9ZZtnhtpC/cKmobnkFX4XMuhOeIcnI/O
N/hC1j8Kp/mFEVfg6tNyn2SythjeqEiJuAtq15Jq9pP1q23EkviIRFi/Y4bF
gfBE2Oes0nI/IhvWYeEr7zvZED5knRcTgWGD4lMDNT8Mmyt3yW5zr4ebpa92
yO6oB1cfs2N5rt+h6OIbndLmJjhbfCJUbMEvWJw595Mxuw2+9OyUSbPvgq7u
5kOV0p0QrMUTKTzUAxpSGaK7mN1wfkVV9OsUNgjd36/L5PdA14muq0mFbDjv
WbxgnXgvWCaJOF99z4bnV2eoFc/ohU2KG7ehXjY02Oksfjq/F8SmnnLxSg5s
7521Vde0FyIabhvhPA4cP5WsIJrQC7neewSvyrlg1tzkoavXB8LjZ7J+ugzA
f7N66u7Z94Mdc9ir1HMAXk4dmffCqR8qy3y2P/QbgEiHyNpGt34IUwn+fjB0
AF6YeG4e9e+HJZ/Sxb48G4D1ZsGLe5L7wWJTt+UH9gDkHl90O+R3P2Qxjk0V
Og2CSozF2YpDbFAo66mOdhuElHKx6unH2OB9xjXqgs8gmPxoMTQ7zQaDd1eW
rQkeBPdG8eQyTza0XkrY/+zpINzNdUsxjWSD9N/WtMc9g/DRYKbdnI9ssH9l
uTfs5BAEHMA8v3UcWFOoTKmcGwI33oJgdz0OiGW3ND66OATe81fX2G7nQHKS
jVVe4BCsemRnMc+cAx3XT9p8yxgC3eTwLZucOWC/y9N5Dj0Erzf41v5MItwU
HZh+cRgYZzZx6sS5sKbeapf21WE42tWUWyDDBbFqFbmSwGEIdChiR8pzIbkk
/u7HB8PQeyS8cL0qFzriU2K4L4fhYP7tC4pruGDvUPBER2QEfr1xXb3ehgvH
B7+8fh04Ao7+ju2CbC7Y+YRZFYeNQFvunOM++VywFjflZt8fAU/d2p3DxVyw
VHyjmpg+AqFxxZvriI/GG3M8L1eNQLvRgsiljVzQvHZn5SbpUZCZ+KzhMsKF
5bI732gzRkEt1tniAp8LSyIlDi9THoW3xcua3ca5oJ5y6Zby0lG4A0pfD0rQ
wKp27OAZjcKWMN9LVSwa+AzD+3m3RmF9ZlzWOm0aRh6IamXeHYX2j3lhr3Vo
GJz/qjL53ij4iwoLtm+goU9HZzg8bRSK6x+8WwM0/Dw438z1/SiIBuv35JnS
UJE0Kb5KigdctvKFrSdpKFtWErtQngfVHl8W7nWk4WWuh/YcJR5wygunWznT
kP+WbTN9CQ9oyUGv3W40pPW0vOg15MH9BbmlPy7TELK66FxqAA+OaJ0zuRFJ
w4c1Td0eoTwY3Jm8QiaGBul1Y0d3xPDAmC1yM+A+DTc26pp2pZDrszqTnOJp
uLStaOn8Sh6MXpU/+z2VhmKDpsTBGh7sazs5TeMpDTzDsVnlX3gwQ/qogn0m
DW4mupJ2XTxouSkaUptNg5NF0e948TF4tyuidWcxDemWTQfPTh+DVTGbpluW
0NB9cOyTHmsMykROZx4upeHYUd2y1vlj0BBxavPu1zQcPFkUq7JtDBx0R0Ka
3tNg5FW0P/rqGOjME4+6+pU8r0/TB4fAMVhxelMMq4no5zu2VSdsDIoi1cQS
v9Ow5Zru6sbEMXju46qY2ErD+uAiOSYeg9fLnNUNftNwIaTp+q93Y5ByTeVk
bAcNuaFjwuy6MVgdnUf1dtKwKlK316xtDNhlronnumlYGFdUGTIxBvnrq/w0
+mmwT2jSs5bkw/XmW8Ob2DQkJY3lrZjBh1kDPTWmHBrmpOgmf5jDh9xtIf8d
omk4nGalEruQD+rO5rkWAzTcf3oxzHElHzZ1vVI1HiT5yiryk9bjQ/OdVGXl
YRr2Pm8abdrOhwHN/MwRwqG5Y85pJnwYnrj9qHqEBtki3SOGR/hQJ6jPt+bR
YPzCqkHxOB+mz277PHuMhoCXF3f+cSLPs2d072fCYq+LdG/48MH8a/SFJQIa
MmZQqRP+fAiR+L33C+F9R5wVLt7mw8/0Jh0vIQ3C9Hf+A5F8CK8yUWf9o+Ex
T33QMY4PWlwmK4WwqcEl284nfAhYKjpDc5zkP/xrrfUzPhTIDs/IImywKjhj
TxkfJtLNF0ZO0MD26VKufscHMw2/jXzCUVVbbm37xIfxFysPWEzSoDfrwejL
Jj5YxW2/mEb4z/Hh4+t+8WG9Z2biIOHQnN0NWT18mPLeU7dmivg5lYaWDvLh
mY2a+BnCbaZi2Y8EfGi0ldwSSzgg1lpNVUwAKfpCv9eENXsKb0fJCmBMb7Dy
J+Fv65jCGSwBbF/SQQ0R9rt+5vQtVQFk7Hp/YoLwks+V30QWCmDEO75sinD9
XPUdPisFEC3noCYg7OXskzesI4DMtjn+vYTVS75onNUXwPjeGnY94SoprbDu
HQLgGXsfzSbseiBo0tZMANmrV325QVj5cadzs6UA2nnDe80Jvx7Qb91nS3jm
j0YFwo5b7u+sOSWAx64860/k/amQoaIdrgJ4cd+SfZVwSbPpYuwlgC2BlP8y
wvZL0qI2XBPAj7fb5lYTfWU9RMVzgwRQcVCs3JZwbsWR8ysiBJDQ4OLEIf4c
ZhS2P4kVwN0d6bPdCIvZMMzmPhbAgp2fP3OIv5mZTqX3MgVgIpgZZkfYQvB2
OTNfALt5gQc+kHyMG857EFwqgFcOjvNXEDbtaPS4XCuAC6+oxs98kgctzS7e
V/L+N/WKlAjHXQ7c59omAOQb+tiC5JGjrK91nBbAlSOB0XmjxN89qT3GTCGZ
Py5/JIeIv/EiVhUqQsgcs2dKkPpo6ztcuXm+EI7lXjISkHrSCpBP1lwrBFrH
uLGK1Ft9qdcRhQNCqDNRdRvvIf7INlbfOSoEdWl6LPcv8efgqg1SJ4WgpX8j
2I7Us+vwbwWhpxDELc43JZF6Zy43qWu/L4Q9UZaqhT9Jf5JKZFYlCaH/rJsW
+kH0/jNk8TxdCAmRvpcqWmhweBTberVYCLnhDaXZpP8UK/f1aHwXwpFjWvTK
zzTc4emvlP0lBIbl4VqvT8SfL+Hnhv4KYUlMRHdpLQ3TwzbyKsaEwA1q+7jq
Aw02UkHiDkr/gH1e1yW3goa1f34Yms77B54ZlPZr0g+l36wO1lnyD+oSIte8
KyN++n1nSOr+g9YRz+ES0k8leUvmplr+A6nBMh+jXBr+63q3oSf6HxQLTyhy
Emm4VjHbtz7+H3z2yxK5Qvq7ZZILLk75B7WyG9fKPKRBxHqWYVDBP6g4edl1
GpkP+xtP7F/+9R98HJA7+uQ26QflEi7OCuOQxKsIdfEg/SZx2+OBiHF4Fyi3
eet2Gm5V1f/0fzgOxaoei6LIfHs3aKOs+IT8fsdq5bbNNOwwuHRnY8E4zLvW
OduKzMdtvXkX/ZvG4eeNnLyfC0n9r11kqjBnAjKDxjS3kHm7+r3UqG7KBFyL
6cy1KOXCuYForQ/PJgA9v9kbXMSFLJWFTtaFE/DW6sae4lwurHJG7VffT4CM
7IJsfjqZ70zv6ureCSi8s6NLPpoLC4/0xR/RnIQzmcccH5zhghJdY3ilaBIq
JDt8F1BcuB+Oj/XiSQi9ZqxkI8cFZZ1c3/1Vk/AybZl92DTC3vdylzST/Z3V
8j+EHJgtbj+3XjgJq7Qk+PKdHJirNDaqvmUKRjuGz/XncGAxaKRUvJ2CVK8x
5uWdHIh9XyIq7iiCjij8WuRux4aBX8+9aWcRZP88Ll2TnP+MhKmDra4i6GRG
7KFOczaMrIz8ne8lghaqHdu9YTsbzCLOlJ8MFEGKzknPwhaxQezonGsf0kRQ
SUNAx3hPP5wZuiwS0S2CfJtEROrJ+VRPbeuUuoMoqr8VeKj2cB8YW39xsz8t
ir63v+nWMO8Di4enuh87i6LDgpui54z64IxKaO1iD1HU9i+2b2htH8Qqtj5c
GSCKPhWf+P5Irg/4Mzw2bEgXRZfKDKMSSnshfzL9/B62KLoVYRi4RKkXVvxi
dF2+IIYO6Q53qRX9hWfp1OkCN3Ekx5P65NreBb5tRxtXBEign/tOLLvu8hvO
620wSYiSRL71RlFr/VpBmGhg3x82DbV0mz6q0vwC9a6xdheTpdBcOe+lbl/e
w0aj+ZM/H0mjz9/kTk6KPIfqHRvTUZwM2lhvMzc7JAun5DzY2JEpi+pZ6nop
F6uw4oKVTjZPpyOLJbkLDf804gZRaX+VUjkk8SHxqU5LKy6Qdk+tr56BorxX
F7yJ+Y1XKjKc7CtnohVhjw9av+zCdChPYe03ebT6DrNzcfVfzB6YW7GqRR4Z
Jr4pqW78i/v2GZ1b2iaPKun9z062/cVds+5Xq3UTHr/7PXT4L25J2OgnzZNH
myJMJ++p9WB7q7JhriwDqS+333bbtQfvPiV69O1yBtoe79DUyezFC27d0jrn
xEAy1Zb+jVv7sNs3HT97ZwZaXyge+3JXH369qKPmgAsDLW07eT5+fx+2eavn
pOfGQOGtbZZmJ/pwrOjQExkfBjrT/7ncIbAPU77Ws58EMZCXWZihfW0fFjuv
LdmczkCOx8brw/f1Y/PXbftrMhhoVZDin2eH+3GSfEgy/o+BfGP0vN7Y9+Mt
Wd2Q+pyBfuRIKrS69WOf/oc+7sUMFPSXxX4Z0Y+HTkwbmFHFQPWfSi5u+9yP
Ow63tmz7y0DaO7bOsdzJxnL6Vml2vQyU8Kr1k545G6+b1+ju189AnJnyMaqH
2Diw84NcCc1Asy3dzMtPs7GWc8kWbT4DORVNM3p2i419Lz9InifDRBl2kSaS
b9lYMcnKaXw5E+2TDtFIW8/BW/wb189exUSvTjXMDNHn4NMOe8Q3aDGR4dLg
mtMGHFy61CjOfS0T6fUl5cjs42D7nPV1fZuZ6E29NqfHmYOzKhTXNJsykYZ6
8i3VRxxs/KdRUODCRF0LTHMMxLn48orQS9muTGRUGjX8UpqLc88bT6S7MdHl
cPWuFTO5WHWyVCTOk4netxd+GFXmYu6sVCl/PyaaDNMJ0tbk4ihjL0WzUCZq
WCX9n5EVF//KnKPd/YyJahPl2X8ec7Hi0Lfc9mwmWvPcMNA1nYt3bQjXac5h
otQLXzOH/+PivLeSG2oKmCjrT/SNzgIuDvjJ3ZL7iolWMExsHN+TT1n5clO/
WiYS5FVXyvVysZfbidOzOEy0P9neNnMxjQNNuKc20Uy0tXr1tIjlNL638OIp
m0EmOsUWe31Ok8aF3wJPpo4yUXC/0WnGehoPb/rPYf0kE3W6jzp3G9DYRXzY
zlKeQiGOptZddjS+/OOSnQ+TQovHZuVvdqBxSIGEXQKLQoZ/j80MPkXjzFOz
bLuVKETxct5Nd6Fxz8eNRz3VKcQxObzysQ+Nj0ddPRSjTSGGHEhqRNDY7azM
oZK1FOq9p6jSE0Vjf8OIg23rKHRg4pJG6j0aJ/EfWy3eRKHIvG9yUvE0brN+
f6BwG4UWhDhusE6jMWfd3gMtBhRK9N/X2vKUxuMzmy0mDSm0+dJH573/0Vi1
vG+/oQmFzn1LOKieQ+ODi2bu+7afQpruhWh/CY1PT8aYCw9QKDiEbxBUSuOL
TfPM5x6k0DLJ82sKy2gcE6S996Q1hVY8D3o3UkHjRo6FGc+BQo4yIRUSH2ls
Vvhw1yxPCm1SHb59rplcb9h+StGLQtvkHu7lt9D4+url+Yo+FNIbbVX3/kHj
4oxiNUU/CrmZZnTYt9N4fuLXAVYAhRaluP/+1kVjvR9xKaxAopd4PX9eN42t
VBwOs4IpZLdtXPnYX6J35NAbKpRCLx/cdPvYS2PeLfl7zBgKsTDLH3FpzKj8
ZsK8T/ZvftC0k6bxCrEEEWYs8aP2yVqTARrb+a50YiRQ6InKnsl1QzT2eTE8
l5FEIQ9Dd+d5wzSO5pU0yicTdlr6S2SExh9cd+rLp1IoweFkU+YojbueMYZm
plPIIu7GYQ8ejaf6mlJnZhB9Q2061o/RWOfEScbMLArNMQ+YesQn+iSvqpzx
nNzfwzvKREBjx/YR7xm5FDISuq3iEE44dL1TrpBCp141Oyn/I/rE7LovV0yh
4a3jM5MJNzYyd8uVUEih4G7hgnEacxnNonKlFHIpdD8WT1jaLKlwehmF1nUF
yctPED1vnzoz/TWFtrQWvPYirF+lqT69gkLiuj8vtBA+KMn7IvuWQmnhf1fo
TJL8bXsVJPuOQhPXy/7cJBxy5cYW2SoKRaTsTibnbZxWajIs84FC/4X4H2NO
0bhCQKXL1FBoX53pAhPCP9a3WMvUUWjvZPxfX8I890dMmXoKbcx2zEolzMw5
/U66gUJn3cg0IrySq3VJ+guFlL4bb+8gbLhiTEv6G4XWntvNHCFsd7qsS+o7
hcIqs36T7w98KeXmA6kWCtWdcson3x84psPUTOoHycPvK0Hk+wM/n6cgLtVG
6rN0wK6f8Afr1qJpv8j9/F9v+kr4z4Nk52kdJA8lI7OKCIs0OWpM66JQNTtq
NIzwbAXtb5LdZH98xjd7wjrm/GDJHgrdMd9aspLwnlAMkn1k/+2TSVyih9PH
gBEJNtGnbllQOuEb0mZPJbgUWhIbd+Ew4YQdijYSAxRiujTYSxB+4f+Dkhii
0PmqX/tTif7ccSdfcR6FQsX+bmkg/h06aLJMMEahM/Yi8TaE3+at+MYVUKip
snR3J/H/gRNbq2WCQiINMWlfhTSWeFfz49MUyc/a0b3bCbtoPAuqFGUhDRmv
3U9Jngy+n+18LslCPu+vIhuSv+y1ZmGpUixkschS9xnJ5+y7mvpxMixk18G9
NkLyO7CDjrk1g4Wmp6mxnEm+H+a57rJRJJz7avnUII2nyZuP7VdioUO+3LcM
wq5O2k92qrDQ2E+v/Nmkngw1hiZ01Fjo2aXAKCVSf0Oh7jnTF7GQZ6GvbQGp
z6N9+21El7DQe65lZlAPjat26EwfW8pCCSUxZpaknuPHRxw6VpL9wnNx30n9
Gzt5Kr/QYaHsmzNtrpH+kFdpWZm1noU4XXfOKrfReK6GrtuTDSwU6jXyLY30
k+GmsY939VhIf6ilOLv5f/p7XzlpwEJFvaveHG+kscyjQyutDVmo56Mw89Vn
Gl8Y39hsbsxCV0VTB+XrabwzT7hG35SFTOrWRcfX0HhE3bebZcFCs214xkcr
aWzrax0pY8lC+R4OC33ekHw16aEpK6LnXjW7u+U0TgydeNB3hIV27zEWJr+i
8a5xv93lx1lo6Z/v71wKaPyo6Vq+izsLxcy+q/3gMY27K1e3h3qwkBAVFkk/
IvWQ3y6TfZGFZoDBnnMJZB6F6dvSl1joJjugQOMBjWt2CmRcb7DQRptGd9VQ
GvNfutqejybXN9d0PO5J4y0Z84LD77GQVu3h4wbupN/er8vPeUD8rW+5NMeV
xjM9VsoOxbOQV9Dp6bmONF6g2ZPvlspCl/tNy9ysSX9KspW9UMRCCuKixiaI
xlGhM9dFvWChFrOGewl6NG72fWWb/5KFaptOKPZuoLHDIdWCEcxCU1nTEo5r
09ibarL1qGKhgDXq4rQGjZ/cMCvwbGahbratgp0ojYWn9e28/7FQQ21wRN4L
Mt9fLkceEyz0JifjGiLz/OEMZfXzUyzkfFays/I5F+vlDrWfFldAjX5fRUrS
uNjvX5rtwekKiHNZs8oomovFQylbXVUF9CzbJEDowsVyeX+Pjm5SQOX/HVhU
OYeLrSW/6g/qKaDtNXOT7ZW4+JlVhRpniwKqpfhFfCYXm43H/ezapoBiI1bn
z5Ti4rAd+45+2aWA0hI8FDoGOFjhe6l13mEF1FO1KH3JGw5Wmwg/ct6H8N9Y
lQ325HzUsfvFPV8F1FGXp+VwhIMvvJdRKvNTQIUDDR9uWXDwh/BrDbLXFdDM
Rtb9AkMO9lx8fueT2wro5/Xid5nLObh+z17dpjgFdE3CXF9ikI39k2ey9LEC
ailWPHDhIht3G93+IC2hiKxtOWs/nenH9iZ26oumKaIrO320lY73459m6zy3
SiuiccHvUCtyXv1yoF3DR04R/dEScy837scVx9d69ysQVkKLNi3qx/FXWpfU
LVJE5iMuNuU/+rBF0YqbkUaKKKn+yNgGwz78ZnENzL2tiJqOv9WwF+/FTtKp
Ehoys5DnDtldtbbduChpof6b8FlI6tUqp1KNTly3Wa9yH1MJBbiVVL651475
Tg/324UqIa0ii5L3kd9x1d7EAzNmKaOJtu/v1UPrsf1GvbS0KGX00NM6XS2u
HDtyakd/xCijUkk7TTXLcuz6yNaAeqCMano/nlFilOMrMtd/+8YrI9a0zfbj
11/juOZq1X2pyijowtvFik1l+Ju3Vdh4kTJq7JnlGe1egneVuHmbtyqjBueE
Gb9Sc7C5i0RVwE9ltPF7U2u7Sg4+OD9mVmm7Mlpw/at7S8hzfCr4Rd7iLmV0
3J86fO1PFr5xWIT7j62Mqnw0BzJ9M3CZ8I596qQy8nwavTjy6SNcmTUvp1VE
BfGczpkq3E3CNfY5UwxxFdQall+j3puAWz98ibskpYI+Gz2IH/WLxfxY1aa9
DBX0a3tiyfaMcDxl9mxRAKWCHBbv2szoC8XTxOHCSwUVtGbYPvrulWCscMae
uViF7P/699TFjGtYdd6I7RFVFbSQap9fecUHz2+8mRWmpoJepHrYR2acx8tv
KU1UzlNBunFnrxRnHMPam5+a/NMgv9e+87//t8r+D73i2XM=
     "]]}},
  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, 3.507032631375*^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->{518., 415.},
  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.5280599247336333`, -2.2958272081558064`, 1.9606657789420805`},
  ViewVertical->{0., 0., 1.}]], "Output",
 CellChangeTimes->{3.43092976378799*^9, 3.4337123196434045`*^9, 
  3.4337674854452095`*^9, 3.493120730234375*^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, 
  3.507032682421875*^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, 
  3.507032686703125*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
   "Here", " ", "is", " ", "some", " ", "code", " ", "to", " ", "work", " ", 
    "with", " ", 
    RowBox[{"vectors", ".", " ", "We"}], " ", "input", " ", "two", " ", 
    "three", " ", "dimensional", " ", "vectors", " ", "then", " ", "take", 
    " ", "3", " ", "times", " ", "the", " ", "first", " ", "plus", " ", "4", 
    " ", "times", " ", "the", " ", 
    RowBox[{"second", ".", " ", "We"}], " ", "then", " ", "take", " ", "the", 
    " ", "dot", " ", "product"}], ",", " ", 
   RowBox[{"the", " ", "cross", " ", "product"}], ",", " ", 
   RowBox[{
   "and", " ", "then", " ", "try", " ", "to", " ", "find", " ", "a", " ", 
    "unit", " ", "vector", " ", "in", " ", "the", " ", "direction", " ", "of",
     " ", "the", " ", "cross", " ", 
    RowBox[{"product", ".", " ", "The"}], " ", "problem", " ", "is", " ", 
    "that", " ", 
    RowBox[{"Length", "[", "]"}], " ", "does", " ", "not", " ", "return", " ",
     "the", " ", "length", " ", "of", " ", "the", " ", "vector"}], ",", " ", 
   RowBox[{
   "but", " ", "rather", " ", "the", " ", "number", " ", "of", " ", 
    "components", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"in", " ", "this", " ", "case"}], ",", " ", "3"}], ")"}], ".", 
     " ", "We"}], " ", "need", " ", "to", " ", "use", " ", "the", " ", "Norm",
     " ", "command", " ", "to", " ", "find", " ", "the", " ", "length", " ", 
    "of", " ", "a", " ", 
    RowBox[{"vector", "."}]}]}], "Section"]], "Input",
 CellChangeTimes->{{3.507027005625*^9, 3.50702707878125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"v", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"w", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"3", " ", "v"}], " ", "+", " ", 
  RowBox[{"4", " ", "w"}]}], "\[IndentingNewLine]", 
 RowBox[{"v", ".", "w"}], "\[IndentingNewLine]", 
 RowBox[{"Cross", "[", 
  RowBox[{"v", ",", "w"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cross", "[", 
   RowBox[{"v", ",", "w"}], "]"}], " ", "/", " ", 
  RowBox[{"Length", "[", 
   RowBox[{"Cross", "[", 
    RowBox[{"v", ",", "w"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cross", "[", 
   RowBox[{"v", ",", "w"}], "]"}], " ", "/", " ", 
  RowBox[{"Norm", "[", 
   RowBox[{"Cross", "[", 
    RowBox[{"v", ",", "w"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Norm", "[", "v", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Norm", "[", "w", "]"}]}], "Input",
 CellChangeTimes->{{3.5070269370625*^9, 3.507026995953125*^9}, {
  3.507032745578125*^9, 3.507032749375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"19", ",", "26", ",", "33"}], "}"}]], "Output",
 CellChangeTimes->{{3.507026954140625*^9, 3.507026996578125*^9}, 
   3.507032749828125*^9}],

Cell[BoxData["32"], "Output",
 CellChangeTimes->{{3.507026954140625*^9, 3.507026996578125*^9}, 
   3.507032749828125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "3"}], ",", "6", ",", 
   RowBox[{"-", "3"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.507026954140625*^9, 3.507026996578125*^9}, 
   3.507032749875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1"}], ",", "2", ",", 
   RowBox[{"-", "1"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.507026954140625*^9, 3.507026996578125*^9}, 
   3.507032749875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", 
     SqrtBox["6"]]}], ",", 
   SqrtBox[
    FractionBox["2", "3"]], ",", 
   RowBox[{"-", 
    FractionBox["1", 
     SqrtBox["6"]]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.507026954140625*^9, 3.507026996578125*^9}, 
   3.507032749875*^9}],

Cell[BoxData[
 SqrtBox["14"]], "Output",
 CellChangeTimes->{{3.507026954140625*^9, 3.507026996578125*^9}, 
   3.507032749890625*^9}],

Cell[BoxData[
 SqrtBox["77"]], "Output",
 CellChangeTimes->{{3.507026954140625*^9, 3.507026996578125*^9}, 
   3.507032749890625*^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", "[", "2011", "]"}]}], "Input",
 CellChangeTimes->{{3.50703279915625*^9, 3.507032799578125*^9}}],

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

Cell[BoxData["17483"], "Output",
 CellChangeTimes->{
  3.4309297738176217`*^9, 3.4337123582996545`*^9, 3.4337675108670845`*^9, {
   3.50703279528125*^9, 3.507032800140625*^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, 3.493120864015625*^9, 
  3.5070328101875*^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, 3.493120865390625*^9, 3.507032824234375*^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, 
   3.5070329345*^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.4337675752420845`*^9, 
   3.507032934515625*^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.4337675752420845`*^9, 
   3.507032934546875*^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.4337675752420845`*^9, 
   3.50703293459375*^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.4337675752420845`*^9, 
   3.507032934625*^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.4337675752420845`*^9, 
   3.50703293465625*^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.4337675752420845`*^9, 
   3.5070329346875*^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, 
  3.507032950390625*^9}],

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

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.4309300249421735`*^9, 3.4337675819920845`*^9, 
  3.507032950453125*^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[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[CellGroupData[{

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"}]}], "}"}]], \
"Input",
 CellChangeTimes->{3.493120870171875*^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.49312087025*^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", ",", "Automatic", ",", " ", "\"\<ProbabilityDensity\>\"",
           ",", " ", 
          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}, 
   3.493120925953125*^9, {3.49312106853125*^9, 3.493121079*^9}, {
   3.49312114959375*^9, 3.493121159328125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"UniformDiff", "[", "1600", "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{3.493120895109375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[
  {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
   EdgeForm[Opacity[0.7]], {}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.7]], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0, 0}, {
           Rational[1, 5], 286}]},
        ImageSizeCache->{{17.75, 25.825555555555557`}, {-93.69105875543306, 
         95.64762419675608}}],
       StatusArea[#, 286]& ,
       TagBoxNote->"286"],
      StyleBox["286", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[286, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[1, 5], 0}, {
           Rational[2, 5], 227}]},
        ImageSizeCache->{{25.325555555555557`, 
         33.40111111111111}, {-54.734826957603815`, 95.64762419675608}}],
       StatusArea[#, 227]& ,
       TagBoxNote->"227"],
      StyleBox["227", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[227, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[2, 5], 0}, {
           Rational[3, 5], 203}]},
        ImageSizeCache->{{32.90111111111111, 
         40.97666666666667}, {-38.88822419238517, 95.64762419675608}}],
       StatusArea[#, 203]& ,
       TagBoxNote->"203"],
      StyleBox["203", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[203, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[3, 5], 0}, {
           Rational[4, 5], 167}]},
        ImageSizeCache->{{40.47666666666667, 
         48.55222222222223}, {-15.118320044557152`, 95.64762419675608}}],
       StatusArea[#, 167]& ,
       TagBoxNote->"167"],
      StyleBox["167", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[167, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[4, 5], 0}, {1, 117}]},
        ImageSizeCache->{{48.05222222222223, 56.12777777777778}, {
         17.895435716315077`, 95.64762419675608}}],
       StatusArea[#, 117]& ,
       TagBoxNote->"117"],
      StyleBox["117", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[117, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1, 0}, {
           Rational[6, 5], 113}]},
        ImageSizeCache->{{55.62777777777778, 63.70333333333333}, {
         20.536536177184857`, 95.64762419675608}}],
       StatusArea[#, 113]& ,
       TagBoxNote->"113"],
      StyleBox["113", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[113, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[6, 5], 0}, {
           Rational[7, 5], 96}]},
        ImageSizeCache->{{63.20333333333333, 71.27888888888889}, {
         31.761213135881405`, 95.64762419675608}}],
       StatusArea[#, 96]& ,
       TagBoxNote->"96"],
      StyleBox["96", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[96, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[7, 5], 0}, {
           Rational[8, 5], 78}]},
        ImageSizeCache->{{70.77888888888889, 78.85444444444445}, {
         43.64616520979541, 95.64762419675608}}],
       StatusArea[#, 78]& ,
       TagBoxNote->"78"],
      StyleBox["78", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[78, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[8, 5], 0}, {
           Rational[9, 5], 51}]},
        ImageSizeCache->{{78.35444444444445, 86.43}, {61.47359332066641, 
         95.64762419675608}}],
       StatusArea[#, 51]& ,
       TagBoxNote->"51"],
      StyleBox["51", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[51, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[9, 5], 0}, {2, 41}]},
        ImageSizeCache->{{85.93, 94.00555555555556}, {68.07634447284086, 
         95.64762419675608}}],
       StatusArea[#, 41]& ,
       TagBoxNote->"41"],
      StyleBox["41", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[41, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2, 0}, {
           Rational[11, 5], 34}]},
        ImageSizeCache->{{93.50555555555556, 101.58111111111113`}, {
         72.69827027936297, 95.64762419675608}}],
       StatusArea[#, 34]& ,
       TagBoxNote->"34"],
      StyleBox["34", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[34, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[11, 5], 0}, {
           Rational[12, 5], 31}]},
        ImageSizeCache->{{101.08111111111113`, 109.15666666666667`}, {
         74.67909562501531, 95.64762419675608}}],
       StatusArea[#, 31]& ,
       TagBoxNote->"31"],
      StyleBox["31", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[31, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[12, 5], 0}, {
           Rational[13, 5], 33}]},
        ImageSizeCache->{{108.65666666666667`, 116.73222222222223`}, {
         73.35854539458042, 95.64762419675608}}],
       StatusArea[#, 33]& ,
       TagBoxNote->"33"],
      StyleBox["33", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[33, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[13, 5], 0}, {
           Rational[14, 5], 34}]},
        ImageSizeCache->{{116.23222222222223`, 124.30777777777777`}, {
         72.69827027936297, 95.64762419675608}}],
       StatusArea[#, 34]& ,
       TagBoxNote->"34"],
      StyleBox["34", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[34, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[14, 5], 0}, {3, 12}]},
        ImageSizeCache->{{123.80777777777777`, 131.88333333333333`}, {
         87.22432281414675, 95.64762419675608}}],
       StatusArea[#, 12]& ,
       TagBoxNote->"12"],
      StyleBox["12", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[12, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{3, 0}, {
           Rational[16, 5], 7}]},
        ImageSizeCache->{{131.38333333333333`, 139.4588888888889}, {
         90.52569839023397, 95.64762419675608}}],
       StatusArea[#, 7]& ,
       TagBoxNote->"7"],
      StyleBox["7", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[7, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[16, 5], 0}, {
           Rational[17, 5], 18}]},
        ImageSizeCache->{{138.9588888888889, 147.03444444444446`}, {
         83.26267212284208, 95.64762419675608}}],
       StatusArea[#, 18]& ,
       TagBoxNote->"18"],
      StyleBox["18", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[18, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[17, 5], 0}, {
           Rational[18, 5], 11}]},
        ImageSizeCache->{{146.53444444444446`, 154.61}, {87.88459792936419, 
         95.64762419675608}}],
       StatusArea[#, 11]& ,
       TagBoxNote->"11"],
      StyleBox["11", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[11, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[18, 5], 0}, {
           Rational[19, 5], 8}]},
        ImageSizeCache->{{154.11, 162.18555555555557`}, {89.86542327501652, 
         95.64762419675608}}],
       StatusArea[#, 8]& ,
       TagBoxNote->"8"],
      StyleBox["8", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[8, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[19, 5], 0}, {4, 7}]},
        ImageSizeCache->{{161.68555555555557`, 169.76111111111112`}, {
         90.52569839023397, 95.64762419675608}}],
       StatusArea[#, 7]& ,
       TagBoxNote->"7"],
      StyleBox["7", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[7, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{4, 0}, {
           Rational[21, 5], 3}]},
        ImageSizeCache->{{169.26111111111112`, 177.33666666666667`}, {
         93.16679885110375, 95.64762419675608}}],
       StatusArea[#, 3]& ,
       TagBoxNote->"3"],
      StyleBox["3", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[3, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[21, 5], 0}, {
           Rational[22, 5], 5}]},
        ImageSizeCache->{{176.83666666666667`, 184.91222222222225`}, {
         91.84624862066886, 95.64762419675608}}],
       StatusArea[#, 5]& ,
       TagBoxNote->"5"],
      StyleBox["5", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[5, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[22, 5], 0}, {
           Rational[23, 5], 2}]},
        ImageSizeCache->{{184.41222222222225`, 192.48777777777778`}, {
         93.8270739663212, 95.64762419675608}}],
       StatusArea[#, 2]& ,
       TagBoxNote->"2"],
      StyleBox["2", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[2, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[23, 5], 0}, {
           Rational[24, 5], 5}]},
        ImageSizeCache->{{191.98777777777778`, 200.06333333333333`}, {
         91.84624862066886, 95.64762419675608}}],
       StatusArea[#, 5]& ,
       TagBoxNote->"5"],
      StyleBox["5", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[5, {
        GrayLevel[0]}], "Tooltip"]& ], {}, {}, 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[26, 5], 0}, {
           Rational[27, 5], 4}]},
        ImageSizeCache->{{214.71444444444447`, 222.79000000000002`}, {
         92.5065237358863, 95.64762419675608}}],
       StatusArea[#, 4]& ,
       TagBoxNote->"4"],
      StyleBox["4", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[4, {
        GrayLevel[0]}], "Tooltip"]& ], {}, 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[28, 5], 0}, {
           Rational[29, 5], 1}]},
        ImageSizeCache->{{229.86555555555555`, 237.94111111111113`}, {
         94.48734908153864, 95.64762419675608}}],
       StatusArea[#, 1]& ,
       TagBoxNote->"1"],
      StyleBox["1", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[1, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[29, 5], 0}, {6, 1}]},
        ImageSizeCache->{{237.44111111111113`, 245.51666666666668`}, {
         94.48734908153864, 95.64762419675608}}],
       StatusArea[#, 1]& ,
       TagBoxNote->"1"],
      StyleBox["1", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[1, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{6, 0}, {
           Rational[31, 5], 1}]},
        ImageSizeCache->{{245.01666666666668`, 253.09222222222223`}, {
         94.48734908153864, 95.64762419675608}}],
       StatusArea[#, 1]& ,
       TagBoxNote->"1"],
      StyleBox["1", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[1, {
        GrayLevel[0]}], "Tooltip"]& ], {}, 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[32, 5], 0}, {
           Rational[33, 5], 1}]},
        ImageSizeCache->{{260.1677777777778, 268.24333333333334`}, {
         94.48734908153864, 95.64762419675608}}],
       StatusArea[#, 1]& ,
       TagBoxNote->"1"],
      StyleBox["1", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[1, {
        GrayLevel[0]}], "Tooltip"]& ], {}, {}, {}, {}, {}, 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[38, 5], 0}, {
           Rational[39, 5], 1}]},
        ImageSizeCache->{{305.62111111111113`, 313.69666666666666`}, {
         94.48734908153864, 95.64762419675608}}],
       StatusArea[#, 1]& ,
       TagBoxNote->"1"],
      StyleBox["1", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[1, {
        GrayLevel[0]}], "Tooltip"]& ], {}, {}, {}, {}, 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[43, 5], 0}, {
           Rational[44, 5], 1}]},
        ImageSizeCache->{{343.49888888888887`, 351.5744444444445}, {
         94.48734908153864, 95.64762419675608}}],
       StatusArea[#, 1]& ,
       TagBoxNote->"1"],
      StyleBox["1", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[1, {
        GrayLevel[0]}], "Tooltip"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesOrigin->{0, 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  ImageMargins->0.,
  ImageSize->Automatic,
  PlotRange->NCache[{{0, 
      Rational[44, 5]}, {All, All}}, {{0, 8.8}, {All, All}}],
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.1]}},
  Ticks->{Automatic, Automatic}]], "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, {
   3.493120806640625*^9, 3.493120817203125*^9}, {3.493120874578125*^9, 
   3.493120896171875*^9}, 3.493120928265625*^9, 3.493121081375*^9, {
   3.49312115171875*^9, 3.493121162171875*^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.4337676620702095`*^9, {
   3.493120806640625*^9, 3.493120817203125*^9}, {3.493120874578125*^9, 
   3.493120896171875*^9}, 3.493120928265625*^9, 3.493121081375*^9, {
   3.49312115171875*^9, 3.493121162171875*^9}}],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
   EdgeForm[Opacity[0.7]], {}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.7]], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0, 0}, {
           Rational[1, 5], 0.8943089430894309}]},
        ImageSizeCache->{{20.25, 29.020871985157697`}, {-85.82146665096059, 
         120.84962682058597`}}],
       StatusArea[#, 0.8943089430894309]& ,
       TagBoxNote->"0.8943089430894309"],
      StyleBox["0.8943089430894309`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.8943089430894309, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[1, 5], 0}, {
           Rational[2, 5], 0.7098186366479049}]},
        ImageSizeCache->{{28.520871985157697`, 
         37.291743970315395`}, {-43.28966764808911, 120.84962682058597`}}],
       StatusArea[#, 0.7098186366479049]& ,
       TagBoxNote->"0.7098186366479049"],
      StyleBox["0.7098186366479049`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.7098186366479049, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[2, 5], 0}, {
           Rational[3, 5], 0.6347717323327079}]},
        ImageSizeCache->{{36.791743970315395`, 
         45.56261595547309}, {-25.988596867260014`, 120.84962682058597`}}],
       StatusArea[#, 0.6347717323327079]& ,
       TagBoxNote->"0.6347717323327079"],
      StyleBox["0.6347717323327079`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.6347717323327079, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[3, 5], 0}, {
           Rational[4, 5], 0.5222013758599124}]},
        ImageSizeCache->{{45.06261595547309, 
         53.833487940630796`}, {-0.036990696016403035`, 120.84962682058597`}}],
       StatusArea[#, 0.5222013758599124]& ,
       TagBoxNote->"0.5222013758599124"],
      StyleBox["0.5222013758599124`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.5222013758599124, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[4, 5], 0}, {1, 0.36585365853658536`}]},
        ImageSizeCache->{{53.333487940630796`, 62.10435992578849}, {
         36.00690676404419, 120.84962682058597`}}],
       StatusArea[#, 0.36585365853658536`]& ,
       TagBoxNote->"0.36585365853658536"],
      StyleBox["0.36585365853658536`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.36585365853658536`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1, 0}, {
           Rational[6, 5], 0.3533458411507192}]},
        ImageSizeCache->{{61.60435992578849, 70.37523191094618}, {
         38.89041856084903, 120.84962682058597`}}],
       StatusArea[#, 0.3533458411507192]& ,
       TagBoxNote->"0.3533458411507192"],
      StyleBox["0.3533458411507192`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.3533458411507192, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[6, 5], 0}, {
           Rational[7, 5], 0.300187617260788}]},
        ImageSizeCache->{{69.87523191094618, 78.64610389610388}, {
         51.145343697269624`, 120.84962682058597`}}],
       StatusArea[#, 0.300187617260788]& ,
       TagBoxNote->"0.300187617260788"],
      StyleBox["0.300187617260788`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.300187617260788, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[7, 5], 0}, {
           Rational[8, 5], 0.24390243902439024`}]},
        ImageSizeCache->{{78.14610389610388, 86.91697588126159}, {
         64.12114678289146, 120.84962682058597`}}],
       StatusArea[#, 0.24390243902439024`]& ,
       TagBoxNote->"0.24390243902439024"],
      StyleBox["0.24390243902439024`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.24390243902439024`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[8, 5], 0}, {
           Rational[9, 5], 0.15947467166979362`}]},
        ImageSizeCache->{{86.41697588126159, 95.18784786641929}, {
         83.58485141132417, 120.84962682058597`}}],
       StatusArea[#, 0.15947467166979362`]& ,
       TagBoxNote->"0.15947467166979362"],
      StyleBox["0.15947467166979362`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.15947467166979362`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[9, 5], 0}, {2, 0.1282051282051282}]},
        ImageSizeCache->{{94.68784786641929, 103.45871985157699`}, {
         90.7936309033363, 120.84962682058597`}}],
       StatusArea[#, 0.1282051282051282]& ,
       TagBoxNote->"0.1282051282051282"],
      StyleBox["0.1282051282051282`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.1282051282051282, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2, 0}, {
           Rational[11, 5], 0.10631644777986242`}]},
        ImageSizeCache->{{102.95871985157699`, 111.7295918367347}, {
         95.83977654774476, 120.84962682058597`}}],
       StatusArea[#, 0.10631644777986242`]& ,
       TagBoxNote->"0.10631644777986242"],
      StyleBox["0.10631644777986242`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.10631644777986242`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[11, 5], 0}, {
           Rational[12, 5], 0.0969355847404628}]},
        ImageSizeCache->{{111.2295918367347, 120.00046382189238`}, {
         98.0024103953484, 120.84962682058597`}}],
       StatusArea[#, 0.0969355847404628]& ,
       TagBoxNote->"0.0969355847404628"],
      StyleBox["0.0969355847404628`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0969355847404628, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[12, 5], 0}, {
           Rational[13, 5], 0.10318949343339587`}]},
        ImageSizeCache->{{119.50046382189238`, 128.2713358070501}, {
         96.56065449694597, 120.84962682058597`}}],
       StatusArea[#, 0.10318949343339587`]& ,
       TagBoxNote->"0.10318949343339587"],
      StyleBox["0.10318949343339587`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.10318949343339587`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[13, 5], 0}, {
           Rational[14, 5], 0.10631644777986242`}]},
        ImageSizeCache->{{127.7713358070501, 136.54220779220776`}, {
         95.83977654774476, 120.84962682058597`}}],
       StatusArea[#, 0.10631644777986242`]& ,
       TagBoxNote->"0.10631644777986242"],
      StyleBox["0.10631644777986242`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.10631644777986242`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[14, 5], 0}, {3, 0.0375234521575985}]},
        ImageSizeCache->{{136.04220779220776`, 144.8130797773655}, {
         111.69909143017142`, 120.84962682058597`}}],
       StatusArea[#, 0.0375234521575985]& ,
       TagBoxNote->"0.0375234521575985"],
      StyleBox["0.0375234521575985`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0375234521575985, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{3, 0}, {
           Rational[16, 5], 0.021888680425265792`}]},
        ImageSizeCache->{{144.3130797773655, 153.08395176252318`}, {
         115.30348117617748`, 120.84962682058597`}}],
       StatusArea[#, 0.021888680425265792`]& ,
       TagBoxNote->"0.021888680425265792"],
      StyleBox["0.021888680425265792`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.021888680425265792`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[16, 5], 0}, {
           Rational[17, 5], 0.05628517823639775}]},
        ImageSizeCache->{{152.58395176252318`, 161.35482374768088`}, {
         107.37382373496416`, 120.84962682058597`}}],
       StatusArea[#, 0.05628517823639775]& ,
       TagBoxNote->"0.05628517823639775"],
      StyleBox["0.05628517823639775`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.05628517823639775, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[17, 5], 0}, {
           Rational[18, 5], 0.03439649781113196}]},
        ImageSizeCache->{{160.85482374768088`, 169.62569573283858`}, {
         112.41996937937265`, 120.84962682058597`}}],
       StatusArea[#, 0.03439649781113196]& ,
       TagBoxNote->"0.03439649781113196"],
      StyleBox["0.03439649781113196`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.03439649781113196, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[18, 5], 0}, {
           Rational[19, 5], 0.025015634771732333`}]},
        ImageSizeCache->{{169.12569573283858`, 177.89656771799628`}, {
         114.58260322697627`, 120.84962682058597`}}],
       StatusArea[#, 0.025015634771732333`]& ,
       TagBoxNote->"0.025015634771732333"],
      StyleBox["0.025015634771732333`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.025015634771732333`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[19, 5], 0}, {4, 0.021888680425265792`}]},
        ImageSizeCache->{{177.39656771799628`, 186.16743970315397`}, {
         115.30348117617748`, 120.84962682058597`}}],
       StatusArea[#, 0.021888680425265792`]& ,
       TagBoxNote->"0.021888680425265792"],
      StyleBox["0.021888680425265792`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.021888680425265792`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{4, 0}, {
           Rational[21, 5], 0.009380863039399626}]},
        ImageSizeCache->{{185.66743970315397`, 194.43831168831167`}, {
         118.18699297298234`, 120.84962682058597`}}],
       StatusArea[#, 0.009380863039399626]& ,
       TagBoxNote->"0.009380863039399626"],
      StyleBox["0.009380863039399626`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.009380863039399626, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[21, 5], 0}, {
           Rational[22, 5], 0.015634771732332707`}]},
        ImageSizeCache->{{193.93831168831167`, 202.7091836734694}, {
         116.7452370745799, 120.84962682058597`}}],
       StatusArea[#, 0.015634771732332707`]& ,
       TagBoxNote->"0.015634771732332707"],
      StyleBox["0.015634771732332707`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.015634771732332707`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[22, 5], 0}, {
           Rational[23, 5], 0.006253908692933083}]},
        ImageSizeCache->{{202.2091836734694, 210.98005565862707`}, {
         118.90787092218355`, 120.84962682058597`}}],
       StatusArea[#, 0.006253908692933083]& ,
       TagBoxNote->"0.006253908692933083"],
      StyleBox["0.006253908692933083`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.006253908692933083, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[23, 5], 0}, {
           Rational[24, 5], 0.015634771732332707`}]},
        ImageSizeCache->{{210.48005565862707`, 219.25092764378476`}, {
         116.7452370745799, 120.84962682058597`}}],
       StatusArea[#, 0.015634771732332707`]& ,
       TagBoxNote->"0.015634771732332707"],
      StyleBox["0.015634771732332707`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.015634771732332707`, {
        GrayLevel[0]}], "Tooltip"]& ], {}, {}, 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[26, 5], 0}, {
           Rational[27, 5], 0.012507817385866166`}]},
        ImageSizeCache->{{235.2926716141002, 244.06354359925788`}, {
         117.46611502378111`, 120.84962682058597`}}],
       StatusArea[#, 0.012507817385866166`]& ,
       TagBoxNote->"0.012507817385866166"],
      StyleBox["0.012507817385866166`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.012507817385866166`, {
        GrayLevel[0]}], "Tooltip"]& ], {}, 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[28, 5], 0}, {
           Rational[29, 5], 0.0031269543464665416`}]},
        ImageSizeCache->{{251.83441558441555`, 260.60528756957325`}, {
         119.62874887138476`, 120.84962682058597`}}],
       StatusArea[#, 0.0031269543464665416`]& ,
       TagBoxNote->"0.0031269543464665416"],
      StyleBox["0.0031269543464665416`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0031269543464665416`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[29, 5], 0}, {6, 0.0031269543464665416`}]},
        ImageSizeCache->{{260.10528756957325`, 268.876159554731}, {
         119.62874887138476`, 120.84962682058597`}}],
       StatusArea[#, 0.0031269543464665416`]& ,
       TagBoxNote->"0.0031269543464665416"],
      StyleBox["0.0031269543464665416`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0031269543464665416`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{6, 0}, {
           Rational[31, 5], 0.0031269543464665416`}]},
        ImageSizeCache->{{268.376159554731, 277.14703153988864`}, {
         119.62874887138476`, 120.84962682058597`}}],
       StatusArea[#, 0.0031269543464665416`]& ,
       TagBoxNote->"0.0031269543464665416"],
      StyleBox["0.0031269543464665416`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0031269543464665416`, {
        GrayLevel[0]}], "Tooltip"]& ], {}, 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[32, 5], 0}, {
           Rational[33, 5], 0.0031269543464665416`}]},
        ImageSizeCache->{{284.91790352504637`, 293.68877551020404`}, {
         119.62874887138476`, 120.84962682058597`}}],
       StatusArea[#, 0.0031269543464665416`]& ,
       TagBoxNote->"0.0031269543464665416"],
      StyleBox["0.0031269543464665416`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0031269543464665416`, {
        GrayLevel[0]}], "Tooltip"]& ], {}, {}, {}, {}, {}, 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[38, 5], 0}, {
           Rational[39, 5], 0.0031269543464665416`}]},
        ImageSizeCache->{{334.54313543599255`, 343.3140074211502}, {
         119.62874887138476`, 120.84962682058597`}}],
       StatusArea[#, 0.0031269543464665416`]& ,
       TagBoxNote->"0.0031269543464665416"],
      StyleBox["0.0031269543464665416`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0031269543464665416`, {
        GrayLevel[0]}], "Tooltip"]& ], {}, {}, {}, {}, 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[43, 5], 0}, {
           Rational[44, 5], 0.0031269543464665416`}]},
        ImageSizeCache->{{375.897495361781, 384.6683673469388}, {
         119.62874887138476`, 120.84962682058597`}}],
       StatusArea[#, 0.0031269543464665416`]& ,
       TagBoxNote->"0.0031269543464665416"],
      StyleBox["0.0031269543464665416`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0031269543464665416`, {
        GrayLevel[0]}], "Tooltip"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["difference", TraditionalForm], 
    FormBox["percentage", TraditionalForm]},
  AxesOrigin->{0, 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  ImageMargins->0.,
  ImageSize->{437., Automatic},
  PlotLabel->FormBox[
   "\"Differences b/w Order Statistics of Unif Distr RVs\"", TraditionalForm],
  PlotRange->NCache[{{0, 
      Rational[44, 5]}, {All, All}}, {{0, 8.8}, {All, All}}],
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.1]}},
  Ticks->{Automatic, Automatic}]], "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, {
   3.493120806640625*^9, 3.493120817203125*^9}, {3.493120874578125*^9, 
   3.493120896171875*^9}, 3.493120928265625*^9, 3.493121081375*^9, {
   3.49312115171875*^9, 3.49312116240625*^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, 3.493121286140625*^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.18275456407265897`", "0.05865094367366202`", 
      RowBox[{"-", "1.3252559889138746`"}], 
      RowBox[{"-", "0.29935434027711083`"}]},
     {
      RowBox[{"-", "1.2360387950216865`"}], 
      RowBox[{"-", "1.0936493859193173`"}], 
      RowBox[{"-", "0.21447258788166912`"}], 
      RowBox[{"-", "1.2399816547353082`"}]},
     {
      RowBox[{"-", "1.847396061337912`"}], "1.2472278470597624`", 
      RowBox[{"-", "0.8876076702756205`"}], 
      RowBox[{"-", "0.08545943828798429`"}]},
     {"1.4733963672571895`", "0.8095437053918146`", 
      RowBox[{"-", "1.6337455315191494`"}], 
      RowBox[{"-", "0.45845614771628357`"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "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, 3.49312135859375*^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, 3.4931214495*^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[{
     {"0.7691685503350365`", "5.804298978221051`", "4.589971188307301`", 
      RowBox[{"-", "3.3584693600436735`"}]},
     {
      RowBox[{"-", "5.478061461242447`"}], "1.2417013786823514`", 
      "7.837701052447306`", 
      RowBox[{"-", "4.090709800920872`"}]},
     {"13.258616747557223`", 
      RowBox[{"-", "17.330007800391748`"}], 
      RowBox[{"-", "14.719144166716264`"}], "6.325097446642864`"},
     {"3.7653071368232194`", 
      RowBox[{"-", "12.137328224507662`"}], 
      RowBox[{"-", "2.2042299201646576`"}], "14.354565236060479`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "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}, 3.4931214501875*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{"Det", "[", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0.7691685503350365`", "5.804298978221051`", "4.589971188307301`", 
       RowBox[{"-", "3.3584693600436735`"}]},
      {
       RowBox[{"-", "5.478061461242447`"}], "1.2417013786823514`", 
       "7.837701052447306`", 
       RowBox[{"-", "4.090709800920872`"}]},
      {"13.258616747557223`", 
       RowBox[{"-", "17.330007800391748`"}], 
       RowBox[{"-", "14.719144166716264`"}], "6.325097446642864`"},
      {"3.7653071368232194`", 
       RowBox[{"-", "12.137328224507662`"}], 
       RowBox[{"-", "2.2042299201646576`"}], "14.354565236060479`"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "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, 3.49312145084375*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData["\<\"Notice we do NOT get the determinant. The problem is that \
NN is NOT a matrix, but a DISPLAYED matrix.\"\>"], "Output",
 CellChangeTimes->{3.4931214523125*^9}]
}, Open  ]],

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[{"-", "2.181662186682397`"}], ",", "1.5734279157692315`", ",", 
     "1.699751301397164`", ",", 
     RowBox[{"-", "1.2593727959162717`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.639203679497012`", ",", "0.7152561057339301`", ",", 
     RowBox[{"-", "13.717782637813723`"}], ",", 
     RowBox[{"-", "13.71013265071384`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "8.228888071037176`", ",", "2.233063384346095`", ",", 
     "8.581791803294015`", ",", "1.8598617468951357`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.478809086445125`", ",", 
     RowBox[{"-", "3.565711505971285`"}], ",", 
     RowBox[{"-", "14.296596364328815`"}], ",", "19.02312672356169`"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.430930487329571*^9, 3.4337126863152795`*^9, 3.4337677356014595`*^9, {
   3.493121443890625*^9, 3.493121454359375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

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

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"NNNN", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"4", ",", "5", ",", "6"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"7", ",", "8", ",", "9"}], "}"}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"Det", "[", "NNNN", "]"}]}], "Input",
 CellChangeTimes->{{3.493121486328125*^9, 3.4931215005625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "8", ",", "9"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.493121501171875*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.493121501171875*^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[{"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]", "\[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", ",", "Automatic", ",", " ", "\"\<ProbabilityDensity\>\"", ",",
          " ", 
         RowBox[{
         "PlotLabel", " ", "\[Rule]", " ", "\"\<Enter Name Here\>\""}], ",", 
         " ", 
         RowBox[{"AxesLabel", " ", "\[Rule]", " ", 
          RowBox[{"{", 
           RowBox[{"\"\<x-axis label\>\"", ",", "\"\<y-axis label\>\""}], 
           "}"}]}]}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"Print", "[", 
       RowBox[{"MatrixForm", "[", "mat", "]"}], "]"}], ";"}], "*)"}], 
    "\[IndentingNewLine]", "]"}]}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"end", " ", "module"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.430930560582695*^9, 3.4309307102957687`*^9}, {
  3.4309309455189953`*^9, 3.430931026208166*^9}, {3.493121629625*^9, 
  3.493121667265625*^9}, {3.49312172665625*^9, 3.493121751140625*^9}, {
  3.49312178671875*^9, 3.493121812859375*^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}, {3.4931216556875*^9, 3.493121669140625*^9}, 
   3.493121734515625*^9, 3.493121794484375*^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.430930997018628*^9}, {3.4931216556875*^9, 3.493121669140625*^9}, 
   3.493121734515625*^9, 3.493121794546875*^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.430930997018628*^9}, {3.4931216556875*^9, 3.493121669140625*^9}, 
   3.493121734515625*^9, 3.4931217945625*^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.430930997018628*^9}, {3.4931216556875*^9, 3.493121669140625*^9}, 
   3.493121734515625*^9, 3.493121794578125*^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.430930997018628*^9}, {3.4931216556875*^9, 3.493121669140625*^9}, 
   3.493121734515625*^9, 3.493121794609375*^9}],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
   EdgeForm[Opacity[0.7]], {}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.7]], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{-3, 0}, {
           Rational[-14, 5], 1}]},
        ImageSizeCache->{{12.749999999999972`, 24.544693877550998`}, {
         94.31513888336657, 97.12795670858858}}],
       StatusArea[#, 1]& ,
       TagBoxNote->"1"],
      StyleBox["1", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[1, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-14, 5], 0}, {
           Rational[-13, 5], 2}]},
        ImageSizeCache->{{24.044693877550998`, 35.839387755101995`}, {
         92.00232105814457, 97.12795670858858}}],
       StatusArea[#, 2]& ,
       TagBoxNote->"2"],
      StyleBox["2", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[2, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-13, 5], 0}, {
           Rational[-12, 5], 2}]},
        ImageSizeCache->{{35.339387755101995`, 47.13408163265302}, {
         92.00232105814457, 97.12795670858858}}],
       StatusArea[#, 2]& ,
       TagBoxNote->"2"],
      StyleBox["2", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[2, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-12, 5], 0}, {
           Rational[-11, 5], 7}]},
        ImageSizeCache->{{46.63408163265302, 58.428775510204034`}, {
         80.43823193203454, 97.12795670858858}}],
       StatusArea[#, 7]& ,
       TagBoxNote->"7"],
      StyleBox["7", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[7, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-11, 5], 0}, {-2, 2}]},
        ImageSizeCache->{{57.928775510204034`, 69.72346938775506}, {
         92.00232105814457, 97.12795670858858}}],
       StatusArea[#, 2]& ,
       TagBoxNote->"2"],
      StyleBox["2", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[2, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{-2, 0}, {
           Rational[-9, 5], 10}]},
        ImageSizeCache->{{69.22346938775506, 81.01816326530607}, {
         73.49977845636853, 97.12795670858858}}],
       StatusArea[#, 10]& ,
       TagBoxNote->"10"],
      StyleBox["10", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[10, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-9, 5], 0}, {
           Rational[-8, 5], 13}]},
        ImageSizeCache->{{80.51816326530607, 92.3128571428571}, {
         66.56132498070251, 97.12795670858858}}],
       StatusArea[#, 13]& ,
       TagBoxNote->"13"],
      StyleBox["13", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[13, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-8, 5], 0}, {
           Rational[-7, 5], 43}]},
        ImageSizeCache->{{91.8128571428571, 
         103.60755102040812`}, {-2.8232097759576646`, 97.12795670858858}}],
       StatusArea[#, 43]& ,
       TagBoxNote->"43"],
      StyleBox["43", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[43, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-7, 5], 0}, {
           Rational[-6, 5], 39}]},
        ImageSizeCache->{{103.10755102040812`, 114.90224489795914`}, {
         6.4280615249303565`, 97.12795670858858}}],
       StatusArea[#, 39]& ,
       TagBoxNote->"39"],
      StyleBox["39", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[39, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-6, 5], 0}, {-1, 37}]},
        ImageSizeCache->{{114.40224489795914`, 126.19693877551015`}, {
         11.053697175374367`, 97.12795670858858}}],
       StatusArea[#, 37]& ,
       TagBoxNote->"37"],
      StyleBox["37", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[37, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{-1, 0}, {
           Rational[-4, 5], 60}]},
        ImageSizeCache->{{125.69693877551015`, 
         137.49163265306117`}, {-42.14111280473176, 97.12795670858858}}],
       StatusArea[#, 60]& ,
       TagBoxNote->"60"],
      StyleBox["60", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[60, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-4, 5], 0}, {
           Rational[-3, 5], 55}]},
        ImageSizeCache->{{136.99163265306117`, 
         148.7863265306122}, {-30.577023678621728`, 97.12795670858858}}],
       StatusArea[#, 55]& ,
       TagBoxNote->"55"],
      StyleBox["55", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[55, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-3, 5], 0}, {
           Rational[-2, 5], 70}]},
        ImageSizeCache->{{148.2863265306122, 
         160.08102040816323`}, {-65.26929105695183, 97.12795670858858}}],
       StatusArea[#, 70]& ,
       TagBoxNote->"70"],
      StyleBox["70", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[70, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-2, 5], 0}, {
           Rational[-1, 5], 73}]},
        ImageSizeCache->{{159.58102040816323`, 
         171.37571428571422`}, {-72.20774453261782, 97.12795670858858}}],
       StatusArea[#, 73]& ,
       TagBoxNote->"73"],
      StyleBox["73", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[73, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-1, 5], 0}, {0, 82}]},
        ImageSizeCache->{{170.87571428571422`, 
         182.67040816326525`}, {-93.02310495961589, 97.12795670858858}}],
       StatusArea[#, 82]& ,
       TagBoxNote->"82"],
      StyleBox["82", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[82, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0, 0}, {
           Rational[1, 5], 83}]},
        ImageSizeCache->{{182.17040816326525`, 
         193.96510204081628`}, {-95.33592278483789, 97.12795670858858}}],
       StatusArea[#, 83]& ,
       TagBoxNote->"83"],
      StyleBox["83", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[83, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[1, 5], 0}, {
           Rational[2, 5], 77}]},
        ImageSizeCache->{{193.46510204081628`, 
         205.25979591836727`}, {-81.45901583350584, 97.12795670858858}}],
       StatusArea[#, 77]& ,
       TagBoxNote->"77"],
      StyleBox["77", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[77, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[2, 5], 0}, {
           Rational[3, 5], 72}]},
        ImageSizeCache->{{204.75979591836727`, 
         216.5544897959183}, {-69.89492670739583, 97.12795670858858}}],
       StatusArea[#, 72]& ,
       TagBoxNote->"72"],
      StyleBox["72", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[72, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[3, 5], 0}, {
           Rational[4, 5], 73}]},
        ImageSizeCache->{{216.0544897959183, 
         227.84918367346933`}, {-72.20774453261782, 97.12795670858858}}],
       StatusArea[#, 73]& ,
       TagBoxNote->"73"],
      StyleBox["73", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[73, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[4, 5], 0}, {1, 41}]},
        ImageSizeCache->{{227.34918367346933`, 239.14387755102035`}, {
         1.802425874486346, 97.12795670858858}}],
       StatusArea[#, 41]& ,
       TagBoxNote->"41"],
      StyleBox["41", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[41, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1, 0}, {
           Rational[6, 5], 44}]},
        ImageSizeCache->{{238.64387755102035`, 
         250.43857142857138`}, {-5.136027601179663, 97.12795670858858}}],
       StatusArea[#, 44]& ,
       TagBoxNote->"44"],
      StyleBox["44", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[44, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[6, 5], 0}, {
           Rational[7, 5], 44}]},
        ImageSizeCache->{{249.93857142857138`, 
         261.73326530612235`}, {-5.136027601179663, 97.12795670858858}}],
       StatusArea[#, 44]& ,
       TagBoxNote->"44"],
      StyleBox["44", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[44, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[7, 5], 0}, {
           Rational[8, 5], 22}]},
        ImageSizeCache->{{261.23326530612235`, 273.0279591836734}, {
         45.74596455370446, 97.12795670858858}}],
       StatusArea[#, 22]& ,
       TagBoxNote->"22"],
      StyleBox["22", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[22, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[8, 5], 0}, {
           Rational[9, 5], 15}]},
        ImageSizeCache->{{272.5279591836734, 284.3226530612244}, {
         61.9356893302585, 97.12795670858858}}],
       StatusArea[#, 15]& ,
       TagBoxNote->"15"],
      StyleBox["15", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[15, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[9, 5], 0}, {2, 13}]},
        ImageSizeCache->{{283.8226530612244, 295.6173469387754}, {
         66.56132498070251, 97.12795670858858}}],
       StatusArea[#, 13]& ,
       TagBoxNote->"13"],
      StyleBox["13", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[13, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2, 0}, {
           Rational[11, 5], 9}]},
        ImageSizeCache->{{295.1173469387754, 306.91204081632645`}, {
         75.81259628159053, 97.12795670858858}}],
       StatusArea[#, 9]& ,
       TagBoxNote->"9"],
      StyleBox["9", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[9, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[11, 5], 0}, {
           Rational[12, 5], 5}]},
        ImageSizeCache->{{306.41204081632645`, 318.2067346938775}, {
         85.06386758247855, 97.12795670858858}}],
       StatusArea[#, 5]& ,
       TagBoxNote->"5"],
      StyleBox["5", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[5, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[12, 5], 0}, {
           Rational[13, 5], 3}]},
        ImageSizeCache->{{317.7067346938775, 329.5014285714285}, {
         89.68950323292256, 97.12795670858858}}],
       StatusArea[#, 3]& ,
       TagBoxNote->"3"],
      StyleBox["3", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[3, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[13, 5], 0}, {
           Rational[14, 5], 2}]},
        ImageSizeCache->{{329.0014285714285, 340.79612244897953`}, {
         92.00232105814457, 97.12795670858858}}],
       StatusArea[#, 2]& ,
       TagBoxNote->"2"],
      StyleBox["2", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[2, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[14, 5], 0}, {3, 1}]},
        ImageSizeCache->{{340.29612244897953`, 352.09081632653056`}, {
         94.31513888336657, 97.12795670858858}}],
       StatusArea[#, 1]& ,
       TagBoxNote->"1"],
      StyleBox["1", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[1, {
        GrayLevel[0]}], "Tooltip"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesOrigin->{-3, 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  ImageMargins->0.,
  ImageSize->Automatic,
  PlotRange->{{-3, 3}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.1]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.430930554020615*^9, 3.4309307134371696`*^9, {3.4309309804435177`*^9, 
   3.430930997018628*^9}, {3.4931216556875*^9, 3.493121669140625*^9}, 
   3.493121734515625*^9, 3.49312179478125*^9}],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
   EdgeForm[Opacity[0.7]], {}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.7]], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{-3, 0}, {
           Rational[-14, 5], 0.005}]},
        ImageSizeCache->{{24.24999999999997, 33.81122448979592}, {
         89.39896224381104, 91.75443187809583}}],
       StatusArea[#, 0.005]& ,
       TagBoxNote->"0.005"],
      StyleBox["0.005`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.005, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-14, 5], 0}, {
           Rational[-13, 5], 0.01}]},
        ImageSizeCache->{{33.31122448979592, 42.87244897959182}, {
         87.54349260952627, 91.75443187809583}}],
       StatusArea[#, 0.01]& ,
       TagBoxNote->"0.01"],
      StyleBox["0.01`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.01, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-13, 5], 0}, {
           Rational[-12, 5], 0.01}]},
        ImageSizeCache->{{42.37244897959182, 51.93367346938774}, {
         87.54349260952627, 91.75443187809583}}],
       StatusArea[#, 0.01]& ,
       TagBoxNote->"0.01"],
      StyleBox["0.01`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.01, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-12, 5], 0}, {
           Rational[-11, 5], 0.035}]},
        ImageSizeCache->{{51.43367346938774, 60.994897959183646`}, {
         78.26614443810234, 91.75443187809583}}],
       StatusArea[#, 0.035]& ,
       TagBoxNote->"0.035"],
      StyleBox["0.035`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.035, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-11, 5], 0}, {-2, 0.01}]},
        ImageSizeCache->{{60.494897959183646`, 70.05612244897958}, {
         87.54349260952627, 91.75443187809583}}],
       StatusArea[#, 0.01]& ,
       TagBoxNote->"0.01"],
      StyleBox["0.01`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.01, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{-2, 0}, {
           Rational[-9, 5], 0.05}]},
        ImageSizeCache->{{69.55612244897958, 79.1173469387755}, {
         72.699735535248, 91.75443187809583}}],
       StatusArea[#, 0.05]& ,
       TagBoxNote->"0.05"],
      StyleBox["0.05`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.05, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-9, 5], 0}, {
           Rational[-8, 5], 0.065}]},
        ImageSizeCache->{{78.6173469387755, 88.17857142857142}, {
         67.13332663239365, 91.75443187809583}}],
       StatusArea[#, 0.065]& ,
       TagBoxNote->"0.065"],
      StyleBox["0.065`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.065, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-8, 5], 0}, {
           Rational[-7, 5], 0.215}]},
        ImageSizeCache->{{87.67857142857142, 97.23979591836735}, {
         11.469237603850132`, 91.75443187809583}}],
       StatusArea[#, 0.215]& ,
       TagBoxNote->"0.215"],
      StyleBox["0.215`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.215, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-7, 5], 0}, {
           Rational[-6, 5], 0.195}]},
        ImageSizeCache->{{96.73979591836735, 106.30102040816325`}, {
         18.89111614098927, 91.75443187809583}}],
       StatusArea[#, 0.195]& ,
       TagBoxNote->"0.195"],
      StyleBox["0.195`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.195, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-6, 5], 0}, {-1, 0.185}]},
        ImageSizeCache->{{105.80102040816325`, 115.36224489795917`}, {
         22.60205540955883, 91.75443187809583}}],
       StatusArea[#, 0.185]& ,
       TagBoxNote->"0.185"],
      StyleBox["0.185`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.185, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{-1, 0}, {
           Rational[-4, 5], 0.3}]},
        ImageSizeCache->{{114.86224489795917`, 
         124.42346938775509`}, {-20.073746178991186`, 91.75443187809583}}],
       StatusArea[#, 0.3]& ,
       TagBoxNote->"0.3"],
      StyleBox["0.3`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.3, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-4, 5], 0}, {
           Rational[-3, 5], 0.275}]},
        ImageSizeCache->{{123.92346938775509`, 
         133.48469387755102`}, {-10.796398007567277`, 91.75443187809583}}],
       StatusArea[#, 0.275]& ,
       TagBoxNote->"0.275"],
      StyleBox["0.275`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.275, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-3, 5], 0}, {
           Rational[-2, 5], 0.35}]},
        ImageSizeCache->{{132.98469387755102`, 
         142.54591836734693`}, {-38.62844252183902, 91.75443187809583}}],
       StatusArea[#, 0.35]& ,
       TagBoxNote->"0.35"],
      StyleBox["0.35`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.35, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-2, 5], 0}, {
           Rational[-1, 5], 0.365}]},
        ImageSizeCache->{{142.04591836734693`, 
         151.60714285714283`}, {-44.19485142469338, 91.75443187809583}}],
       StatusArea[#, 0.365]& ,
       TagBoxNote->"0.365"],
      StyleBox["0.365`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.365, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[-1, 5], 0}, {0, 0.41}]},
        ImageSizeCache->{{151.10714285714283`, 
         160.66836734693877`}, {-60.894078133256414`, 91.75443187809583}}],
       StatusArea[#, 0.41]& ,
       TagBoxNote->"0.41"],
      StyleBox["0.41`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.41, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0, 0}, {
           Rational[1, 5], 0.415}]},
        ImageSizeCache->{{160.16836734693877`, 
         169.7295918367347}, {-62.7495477675412, 91.75443187809583}}],
       StatusArea[#, 0.415]& ,
       TagBoxNote->"0.415"],
      StyleBox["0.415`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.415, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[1, 5], 0}, {
           Rational[2, 5], 0.385}]},
        ImageSizeCache->{{169.2295918367347, 
         178.7908163265306}, {-51.616729961832505`, 91.75443187809583}}],
       StatusArea[#, 0.385]& ,
       TagBoxNote->"0.385"],
      StyleBox["0.385`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.385, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[2, 5], 0}, {
           Rational[3, 5], 0.36}]},
        ImageSizeCache->{{178.2908163265306, 
         187.8520408163265}, {-42.339381790408595`, 91.75443187809583}}],
       StatusArea[#, 0.36]& ,
       TagBoxNote->"0.36"],
      StyleBox["0.36`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.36, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[3, 5], 0}, {
           Rational[4, 5], 0.365}]},
        ImageSizeCache->{{187.3520408163265, 
         196.91326530612244`}, {-44.19485142469338, 91.75443187809583}}],
       StatusArea[#, 0.365]& ,
       TagBoxNote->"0.365"],
      StyleBox["0.365`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.365, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[4, 5], 0}, {1, 0.205}]},
        ImageSizeCache->{{196.41326530612244`, 205.97448979591837`}, {
         15.180176872419707`, 91.75443187809583}}],
       StatusArea[#, 0.205]& ,
       TagBoxNote->"0.205"],
      StyleBox["0.205`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.205, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1, 0}, {
           Rational[6, 5], 0.22}]},
        ImageSizeCache->{{205.47448979591837`, 215.03571428571428`}, {
         9.613767969565345, 91.75443187809583}}],
       StatusArea[#, 0.22]& ,
       TagBoxNote->"0.22"],
      StyleBox["0.22`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.22, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[6, 5], 0}, {
           Rational[7, 5], 0.22}]},
        ImageSizeCache->{{214.53571428571428`, 224.09693877551018`}, {
         9.613767969565345, 91.75443187809583}}],
       StatusArea[#, 0.22]& ,
       TagBoxNote->"0.22"],
      StyleBox["0.22`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.22, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[7, 5], 0}, {
           Rational[8, 5], 0.11}]},
        ImageSizeCache->{{223.59693877551018`, 233.15816326530611`}, {
         50.43409992383059, 91.75443187809583}}],
       StatusArea[#, 0.11]& ,
       TagBoxNote->"0.11"],
      StyleBox["0.11`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.11, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[8, 5], 0}, {
           Rational[9, 5], 0.075}]},
        ImageSizeCache->{{232.65816326530611`, 242.21938775510205`}, {
         63.42238736382407, 91.75443187809583}}],
       StatusArea[#, 0.075]& ,
       TagBoxNote->"0.075"],
      StyleBox["0.075`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.075, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[9, 5], 0}, {2, 0.065}]},
        ImageSizeCache->{{241.71938775510205`, 251.28061224489795`}, {
         67.13332663239365, 91.75443187809583}}],
       StatusArea[#, 0.065]& ,
       TagBoxNote->"0.065"],
      StyleBox["0.065`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.065, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2, 0}, {
           Rational[11, 5], 0.045}]},
        ImageSizeCache->{{250.78061224489795`, 260.34183673469386`}, {
         74.55520516953277, 91.75443187809583}}],
       StatusArea[#, 0.045]& ,
       TagBoxNote->"0.045"],
      StyleBox["0.045`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.045, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[11, 5], 0}, {
           Rational[12, 5], 0.025}]},
        ImageSizeCache->{{259.84183673469386`, 269.40306122448976`}, {
         81.9770837066719, 91.75443187809583}}],
       StatusArea[#, 0.025]& ,
       TagBoxNote->"0.025"],
      StyleBox["0.025`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.025, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[12, 5], 0}, {
           Rational[13, 5], 0.015}]},
        ImageSizeCache->{{268.90306122448976`, 278.4642857142857}, {
         85.68802297524148, 91.75443187809583}}],
       StatusArea[#, 0.015]& ,
       TagBoxNote->"0.015"],
      StyleBox["0.015`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.015, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[13, 5], 0}, {
           Rational[14, 5], 0.01}]},
        ImageSizeCache->{{277.9642857142857, 287.5255102040816}, {
         87.54349260952627, 91.75443187809583}}],
       StatusArea[#, 0.01]& ,
       TagBoxNote->"0.01"],
      StyleBox["0.01`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.01, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{
           Rational[14, 5], 0}, {3, 0.005}]},
        ImageSizeCache->{{287.0255102040816, 296.5867346938776}, {
         89.39896224381104, 91.75443187809583}}],
       StatusArea[#, 0.005]& ,
       TagBoxNote->"0.005"],
      StyleBox["0.005`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.005, {
        GrayLevel[0]}], "Tooltip"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"x-axis label\"", TraditionalForm], 
    FormBox["\"y-axis label\"", TraditionalForm]},
  AxesOrigin->{-3, 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  ImageMargins->0.,
  ImageSize->Automatic,
  PlotLabel->FormBox["\"Enter Name Here\"", TraditionalForm],
  PlotRange->{{-3, 3}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.1]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.430930554020615*^9, 3.4309307134371696`*^9, {3.4309309804435177`*^9, 
   3.430930997018628*^9}, {3.4931216556875*^9, 3.493121669140625*^9}, 
   3.493121734515625*^9, 3.493121794953125*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "0.3161823419844986`"}], 
      RowBox[{"-", "0.6801685898349867`"}], "0.12178658891772641`", 
      "0.5654495329376521`", 
      RowBox[{"-", "1.584664470307365`"}], 
      RowBox[{"-", "1.6672292815174956`"}], "1.305047731699016`", 
      "0.8762109979014452`", "1.1310689354383583`"},
     {
      RowBox[{"-", "0.3161823419844986`"}], "0", 
      RowBox[{"-", "0.3161823419844986`"}], 
      RowBox[{"-", "0.6801685898349867`"}], "0.12178658891772641`", 
      "0.5654495329376521`", 
      RowBox[{"-", "1.584664470307365`"}], 
      RowBox[{"-", "1.6672292815174956`"}], "1.305047731699016`", 
      "0.8762109979014452`"},
     {
      RowBox[{"-", "0.6801685898349867`"}], 
      RowBox[{"-", "0.3161823419844986`"}], "0", 
      RowBox[{"-", "0.3161823419844986`"}], 
      RowBox[{"-", "0.6801685898349867`"}], "0.12178658891772641`", 
      "0.5654495329376521`", 
      RowBox[{"-", "1.584664470307365`"}], 
      RowBox[{"-", "1.6672292815174956`"}], "1.305047731699016`"},
     {"0.12178658891772641`", 
      RowBox[{"-", "0.6801685898349867`"}], 
      RowBox[{"-", "0.3161823419844986`"}], "0", 
      RowBox[{"-", "0.3161823419844986`"}], 
      RowBox[{"-", "0.6801685898349867`"}], "0.12178658891772641`", 
      "0.5654495329376521`", 
      RowBox[{"-", "1.584664470307365`"}], 
      RowBox[{"-", "1.6672292815174956`"}]},
     {"0.5654495329376521`", "0.12178658891772641`", 
      RowBox[{"-", "0.6801685898349867`"}], 
      RowBox[{"-", "0.3161823419844986`"}], "0", 
      RowBox[{"-", "0.3161823419844986`"}], 
      RowBox[{"-", "0.6801685898349867`"}], "0.12178658891772641`", 
      "0.5654495329376521`", 
      RowBox[{"-", "1.584664470307365`"}]},
     {
      RowBox[{"-", "1.584664470307365`"}], "0.5654495329376521`", 
      "0.12178658891772641`", 
      RowBox[{"-", "0.6801685898349867`"}], 
      RowBox[{"-", "0.3161823419844986`"}], "0", 
      RowBox[{"-", "0.3161823419844986`"}], 
      RowBox[{"-", "0.6801685898349867`"}], "0.12178658891772641`", 
      "0.5654495329376521`"},
     {
      RowBox[{"-", "1.6672292815174956`"}], 
      RowBox[{"-", "1.584664470307365`"}], "0.5654495329376521`", 
      "0.12178658891772641`", 
      RowBox[{"-", "0.6801685898349867`"}], 
      RowBox[{"-", "0.3161823419844986`"}], "0", 
      RowBox[{"-", "0.3161823419844986`"}], 
      RowBox[{"-", "0.6801685898349867`"}], "0.12178658891772641`"},
     {"1.305047731699016`", 
      RowBox[{"-", "1.6672292815174956`"}], 
      RowBox[{"-", "1.584664470307365`"}], "0.5654495329376521`", 
      "0.12178658891772641`", 
      RowBox[{"-", "0.6801685898349867`"}], 
      RowBox[{"-", "0.3161823419844986`"}], "0", 
      RowBox[{"-", "0.3161823419844986`"}], 
      RowBox[{"-", "0.6801685898349867`"}]},
     {"0.8762109979014452`", "1.305047731699016`", 
      RowBox[{"-", "1.6672292815174956`"}], 
      RowBox[{"-", "1.584664470307365`"}], "0.5654495329376521`", 
      "0.12178658891772641`", 
      RowBox[{"-", "0.6801685898349867`"}], 
      RowBox[{"-", "0.3161823419844986`"}], "0", 
      RowBox[{"-", "0.3161823419844986`"}]},
     {"1.1310689354383583`", "0.8762109979014452`", "1.305047731699016`", 
      RowBox[{"-", "1.6672292815174956`"}], 
      RowBox[{"-", "1.584664470307365`"}], "0.5654495329376521`", 
      "0.12178658891772641`", 
      RowBox[{"-", "0.6801685898349867`"}], 
      RowBox[{"-", "0.3161823419844986`"}], "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "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.430930554020615*^9, 3.4309307134371696`*^9, {3.4309309804435177`*^9, 
   3.430930997018628*^9}, {3.4931216556875*^9, 3.493121669140625*^9}, 
   3.493121734515625*^9, 3.49312179496875*^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[{"10", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.4337678775389595`*^9, 3.4337678888670845`*^9}, {
  3.493121955578125*^9, 3.493121962625*^9}, {3.493121995875*^9, 
  3.49312204365625*^9}, {3.5070330354375*^9, 3.507033046875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 
   ",", "9", ",", "10"}], "}"}]], "Print",
 CellChangeTimes->{
  3.4309310916219482`*^9, 3.4337128706434045`*^9, {3.4337678692733345`*^9, 
   3.4337678893670845`*^9}, 3.493121966421875*^9, {3.49312199659375*^9, 
   3.4931220443125*^9}, 3.50703304803125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"10", ",", "1", ",", "2", ",", "4", ",", "5", ",", "7", ",", "8"}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.4309310916219482`*^9, 3.4337128706434045`*^9, {3.4337678692733345`*^9, 
   3.4337678893670845`*^9}, 3.493121966421875*^9, {3.49312199659375*^9, 
   3.4931220443125*^9}, 3.507033048046875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"8", ",", "10", ",", "1", ",", "4", ",", "5"}], "}"}]], "Print",
 CellChangeTimes->{
  3.4309310916219482`*^9, 3.4337128706434045`*^9, {3.4337678692733345`*^9, 
   3.4337678893670845`*^9}, 3.493121966421875*^9, {3.49312199659375*^9, 
   3.4931220443125*^9}, 3.507033048078125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4", ",", "5", ",", "8", ",", "10"}], "}"}]], "Print",
 CellChangeTimes->{
  3.4309310916219482`*^9, 3.4337128706434045`*^9, {3.4337678692733345`*^9, 
   3.4337678893670845`*^9}, 3.493121966421875*^9, {3.49312199659375*^9, 
   3.4931220443125*^9}, 3.507033048109375*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"10", ",", "4", ",", "5"}], "}"}]], "Print",
 CellChangeTimes->{
  3.4309310916219482`*^9, 3.4337128706434045`*^9, {3.4337678692733345`*^9, 
   3.4337678893670845`*^9}, 3.493121966421875*^9, {3.49312199659375*^9, 
   3.4931220443125*^9}, 3.507033048140625*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"10", ",", "4"}], "}"}]], "Print",
 CellChangeTimes->{
  3.4309310916219482`*^9, 3.4337128706434045`*^9, {3.4337678692733345`*^9, 
   3.4337678893670845`*^9}, 3.493121966421875*^9, {3.49312199659375*^9, 
   3.4931220443125*^9}, 3.507033048171875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\"}\"\>"}],
  SequenceForm["{", 4, "}"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.4309310916219482`*^9, 3.4337128706434045`*^9, {3.4337678692733345`*^9, 
   3.4337678893670845`*^9}, 3.493121966421875*^9, {3.49312199659375*^9, 
   3.4931220443125*^9}, 3.507033048203125*^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[{"count", " ", "=", " ", "0"}], ";"}], "\[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[{"count", " ", "=", " ", 
         RowBox[{"count", "+", "1"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Mod", "[", 
            RowBox[{"count", ",", " ", 
             RowBox[{"Floor", "[", 
              RowBox[{
               RowBox[{"9", "!"}], "/", "10"}], "]"}]}], "]"}], " ", 
           "\[Equal]", " ", "0"}], ",", " ", 
          RowBox[{"Print", "[", 
           RowBox[{"\"\<We are at \>\"", ",", " ", 
            RowBox[{"Floor", "[", 
             RowBox[{"100.", " ", 
              RowBox[{"count", " ", "/", " ", 
               RowBox[{"9", "!"}]}]}], "]"}], ",", " ", "\"\<%.\>\""}], 
           "]"}]}], "]"}], ";", "\[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",
 CellChangeTimes->{{3.507033132*^9, 3.50703319853125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"We are at \"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm["We are at ", 10, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.507033222359375*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2", "7", "6"},
     {"9", "5", "1"},
     {"4", "3", "8"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "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.507033239625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"We are at \"\>", "\[InvisibleSpace]", "20", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm["We are at ", 20, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.507033241453125*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2", "9", "4"},
     {"7", "5", "3"},
     {"6", "1", "8"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "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.50703324409375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"We are at \"\>", "\[InvisibleSpace]", "30", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm["We are at ", 30, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.507033260625*^9}]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.50703311275*^9, 3.50703327309375*^9}]
}, 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[BoxData[""], "Input",
 CellChangeTimes->{{3.493122113359375*^9, 3.493122124828125*^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.026999999999999996`, $CellContext`c$$ = 1.8080941705600018`, 
    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., {109., 114.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`c$2914$$ = 
    0, $CellContext`B$2915$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`B$$ = -0.1, $CellContext`c$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$2914$$, 0], 
        Hold[$CellContext`B$$, $CellContext`B$2915$$, 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., {179., 184.}},
     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, 3.5070333055625*^9, {3.507033371625*^9, 
   3.507033373984375*^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$$ = Csc, $CellContext`x1$$ = 
    0.8796459430051424, 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$6000$$ = 
    0, $CellContext`f$6001$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`f$$ = Sin, $CellContext`x1$$ = (-2) Pi}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x1$$, $CellContext`x1$6000$$, 0], 
        Hold[$CellContext`f$$, $CellContext`f$6001$$, 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, 3.507033383328125*^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  ]],

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

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.51198656853125*^9, 3.511986568890625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "\[Rule]", "2"}], ",", 
     RowBox[{"2", "\[Rule]", "4"}], ",", 
     RowBox[{"3", "\[Rule]", "6"}], ",", 
     RowBox[{"4", "\[Rule]", "8"}], ",", 
     RowBox[{"5", "\[Rule]", "10"}], ",", 
     RowBox[{"6", "\[Rule]", "12"}], ",", 
     RowBox[{"1", "\[Rule]", "3"}], ",", 
     RowBox[{"2", "\[Rule]", "5"}], ",", 
     RowBox[{"3", "\[Rule]", "7"}], ",", 
     RowBox[{"4", "\[Rule]", "9"}], ",", 
     RowBox[{"5", "\[Rule]", "11"}], ",", 
     RowBox[{"6", "\[Rule]", "13"}]}], "}"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Start", " ", "\[Rule]", " ", "Pia"}], ",", " ", 
    RowBox[{"Start", "\[Rule]", " ", "Muriel"}], ",", " ", 
    RowBox[{"Start", " ", "\[Rule]", " ", "Ephelia"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.506036016328125*^9, 3.506036138*^9}, {
  3.506036169546875*^9, 3.506036212703125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Start", "\[Rule]", "Pia"}], ",", 
   RowBox[{"Start", "\[Rule]", "Muriel"}], ",", 
   RowBox[{"Start", "\[Rule]", "Ephelia"}]}], "}"}]], "Output",
 CellChangeTimes->{3.51198657509375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Start", "\[Rule]", "Pia"}], ",", 
    RowBox[{"Start", "\[Rule]", "Muriel"}], ",", 
    RowBox[{"Start", "\[Rule]", "Ephelia"}], ",", " ", 
    RowBox[{"Ephelia", " ", "\[Rule]", " ", "\"\<Muriel\>\""}], " ", ",", " ", 
    RowBox[{"Ephelia", " ", "\[Rule]", " ", "\"\<Pia\>\""}], ",", " ", 
    RowBox[{"Muriel", " ", "\[Rule]", " ", "\"\< Ephelia\>\""}], ",", " ", 
    RowBox[{"Muriel", " ", "\[Rule]", " ", "\"\< Pia\>\""}], ",", " ", 
    RowBox[{"Pia", " ", "\[Rule]", " ", "\"\<  Ephelia\>\""}], ",", " ", 
    RowBox[{"Pia", " ", "\[Rule]", " ", "\"\< Muriel\>\""}], ",", " ", 
    RowBox[{"\"\<Pia\>\"", " ", "\[Rule]", " ", "\"\< Muriel \>\""}], ",", 
    " ", 
    RowBox[{"\"\<Muriel\>\"", " ", "\[Rule]", " ", "\"\< Pia  \>\""}], ",", 
    " ", 
    RowBox[{"\"\< Pia\>\"", " ", "\[Rule]", " ", "\"\< Ephelia \>\""}], ",", 
    " ", 
    RowBox[{"\"\< Ephelia\>\"", " ", "\[Rule]", "  ", "\"\< Pia \>\""}], ",", 
    " ", 
    RowBox[{"\"\< Muriel\>\"", " ", "\[Rule]", " ", "\"\< Ephelia  \>\""}], 
    ",", " ", 
    RowBox[{"\"\<  Ephelia\>\"", " ", "\[Rule]", " ", "\"\< Muriel  \>\""}]}],
    "}"}]}]], "Input",
 CellChangeTimes->{{3.506036224078125*^9, 3.50603625471875*^9}, {
  3.506036305625*^9, 3.50603642771875*^9}, {3.506036469515625*^9, 
  3.5060366903125*^9}, {3.506036760234375*^9, 3.506036778328125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Start", "\[Rule]", "Pia"}], ",", 
   RowBox[{"Start", "\[Rule]", "Muriel"}], ",", 
   RowBox[{"Start", "\[Rule]", "Ephelia"}], ",", 
   RowBox[{"Ephelia", "\[Rule]", "\<\"Muriel\"\>"}], ",", 
   RowBox[{"Ephelia", "\[Rule]", "\<\"Pia\"\>"}], ",", 
   RowBox[{"Muriel", "\[Rule]", "\<\" Ephelia\"\>"}], ",", 
   RowBox[{"Muriel", "\[Rule]", "\<\" Pia\"\>"}], ",", 
   RowBox[{"Pia", "\[Rule]", "\<\"  Ephelia\"\>"}], ",", 
   RowBox[{"Pia", "\[Rule]", "\<\" Muriel\"\>"}], ",", 
   RowBox[{"\<\"Pia\"\>", "\[Rule]", "\<\" Muriel \"\>"}], ",", 
   RowBox[{"\<\"Muriel\"\>", "\[Rule]", "\<\" Pia  \"\>"}], ",", 
   RowBox[{"\<\" Pia\"\>", "\[Rule]", "\<\" Ephelia \"\>"}], ",", 
   RowBox[{"\<\" Ephelia\"\>", "\[Rule]", "\<\" Pia \"\>"}], ",", 
   RowBox[{"\<\" Muriel\"\>", "\[Rule]", "\<\" Ephelia  \"\>"}], ",", 
   RowBox[{"\<\"  Ephelia\"\>", "\[Rule]", "\<\" Muriel  \"\>"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.50603625603125*^9, 3.506036270390625*^9}, {
   3.506036306578125*^9, 3.50603636140625*^9}, {3.506036400859375*^9, 
   3.50603642865625*^9}, 3.506036471671875*^9, {3.5060365318125*^9, 
   3.506036564171875*^9}, {3.506036619046875*^9, 3.506036636734375*^9}, 
   3.506036691203125*^9, {3.50603676109375*^9, 3.506036779078125*^9}, 
   3.511986576*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TreePlot", "[", 
  RowBox[{"h", ",", "Left", ",", 
   RowBox[{"VertexLabeling", "->", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{3.50603604465625*^9}],

Cell[BoxData[
 GraphicsBox[
  TagBox[GraphicsComplexBox[{{0., 1.9561519910898773`}, {0.7824607964359533, 
    0.391230398217975}, {0.7824607964359517, 1.9561519910898781`}, {
    0.78246079643595, 3.5210735839617815`}, {1.564921592871902, 
    3.1298431857438063`}, {1.5649215928719011`, 3.912303982179758}, {
    1.5649215928719036`, 1.5649215928719034`}, {1.564921592871903, 
    2.347382389307855}, {1.5649215928719054`, 0.}, {1.5649215928719045`, 
    0.7824607964359517}, {2.347382389307853, 3.9123039821797594`}, {
    2.3473823893078536`, 3.1298431857438076`}, {2.347382389307855, 
    2.347382389307856}, {2.3473823893078554`, 1.564921592871904}, {
    2.3473823893078563`, 0.7824607964359525}, {2.347382389307857, 
    8.387005101278214*^-16}}, {
     {RGBColor[0.5, 0., 0.], 
      LineBox[{{1, 2}, {1, 3}, {1, 4}, {2, 9}, {2, 10}, {3, 7}, {3, 8}, {4, 
       5}, {4, 6}, {5, 12}, {6, 11}, {7, 14}, {8, 13}, {9, 16}, {10, 15}}]}, {
      InsetBox[
       FrameBox["Start",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 1], InsetBox[
       FrameBox["Pia",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 2], InsetBox[
       FrameBox["Muriel",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 3], InsetBox[
       FrameBox["Ephelia",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 4], InsetBox[
       FrameBox["\<\"Muriel\"\>",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 5], InsetBox[
       FrameBox["\<\"Pia\"\>",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 6], InsetBox[
       FrameBox["\<\" Ephelia\"\>",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 7], InsetBox[
       FrameBox["\<\" Pia\"\>",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 8], InsetBox[
       FrameBox["\<\"  Ephelia\"\>",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 9], InsetBox[
       FrameBox["\<\" Muriel\"\>",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 10], InsetBox[
       FrameBox["\<\" Muriel \"\>",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 11], InsetBox[
       FrameBox["\<\" Pia  \"\>",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 12], InsetBox[
       FrameBox["\<\" Ephelia \"\>",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 13], InsetBox[
       FrameBox["\<\" Pia \"\>",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 14], InsetBox[
       FrameBox["\<\" Ephelia  \"\>",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 15], InsetBox[
       FrameBox["\<\" Muriel  \"\>",
        Background->RGBColor[1, 1, 0.8],
        FrameStyle->RGBColor[0.94, 0.85, 0.36],
        StripOnInput->False], 16]}}],
   Annotation[#, 
    VertexCoordinateRules -> {{0., 1.9561519910898773`}, {0.7824607964359533, 
     0.391230398217975}, {0.7824607964359517, 1.9561519910898781`}, {
     0.78246079643595, 3.5210735839617815`}, {1.564921592871902, 
     3.1298431857438063`}, {1.5649215928719011`, 3.912303982179758}, {
     1.5649215928719036`, 1.5649215928719034`}, {1.564921592871903, 
     2.347382389307855}, {1.5649215928719054`, 0.}, {1.5649215928719045`, 
     0.7824607964359517}, {2.347382389307853, 3.9123039821797594`}, {
     2.3473823893078536`, 3.1298431857438076`}, {2.347382389307855, 
     2.347382389307856}, {2.3473823893078554`, 1.564921592871904}, {
     2.3473823893078563`, 0.7824607964359525}, {2.347382389307857, 
     8.387005101278214*^-16}}]& ],
  AspectRatio->1.2909944487358052`,
  FrameTicks->None,
  ImageSize->{382.8511644430794, Automatic},
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{
  3.506036009078125*^9, 3.506036045125*^9, {3.506036179921875*^9, 
   3.506036214109375*^9}, {3.50603625684375*^9, 3.5060362718125*^9}, {
   3.5060363080625*^9, 3.506036362421875*^9}, {3.506036402015625*^9, 
   3.5060364301875*^9}, 3.506036476671875*^9, {3.506036532703125*^9, 
   3.5060365653125*^9}, {3.506036619953125*^9, 3.506036637671875*^9}, 
   3.506036692109375*^9, {3.50603676215625*^9, 3.506036779984375*^9}, 
   3.511986577078125*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.511986579265625*^9, 3.5119865795625*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.511986580421875*^9, 3.511986581546875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"num", " ", "=", " ", "100000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"success", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"list", " ", "=", " ", 
   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"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"n", " ", "=", " ", "1"}], ",", " ", 
    RowBox[{"n", " ", "\[LessEqual]", " ", "num"}], ",", " ", 
    RowBox[{"n", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"temp", " ", "=", " ", 
       RowBox[{"RandomSample", "[", 
        RowBox[{"list", ",", "13"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"found", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"k", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"k", " ", "\[LessEqual]", " ", "5"}], ",", " ", 
        RowBox[{"k", "++"}], ",", " ", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"MemberQ", "[", 
            RowBox[{"temp", ",", "k"}], "]"}], " ", "\[Equal]", " ", "True"}],
           ",", " ", 
          RowBox[{"found", " ", "=", " ", 
           RowBox[{"found", " ", "+", " ", "1"}]}]}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"found", " ", "\[Equal]", " ", "5"}], " ", "||", " ", 
         RowBox[{"found", " ", "\[Equal]", " ", "0"}]}], ",", " ", 
        RowBox[{"success", " ", "=", " ", 
         RowBox[{"success", " ", "+", " ", "1"}]}]}], "]"}], ";"}], 
     "\[IndentingNewLine]", "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"100.", " ", 
    RowBox[{"success", " ", "/", " ", "num"}]}], "]"}], ";"}]}], "Input"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5119866170625*^9, 3.511986617328125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"scat", "[", 
    RowBox[{"num_", ",", "size_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"success", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", 
      RowBox[{"list", " ", "=", " ", 
       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", ",", "29", ",", "30", ",", "31", ",", "32", 
         ",", "33", ",", "34", ",", "35", ",", "36", ",", "37", ",", "38", 
         ",", "39", ",", "40", ",", "41", ",", "42", ",", "43", ",", "44", 
         ",", "45", ",", "46", ",", "47", ",", "48", ",", "49", ",", "50", 
         ",", "51", ",", "52"}], "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"n", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"n", " ", "\[LessEqual]", " ", "num"}], ",", " ", 
        RowBox[{"n", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"templist", " ", "=", " ", 
           RowBox[{"RandomSample", "[", 
            RowBox[{"list", ",", "size"}], "]"}]}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"k", " ", "=", "1"}], ",", " ", 
            RowBox[{"k", " ", "\[LessEqual]", " ", "4"}], ",", " ", 
            RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"ace", "[", "k", "]"}], " ", "=", " ", "0"}], ";", " ", 
              RowBox[{
               RowBox[{"ten", "[", "k", "]"}], " ", "=", " ", "0"}], ";"}], 
             "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"m", " ", "=", " ", "1"}], ",", " ", 
            RowBox[{"m", " ", "\[LessEqual]", " ", "size"}], ",", " ", 
            RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"temp", " ", "=", " ", 
               RowBox[{"templist", "[", 
                RowBox[{"[", "m", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"temp", " ", "\[Equal]", " ", "1"}], ",", " ", 
                RowBox[{
                 RowBox[{"ace", "[", "1", "]"}], " ", "=", " ", "1"}]}], 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"temp", " ", "\[Equal]", " ", "14"}], ",", " ", 
                RowBox[{
                 RowBox[{"ace", "[", "2", "]"}], " ", "=", " ", "1"}]}], 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"temp", " ", "==", " ", "27"}], ",", " ", 
                RowBox[{
                 RowBox[{"ace", "[", "3", "]"}], " ", "=", " ", "1"}]}], 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"temp", " ", "\[Equal]", " ", "40"}], ",", " ", 
                RowBox[{
                 RowBox[{"ace", "[", "4", "]"}], " ", "=", " ", "1"}]}], 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"temp", " ", "\[GreaterEqual]", " ", "10"}], " ", "&&",
                  " ", 
                 RowBox[{"temp", " ", "\[LessEqual]", " ", "13"}]}], ",", " ", 
                RowBox[{
                 RowBox[{"ten", "[", "1", "]"}], " ", "=", " ", 
                 RowBox[{
                  RowBox[{"ten", "[", "1", "]"}], " ", "+", " ", "1"}]}]}], 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"temp", " ", "\[GreaterEqual]", " ", "23"}], " ", "&&",
                  " ", 
                 RowBox[{"temp", " ", "\[LessEqual]", " ", "26"}]}], ",", " ", 
                RowBox[{
                 RowBox[{"ten", "[", "2", "]"}], " ", "=", " ", 
                 RowBox[{
                  RowBox[{"ten", "[", "2", "]"}], " ", "+", " ", "1"}]}]}], 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"temp", " ", "\[GreaterEqual]", " ", "36"}], " ", "&&",
                  " ", 
                 RowBox[{"temp", " ", "\[LessEqual]", " ", "39"}]}], ",", " ", 
                RowBox[{
                 RowBox[{"ten", "[", "3", "]"}], " ", "=", " ", 
                 RowBox[{
                  RowBox[{"ten", "[", "3", "]"}], " ", "+", " ", "1"}]}]}], 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"temp", " ", "\[GreaterEqual]", " ", "49"}], " ", "&&",
                  " ", 
                 RowBox[{"temp", " ", "\[LessEqual]", "  ", "52"}]}], ",", 
                " ", 
                RowBox[{
                 RowBox[{"ten", "[", "4", "]"}], " ", "=", " ", 
                 RowBox[{
                  RowBox[{"ten", "[", "4", "]"}], " ", "+", " ", "1"}]}]}], 
               "]"}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"ace", "[", "1", "]"}], " ", "*", " ", 
               RowBox[{"ten", "[", "1", "]"}]}], " ", "\[GreaterEqual]", " ", 
              "2"}], " ", "||", " ", 
             RowBox[{
              RowBox[{
               RowBox[{"ace", "[", "2", "]"}], " ", "*", " ", 
               RowBox[{"ten", "[", "2", "]"}]}], " ", "\[GreaterEqual]", " ", 
              "2"}], " ", "||", " ", 
             RowBox[{
              RowBox[{
               RowBox[{"ace", "[", "3", "]"}], "*", " ", 
               RowBox[{"ten", "[", "3", "]"}]}], " ", "\[GreaterEqual]", " ", 
              "2"}], " ", "||", " ", 
             RowBox[{
              RowBox[{
               RowBox[{"ace", "[", "4", "]"}], " ", "*", " ", 
               RowBox[{"ten", "[", "4", "]"}]}], " ", "\[GreaterEqual]", " ", 
              "2"}]}], ",", " ", 
            RowBox[{"success", " ", "=", " ", 
             RowBox[{"success", "+", "1"}]}]}], "]"}], ";"}], 
         "\[IndentingNewLine]", "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"100.", " ", 
          RowBox[{"success", " ", "/", " ", "num"}]}], "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"100.", " ", 
        RowBox[{"success", " ", "/", " ", "num"}]}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input"],

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

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.51205977925*^9, 3.5120597800625*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"CREATING", " ", "MATCHING", " ", "GRAPHS"}], "Title"]], "Input",
 CellChangeTimes->{{3.511732886984375*^9, 3.511732895078125*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"S", ".", " ", "J", ".", " ", "Miller"}], " ", "and", " ", 
   RowBox[{"W", ".", " ", "Xiong"}]}], "Subtitle"]], "Input",
 CellChangeTimes->{{3.511732898234375*^9, 3.51173290415625*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "This program is to create the matching diagrams needed for some random \
matrix theory papers. To do so, we have modified some of the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " commands, and built functions around them. For convenience I start with a \
circle of radius 5. I then use circ to draw a very small circle on the circle \
of radius 5 (thus take 5 as the argument for rad) at the angle of ang degrees \
on the circle. The line function draws a line from two points on the circle \
-- we specify the circle has radius rad, and the two angles are ang1 and \
ang2. The next lines do the same but do not draw the initial circle of radius \
5. The label function is to place the label with large, readable text in the \
right place. Remember you need to move the anchor point of the text a bit so \
it doesn't overlap with the image!"
}], "Subsubtitle",
 CellChangeTimes->{{3.511732907296875*^9, 3.5117330196875*^9}, {
  3.511733518171875*^9, 3.511733546140625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"circ", "[", 
    RowBox[{"rad_", ",", " ", "ang_", ",", " ", "size_"}], "]"}], " ", ":=", 
   " ", 
   RowBox[{"Circle", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"rad", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"ang", " ", "2", " ", 
          RowBox[{"Pi", " ", "/", " ", "360"}]}], "]"}]}], " ", ",", " ", 
       RowBox[{"rad", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"ang", " ", "2", " ", 
          RowBox[{"Pi", " ", "/", " ", "360"}]}], "]"}]}]}], "}"}], ",", " ", 
     "size"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"line", "[", 
    RowBox[{"rad_", ",", " ", "ang1_", ",", "ang2_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Line", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"rad", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"ang1", " ", "2", " ", 
           RowBox[{"Pi", " ", "/", " ", "360"}]}], "]"}]}], " ", ",", " ", 
        RowBox[{"rad", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"ang1", " ", "2", " ", 
           RowBox[{"Pi", " ", "/", " ", "360"}]}], "]"}]}]}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"rad", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"ang2", " ", "2", " ", 
           RowBox[{"Pi", " ", "/", " ", "360"}]}], "]"}]}], " ", ",", " ", 
        RowBox[{"rad", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"ang2", " ", "2", " ", 
           RowBox[{"Pi", " ", "/", " ", "360"}]}], "]"}]}]}], "}"}]}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"label", "[", 
    RowBox[{"text_", ",", " ", "rad_", ",", " ", "ang_"}], "]"}], " ", ":=", 
   " ", 
   RowBox[{"Text", "[", 
    RowBox[{
     RowBox[{"Style", "[", 
      RowBox[{"text", ",", "Large"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"rad", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"ang", " ", "2", " ", 
          RowBox[{"Pi", " ", "/", " ", "360"}]}], "]"}]}], " ", ",", " ", 
       RowBox[{"rad", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"ang", " ", "2", " ", 
          RowBox[{"Pi", " ", "/", " ", "360"}]}], "]"}]}]}], "}"}]}], "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{"Graphics", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Circle", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], ",", "5"}], "]"}], ",", " ", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "0", ",", ".2"}], "]"}], ",", " ", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "60", ",", ".2"}], "]"}], ",", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "120", ",", ".2"}], "]"}], ",", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "180", ",", ".2"}], "]"}], ",", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "240", ",", ".2"}], "]"}], ",", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "300", ",", ".2"}], "]"}]}], "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.511732238375*^9, 3.511732426078125*^9}, {
  3.511732474875*^9, 3.5117324818125*^9}, {3.511732546421875*^9, 
  3.5117325624375*^9}, {3.511732594421875*^9, 3.511732631625*^9}, {
  3.51173281128125*^9, 3.51173281509375*^9}, {3.511733209765625*^9, 
  3.511733253828125*^9}, {3.511733361828125*^9, 3.511733368375*^9}, {
  3.511733434734375*^9, 3.511733436625*^9}, {3.511733479078125*^9, 
  3.511733485359375*^9}}],

Cell[BoxData[
 GraphicsBox[{CircleBox[{0, 0}, 5], CircleBox[{5, 0}, 0.2], 
   CircleBox[
    NCache[{Rational[5, 2], Rational[5, 2] 3^Rational[1, 2]}, {2.5, 
     4.330127018922193}], 0.2], 
   CircleBox[
    NCache[{Rational[-5, 2], Rational[5, 2] 3^Rational[1, 2]}, {-2.5, 
     4.330127018922193}], 0.2], CircleBox[{-5, 0}, 0.2], 
   CircleBox[
    NCache[{Rational[-5, 2], Rational[-5, 2] 
      3^Rational[1, 2]}, {-2.5, -4.330127018922193}], 0.2], 
   CircleBox[
    NCache[{Rational[5, 2], Rational[-5, 2] 3^Rational[1, 2]}, {
     2.5, -4.330127018922193}], 0.2]}]], "Output",
 CellChangeTimes->{{3.51173222878125*^9, 3.51173227265625*^9}, {
   3.511732344125*^9, 3.511732358515625*^9}, {3.5117323999375*^9, 
   3.511732427421875*^9}, 3.51173263275*^9, 3.511732815671875*^9, 
   3.51173325459375*^9, 3.51173336896875*^9, 3.5117334858125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Circle", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], ",", "5"}], "]"}], ",", " ", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "0", ",", ".2"}], "]"}], ",", " ", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "60", ",", ".2"}], "]"}], ",", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "120", ",", ".2"}], "]"}], ",", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "180", ",", ".2"}], "]"}], ",", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "240", ",", ".2"}], "]"}], ",", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "300", ",", ".2"}], "]"}], ",", " ", 
    RowBox[{"line", "[", 
     RowBox[{"5", ",", "0", ",", "120"}], "]"}], ",", " ", 
    RowBox[{"line", "[", 
     RowBox[{"5", ",", "60", ",", "300"}], "]"}], ",", " ", 
    RowBox[{"line", "[", 
     RowBox[{"5", ",", "180", ",", "240"}], "]"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.511732642125*^9, 3.5117326525625*^9}, {
  3.511732695390625*^9, 3.511732699640625*^9}, {3.511732822859375*^9, 
  3.51173284875*^9}}],

Cell[BoxData[
 GraphicsBox[{CircleBox[{0, 0}, 5], CircleBox[{5, 0}, 0.2], 
   CircleBox[
    NCache[{Rational[5, 2], Rational[5, 2] 3^Rational[1, 2]}, {2.5, 
     4.330127018922193}], 0.2], 
   CircleBox[
    NCache[{Rational[-5, 2], Rational[5, 2] 3^Rational[1, 2]}, {-2.5, 
     4.330127018922193}], 0.2], CircleBox[{-5, 0}, 0.2], 
   CircleBox[
    NCache[{Rational[-5, 2], Rational[-5, 2] 
      3^Rational[1, 2]}, {-2.5, -4.330127018922193}], 0.2], 
   CircleBox[
    NCache[{Rational[5, 2], Rational[-5, 2] 3^Rational[1, 2]}, {
     2.5, -4.330127018922193}], 0.2], 
   LineBox[NCache[{{5, 0}, {
      Rational[-5, 2], Rational[5, 2] 3^Rational[1, 2]}}, {{5, 0}, {-2.5, 
      4.330127018922193}}]], 
   LineBox[NCache[{{Rational[5, 2], Rational[5, 2] 3^Rational[1, 2]}, {
      Rational[5, 2], Rational[-5, 2] 3^Rational[1, 2]}}, {{2.5, 
     4.330127018922193}, {2.5, -4.330127018922193}}]], 
   LineBox[NCache[{{-5, 0}, {
      Rational[-5, 2], Rational[-5, 2] 3^Rational[1, 2]}}, {{-5, 
      0}, {-2.5, -4.330127018922193}}]]}]], "Output",
 CellChangeTimes->{3.51173265378125*^9, 3.5117327005625*^9, 
  3.511732816796875*^9, 3.511732851140625*^9, 3.51173336996875*^9, 
  3.511733486828125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Circle", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], ",", "5"}], "]"}], ",", " ", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "0", ",", ".2"}], "]"}], ",", " ", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "60", ",", ".2"}], "]"}], ",", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "120", ",", ".2"}], "]"}], ",", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "180", ",", ".2"}], "]"}], ",", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "240", ",", ".2"}], "]"}], ",", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "300", ",", ".2"}], "]"}], ",", " ", 
    RowBox[{"line", "[", 
     RowBox[{"5", ",", "0", ",", "120"}], "]"}], ",", " ", 
    RowBox[{"line", "[", 
     RowBox[{"5", ",", "60", ",", "300"}], "]"}], ",", " ", 
    RowBox[{"line", "[", 
     RowBox[{"5", ",", "180", ",", "240"}], "]"}], ",", 
    RowBox[{"label", "[", 
     RowBox[{"\"\<ij\>\"", ",", " ", "5.6", ",", "0"}], "]"}]}], " ", "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5117331364375*^9, 3.511733185015625*^9}, {
  3.511733261*^9, 3.5117333070625*^9}, {3.51173337075*^9, 
  3.511733372390625*^9}}],

Cell[BoxData[
 GraphicsBox[{CircleBox[{0, 0}, 5], CircleBox[{5, 0}, 0.2], 
   CircleBox[
    NCache[{Rational[5, 2], Rational[5, 2] 3^Rational[1, 2]}, {2.5, 
     4.330127018922193}], 0.2], 
   CircleBox[
    NCache[{Rational[-5, 2], Rational[5, 2] 3^Rational[1, 2]}, {-2.5, 
     4.330127018922193}], 0.2], CircleBox[{-5, 0}, 0.2], 
   CircleBox[
    NCache[{Rational[-5, 2], Rational[-5, 2] 
      3^Rational[1, 2]}, {-2.5, -4.330127018922193}], 0.2], 
   CircleBox[
    NCache[{Rational[5, 2], Rational[-5, 2] 3^Rational[1, 2]}, {
     2.5, -4.330127018922193}], 0.2], 
   LineBox[NCache[{{5, 0}, {
      Rational[-5, 2], Rational[5, 2] 3^Rational[1, 2]}}, {{5, 0}, {-2.5, 
      4.330127018922193}}]], 
   LineBox[NCache[{{Rational[5, 2], Rational[5, 2] 3^Rational[1, 2]}, {
      Rational[5, 2], Rational[-5, 2] 3^Rational[1, 2]}}, {{2.5, 
     4.330127018922193}, {2.5, -4.330127018922193}}]], 
   LineBox[NCache[{{-5, 0}, {
      Rational[-5, 2], Rational[-5, 2] 3^Rational[1, 2]}}, {{-5, 
      0}, {-2.5, -4.330127018922193}}]], InsetBox[
    StyleBox["\<\"ij\"\>",
     StripOnInput->False,
     FontSize->Large], {5.6, 0}]}]], "Output",
 CellChangeTimes->{{3.51173317990625*^9, 3.511733185375*^9}, {
   3.51173326603125*^9, 3.511733307671875*^9}, 3.5117333733125*^9, 
   3.51173348771875*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJytnXu8XUV1x7f3nntPkpv3CwIkuUkghJCQ8DAmIZAQHgnyigZLpMgbjVbK
Q0qxgDzbFFEIVD9YKcVSKdYXVWsRqkJLhdrWUhSLVBG0Ki3W0n7az4c+/kjz
m7XWzPzu+e0jFdF7b84+e76zZs2aNWtmz+w56ZzLtl9w4TmXvf28c0Y3XXrO
xdvfft67Ro+76NLdlwZf0zSv2b775+TRBv/e1TTxa9fu/+96O37hys/n3x9J
fzqjzz333IaHH34YP1vuv//+4WuvueaaZnDHFVdc8fCGDRvw0wza71svvvhi
fJvu6Njvbffdd18kX/L0009/yuB3pD/dlU888QS+ufjWW2/F/fdv2bIFrJem
Tp3aDKSydZ4bHR2NnPC9C3DFjh07AtwM2u/A1ALct23btkj+9JIlS4zafXnc
uHG49MDmzZtxY+BWP/74481HTcjb0p9JuHT23XffHUWGcIA8sXLlSnyOYkM7
QEx96aWXmvmWdtzLL7+Ma5sfeOAB3BOMx1evXg1GiAHG9jvuuCOV43ct+/el
PxNwCdLdffbZZ0cy/MXnkBpZrki3j0SO0MUd27dvBx1JUHaoD1Lge9zXfMhy
2pH+jN/zhRdeQCFCSCTDX3yGApJuDrd7UZe4Fzjcg4JAIcgSdQ6zaT5g+BvS
n3EQEl9BcFTqC3vuuSckikIca7fBJqAKVFzchn9DAki406DXFgsCABpBxcSd
Kf+T7B6kioxBg5woUyrP+w13dfozjHpSt73Jvla5gfxeg/ya3QXdICEgsK+Q
/Bft69ADEgMClSEPq4XmV+0uJIAaIAXqDtni2jkFgq8hCbSEr1HmGw3yK+nP
ELKBiiEJsoH8zduMgLshZbQvSAnqdUa41AgQDCmjtKjz5kL7DpUWysrfXWPJ
LyqZwESQCUSFyMjkEvsaRjhWRmjvKoN4PpA6jAawVLempqFQE1SEUqQGZPXQ
mL6HAEQmSIpCJiWMmHfDv5E5tIzvzAw6oEQzRalG+pC2W2ZvtnaBwqHOIQ90
glshOzIADYimy7ngO+Rimu9A5SETcuv+P8hvNWG2pT+DkA+3w6qbIbsGOpKk
ax3LEZmHj4RQv16UE60Qxe28QuoFJsRp9hXqGLenWrOyjKNru69AACRHsSHA
TaXviYqHPxtITmuwTtkMi1zOJwFgVDARy7qYLm4HGZmmmjRXMAQE/DG++8ra
tWsvueWWW5rxxooqS5/Oo2zQQpLrTz7HCgCtAfMfEydOXPfoo4/eVoz2v7rd
7vfmzZuHakzFMskGcXsu3LmWwy/YV6hhCF2VexiKj94AyVAYaPO24oqQBIIh
p6g3k28w7haZ4S6YmxXEfp971113fey0005Dhsh4wG6FF4H/SZ/MPQ9R8t0/
qUgD6crghy+44IK43gwKBksCbcE51LdftHPnzv8ZGhq67Oabb3bpBgFP9lfE
kGlxD7q2lJ1Ke25dr10kBwafoE5U/7f233//y2+66aYwf6p7U/1gnc6z7iBb
lBTVAFMaEMkp92FY0L2nn356pDr/zjvvREvxjNEqYKvp0+12DUlgDlXGXQ8T
cwHw/dXXX399SkvNZRj28J8jIyNo+bgSld3hlp5s9gNFe/BU6dMA5xg/N1x1
1VUIElKNeY7Wq3YhFBCwxsXPPPMM/v2ljRs3fvHoo48OzUWfCmlgSx9MlyeH
U0R5kgPclcC5rJHkoCeffBJljcK4kk8txpe910BxUT+eOXPmt/fdd9+I0vA3
+uLfNtmhbFzCVxHQxS0he7RROCJgrWaaN9q3sBF8ixT4NiUasOAV/4yADn/v
Ks4OmaU68KYcsULSwlmWwxuKwUOmFO90SsOAq0mIe+waVVm3+JzoHJszDbul
aA26T5br9hgBUfqksOblOsgWdYYfpD/DyCcX4UIl4eBDienT7wvyhGL9uC95
dIsAPA5kPXj5ULZ0axt2pOghApjmdMOeKPRQ1QaqO336qMBOLHrAfdBbiguN
/Hqhh3Gl7lFxybXcK8iT7RpqIevBmnZzvNCDd2xoHHAm6ZPCThF6MAfdbBZ6
GM/mk8zsDwR2qtaDNczmuFJmfJP04BVCXZciTy96QNtNUm01rI00BnEJmGSw
I0U3ud+6T2Bn2DWoFQVL/Zq15OaYgkWOyZuMlBLk2viYwM60a8Dl+6z5NkeX
r7K1ThTuX2FnFUPK0bE132ZjKUg41cDidmSVbOwPBXZ2KWnuOU8x7FH2VQRK
CTFJ2JjC7lGUFeMmdwmNRVyDqPFsY5O4KtKnjwvsHLsWA+b0ydpus744DVhC
MlNvQBQSKOxexexzHZxg2CPtqxi21+0SJUBW6dMnBHbvUrVIm0Qyf9AcUfSI
XGssxb+fFNh9REnNHzTrin5y9UwpJchZKezc0mwy1hqPzxRwZDelGFjufT4l
sPMEdpNh1wrJppYSJKPBJ4WdX5SQ68V8TLNGfDVVGNinBXZUtEbzMc1qUZBp
do26HoVdIBRoPqZ5nX0FD45WVmNjaiF9ul9gFwplmY9pVpUCZ585rRhY7nf+
SGAXiWZjPqZ5bfFgwCYbnS4K1wcbPiF5MMceVrxQHgBPFwb2GYHdt6SFSKke
zHU1h5Ycsyt2r0+djsLuJ0pqrqs5pGCBSTpyLI0qPyuwiwsWVpPqZT1hKfCa
IQxMYfcv1Y2SJmWZ62oOFibtWIptPiewS0RTMtfVrBR2O6NUBTxYMrA/FtgD
hN2a62pWFETulL1HpU6nDxai5PiZsVTrLi0FNp8X2KXiPvOIzUFCtzNFVgp7
oNCtecRmudCtY6nT+ROBXSZ0ax4xvlK6JZ090I6l+xhLBZ4pFKOwy4VuzdGG
fpRuYVgxF9J8QWAPEro1Rxu1Sbr12IqmlxR2hdCtOdqwPdLtrNIoc6fzYDuW
dMtY0q1jcxTYhl0pdGv+W7brWcLAHhJY5U/Mf4cXoqBzVilc7nT+VGAPEZ7u
UMJS9TiWYoc+WBpzOnaxqJ4qys6dzhcF9lAh0iGEpYI4llx7Hywp0LH7CbUr
A/uSwB4mqtuqMXpPalGzRQkU1oOBmImpjC6wVOBZQoovt2OpVI71EIJ6WWVg
DwusR0TUi1jLiziKGuBscXsfLGXPWLJRlxb+AfpOBvaIwHpYSCGgebUIJslG
Zws/obAexFJot5ywytXQUPrP2rHkahw7KtyKMjCFXSPqYBlhVSujJvLn7VhS
oGPnC3dR+YTcKB8V2LVC2gMJq3RLt/fBkrSOndfuwSgS/AuBPVxkv5SwSloy
nD5YEsmxc9ulJev4isCuEyIdQFgVflCDfqwdSyI5dp92acnAFPYIIdISwipp
qYYfb8eSSI7duyDyQxKXlqIVhT1SiLQ/YclIZgop/rIdS77DsXuJAru01Jko
7HrR8BcTVklLfvSr7VgyRMf6pBO6Rui2jsbJ6/+VwPpkF1x9PNTwnjyw1B0m
bHpi8NftMOpPGEYx4Qyh5T5YdEm4r8buKb5S4xuFPUqItC9hqSAuLXnev2nH
ktoYS8pWA+g+WCgJz/CSshy7h5BMDaC/JrA+NUtx0CLCkrVOF2b1t+1YaluM
pWeW00VWCnu0SGtBTHTZlKNjqdd/oh1L2TOW9DNdGFgfLDkix1YxYa7N6aKF
/53AHiMsZgFhyfaqSbU8x/RkO5ZsnrHUtzqWupo+WHL8jp0pvppWruVw/+sC
e6wQaZSwZPrTRA33wZICGUu1rmZtv9GOJTfl2BnCEqYJz6SwxwlLmE9Yag5T
hYE91Y6l+VLGkh6nlBLkxwLfbMfS2IixtCBFPRZQWJur54UNFiBGiyK1q8cC
f9+OpYbPWDJ9x1Is0wdLBsZYMrDJwsCebsdSSRlLup0sDEdhNwvdWjgbNko5
ThaF+1Y7lkrKWAqHJhUDy53OM+1YqhfGkt1OEmbeB0t2y1jS48SimDyA/od2
LDV8x04tX2GRRy0t6Uxh/cE7han7EJYKMlFc+3Y7lhTIWFL7RKGYPljy1Yyl
GawRkdV32rHUbBhLkvl6Dnos8Gw7luqFsbicarLCks4U1pdgUFhoA5t6KURe
jjehFC4PoL/bjiUPxlhqZROEgfXBkl9mLLUoX51Bnc5z7Vi6j7EkWbVEJQ+g
n2/HkptiLFnCOGFgCnuCuLYXYcUaTe50vteOJV/t2MnFRtOWhUpaaiJ9sBRP
MJZaSldc+347lvo8xlJtOpY8Uys2jTH3JhhVyrDI4B/bZaQuiWWk5jlUzCp3
NT9ox5LbZCw1u6FcpB+2w8hGGUY1p5bV9cFSeM1YMv2OkFthTxTX5hCWzNdX
wtLg9EftWBraMZZuHxQl6IMlkRxbhRXZmw8Kc3mhHUv1Mtmr+qk7m+q/O5un
srlGllTTA8Lk/qk9S/KCk3LDeqqJXO98avf9Lz7UXLr7fw+9GCYdWVM9DIgW
0CdraujTsr5ebB66NOXLWXWpceyyRbJ5GP7P7dlQ9zEt26ZnYwo1Y/UwI63q
vf7qq6+O3QOx1SLp6cXWppE2WXxy69atj6xfvz5vspjak2PSo+dovSTtkMD6
YeQM9Ty7cOFCuOfUH6mcj+9N/41ly5ZBgpa9G4Nem/bfQPo9nNRtTCWldboj
tH1i95Uw65gLeMs999yTFyOrGvEl+WM5yZMNFIPKjK7W3UBflVZdeR4/+sro
ELh2/fV9ylg3teGS1IPi2+FXITX1vZ4CUmPvQjyMcU1Re1BOZVMrkqOtQcEb
ehVloFBloHjAby5dujT5hY5wosrZqqF4xcseVfE6P0sBqpXjOTx27bznuuuu
+8n06dPrDMl3qgIc15+Hlt7KezUFoGkaz/DC22+//ffOPPPMOkNyje0FGDd2
SwysEGaFXUCfOfnkk4cE7tXIr/a+qBqn6bo+8gcPzRQCojLQJII5JHA/k/ze
Aijq6GOxZNntLaD7r9OmTcNuDig47s88tZHnpwof/bsQngRVwnuFUPys/I/N
UnZij8zXly9f/olTTz217BLpCJBd6zYvPhRdVBbTwLvDIeu0Bum6CeU91TBt
66mUVUWPOXRQTt+m2rvQJySrO6uM7ukEiDqsVd3ffLyfHbs1qB5Xj91NJPvZ
jUWxsQExdvSMZdt2nSGJtnl6nyXJ+4X+e3h4GMZG+4V+LKSwnqQTGxahSOQ+
zLj/7XTSRnnC2UOdCDKPe/DBB7NifyJyskevndhFiF4MhfEpiBuvvPLKj5x1
1lkpOQfr1Ocp8rqitdjHBg/t81EU6TKZRruKbAsHOqGG2EPlySk29tzySAAh
ef+mrAYGSghbGdKpt2LCb00R/nCkx3KTIP3lUEOtfxHXbPVP2lAGQ48xvQ8K
aIjPgziaIFNkW1yVdunEbm40J/WEoM+oU5FtkVnagYwKjN2wM4U7ZjIVR5Ft
BVwn1rLDpCHJbHErk2n8qMgri57Rf8NAcf8ewlx4aE/2qMi+prPuXeMhPYU/
jKWIQWFtUVUn9n1FB+grHyguYTJNASuyLSnKvRN+8O99RHImU6aKfEDxGXXn
MU8UmcmkKEVeUoTDfcn1WG3xPAtjaUZCYW3dR3LU8SIMWMgCYa48KUlxjuoC
bEUBOWZY9SKRnMmUqSIvLO26dsz7iiLz/CwpSpGt2On1L/F6CuD2E3XEZBpU
KbI9nczeFpKg+L7cl2bPmUzTkoo8t7Tr2n8eIEyOyRRpK/LeRc/RtiGoL1an
EYuT/dEFOUA1dWEVnv1nNO1lwjaYTN2SIltpevynr72nKW9+3EL9uSLP5qYd
/nOF8AxMpgBakauldjlkUyvPGUtRhsJaP5f9Z8RgvkqcvLqTp4nqUzGmz6SN
9Z++9JoePjGZOilFnlKUXG9vf62ovvq5aYpklQ7MDXbCa0aDXiXaFj+Hpa+U
pL4VeqzjXC2aHZOpEIo8gRt0OM61QoVO9ufyNIOthjbVNvY6IPJ1rPT4mJ/4
k7Eoss/WheOMgEitOWUyNQ5FHioNunacR4r2wWTSsyIPFj1HQATHuUHo2cke
OVIHZV5qHJF32dRiHRCpNXf1ipVkwSYlvYRirIuM8R3ZJy99oXl5E28IyPqF
FSm6PUZUrqM8kiVP/MPSNoGL2MYnuihmZgpl8AN2dqmsm4SZjBKCOkh70jc0
dnBZo6g/ZhRVgT2Q7Rk9DghzOVY0Mier1cfPsieLIKUjyMeI4vNyORqr2iqF
ntHjUDuZ+jYnzxY1bEtWeoaE3XYyJWcyucCn2adFCxovyL7UkTpUXkFJcdg3
tU8baSdTFOjkPUTLtmVyKUipfdpEQd5YXE5eNs1rVMXiRgpSoBk1Yt4o3CST
6eHtE70+Lb1pr51Mfs7JPvlKEd7XSsPKg7zpAuuOjsaTvGaZXJetpu4Z5M1o
Iyc/ySu2UXBoPblHW+/eE5rMapeUwhWX1Eev9PjksdKg66HdHoLsXQg5Yl68
Tl/5JhDklOO/Oe1YksqxewnnZNuBKEKpxs9EXi80yRsNqNIeMfLYod0+7WQy
fybT0+ovl9Zce815gnykSM5bOShT24LYM7Sb306m5EymTB9irxkRygJBPkIk
580yYhdxj9dc1E6mamIyZfr5oud6aLdfO5lMy8lzhcyfK16zbtCLBXmdkJk3
OpFD/Uyv14QFLmknk8xOdlOiLvHTpWnXXnOpIB8uZOatZOotIRHtpGa7rB1L
Ajt2vhD44+w1IwJaLshrhcPhnXok8Me0/1zRTqZewsmjQuZ7i5Lrod3Bguyb
Fikg4r2QtCTW3lTVM8g7pJ1MMjs5tdfUvdzT6ziho8MEb7UwB95jSssD7uYG
HY5zlSC/TiT3TbELRaa/Uxp0HQatbidTfObkRUI9H2bHGWHQGkH2ctDqnBVE
Jlv7kHach7eTafrHyT7tRxH/B4ueUXvhOI8QZJ9aoAEGb+ymhaG/1es4YXfr
Bfmwkjz7Xd+J7n6WwvrbtOPc0E6m5uVk97MU497CbToc50ZBPrS0vLwgmPf6
Uw2+r7TpOiY6pp1MEbaT9y9OMncj72XHmYp5nMB6I6f42N95sET41B3acW4S
ZHdMtJL7MCKTT/W3z0ZMFI7z+HYyxXFOPiA7oRvYXUYkpFYLrxT+wF9+4V0Y
BfnXanepFmO626c3+KwiMu0Ufw836HCcJwvyQaVxQLhkEv7WkgNF47iSHWdY
0ZZ2MjUOJy/L2n23dpdvFLzlQrv+2pblQruXl2Zcu8utgrxMaHcNkUm7lxl5
7KjxTYJ8oNCuv2/nIKHdS9hdRvxzWjuZtOvkFVm7F2kn+WbBWyq06y8cWim0
+87SfuNF51Db6YJ8gNDuOiKTdt/BTjLa7xmCvERo198UdbDQ7tu0kzyznUza
dbJydPY+Yh44ni2wysH6G7PcLVPvaa+Z7Rk4niPIi4VU1hdGJ0VhxlnsJCP+
OU+QvYukV9CZPqPLpum2M4rJ1e7yAkH2bp36uKOITG87s7ex9gwc3yrIHuTE
20ar+dr61SnZZraxu4z4Z7sgLyzGnN/Q5m+/83CO3gn3Ju0u3yHIC0ryvFrY
X9e3WmT6Rm7a4TjfKcijosj+fsE1QlFbiuOM+AdJLxTk+aKa/IWIa0XlntTr
OFGWi9rJZFpOPlwY5OtL064d5yWCrMad/m7IdaURjXkbJQ8c3yWwPlBG7mk1
Fz75myyPKAJnJR9b/Gcd/1wmyNVUB2woSeBv9DySlZwMY6P2n5cL8l7F5PKL
bP0VpOuLYWRjXl+UXA8crxDk6vUV+V22/s7UDWzMldPuiYTeLcjV2yHy1nez
q5hHpEzX9rpQNMYrBXmPosx4/BCvj91YqiC/WbZaLlW70KsF2afL4/VvqZpO
MXL16Cc750NL046YCI3xGkGu3pWU37jpL+hNFjaAijqEHWdEQtcK3szSAlDQ
1AL8PcIe9NNLaQ/SjvN6QZ4hkvuLj6v906CkKODAot164HijIFePcyFA6j39
BdCbi+Lz8tEl7DgjJvoNQa4e8EOA1D7Mo8e20VjJmTJd3Os4U1sRZF/5EUew
JFvz12GfUBSVtbGwtOnacd4kyJNKI4U24qXx/grvE4VC5pcUERahudws4BOF
QiyYjJekk0KqackcFr1fYEeENvwl6acIbczRvvMWQR5fygalhTb8xe5bhDZ8
dcnY4eNOAR9XkscZLM1bjPwGoQ17eqdPgemya42oaScnQe5jkiTlZqfib9jf
ykpLLtYesr+yY2A62h3fqhGQqgdRnbuAe1FHQFjc6c2zG34jalAcDTOO9iLt
vjJ2TLuzmGROak+NJ9SVVWPCscZni6e9/XWgUBzQ8aM5c+ZAqV5tSITl/589
6aSTslJvK/1Cnht0RZOl7LJ1CN+fO3fudxYtWpQPbaHDOjrYGfLYmjVrQolD
3A9g/h3bd2zmi2ctxpzTgZ/omL66atWqNDnC53TE2qIw/vBWprvhsZ1FrCrw
Q0JoZZJlnldeRDgaE5eR9Lxazfzs2DMNf4xtMrDp6E98FQDNhu4UGLdbCFJH
rip5n9NqquUoX9i0aRP0h1zUSTM7RfKBkhyt4pnFixcjudrt0+egGqv7bj2+
jiXWee7VrK9L6Xb/RLNNUYrvqW4/oIZXDli2w3XniPbwb1OmTEF1W+0PIUkc
GBKD0vBH7YfR8ODUmxUMAxsl/33y5MnIKRXS1JoWVuAMle8uWLAA7Vtt5Hej
2laKmWdbh4uTgaDzn3/+eSSD8LDqJKR1cl3kGr1UHIWUWV1280nC8+tse/Zz
tBw6Y5YxFIcpRfNKguwo34UgELbaOPlKc/Hjs6z/pANmxp5B4xrKAkEzyDRZ
ww29wubvhl8B2yZbfDogech8bOCE4lHrsia0BbnpiKs4RCvraIJg+WmTv8RI
lCTq0acs6Vwu3JOQNnZpftluifO26qPm/Cy8dGIevkdBA4Hs/LA4s8ae8+6S
AdkodAi+B9dCuDSXZsMFH1EOqXP9vGzpLC5ci3MPcS8EMI3VYtYH+8WBd2YV
6VhASI5qisi3ROyujtZj984q3iFGCGEzkM5m3l3fw7UqIC8gAL+5SAJIFBca
gYf6TYPYDHY6TQoQSBKxHu7aWtp2DEVDraEXf3LR2LF4aT85Sg6hYajIF5+T
ii3m7tZnR0KmODwnxVsWXjY2AhmPHJBTnAqFPicOu4TQyZiPKveistsOu0xm
Zs68sZB+fJzaGScbouxx/CbKnwzbRqATkFXgITnQ0STr4zrtWZwH4CP1CZzQ
SWz/iuNEoRukTGU/sKTBNeioPs4UEkZuKFBKY48r/VSxCaGDcN5xcCH0BkQM
a2wvn53HmrsR/MwqTjDObU1HoKXJlgnxEBeSRPePz1BxfcqpTSQ1dvrWYMBS
VGA5p8niTpzRih8oZppdjnWSIXS62yQYjJNqU8XbgUJxclN9Bm4zxcqWV2ji
x0KSn9vRu81r/g8fCQoi\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Line"}]], "Input",
 CellChangeTimes->{{3.51173243103125*^9, 3.511732434078125*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Line\\\", \\\"[\\\", RowBox[{\\\"{\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"pt\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \\\
\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"pt\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\
\"TR\\\"]}], \\\"}\\\"}], \\\"]\\\"}]\\) is a graphics primitive which \
represents a line joining a sequence of points. \
\\n\\!\\(\\*RowBox[{\\\"Line\\\", \\\"[\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"pt\\\", \\\"TI\\\
\"], StyleBox[\\\"11\\\", \\\"TR\\\"]], \\\",\\\", \
SubscriptBox[StyleBox[\\\"pt\\\", \\\"TI\\\"], StyleBox[\\\"12\\\", \
\\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\
\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"pt\\\", \
\\\"TI\\\"], StyleBox[\\\"21\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\
\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}], \\\",\\\", StyleBox[\\\"\
\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}], \\\"]\\\"}]\\) represents a \
collection of lines. \"\>", "MSG"], "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Line"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.511732435453125*^9},
 CellTags->"Info3511718034-8664296"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "0", ",", ".2"}], "]"}], ",", " ", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "60", ",", ".2"}], "]"}], ",", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "120", ",", ".2"}], "]"}], ",", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "180", ",", ".2"}], "]"}], ",", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "240", ",", ".2"}], "]"}], ",", 
    RowBox[{"circ", "[", 
     RowBox[{"5", ",", "300", ",", ".2"}], "]"}], ",", 
    RowBox[{"line", "[", 
     RowBox[{"5", ",", "0", ",", "120"}], "]"}], ",", " ", 
    RowBox[{"line", "[", 
     RowBox[{"5", ",", "60", ",", "300"}], "]"}], ",", " ", 
    RowBox[{"line", "[", 
     RowBox[{"5", ",", "180", ",", "240"}], "]"}], ",", 
    RowBox[{"label", "[", 
     RowBox[{"\"\<ij\>\"", ",", " ", "5.6", ",", "0"}], "]"}]}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.511732453765625*^9, 3.511732459984375*^9}, {
  3.51173287053125*^9, 3.511732874484375*^9}, {3.511733504203125*^9, 
  3.51173350471875*^9}}],

Cell[BoxData[
 GraphicsBox[{CircleBox[{5, 0}, 0.2], 
   CircleBox[
    NCache[{Rational[5, 2], Rational[5, 2] 3^Rational[1, 2]}, {2.5, 
     4.330127018922193}], 0.2], 
   CircleBox[
    NCache[{Rational[-5, 2], Rational[5, 2] 3^Rational[1, 2]}, {-2.5, 
     4.330127018922193}], 0.2], CircleBox[{-5, 0}, 0.2], 
   CircleBox[
    NCache[{Rational[-5, 2], Rational[-5, 2] 
      3^Rational[1, 2]}, {-2.5, -4.330127018922193}], 0.2], 
   CircleBox[
    NCache[{Rational[5, 2], Rational[-5, 2] 3^Rational[1, 2]}, {
     2.5, -4.330127018922193}], 0.2], 
   LineBox[NCache[{{5, 0}, {
      Rational[-5, 2], Rational[5, 2] 3^Rational[1, 2]}}, {{5, 0}, {-2.5, 
      4.330127018922193}}]], 
   LineBox[NCache[{{Rational[5, 2], Rational[5, 2] 3^Rational[1, 2]}, {
      Rational[5, 2], Rational[-5, 2] 3^Rational[1, 2]}}, {{2.5, 
     4.330127018922193}, {2.5, -4.330127018922193}}]], 
   LineBox[NCache[{{-5, 0}, {
      Rational[-5, 2], Rational[-5, 2] 3^Rational[1, 2]}}, {{-5, 
      0}, {-2.5, -4.330127018922193}}]], InsetBox[
    StyleBox["\<\"ij\"\>",
     StripOnInput->False,
     FontSize->Large], {5.6, 0}]}]], "Output",
 CellChangeTimes->{3.5117324606875*^9, 3.51173287509375*^9, 
  3.511733506453125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Circle", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], ",", "5"}], "]"}], ",", " ", 
    RowBox[{"Circle", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"7", ",", "0"}], "}"}], ",", "5"}], "]"}], ",", " ", 
    RowBox[{"label", "[", 
     RowBox[{"x", ",", "0", ",", "0"}], "]"}], ",", " ", 
    RowBox[{"label", "[", 
     RowBox[{"y", ",", "3.6", ",", "0"}], "]"}], ",", " ", 
    RowBox[{"label", "[", 
     RowBox[{"z", ",", "7.2", ",", "0"}], "]"}], ",", " ", 
    RowBox[{"label", "[", 
     RowBox[{"w", ",", "6.2", ",", "55"}], "]"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.5120598820625*^9, 3.51206014728125*^9}}],

Cell[BoxData[
 GraphicsBox[{CircleBox[{0, 0}, 5], CircleBox[{7, 0}, 5], InsetBox[
    StyleBox["x",
     StripOnInput->False,
     FontSize->Large], {0, 0}], InsetBox[
    StyleBox["y",
     StripOnInput->False,
     FontSize->Large], {3.6, 0}], InsetBox[
    StyleBox["z",
     StripOnInput->False,
     FontSize->Large], {7.2, 0}], InsetBox[
    StyleBox["w",
     StripOnInput->False,
     FontSize->Large], {3.5561739053764856`, 5.07874267459175}]}]], "Output",
 CellChangeTimes->{{3.512059924921875*^9, 3.512060014765625*^9}, {
  3.5120600598125*^9, 3.512060147640625*^9}}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5122129231875*^9, 3.512212923515625*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.51221292453125*^9, 3.512212924828125*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{
  "Superimposing", " ", "plot", " ", "of", " ", "function", " ", "on", " ", 
   "histogram"}], "Title"]], "Input",
 CellChangeTimes->{{3.512212751796875*^9, 3.5122127608125*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{
  "Here", " ", "are", " ", "a", " ", "few", " ", "different", " ", "ways", 
   " ", "of", " ", "doing", " ", "plots", " ", "over", " ", 
   RowBox[{"histograms", "."}]}], "Subtitle"]], "Input",
 CellChangeTimes->{{3.512212868046875*^9, 3.51221287575*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"2", " ", "Pi"}], "]"}]}], ")"}], " ", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"x", "^", "2"}]}], "/", "2"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.512212699328125*^9, 3.51221271296875*^9}},
 CellID->978019076],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.512212716578125*^9, 3.512212736890625*^9}},
 CellID->65480992],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Hc0V2/8APCPz5RCicK3EJkJpYzQ+5YGSURKJWRUysoe2XtmfLIzIitb
EeFeGSl7fy4RKtIeQhS/+zvn9/vrnte599x7z/O8x/M8uywcDKzJJBLJl41E
+t+rZXnct/V1BtZGelq+S9IJeFcFJdT+MrCezI2OOOIErScemrgtM7AP+zbF
VF5yAonJupefvzOwP4Yu11pineDjpre5+DQDOylrZXp72Qkcbx40rm5hYCE5
rku8A87gKz6GXQtjYHKP/9Bcs1xB/rbVUk4QA4s8yz17p9EVphq+7p3wY2C6
HMyconFXOHqOkm7owcBOGXw74sTvBrQgWVfEhoH9/COg15roBtFTvtKCOgzs
bmeKfEy8O6SliyV0czEw3+My5q3FnlCskJpTy8HAfvSN/8nr84T6Nq7KHDoD
E9C8VF2z6Alj3/70uq7RsY1qJGN7TS8QPNbHKfSVjt1kHFI48MYL0j/fibDv
pmOK4yMTWiJ3IENjxJ87mo4h2iKyvK98oWRAJ+5PGB1rTmc6Byz6QsP15qy3
QXRssL61RkLMD17HlzTVetMx3WNLfII+frBzNvCv2S06ltdQozks4A+ZsfIe
FafomKtdaurAsD9kvQl3OLuBjhluWazVtwoE843svf40OjZ+2EMq7E4giCqH
yVWw0bHTPbcAZwZCfmzIF64VGhbBPt7W1xYIZRqBt7o+0rBaGau/3NJB0JDu
ff1kFw0TluP0fr8QBGMX7M007tIwcxWDPw8ehEBG0Jcm2yga5rVdWcu/KQRM
y22FMsJomEcaJfDOWAjM0G9NrPjRsOLaANEBnlCYf3L98lNHGhZioMP9OzgU
lrdevaBoQMPu3FsI2ecQBtv6DPWk+WhYeel3zpMmESDQIzl6awsNO05usk7y
joAdXaumZZw0TK8wtIueHgG7OnLtFek07OGkkKLOWATIYr9iNJao2POT/pet
L0XC0YrErrM4FeOU+rm4aB4FDnGD2l73qZimxJtY/fAYcIot6G9IpWJpBYoL
i49iwCXa++L6PSqmbHhhsrk3BrzCxWyCY6lYHl9cVdv2WAj1dw6P9aNifh7J
7uFFsZDhuPXFg6tUzJ6Dy3vr0F3o0Dc81ilOxZTEv3ZSxeJBJoXnYcMuKsa7
r6f2l0o8RL/pp5XtpGLcFsyjK2fiQd9e/0UcHxWTrQP/M97xwIrSPXWeRsW2
W5wq5RuOhw/tJ/Wn31EwtsdKN+VjEoBdQ91kKZeC/aPUWW7bzISbwasNH7Io
mJ8J4z8haSZ0ddbvHEunYPk7i0bgKBPiLqm+aUikYDcyegv7XZjA76FkERhE
wTyOzI0pjDNBqlrhBqclBWM5dDK/ltwDLWlxFzFRCjZQs8z+wyoZTBhfd18S
omCS+Fylh18yOL6vGY4TpGBRXw0kBdKSITlHS3mNh4K1Syk+zetNhlkB2xUW
hYJZ/45U+qCWAsEc1f6x78mY8WWHbjmBVGj+hMT8KSRjGTODo3vm0uBQmUl+
rzwZ61yo2O40lAmlw5sVnuwhY7bXS5ZclzNB5F9rXZokGQudGqhP35EF9NN7
u62FyZjj6QR1XessGJj/92uVi4xx731589RyFtwUzzoi9ZUN21WoXGCWkA1p
GdOv/UvYMKc275zNXTmwEnlt635pNmy+PftOglselAU7tMmIs2ENM2pJNdF5
YOHr4S62iw17/IzD5suDPHh1O3KcV4ANY1veaJrYmwdpxmW5S+xs2LeQzX7N
0g9BVWJRsfEDCcOMuo3Lph+CR3PIOa1CErbG9lWJYV4Av5fy7plKkrD3V17H
hKcUw6Xw2uQMMRL2yumUXmdlMWD8r1LHhElYVL2ruEhnMUSrfrt/np+E5ZkN
SpLWikHUWzX/zAYSJrf7h3Sa1SPI/ptu5zOyjj4fdFJRO1gCFzZ8LdcwXUdd
bj9qMn5XCq2iCQea7NZQhrNVdnxjBajR/Kr3WP1F59b2GLRKPgEmoqx8xGcF
dTl95Xng9zqwzDB+/zFrGUVLG2MlAIXeAqENbGmLaPKOgtb/hp6D0KaKfWjN
Akqd7+No3dYOHCKzvfPFP9GJgvbG7LGXYHsuJKWw8Dsan3ooOKWqG8xb3nQK
JXxBkwxDZPoK+0BUY+1sW8A8yhdPFTC+NwBFN6qnn9W8R2kDh8rFtYbg5q9K
k6i0afTQVnqiw89hSFX6oXY9chp1eyadH7w8DB2eCv9pek2jxhvV++6tDYM4
qRxfuTiN2j4KMC7hGIGpTSXnbwpMo8zu021FoiNgJJGvr50yhaaX8LrMnB2B
gKoDEVyyb9B9H6Sq5UpHYFKl+mT7xjfozXNjNU1VI6CO7qP7fppE8x5S9U89
HYHFTrmgL8WTaGaTjOK5lhGwfS/l0yU9ifZ68Onvx0fAmH/n7UjJCbTf2yqM
lzoKcr60i3SxcTRmTCXm/PlREKzvS/5AHUfXtSzd/14aBdpi+sir2TF06hFz
V6bZKLy223/ubvEYet/aq3joxihEXjHT498/hq46DmpweY/CnHrdcZkjOMo9
Y/K1InMUsldt958xG0WvTjduzpkZhWhlldsKR0bRMNFrMXWzo+DuTKngERtF
rcM4nbo/jsKZT6l7R2dH0MV/6zfmfo7Cv7F2KXP7EbQgP6HtLZkFl+pFhJ18
htFigd2Uv7tYsNVzaGNS+iAqYtRrm2rCguX1P1u+eQ2i1aqXr1qbs2AyVJhf
69IgytTcxNxjxYJC5s3dK/yDaJWXS2H+LRYcriBpmCYNoFkvzQ9f8GKBzZys
vUR8P2o5f+pxVhILztgbuPg59qNfmow0uNJYcOC3uxdLrx8lt6Est/ssWCO3
hEZy9aNXKYbqSnksYApdzPoa1Yf68QzY21WywPcRR44dZy+6Gq5l8OwVC7Tr
jEqFu3rQykSZwZfdLOB9kV3XH9mDqgzMHx7oY0HRjNLAQfYetCmrrrtvhAVD
ApaUNXI3al5eGh48wwKZ8GfWscuvUDqiEtS6zIJRK1uZ8rft6F5pg8VkERya
JvSVa/LbUfHlrN11ojjknz94rNGmHS1RT+ga2o2Di9balc5vbWhbbF3QqhQO
m2Xj4udWW9H25oM36Ptw0P5VvSzM24IO6FLfbEZwULBNoUmOPkdbHBRp+BEc
+N/f4ZFLe4720hlx6Zo4zI4cl1UXeY7K6Ez0cJ/EIbB+1MxYthkN7Xzb91gX
B1fKUsyuiCY0yiD927eLOBz7jRbIczehnn5R+JXLOPDMhTdr3GtEFa+Ob2s3
waHsleDvizkNaENWd1iIGfH++MMmCXX1KK+RqjRmhcPjIIZbNtSjlf3aTNI1
4nuufXfL2urQAMFgHbXrOAhftGh51f8Ulfwilp5lg4OxSKgM5WMNWidQVChm
j4MEj96xLY41aFRmiKmSAw4LFH5T4cUnqGqvziVNRxzi54ri1chP0Dj/JpHT
Tji8KutedhasRjcqKo/wu+GQkp3EE5hdhUZvRwr/Eb6WYCYbJ1GFqvN+rH/t
jgPF7YdZyf5KdNdUe1aEJw7uXjKxL++VoT4Y1TjzDg5nvn4fKc8vRc26qpLO
+hD/Y1ErnFRbgibt4NdZJzysfazSAi9GRTef2HrKD4eSRo4VrY9FqJy/ksQc
4eB9/UflVwvR2Z69pb7+OCgKmA6t7ihAUx0K+e4H4MARs3vnzN58VDXIcVEs
EIcZ0ifrjsMP0Yw/HdoPCcd/cF9imueiz26/PpEchMMNk8OI9+0HaJfSn2+M
YByQPmrE1cAc9Pd7Gw5nwpMOYgdNtLJQDY/9CSohOMRcqGiXunkfldqzYT2B
sDpoGP+OSkd1bux7PUf4k8Sr+ebSVLS21FlaORSHNK4L3rG9yajFjoxZf8La
i283Xf5xD7X08NraRnh5wjFTcisTFZeeKaeE4VDQ9k9+4UACmqFa/Eyd8PnS
yGbsfBxqY1yq5EiYQ0Y+X/BHNLqR9VIkk/CNP1ovqw9EoJTyac92wu0dFp9P
e4SgX9zHjswTFku5wz37LAAtuH3fgx6OA7lX1nptzRu18NsuJES40c78kUKo
C9oopbpfgfAPfqm3bYI30Z7UxcfqhPtKhN6cMziPquSezNckTL2qIxKueRj2
1kvSjxMuknvgvqneAtyX7w0hhFM97v8eHHYEtx33tigTnsBtynPOeMCuiD2N
koRF1ZRsHF74wepxy1EewopnAuKFsoOAfV3bfJn432Hf6/YhJmHwnPrjAouw
e7muzmf+KKCctmuqIiw4pShlOBwL3+xGE8MIm7LHkCe04gEv0GGdJ1wuQrq9
WTIRdo/PR4kQJqk6v9Gk3QPRmOGyd8R4nz07q+v+Ngk+zR48kkv4gc3FhuLm
FNj/5KCmCeFjaZC6xTcD/vH0JzUS83mvqopx3CQTwHbogzVh5/c8auo7s4G9
+8QjdsKt/0KKHFZzwEDJMVCDiJfPEah5xMcHMLCjJLmXiC++bX+25+K5cKLd
XMiE8DU529CR2odQyX0twIqIx9j6hxrf8/NhLMXYdIqI39oTbxY2JBVARQ2j
7DxhdjMDSw2XIqi0ZhTsJ+K9+K4KkqdQCmOXtTkKiXyhtmY1MA6UgVOUwekP
RH6ZLdNVbymXQ0WGzwZRwpEVH/kFsirg0KnspQAvHA4L1G2ZelgFe2bWH/8i
8vdW9efeeMlqcBCfmF53JfJbVyRWs4jwzJ67NMI/A8I4Ckoew07N3fb/iHqQ
/9GIYl9dAyNirYZZRD0ZDI5oFj5YC10TumnudsR4Czf69dfUwgbu0evatjhc
Mtz990D9U1D9HJ2OE/WIu+HnwipWD502Qv4lRD3ziLk7G9HTBPr76kV3EvXx
oWRLnpo+Cmb7W/VjL+Aw0Lxo8aUfBVfOjG1/jHDYtlrmUHgTg6VPifbPDHBw
lN/2eaN9M3yef+n0SwcH8ZR37wZcWqDi1dnf+zSI/LRea3n0pAXUcD11DTUc
DPbz5wYvtsBHjzaFo6o4+HfpXFXyaIWn56SlVA/iMEaqnkj1boNB7kt3xmWJ
+bEJGDEPfAHMv+wSvwRxCO9ke/Ku6QU4+TiYPucn6u/ewMQbqy9gwl9VNnob
Ea8/AvUdXTogKI0Vw82Dg7ln8Cu/ay9B9aZM4jA7DvsiwpoyT3XCiHA9yfw3
0d8KY/Jf8/TC4n6H755Ef+zh4Aox1+uFoQt7vmW+YEGHbazlu6heuBzOetrU
ygLTlJOb3ch9UKGd8vhrEwsMTbS6fbz7IOiGZdDmahaov9M+GWPXD5slnJWu
EP2ac+G0WsnZQahrL7ksbc2CzWP7Ld2dBsE37buP+VWi/2L8UUcTByE0v68v
/goLBKPfjbGGBkH90Abet0YskNp9x4tmPARx7g0WyAkWsR9/VGdqOgwjfa7N
H8RZ4PZ4g8qWW6PASjxwnj49ClMu7QfcgseBGqfXIn+SWC910AQL88bhkUWb
y+6jxHM7jq/jrePgwZ5mwqsxCn2tLS81aK8Bje2aeL9/FDDeZlNa6GtQr/qy
UV9oFLIePwtnhk2Az9jn08cWRsB0oeJ1VeQb2GD9Kb09YwS+1uk+d++YBtF9
vzQ3TQ9DfliOuVXEeyhcfVmbdnkIxBcfbfVIn4fnBtfzHSMGYLJKuFHtxhcg
7YxFFxr6wCh5KvxT3Hc4O9Gg4T3VDZkPoxtPJ/2EoGkbpRC2V0C9bPeF5rkA
aqWvlIJC2qHHvKjAIHgRflJC3JSXn8MTTsErS7bLUO30ulwUR0EibdcHxukV
SBlQmnJzrYcVt+B/jwz/wr7AZJmEM0/g08p/XIUqa1CpFsguLlUJ6u1hpyeR
Nfjv7vRC+PZKiI3/FcmrvQYL4Ou5TK8EBalORsDFNQjr0D2y8r4C3Iy82C55
rQHfpbeB4XkVQKpgLWxsWANBKyvXbrEK2GZ9b9wB1sH87M7Nr4zKIPt62NB/
YiSkJfTqEbknxcDufaNTTJKEKK7UqG9NKwbHWO3ne/aQkKJ0WRKnXzHAk40V
aook5L5ee/Nh7WKYJMdFXdYkIfJzHKZpk0WwIzPlaLolCbG4cM1wD2cRpAwV
VQjmkZBvuovXfDwLIO5IV7SAOBuygfuvFV9MHpxoylV8LcWGXM+oa7TxyIO/
h7zHMmXZEJepJLMeyzy4cUBGavcBNgTzcr7acSgPEMnwFjlNNiTVWTfOdz4X
vm86tqJ5lQ0Rmive/UU7F/RYz67b32dDPIRrxzO3PQAuh0dHW/jIiC7FJMbw
WRZYP0jePCpARryXVdeHkrKgYTho8uNOMrLzw8PDHk5ZYKNu4sUjQUYeabwf
FpPJgtYNnFVXlcjIM+EwRc70TPDKs99FukBG2L2ZXNuD7sMsvo+kkUJGakvm
PnveSgcNTqEe/QwyclYngMylk07sxzgyrLLJSHOGvVmzTDocKZhRji4kI+3H
9mSGfEyDDJdEh/GnZKQlznkp4FYaGHD/nvTEyQh5ofWyinMqNB172lgjSEHu
T4YJcaUmg+V0mlqIEAX5qh5/9JRvMrD7+tQZilKQOTM7tyzLZDCoPfrkuzQF
MZBidDHliP26dHeJjCoF8dhOtipqSwIu7pn0zAsURE3ecOnW8j0wxTd6hTIp
iFzmkex3DkxiffZ16VwKBZnZoSwiZsyEQp5+V7EMClLbblfggTDhp07SbSyX
giQZQdSNLUwIbRKxWamiIAKq0bMXHydCWe5BY/t+CmLlHj3nspYA/+zMlM5z
URHhT32lO3LjwULlS9QWHipyVb7vQWhsPLSTvae7+KhIxQuvfqpXPMQmJ0Vr
7qQiVwYWsjXOxoNQc/eMgiwVUUeN7LJI8XCYV/3uxlNUxCj14vdtlnHgV8//
AQuhIqn69oZTtrHwLjhf404EFbk/vOVYpFYsaOkdSFSOoSLNyVMcF3fHwuZ3
eofLmFRkYa6zyOp1DGRzhjHTc6lIBvX+tn1nYgAz/424NVOR4rHA/0JVooGN
MZC65x8VEdui7GgqGQn0cJdtKmw0xOvAgT+11Ejg2LA98RiNhtx2l36pMhMB
vBtNoq9w0hC3n4cfl9+PACnuWd+7O2mIz8jFRfttEXBm+4rlLw0a0k+uMObj
DocMSVG5Z77E/VMxV7btCIWcwtbiF4E0JKm0RGP7WgjkS1+XHAqlIbZfWw6q
TYVA+Z4SkS+xNCTl8qXPn/JC4Lm80lbhLBoSrGn/+bN8CMwrn1oORGlIVs9l
tbOng0FJy+n5KRIdwQJsX7TfD4SI/Ru/baHSkQ9Wk235IYHwekfefziDjtzx
ePwpxy4QAn8Mu1znpiMWJ/115jUCoSdNVTJYiI7IX4eKujcBcP0LKbpRnY5s
mlqZ0pEKgJSEu0YKnnRk4YxEhlCqH3y6IxW4dIeOSN+WC9Bx8IPD15vLmvzp
yN958ZeFx/3gndovhm44HeHzb+j89dMXFN6fr7dJpiMJXgX57Xq+8FJZSDj3
CR0xydhho8LjAyuvSz7w/aQj15xk0rfXecEx24443UU64mu7wehVnBfErL5V
CVmhI3dnB/yqbniBiOB/EQtkBnJOnnlYVMALTl6IkB7cykDEG90Ynnc8gdlv
fTPuIAOJ+iIe3X/aA+TahT5zeDIQL3aFqIc8buBhdIh51IeBXB077ZPy3RWa
3xmpewUwkPLaq3N1Pa5wjhITPR/BQH68x/TColzBG1mV7UhjIGEJnypOMFyh
o37ULqSBgZAfWoIMwwV4Tv3ia8QYyInuaLXPc85ggnM1LbQyEGl5Zxe8wxm+
LR3nsupmIK194YMHopxh28HHZUcnGchdk/z++S3OYN7ae95rhoGsWJhokBac
oMjw01rlLAPJCj9hjIw4gbqTqN6ubwyEYSrIUk93glC2w0vGvxgIzT9rfNnH
CfriLmbFLTEQZvTdzglzJxAUcT3ZscpA1t/kuH/SdIL/O89H/v88/38AE7yJ
8w==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->Automatic,
  ImageSizeRaw->{180, 127},
  PlotRange->{{-3, 3}, {0., 0.39894223786442035`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.512212670390625*^9, {3.512212725265625*^9, 3.51221273740625*^9}},
 ImageSize->{184, 127},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell[TextData[{
 "Show together with ",
 Cell[BoxData[
  ButtonBox["Histogram",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Histogram"]], "InlineFormula"],
 " of random data: "
}], "ExampleText",
 CellID->222908597],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Histogram", "[", 
    RowBox[{
     RowBox[{"RandomReal", "[", 
      RowBox[{
       RowBox[{"NormalDistribution", "[", 
        RowBox[{"0", ",", "1"}], "]"}], ",", "500"}], "]"}], ",", "Automatic",
      ",", "\"\<ProbabilityDensity\>\""}], "]"}], ",", "%"}], "]"}]], "Input",
 CellChangeTimes->{3.5122127405*^9},
 CellID->18932906],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.7]], {}, 
    {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
     EdgeForm[Opacity[0.7]], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-7, 2], 0}, {-3, 0.004}]},
         ImageSizeCache->{{15.75, 42.088618524332816`}, {93.9785814253072, 
          96.27385474233895}}],
        StatusArea[#, 0.004]& ,
        TagBoxNote->"0.004"],
       StyleBox["0.004`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.004, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-3, 0}, {
            Rational[-5, 2], 0.008}]},
         ImageSizeCache->{{41.588618524332816`, 67.92723704866563}, {
          92.18330810827545, 96.27385474233895}}],
        StatusArea[#, 0.008]& ,
        TagBoxNote->"0.008"],
       StyleBox["0.008`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.008, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-5, 2], 0}, {-2, 0.012}]},
         ImageSizeCache->{{67.42723704866563, 93.76585557299843}, {
          90.3880347912437, 96.27385474233895}}],
        StatusArea[#, 0.012]& ,
        TagBoxNote->"0.012"],
       StyleBox["0.012`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.012, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-2, 0}, {
            Rational[-3, 2], 0.088}]},
         ImageSizeCache->{{93.26585557299843, 119.60447409733125`}, {
          56.27784176764043, 96.27385474233895}}],
        StatusArea[#, 0.088]& ,
        TagBoxNote->"0.088"],
       StyleBox["0.088`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.088, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-3, 2], 0}, {-1, 0.208}]},
         ImageSizeCache->{{119.10447409733125`, 145.44309262166405`}, {
          2.419642256687908, 96.27385474233895}}],
        StatusArea[#, 0.208]& ,
        TagBoxNote->"0.208"],
       StyleBox["0.208`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.208, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-1, 0}, {
            Rational[-1, 2], 0.268}]},
         ImageSizeCache->{{144.94309262166405`, 
          171.28171114599687`}, {-24.50945749878838, 96.27385474233895}}],
        StatusArea[#, 0.268]& ,
        TagBoxNote->"0.268"],
       StyleBox["0.268`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.268, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-1, 2], 0}, {0, 0.424}]},
         ImageSizeCache->{{170.78171114599687`, 
          197.12032967032968`}, {-94.52511686302665, 96.27385474233895}}],
        StatusArea[#, 0.424]& ,
        TagBoxNote->"0.424"],
       StyleBox["0.424`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.424, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0, 0}, {
            Rational[1, 2], 0.396}]},
         ImageSizeCache->{{196.62032967032968`, 
          222.9589481946625}, {-81.95820364380441, 96.27385474233895}}],
        StatusArea[#, 0.396]& ,
        TagBoxNote->"0.396"],
       StyleBox["0.396`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.396, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[1, 2], 0}, {1, 0.304}]},
         ImageSizeCache->{{222.4589481946625, 
          248.7975667189953}, {-40.66691735207411, 96.27385474233895}}],
        StatusArea[#, 0.304]& ,
        TagBoxNote->"0.304"],
       StyleBox["0.304`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.304, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1, 0}, {
            Rational[3, 2], 0.184}]},
         ImageSizeCache->{{248.2975667189953, 274.6361852433281}, {
          13.191282158878408`, 96.27385474233895}}],
        StatusArea[#, 0.184]& ,
        TagBoxNote->"0.184"],
       StyleBox["0.184`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.184, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[3, 2], 0}, {2, 0.056}]},
         ImageSizeCache->{{274.1361852433281, 300.47480376766094`}, {
          70.64002830389444, 96.27385474233895}}],
        StatusArea[#, 0.056]& ,
        TagBoxNote->"0.056"],
       StyleBox["0.056`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.056, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2, 0}, {
            Rational[5, 2], 0.032}]},
         ImageSizeCache->{{299.97480376766094`, 326.31342229199373`}, {
          81.41166820608494, 96.27385474233895}}],
        StatusArea[#, 0.032]& ,
        TagBoxNote->"0.032"],
       StyleBox["0.032`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.032, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[5, 2], 0}, {3, 0.016}]},
         ImageSizeCache->{{325.81342229199373`, 352.1520408163266}, {
          88.59276147421195, 96.27385474233895}}],
        StatusArea[#, 0.016]& ,
        TagBoxNote->"0.016"],
       StyleBox["0.016`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.016, {
         GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Hc0V2/8APCPz5RCicK3EJkJpYzQ+5YGSURKJWRUysoe2XtmfLIzIitb
EeFeGSl7fy4RKtIeQhS/+zvn9/vrnte599x7z/O8x/M8uywcDKzJJBLJl41E
+t+rZXnct/V1BtZGelq+S9IJeFcFJdT+MrCezI2OOOIErScemrgtM7AP+zbF
VF5yAonJupefvzOwP4Yu11pineDjpre5+DQDOylrZXp72Qkcbx40rm5hYCE5
rku8A87gKz6GXQtjYHKP/9Bcs1xB/rbVUk4QA4s8yz17p9EVphq+7p3wY2C6
HMyconFXOHqOkm7owcBOGXw74sTvBrQgWVfEhoH9/COg15roBtFTvtKCOgzs
bmeKfEy8O6SliyV0czEw3+My5q3FnlCskJpTy8HAfvSN/8nr84T6Nq7KHDoD
E9C8VF2z6Alj3/70uq7RsY1qJGN7TS8QPNbHKfSVjt1kHFI48MYL0j/fibDv
pmOK4yMTWiJ3IENjxJ87mo4h2iKyvK98oWRAJ+5PGB1rTmc6Byz6QsP15qy3
QXRssL61RkLMD17HlzTVetMx3WNLfII+frBzNvCv2S06ltdQozks4A+ZsfIe
FafomKtdaurAsD9kvQl3OLuBjhluWazVtwoE843svf40OjZ+2EMq7E4giCqH
yVWw0bHTPbcAZwZCfmzIF64VGhbBPt7W1xYIZRqBt7o+0rBaGau/3NJB0JDu
ff1kFw0TluP0fr8QBGMX7M007tIwcxWDPw8ehEBG0Jcm2yga5rVdWcu/KQRM
y22FMsJomEcaJfDOWAjM0G9NrPjRsOLaANEBnlCYf3L98lNHGhZioMP9OzgU
lrdevaBoQMPu3FsI2ecQBtv6DPWk+WhYeel3zpMmESDQIzl6awsNO05usk7y
joAdXaumZZw0TK8wtIueHgG7OnLtFek07OGkkKLOWATIYr9iNJao2POT/pet
L0XC0YrErrM4FeOU+rm4aB4FDnGD2l73qZimxJtY/fAYcIot6G9IpWJpBYoL
i49iwCXa++L6PSqmbHhhsrk3BrzCxWyCY6lYHl9cVdv2WAj1dw6P9aNifh7J
7uFFsZDhuPXFg6tUzJ6Dy3vr0F3o0Dc81ilOxZTEv3ZSxeJBJoXnYcMuKsa7
r6f2l0o8RL/pp5XtpGLcFsyjK2fiQd9e/0UcHxWTrQP/M97xwIrSPXWeRsW2
W5wq5RuOhw/tJ/Wn31EwtsdKN+VjEoBdQ91kKZeC/aPUWW7bzISbwasNH7Io
mJ8J4z8haSZ0ddbvHEunYPk7i0bgKBPiLqm+aUikYDcyegv7XZjA76FkERhE
wTyOzI0pjDNBqlrhBqclBWM5dDK/ltwDLWlxFzFRCjZQs8z+wyoZTBhfd18S
omCS+Fylh18yOL6vGY4TpGBRXw0kBdKSITlHS3mNh4K1Syk+zetNhlkB2xUW
hYJZ/45U+qCWAsEc1f6x78mY8WWHbjmBVGj+hMT8KSRjGTODo3vm0uBQmUl+
rzwZ61yo2O40lAmlw5sVnuwhY7bXS5ZclzNB5F9rXZokGQudGqhP35EF9NN7
u62FyZjj6QR1XessGJj/92uVi4xx731589RyFtwUzzoi9ZUN21WoXGCWkA1p
GdOv/UvYMKc275zNXTmwEnlt635pNmy+PftOglselAU7tMmIs2ENM2pJNdF5
YOHr4S62iw17/IzD5suDPHh1O3KcV4ANY1veaJrYmwdpxmW5S+xs2LeQzX7N
0g9BVWJRsfEDCcOMuo3Lph+CR3PIOa1CErbG9lWJYV4Av5fy7plKkrD3V17H
hKcUw6Xw2uQMMRL2yumUXmdlMWD8r1LHhElYVL2ruEhnMUSrfrt/np+E5ZkN
SpLWikHUWzX/zAYSJrf7h3Sa1SPI/ptu5zOyjj4fdFJRO1gCFzZ8LdcwXUdd
bj9qMn5XCq2iCQea7NZQhrNVdnxjBajR/Kr3WP1F59b2GLRKPgEmoqx8xGcF
dTl95Xng9zqwzDB+/zFrGUVLG2MlAIXeAqENbGmLaPKOgtb/hp6D0KaKfWjN
Akqd7+No3dYOHCKzvfPFP9GJgvbG7LGXYHsuJKWw8Dsan3ooOKWqG8xb3nQK
JXxBkwxDZPoK+0BUY+1sW8A8yhdPFTC+NwBFN6qnn9W8R2kDh8rFtYbg5q9K
k6i0afTQVnqiw89hSFX6oXY9chp1eyadH7w8DB2eCv9pek2jxhvV++6tDYM4
qRxfuTiN2j4KMC7hGIGpTSXnbwpMo8zu021FoiNgJJGvr50yhaaX8LrMnB2B
gKoDEVyyb9B9H6Sq5UpHYFKl+mT7xjfozXNjNU1VI6CO7qP7fppE8x5S9U89
HYHFTrmgL8WTaGaTjOK5lhGwfS/l0yU9ifZ68Onvx0fAmH/n7UjJCbTf2yqM
lzoKcr60i3SxcTRmTCXm/PlREKzvS/5AHUfXtSzd/14aBdpi+sir2TF06hFz
V6bZKLy223/ubvEYet/aq3joxihEXjHT498/hq46DmpweY/CnHrdcZkjOMo9
Y/K1InMUsldt958xG0WvTjduzpkZhWhlldsKR0bRMNFrMXWzo+DuTKngERtF
rcM4nbo/jsKZT6l7R2dH0MV/6zfmfo7Cv7F2KXP7EbQgP6HtLZkFl+pFhJ18
htFigd2Uv7tYsNVzaGNS+iAqYtRrm2rCguX1P1u+eQ2i1aqXr1qbs2AyVJhf
69IgytTcxNxjxYJC5s3dK/yDaJWXS2H+LRYcriBpmCYNoFkvzQ9f8GKBzZys
vUR8P2o5f+pxVhILztgbuPg59qNfmow0uNJYcOC3uxdLrx8lt6Est/ssWCO3
hEZy9aNXKYbqSnksYApdzPoa1Yf68QzY21WywPcRR44dZy+6Gq5l8OwVC7Tr
jEqFu3rQykSZwZfdLOB9kV3XH9mDqgzMHx7oY0HRjNLAQfYetCmrrrtvhAVD
ApaUNXI3al5eGh48wwKZ8GfWscuvUDqiEtS6zIJRK1uZ8rft6F5pg8VkERya
JvSVa/LbUfHlrN11ojjknz94rNGmHS1RT+ga2o2Di9balc5vbWhbbF3QqhQO
m2Xj4udWW9H25oM36Ptw0P5VvSzM24IO6FLfbEZwULBNoUmOPkdbHBRp+BEc
+N/f4ZFLe4720hlx6Zo4zI4cl1UXeY7K6Ez0cJ/EIbB+1MxYthkN7Xzb91gX
B1fKUsyuiCY0yiD927eLOBz7jRbIczehnn5R+JXLOPDMhTdr3GtEFa+Ob2s3
waHsleDvizkNaENWd1iIGfH++MMmCXX1KK+RqjRmhcPjIIZbNtSjlf3aTNI1
4nuufXfL2urQAMFgHbXrOAhftGh51f8Ulfwilp5lg4OxSKgM5WMNWidQVChm
j4MEj96xLY41aFRmiKmSAw4LFH5T4cUnqGqvziVNRxzi54ri1chP0Dj/JpHT
Tji8KutedhasRjcqKo/wu+GQkp3EE5hdhUZvRwr/Eb6WYCYbJ1GFqvN+rH/t
jgPF7YdZyf5KdNdUe1aEJw7uXjKxL++VoT4Y1TjzDg5nvn4fKc8vRc26qpLO
+hD/Y1ErnFRbgibt4NdZJzysfazSAi9GRTef2HrKD4eSRo4VrY9FqJy/ksQc
4eB9/UflVwvR2Z69pb7+OCgKmA6t7ihAUx0K+e4H4MARs3vnzN58VDXIcVEs
EIcZ0ifrjsMP0Yw/HdoPCcd/cF9imueiz26/PpEchMMNk8OI9+0HaJfSn2+M
YByQPmrE1cAc9Pd7Gw5nwpMOYgdNtLJQDY/9CSohOMRcqGiXunkfldqzYT2B
sDpoGP+OSkd1bux7PUf4k8Sr+ebSVLS21FlaORSHNK4L3rG9yajFjoxZf8La
i283Xf5xD7X08NraRnh5wjFTcisTFZeeKaeE4VDQ9k9+4UACmqFa/Eyd8PnS
yGbsfBxqY1yq5EiYQ0Y+X/BHNLqR9VIkk/CNP1ovqw9EoJTyac92wu0dFp9P
e4SgX9zHjswTFku5wz37LAAtuH3fgx6OA7lX1nptzRu18NsuJES40c78kUKo
C9oopbpfgfAPfqm3bYI30Z7UxcfqhPtKhN6cMziPquSezNckTL2qIxKueRj2
1kvSjxMuknvgvqneAtyX7w0hhFM97v8eHHYEtx33tigTnsBtynPOeMCuiD2N
koRF1ZRsHF74wepxy1EewopnAuKFsoOAfV3bfJn432Hf6/YhJmHwnPrjAouw
e7muzmf+KKCctmuqIiw4pShlOBwL3+xGE8MIm7LHkCe04gEv0GGdJ1wuQrq9
WTIRdo/PR4kQJqk6v9Gk3QPRmOGyd8R4nz07q+v+Ngk+zR48kkv4gc3FhuLm
FNj/5KCmCeFjaZC6xTcD/vH0JzUS83mvqopx3CQTwHbogzVh5/c8auo7s4G9
+8QjdsKt/0KKHFZzwEDJMVCDiJfPEah5xMcHMLCjJLmXiC++bX+25+K5cKLd
XMiE8DU529CR2odQyX0twIqIx9j6hxrf8/NhLMXYdIqI39oTbxY2JBVARQ2j
7DxhdjMDSw2XIqi0ZhTsJ+K9+K4KkqdQCmOXtTkKiXyhtmY1MA6UgVOUwekP
RH6ZLdNVbymXQ0WGzwZRwpEVH/kFsirg0KnspQAvHA4L1G2ZelgFe2bWH/8i
8vdW9efeeMlqcBCfmF53JfJbVyRWs4jwzJ67NMI/A8I4Ckoew07N3fb/iHqQ
/9GIYl9dAyNirYZZRD0ZDI5oFj5YC10TumnudsR4Czf69dfUwgbu0evatjhc
Mtz990D9U1D9HJ2OE/WIu+HnwipWD502Qv4lRD3ziLk7G9HTBPr76kV3EvXx
oWRLnpo+Cmb7W/VjL+Aw0Lxo8aUfBVfOjG1/jHDYtlrmUHgTg6VPifbPDHBw
lN/2eaN9M3yef+n0SwcH8ZR37wZcWqDi1dnf+zSI/LRea3n0pAXUcD11DTUc
DPbz5wYvtsBHjzaFo6o4+HfpXFXyaIWn56SlVA/iMEaqnkj1boNB7kt3xmWJ
+bEJGDEPfAHMv+wSvwRxCO9ke/Ku6QU4+TiYPucn6u/ewMQbqy9gwl9VNnob
Ea8/AvUdXTogKI0Vw82Dg7ln8Cu/ay9B9aZM4jA7DvsiwpoyT3XCiHA9yfw3
0d8KY/Jf8/TC4n6H755Ef+zh4Aox1+uFoQt7vmW+YEGHbazlu6heuBzOetrU
ygLTlJOb3ch9UKGd8vhrEwsMTbS6fbz7IOiGZdDmahaov9M+GWPXD5slnJWu
EP2ac+G0WsnZQahrL7ksbc2CzWP7Ld2dBsE37buP+VWi/2L8UUcTByE0v68v
/goLBKPfjbGGBkH90Abet0YskNp9x4tmPARx7g0WyAkWsR9/VGdqOgwjfa7N
H8RZ4PZ4g8qWW6PASjxwnj49ClMu7QfcgseBGqfXIn+SWC910AQL88bhkUWb
y+6jxHM7jq/jrePgwZ5mwqsxCn2tLS81aK8Bje2aeL9/FDDeZlNa6GtQr/qy
UV9oFLIePwtnhk2Az9jn08cWRsB0oeJ1VeQb2GD9Kb09YwS+1uk+d++YBtF9
vzQ3TQ9DfliOuVXEeyhcfVmbdnkIxBcfbfVIn4fnBtfzHSMGYLJKuFHtxhcg
7YxFFxr6wCh5KvxT3Hc4O9Gg4T3VDZkPoxtPJ/2EoGkbpRC2V0C9bPeF5rkA
aqWvlIJC2qHHvKjAIHgRflJC3JSXn8MTTsErS7bLUO30ulwUR0EibdcHxukV
SBlQmnJzrYcVt+B/jwz/wr7AZJmEM0/g08p/XIUqa1CpFsguLlUJ6u1hpyeR
Nfjv7vRC+PZKiI3/FcmrvQYL4Ou5TK8EBalORsDFNQjr0D2y8r4C3Iy82C55
rQHfpbeB4XkVQKpgLWxsWANBKyvXbrEK2GZ9b9wB1sH87M7Nr4zKIPt62NB/
YiSkJfTqEbknxcDufaNTTJKEKK7UqG9NKwbHWO3ne/aQkKJ0WRKnXzHAk40V
aook5L5ee/Nh7WKYJMdFXdYkIfJzHKZpk0WwIzPlaLolCbG4cM1wD2cRpAwV
VQjmkZBvuovXfDwLIO5IV7SAOBuygfuvFV9MHpxoylV8LcWGXM+oa7TxyIO/
h7zHMmXZEJepJLMeyzy4cUBGavcBNgTzcr7acSgPEMnwFjlNNiTVWTfOdz4X
vm86tqJ5lQ0Rmive/UU7F/RYz67b32dDPIRrxzO3PQAuh0dHW/jIiC7FJMbw
WRZYP0jePCpARryXVdeHkrKgYTho8uNOMrLzw8PDHk5ZYKNu4sUjQUYeabwf
FpPJgtYNnFVXlcjIM+EwRc70TPDKs99FukBG2L2ZXNuD7sMsvo+kkUJGakvm
PnveSgcNTqEe/QwyclYngMylk07sxzgyrLLJSHOGvVmzTDocKZhRji4kI+3H
9mSGfEyDDJdEh/GnZKQlznkp4FYaGHD/nvTEyQh5ofWyinMqNB172lgjSEHu
T4YJcaUmg+V0mlqIEAX5qh5/9JRvMrD7+tQZilKQOTM7tyzLZDCoPfrkuzQF
MZBidDHliP26dHeJjCoF8dhOtipqSwIu7pn0zAsURE3ecOnW8j0wxTd6hTIp
iFzmkex3DkxiffZ16VwKBZnZoSwiZsyEQp5+V7EMClLbblfggTDhp07SbSyX
giQZQdSNLUwIbRKxWamiIAKq0bMXHydCWe5BY/t+CmLlHj3nspYA/+zMlM5z
URHhT32lO3LjwULlS9QWHipyVb7vQWhsPLSTvae7+KhIxQuvfqpXPMQmJ0Vr
7qQiVwYWsjXOxoNQc/eMgiwVUUeN7LJI8XCYV/3uxlNUxCj14vdtlnHgV8//
AQuhIqn69oZTtrHwLjhf404EFbk/vOVYpFYsaOkdSFSOoSLNyVMcF3fHwuZ3
eofLmFRkYa6zyOp1DGRzhjHTc6lIBvX+tn1nYgAz/424NVOR4rHA/0JVooGN
MZC65x8VEdui7GgqGQn0cJdtKmw0xOvAgT+11Ejg2LA98RiNhtx2l36pMhMB
vBtNoq9w0hC3n4cfl9+PACnuWd+7O2mIz8jFRfttEXBm+4rlLw0a0k+uMObj
DocMSVG5Z77E/VMxV7btCIWcwtbiF4E0JKm0RGP7WgjkS1+XHAqlIbZfWw6q
TYVA+Z4SkS+xNCTl8qXPn/JC4Lm80lbhLBoSrGn/+bN8CMwrn1oORGlIVs9l
tbOng0FJy+n5KRIdwQJsX7TfD4SI/Ru/baHSkQ9Wk235IYHwekfefziDjtzx
ePwpxy4QAn8Mu1znpiMWJ/115jUCoSdNVTJYiI7IX4eKujcBcP0LKbpRnY5s
mlqZ0pEKgJSEu0YKnnRk4YxEhlCqH3y6IxW4dIeOSN+WC9Bx8IPD15vLmvzp
yN958ZeFx/3gndovhm44HeHzb+j89dMXFN6fr7dJpiMJXgX57Xq+8FJZSDj3
CR0xydhho8LjAyuvSz7w/aQj15xk0rfXecEx24443UU64mu7wehVnBfErL5V
CVmhI3dnB/yqbniBiOB/EQtkBnJOnnlYVMALTl6IkB7cykDEG90Ynnc8gdlv
fTPuIAOJ+iIe3X/aA+TahT5zeDIQL3aFqIc8buBhdIh51IeBXB077ZPy3RWa
3xmpewUwkPLaq3N1Pa5wjhITPR/BQH68x/TColzBG1mV7UhjIGEJnypOMFyh
o37ULqSBgZAfWoIMwwV4Tv3ia8QYyInuaLXPc85ggnM1LbQyEGl5Zxe8wxm+
LR3nsupmIK194YMHopxh28HHZUcnGchdk/z++S3OYN7ae95rhoGsWJhokBac
oMjw01rlLAPJCj9hjIw4gbqTqN6ubwyEYSrIUk93glC2w0vGvxgIzT9rfNnH
CfriLmbFLTEQZvTdzglzJxAUcT3ZscpA1t/kuH/SdIL/O89H/v88/38AE7yJ
8w==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesOrigin->NCache[{
     Rational[-7, 2], 0}, {-3.5, 0}],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  PlotRange->NCache[{{
      Rational[-7, 2], 3}, {All, All}}, {{-3.5, 3}, {All, All}}],
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.1]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.512212673953125*^9, 3.512212742390625*^9},
 ImageSize->{184, 117},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"temp", " ", "=", " ", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"n", "=", "1"}], ",", " ", 
    RowBox[{"n", " ", "\[LessEqual]", " ", "10000"}], ",", " ", 
    RowBox[{"n", "++"}], ",", " ", 
    RowBox[{"temp", " ", "=", " ", 
     RowBox[{"AppendTo", "[", 
      RowBox[{"temp", ",", " ", 
       RowBox[{"RandomReal", "[", 
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"0", ",", "1"}], "]"}], "]"}]}], "]"}]}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.512212774046875*^9, 3.51221280053125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Hc0V2/8APCPz5RCicK3EJkJpYzQ+5YGSURKJWRUysoe2XtmfLIzIitb
EeFeGSl7fy4RKtIeQhS/+zvn9/vrnte599x7z/O8x/M8uywcDKzJJBLJl41E
+t+rZXnct/V1BtZGelq+S9IJeFcFJdT+MrCezI2OOOIErScemrgtM7AP+zbF
VF5yAonJupefvzOwP4Yu11pineDjpre5+DQDOylrZXp72Qkcbx40rm5hYCE5
rku8A87gKz6GXQtjYHKP/9Bcs1xB/rbVUk4QA4s8yz17p9EVphq+7p3wY2C6
HMyconFXOHqOkm7owcBOGXw74sTvBrQgWVfEhoH9/COg15roBtFTvtKCOgzs
bmeKfEy8O6SliyV0czEw3+My5q3FnlCskJpTy8HAfvSN/8nr84T6Nq7KHDoD
E9C8VF2z6Alj3/70uq7RsY1qJGN7TS8QPNbHKfSVjt1kHFI48MYL0j/fibDv
pmOK4yMTWiJ3IENjxJ87mo4h2iKyvK98oWRAJ+5PGB1rTmc6Byz6QsP15qy3
QXRssL61RkLMD17HlzTVetMx3WNLfII+frBzNvCv2S06ltdQozks4A+ZsfIe
FafomKtdaurAsD9kvQl3OLuBjhluWazVtwoE843svf40OjZ+2EMq7E4giCqH
yVWw0bHTPbcAZwZCfmzIF64VGhbBPt7W1xYIZRqBt7o+0rBaGau/3NJB0JDu
ff1kFw0TluP0fr8QBGMX7M007tIwcxWDPw8ehEBG0Jcm2yga5rVdWcu/KQRM
y22FMsJomEcaJfDOWAjM0G9NrPjRsOLaANEBnlCYf3L98lNHGhZioMP9OzgU
lrdevaBoQMPu3FsI2ecQBtv6DPWk+WhYeel3zpMmESDQIzl6awsNO05usk7y
joAdXaumZZw0TK8wtIueHgG7OnLtFek07OGkkKLOWATIYr9iNJao2POT/pet
L0XC0YrErrM4FeOU+rm4aB4FDnGD2l73qZimxJtY/fAYcIot6G9IpWJpBYoL
i49iwCXa++L6PSqmbHhhsrk3BrzCxWyCY6lYHl9cVdv2WAj1dw6P9aNifh7J
7uFFsZDhuPXFg6tUzJ6Dy3vr0F3o0Dc81ilOxZTEv3ZSxeJBJoXnYcMuKsa7
r6f2l0o8RL/pp5XtpGLcFsyjK2fiQd9e/0UcHxWTrQP/M97xwIrSPXWeRsW2
W5wq5RuOhw/tJ/Wn31EwtsdKN+VjEoBdQ91kKZeC/aPUWW7bzISbwasNH7Io
mJ8J4z8haSZ0ddbvHEunYPk7i0bgKBPiLqm+aUikYDcyegv7XZjA76FkERhE
wTyOzI0pjDNBqlrhBqclBWM5dDK/ltwDLWlxFzFRCjZQs8z+wyoZTBhfd18S
omCS+Fylh18yOL6vGY4TpGBRXw0kBdKSITlHS3mNh4K1Syk+zetNhlkB2xUW
hYJZ/45U+qCWAsEc1f6x78mY8WWHbjmBVGj+hMT8KSRjGTODo3vm0uBQmUl+
rzwZ61yo2O40lAmlw5sVnuwhY7bXS5ZclzNB5F9rXZokGQudGqhP35EF9NN7
u62FyZjj6QR1XessGJj/92uVi4xx731589RyFtwUzzoi9ZUN21WoXGCWkA1p
GdOv/UvYMKc275zNXTmwEnlt635pNmy+PftOglselAU7tMmIs2ENM2pJNdF5
YOHr4S62iw17/IzD5suDPHh1O3KcV4ANY1veaJrYmwdpxmW5S+xs2LeQzX7N
0g9BVWJRsfEDCcOMuo3Lph+CR3PIOa1CErbG9lWJYV4Av5fy7plKkrD3V17H
hKcUw6Xw2uQMMRL2yumUXmdlMWD8r1LHhElYVL2ruEhnMUSrfrt/np+E5ZkN
SpLWikHUWzX/zAYSJrf7h3Sa1SPI/ptu5zOyjj4fdFJRO1gCFzZ8LdcwXUdd
bj9qMn5XCq2iCQea7NZQhrNVdnxjBajR/Kr3WP1F59b2GLRKPgEmoqx8xGcF
dTl95Xng9zqwzDB+/zFrGUVLG2MlAIXeAqENbGmLaPKOgtb/hp6D0KaKfWjN
Akqd7+No3dYOHCKzvfPFP9GJgvbG7LGXYHsuJKWw8Dsan3ooOKWqG8xb3nQK
JXxBkwxDZPoK+0BUY+1sW8A8yhdPFTC+NwBFN6qnn9W8R2kDh8rFtYbg5q9K
k6i0afTQVnqiw89hSFX6oXY9chp1eyadH7w8DB2eCv9pek2jxhvV++6tDYM4
qRxfuTiN2j4KMC7hGIGpTSXnbwpMo8zu021FoiNgJJGvr50yhaaX8LrMnB2B
gKoDEVyyb9B9H6Sq5UpHYFKl+mT7xjfozXNjNU1VI6CO7qP7fppE8x5S9U89
HYHFTrmgL8WTaGaTjOK5lhGwfS/l0yU9ifZ68Onvx0fAmH/n7UjJCbTf2yqM
lzoKcr60i3SxcTRmTCXm/PlREKzvS/5AHUfXtSzd/14aBdpi+sir2TF06hFz
V6bZKLy223/ubvEYet/aq3joxihEXjHT498/hq46DmpweY/CnHrdcZkjOMo9
Y/K1InMUsldt958xG0WvTjduzpkZhWhlldsKR0bRMNFrMXWzo+DuTKngERtF
rcM4nbo/jsKZT6l7R2dH0MV/6zfmfo7Cv7F2KXP7EbQgP6HtLZkFl+pFhJ18
htFigd2Uv7tYsNVzaGNS+iAqYtRrm2rCguX1P1u+eQ2i1aqXr1qbs2AyVJhf
69IgytTcxNxjxYJC5s3dK/yDaJWXS2H+LRYcriBpmCYNoFkvzQ9f8GKBzZys
vUR8P2o5f+pxVhILztgbuPg59qNfmow0uNJYcOC3uxdLrx8lt6Est/ssWCO3
hEZy9aNXKYbqSnksYApdzPoa1Yf68QzY21WywPcRR44dZy+6Gq5l8OwVC7Tr
jEqFu3rQykSZwZfdLOB9kV3XH9mDqgzMHx7oY0HRjNLAQfYetCmrrrtvhAVD
ApaUNXI3al5eGh48wwKZ8GfWscuvUDqiEtS6zIJRK1uZ8rft6F5pg8VkERya
JvSVa/LbUfHlrN11ojjknz94rNGmHS1RT+ga2o2Di9balc5vbWhbbF3QqhQO
m2Xj4udWW9H25oM36Ptw0P5VvSzM24IO6FLfbEZwULBNoUmOPkdbHBRp+BEc
+N/f4ZFLe4720hlx6Zo4zI4cl1UXeY7K6Ez0cJ/EIbB+1MxYthkN7Xzb91gX
B1fKUsyuiCY0yiD927eLOBz7jRbIczehnn5R+JXLOPDMhTdr3GtEFa+Ob2s3
waHsleDvizkNaENWd1iIGfH++MMmCXX1KK+RqjRmhcPjIIZbNtSjlf3aTNI1
4nuufXfL2urQAMFgHbXrOAhftGh51f8Ulfwilp5lg4OxSKgM5WMNWidQVChm
j4MEj96xLY41aFRmiKmSAw4LFH5T4cUnqGqvziVNRxzi54ri1chP0Dj/JpHT
Tji8KutedhasRjcqKo/wu+GQkp3EE5hdhUZvRwr/Eb6WYCYbJ1GFqvN+rH/t
jgPF7YdZyf5KdNdUe1aEJw7uXjKxL++VoT4Y1TjzDg5nvn4fKc8vRc26qpLO
+hD/Y1ErnFRbgibt4NdZJzysfazSAi9GRTef2HrKD4eSRo4VrY9FqJy/ksQc
4eB9/UflVwvR2Z69pb7+OCgKmA6t7ihAUx0K+e4H4MARs3vnzN58VDXIcVEs
EIcZ0ifrjsMP0Yw/HdoPCcd/cF9imueiz26/PpEchMMNk8OI9+0HaJfSn2+M
YByQPmrE1cAc9Pd7Gw5nwpMOYgdNtLJQDY/9CSohOMRcqGiXunkfldqzYT2B
sDpoGP+OSkd1bux7PUf4k8Sr+ebSVLS21FlaORSHNK4L3rG9yajFjoxZf8La
i283Xf5xD7X08NraRnh5wjFTcisTFZeeKaeE4VDQ9k9+4UACmqFa/Eyd8PnS
yGbsfBxqY1yq5EiYQ0Y+X/BHNLqR9VIkk/CNP1ovqw9EoJTyac92wu0dFp9P
e4SgX9zHjswTFku5wz37LAAtuH3fgx6OA7lX1nptzRu18NsuJES40c78kUKo
C9oopbpfgfAPfqm3bYI30Z7UxcfqhPtKhN6cMziPquSezNckTL2qIxKueRj2
1kvSjxMuknvgvqneAtyX7w0hhFM97v8eHHYEtx33tigTnsBtynPOeMCuiD2N
koRF1ZRsHF74wepxy1EewopnAuKFsoOAfV3bfJn432Hf6/YhJmHwnPrjAouw
e7muzmf+KKCctmuqIiw4pShlOBwL3+xGE8MIm7LHkCe04gEv0GGdJ1wuQrq9
WTIRdo/PR4kQJqk6v9Gk3QPRmOGyd8R4nz07q+v+Ngk+zR48kkv4gc3FhuLm
FNj/5KCmCeFjaZC6xTcD/vH0JzUS83mvqopx3CQTwHbogzVh5/c8auo7s4G9
+8QjdsKt/0KKHFZzwEDJMVCDiJfPEah5xMcHMLCjJLmXiC++bX+25+K5cKLd
XMiE8DU529CR2odQyX0twIqIx9j6hxrf8/NhLMXYdIqI39oTbxY2JBVARQ2j
7DxhdjMDSw2XIqi0ZhTsJ+K9+K4KkqdQCmOXtTkKiXyhtmY1MA6UgVOUwekP
RH6ZLdNVbymXQ0WGzwZRwpEVH/kFsirg0KnspQAvHA4L1G2ZelgFe2bWH/8i
8vdW9efeeMlqcBCfmF53JfJbVyRWs4jwzJ67NMI/A8I4Ckoew07N3fb/iHqQ
/9GIYl9dAyNirYZZRD0ZDI5oFj5YC10TumnudsR4Czf69dfUwgbu0evatjhc
Mtz990D9U1D9HJ2OE/WIu+HnwipWD502Qv4lRD3ziLk7G9HTBPr76kV3EvXx
oWRLnpo+Cmb7W/VjL+Aw0Lxo8aUfBVfOjG1/jHDYtlrmUHgTg6VPifbPDHBw
lN/2eaN9M3yef+n0SwcH8ZR37wZcWqDi1dnf+zSI/LRea3n0pAXUcD11DTUc
DPbz5wYvtsBHjzaFo6o4+HfpXFXyaIWn56SlVA/iMEaqnkj1boNB7kt3xmWJ
+bEJGDEPfAHMv+wSvwRxCO9ke/Ku6QU4+TiYPucn6u/ewMQbqy9gwl9VNnob
Ea8/AvUdXTogKI0Vw82Dg7ln8Cu/ay9B9aZM4jA7DvsiwpoyT3XCiHA9yfw3
0d8KY/Jf8/TC4n6H755Ef+zh4Aox1+uFoQt7vmW+YEGHbazlu6heuBzOetrU
ygLTlJOb3ch9UKGd8vhrEwsMTbS6fbz7IOiGZdDmahaov9M+GWPXD5slnJWu
EP2ac+G0WsnZQahrL7ksbc2CzWP7Ld2dBsE37buP+VWi/2L8UUcTByE0v68v
/goLBKPfjbGGBkH90Abet0YskNp9x4tmPARx7g0WyAkWsR9/VGdqOgwjfa7N
H8RZ4PZ4g8qWW6PASjxwnj49ClMu7QfcgseBGqfXIn+SWC910AQL88bhkUWb
y+6jxHM7jq/jrePgwZ5mwqsxCn2tLS81aK8Bje2aeL9/FDDeZlNa6GtQr/qy
UV9oFLIePwtnhk2Az9jn08cWRsB0oeJ1VeQb2GD9Kb09YwS+1uk+d++YBtF9
vzQ3TQ9DfliOuVXEeyhcfVmbdnkIxBcfbfVIn4fnBtfzHSMGYLJKuFHtxhcg
7YxFFxr6wCh5KvxT3Hc4O9Gg4T3VDZkPoxtPJ/2EoGkbpRC2V0C9bPeF5rkA
aqWvlIJC2qHHvKjAIHgRflJC3JSXn8MTTsErS7bLUO30ulwUR0EibdcHxukV
SBlQmnJzrYcVt+B/jwz/wr7AZJmEM0/g08p/XIUqa1CpFsguLlUJ6u1hpyeR
Nfjv7vRC+PZKiI3/FcmrvQYL4Ou5TK8EBalORsDFNQjr0D2y8r4C3Iy82C55
rQHfpbeB4XkVQKpgLWxsWANBKyvXbrEK2GZ9b9wB1sH87M7Nr4zKIPt62NB/
YiSkJfTqEbknxcDufaNTTJKEKK7UqG9NKwbHWO3ne/aQkKJ0WRKnXzHAk40V
aook5L5ee/Nh7WKYJMdFXdYkIfJzHKZpk0WwIzPlaLolCbG4cM1wD2cRpAwV
VQjmkZBvuovXfDwLIO5IV7SAOBuygfuvFV9MHpxoylV8LcWGXM+oa7TxyIO/
h7zHMmXZEJepJLMeyzy4cUBGavcBNgTzcr7acSgPEMnwFjlNNiTVWTfOdz4X
vm86tqJ5lQ0Rmive/UU7F/RYz67b32dDPIRrxzO3PQAuh0dHW/jIiC7FJMbw
WRZYP0jePCpARryXVdeHkrKgYTho8uNOMrLzw8PDHk5ZYKNu4sUjQUYeabwf
FpPJgtYNnFVXlcjIM+EwRc70TPDKs99FukBG2L2ZXNuD7sMsvo+kkUJGakvm
PnveSgcNTqEe/QwyclYngMylk07sxzgyrLLJSHOGvVmzTDocKZhRji4kI+3H
9mSGfEyDDJdEh/GnZKQlznkp4FYaGHD/nvTEyQh5ofWyinMqNB172lgjSEHu
T4YJcaUmg+V0mlqIEAX5qh5/9JRvMrD7+tQZilKQOTM7tyzLZDCoPfrkuzQF
MZBidDHliP26dHeJjCoF8dhOtipqSwIu7pn0zAsURE3ecOnW8j0wxTd6hTIp
iFzmkex3DkxiffZ16VwKBZnZoSwiZsyEQp5+V7EMClLbblfggTDhp07SbSyX
giQZQdSNLUwIbRKxWamiIAKq0bMXHydCWe5BY/t+CmLlHj3nspYA/+zMlM5z
URHhT32lO3LjwULlS9QWHipyVb7vQWhsPLSTvae7+KhIxQuvfqpXPMQmJ0Vr
7qQiVwYWsjXOxoNQc/eMgiwVUUeN7LJI8XCYV/3uxlNUxCj14vdtlnHgV8//
AQuhIqn69oZTtrHwLjhf404EFbk/vOVYpFYsaOkdSFSOoSLNyVMcF3fHwuZ3
eofLmFRkYa6zyOp1DGRzhjHTc6lIBvX+tn1nYgAz/424NVOR4rHA/0JVooGN
MZC65x8VEdui7GgqGQn0cJdtKmw0xOvAgT+11Ejg2LA98RiNhtx2l36pMhMB
vBtNoq9w0hC3n4cfl9+PACnuWd+7O2mIz8jFRfttEXBm+4rlLw0a0k+uMObj
DocMSVG5Z77E/VMxV7btCIWcwtbiF4E0JKm0RGP7WgjkS1+XHAqlIbZfWw6q
TYVA+Z4SkS+xNCTl8qXPn/JC4Lm80lbhLBoSrGn/+bN8CMwrn1oORGlIVs9l
tbOng0FJy+n5KRIdwQJsX7TfD4SI/Ru/baHSkQ9Wk235IYHwekfefziDjtzx
ePwpxy4QAn8Mu1znpiMWJ/115jUCoSdNVTJYiI7IX4eKujcBcP0LKbpRnY5s
mlqZ0pEKgJSEu0YKnnRk4YxEhlCqH3y6IxW4dIeOSN+WC9Bx8IPD15vLmvzp
yN958ZeFx/3gndovhm44HeHzb+j89dMXFN6fr7dJpiMJXgX57Xq+8FJZSDj3
CR0xydhho8LjAyuvSz7w/aQj15xk0rfXecEx24443UU64mu7wehVnBfErL5V
CVmhI3dnB/yqbniBiOB/EQtkBnJOnnlYVMALTl6IkB7cykDEG90Ynnc8gdlv
fTPuIAOJ+iIe3X/aA+TahT5zeDIQL3aFqIc8buBhdIh51IeBXB077ZPy3RWa
3xmpewUwkPLaq3N1Pa5wjhITPR/BQH68x/TColzBG1mV7UhjIGEJnypOMFyh
o37ULqSBgZAfWoIMwwV4Tv3ia8QYyInuaLXPc85ggnM1LbQyEGl5Zxe8wxm+
LR3nsupmIK194YMHopxh28HHZUcnGchdk/z++S3OYN7ae95rhoGsWJhokBac
oMjw01rlLAPJCj9hjIw4gbqTqN6ubwyEYSrIUk93glC2w0vGvxgIzT9rfNnH
CfriLmbFLTEQZvTdzglzJxAUcT3ZscpA1t/kuH/SdIL/O89H/v88/38AE7yJ
8w==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-3, 3}, {0., 0.39894223786442035`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.51221280975*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Histogram", "[", 
    RowBox[{
    "temp", ",", " ", "Automatic", ",", " ", "\"\<ProbabilityDensity\>\""}], 
    "]"}], ",", " ", "%"}], "]"}]], "Input",
 CellChangeTimes->{{3.512212812125*^9, 3.512212833296875*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.7]], {}, 
    {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
     EdgeForm[Opacity[0.7]], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-4, 0}, {
            Rational[-19, 5], 0.0005}]},
         ImageSizeCache->{{15.750000000000028`, 24.8628728414443}, {
          95.54206549556012, 96.27385474233888}}],
        StatusArea[#, 0.0005]& ,
        TagBoxNote->"0.0005"],
       StyleBox["0.0005`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0005, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-19, 5], 0}, {
            Rational[-18, 5], 0.001}]},
         ImageSizeCache->{{24.3628728414443, 33.47574568288857}, {
          95.31027624878135, 96.27385474233888}}],
        StatusArea[#, 0.001]& ,
        TagBoxNote->"0.001"],
       StyleBox["0.001`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.001, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-18, 5], 0}, {
            Rational[-17, 5], 0.0015}]},
         ImageSizeCache->{{32.97574568288857, 42.088618524332844`}, {
          95.07848700200259, 96.27385474233888}}],
        StatusArea[#, 0.0015]& ,
        TagBoxNote->"0.0015"],
       StyleBox["0.0015`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0015, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-17, 5], 0}, {
            Rational[-16, 5], 0.002}]},
         ImageSizeCache->{{41.588618524332844`, 50.70149136577709}, {
          94.84669775522383, 96.27385474233888}}],
        StatusArea[#, 0.002]& ,
        TagBoxNote->"0.002"],
       StyleBox["0.002`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.002, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-16, 5], 0}, {-3, 0.005}]},
         ImageSizeCache->{{50.20149136577709, 59.31436420722136}, {
          93.45596227455124, 96.27385474233888}}],
        StatusArea[#, 0.005]& ,
        TagBoxNote->"0.005"],
       StyleBox["0.005`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.005, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-3, 0}, {
            Rational[-14, 5], 0.007}]},
         ImageSizeCache->{{58.81436420722136, 67.92723704866565}, {
          92.52880528743619, 96.27385474233888}}],
        StatusArea[#, 0.007]& ,
        TagBoxNote->"0.007"],
       StyleBox["0.007`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.007, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-14, 5], 0}, {
            Rational[-13, 5], 0.0115}]},
         ImageSizeCache->{{67.42723704866565, 76.5401098901099}, {
          90.4427020664273, 96.27385474233888}}],
        StatusArea[#, 0.0115]& ,
        TagBoxNote->"0.0115"],
       StyleBox["0.0115`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0115, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-13, 5], 0}, {
            Rational[-12, 5], 0.0185}]},
         ImageSizeCache->{{76.0401098901099, 85.15298273155418}, {
          87.1976526115246, 96.27385474233888}}],
        StatusArea[#, 0.0185]& ,
        TagBoxNote->"0.0185"],
       StyleBox["0.0185`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0185, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-12, 5], 0}, {
            Rational[-11, 5], 0.0295}]},
         ImageSizeCache->{{84.65298273155418, 93.76585557299843}, {
          82.09828918239178, 96.27385474233888}}],
        StatusArea[#, 0.0295]& ,
        TagBoxNote->"0.0295"],
       StyleBox["0.0295`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0295, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-11, 5], 0}, {-2, 0.0535}]},
         ImageSizeCache->{{93.26585557299843, 102.3787284144427}, {
          70.9724053370111, 96.27385474233888}}],
        StatusArea[#, 0.0535]& ,
        TagBoxNote->"0.0535"],
       StyleBox["0.0535`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0535, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-2, 0}, {
            Rational[-9, 5], 0.0535}]},
         ImageSizeCache->{{101.8787284144427, 110.99160125588698`}, {
          70.9724053370111, 96.27385474233888}}],
        StatusArea[#, 0.0535]& ,
        TagBoxNote->"0.0535"],
       StyleBox["0.0535`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0535, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-9, 5], 0}, {
            Rational[-8, 5], 0.0995}]},
         ImageSizeCache->{{110.49160125588698`, 119.60447409733123`}, {
          49.64779463336477, 96.27385474233888}}],
        StatusArea[#, 0.0995]& ,
        TagBoxNote->"0.0995"],
       StyleBox["0.0995`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0995, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-8, 5], 0}, {
            Rational[-7, 5], 0.1215}]},
         ImageSizeCache->{{119.10447409733123`, 128.2173469387755}, {
          39.44906777509914, 96.27385474233888}}],
        StatusArea[#, 0.1215]& ,
        TagBoxNote->"0.1215"],
       StyleBox["0.1215`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.1215, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-7, 5], 0}, {
            Rational[-6, 5], 0.1665}]},
         ImageSizeCache->{{127.7173469387755, 136.83021978021978`}, {
          18.588035565010344`, 96.27385474233888}}],
        StatusArea[#, 0.1665]& ,
        TagBoxNote->"0.1665"],
       StyleBox["0.1665`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.1665, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-6, 5], 0}, {-1, 0.2025}]},
         ImageSizeCache->{{136.33021978021978`, 145.44309262166405`}, {
          1.899209796939303, 96.27385474233888}}],
        StatusArea[#, 0.2025]& ,
        TagBoxNote->"0.2025"],
       StyleBox["0.2025`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.2025, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-1, 0}, {
            Rational[-4, 5], 0.2785}]},
         ImageSizeCache->{{144.94309262166405`, 
          154.0559654631083}, {-33.33275571343289, 96.27385474233888}}],
        StatusArea[#, 0.2785]& ,
        TagBoxNote->"0.2785"],
       StyleBox["0.2785`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.2785, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-4, 5], 0}, {
            Rational[-3, 5], 0.3275}]},
         ImageSizeCache->{{153.5559654631083, 
          162.6688383045526}, {-56.04810189775178, 96.27385474233888}}],
        StatusArea[#, 0.3275]& ,
        TagBoxNote->"0.3275"],
       StyleBox["0.3275`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.3275, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-3, 5], 0}, {
            Rational[-2, 5], 0.3495}]},
         ImageSizeCache->{{162.1688383045526, 
          171.28171114599684`}, {-66.2468287560174, 96.27385474233888}}],
        StatusArea[#, 0.3495]& ,
        TagBoxNote->"0.3495"],
       StyleBox["0.3495`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.3495, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-2, 5], 0}, {
            Rational[-1, 5], 0.381}]},
         ImageSizeCache->{{170.78171114599684`, 
          179.8945839874411}, {-80.84955130307956, 96.27385474233888}}],
        StatusArea[#, 0.381]& ,
        TagBoxNote->"0.381"],
       StyleBox["0.381`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.381, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-1, 5], 0}, {0, 0.378}]},
         ImageSizeCache->{{179.3945839874411, 
          188.50745682888538`}, {-79.45881582240698, 96.27385474233888}}],
        StatusArea[#, 0.378]& ,
        TagBoxNote->"0.378"],
       StyleBox["0.378`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.378, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0, 0}, {
            Rational[1, 5], 0.4105}]},
         ImageSizeCache->{{188.00745682888538`, 
          197.12032967032965`}, {-94.52511686302667, 96.27385474233888}}],
        StatusArea[#, 0.4105]& ,
        TagBoxNote->"0.4105"],
       StyleBox["0.4105`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.4105, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[1, 5], 0}, {
            Rational[2, 5], 0.405}]},
         ImageSizeCache->{{196.62032967032965`, 
          205.73320251177392`}, {-91.97543514846028, 96.27385474233888}}],
        StatusArea[#, 0.405]& ,
        TagBoxNote->"0.405"],
       StyleBox["0.405`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.405, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[2, 5], 0}, {
            Rational[3, 5], 0.3255}]},
         ImageSizeCache->{{205.23320251177392`, 
          214.34607535321817`}, {-55.12094491063674, 96.27385474233888}}],
        StatusArea[#, 0.3255]& ,
        TagBoxNote->"0.3255"],
       StyleBox["0.3255`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.3255, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[3, 5], 0}, {
            Rational[4, 5], 0.299}]},
         ImageSizeCache->{{213.84607535321817`, 
          222.95894819466247`}, {-42.836114831362224`, 96.27385474233888}}],
        StatusArea[#, 0.299]& ,
        TagBoxNote->"0.299"],
       StyleBox["0.299`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.299, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[4, 5], 0}, {1, 0.2705}]},
         ImageSizeCache->{{222.45894819466247`, 
          231.5718210361067}, {-29.624127764972656`, 96.27385474233888}}],
        StatusArea[#, 0.2705]& ,
        TagBoxNote->"0.2705"],
       StyleBox["0.2705`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.2705, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1, 0}, {
            Rational[6, 5], 0.2095}]},
         ImageSizeCache->{{231.0718210361067, 
          240.18469387755098`}, {-1.3458396579633813`, 96.27385474233888}}],
        StatusArea[#, 0.2095]& ,
        TagBoxNote->"0.2095"],
       StyleBox["0.2095`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.2095, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[6, 5], 0}, {
            Rational[7, 5], 0.1815}]},
         ImageSizeCache->{{239.68469387755098`, 248.79756671899526`}, {
          11.634358161647413`, 96.27385474233888}}],
        StatusArea[#, 0.1815]& ,
        TagBoxNote->"0.1815"],
       StyleBox["0.1815`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.1815, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[7, 5], 0}, {
            Rational[8, 5], 0.1315}]},
         ImageSizeCache->{{248.29756671899526`, 257.4104395604395}, {
          34.81328283952385, 96.27385474233888}}],
        StatusArea[#, 0.1315]& ,
        TagBoxNote->"0.1315"],
       StyleBox["0.1315`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.1315, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[8, 5], 0}, {
            Rational[9, 5], 0.0975}]},
         ImageSizeCache->{{256.9104395604395, 266.0233124018838}, {
          50.57495162047983, 96.27385474233888}}],
        StatusArea[#, 0.0975]& ,
        TagBoxNote->"0.0975"],
       StyleBox["0.0975`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0975, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[9, 5], 0}, {2, 0.0625}]},
         ImageSizeCache->{{265.5233124018838, 274.63618524332804`}, {
          66.80019889499334, 96.27385474233888}}],
        StatusArea[#, 0.0625]& ,
        TagBoxNote->"0.0625"],
       StyleBox["0.0625`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0625, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2, 0}, {
            Rational[11, 5], 0.0515}]},
         ImageSizeCache->{{274.13618524332804`, 283.24905808477234`}, {
          71.89956232412615, 96.27385474233888}}],
        StatusArea[#, 0.0515]& ,
        TagBoxNote->"0.0515"],
       StyleBox["0.0515`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0515, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[11, 5], 0}, {
            Rational[12, 5], 0.026}]},
         ImageSizeCache->{{282.74905808477234`, 291.8619309262166}, {
          83.72081390984314, 96.27385474233888}}],
        StatusArea[#, 0.026]& ,
        TagBoxNote->"0.026"],
       StyleBox["0.026`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.026, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[12, 5], 0}, {
            Rational[13, 5], 0.0175}]},
         ImageSizeCache->{{291.3619309262166, 300.4748037676609}, {
          87.66123110508212, 96.27385474233888}}],
        StatusArea[#, 0.0175]& ,
        TagBoxNote->"0.0175"],
       StyleBox["0.0175`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0175, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[13, 5], 0}, {
            Rational[14, 5], 0.011}]},
         ImageSizeCache->{{299.9748037676609, 309.08767660910513`}, {
          90.67449131320606, 96.27385474233888}}],
        StatusArea[#, 0.011]& ,
        TagBoxNote->"0.011"],
       StyleBox["0.011`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.011, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[14, 5], 0}, {3, 0.003}]},
         ImageSizeCache->{{308.58767660910513`, 317.7005494505494}, {
          94.3831192616663, 96.27385474233888}}],
        StatusArea[#, 0.003]& ,
        TagBoxNote->"0.003"],
       StyleBox["0.003`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.003, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3, 0}, {
            Rational[16, 5], 0.004}]},
         ImageSizeCache->{{317.2005494505494, 326.3134222919937}, {
          93.91954076810877, 96.27385474233888}}],
        StatusArea[#, 0.004]& ,
        TagBoxNote->"0.004"],
       StyleBox["0.004`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.004, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[16, 5], 0}, {
            Rational[17, 5], 0.003}]},
         ImageSizeCache->{{325.8134222919937, 334.9262951334379}, {
          94.3831192616663, 96.27385474233888}}],
        StatusArea[#, 0.003]& ,
        TagBoxNote->"0.003"],
       StyleBox["0.003`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.003, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[17, 5], 0}, {
            Rational[18, 5], 0.0015}]},
         ImageSizeCache->{{334.4262951334379, 343.53916797488216`}, {
          95.07848700200259, 96.27385474233888}}],
        StatusArea[#, 0.0015]& ,
        TagBoxNote->"0.0015"],
       StyleBox["0.0015`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0015, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[18, 5], 0}, {
            Rational[19, 5], 0.0015}]},
         ImageSizeCache->{{343.03916797488216`, 352.15204081632646`}, {
          95.07848700200259, 96.27385474233888}}],
        StatusArea[#, 0.0015]& ,
        TagBoxNote->"0.0015"],
       StyleBox["0.0015`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0015, {
         GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Hc0V2/8APCPz5RCicK3EJkJpYzQ+5YGSURKJWRUysoe2XtmfLIzIitb
EeFeGSl7fy4RKtIeQhS/+zvn9/vrnte599x7z/O8x/M8uywcDKzJJBLJl41E
+t+rZXnct/V1BtZGelq+S9IJeFcFJdT+MrCezI2OOOIErScemrgtM7AP+zbF
VF5yAonJupefvzOwP4Yu11pineDjpre5+DQDOylrZXp72Qkcbx40rm5hYCE5
rku8A87gKz6GXQtjYHKP/9Bcs1xB/rbVUk4QA4s8yz17p9EVphq+7p3wY2C6
HMyconFXOHqOkm7owcBOGXw74sTvBrQgWVfEhoH9/COg15roBtFTvtKCOgzs
bmeKfEy8O6SliyV0czEw3+My5q3FnlCskJpTy8HAfvSN/8nr84T6Nq7KHDoD
E9C8VF2z6Alj3/70uq7RsY1qJGN7TS8QPNbHKfSVjt1kHFI48MYL0j/fibDv
pmOK4yMTWiJ3IENjxJ87mo4h2iKyvK98oWRAJ+5PGB1rTmc6Byz6QsP15qy3
QXRssL61RkLMD17HlzTVetMx3WNLfII+frBzNvCv2S06ltdQozks4A+ZsfIe
FafomKtdaurAsD9kvQl3OLuBjhluWazVtwoE843svf40OjZ+2EMq7E4giCqH
yVWw0bHTPbcAZwZCfmzIF64VGhbBPt7W1xYIZRqBt7o+0rBaGau/3NJB0JDu
ff1kFw0TluP0fr8QBGMX7M007tIwcxWDPw8ehEBG0Jcm2yga5rVdWcu/KQRM
y22FMsJomEcaJfDOWAjM0G9NrPjRsOLaANEBnlCYf3L98lNHGhZioMP9OzgU
lrdevaBoQMPu3FsI2ecQBtv6DPWk+WhYeel3zpMmESDQIzl6awsNO05usk7y
joAdXaumZZw0TK8wtIueHgG7OnLtFek07OGkkKLOWATIYr9iNJao2POT/pet
L0XC0YrErrM4FeOU+rm4aB4FDnGD2l73qZimxJtY/fAYcIot6G9IpWJpBYoL
i49iwCXa++L6PSqmbHhhsrk3BrzCxWyCY6lYHl9cVdv2WAj1dw6P9aNifh7J
7uFFsZDhuPXFg6tUzJ6Dy3vr0F3o0Dc81ilOxZTEv3ZSxeJBJoXnYcMuKsa7
r6f2l0o8RL/pp5XtpGLcFsyjK2fiQd9e/0UcHxWTrQP/M97xwIrSPXWeRsW2
W5wq5RuOhw/tJ/Wn31EwtsdKN+VjEoBdQ91kKZeC/aPUWW7bzISbwasNH7Io
mJ8J4z8haSZ0ddbvHEunYPk7i0bgKBPiLqm+aUikYDcyegv7XZjA76FkERhE
wTyOzI0pjDNBqlrhBqclBWM5dDK/ltwDLWlxFzFRCjZQs8z+wyoZTBhfd18S
omCS+Fylh18yOL6vGY4TpGBRXw0kBdKSITlHS3mNh4K1Syk+zetNhlkB2xUW
hYJZ/45U+qCWAsEc1f6x78mY8WWHbjmBVGj+hMT8KSRjGTODo3vm0uBQmUl+
rzwZ61yo2O40lAmlw5sVnuwhY7bXS5ZclzNB5F9rXZokGQudGqhP35EF9NN7
u62FyZjj6QR1XessGJj/92uVi4xx731589RyFtwUzzoi9ZUN21WoXGCWkA1p
GdOv/UvYMKc275zNXTmwEnlt635pNmy+PftOglselAU7tMmIs2ENM2pJNdF5
YOHr4S62iw17/IzD5suDPHh1O3KcV4ANY1veaJrYmwdpxmW5S+xs2LeQzX7N
0g9BVWJRsfEDCcOMuo3Lph+CR3PIOa1CErbG9lWJYV4Av5fy7plKkrD3V17H
hKcUw6Xw2uQMMRL2yumUXmdlMWD8r1LHhElYVL2ruEhnMUSrfrt/np+E5ZkN
SpLWikHUWzX/zAYSJrf7h3Sa1SPI/ptu5zOyjj4fdFJRO1gCFzZ8LdcwXUdd
bj9qMn5XCq2iCQea7NZQhrNVdnxjBajR/Kr3WP1F59b2GLRKPgEmoqx8xGcF
dTl95Xng9zqwzDB+/zFrGUVLG2MlAIXeAqENbGmLaPKOgtb/hp6D0KaKfWjN
Akqd7+No3dYOHCKzvfPFP9GJgvbG7LGXYHsuJKWw8Dsan3ooOKWqG8xb3nQK
JXxBkwxDZPoK+0BUY+1sW8A8yhdPFTC+NwBFN6qnn9W8R2kDh8rFtYbg5q9K
k6i0afTQVnqiw89hSFX6oXY9chp1eyadH7w8DB2eCv9pek2jxhvV++6tDYM4
qRxfuTiN2j4KMC7hGIGpTSXnbwpMo8zu021FoiNgJJGvr50yhaaX8LrMnB2B
gKoDEVyyb9B9H6Sq5UpHYFKl+mT7xjfozXNjNU1VI6CO7qP7fppE8x5S9U89
HYHFTrmgL8WTaGaTjOK5lhGwfS/l0yU9ifZ68Onvx0fAmH/n7UjJCbTf2yqM
lzoKcr60i3SxcTRmTCXm/PlREKzvS/5AHUfXtSzd/14aBdpi+sir2TF06hFz
V6bZKLy223/ubvEYet/aq3joxihEXjHT498/hq46DmpweY/CnHrdcZkjOMo9
Y/K1InMUsldt958xG0WvTjduzpkZhWhlldsKR0bRMNFrMXWzo+DuTKngERtF
rcM4nbo/jsKZT6l7R2dH0MV/6zfmfo7Cv7F2KXP7EbQgP6HtLZkFl+pFhJ18
htFigd2Uv7tYsNVzaGNS+iAqYtRrm2rCguX1P1u+eQ2i1aqXr1qbs2AyVJhf
69IgytTcxNxjxYJC5s3dK/yDaJWXS2H+LRYcriBpmCYNoFkvzQ9f8GKBzZys
vUR8P2o5f+pxVhILztgbuPg59qNfmow0uNJYcOC3uxdLrx8lt6Est/ssWCO3
hEZy9aNXKYbqSnksYApdzPoa1Yf68QzY21WywPcRR44dZy+6Gq5l8OwVC7Tr
jEqFu3rQykSZwZfdLOB9kV3XH9mDqgzMHx7oY0HRjNLAQfYetCmrrrtvhAVD
ApaUNXI3al5eGh48wwKZ8GfWscuvUDqiEtS6zIJRK1uZ8rft6F5pg8VkERya
JvSVa/LbUfHlrN11ojjknz94rNGmHS1RT+ga2o2Di9balc5vbWhbbF3QqhQO
m2Xj4udWW9H25oM36Ptw0P5VvSzM24IO6FLfbEZwULBNoUmOPkdbHBRp+BEc
+N/f4ZFLe4720hlx6Zo4zI4cl1UXeY7K6Ez0cJ/EIbB+1MxYthkN7Xzb91gX
B1fKUsyuiCY0yiD927eLOBz7jRbIczehnn5R+JXLOPDMhTdr3GtEFa+Ob2s3
waHsleDvizkNaENWd1iIGfH++MMmCXX1KK+RqjRmhcPjIIZbNtSjlf3aTNI1
4nuufXfL2urQAMFgHbXrOAhftGh51f8Ulfwilp5lg4OxSKgM5WMNWidQVChm
j4MEj96xLY41aFRmiKmSAw4LFH5T4cUnqGqvziVNRxzi54ri1chP0Dj/JpHT
Tji8KutedhasRjcqKo/wu+GQkp3EE5hdhUZvRwr/Eb6WYCYbJ1GFqvN+rH/t
jgPF7YdZyf5KdNdUe1aEJw7uXjKxL++VoT4Y1TjzDg5nvn4fKc8vRc26qpLO
+hD/Y1ErnFRbgibt4NdZJzysfazSAi9GRTef2HrKD4eSRo4VrY9FqJy/ksQc
4eB9/UflVwvR2Z69pb7+OCgKmA6t7ihAUx0K+e4H4MARs3vnzN58VDXIcVEs
EIcZ0ifrjsMP0Yw/HdoPCcd/cF9imueiz26/PpEchMMNk8OI9+0HaJfSn2+M
YByQPmrE1cAc9Pd7Gw5nwpMOYgdNtLJQDY/9CSohOMRcqGiXunkfldqzYT2B
sDpoGP+OSkd1bux7PUf4k8Sr+ebSVLS21FlaORSHNK4L3rG9yajFjoxZf8La
i283Xf5xD7X08NraRnh5wjFTcisTFZeeKaeE4VDQ9k9+4UACmqFa/Eyd8PnS
yGbsfBxqY1yq5EiYQ0Y+X/BHNLqR9VIkk/CNP1ovqw9EoJTyac92wu0dFp9P
e4SgX9zHjswTFku5wz37LAAtuH3fgx6OA7lX1nptzRu18NsuJES40c78kUKo
C9oopbpfgfAPfqm3bYI30Z7UxcfqhPtKhN6cMziPquSezNckTL2qIxKueRj2
1kvSjxMuknvgvqneAtyX7w0hhFM97v8eHHYEtx33tigTnsBtynPOeMCuiD2N
koRF1ZRsHF74wepxy1EewopnAuKFsoOAfV3bfJn432Hf6/YhJmHwnPrjAouw
e7muzmf+KKCctmuqIiw4pShlOBwL3+xGE8MIm7LHkCe04gEv0GGdJ1wuQrq9
WTIRdo/PR4kQJqk6v9Gk3QPRmOGyd8R4nz07q+v+Ngk+zR48kkv4gc3FhuLm
FNj/5KCmCeFjaZC6xTcD/vH0JzUS83mvqopx3CQTwHbogzVh5/c8auo7s4G9
+8QjdsKt/0KKHFZzwEDJMVCDiJfPEah5xMcHMLCjJLmXiC++bX+25+K5cKLd
XMiE8DU529CR2odQyX0twIqIx9j6hxrf8/NhLMXYdIqI39oTbxY2JBVARQ2j
7DxhdjMDSw2XIqi0ZhTsJ+K9+K4KkqdQCmOXtTkKiXyhtmY1MA6UgVOUwekP
RH6ZLdNVbymXQ0WGzwZRwpEVH/kFsirg0KnspQAvHA4L1G2ZelgFe2bWH/8i
8vdW9efeeMlqcBCfmF53JfJbVyRWs4jwzJ67NMI/A8I4Ckoew07N3fb/iHqQ
/9GIYl9dAyNirYZZRD0ZDI5oFj5YC10TumnudsR4Czf69dfUwgbu0evatjhc
Mtz990D9U1D9HJ2OE/WIu+HnwipWD502Qv4lRD3ziLk7G9HTBPr76kV3EvXx
oWRLnpo+Cmb7W/VjL+Aw0Lxo8aUfBVfOjG1/jHDYtlrmUHgTg6VPifbPDHBw
lN/2eaN9M3yef+n0SwcH8ZR37wZcWqDi1dnf+zSI/LRea3n0pAXUcD11DTUc
DPbz5wYvtsBHjzaFo6o4+HfpXFXyaIWn56SlVA/iMEaqnkj1boNB7kt3xmWJ
+bEJGDEPfAHMv+wSvwRxCO9ke/Ku6QU4+TiYPucn6u/ewMQbqy9gwl9VNnob
Ea8/AvUdXTogKI0Vw82Dg7ln8Cu/ay9B9aZM4jA7DvsiwpoyT3XCiHA9yfw3
0d8KY/Jf8/TC4n6H755Ef+zh4Aox1+uFoQt7vmW+YEGHbazlu6heuBzOetrU
ygLTlJOb3ch9UKGd8vhrEwsMTbS6fbz7IOiGZdDmahaov9M+GWPXD5slnJWu
EP2ac+G0WsnZQahrL7ksbc2CzWP7Ld2dBsE37buP+VWi/2L8UUcTByE0v68v
/goLBKPfjbGGBkH90Abet0YskNp9x4tmPARx7g0WyAkWsR9/VGdqOgwjfa7N
H8RZ4PZ4g8qWW6PASjxwnj49ClMu7QfcgseBGqfXIn+SWC910AQL88bhkUWb
y+6jxHM7jq/jrePgwZ5mwqsxCn2tLS81aK8Bje2aeL9/FDDeZlNa6GtQr/qy
UV9oFLIePwtnhk2Az9jn08cWRsB0oeJ1VeQb2GD9Kb09YwS+1uk+d++YBtF9
vzQ3TQ9DfliOuVXEeyhcfVmbdnkIxBcfbfVIn4fnBtfzHSMGYLJKuFHtxhcg
7YxFFxr6wCh5KvxT3Hc4O9Gg4T3VDZkPoxtPJ/2EoGkbpRC2V0C9bPeF5rkA
aqWvlIJC2qHHvKjAIHgRflJC3JSXn8MTTsErS7bLUO30ulwUR0EibdcHxukV
SBlQmnJzrYcVt+B/jwz/wr7AZJmEM0/g08p/XIUqa1CpFsguLlUJ6u1hpyeR
Nfjv7vRC+PZKiI3/FcmrvQYL4Ou5TK8EBalORsDFNQjr0D2y8r4C3Iy82C55
rQHfpbeB4XkVQKpgLWxsWANBKyvXbrEK2GZ9b9wB1sH87M7Nr4zKIPt62NB/
YiSkJfTqEbknxcDufaNTTJKEKK7UqG9NKwbHWO3ne/aQkKJ0WRKnXzHAk40V
aook5L5ee/Nh7WKYJMdFXdYkIfJzHKZpk0WwIzPlaLolCbG4cM1wD2cRpAwV
VQjmkZBvuovXfDwLIO5IV7SAOBuygfuvFV9MHpxoylV8LcWGXM+oa7TxyIO/
h7zHMmXZEJepJLMeyzy4cUBGavcBNgTzcr7acSgPEMnwFjlNNiTVWTfOdz4X
vm86tqJ5lQ0Rmive/UU7F/RYz67b32dDPIRrxzO3PQAuh0dHW/jIiC7FJMbw
WRZYP0jePCpARryXVdeHkrKgYTho8uNOMrLzw8PDHk5ZYKNu4sUjQUYeabwf
FpPJgtYNnFVXlcjIM+EwRc70TPDKs99FukBG2L2ZXNuD7sMsvo+kkUJGakvm
PnveSgcNTqEe/QwyclYngMylk07sxzgyrLLJSHOGvVmzTDocKZhRji4kI+3H
9mSGfEyDDJdEh/GnZKQlznkp4FYaGHD/nvTEyQh5ofWyinMqNB172lgjSEHu
T4YJcaUmg+V0mlqIEAX5qh5/9JRvMrD7+tQZilKQOTM7tyzLZDCoPfrkuzQF
MZBidDHliP26dHeJjCoF8dhOtipqSwIu7pn0zAsURE3ecOnW8j0wxTd6hTIp
iFzmkex3DkxiffZ16VwKBZnZoSwiZsyEQp5+V7EMClLbblfggTDhp07SbSyX
giQZQdSNLUwIbRKxWamiIAKq0bMXHydCWe5BY/t+CmLlHj3nspYA/+zMlM5z
URHhT32lO3LjwULlS9QWHipyVb7vQWhsPLSTvae7+KhIxQuvfqpXPMQmJ0Vr
7qQiVwYWsjXOxoNQc/eMgiwVUUeN7LJI8XCYV/3uxlNUxCj14vdtlnHgV8//
AQuhIqn69oZTtrHwLjhf404EFbk/vOVYpFYsaOkdSFSOoSLNyVMcF3fHwuZ3
eofLmFRkYa6zyOp1DGRzhjHTc6lIBvX+tn1nYgAz/424NVOR4rHA/0JVooGN
MZC65x8VEdui7GgqGQn0cJdtKmw0xOvAgT+11Ejg2LA98RiNhtx2l36pMhMB
vBtNoq9w0hC3n4cfl9+PACnuWd+7O2mIz8jFRfttEXBm+4rlLw0a0k+uMObj
DocMSVG5Z77E/VMxV7btCIWcwtbiF4E0JKm0RGP7WgjkS1+XHAqlIbZfWw6q
TYVA+Z4SkS+xNCTl8qXPn/JC4Lm80lbhLBoSrGn/+bN8CMwrn1oORGlIVs9l
tbOng0FJy+n5KRIdwQJsX7TfD4SI/Ru/baHSkQ9Wk235IYHwekfefziDjtzx
ePwpxy4QAn8Mu1znpiMWJ/115jUCoSdNVTJYiI7IX4eKujcBcP0LKbpRnY5s
mlqZ0pEKgJSEu0YKnnRk4YxEhlCqH3y6IxW4dIeOSN+WC9Bx8IPD15vLmvzp
yN958ZeFx/3gndovhm44HeHzb+j89dMXFN6fr7dJpiMJXgX57Xq+8FJZSDj3
CR0xydhho8LjAyuvSz7w/aQj15xk0rfXecEx24443UU64mu7wehVnBfErL5V
CVmhI3dnB/yqbniBiOB/EQtkBnJOnnlYVMALTl6IkB7cykDEG90Ynnc8gdlv
fTPuIAOJ+iIe3X/aA+TahT5zeDIQL3aFqIc8buBhdIh51IeBXB077ZPy3RWa
3xmpewUwkPLaq3N1Pa5wjhITPR/BQH68x/TColzBG1mV7UhjIGEJnypOMFyh
o37ULqSBgZAfWoIMwwV4Tv3ia8QYyInuaLXPc85ggnM1LbQyEGl5Zxe8wxm+
LR3nsupmIK194YMHopxh28HHZUcnGchdk/z++S3OYN7ae95rhoGsWJhokBac
oMjw01rlLAPJCj9hjIw4gbqTqN6ubwyEYSrIUk93glC2w0vGvxgIzT9rfNnH
CfriLmbFLTEQZvTdzglzJxAUcT3ZscpA1t/kuH/SdIL/O89H/v88/38AE7yJ
8w==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesOrigin->{-4, 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  PlotRange->NCache[{{-4, 
      Rational[19, 5]}, {All, All}}, {{-4, 3.8}, {All, All}}],
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.1]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.512212835953125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"gaussplot", " ", "=", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.512212842609375*^9, 3.512212849921875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Histogram", "[", 
    RowBox[{
    "temp", ",", " ", "Automatic", ",", " ", "\"\<ProbabilityDensity\>\""}], 
    "]"}], ",", " ", "gaussplot"}], "]"}]], "Input",
 CellChangeTimes->{{3.512212858703125*^9, 3.512212859984375*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.7]], {}, 
    {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
     EdgeForm[Opacity[0.7]], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-4, 0}, {
            Rational[-19, 5], 0.0005}]},
         ImageSizeCache->{{15.750000000000028`, 24.8628728414443}, {
          95.54206549556012, 96.27385474233888}}],
        StatusArea[#, 0.0005]& ,
        TagBoxNote->"0.0005"],
       StyleBox["0.0005`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0005, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-19, 5], 0}, {
            Rational[-18, 5], 0.001}]},
         ImageSizeCache->{{24.3628728414443, 33.47574568288857}, {
          95.31027624878135, 96.27385474233888}}],
        StatusArea[#, 0.001]& ,
        TagBoxNote->"0.001"],
       StyleBox["0.001`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.001, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-18, 5], 0}, {
            Rational[-17, 5], 0.0015}]},
         ImageSizeCache->{{32.97574568288857, 42.088618524332844`}, {
          95.07848700200259, 96.27385474233888}}],
        StatusArea[#, 0.0015]& ,
        TagBoxNote->"0.0015"],
       StyleBox["0.0015`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0015, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-17, 5], 0}, {
            Rational[-16, 5], 0.002}]},
         ImageSizeCache->{{41.588618524332844`, 50.70149136577709}, {
          94.84669775522383, 96.27385474233888}}],
        StatusArea[#, 0.002]& ,
        TagBoxNote->"0.002"],
       StyleBox["0.002`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.002, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-16, 5], 0}, {-3, 0.005}]},
         ImageSizeCache->{{50.20149136577709, 59.31436420722136}, {
          93.45596227455124, 96.27385474233888}}],
        StatusArea[#, 0.005]& ,
        TagBoxNote->"0.005"],
       StyleBox["0.005`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.005, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-3, 0}, {
            Rational[-14, 5], 0.007}]},
         ImageSizeCache->{{58.81436420722136, 67.92723704866565}, {
          92.52880528743619, 96.27385474233888}}],
        StatusArea[#, 0.007]& ,
        TagBoxNote->"0.007"],
       StyleBox["0.007`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.007, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-14, 5], 0}, {
            Rational[-13, 5], 0.0115}]},
         ImageSizeCache->{{67.42723704866565, 76.5401098901099}, {
          90.4427020664273, 96.27385474233888}}],
        StatusArea[#, 0.0115]& ,
        TagBoxNote->"0.0115"],
       StyleBox["0.0115`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0115, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-13, 5], 0}, {
            Rational[-12, 5], 0.0185}]},
         ImageSizeCache->{{76.0401098901099, 85.15298273155418}, {
          87.1976526115246, 96.27385474233888}}],
        StatusArea[#, 0.0185]& ,
        TagBoxNote->"0.0185"],
       StyleBox["0.0185`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0185, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-12, 5], 0}, {
            Rational[-11, 5], 0.0295}]},
         ImageSizeCache->{{84.65298273155418, 93.76585557299843}, {
          82.09828918239178, 96.27385474233888}}],
        StatusArea[#, 0.0295]& ,
        TagBoxNote->"0.0295"],
       StyleBox["0.0295`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0295, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-11, 5], 0}, {-2, 0.0535}]},
         ImageSizeCache->{{93.26585557299843, 102.3787284144427}, {
          70.9724053370111, 96.27385474233888}}],
        StatusArea[#, 0.0535]& ,
        TagBoxNote->"0.0535"],
       StyleBox["0.0535`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0535, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-2, 0}, {
            Rational[-9, 5], 0.0535}]},
         ImageSizeCache->{{101.8787284144427, 110.99160125588698`}, {
          70.9724053370111, 96.27385474233888}}],
        StatusArea[#, 0.0535]& ,
        TagBoxNote->"0.0535"],
       StyleBox["0.0535`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0535, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-9, 5], 0}, {
            Rational[-8, 5], 0.0995}]},
         ImageSizeCache->{{110.49160125588698`, 119.60447409733123`}, {
          49.64779463336477, 96.27385474233888}}],
        StatusArea[#, 0.0995]& ,
        TagBoxNote->"0.0995"],
       StyleBox["0.0995`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0995, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-8, 5], 0}, {
            Rational[-7, 5], 0.1215}]},
         ImageSizeCache->{{119.10447409733123`, 128.2173469387755}, {
          39.44906777509914, 96.27385474233888}}],
        StatusArea[#, 0.1215]& ,
        TagBoxNote->"0.1215"],
       StyleBox["0.1215`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.1215, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-7, 5], 0}, {
            Rational[-6, 5], 0.1665}]},
         ImageSizeCache->{{127.7173469387755, 136.83021978021978`}, {
          18.588035565010344`, 96.27385474233888}}],
        StatusArea[#, 0.1665]& ,
        TagBoxNote->"0.1665"],
       StyleBox["0.1665`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.1665, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-6, 5], 0}, {-1, 0.2025}]},
         ImageSizeCache->{{136.33021978021978`, 145.44309262166405`}, {
          1.899209796939303, 96.27385474233888}}],
        StatusArea[#, 0.2025]& ,
        TagBoxNote->"0.2025"],
       StyleBox["0.2025`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.2025, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-1, 0}, {
            Rational[-4, 5], 0.2785}]},
         ImageSizeCache->{{144.94309262166405`, 
          154.0559654631083}, {-33.33275571343289, 96.27385474233888}}],
        StatusArea[#, 0.2785]& ,
        TagBoxNote->"0.2785"],
       StyleBox["0.2785`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.2785, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-4, 5], 0}, {
            Rational[-3, 5], 0.3275}]},
         ImageSizeCache->{{153.5559654631083, 
          162.6688383045526}, {-56.04810189775178, 96.27385474233888}}],
        StatusArea[#, 0.3275]& ,
        TagBoxNote->"0.3275"],
       StyleBox["0.3275`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.3275, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-3, 5], 0}, {
            Rational[-2, 5], 0.3495}]},
         ImageSizeCache->{{162.1688383045526, 
          171.28171114599684`}, {-66.2468287560174, 96.27385474233888}}],
        StatusArea[#, 0.3495]& ,
        TagBoxNote->"0.3495"],
       StyleBox["0.3495`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.3495, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-2, 5], 0}, {
            Rational[-1, 5], 0.381}]},
         ImageSizeCache->{{170.78171114599684`, 
          179.8945839874411}, {-80.84955130307956, 96.27385474233888}}],
        StatusArea[#, 0.381]& ,
        TagBoxNote->"0.381"],
       StyleBox["0.381`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.381, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[-1, 5], 0}, {0, 0.378}]},
         ImageSizeCache->{{179.3945839874411, 
          188.50745682888538`}, {-79.45881582240698, 96.27385474233888}}],
        StatusArea[#, 0.378]& ,
        TagBoxNote->"0.378"],
       StyleBox["0.378`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.378, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0, 0}, {
            Rational[1, 5], 0.4105}]},
         ImageSizeCache->{{188.00745682888538`, 
          197.12032967032965`}, {-94.52511686302667, 96.27385474233888}}],
        StatusArea[#, 0.4105]& ,
        TagBoxNote->"0.4105"],
       StyleBox["0.4105`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.4105, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[1, 5], 0}, {
            Rational[2, 5], 0.405}]},
         ImageSizeCache->{{196.62032967032965`, 
          205.73320251177392`}, {-91.97543514846028, 96.27385474233888}}],
        StatusArea[#, 0.405]& ,
        TagBoxNote->"0.405"],
       StyleBox["0.405`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.405, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[2, 5], 0}, {
            Rational[3, 5], 0.3255}]},
         ImageSizeCache->{{205.23320251177392`, 
          214.34607535321817`}, {-55.12094491063674, 96.27385474233888}}],
        StatusArea[#, 0.3255]& ,
        TagBoxNote->"0.3255"],
       StyleBox["0.3255`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.3255, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[3, 5], 0}, {
            Rational[4, 5], 0.299}]},
         ImageSizeCache->{{213.84607535321817`, 
          222.95894819466247`}, {-42.836114831362224`, 96.27385474233888}}],
        StatusArea[#, 0.299]& ,
        TagBoxNote->"0.299"],
       StyleBox["0.299`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.299, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[4, 5], 0}, {1, 0.2705}]},
         ImageSizeCache->{{222.45894819466247`, 
          231.5718210361067}, {-29.624127764972656`, 96.27385474233888}}],
        StatusArea[#, 0.2705]& ,
        TagBoxNote->"0.2705"],
       StyleBox["0.2705`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.2705, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1, 0}, {
            Rational[6, 5], 0.2095}]},
         ImageSizeCache->{{231.0718210361067, 
          240.18469387755098`}, {-1.3458396579633813`, 96.27385474233888}}],
        StatusArea[#, 0.2095]& ,
        TagBoxNote->"0.2095"],
       StyleBox["0.2095`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.2095, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[6, 5], 0}, {
            Rational[7, 5], 0.1815}]},
         ImageSizeCache->{{239.68469387755098`, 248.79756671899526`}, {
          11.634358161647413`, 96.27385474233888}}],
        StatusArea[#, 0.1815]& ,
        TagBoxNote->"0.1815"],
       StyleBox["0.1815`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.1815, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[7, 5], 0}, {
            Rational[8, 5], 0.1315}]},
         ImageSizeCache->{{248.29756671899526`, 257.4104395604395}, {
          34.81328283952385, 96.27385474233888}}],
        StatusArea[#, 0.1315]& ,
        TagBoxNote->"0.1315"],
       StyleBox["0.1315`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.1315, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[8, 5], 0}, {
            Rational[9, 5], 0.0975}]},
         ImageSizeCache->{{256.9104395604395, 266.0233124018838}, {
          50.57495162047983, 96.27385474233888}}],
        StatusArea[#, 0.0975]& ,
        TagBoxNote->"0.0975"],
       StyleBox["0.0975`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0975, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[9, 5], 0}, {2, 0.0625}]},
         ImageSizeCache->{{265.5233124018838, 274.63618524332804`}, {
          66.80019889499334, 96.27385474233888}}],
        StatusArea[#, 0.0625]& ,
        TagBoxNote->"0.0625"],
       StyleBox["0.0625`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0625, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2, 0}, {
            Rational[11, 5], 0.0515}]},
         ImageSizeCache->{{274.13618524332804`, 283.24905808477234`}, {
          71.89956232412615, 96.27385474233888}}],
        StatusArea[#, 0.0515]& ,
        TagBoxNote->"0.0515"],
       StyleBox["0.0515`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0515, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[11, 5], 0}, {
            Rational[12, 5], 0.026}]},
         ImageSizeCache->{{282.74905808477234`, 291.8619309262166}, {
          83.72081390984314, 96.27385474233888}}],
        StatusArea[#, 0.026]& ,
        TagBoxNote->"0.026"],
       StyleBox["0.026`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.026, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[12, 5], 0}, {
            Rational[13, 5], 0.0175}]},
         ImageSizeCache->{{291.3619309262166, 300.4748037676609}, {
          87.66123110508212, 96.27385474233888}}],
        StatusArea[#, 0.0175]& ,
        TagBoxNote->"0.0175"],
       StyleBox["0.0175`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0175, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[13, 5], 0}, {
            Rational[14, 5], 0.011}]},
         ImageSizeCache->{{299.9748037676609, 309.08767660910513`}, {
          90.67449131320606, 96.27385474233888}}],
        StatusArea[#, 0.011]& ,
        TagBoxNote->"0.011"],
       StyleBox["0.011`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.011, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[14, 5], 0}, {3, 0.003}]},
         ImageSizeCache->{{308.58767660910513`, 317.7005494505494}, {
          94.3831192616663, 96.27385474233888}}],
        StatusArea[#, 0.003]& ,
        TagBoxNote->"0.003"],
       StyleBox["0.003`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.003, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3, 0}, {
            Rational[16, 5], 0.004}]},
         ImageSizeCache->{{317.2005494505494, 326.3134222919937}, {
          93.91954076810877, 96.27385474233888}}],
        StatusArea[#, 0.004]& ,
        TagBoxNote->"0.004"],
       StyleBox["0.004`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.004, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[16, 5], 0}, {
            Rational[17, 5], 0.003}]},
         ImageSizeCache->{{325.8134222919937, 334.9262951334379}, {
          94.3831192616663, 96.27385474233888}}],
        StatusArea[#, 0.003]& ,
        TagBoxNote->"0.003"],
       StyleBox["0.003`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.003, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[17, 5], 0}, {
            Rational[18, 5], 0.0015}]},
         ImageSizeCache->{{334.4262951334379, 343.53916797488216`}, {
          95.07848700200259, 96.27385474233888}}],
        StatusArea[#, 0.0015]& ,
        TagBoxNote->"0.0015"],
       StyleBox["0.0015`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0015, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{
            Rational[18, 5], 0}, {
            Rational[19, 5], 0.0015}]},
         ImageSizeCache->{{343.03916797488216`, 352.15204081632646`}, {
          95.07848700200259, 96.27385474233888}}],
        StatusArea[#, 0.0015]& ,
        TagBoxNote->"0.0015"],
       StyleBox["0.0015`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0015, {
         GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Hc0V2/8APCPz5RCicK3EJkJpYzQ+5YGSURKJWRUysoe2XtmfLIzIitb
EeFeGSl7fy4RKtIeQhS/+zvn9/vrnte599x7z/O8x/M8uywcDKzJJBLJl41E
+t+rZXnct/V1BtZGelq+S9IJeFcFJdT+MrCezI2OOOIErScemrgtM7AP+zbF
VF5yAonJupefvzOwP4Yu11pineDjpre5+DQDOylrZXp72Qkcbx40rm5hYCE5
rku8A87gKz6GXQtjYHKP/9Bcs1xB/rbVUk4QA4s8yz17p9EVphq+7p3wY2C6
HMyconFXOHqOkm7owcBOGXw74sTvBrQgWVfEhoH9/COg15roBtFTvtKCOgzs
bmeKfEy8O6SliyV0czEw3+My5q3FnlCskJpTy8HAfvSN/8nr84T6Nq7KHDoD
E9C8VF2z6Alj3/70uq7RsY1qJGN7TS8QPNbHKfSVjt1kHFI48MYL0j/fibDv
pmOK4yMTWiJ3IENjxJ87mo4h2iKyvK98oWRAJ+5PGB1rTmc6Byz6QsP15qy3
QXRssL61RkLMD17HlzTVetMx3WNLfII+frBzNvCv2S06ltdQozks4A+ZsfIe
FafomKtdaurAsD9kvQl3OLuBjhluWazVtwoE843svf40OjZ+2EMq7E4giCqH
yVWw0bHTPbcAZwZCfmzIF64VGhbBPt7W1xYIZRqBt7o+0rBaGau/3NJB0JDu
ff1kFw0TluP0fr8QBGMX7M007tIwcxWDPw8ehEBG0Jcm2yga5rVdWcu/KQRM
y22FMsJomEcaJfDOWAjM0G9NrPjRsOLaANEBnlCYf3L98lNHGhZioMP9OzgU
lrdevaBoQMPu3FsI2ecQBtv6DPWk+WhYeel3zpMmESDQIzl6awsNO05usk7y
joAdXaumZZw0TK8wtIueHgG7OnLtFek07OGkkKLOWATIYr9iNJao2POT/pet
L0XC0YrErrM4FeOU+rm4aB4FDnGD2l73qZimxJtY/fAYcIot6G9IpWJpBYoL
i49iwCXa++L6PSqmbHhhsrk3BrzCxWyCY6lYHl9cVdv2WAj1dw6P9aNifh7J
7uFFsZDhuPXFg6tUzJ6Dy3vr0F3o0Dc81ilOxZTEv3ZSxeJBJoXnYcMuKsa7
r6f2l0o8RL/pp5XtpGLcFsyjK2fiQd9e/0UcHxWTrQP/M97xwIrSPXWeRsW2
W5wq5RuOhw/tJ/Wn31EwtsdKN+VjEoBdQ91kKZeC/aPUWW7bzISbwasNH7Io
mJ8J4z8haSZ0ddbvHEunYPk7i0bgKBPiLqm+aUikYDcyegv7XZjA76FkERhE
wTyOzI0pjDNBqlrhBqclBWM5dDK/ltwDLWlxFzFRCjZQs8z+wyoZTBhfd18S
omCS+Fylh18yOL6vGY4TpGBRXw0kBdKSITlHS3mNh4K1Syk+zetNhlkB2xUW
hYJZ/45U+qCWAsEc1f6x78mY8WWHbjmBVGj+hMT8KSRjGTODo3vm0uBQmUl+
rzwZ61yo2O40lAmlw5sVnuwhY7bXS5ZclzNB5F9rXZokGQudGqhP35EF9NN7
u62FyZjj6QR1XessGJj/92uVi4xx731589RyFtwUzzoi9ZUN21WoXGCWkA1p
GdOv/UvYMKc275zNXTmwEnlt635pNmy+PftOglselAU7tMmIs2ENM2pJNdF5
YOHr4S62iw17/IzD5suDPHh1O3KcV4ANY1veaJrYmwdpxmW5S+xs2LeQzX7N
0g9BVWJRsfEDCcOMuo3Lph+CR3PIOa1CErbG9lWJYV4Av5fy7plKkrD3V17H
hKcUw6Xw2uQMMRL2yumUXmdlMWD8r1LHhElYVL2ruEhnMUSrfrt/np+E5ZkN
SpLWikHUWzX/zAYSJrf7h3Sa1SPI/ptu5zOyjj4fdFJRO1gCFzZ8LdcwXUdd
bj9qMn5XCq2iCQea7NZQhrNVdnxjBajR/Kr3WP1F59b2GLRKPgEmoqx8xGcF
dTl95Xng9zqwzDB+/zFrGUVLG2MlAIXeAqENbGmLaPKOgtb/hp6D0KaKfWjN
Akqd7+No3dYOHCKzvfPFP9GJgvbG7LGXYHsuJKWw8Dsan3ooOKWqG8xb3nQK
JXxBkwxDZPoK+0BUY+1sW8A8yhdPFTC+NwBFN6qnn9W8R2kDh8rFtYbg5q9K
k6i0afTQVnqiw89hSFX6oXY9chp1eyadH7w8DB2eCv9pek2jxhvV++6tDYM4
qRxfuTiN2j4KMC7hGIGpTSXnbwpMo8zu021FoiNgJJGvr50yhaaX8LrMnB2B
gKoDEVyyb9B9H6Sq5UpHYFKl+mT7xjfozXNjNU1VI6CO7qP7fppE8x5S9U89
HYHFTrmgL8WTaGaTjOK5lhGwfS/l0yU9ifZ68Onvx0fAmH/n7UjJCbTf2yqM
lzoKcr60i3SxcTRmTCXm/PlREKzvS/5AHUfXtSzd/14aBdpi+sir2TF06hFz
V6bZKLy223/ubvEYet/aq3joxihEXjHT498/hq46DmpweY/CnHrdcZkjOMo9
Y/K1InMUsldt958xG0WvTjduzpkZhWhlldsKR0bRMNFrMXWzo+DuTKngERtF
rcM4nbo/jsKZT6l7R2dH0MV/6zfmfo7Cv7F2KXP7EbQgP6HtLZkFl+pFhJ18
htFigd2Uv7tYsNVzaGNS+iAqYtRrm2rCguX1P1u+eQ2i1aqXr1qbs2AyVJhf
69IgytTcxNxjxYJC5s3dK/yDaJWXS2H+LRYcriBpmCYNoFkvzQ9f8GKBzZys
vUR8P2o5f+pxVhILztgbuPg59qNfmow0uNJYcOC3uxdLrx8lt6Est/ssWCO3
hEZy9aNXKYbqSnksYApdzPoa1Yf68QzY21WywPcRR44dZy+6Gq5l8OwVC7Tr
jEqFu3rQykSZwZfdLOB9kV3XH9mDqgzMHx7oY0HRjNLAQfYetCmrrrtvhAVD
ApaUNXI3al5eGh48wwKZ8GfWscuvUDqiEtS6zIJRK1uZ8rft6F5pg8VkERya
JvSVa/LbUfHlrN11ojjknz94rNGmHS1RT+ga2o2Di9balc5vbWhbbF3QqhQO
m2Xj4udWW9H25oM36Ptw0P5VvSzM24IO6FLfbEZwULBNoUmOPkdbHBRp+BEc
+N/f4ZFLe4720hlx6Zo4zI4cl1UXeY7K6Ez0cJ/EIbB+1MxYthkN7Xzb91gX
B1fKUsyuiCY0yiD927eLOBz7jRbIczehnn5R+JXLOPDMhTdr3GtEFa+Ob2s3
waHsleDvizkNaENWd1iIGfH++MMmCXX1KK+RqjRmhcPjIIZbNtSjlf3aTNI1
4nuufXfL2urQAMFgHbXrOAhftGh51f8Ulfwilp5lg4OxSKgM5WMNWidQVChm
j4MEj96xLY41aFRmiKmSAw4LFH5T4cUnqGqvziVNRxzi54ri1chP0Dj/JpHT
Tji8KutedhasRjcqKo/wu+GQkp3EE5hdhUZvRwr/Eb6WYCYbJ1GFqvN+rH/t
jgPF7YdZyf5KdNdUe1aEJw7uXjKxL++VoT4Y1TjzDg5nvn4fKc8vRc26qpLO
+hD/Y1ErnFRbgibt4NdZJzysfazSAi9GRTef2HrKD4eSRo4VrY9FqJy/ksQc
4eB9/UflVwvR2Z69pb7+OCgKmA6t7ihAUx0K+e4H4MARs3vnzN58VDXIcVEs
EIcZ0ifrjsMP0Yw/HdoPCcd/cF9imueiz26/PpEchMMNk8OI9+0HaJfSn2+M
YByQPmrE1cAc9Pd7Gw5nwpMOYgdNtLJQDY/9CSohOMRcqGiXunkfldqzYT2B
sDpoGP+OSkd1bux7PUf4k8Sr+ebSVLS21FlaORSHNK4L3rG9yajFjoxZf8La
i283Xf5xD7X08NraRnh5wjFTcisTFZeeKaeE4VDQ9k9+4UACmqFa/Eyd8PnS
yGbsfBxqY1yq5EiYQ0Y+X/BHNLqR9VIkk/CNP1ovqw9EoJTyac92wu0dFp9P
e4SgX9zHjswTFku5wz37LAAtuH3fgx6OA7lX1nptzRu18NsuJES40c78kUKo
C9oopbpfgfAPfqm3bYI30Z7UxcfqhPtKhN6cMziPquSezNckTL2qIxKueRj2
1kvSjxMuknvgvqneAtyX7w0hhFM97v8eHHYEtx33tigTnsBtynPOeMCuiD2N
koRF1ZRsHF74wepxy1EewopnAuKFsoOAfV3bfJn432Hf6/YhJmHwnPrjAouw
e7muzmf+KKCctmuqIiw4pShlOBwL3+xGE8MIm7LHkCe04gEv0GGdJ1wuQrq9
WTIRdo/PR4kQJqk6v9Gk3QPRmOGyd8R4nz07q+v+Ngk+zR48kkv4gc3FhuLm
FNj/5KCmCeFjaZC6xTcD/vH0JzUS83mvqopx3CQTwHbogzVh5/c8auo7s4G9
+8QjdsKt/0KKHFZzwEDJMVCDiJfPEah5xMcHMLCjJLmXiC++bX+25+K5cKLd
XMiE8DU529CR2odQyX0twIqIx9j6hxrf8/NhLMXYdIqI39oTbxY2JBVARQ2j
7DxhdjMDSw2XIqi0ZhTsJ+K9+K4KkqdQCmOXtTkKiXyhtmY1MA6UgVOUwekP
RH6ZLdNVbymXQ0WGzwZRwpEVH/kFsirg0KnspQAvHA4L1G2ZelgFe2bWH/8i
8vdW9efeeMlqcBCfmF53JfJbVyRWs4jwzJ67NMI/A8I4Ckoew07N3fb/iHqQ
/9GIYl9dAyNirYZZRD0ZDI5oFj5YC10TumnudsR4Czf69dfUwgbu0evatjhc
Mtz990D9U1D9HJ2OE/WIu+HnwipWD502Qv4lRD3ziLk7G9HTBPr76kV3EvXx
oWRLnpo+Cmb7W/VjL+Aw0Lxo8aUfBVfOjG1/jHDYtlrmUHgTg6VPifbPDHBw
lN/2eaN9M3yef+n0SwcH8ZR37wZcWqDi1dnf+zSI/LRea3n0pAXUcD11DTUc
DPbz5wYvtsBHjzaFo6o4+HfpXFXyaIWn56SlVA/iMEaqnkj1boNB7kt3xmWJ
+bEJGDEPfAHMv+wSvwRxCO9ke/Ku6QU4+TiYPucn6u/ewMQbqy9gwl9VNnob
Ea8/AvUdXTogKI0Vw82Dg7ln8Cu/ay9B9aZM4jA7DvsiwpoyT3XCiHA9yfw3
0d8KY/Jf8/TC4n6H755Ef+zh4Aox1+uFoQt7vmW+YEGHbazlu6heuBzOetrU
ygLTlJOb3ch9UKGd8vhrEwsMTbS6fbz7IOiGZdDmahaov9M+GWPXD5slnJWu
EP2ac+G0WsnZQahrL7ksbc2CzWP7Ld2dBsE37buP+VWi/2L8UUcTByE0v68v
/goLBKPfjbGGBkH90Abet0YskNp9x4tmPARx7g0WyAkWsR9/VGdqOgwjfa7N
H8RZ4PZ4g8qWW6PASjxwnj49ClMu7QfcgseBGqfXIn+SWC910AQL88bhkUWb
y+6jxHM7jq/jrePgwZ5mwqsxCn2tLS81aK8Bje2aeL9/FDDeZlNa6GtQr/qy
UV9oFLIePwtnhk2Az9jn08cWRsB0oeJ1VeQb2GD9Kb09YwS+1uk+d++YBtF9
vzQ3TQ9DfliOuVXEeyhcfVmbdnkIxBcfbfVIn4fnBtfzHSMGYLJKuFHtxhcg
7YxFFxr6wCh5KvxT3Hc4O9Gg4T3VDZkPoxtPJ/2EoGkbpRC2V0C9bPeF5rkA
aqWvlIJC2qHHvKjAIHgRflJC3JSXn8MTTsErS7bLUO30ulwUR0EibdcHxukV
SBlQmnJzrYcVt+B/jwz/wr7AZJmEM0/g08p/XIUqa1CpFsguLlUJ6u1hpyeR
Nfjv7vRC+PZKiI3/FcmrvQYL4Ou5TK8EBalORsDFNQjr0D2y8r4C3Iy82C55
rQHfpbeB4XkVQKpgLWxsWANBKyvXbrEK2GZ9b9wB1sH87M7Nr4zKIPt62NB/
YiSkJfTqEbknxcDufaNTTJKEKK7UqG9NKwbHWO3ne/aQkKJ0WRKnXzHAk40V
aook5L5ee/Nh7WKYJMdFXdYkIfJzHKZpk0WwIzPlaLolCbG4cM1wD2cRpAwV
VQjmkZBvuovXfDwLIO5IV7SAOBuygfuvFV9MHpxoylV8LcWGXM+oa7TxyIO/
h7zHMmXZEJepJLMeyzy4cUBGavcBNgTzcr7acSgPEMnwFjlNNiTVWTfOdz4X
vm86tqJ5lQ0Rmive/UU7F/RYz67b32dDPIRrxzO3PQAuh0dHW/jIiC7FJMbw
WRZYP0jePCpARryXVdeHkrKgYTho8uNOMrLzw8PDHk5ZYKNu4sUjQUYeabwf
FpPJgtYNnFVXlcjIM+EwRc70TPDKs99FukBG2L2ZXNuD7sMsvo+kkUJGakvm
PnveSgcNTqEe/QwyclYngMylk07sxzgyrLLJSHOGvVmzTDocKZhRji4kI+3H
9mSGfEyDDJdEh/GnZKQlznkp4FYaGHD/nvTEyQh5ofWyinMqNB172lgjSEHu
T4YJcaUmg+V0mlqIEAX5qh5/9JRvMrD7+tQZilKQOTM7tyzLZDCoPfrkuzQF
MZBidDHliP26dHeJjCoF8dhOtipqSwIu7pn0zAsURE3ecOnW8j0wxTd6hTIp
iFzmkex3DkxiffZ16VwKBZnZoSwiZsyEQp5+V7EMClLbblfggTDhp07SbSyX
giQZQdSNLUwIbRKxWamiIAKq0bMXHydCWe5BY/t+CmLlHj3nspYA/+zMlM5z
URHhT32lO3LjwULlS9QWHipyVb7vQWhsPLSTvae7+KhIxQuvfqpXPMQmJ0Vr
7qQiVwYWsjXOxoNQc/eMgiwVUUeN7LJI8XCYV/3uxlNUxCj14vdtlnHgV8//
AQuhIqn69oZTtrHwLjhf404EFbk/vOVYpFYsaOkdSFSOoSLNyVMcF3fHwuZ3
eofLmFRkYa6zyOp1DGRzhjHTc6lIBvX+tn1nYgAz/424NVOR4rHA/0JVooGN
MZC65x8VEdui7GgqGQn0cJdtKmw0xOvAgT+11Ejg2LA98RiNhtx2l36pMhMB
vBtNoq9w0hC3n4cfl9+PACnuWd+7O2mIz8jFRfttEXBm+4rlLw0a0k+uMObj
DocMSVG5Z77E/VMxV7btCIWcwtbiF4E0JKm0RGP7WgjkS1+XHAqlIbZfWw6q
TYVA+Z4SkS+xNCTl8qXPn/JC4Lm80lbhLBoSrGn/+bN8CMwrn1oORGlIVs9l
tbOng0FJy+n5KRIdwQJsX7TfD4SI/Ru/baHSkQ9Wk235IYHwekfefziDjtzx
ePwpxy4QAn8Mu1znpiMWJ/115jUCoSdNVTJYiI7IX4eKujcBcP0LKbpRnY5s
mlqZ0pEKgJSEu0YKnnRk4YxEhlCqH3y6IxW4dIeOSN+WC9Bx8IPD15vLmvzp
yN958ZeFx/3gndovhm44HeHzb+j89dMXFN6fr7dJpiMJXgX57Xq+8FJZSDj3
CR0xydhho8LjAyuvSz7w/aQj15xk0rfXecEx24443UU64mu7wehVnBfErL5V
CVmhI3dnB/yqbniBiOB/EQtkBnJOnnlYVMALTl6IkB7cykDEG90Ynnc8gdlv
fTPuIAOJ+iIe3X/aA+TahT5zeDIQL3aFqIc8buBhdIh51IeBXB077ZPy3RWa
3xmpewUwkPLaq3N1Pa5wjhITPR/BQH68x/TColzBG1mV7UhjIGEJnypOMFyh
o37ULqSBgZAfWoIMwwV4Tv3ia8QYyInuaLXPc85ggnM1LbQyEGl5Zxe8wxm+
LR3nsupmIK194YMHopxh28HHZUcnGchdk/z++S3OYN7ae95rhoGsWJhokBac
oMjw01rlLAPJCj9hjIw4gbqTqN6ubwyEYSrIUk93glC2w0vGvxgIzT9rfNnH
CfriLmbFLTEQZvTdzglzJxAUcT3ZscpA1t/kuH/SdIL/O89H/v88/38AE7yJ
8w==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesOrigin->{-4, 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  PlotRange->NCache[{{-4, 
      Rational[19, 5]}, {All, All}}, {{-4, 3.8}, {All, All}}],
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.1]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.512212862421875*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1014, 963},
WindowMargins->{{68, Automatic}, {Automatic, 3}},
DockedCells->(FrontEndExecute[{
   FrontEnd`NotebookApply[
    FrontEnd`InputNotebook[], #, Placeholder]}]& ),
ShowSelection->True,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3507014360-2959539"->{
  Cell[13370, 362, 771, 16, 62, "Print",
   CellTags->"Info3507014360-2959539"]},
 "Info3493106109-4865235"->{
  Cell[19029, 532, 493, 12, 42, "Print",
   CellTags->"Info3493106109-4865235"]},
 "Info3511718034-8664296"->{
  Cell[471045, 11664, 1393, 24, 62, "Print",
   CellTags->"Info3511718034-8664296"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3507014360-2959539", 587099, 14674},
 {"Info3493106109-4865235", 587210, 14677},
 {"Info3511718034-8664296", 587321, 14680}
 }
*)
(*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, 132, "Input"],
Cell[5859, 164, 295, 3, 50, "Output"]
}, Open  ]],
Cell[6169, 170, 1363, 31, 112, "Input"],
Cell[CellGroupData[{
Cell[7557, 205, 29, 0, 31, "Input"],
Cell[7589, 207, 165, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7791, 214, 340, 9, 31, "Input"],
Cell[8134, 225, 168, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8339, 232, 1099, 24, 92, "Input"],
Cell[9441, 258, 166, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9644, 265, 235, 6, 31, "Input"],
Cell[9882, 273, 87, 2, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10006, 280, 1684, 39, 232, "Input"],
Cell[11693, 321, 180, 2, 30, "Output"],
Cell[11876, 325, 183, 2, 30, "Output"],
Cell[12062, 329, 263, 4, 30, "Output"],
Cell[12328, 335, 165, 2, 30, "Output"],
Cell[12496, 339, 188, 2, 30, "Output"],
Cell[12687, 343, 179, 2, 30, "Output"],
Cell[12869, 347, 169, 2, 30, "Output"],
Cell[13041, 351, 177, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13255, 358, 112, 2, 31, "Input"],
Cell[13370, 362, 771, 16, 62, "Print",
 CellTags->"Info3507014360-2959539"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14178, 383, 153, 3, 31, "Input"],
Cell[14334, 388, 549, 8, 88, "Output"]
}, Open  ]],
Cell[14898, 399, 413, 10, 31, "Input"],
Cell[CellGroupData[{
Cell[15336, 413, 170, 3, 31, "Input"],
Cell[15509, 418, 182, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15728, 426, 636, 16, 52, "Input"],
Cell[16367, 444, 528, 13, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16932, 462, 228, 6, 31, "Input"],
Cell[17163, 470, 813, 22, 71, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18013, 497, 83, 2, 31, "Input"],
Cell[18099, 501, 463, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18599, 518, 113, 1, 31, "Input"],
Cell[18715, 521, 158, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18910, 528, 116, 2, 31, "Input"],
Cell[19029, 532, 493, 12, 42, "Print",
 CellTags->"Info3493106109-4865235"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19559, 549, 165, 3, 52, "Input"],
Cell[19727, 554, 758, 25, 47, "Output"],
Cell[20488, 581, 1132, 35, 101, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21657, 621, 97, 2, 31, "Input"],
Cell[21757, 625, 1111, 34, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22905, 664, 391, 4, 72, "Input"],
Cell[23299, 670, 440, 6, 69, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23776, 681, 28, 0, 31, "Input"],
Cell[23807, 683, 98, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23942, 689, 55, 1, 31, "Input"],
Cell[24000, 692, 154, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24191, 699, 84, 2, 31, "Input"],
Cell[24278, 703, 162, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24477, 710, 171, 5, 31, "Input"],
Cell[24651, 717, 611, 13, 30, "Output"]
}, Open  ]],
Cell[25277, 733, 177, 2, 52, "Input"],
Cell[CellGroupData[{
Cell[25479, 739, 119, 2, 31, "Input"],
Cell[25601, 743, 546, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26184, 760, 77, 2, 31, "Input"],
Cell[26264, 764, 189, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26490, 771, 116, 3, 31, "Input"],
Cell[26609, 776, 111, 1, 30, "Output"]
}, Open  ]],
Cell[26735, 780, 243, 3, 72, "Input"],
Cell[CellGroupData[{
Cell[27003, 787, 347, 10, 31, "Input"],
Cell[27353, 799, 307, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27697, 813, 302, 8, 52, "Input"],
Cell[28002, 823, 120, 2, 30, "Output"],
Cell[28125, 827, 119, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28281, 834, 313, 9, 31, "Input"],
Cell[28597, 845, 507, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29141, 862, 64, 1, 31, "Input"],
Cell[29208, 865, 800, 21, 86, "Output"]
}, Open  ]],
Cell[30023, 889, 126, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[30174, 894, 207, 6, 31, "Input"],
Cell[30384, 902, 9460, 161, 231, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39881, 1068, 291, 9, 31, "Input"],
Cell[40175, 1079, 18293, 307, 231, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58505, 1391, 325, 9, 31, "Input"],
Cell[58833, 1402, 60110, 978, 430, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[118980, 2385, 258, 8, 31, "Input"],
Cell[119241, 2395, 271, 8, 54, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119549, 2408, 259, 8, 31, "Input"],
Cell[119811, 2418, 139, 2, 30, "Output"]
}, Open  ]],
Cell[119965, 2423, 1575, 32, 170, "Input"],
Cell[CellGroupData[{
Cell[121565, 2459, 1151, 30, 192, "Input"],
Cell[122719, 2491, 178, 4, 30, "Output"],
Cell[122900, 2497, 121, 2, 30, "Output"],
Cell[123024, 2501, 210, 6, 30, "Output"],
Cell[123237, 2509, 210, 6, 30, "Output"],
Cell[123450, 2517, 322, 12, 56, "Output"],
Cell[123775, 2531, 132, 3, 33, "Output"],
Cell[123910, 2536, 132, 3, 33, "Output"]
}, Open  ]],
Cell[124057, 2542, 178, 3, 152, "Input"],
Cell[124238, 2547, 169, 3, 39, "Input"],
Cell[124410, 2552, 569, 14, 72, "Input"],
Cell[CellGroupData[{
Cell[125004, 2570, 194, 3, 52, "Input"],
Cell[125201, 2575, 173, 3, 30, "Output"],
Cell[125377, 2580, 176, 3, 30, "Output"]
}, Open  ]],
Cell[125568, 2586, 535, 14, 52, "Input"],
Cell[CellGroupData[{
Cell[126128, 2604, 66, 1, 31, "Input"],
Cell[126197, 2607, 117, 2, 30, "Output"]
}, Open  ]],
Cell[126329, 2612, 271, 8, 31, "Input"],
Cell[CellGroupData[{
Cell[126625, 2624, 86, 2, 31, "Input"],
Cell[126714, 2628, 202, 3, 30, "Output"]
}, Open  ]],
Cell[126931, 2634, 8158, 177, 552, "Input"],
Cell[CellGroupData[{
Cell[135114, 2815, 1122, 27, 92, "Input"],
Cell[CellGroupData[{
Cell[136261, 2846, 542, 11, 23, "Print"],
Cell[136806, 2859, 512, 10, 23, "Print"],
Cell[137321, 2871, 512, 10, 23, "Print"],
Cell[137836, 2883, 511, 10, 23, "Print"],
Cell[138350, 2895, 509, 10, 23, "Print"],
Cell[138862, 2907, 607, 13, 23, "Print"],
Cell[139472, 2922, 722, 19, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[140243, 2947, 1008, 28, 92, "Input"],
Cell[141254, 2977, 166, 4, 30, "Output"],
Cell[141423, 2983, 121, 2, 30, "Output"],
Cell[141547, 2987, 121, 2, 30, "Output"]
}, Open  ]],
Cell[141683, 2992, 178, 3, 152, "Input"],
Cell[141864, 2997, 166, 3, 39, "Input"],
Cell[142033, 3002, 925, 20, 112, "Input"],
Cell[CellGroupData[{
Cell[142983, 3026, 2834, 60, 241, "Input"],
Cell[145820, 3088, 2832, 60, 213, "Output"]
}, Open  ]],
Cell[148667, 3151, 5201, 117, 392, "Input"],
Cell[CellGroupData[{
Cell[153893, 3272, 145, 3, 52, "Input"],
Cell[CellGroupData[{
Cell[154063, 3279, 21416, 697, 234, "Print"],
Cell[175482, 3978, 470, 7, 23, "Print"],
Cell[175955, 3987, 24568, 702, 287, "Print"]
}, Open  ]]
}, Open  ]],
Cell[200550, 4693, 201, 3, 172, "Input"],
Cell[200754, 4698, 210, 5, 39, "Input"],
Cell[200967, 4705, 274, 3, 52, "Input"],
Cell[CellGroupData[{
Cell[201266, 4712, 132, 3, 31, "Input"],
Cell[201401, 4717, 234, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[201672, 4726, 343, 9, 31, "Input"],
Cell[202018, 4737, 1330, 32, 72, "Output"]
}, Open  ]],
Cell[203363, 4772, 218, 2, 52, "Input"],
Cell[CellGroupData[{
Cell[203606, 4778, 134, 3, 31, "Input"],
Cell[203743, 4783, 206, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[203986, 4792, 339, 9, 31, "Input"],
Cell[204328, 4803, 1244, 30, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[205609, 4838, 57, 1, 31, "Input"],
Cell[205669, 4841, 1272, 30, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[206978, 4876, 137, 1, 31, "Input"],
Cell[207118, 4879, 178, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[207333, 4886, 284, 8, 31, "Input"],
Cell[207620, 4896, 938, 23, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208595, 4924, 58, 1, 31, "Input"],
Cell[208656, 4927, 203, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208896, 4936, 432, 12, 52, "Input"],
Cell[209331, 4950, 302, 9, 30, "Output"],
Cell[209636, 4961, 70, 1, 30, "Output"]
}, Open  ]],
Cell[209721, 4965, 128, 1, 31, "Input"],
Cell[209852, 4968, 248, 7, 31, "Input"],
Cell[CellGroupData[{
Cell[210125, 4979, 87, 2, 31, "Input"],
Cell[210215, 4983, 124, 3, 30, "Output"]
}, Open  ]],
Cell[210354, 4989, 89, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[210468, 4994, 89, 2, 31, "Input"],
Cell[210560, 4998, 90, 1, 30, "Output"]
}, Open  ]],
Cell[210665, 5002, 193, 2, 52, "Input"],
Cell[210861, 5006, 121, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[211007, 5013, 189, 5, 52, "Input"],
Cell[211199, 5020, 70, 1, 30, "Output"],
Cell[211272, 5023, 72, 1, 30, "Output"]
}, Open  ]],
Cell[211359, 5027, 26, 0, 31, "Input"],
Cell[211388, 5029, 250, 7, 31, "Input"],
Cell[CellGroupData[{
Cell[211663, 5040, 179, 5, 31, "Input"],
Cell[211845, 5047, 4728, 77, 249, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[216610, 5129, 78, 0, 31, "Input"],
Cell[216691, 5131, 123, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[216851, 5137, 500, 15, 31, "Input"],
Cell[217354, 5154, 13502, 216, 248, "Output"]
}, Open  ]],
Cell[230871, 5373, 83, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[230979, 5378, 80, 2, 31, "Input"],
Cell[231062, 5382, 72, 1, 30, "Output"]
}, Open  ]],
Cell[231149, 5386, 78, 0, 31, "Input"],
Cell[231230, 5388, 342, 10, 31, "Input"],
Cell[CellGroupData[{
Cell[231597, 5402, 199, 6, 31, "Input"],
Cell[231799, 5410, 2268, 43, 238, "Output"]
}, Open  ]],
Cell[234082, 5456, 128, 1, 31, "Input"],
Cell[234213, 5459, 664, 18, 72, "Input"],
Cell[CellGroupData[{
Cell[234902, 5481, 178, 5, 31, "Input"],
Cell[235083, 5488, 2960, 55, 245, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238080, 5548, 102, 2, 31, "Input"],
Cell[238185, 5552, 74, 1, 30, "Output"]
}, Open  ]],
Cell[238274, 5556, 483, 11, 137, "Input"],
Cell[238760, 5569, 176, 2, 52, "Input"],
Cell[238939, 5573, 94, 1, 31, "Input"],
Cell[239036, 5576, 168, 4, 31, "Input"],
Cell[239207, 5582, 173, 5, 31, "Input"],
Cell[239383, 5589, 524, 6, 112, "Input"],
Cell[239910, 5597, 5825, 136, 572, "Input"],
Cell[CellGroupData[{
Cell[245760, 5737, 91, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[245876, 5743, 379, 8, 23, "Print"],
Cell[246258, 5753, 379, 8, 23, "Print"],
Cell[246640, 5763, 377, 8, 23, "Print"],
Cell[247020, 5773, 379, 8, 23, "Print"],
Cell[247402, 5783, 381, 8, 23, "Print"],
Cell[247786, 5793, 20469, 670, 238, "Print"],
Cell[268258, 6465, 21106, 674, 229, "Print"],
Cell[289367, 7141, 4185, 94, 155, "Print"]
}, Open  ]]
}, Open  ]],
Cell[293579, 7239, 273, 4, 232, "Input"],
Cell[293855, 7245, 80, 1, 72, "Input"],
Cell[293938, 7248, 224, 3, 192, "Input"],
Cell[294165, 7253, 240, 6, 31, "Input"],
Cell[294408, 7261, 101, 1, 31, "Input"],
Cell[294512, 7264, 570, 16, 31, "Input"],
Cell[295085, 7282, 513, 16, 52, "Input"],
Cell[295601, 7300, 100, 1, 31, "Input"],
Cell[295704, 7303, 3764, 91, 372, "Input"],
Cell[CellGroupData[{
Cell[299493, 7398, 163, 4, 31, "Input"],
Cell[CellGroupData[{
Cell[299681, 7406, 282, 6, 23, "Print"],
Cell[299966, 7414, 248, 6, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[300241, 7424, 162, 2, 52, "Input"],
Cell[300406, 7428, 6413, 179, 306, "Input"],
Cell[CellGroupData[{
Cell[306844, 7611, 85, 2, 31, "Input"],
Cell[306932, 7615, 3311, 50, 290, "Print"],
Cell[310246, 7667, 5023, 90, 238, "Output"]
}, Open  ]],
Cell[315284, 7760, 45, 0, 52, "Input"],
Cell[315332, 7762, 208, 5, 31, "Input"],
Cell[315543, 7769, 9340, 203, 912, "Input"],
Cell[CellGroupData[{
Cell[324908, 7976, 283, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[325216, 7985, 375, 8, 23, "Print"],
Cell[325594, 7995, 342, 7, 23, "Print"],
Cell[325939, 8004, 319, 6, 23, "Print"],
Cell[326261, 8012, 309, 6, 23, "Print"],
Cell[326573, 8020, 299, 6, 23, "Print"],
Cell[326875, 8028, 289, 6, 23, "Print"],
Cell[327167, 8036, 397, 9, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[327591, 8049, 45, 0, 52, "Input"],
Cell[327639, 8051, 186, 4, 31, "Input"],
Cell[CellGroupData[{
Cell[327850, 8059, 6772, 153, 572, "Input"],
Cell[CellGroupData[{
Cell[334647, 8216, 245, 6, 23, "Print"],
Cell[334895, 8224, 655, 19, 50, "Print"],
Cell[335553, 8245, 245, 6, 23, "Print"],
Cell[335801, 8253, 657, 19, 50, "Print"],
Cell[336461, 8274, 242, 6, 23, "Print"]
}, Open  ]],
Cell[336718, 8283, 94, 1, 30, "Output"]
}, Open  ]],
Cell[336827, 8287, 146, 2, 72, "Input"],
Cell[336976, 8291, 301, 7, 39, "Input"],
Cell[CellGroupData[{
Cell[337302, 8302, 2665, 67, 332, "Input"],
Cell[339970, 8371, 17199, 497, 392, "Output"],
Cell[CellGroupData[{
Cell[357194, 8872, 183, 2, 23, "Print"],
Cell[357380, 8876, 182, 2, 23, "Print"],
Cell[357565, 8880, 3775, 88, 100, "Print"]
}, Open  ]]
}, Open  ]],
Cell[361367, 8972, 89, 1, 52, "Input"],
Cell[361459, 8975, 92, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[361576, 8980, 267, 3, 64, "Title"],
Cell[CellGroupData[{
Cell[361868, 8987, 1191, 31, 72, "Input"],
Cell[363062, 9020, 2132, 45, 380, "Output"],
Cell[365197, 9067, 2061, 44, 366, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[367295, 9116, 4232, 112, 232, "Input"],
Cell[371530, 9230, 2910, 59, 366, "Output"],
Cell[374443, 9291, 2893, 60, 366, "Output"]
}, Open  ]],
Cell[377351, 9354, 113, 1, 52, "Input"],
Cell[377467, 9357, 124, 2, 31, "Input"],
Cell[377594, 9361, 168, 3, 44, "Input"],
Cell[377765, 9366, 1636, 45, 107, "Input"],
Cell[379404, 9413, 3331, 96, 132, "Input"],
Cell[CellGroupData[{
Cell[382760, 9513, 2122, 56, 112, "Input"],
Cell[384885, 9571, 79, 1, 30, "Output"]
}, Open  ]],
Cell[384979, 9575, 3573, 80, 212, "Input"],
Cell[CellGroupData[{
Cell[388577, 9659, 219, 6, 31, "Input"],
Cell[CellGroupData[{
Cell[388821, 9669, 777, 17, 38, "Print"],
Cell[389601, 9688, 789, 18, 26, "Print"],
Cell[390393, 9708, 557, 14, 38, "Print"],
Cell[390953, 9724, 541, 11, 23, "Print"],
Cell[391497, 9737, 79, 1, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[391625, 9744, 1324, 37, 72, "Input"],
Cell[392952, 9783, 3211, 84, 88, "Output"],
Cell[396166, 9869, 1032, 24, 30, "Output"]
}, Open  ]],
Cell[397213, 9896, 89, 1, 52, "Input"],
Cell[397305, 9899, 89, 1, 52, "Input"],
Cell[397397, 9902, 246, 5, 44, "Input"],
Cell[397646, 9909, 398, 8, 34, "Input"],
Cell[398047, 9919, 789, 20, 72, "Input"],
Cell[CellGroupData[{
Cell[398861, 9943, 489, 11, 52, "Input"],
Cell[399353, 9956, 158, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[399548, 9964, 498, 14, 52, "Input"],
Cell[400049, 9980, 169, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[400255, 9989, 1089, 27, 92, "Input"],
Cell[401347, 10018, 503, 15, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[401887, 10038, 1142, 30, 72, "Input"],
Cell[403032, 10070, 637, 18, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[403706, 10093, 1073, 31, 72, "Input"],
Cell[404782, 10126, 3047, 89, 105, "Output"]
}, Open  ]],
Cell[407844, 10218, 86, 1, 52, "Input"],
Cell[407933, 10221, 92, 1, 31, "Input"],
Cell[408028, 10224, 89, 1, 31, "Input"],
Cell[408120, 10227, 92, 1, 31, "Input"],
Cell[408215, 10230, 92, 1, 31, "Input"],
Cell[408310, 10233, 214, 4, 58, "Input"],
Cell[408527, 10239, 974, 24, 132, "Input"],
Cell[CellGroupData[{
Cell[409526, 10267, 119, 2, 31, "Input"],
Cell[409648, 10271, 726, 18, 30, "Output"]
}, Open  ]],
Cell[410389, 10292, 1239, 23, 92, "Input"],
Cell[CellGroupData[{
Cell[411653, 10319, 537, 12, 72, "Input"],
Cell[412193, 10333, 224, 5, 30, "Output"],
Cell[412420, 10340, 224, 5, 30, "Output"]
}, Open  ]],
Cell[412659, 10348, 800, 17, 92, "Input"],
Cell[413462, 10367, 10794, 215, 752, "Input"],
Cell[CellGroupData[{
Cell[424281, 10586, 915, 21, 112, "Input"],
Cell[CellGroupData[{
Cell[425221, 10611, 344, 7, 23, "Print"],
Cell[425568, 10620, 335, 7, 23, "Print"],
Cell[425906, 10629, 354, 7, 23, "Print"],
Cell[426263, 10638, 197, 3, 23, "Print"]
}, Open  ]],
Cell[426475, 10644, 211, 4, 33, "Output"],
Cell[CellGroupData[{
Cell[426711, 10652, 346, 7, 23, "Print"],
Cell[427060, 10661, 340, 7, 23, "Print"],
Cell[427403, 10670, 387, 8, 23, "Print"],
Cell[427793, 10680, 196, 3, 23, "Print"]
}, Open  ]],
Cell[428004, 10686, 208, 4, 30, "Output"],
Cell[CellGroupData[{
Cell[428237, 10694, 350, 7, 23, "Print"],
Cell[428590, 10703, 342, 7, 23, "Print"],
Cell[428935, 10712, 369, 8, 23, "Print"],
Cell[429307, 10722, 197, 3, 23, "Print"]
}, Open  ]],
Cell[429519, 10728, 208, 4, 30, "Output"],
Cell[CellGroupData[{
Cell[429752, 10736, 351, 7, 23, "Print"],
Cell[430106, 10745, 344, 7, 23, "Print"],
Cell[430453, 10754, 365, 8, 23, "Print"],
Cell[430821, 10764, 193, 3, 23, "Print"]
}, Open  ]],
Cell[431029, 10770, 207, 4, 30, "Output"]
}, Open  ]],
Cell[431251, 10777, 83, 1, 52, "Input"],
Cell[431337, 10780, 91, 1, 31, "Input"],
Cell[431431, 10783, 604, 16, 31, "Input"],
Cell[CellGroupData[{
Cell[432060, 10803, 378, 8, 31, "Input"],
Cell[432441, 10813, 239, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[432717, 10824, 1417, 27, 72, "Input"],
Cell[434137, 10853, 1324, 24, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[435498, 10882, 179, 4, 31, "Input"],
Cell[435680, 10888, 4995, 105, 509, "Output"]
}, Open  ]],
Cell[440690, 10996, 90, 1, 31, "Input"],
Cell[440783, 10999, 92, 1, 31, "Input"],
Cell[440878, 11002, 2160, 51, 232, "Input"],
Cell[443041, 11055, 90, 1, 31, "Input"],
Cell[443134, 11058, 7354, 160, 552, "Input"],
Cell[450491, 11220, 86, 1, 52, "Input"],
Cell[450580, 11223, 86, 1, 31, "Input"],
Cell[450669, 11226, 166, 3, 58, "Input"],
Cell[450838, 11231, 233, 5, 44, "Input"],
Cell[CellGroupData[{
Cell[451096, 11240, 1001, 16, 162, "Subsubtitle"],
Cell[CellGroupData[{
Cell[452122, 11260, 3441, 92, 112, "Input"],
Cell[455566, 11354, 849, 17, 361, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[456452, 11376, 1129, 28, 52, "Input"],
Cell[457584, 11406, 1204, 25, 361, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[458825, 11436, 1228, 31, 52, "Input"],
Cell[460056, 11469, 10837, 186, 349, 1147, 25, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[470930, 11660, 112, 2, 31, "Input"],
Cell[471045, 11664, 1393, 24, 62, "Print",
 CellTags->"Info3511718034-8664296"]
}, Open  ]],
Cell[CellGroupData[{
Cell[472475, 11693, 1104, 27, 52, "Input"],
Cell[473582, 11722, 1211, 27, 319, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[474830, 11754, 755, 20, 31, "Input"],
Cell[475588, 11776, 578, 15, 241, "Output"]
}, Open  ]],
Cell[476181, 11794, 90, 1, 31, "Input"],
Cell[476274, 11797, 91, 1, 31, "Input"],
Cell[476368, 11800, 214, 5, 58, "Input"],
Cell[476585, 11807, 291, 6, 44, "Input"],
Cell[476879, 11815, 440, 14, 31, "Input",
 CellID->978019076],
Cell[CellGroupData[{
Cell[477344, 11833, 274, 8, 31, "Input",
 CellID->65480992],
Cell[477621, 11843, 8575, 150, 142, "Output"]
}, Open  ]],
Cell[486211, 11996, 220, 8, 23, "ExampleText",
 CellID->222908597],
Cell[CellGroupData[{
Cell[486456, 12008, 395, 11, 31, "Input",
 CellID->18932906],
Cell[486854, 12021, 17700, 429, 243, "Output"]
}, Open  ]],
Cell[504569, 12453, 633, 17, 52, "Input"],
Cell[CellGroupData[{
Cell[505227, 12474, 189, 6, 31, "Input"],
Cell[505419, 12482, 8382, 144, 250, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[513838, 12631, 276, 7, 31, "Input"],
Cell[514117, 12640, 35923, 995, 243, "Output"]
}, Open  ]],
Cell[550055, 13638, 325, 9, 31, "Input"],
Cell[CellGroupData[{
Cell[550405, 13651, 287, 7, 31, "Input"],
Cell[550695, 13660, 35923, 995, 243, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)