random_bandlimited_functions.nb

(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    178408,       4305]
NotebookOptionsPosition[    155758,       4043]
NotebookOutlinePosition[    156250,       4061]
CellTagsIndexPosition[    156207,       4058]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Creating", " ", "a", " ", "random", " ", "bivariate", " ", "polynomial", 
    " ", "and", " ", "finding", " ", "its", " ", "length", " ", "upto", " ", 
    "a", " ", "constant"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "This", " ", "portion", " ", "of", " ", "the", " ", "code", " ", "takes", 
     " ", "a", " ", "long", " ", "long", " ", "time", " ", "to", " ", "run"}],
     ",", " ", 
    RowBox[{
    "it", " ", "is", " ", "better", " ", "to", " ", "use", " ", "copy", " ", 
     "paste", "\[IndentingNewLine]", "the", " ", "values", " ", "in", " ", 
     "the", " ", "output", " ", "to", " ", "the", " ", "lenCur", " ", "array",
      " ", "manually"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"n", "=", "2"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"lenCur", " ", "=", " ", 
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"20", ",", "9"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "lenCur", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"n", "=", "2"}], ",", 
     RowBox[{"n", "\[LessEqual]", "10"}], ",", 
     RowBox[{"n", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Print", "[", 
       RowBox[{"n", "*", "100"}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"count", "=", "1"}], ",", 
        RowBox[{"count", "\[LessEqual]", "20"}], ",", 
        RowBox[{"count", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Print", "[", "count", "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"Coeffs", " ", "=", " ", 
          RowBox[{"RandomVariate", "[", 
           RowBox[{
            RowBox[{"NormalDistribution", "[", "]"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", "n"}], "+", "2"}], ")"}], ",", 
              RowBox[{
               RowBox[{"2", "n"}], "+", "2"}]}], "}"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"a", "=", 
          RowBox[{"Coeffs", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"1", ";;", 
              RowBox[{
               RowBox[{"2", "n"}], "+", "1"}]}], ",", 
             RowBox[{"1", ";;", 
              RowBox[{"n", "+", "1"}]}]}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"aI", "=", 
          RowBox[{"Coeffs", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"1", ";;", 
              RowBox[{
               RowBox[{"2", "n"}], "+", "1"}]}], ",", 
             RowBox[{
              RowBox[{"n", "+", "2"}], ";;", 
              RowBox[{
               RowBox[{"2", "n"}], "+", "2"}]}]}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"b", "=", 
          RowBox[{"Coeffs", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"2", "n"}], "+", "2"}], ";;", 
              RowBox[{
               RowBox[{"4", "n"}], "+", "2"}]}], ",", 
             RowBox[{"1", ";;", 
              RowBox[{"n", "+", "1"}]}]}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"bI", "=", 
          RowBox[{"Coeffs", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"2", "n"}], "+", "2"}], ";;", 
              RowBox[{
               RowBox[{"4", "n"}], "+", "2"}]}], ",", 
             RowBox[{
              RowBox[{"n", "+", "2"}], ";;", 
              RowBox[{
               RowBox[{"2", "n"}], "+", "2"}]}]}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"f", "[", 
           RowBox[{"s_", ",", "t_"}], "]"}], "=", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"k", "+", "n", "+", "1"}], ",", 
                 RowBox[{"l", "+", "1"}]}], "]"}], "]"}], "*", 
              RowBox[{"Cos", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", "k", ")"}], "*", "s"}], "+", " ", 
                RowBox[{
                 RowBox[{"(", "l", ")"}], "*", "t"}]}], "]"}]}], "+", " ", 
             RowBox[{
              RowBox[{"aI", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"k", "+", "n", "+", "1"}], ",", 
                 RowBox[{"l", "+", "1"}]}], "]"}], "]"}], "*", 
              RowBox[{"Sin", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", "k", ")"}], "*", "s"}], "+", " ", 
                RowBox[{
                 RowBox[{"(", "l", ")"}], "*", "t"}]}], "]"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", 
              RowBox[{"-", "n"}], ",", "n"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"l", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"g", "[", 
           RowBox[{"s_", ",", "t_"}], "]"}], "=", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"b", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"k", "+", "n", "+", "1"}], ",", 
                 RowBox[{"l", "+", "1"}]}], "]"}], "]"}], "*", 
              RowBox[{"Cos", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", "k", ")"}], "*", "s"}], " ", "+", 
                RowBox[{
                 RowBox[{"(", "l", ")"}], "*", "t"}]}], "]"}]}], "+", 
             RowBox[{
              RowBox[{"bI", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"k", "+", "n", "+", "1"}], ",", 
                 RowBox[{"l", "+", "1"}]}], "]"}], "]"}], "*", 
              RowBox[{"Sin", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", "k", ")"}], "*", "s"}], "+", " ", 
                RowBox[{
                 RowBox[{"(", "l", ")"}], "*", "t"}]}], "]"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", 
              RowBox[{"-", "n"}], ",", "n"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"l", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\n", 
         RowBox[{"(*", 
          RowBox[{
          "Compute", " ", "the", " ", "Det", " ", "of", " ", "Jacobian"}], 
          "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"DJ", "[", 
           RowBox[{"s_", ",", "t_"}], "]"}], "=", 
          RowBox[{"Det", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"D", "[", 
                RowBox[{
                 RowBox[{"f", "[", 
                  RowBox[{"s", ",", "t"}], "]"}], ",", "s"}], "]"}], ",", 
               RowBox[{"D", "[", 
                RowBox[{
                 RowBox[{"f", "[", 
                  RowBox[{"s", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "}"}], 
             ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"D", "[", 
                RowBox[{
                 RowBox[{"g", "[", 
                  RowBox[{"s", ",", "t"}], "]"}], ",", "s"}], "]"}], ",", 
               RowBox[{"D", "[", 
                RowBox[{
                 RowBox[{"g", "[", 
                  RowBox[{"s", ",", "t"}], "]"}], ",", "t"}], "]"}]}], 
              "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{"Find", " ", "the", " ", "Critical", " ", "curve"}], "*)"}],
          "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"CritCurve", "=", 
            RowBox[{"Solve", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"DJ", "[", 
                RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "y"}], "}"}], ",", "Reals"}], "]"}]}], ";"}],
           "*)"}], "\[IndentingNewLine]", 
         RowBox[{"image", " ", "=", " ", 
          RowBox[{"ContourPlot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"DJ", "[", 
              RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "0", ",", "6.283"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"y", ",", "0", ",", "6.283"}], "}"}], ",", 
            RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"imageMat", " ", "=", " ", 
          RowBox[{"ImageData", "[", "image", "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
          "Estimate", " ", "length", " ", "by", " ", "averaging", " ", 
           "number", " ", "of", " ", "intersections", " ", "of", " ", 
           "horizontal", " ", "lines", " ", "with", " ", "the", " ", 
           "critical", " ", "curve", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Buffon", "'"}], "s", " ", "needle", " ", "trick"}], 
             ")"}], ".", "\[IndentingNewLine]", "This"}], " ", "gives", " ", 
           "the", " ", "length", " ", "upto", " ", "a", " ", 
           RowBox[{"constant", "."}]}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"i", "=", "1"}], ",", 
           RowBox[{"i", "\[LessEqual]", 
            RowBox[{
             RowBox[{"Dimensions", "[", "imageMat", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{"i", "++"}], ",", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"j", "=", "1"}], ",", 
             RowBox[{"j", "\[LessEqual]", 
              RowBox[{
               RowBox[{"Dimensions", "[", "imageMat", "]"}], "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], ",", 
             RowBox[{"j", "++"}], ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"imageMat", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "j", ",", "1"}], "]"}], "]"}], "<", 
                 "0.85"}], "||", 
                RowBox[{
                 RowBox[{"imageMat", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "j", ",", "2"}], "]"}], "]"}], "<", 
                 "0.85"}], "||", 
                RowBox[{
                 RowBox[{"imageMat", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "j", ",", "3"}], "]"}], "]"}], "<", 
                 "0.85"}]}], ",", 
               RowBox[{
                RowBox[{"lenCur", "[", 
                 RowBox[{"[", 
                  RowBox[{"count", ",", 
                   RowBox[{"n", "-", "1"}]}], "]"}], "]"}], "=", 
                RowBox[{
                 RowBox[{"lenCur", "[", 
                  RowBox[{"[", 
                   RowBox[{"count", ",", 
                    RowBox[{"n", "-", "1"}]}], "]"}], "]"}], "+", "1"}]}], 
               ",", "0"}], "]"}]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]",
        "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "lenCur", "]"}], ";"}]}], "]"}], 
   "\[IndentingNewLine]", "lenCur", "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"Mean", "[", "lenCur", "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"(*", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Length", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"DJ", "[", 
           RowBox[{"x", ",", "0.5"}], "]"}], "\[Equal]", "0"}], " ", "&&", 
         " ", 
         RowBox[{"0", " ", "\[LessEqual]", " ", "x"}], " ", "&&", " ", 
         RowBox[{"x", "\[LessEqual]", "6.283"}]}], ",", 
        RowBox[{"{", "x", "}"}]}], "]"}], "]"}], "+", "\[IndentingNewLine]", 
     RowBox[{"Length", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"DJ", "[", 
           RowBox[{"x", ",", "0.2"}], "]"}], "\[Equal]", "0"}], " ", "&&", 
         " ", 
         RowBox[{"0", " ", "\[LessEqual]", " ", "x"}], " ", "&&", " ", 
         RowBox[{"x", "\[LessEqual]", "6.283"}]}], ",", 
        RowBox[{"{", "x", "}"}]}], "]"}], "]"}], "+", "\[IndentingNewLine]", 
     RowBox[{"Length", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"DJ", "[", 
           RowBox[{"x", ",", "1"}], "]"}], "\[Equal]", "0"}], " ", "&&", " ", 
         
         RowBox[{"0", " ", "\[LessEqual]", " ", "x"}], " ", "&&", " ", 
         RowBox[{"x", "\[LessEqual]", "6.283"}]}], ",", 
        RowBox[{"{", "x", "}"}]}], "]"}], "]"}], "+", "\[IndentingNewLine]", 
     RowBox[{"Length", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"DJ", "[", 
           RowBox[{"x", ",", "1.5"}], "]"}], "\[Equal]", "0"}], " ", "&&", 
         " ", 
         RowBox[{"0", " ", "\[LessEqual]", " ", "x"}], " ", "&&", " ", 
         RowBox[{"x", "\[LessEqual]", "6.283"}]}], ",", 
        RowBox[{"{", "x", "}"}]}], "]"}], "]"}], "+", "\[IndentingNewLine]", 
     RowBox[{"Length", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"DJ", "[", 
           RowBox[{"x", ",", "3.5"}], "]"}], "\[Equal]", "0"}], " ", "&&", 
         " ", 
         RowBox[{"0", " ", "\[LessEqual]", " ", "x"}], " ", "&&", " ", 
         RowBox[{"x", "\[LessEqual]", "6.283"}]}], ",", 
        RowBox[{"{", "x", "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", 
    "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.823932254676052*^9, 3.823932330137024*^9}, {
   3.823932360152659*^9, 3.8239324237857027`*^9}, {3.823932537452476*^9, 
   3.823932550957653*^9}, {3.823932598343774*^9, 3.823932687472094*^9}, 
   3.8239328071363153`*^9, {3.8239329282256117`*^9, 3.823932949489809*^9}, {
   3.8239330208394003`*^9, 3.823933024741222*^9}, {3.8239330766105328`*^9, 
   3.8239330992057543`*^9}, {3.823933172730761*^9, 3.8239332551339607`*^9}, {
   3.823933301170187*^9, 3.823933301336667*^9}, {3.82393335733005*^9, 
   3.8239333574719467`*^9}, {3.82393342291868*^9, 3.823933423286694*^9}, {
   3.8239335232497377`*^9, 3.823933583907159*^9}, {3.823933765752808*^9, 
   3.8239337698481092`*^9}, {3.8239338738029203`*^9, 3.823933895142056*^9}, {
   3.8239339797048197`*^9, 3.823933981524911*^9}, {3.823935820605699*^9, 
   3.8239359504584703`*^9}, {3.823936071134089*^9, 3.823936078787525*^9}, {
   3.823936173330723*^9, 3.823936203319478*^9}, {3.82393635259347*^9, 
   3.8239364088714314`*^9}, {3.823936741269841*^9, 3.823936741425984*^9}, {
   3.82393689568788*^9, 3.823936925651412*^9}, {3.823937008326148*^9, 
   3.823937008449409*^9}, {3.82393739572331*^9, 3.823937420754547*^9}, {
   3.823937454471055*^9, 3.823937457484481*^9}, {3.823937498869549*^9, 
   3.8239374991540318`*^9}, {3.823937546587954*^9, 3.823937546974936*^9}, 
   3.823937853194613*^9, {3.823939322967898*^9, 3.82393932329659*^9}, 
   3.824558382479219*^9, {3.824559193118164*^9, 3.824559211101281*^9}, {
   3.824559254975667*^9, 3.824559255165881*^9}, {3.824559298629299*^9, 
   3.824559298726801*^9}, {3.824559332672171*^9, 3.824559332917018*^9}, {
   3.824559496006783*^9, 3.8245594963900023`*^9}, {3.826359678060842*^9, 
   3.826359692023382*^9}, {3.826359779309456*^9, 3.8263597811026087`*^9}, {
   3.826359900599633*^9, 3.826359908454317*^9}, {3.826360453288121*^9, 
   3.826360454864017*^9}, {3.826360642866271*^9, 3.82636070009313*^9}, {
   3.8263608401375723`*^9, 3.826360841865706*^9}, {3.826362046885697*^9, 
   3.826362051055861*^9}, {3.8263624072837543`*^9, 3.826362420462226*^9}, {
   3.826362540024886*^9, 3.826362712742201*^9}, {3.826362762563561*^9, 
   3.826362764765448*^9}, 3.826362796776247*^9, {3.8263628315725107`*^9, 
   3.826362936713374*^9}, {3.8263630009666033`*^9, 3.826363001207554*^9}, 
   3.826363290491672*^9, {3.826363325011888*^9, 3.826363363731028*^9}, {
   3.8263634543191957`*^9, 3.826363466369525*^9}, {3.8263635055593967`*^9, 
   3.826363505695114*^9}, {3.8263636556935453`*^9, 3.826363682904245*^9}, {
   3.826363789737732*^9, 3.826363816064032*^9}, {3.826364221044981*^9, 
   3.826364221577792*^9}, {3.826364251689496*^9, 3.8263642646019793`*^9}, {
   3.826364328140608*^9, 3.826364335927731*^9}, {3.826366485562276*^9, 
   3.826366560552334*^9}, {3.854672456031022*^9, 3.854672466763769*^9}, {
   3.8546725150244102`*^9, 3.854672543457934*^9}, {3.854672580102908*^9, 
   3.85467258726081*^9}, {3.8546726221822557`*^9, 3.8546726487019787`*^9}, {
   3.854673051714974*^9, 3.8546730620481377`*^9}, {3.854673834552396*^9, 
   3.854673835168551*^9}, {3.854673873257387*^9, 3.8546738735074663`*^9}, {
   3.8546742069210253`*^9, 3.854674219378087*^9}, {3.854681348063702*^9, 
   3.85468139443045*^9}},ExpressionUUID->"772faf65-0326-4a81-ae87-\
2d3a44801d67"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.854667390214549*^9, 3.854673122351453*^9, {3.854673847875428*^9, 
   3.854673874514978*^9}},
 CellLabel->"Out[46]=",ExpressionUUID->"20c48a76-71a5-4ef7-8026-09de0a449de2"],

Cell[CellGroupData[{

Cell[BoxData["200"], "Print",
 CellChangeTimes->{
  3.85466739022993*^9, 3.8546731224106197`*^9, {3.854673847925762*^9, 
   3.854673874575235*^9}},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"127a081c-3e9f-4d5f-8155-58879811bc3b"],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{
  3.85466739022993*^9, 3.8546731224106197`*^9, {3.854673847925762*^9, 
   3.8546738745802307`*^9}},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"47486885-5722-42b1-a096-1e9ec1e7f1c0"],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546738846631403`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"dca56633-f377-4cb4-a2e0-c09f8140edc4"],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854673895692533*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"0f004948-bbea-4d7f-9127-8afb6bf2d8f2"],

Cell[BoxData["4"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546739066370296`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"fd6f7ace-9193-4eb6-9e91-b09318626f9f"],

Cell[BoxData["5"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546739150393133`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"2a97b873-16b8-406c-a53d-fc4604a359af"],

Cell[BoxData["6"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546739251437197`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"6ed7cf08-9476-4683-a513-fbff5780570f"],

Cell[BoxData["7"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546739353764544`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"c7f6bb92-350a-4c1b-9edb-5e48f7fa3bd3"],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854673945762878*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"fb1ad2a9-3b0d-4daf-99d0-ad306b11695a"],

Cell[BoxData["9"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854673956334897*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"af44c215-da1c-4217-ad85-bf90fe04eeb3"],

Cell[BoxData["10"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854673965920678*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"c66766d0-74dd-4100-a2b7-affecba32125"],

Cell[BoxData["11"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854673975173048*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"52159433-1c84-4625-898d-48c47dcbb343"],

Cell[BoxData["12"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854673984416153*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"665d136d-dfd2-4225-8ce9-a29014d5350b"],

Cell[BoxData["13"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854673994648822*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"2cf1c12f-6a77-4b51-8607-86d0f33d7ae6"],

Cell[BoxData["14"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546740040246897`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"2f98aa71-de35-4769-abb5-39a87baa5f24"],

Cell[BoxData["15"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674013397592*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"1484d226-0948-4be0-bc4d-e12b2592ca30"],

Cell[BoxData["16"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546740216704283`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"7454f7e2-5ca5-4bb6-ae2c-ab46ade39c73"],

Cell[BoxData["17"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674030552105*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"5f733746-1dad-4458-a588-f5d4c07fa933"],

Cell[BoxData["18"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674038833379*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"f900a9d9-712e-4b5f-8a58-9c82ada16e8a"],

Cell[BoxData["19"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674047605111*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"540b8ca0-1a49-46a6-b53c-cdd716850bcb"],

Cell[BoxData["20"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674056782205*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"f368501d-7a88-44e1-a8a2-aecbeac65608"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "12074", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13257", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13048", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "10793", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11724", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12085", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11559", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12096", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12389", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12929", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11909", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13292", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12350", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13279", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11510", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12004", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11248", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12090", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12391", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11833", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674065524914*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"6d9dde71-8641-469f-9f94-92578a0a6cbd"],

Cell[BoxData["300"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674065529627*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"c00fd832-11fd-4543-8445-079ce73ea303"],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674065532551*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"b14ef2ff-8ef6-4206-937e-d272b4c09b1e"],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674110089044*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"64b114fd-a9f6-4c01-9108-6c638c92bf0e"],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546741550757017`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"5f235822-0d78-41e8-97c9-50c28a0f7c80"],

Cell[BoxData["4"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546741976892157`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"d920ac14-befe-4fa4-a6b2-26dce105f678"],

Cell[BoxData["5"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674242821197*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"8a5a7662-6480-4b08-98d2-d2ea2bba66da"],

Cell[BoxData["6"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674288213745*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"b5fad9ef-9c9d-49f5-a4cf-822c9a9a98b5"],

Cell[BoxData["7"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674337529799*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"238c567e-d548-4cc7-81aa-e2cc4291f3df"],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674389975602*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"943d3490-c1a7-4b25-b838-f30ada8eb8d2"],

Cell[BoxData["9"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674434583736*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"ead448c6-455f-4e09-95ef-38bf93f0418a"],

Cell[BoxData["10"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.85467448201928*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"956f4279-0dec-42ab-a0d9-ca30bebc2fa4"],

Cell[BoxData["11"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674527660905*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"eb5831c9-40f2-4386-b5b6-f866cbd567ad"],

Cell[BoxData["12"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674567680626*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"5b7c431d-c5c8-43f4-9c9a-981a07c61d11"],

Cell[BoxData["13"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546746140787477`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"6e0b5bf1-b21a-401d-a091-cb125b07e895"],

Cell[BoxData["14"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546746687233267`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"32874e96-37c4-4f85-b4f9-3df564c33e4e"],

Cell[BoxData["15"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674730705421*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"870c8d2e-9864-44c7-925d-66f4549ca70b"],

Cell[BoxData["16"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.85467478394527*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"1eab375b-86ba-4935-bda0-7df04c76a1f1"],

Cell[BoxData["17"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674835162283*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"2e44510f-3caa-4ad0-b4dd-40305b37153f"],

Cell[BoxData["18"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546748793115273`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"d57e9491-3381-48ed-a6e2-694deb2a203a"],

Cell[BoxData["19"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854674925162731*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"aa2960eb-8634-4277-88eb-5e870a436e52"],

Cell[BoxData["20"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546749787517633`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"1e48b05d-b8e1-4e7c-b944-da145986a2b8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "12074", ",", "15979", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13257", ",", "17046", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13048", ",", "16402", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "10793", ",", "16811", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11724", ",", "17045", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12085", ",", "15812", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11559", ",", "16708", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12096", ",", "15834", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12389", ",", "15971", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12929", ",", "15744", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11909", ",", "14067", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13292", ",", "16452", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12350", ",", "15263", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13279", ",", "16004", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11510", ",", "16372", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12004", ",", "16413", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11248", ",", "15410", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12090", ",", "15769", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12391", ",", "16645", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11833", ",", "16887", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675030169546*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"63f04af6-5ce7-44fd-bef0-72d6ae1ac78f"],

Cell[BoxData["400"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675030179056*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"623ab4e0-e8f9-4439-b1ad-994df3654835"],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675030199018*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"83644719-8366-4f6d-a3e0-f88371ba4851"],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675040924342*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"df14e74c-3b00-41d6-b524-76a46f3ab1be"],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675051823641*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"fc26f855-957e-4d73-a0a1-99675c50a31b"],

Cell[BoxData["4"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675065986064*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"aa72d9c1-2330-42f0-bf85-b649e9666d6c"],

Cell[BoxData["5"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675076771599*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"c04a9278-5c5b-477f-aa7a-5fc1bb7b53fb"],

Cell[BoxData["6"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675087628417*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"db673162-71a4-406b-a7d3-0e99cd9d1113"],

Cell[BoxData["7"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546750983378677`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"7c6c758e-b6ca-4075-bc74-59fee129c4a6"],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546751104536133`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"a663dd79-41fa-440c-ba7c-271ca6ba225b"],

Cell[BoxData["9"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675129193955*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"7a3cda1f-5cf6-427b-a64d-d4990df34d3c"],

Cell[BoxData["10"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675147137682*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"ff523da9-bc4f-441b-a54c-e604ffc88a93"],

Cell[BoxData["11"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546751583536987`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"10c8d4d1-e54b-4374-bd7a-3eaf9838b238"],

Cell[BoxData["12"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675168429202*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"e79f4906-a48b-4c5d-bc01-d1626ab178a4"],

Cell[BoxData["13"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675179047574*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"8a616a32-a184-4151-aeff-71ded7d959cf"],

Cell[BoxData["14"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675198117092*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"8231acf9-16a0-4aaf-9422-0ecf81110619"],

Cell[BoxData["15"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.85467521138348*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"18b2af2f-7e08-4248-bb40-6fba75a2720d"],

Cell[BoxData["16"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546752255892277`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"c6ad8904-fd56-4919-9b9a-5b1176b6eabd"],

Cell[BoxData["17"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.85467523930131*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"1ee142d1-423b-4c17-8e38-7bbcd179fd46"],

Cell[BoxData["18"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546752541911573`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"e0af3abc-30a1-459d-9f0c-20a5be7bdbcf"],

Cell[BoxData["19"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675265558992*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"af352dbe-83f7-4fd3-b9ed-199bbb1de6ec"],

Cell[BoxData["20"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.85467527554799*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"3df8b2a4-0813-47f0-9516-ff857118a2b3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "12074", ",", "15979", ",", "19323", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13257", ",", "17046", ",", "20176", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13048", ",", "16402", ",", "20270", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "10793", ",", "16811", ",", "19925", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11724", ",", "17045", ",", "18971", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12085", ",", "15812", ",", "20389", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11559", ",", "16708", ",", "20083", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12096", ",", "15834", ",", "19372", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12389", ",", "15971", ",", "19984", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12929", ",", "15744", ",", "19949", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11909", ",", "14067", ",", "20488", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13292", ",", "16452", ",", "20151", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12350", ",", "15263", ",", "20455", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13279", ",", "16004", ",", "19032", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11510", ",", "16372", ",", "21116", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12004", ",", "16413", ",", "19454", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11248", ",", "15410", ",", "20897", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12090", ",", "15769", ",", "20019", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12391", ",", "16645", ",", "19220", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11833", ",", "16887", ",", "19395", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675285329557*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"01f1bf71-d5b1-458e-94d2-d05f5a20deca"],

Cell[BoxData["500"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675285341522*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"7b866899-cbef-434e-8b0c-20a44b510586"],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546752853458643`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"5e0b721f-7c3c-4255-891e-31ae16a15816"],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675302461926*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"1b481af7-0a64-486e-98e8-dc9987539673"],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675320017302*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"92a7dcc0-42da-44df-8766-eef15c18eb87"],

Cell[BoxData["4"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675337354682*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"cfead7e4-3a95-4a1a-a8af-4c3c9c54cf7c"],

Cell[BoxData["5"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546753561281967`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"1ae9f768-4c57-4462-97dc-afaf2ce62d75"],

Cell[BoxData["6"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546753730168257`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"baceb18d-e5d7-49a1-ac02-6dceab5c283b"],

Cell[BoxData["7"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675392525853*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"963e3300-7ccc-4c83-992c-66bc389eb35f"],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675410308029*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"59e7b522-a0ab-40df-85f7-7a457589d20b"],

Cell[BoxData["9"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675432022737*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"0b091591-f55d-4d8b-aaa8-5ba6019451ad"],

Cell[BoxData["10"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675449784266*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"a8e70bc8-c944-4f67-924d-e23ecc7ee764"],

Cell[BoxData["11"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675468033495*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"7d910f1d-4417-4cde-9ac8-299a4c71a505"],

Cell[BoxData["12"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675484887781*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"5bea1bd3-8008-4056-a4a1-cb553bc35f1e"],

Cell[BoxData["13"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675504620072*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"cf0f869f-15e5-42d3-9ff1-80a8104a2e1f"],

Cell[BoxData["14"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.85467552187824*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"158e9770-8d6a-4cad-a2bc-36ab3b204b60"],

Cell[BoxData["15"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675538909577*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"09ba4d44-ec6a-4bdf-9684-1cc118a4ef61"],

Cell[BoxData["16"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546755551817513`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"580202a5-a6da-44a5-be42-ee1dff083d4c"],

Cell[BoxData["17"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.85467557216436*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"80243ea5-f707-4df5-8900-e9167db7b3ac"],

Cell[BoxData["18"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675588712199*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"7002e526-4aa1-44fb-ab04-ff9fc61625a2"],

Cell[BoxData["19"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675606098572*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"bb66fd60-96bb-4de2-b1ff-a925ad121df6"],

Cell[BoxData["20"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546756211494083`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"2c99edb3-b7b2-4494-9000-a8e5b6a35112"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "12074", ",", "15979", ",", "19323", ",", "22496", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13257", ",", "17046", ",", "20176", ",", "23990", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13048", ",", "16402", ",", "20270", ",", "23566", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "10793", ",", "16811", ",", "19925", ",", "23356", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11724", ",", "17045", ",", "18971", ",", "24051", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12085", ",", "15812", ",", "20389", ",", "22875", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11559", ",", "16708", ",", "20083", ",", "24649", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12096", ",", "15834", ",", "19372", ",", "23410", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12389", ",", "15971", ",", "19984", ",", "22633", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12929", ",", "15744", ",", "19949", ",", "23716", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11909", ",", "14067", ",", "20488", ",", "24182", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13292", ",", "16452", ",", "20151", ",", "24171", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12350", ",", "15263", ",", "20455", ",", "24304", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13279", ",", "16004", ",", "19032", ",", "24077", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11510", ",", "16372", ",", "21116", ",", "23868", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12004", ",", "16413", ",", "19454", ",", "23622", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11248", ",", "15410", ",", "20897", ",", "24021", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12090", ",", "15769", ",", "20019", ",", "24174", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12391", ",", "16645", ",", "19220", ",", "22725", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11833", ",", "16887", ",", "19395", ",", "22945", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675636784911*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"39e573eb-1a52-404d-80fe-1f70464331f4"],

Cell[BoxData["600"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546756367901278`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"1e93b683-72c2-4d79-bb8e-f20e32a2918b"],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675636793661*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"41d4094c-0964-4584-90e8-a0aa9e1ff42e"],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675662076277*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"719311cf-3cde-4611-8af3-820d4cfba38b"],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675686826469*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"7da59b5f-f599-4bfe-b1a1-2462e9e1ff0c"],

Cell[BoxData["4"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675711335135*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"1811d1b1-6581-4b98-af58-dc571372eb10"],

Cell[BoxData["5"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675736611883*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"61e6065a-9c7d-4d7e-9550-7f07e949f779"],

Cell[BoxData["6"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675761768008*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"9ca27d57-74f1-429f-b8c4-b6f7113482c4"],

Cell[BoxData["7"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546757842785*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"c25725e7-8a0a-4e93-80a8-d43f169072ee"],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675800894238*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"4d6e6e92-168e-4876-812b-f16fe09b7b43"],

Cell[BoxData["9"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675817245077*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"0801650c-1751-4395-a022-4a9aff5cc894"],

Cell[BoxData["10"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675836746316*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"0619be33-0ba7-4b13-b1f1-2d673ac0924c"],

Cell[BoxData["11"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675860546389*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"e716ec75-3ccb-4a6a-b9ae-658479358a1c"],

Cell[BoxData["12"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675883524975*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"168b5101-1798-4555-a3d4-7486d17aaf2a"],

Cell[BoxData["13"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546759070005293`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"2aedbc6a-49b5-47d8-89bd-8e966fbb77f3"],

Cell[BoxData["14"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.85467592406658*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"d282a05e-b2aa-41e3-8dc3-65f5a026e391"],

Cell[BoxData["15"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675939742107*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"2c4a2cfb-18d5-4fc5-b662-ab7c4ca3ace9"],

Cell[BoxData["16"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546759558748407`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"94219d10-35d1-4b06-a114-200132e0aaa6"],

Cell[BoxData["17"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854675980374198*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"1f6b29f0-123b-4f12-ac59-a3991d6a0b14"],

Cell[BoxData["18"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546760039882717`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"089832da-1477-45f6-9d2b-368a5b3ce920"],

Cell[BoxData["19"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676028383803*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"7a489781-959b-4674-8f49-8feec26668b0"],

Cell[BoxData["20"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676051632042*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"78f0883b-28ad-42fa-b202-f724346c546f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "12074", ",", "15979", ",", "19323", ",", "22496", ",", "28399", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13257", ",", "17046", ",", "20176", ",", "23990", ",", "28384", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13048", ",", "16402", ",", "20270", ",", "23566", ",", "27018", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "10793", ",", "16811", ",", "19925", ",", "23356", ",", "28610", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11724", ",", "17045", ",", "18971", ",", "24051", ",", "28835", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12085", ",", "15812", ",", "20389", ",", "22875", ",", "28699", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11559", ",", "16708", ",", "20083", ",", "24649", ",", "27739", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12096", ",", "15834", ",", "19372", ",", "23410", ",", "28280", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12389", ",", "15971", ",", "19984", ",", "22633", ",", "27804", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12929", ",", "15744", ",", "19949", ",", "23716", ",", "27431", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11909", ",", "14067", ",", "20488", ",", "24182", ",", "27826", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13292", ",", "16452", ",", "20151", ",", "24171", ",", "27019", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12350", ",", "15263", ",", "20455", ",", "24304", ",", "28494", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13279", ",", "16004", ",", "19032", ",", "24077", ",", "26547", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11510", ",", "16372", ",", "21116", ",", "23868", ",", "27810", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12004", ",", "16413", ",", "19454", ",", "23622", ",", "28535", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11248", ",", "15410", ",", "20897", ",", "24021", ",", "27353", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12090", ",", "15769", ",", "20019", ",", "24174", ",", "28000", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12391", ",", "16645", ",", "19220", ",", "22725", ",", "26101", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11833", ",", "16887", ",", "19395", ",", "22945", ",", "27938", ",", "0",
      ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676075771709*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"69a6eb08-e07d-4b86-a9c1-cc1691aaf992"],

Cell[BoxData["700"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546760757774477`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"44ec79ca-642f-421a-86b5-c791cd6f9763"],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546760757812147`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"4e71a0a7-e803-4650-9eeb-283769786d79"],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676103845582*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"53c01180-89a4-48f6-8c45-462fe3f88dd1"],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546761378802547`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"583bedf2-3a21-40e4-88e6-f3598223f9b8"],

Cell[BoxData["4"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676173528172*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"42c0b414-eb1c-4870-a32e-2315740ad888"],

Cell[BoxData["5"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546762100754967`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"4d34ec79-29c8-401d-9064-341f16185966"],

Cell[BoxData["6"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676246982725*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"b6e34bad-674d-428a-a58c-10d37ba2035f"],

Cell[BoxData["7"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546762825985603`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"86331787-5307-4753-905d-62dea64658e0"],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676317088338*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"b5fb0b96-695f-4407-adf6-134604f4672b"],

Cell[BoxData["9"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676341214485*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"bba5676c-a980-4a17-b940-07483d57a8e0"],

Cell[BoxData["10"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676365927067*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"f520392f-07d4-4370-af9c-8655582ca35e"],

Cell[BoxData["11"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546763890779963`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"97208735-2f7f-4608-a57c-1cee7ff16a21"],

Cell[BoxData["12"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676421219543*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"9f76253b-737e-4fff-831f-c27f8a47a816"],

Cell[BoxData["13"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676460768827*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"d999a233-205e-4d2e-b320-20a47a721fbe"],

Cell[BoxData["14"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676492774832*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"23a874e0-84c9-4230-98cf-fda4cf40d6d5"],

Cell[BoxData["15"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676528731476*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"6e15805d-b92c-4e88-b09f-c87c6535a6cd"],

Cell[BoxData["16"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546765685299892`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"12b20397-040f-4c53-a785-522cbfa9cd65"],

Cell[BoxData["17"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676640058069*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"b03e74bb-e1ca-4118-a4f3-6991460b58be"],

Cell[BoxData["18"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.85467669728518*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"6493825e-25a1-4bd7-9a89-6fb920ebbb88"],

Cell[BoxData["19"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676754348393*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"5246ffd6-7624-4550-9855-a0af04bb82eb"],

Cell[BoxData["20"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546767998106947`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"b578fdbe-df66-4e07-a7a0-7c2146f164d9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "12074", ",", "15979", ",", "19323", ",", "22496", ",", "28399", ",", 
     "31326", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13257", ",", "17046", ",", "20176", ",", "23990", ",", "28384", ",", 
     "31678", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13048", ",", "16402", ",", "20270", ",", "23566", ",", "27018", ",", 
     "31259", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "10793", ",", "16811", ",", "19925", ",", "23356", ",", "28610", ",", 
     "32380", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11724", ",", "17045", ",", "18971", ",", "24051", ",", "28835", ",", 
     "32865", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12085", ",", "15812", ",", "20389", ",", "22875", ",", "28699", ",", 
     "32553", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11559", ",", "16708", ",", "20083", ",", "24649", ",", "27739", ",", 
     "31579", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12096", ",", "15834", ",", "19372", ",", "23410", ",", "28280", ",", 
     "31924", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12389", ",", "15971", ",", "19984", ",", "22633", ",", "27804", ",", 
     "31803", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12929", ",", "15744", ",", "19949", ",", "23716", ",", "27431", ",", 
     "31184", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11909", ",", "14067", ",", "20488", ",", "24182", ",", "27826", ",", 
     "31719", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13292", ",", "16452", ",", "20151", ",", "24171", ",", "27019", ",", 
     "31135", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12350", ",", "15263", ",", "20455", ",", "24304", ",", "28494", ",", 
     "31073", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13279", ",", "16004", ",", "19032", ",", "24077", ",", "26547", ",", 
     "31820", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11510", ",", "16372", ",", "21116", ",", "23868", ",", "27810", ",", 
     "32455", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12004", ",", "16413", ",", "19454", ",", "23622", ",", "28535", ",", 
     "32532", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11248", ",", "15410", ",", "20897", ",", "24021", ",", "27353", ",", 
     "32837", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12090", ",", "15769", ",", "20019", ",", "24174", ",", "28000", ",", 
     "33444", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12391", ",", "16645", ",", "19220", ",", "22725", ",", "26101", ",", 
     "32364", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11833", ",", "16887", ",", "19395", ",", "22945", ",", "27938", ",", 
     "32021", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546768466887817`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"b49a6c4a-58a1-4fd3-bf2d-20636decfabc"],

Cell[BoxData["800"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676846697503*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"34e0e830-a6a9-4013-9768-7d312660a270"],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676846701345*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"6d63815b-1371-4593-89c9-4bcc4f7550a8"],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854676937140983*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"c92dc064-7797-48a5-9329-1721cb406050"],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546770340363092`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"913a7f82-e20b-4b7d-bdb2-c6755db557b5"],

Cell[BoxData["4"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854677120831653*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"de220460-508f-421b-8ad6-edecc78cbf64"],

Cell[BoxData["5"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854677183582254*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"6502147d-7efb-48ca-a5d3-8a55bac2af5a"],

Cell[BoxData["6"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854677233314639*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"3eddb034-0d56-4be4-9a7a-dbc189ea15fa"],

Cell[BoxData["7"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854677293355998*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"8918f932-1e21-4afc-bab8-f916e8d6bc2d"],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854677373503461*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"31f729e0-9c96-41b0-8bab-435d65c9e274"],

Cell[BoxData["9"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854677446731822*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"0cebd424-5e51-49f2-a2cd-110b20f7b6f7"],

Cell[BoxData["10"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854677516015725*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"02e82250-ad80-4ba3-afd8-ec49e233e3dc"],

Cell[BoxData["11"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854677570998571*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"91cc41df-b3ed-44e0-88c2-ce99cd4dccb1"],

Cell[BoxData["12"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854677623495491*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"d3e8817e-fc95-4520-861c-2b964844be7e"],

Cell[BoxData["13"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854677660889883*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"e9982d49-e706-4f1b-bc2c-000b02d80f30"],

Cell[BoxData["14"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854677694115418*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"62e77caa-165c-401d-acec-62fd303aa821"],

Cell[BoxData["15"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546777388114023`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"96a4f930-5f02-4ff9-878e-5dc86b75d793"],

Cell[BoxData["16"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854677779096551*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"5ead3f38-dab0-4048-9a15-e76bfdac9dba"],

Cell[BoxData["17"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546778328941183`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"6e4f843a-281f-467a-b020-5c9d38688e31"],

Cell[BoxData["18"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854677881747335*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"f5643840-6430-45f8-8e1d-367f2dc2e25f"],

Cell[BoxData["19"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854677932359811*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"0310150c-1fc3-4d5e-88f3-e4a5bea4f7e7"],

Cell[BoxData["20"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854677981261693*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"bb2a23ec-681c-4163-90ce-92f88790c2e7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "12074", ",", "15979", ",", "19323", ",", "22496", ",", "28399", ",", 
     "31326", ",", "35652", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13257", ",", "17046", ",", "20176", ",", "23990", ",", "28384", ",", 
     "31678", ",", "36915", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13048", ",", "16402", ",", "20270", ",", "23566", ",", "27018", ",", 
     "31259", ",", "36432", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "10793", ",", "16811", ",", "19925", ",", "23356", ",", "28610", ",", 
     "32380", ",", "34290", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11724", ",", "17045", ",", "18971", ",", "24051", ",", "28835", ",", 
     "32865", ",", "36217", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12085", ",", "15812", ",", "20389", ",", "22875", ",", "28699", ",", 
     "32553", ",", "35681", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11559", ",", "16708", ",", "20083", ",", "24649", ",", "27739", ",", 
     "31579", ",", "35780", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12096", ",", "15834", ",", "19372", ",", "23410", ",", "28280", ",", 
     "31924", ",", "36665", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12389", ",", "15971", ",", "19984", ",", "22633", ",", "27804", ",", 
     "31803", ",", "36062", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12929", ",", "15744", ",", "19949", ",", "23716", ",", "27431", ",", 
     "31184", ",", "35106", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11909", ",", "14067", ",", "20488", ",", "24182", ",", "27826", ",", 
     "31719", ",", "36404", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13292", ",", "16452", ",", "20151", ",", "24171", ",", "27019", ",", 
     "31135", ",", "35581", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12350", ",", "15263", ",", "20455", ",", "24304", ",", "28494", ",", 
     "31073", ",", "35451", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13279", ",", "16004", ",", "19032", ",", "24077", ",", "26547", ",", 
     "31820", ",", "35494", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11510", ",", "16372", ",", "21116", ",", "23868", ",", "27810", ",", 
     "32455", ",", "34808", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12004", ",", "16413", ",", "19454", ",", "23622", ",", "28535", ",", 
     "32532", ",", "35713", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11248", ",", "15410", ",", "20897", ",", "24021", ",", "27353", ",", 
     "32837", ",", "35453", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12090", ",", "15769", ",", "20019", ",", "24174", ",", "28000", ",", 
     "33444", ",", "36225", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12391", ",", "16645", ",", "19220", ",", "22725", ",", "26101", ",", 
     "32364", ",", "34512", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11833", ",", "16887", ",", "19395", ",", "22945", ",", "27938", ",", 
     "32021", ",", "35377", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546780318028517`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"ed76266b-4346-4507-aeec-eea128b6509a"],

Cell[BoxData["900"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854678031808791*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"988adc80-2d91-41df-b9f4-4c7bbf1797e3"],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546780318130007`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"694e7137-ae9f-4eb6-aa17-4b4b7c607ec4"],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546780953466787`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"388e7bb2-c728-4315-a82d-c9106c1c04c4"],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854678143523941*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"8296ba11-00ce-4f8b-99a2-adb02bd8f85a"],

Cell[BoxData["4"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546782101696873`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"e82a9b17-e30c-4436-b311-bef779171890"],

Cell[BoxData["5"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546782794816732`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"e53ec5d4-608e-40e3-a08c-1ae2daf9f12f"],

Cell[BoxData["6"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854678342291005*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"2591c916-24fc-4288-adbc-5ee95ab7639b"],

Cell[BoxData["7"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546784112403803`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"17554d69-b518-469b-b69e-1a16ed865a14"],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854678477579294*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"d9b2f950-f38c-47f8-b83b-c4975c922857"],

Cell[BoxData["9"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854678545547449*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"e2fbd981-5310-4cda-bdf4-bd3e1ddc257c"],

Cell[BoxData["10"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.85467861644541*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"47d8be65-dcf9-4a7e-af25-312b4cce33cc"],

Cell[BoxData["11"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854678697952003*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"e3506b56-7cfe-4e0a-a0af-bcafa4643b7a"],

Cell[BoxData["12"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854678772542308*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"d6819675-2ea6-4614-b97a-b7e2befe668a"],

Cell[BoxData["13"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854678840162135*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"894cb660-de0f-44a0-bea8-109eaa722ca3"],

Cell[BoxData["14"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546789247976522`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"af230903-811b-4aba-968c-1c3cdd15da20"],

Cell[BoxData["15"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854679007798469*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"57407839-2953-4161-9045-f1fd79ee9303"],

Cell[BoxData["16"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546790912234097`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"0a4f1420-101d-4614-9b97-abf7dd0356a4"],

Cell[BoxData["17"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854679172131648*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"d88652e2-0807-4100-9ac8-147a5ccc3f25"],

Cell[BoxData["18"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854679245939005*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"ca931ccc-f76b-48b6-ba0a-272da3d2096a"],

Cell[BoxData["19"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854679318443768*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"2b098b40-8402-4966-a2d2-d65fd51be861"],

Cell[BoxData["20"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.85467938753963*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"fc0029e3-3816-442a-b059-eecf63efb259"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "12074", ",", "15979", ",", "19323", ",", "22496", ",", "28399", ",", 
     "31326", ",", "35652", ",", "40719", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13257", ",", "17046", ",", "20176", ",", "23990", ",", "28384", ",", 
     "31678", ",", "36915", ",", "40867", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13048", ",", "16402", ",", "20270", ",", "23566", ",", "27018", ",", 
     "31259", ",", "36432", ",", "40007", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "10793", ",", "16811", ",", "19925", ",", "23356", ",", "28610", ",", 
     "32380", ",", "34290", ",", "39939", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11724", ",", "17045", ",", "18971", ",", "24051", ",", "28835", ",", 
     "32865", ",", "36217", ",", "39655", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12085", ",", "15812", ",", "20389", ",", "22875", ",", "28699", ",", 
     "32553", ",", "35681", ",", "40558", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11559", ",", "16708", ",", "20083", ",", "24649", ",", "27739", ",", 
     "31579", ",", "35780", ",", "38808", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12096", ",", "15834", ",", "19372", ",", "23410", ",", "28280", ",", 
     "31924", ",", "36665", ",", "39230", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12389", ",", "15971", ",", "19984", ",", "22633", ",", "27804", ",", 
     "31803", ",", "36062", ",", "39833", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12929", ",", "15744", ",", "19949", ",", "23716", ",", "27431", ",", 
     "31184", ",", "35106", ",", "39624", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11909", ",", "14067", ",", "20488", ",", "24182", ",", "27826", ",", 
     "31719", ",", "36404", ",", "39937", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13292", ",", "16452", ",", "20151", ",", "24171", ",", "27019", ",", 
     "31135", ",", "35581", ",", "40168", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12350", ",", "15263", ",", "20455", ",", "24304", ",", "28494", ",", 
     "31073", ",", "35451", ",", "40505", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13279", ",", "16004", ",", "19032", ",", "24077", ",", "26547", ",", 
     "31820", ",", "35494", ",", "38523", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11510", ",", "16372", ",", "21116", ",", "23868", ",", "27810", ",", 
     "32455", ",", "34808", ",", "39069", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12004", ",", "16413", ",", "19454", ",", "23622", ",", "28535", ",", 
     "32532", ",", "35713", ",", "38998", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11248", ",", "15410", ",", "20897", ",", "24021", ",", "27353", ",", 
     "32837", ",", "35453", ",", "39920", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12090", ",", "15769", ",", "20019", ",", "24174", ",", "28000", ",", 
     "33444", ",", "36225", ",", "39653", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12391", ",", "16645", ",", "19220", ",", "22725", ",", "26101", ",", 
     "32364", ",", "34512", ",", "39559", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11833", ",", "16887", ",", "19395", ",", "22945", ",", "27938", ",", 
     "32021", ",", "35377", ",", "39886", ",", "0"}], "}"}]}], "}"}]], "Print",\

 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854679461241706*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"ce9b5663-df92-401c-bc91-a89214e07249"],

Cell[BoxData["1000"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854679461257414*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"ba839a82-f29b-4c21-b448-0a61b1dd3791"],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.85467946126151*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"b394726d-c9a6-4f49-9a10-0edd77c436ba"],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546795546780167`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"0cfb1032-b415-4e64-bec6-9c19dd5c4654"],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854679644744369*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"7eff2c27-d892-48cc-b1f3-7f86d690bfad"],

Cell[BoxData["4"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854679734324452*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"815e7182-7fa9-4e93-983e-bef0645416d8"],

Cell[BoxData["5"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854679796395269*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"ed5e5400-b6fc-4194-892f-496be183de93"],

Cell[BoxData["6"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546798859781923`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"cb449f87-5983-4e98-9a6c-edd11d83940c"],

Cell[BoxData["7"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854679989349964*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"6bda7694-fce2-479a-8ffe-2e5556e3a39f"],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546800621001453`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"3a56e730-b493-45ae-95b4-c37ee58391d7"],

Cell[BoxData["9"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546801231835537`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"bff728a3-3d68-4e59-8d0a-4fa6aeb91650"],

Cell[BoxData["10"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854680197213891*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"ca735424-fb2a-4b09-8c35-06b57953a002"],

Cell[BoxData["11"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854680287584239*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"645c43da-f64a-4991-a5a3-7096b2379275"],

Cell[BoxData["12"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854680349125353*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"2d9af553-8ef3-4d2c-8526-d25ead6e54f4"],

Cell[BoxData["13"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854680452950375*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"2adc55ef-2851-492f-b21e-85021bfbf531"],

Cell[BoxData["14"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854680553232576*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"82c5449f-050e-430e-a19b-7da5d3691fcf"],

Cell[BoxData["15"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854680616369609*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"91e2571a-6046-4cc4-9d5f-61fd55b42c1a"],

Cell[BoxData["16"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854680676455597*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"4a8494a0-8ec3-4118-a778-f08d42f042e1"],

Cell[BoxData["17"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546807702083197`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"e556bf87-4b8d-40ee-bca4-4c71aa5ba466"],

Cell[BoxData["18"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.854680859380002*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"e656ddfd-df45-4885-b387-488e0eca60bc"],

Cell[BoxData["19"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546809545812273`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"632d4abc-a019-4601-b0dc-cec9d47b58f2"],

Cell[BoxData["20"], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546810711161337`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"f7ac7779-a743-4205-b570-681b9ad267bd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "12074", ",", "15979", ",", "19323", ",", "22496", ",", "28399", ",", 
     "31326", ",", "35652", ",", "40719", ",", "42974"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13257", ",", "17046", ",", "20176", ",", "23990", ",", "28384", ",", 
     "31678", ",", "36915", ",", "40867", ",", "43791"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13048", ",", "16402", ",", "20270", ",", "23566", ",", "27018", ",", 
     "31259", ",", "36432", ",", "40007", ",", "43419"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "10793", ",", "16811", ",", "19925", ",", "23356", ",", "28610", ",", 
     "32380", ",", "34290", ",", "39939", ",", "44001"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11724", ",", "17045", ",", "18971", ",", "24051", ",", "28835", ",", 
     "32865", ",", "36217", ",", "39655", ",", "42997"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12085", ",", "15812", ",", "20389", ",", "22875", ",", "28699", ",", 
     "32553", ",", "35681", ",", "40558", ",", "42925"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11559", ",", "16708", ",", "20083", ",", "24649", ",", "27739", ",", 
     "31579", ",", "35780", ",", "38808", ",", "43153"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12096", ",", "15834", ",", "19372", ",", "23410", ",", "28280", ",", 
     "31924", ",", "36665", ",", "39230", ",", "43436"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12389", ",", "15971", ",", "19984", ",", "22633", ",", "27804", ",", 
     "31803", ",", "36062", ",", "39833", ",", "43550"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12929", ",", "15744", ",", "19949", ",", "23716", ",", "27431", ",", 
     "31184", ",", "35106", ",", "39624", ",", "43078"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11909", ",", "14067", ",", "20488", ",", "24182", ",", "27826", ",", 
     "31719", ",", "36404", ",", "39937", ",", "44285"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13292", ",", "16452", ",", "20151", ",", "24171", ",", "27019", ",", 
     "31135", ",", "35581", ",", "40168", ",", "44790"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12350", ",", "15263", ",", "20455", ",", "24304", ",", "28494", ",", 
     "31073", ",", "35451", ",", "40505", ",", "43303"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13279", ",", "16004", ",", "19032", ",", "24077", ",", "26547", ",", 
     "31820", ",", "35494", ",", "38523", ",", "44350"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11510", ",", "16372", ",", "21116", ",", "23868", ",", "27810", ",", 
     "32455", ",", "34808", ",", "39069", ",", "42711"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12004", ",", "16413", ",", "19454", ",", "23622", ",", "28535", ",", 
     "32532", ",", "35713", ",", "38998", ",", "42228"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11248", ",", "15410", ",", "20897", ",", "24021", ",", "27353", ",", 
     "32837", ",", "35453", ",", "39920", ",", "43519"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12090", ",", "15769", ",", "20019", ",", "24174", ",", "28000", ",", 
     "33444", ",", "36225", ",", "39653", ",", "42943"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12391", ",", "16645", ",", "19220", ",", "22725", ",", "26101", ",", 
     "32364", ",", "34512", ",", "39559", ",", "41850"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11833", ",", "16887", ",", "19395", ",", "22945", ",", "27938", ",", 
     "32021", ",", "35377", ",", "39886", ",", "43651"}], "}"}]}], 
  "}"}]], "Print",
 CellChangeTimes->{3.85466739022993*^9, 3.8546731224106197`*^9, 
  3.854673847925762*^9, 3.8546811924135733`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"99a736f5-ff4c-4157-9d5a-5f9577c7af44"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "12074", ",", "15979", ",", "19323", ",", "22496", ",", "28399", ",", 
     "31326", ",", "35652", ",", "40719", ",", "42974"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13257", ",", "17046", ",", "20176", ",", "23990", ",", "28384", ",", 
     "31678", ",", "36915", ",", "40867", ",", "43791"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13048", ",", "16402", ",", "20270", ",", "23566", ",", "27018", ",", 
     "31259", ",", "36432", ",", "40007", ",", "43419"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "10793", ",", "16811", ",", "19925", ",", "23356", ",", "28610", ",", 
     "32380", ",", "34290", ",", "39939", ",", "44001"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11724", ",", "17045", ",", "18971", ",", "24051", ",", "28835", ",", 
     "32865", ",", "36217", ",", "39655", ",", "42997"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12085", ",", "15812", ",", "20389", ",", "22875", ",", "28699", ",", 
     "32553", ",", "35681", ",", "40558", ",", "42925"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11559", ",", "16708", ",", "20083", ",", "24649", ",", "27739", ",", 
     "31579", ",", "35780", ",", "38808", ",", "43153"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12096", ",", "15834", ",", "19372", ",", "23410", ",", "28280", ",", 
     "31924", ",", "36665", ",", "39230", ",", "43436"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12389", ",", "15971", ",", "19984", ",", "22633", ",", "27804", ",", 
     "31803", ",", "36062", ",", "39833", ",", "43550"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12929", ",", "15744", ",", "19949", ",", "23716", ",", "27431", ",", 
     "31184", ",", "35106", ",", "39624", ",", "43078"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11909", ",", "14067", ",", "20488", ",", "24182", ",", "27826", ",", 
     "31719", ",", "36404", ",", "39937", ",", "44285"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13292", ",", "16452", ",", "20151", ",", "24171", ",", "27019", ",", 
     "31135", ",", "35581", ",", "40168", ",", "44790"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12350", ",", "15263", ",", "20455", ",", "24304", ",", "28494", ",", 
     "31073", ",", "35451", ",", "40505", ",", "43303"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13279", ",", "16004", ",", "19032", ",", "24077", ",", "26547", ",", 
     "31820", ",", "35494", ",", "38523", ",", "44350"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11510", ",", "16372", ",", "21116", ",", "23868", ",", "27810", ",", 
     "32455", ",", "34808", ",", "39069", ",", "42711"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12004", ",", "16413", ",", "19454", ",", "23622", ",", "28535", ",", 
     "32532", ",", "35713", ",", "38998", ",", "42228"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11248", ",", "15410", ",", "20897", ",", "24021", ",", "27353", ",", 
     "32837", ",", "35453", ",", "39920", ",", "43519"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12090", ",", "15769", ",", "20019", ",", "24174", ",", "28000", ",", 
     "33444", ",", "36225", ",", "39653", ",", "42943"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12391", ",", "16645", ",", "19220", ",", "22725", ",", "26101", ",", 
     "32364", ",", "34512", ",", "39559", ",", "41850"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11833", ",", "16887", ",", "19395", ",", "22945", ",", "27938", ",", 
     "32021", ",", "35377", ",", "39886", ",", "43651"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.854667390214549*^9, 3.854673122351453*^9, 
  3.854673847875428*^9, 3.854681192423628*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"a3c729f4-fef3-467a-8421-bb4122fb2395"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "12193.`", ",", "16131.7`", ",", "19933.45`", ",", "23641.55`", ",", 
   "27841.1`", ",", "31997.55`", ",", "35690.9`", ",", "39772.9`", ",", 
   "43347.7`"}], "}"}]], "Output",
 CellChangeTimes->{3.854667390214549*^9, 3.854673122351453*^9, 
  3.854673847875428*^9, 3.854681192432246*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"efe4cd04-46b0-4c97-a8f0-376775fe1efe"]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{
  3.8263645378536053`*^9},ExpressionUUID->"2eb65454-7444-42ed-bf18-\
522835af1533"],

Cell[CellGroupData[{

Cell[BoxData[{"lenCur", "\[IndentingNewLine]", 
 RowBox[{"WriteString", "[", 
  RowBox[{"\"\<~/data_new.csv\>\"", ",", 
   RowBox[{"ExportString", "[", 
    RowBox[{"lenCur", ",", "\"\<CSV\>\""}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.826362822093914*^9, 3.826362823891902*^9}, {
  3.8263629830782747`*^9, 3.826362994117841*^9}, {3.8263630495295763`*^9, 
  3.8263631041499043`*^9}, {3.826363155409541*^9, 3.8263631892682323`*^9}, {
  3.8263685002010403`*^9, 3.826368530035274*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"8beaf8b8-823f-4b11-bc87-d8655ae25b60"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "12074", ",", "15979", ",", "19323", ",", "22496", ",", "28399", ",", 
     "31326", ",", "35652", ",", "40719", ",", "42974"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13257", ",", "17046", ",", "20176", ",", "23990", ",", "28384", ",", 
     "31678", ",", "36915", ",", "40867", ",", "43791"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13048", ",", "16402", ",", "20270", ",", "23566", ",", "27018", ",", 
     "31259", ",", "36432", ",", "40007", ",", "43419"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "10793", ",", "16811", ",", "19925", ",", "23356", ",", "28610", ",", 
     "32380", ",", "34290", ",", "39939", ",", "44001"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11724", ",", "17045", ",", "18971", ",", "24051", ",", "28835", ",", 
     "32865", ",", "36217", ",", "39655", ",", "42997"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12085", ",", "15812", ",", "20389", ",", "22875", ",", "28699", ",", 
     "32553", ",", "35681", ",", "40558", ",", "42925"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11559", ",", "16708", ",", "20083", ",", "24649", ",", "27739", ",", 
     "31579", ",", "35780", ",", "38808", ",", "43153"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12096", ",", "15834", ",", "19372", ",", "23410", ",", "28280", ",", 
     "31924", ",", "36665", ",", "39230", ",", "43436"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12389", ",", "15971", ",", "19984", ",", "22633", ",", "27804", ",", 
     "31803", ",", "36062", ",", "39833", ",", "43550"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12929", ",", "15744", ",", "19949", ",", "23716", ",", "27431", ",", 
     "31184", ",", "35106", ",", "39624", ",", "43078"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11909", ",", "14067", ",", "20488", ",", "24182", ",", "27826", ",", 
     "31719", ",", "36404", ",", "39937", ",", "44285"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13292", ",", "16452", ",", "20151", ",", "24171", ",", "27019", ",", 
     "31135", ",", "35581", ",", "40168", ",", "44790"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12350", ",", "15263", ",", "20455", ",", "24304", ",", "28494", ",", 
     "31073", ",", "35451", ",", "40505", ",", "43303"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "13279", ",", "16004", ",", "19032", ",", "24077", ",", "26547", ",", 
     "31820", ",", "35494", ",", "38523", ",", "44350"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11510", ",", "16372", ",", "21116", ",", "23868", ",", "27810", ",", 
     "32455", ",", "34808", ",", "39069", ",", "42711"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12004", ",", "16413", ",", "19454", ",", "23622", ",", "28535", ",", 
     "32532", ",", "35713", ",", "38998", ",", "42228"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11248", ",", "15410", ",", "20897", ",", "24021", ",", "27353", ",", 
     "32837", ",", "35453", ",", "39920", ",", "43519"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12090", ",", "15769", ",", "20019", ",", "24174", ",", "28000", ",", 
     "33444", ",", "36225", ",", "39653", ",", "42943"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "12391", ",", "16645", ",", "19220", ",", "22725", ",", "26101", ",", 
     "32364", ",", "34512", ",", "39559", ",", "41850"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "11833", ",", "16887", ",", "19395", ",", "22945", ",", "27938", ",", 
     "32021", ",", "35377", ",", "39886", ",", "43651"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.854681230084227*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"1ea1aa05-6a1f-4832-8d87-3fafb0e9f920"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.8239364767695017`*^9, {3.823936615164844*^9, 
   3.823936615744176*^9}},ExpressionUUID->"ce9ed138-8420-4a78-990a-\
fe45a0578124"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8239366171592207`*^9, 
  3.823936617620234*^9}},ExpressionUUID->"9162448b-a5d8-4ebb-bebe-\
33172c6da75d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Compute", " ", "the", " ", "averages", " ", "of", " ", "the", " ", 
    "lengths"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"MeanLen", " ", "=", " ", 
    RowBox[{"N", "[", 
     RowBox[{"Mean", "[", "lenCur", "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AvgLen", " ", "=", " ", 
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"9", ",", "2"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", "2"}], ",", 
      RowBox[{"i", "\[LessEqual]", "10"}], ",", 
      RowBox[{"i", "++"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"AvgLen", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "-", "1"}], ",", "1"}], "]"}], "]"}], "=", "i"}], ";", 
       RowBox[{
        RowBox[{"AvgLen", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}], "=", 
        RowBox[{"MeanLen", "[", 
         RowBox[{"[", 
          RowBox[{"i", "-", "1"}], "]"}], "]"}]}]}]}], "\[IndentingNewLine]", 
     "]"}], ";"}], "\[IndentingNewLine]", "AvgLen", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"AvgLen", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "12193"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "16131.7"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "19933.45"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "23641.55"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "27841.1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "31997.55"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", "35690.9"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"9", ",", "39772.9"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"10", ",", "43347.7"}], "}"}]}], "}"}]}], "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.826368785792993*^9, 3.826368874125773*^9}, {
  3.826368929796671*^9, 3.826368933857731*^9}, {3.82636902818694*^9, 
  3.826369068383232*^9}, {3.82636917568506*^9, 3.826369186150153*^9}, {
  3.826374940755809*^9, 3.826374953325358*^9}, {3.854672218807184*^9, 
  3.854672231146144*^9}, {3.854672682930004*^9, 3.854672686337892*^9}, {
  3.8546727199198017`*^9, 3.854672730991547*^9}, {3.854672765957769*^9, 
  3.854672824092225*^9}, {3.854672879621526*^9, 3.8546728934583807`*^9}, {
  3.854672927550766*^9, 3.85467303871024*^9}, {3.854681269821579*^9, 
  3.854681270041095*^9}, {3.8546814216370687`*^9, 3.854681443063849*^9}, {
  3.8546814971228123`*^9, 
  3.854681532531825*^9}},ExpressionUUID->"f7de8aad-49f0-49f2-84b1-\
7d072e879b97"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "12193.`", ",", "16131.7`", ",", "19933.45`", ",", "23641.55`", ",", 
   "27841.1`", ",", "31997.55`", ",", "35690.9`", ",", "39772.9`", ",", 
   "43347.7`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.826375072343813*^9, 3.8546722320039454`*^9, {3.85467300691462*^9, 
   3.8546730277344923`*^9}, {3.854681254032865*^9, 3.854681270701936*^9}, {
   3.854681423685957*^9, 3.854681443455709*^9}},
 CellLabel->
  "Out[100]=",ExpressionUUID->"53ec9bf7-745e-419a-922b-3c0266482bf5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "12193.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "16131.7`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "19933.45`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "23641.55`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "27841.1`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "31997.55`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "35690.9`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "39772.9`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "43347.7`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.826375072343813*^9, 3.8546722320039454`*^9, {3.85467300691462*^9, 
   3.8546730277344923`*^9}, {3.854681254032865*^9, 3.854681270701936*^9}, {
   3.854681423685957*^9, 3.854681443460498*^9}},
 CellLabel->
  "Out[103]=",ExpressionUUID->"7c4108d2-ec1b-4900-b785-0ba51cd84dd1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"line", "=", 
  RowBox[{"Fit", "[", 
   RowBox[{"AvgLen", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"ListPlot", "[", 
     RowBox[{"AvgLen", ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", "line", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "2", ",", "10"}], "}"}]}], "]"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.826369096111401*^9, 3.826369182440795*^9}, {
  3.8263749570587997`*^9, 3.826374957471154*^9}, {3.854672785605693*^9, 
  3.854672786018742*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"d73306aa-ca3d-4561-944c-b9e6f74d32e2"],

Cell[BoxData[
 RowBox[{"4297.542222222226`", "\[VeryThinSpace]", "+", 
  RowBox[{"3923.5550000000003`", " ", "x"}]}]], "Output",
 CellChangeTimes->{3.826375020243677*^9, 3.826375075360651*^9, 
  3.854681276468075*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"4e5c354c-0ee5-4ed1-83af-fc59744ee3e4"],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], PointBox[{{2., 12193.}, {3., 16131.7}, {4., 19933.45}, {5., 
      23641.55}, {6., 27841.1}, {7., 31997.55}, {8., 35690.9}, {9., 
      39772.9}, {10., 43347.7}}]}, {{}, {}}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkHk01AkAxwc7rqxjwkSumV9Eq5pVtnXEl6dS6Dkb2XiM2nZ1DCpja1dp
TU0H0UqHZBbboZ5JRWoj2dqZJlcmjZsx8xONdbzVtGRZ+8f3ff75vM8fXwaH
G75Lm0KhhCzsf7bVj1gsAEYM7byIGjHydHt4ulQKTLm5UqJWjNDg5k4jQwos
a+0+m3omRrP8XpGVOQUO2714+a/EeDl2xHGNMwVueQdj2/vEqLcxdv82lIJo
rXcubKoEFelukY1CCsoUrxpiwiU4xTpy/pKfFrxLLkwljErg+sWUhc81bVgH
7G3b7imF0jdXLVHq4O7p+1RW6isE5XvNTDCpmN68Y8NwaSOEB5pNnH7SxaRL
4Pyp8Sbo78vioV4PwooyY0PHFsROMoZ22xlgzoXZ6OHZip1VzdmuaYbQf8S8
2N/Xioxfrp18W70Ie690nz2Y/hr82ShBNu1zOBtV+87ZtaH4KKvbhW0Mn9ZA
W97jNuzxt96deMEEd0ONtBThMphJPsxG8kyRnjD5q+8/Mnz8xB1PWmKGwuc5
+7LPv0HEh9hdemIzWNaEaFo82iHIkfFSU2lQ717P1+lrh/hBzJpQ2mLYJJE+
Try3+FEYlfrg6WKUzVZUrbeVw8uKE3MmwRwCBYsdUCNHMnvwxbCpBRq2vany
je9Ahvv7JvNaC7AFN61dqZ0oEOocvR9riUAj93K94k4se517v2MRHecclBr5
hi48yVmdl1xBh9vJzfsvKrqwcjRqkTxkCVjlA+pNh7thbjKh/3xmCbJiLzv9
Zd8D6tNCEXHVCmsTDc9mPu7B3rW/dxoEWcNr+mqFIacXdzZzhHUaaxQFxcuz
dPugUVubDhUsRcxE94qx4j5UR2zSyQ+wwX7HH7yCN/bjWCC/+MGQDfruNKdd
VvSD2bulo5Rvi8j0FT1q7wF4rcvKt3Kzw05Oxjf8cwOItWuZ1pLZoeTQquSC
ngFopNmDyZn2MArjKhksBYK1V3u60BxQGmU0uixDAcPxmDAtjgO+q3nGE0oV
+LkO5VdrHBCt1OMU2A4iM1LETjFggLeuXKGzZxCeTfKNBgkM1Ef0PlXXDaLf
IiBL/yED65qdGcFmShg4elj66THRndJKXxanxJjl8Ih3HBO3e/X3pVUqEd1i
T0sVMXEztYiNeSVE7EKB8TwTsl1bXhwPUuFZQyv2RxFYwRDk+V5TIXoqJ0Tv
OgERlfn3AbUKfzb7s7g3CFgmG4saR1VYe0tDk98kkNE1k+Q4poJJXFzH9dsE
QkSywbcTC754ZeLGSgLvo/ltHhoV3Asb0/lPCCy/M1w5TyFB8zcs05EREIaL
ks9YkjhmU3dizxsC+rWFrio6iTFNyveydgLJywXD3lYkXt7uXFXaQcBnNj5+
bOmCb3HrkX8fgZ7faKFhDBLjw5taMkcIWE0fWk13JbHjj0+VI+8JHEvkqLkr
SUiLRPlhowTeNW29IVlF4no4PYYxTuBhyXL7w1+SiHsypKqfIrAtuNO49ysS
jQVXxM4aArXVL6TuX5PwTNlanvuRgCPj3okcDxIWTtXc+BkCUx9Oz/l6kzhO
SQqXfCIQE897fGk9iYkuW3fWvwQapIlpkz4L/arX9EtzC/+6h7ptwUL/HH9m
fp7A+WLvsRI/Ev8B4Gg4iA==
        "]]},
      Annotation[#, "Charting`Private`Tag$24707#1"]& ]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{1.8333333333333377`, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{1.8333333333333377`, 10.}, {0, 43347.7}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.826375020243677*^9, 3.826375075360651*^9, 
  3.854681276583559*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"2a54ce26-573d-4280-8815-bfda7f43b4e3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Calibration", " ", "of", " ", "length", " ", "using", " ", "a", " ", 
    "circle"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"image", " ", "=", " ", 
    RowBox[{"ContourPlot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"x", "-", "3"}], ")"}], "^", "2"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "3"}], ")"}], "^", "2"}]}], "\[Equal]", 
       RowBox[{"1.6", "*", "1.6"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "6.283"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", "0", ",", "6.283"}], "}"}], ",", 
      RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], "\[IndentingNewLine]", 
   
   RowBox[{"lens", "=", "0"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"imageMat", " ", "=", " ", 
     RowBox[{"ImageData", "[", "image", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "\[LessEqual]", 
      RowBox[{
       RowBox[{"Dimensions", "[", "imageMat", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"j", "=", "1"}], ",", 
       RowBox[{"j", "\[LessEqual]", 
        RowBox[{
         RowBox[{"Dimensions", "[", "imageMat", "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], ",", 
       RowBox[{"j", "++"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"imageMat", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j", ",", "1"}], "]"}], "]"}], "<", "0.85"}], "||", 
          RowBox[{
           RowBox[{"imageMat", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j", ",", "2"}], "]"}], "]"}], "<", "0.85"}], "||", 
          RowBox[{
           RowBox[{"imageMat", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j", ",", "3"}], "]"}], "]"}], "<", "0.85"}]}],
          ",", 
         RowBox[{"lens", "=", 
          RowBox[{"lens", "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "lens"}]}]], "Input",
 CellChangeTimes->{{3.826369749352664*^9, 3.826369812247095*^9}, {
  3.8263698470073147`*^9, 3.826369849182418*^9}, {3.82636993945958*^9, 
  3.826369990240357*^9}, {3.826370154411327*^9, 3.8263701692654457`*^9}, {
  3.8263702334030733`*^9, 3.826370233543826*^9}, {3.826370301401444*^9, 
  3.8263703015596457`*^9}, {3.826370360719194*^9, 3.826370361093544*^9}, {
  3.8263704185132103`*^9, 3.826370418875779*^9}, {3.826370453376697*^9, 
  3.826370482721015*^9}, {3.8263705182139683`*^9, 3.8263705249224567`*^9}, {
  3.854673168257719*^9, 
  3.854673173537938*^9}},ExpressionUUID->"9c4079de-eb61-4baf-a184-\
9674a1dac5c0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "These", " ", "values", " ", "were", " ", "obtained", " ", "by", " ", 
    "repeating", " ", "the", " ", "code", " ", "block", " ", "above", " ", 
    "for", " ", "different", " ", "radii"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"circleLen", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "3868"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.2", ",", "4097"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.6", ",", "4580"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.414", ",", "4337"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.732", ",", "4705"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "5034"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.236", ",", "5311"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.449", ",", "5606"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.646", ",", "5840"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.828", ",", "6025"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "6214"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"line", "=", 
    RowBox[{"Fit", "[", 
     RowBox[{"circleLen", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{"circleLen", ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", "line", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.826370037100263*^9, 3.826370092455688*^9}, {
  3.8263701953792267`*^9, 3.826370205082982*^9}, {3.8263702877816877`*^9, 
  3.826370351213313*^9}, {3.826370399038971*^9, 3.826370428473297*^9}, {
  3.826370461777843*^9, 3.826370492137107*^9}, {3.826370552642585*^9, 
  3.826370558567786*^9}, {3.854673959324266*^9, 3.8546739602036743`*^9}, {
  3.854681545961095*^9, 3.854681563688528*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"30542fc1-f0f0-447d-a1b2-912a3a5b96e5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "3868"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.2`", ",", "4097"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.6`", ",", "4580"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.414`", ",", "4337"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.732`", ",", "4705"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "5034"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.236`", ",", "5311"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.449`", ",", "5606"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.646`", ",", "5840"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.828`", ",", "6025"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "6214"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8263818606701393`*^9, 3.854681282400353*^9, 
  3.854681565558916*^9},
 CellLabel->
  "Out[104]=",ExpressionUUID->"33b5a8e8-e8ec-42d2-bf20-29a24a3d7e68"],

Cell[BoxData[
 RowBox[{"2668.5252143930497`", "\[VeryThinSpace]", "+", 
  RowBox[{"1188.1123113176418`", " ", "x"}]}]], "Output",
 CellChangeTimes->{3.8263818606701393`*^9, 3.854681282400353*^9, 
  3.854681565564196*^9},
 CellLabel->
  "Out[105]=",ExpressionUUID->"fe5e6cd2-0d09-403e-b2c6-2b77c0621852"],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], PointBox[{{1., 3868.}, {1.2, 4097.}, {1.6, 4580.}, {1.414, 
      4337.}, {1.732, 4705.}, {2., 5034.}, {2.236, 5311.}, {2.449, 5606.}, {
      2.646, 5840.}, {2.828, 6025.}, {3., 6214.}}]}, {{}, {}}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVink41HkAh2cG80O2lRA6HCGVQnQwbd9P0uwqRxTaeaLSqnXURNlUj8GW
zT6tKyopm7Yewj5zm/mVUotKcoQOOraWNkNilCPGsfaP93mf93le63B+YASL
wWD4TvO/I98O6jMYajLP3+og11qI77T6OCdYanL/gGFOhY0QDvZdMWwdNeFn
MBTOtkK8j25vNNBXk7sNbzUWi4T4YeT2GXNjNdnrc+VUv6MQu2aesnB1UBOR
t83lvDVCBK81X7J3i5rAy7axx18Ir7xvvOsL1STC3cExUyDEOZMxfUv/AbJC
bVAo7hRiwLI2/t3AAPGqSdq/wFMEu7r5iQnZn4gsf6Oe9HcRmty7qJx1n0nL
gsPLM5linFhVxbF6+5n0CwxSo53FEH4x/OyaOUj8NuasdtsjhoTXxTXlDJEX
v21o/vqsGJXeTRuiXw4Rvc6b57OrxVg/uaSG++swOXbZ6ubUkBiNJO9j7tIR
khnlq2dsJ4GbdbpMUjdCWhRXCWerBIa1Q+PbjnwhwZGqZr9UCYY1/P4os1Ei
WDKYpSuXIHAoNIJ6MEq6AvrKhO8lOJXReiQubowIxmYJ95lJcV/Oc91ipCE3
JOOv7nOlOF4YFCe/oyGrmp7uMzoqhYd5OO/07nESrIm31L4uBT+k457KcIIo
07VdO15Ikbiyp8H49gThXrm1rNVAhrOFWkmy0ElyrJoTFMWRYWFzlqxtxhTp
21zS9nG/DBUZTtkHhVOE3fk6bU6BDCbDpakf7Bnw0XCstj2SIY1K0A5PZODJ
0bTZiRMyJL9peD6rkYFJ9iVXH0c53PJf9560YyJmrEBE7ZTjia3Llp3HmWDz
Hxo9y5JjNP4r3UOPmPD6VPHHpjtytJdcZW6yYaHm5aWMsgE51l2r8ucdYkHV
6lUstSpH5gG73uYqFtx9TYvr/cpxca5nnYG5Fuodn7Fak8vhmNk1nhypBdbc
0NNJonIk/MuNpe9q4Ri/hW/WUQ5vlpPHYiNtnGuZmRIySwGqnxfADNfGG8Xh
oyVEgeRKlF6itRHFfNjQFauAYJsoJFZPBxd47/zqCxVY3fCcq7dbB/oWfUsL
WhV4ZeJ1Ulepg+s8a3WyjhJsO3fT9RQb3SVz/9F3U+KDqap7bRgbMTu1l6fs
VSKoydIoTsRGzkJ5ccFZJf4MuZg2c4oN1Y/pug3VSlRWPcaBIAoC46B7qqHp
fzDDlyqiQDd2CkttaVQ1ejrziyk4pX/66bgdDeeSYaPn1ykUbWYSH3saBmFh
bUVlFHJrFzR9XESj5sGyPVwJhdiq7/udl9JYcbE+IfUWhcWKJielCw1DT/1r
Wq0U8gsqxNXraAjmVf4S/YSC0Y66hFxCo3c4NrL1KYU0i3ZEgEZtWfvyq20U
jpwffsz2pJFkUnLD828KW7NdBrw30uhTfduU0k3BILXY5fFmGjuqNZLuHgon
NihGC31o1BWIcgN6KYwx7/0V60ujKHAOz7qfgkrQETDbn0borffv7g5SqEmY
HxccOP2fy3/gMEyBs9rRY9FWGmti/UqzRihIhzxYX6bb2F7B3zVGoTBu+5kL
QTR+ZkQF1moomLns40UF01C/mL/SeYJCRn+8DSeERlh585y8SQps4cmeGdtp
1Gemjk1NUUiMyZG+mu7/AP7gQG4=
        "]]},
      Annotation[#, "Charting`Private`Tag$27415#1"]& ]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.9583333333333357, 3737.666666666675},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0.9583333333333357, 3.}, {3737.666666666675, 6214.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.8263818606701393`*^9, 3.854681282400353*^9, 
  3.854681565670862*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"12cf50d6-f5ea-469e-8dc6-7313efdf6ffd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"calibAvgLen", "=", "AvgLen"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "The", " ", "way", " ", "we", " ", "have", " ", "calibrated", " ", 
     "using", " ", "the", " ", "circles"}], ",", " ", 
    RowBox[{
    "we", " ", "need", " ", "to", " ", "multiply", " ", "by", " ", "2", "Pi", 
     " ", "to", " ", "get", " ", "the", " ", "actual", " ", "length", 
     "\[IndentingNewLine]", "of", " ", "the", " ", 
     RowBox[{"curve", ".", " ", "However"}]}], ",", " ", 
    RowBox[{
    "the", " ", "flat", " ", "torus", " ", "is", " ", "itself", " ", "scaled",
      " ", "by", " ", "a", " ", "factor", " ", "of", " ", "2", "Pi", " ", 
     "in", " ", "our", " ", "code"}], ",", " ", 
    RowBox[{"and", " ", "we", " ", 
     RowBox[{"haven", "'"}], "t", "\[IndentingNewLine]", "done", " ", "this", 
     " ", "scaling", " ", "in", " ", "the", " ", 
     RowBox[{"paper", ".", " ", "So"}], " ", "we", " ", "need", " ", "to", 
     " ", "divide", " ", "by", " ", "a", " ", "factor", " ", "of", " ", "2", 
     "Pi", " ", "to", " ", "get", " ", "the", " ", "actual", " ", "length", 
     " ", "obtained", "\[IndentingNewLine]", "in", " ", "the", " ", 
     RowBox[{"paper", ".", " ", "These"}], " ", "two", " ", "effects", " ", 
     "cancel", " ", "off", " ", "below", " ", "while", " ", "computing", " ", 
     "the", " ", "calibrated", "\[IndentingNewLine]", "average", " ", 
     RowBox[{"length", "."}]}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{
     RowBox[{"Dimensions", "[", "AvgLen", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{
    RowBox[{"calibAvgLen", "[", 
     RowBox[{"[", 
      RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"AvgLen", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", "2668.53"}], ")"}], "/", 
     "1188.11"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"calibAvgLen", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "slope", " ", "of", " ", "this", " ", "line", " ", "is", " ", 
    "approximately", " ", "3.3"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"line", "=", 
  RowBox[{"Fit", "[", 
   RowBox[{"calibAvgLen", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"calibAvgLen", ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", "line", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "2", ",", "10"}], "}"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{"line", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
      RowBox[{"Point", "[", "calibAvgLen", "]"}]}], "}"}]}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.82637066255665*^9, 3.8263708369547033`*^9}, {
  3.8263708677828836`*^9, 3.8263708927264023`*^9}, {3.826375059566556*^9, 
  3.826375060624691*^9}, {3.8263750914438667`*^9, 3.826375092455473*^9}, {
  3.8263754225024223`*^9, 3.8263754490177298`*^9}, {3.854673993053269*^9, 
  3.854674125373867*^9}, {3.854681591347602*^9, 
  3.85468160343707*^9}},ExpressionUUID->"0f5e2507-4b8d-44b8-9c3b-\
a15cac287e8c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "12193.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "16131.7`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "19933.45`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "23641.55`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "27841.1`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "31997.55`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "35690.9`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "39772.9`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "43347.7`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.826375036656643*^9, 3.826375062012167*^9}, 
   3.8263750956517477`*^9, 3.826375256309999*^9, {3.82637543437473*^9, 
   3.8263754496421223`*^9}, 3.854681287152733*^9, 3.854681572031879*^9},
 CellLabel->
  "Out[107]=",ExpressionUUID->"991dfda6-dc98-488c-95ad-39f7d7af6abe"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "8.01648837228876`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "11.331585459258823`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "14.531415441331193`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "17.65242275546877`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "21.187070220770806`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "24.68544158369175`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "27.794034222420485`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "31.229743037260864`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "34.23855535261887`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.826375036656643*^9, 3.826375062012167*^9}, 
   3.8263750956517477`*^9, 3.826375256309999*^9, {3.82637543437473*^9, 
   3.8263754496421223`*^9}, 3.854681287152733*^9, 3.854681572037239*^9},
 CellLabel->
  "Out[109]=",ExpressionUUID->"dc37c597-1c53-4cd0-934f-d10bcb5f2a07"],

Cell[BoxData[
 RowBox[{"1.3710954559950088`", "\[VeryThinSpace]", "+", 
  RowBox[{"3.3023499507621352`", " ", "x"}]}]], "Output",
 CellChangeTimes->{{3.826375036656643*^9, 3.826375062012167*^9}, 
   3.8263750956517477`*^9, 3.826375256309999*^9, {3.82637543437473*^9, 
   3.8263754496421223`*^9}, 3.854681287152733*^9, 3.854681572042007*^9},
 CellLabel->
  "Out[110]=",ExpressionUUID->"671bd97f-fc39-43e3-8945-61fe72c34ea4"],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], PointBox[{{2., 8.01648837228876}, {3., 11.331585459258823`}, {4., 
      14.531415441331193`}, {5., 17.65242275546877}, {6., 
      21.187070220770806`}, {7., 24.68544158369175}, {8., 
      27.794034222420485`}, {9., 31.229743037260864`}, {10., 
      34.23855535261887}}]}, {{}, {}}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjHs01HkAR8fbKKYZM0SYx7dkKoxhEiM+v6nVi/WItE4UqTY9POo0Simh
7BbJWqsUWqlNFkVK2w5lt1GJJi1j0zqlI69QMVoqa/+45/5zz+VHxgRu0abR
aL7T/O+n9X2caWHlEq6R6xsuTut3yvX1aCi4zeSkDHPh79PcMdOIhvceuryW
cS6a26+ft2DT0FI0etZZl4cHQ4nznO1oOFDSUfmIzUO9lYlkqz8NT8qLOycl
PJQniIOaimg4dNfVZUMCD9+JErPzKC209WzstvrMw6KFoxzPAm2MfXqV8MFK
gG6vrIHGbh00dp77WCMkWJMjnRgR6CHD6aTKxWkuivY0M2wP6aMuoPylgd88
GO5KlaPeACVSg07lN7YIe8fv2WZDx/hItvGLA/MRdaM5Y9E+I3jMCcory7VD
0g8Fx9tqZkDC8DHeXihE2qfg9AyWMfKb99UeUCxA4WHRc2GICapD1H77Hy7E
Dpnlts0/MlAfHOMlVi0Cs3HsU5B8Fly5blsxZI/xyZjh6NlMRF13k0s/OmDt
WNgWAyUTSek1XV/NFCE9s1UeH8/CsvfRokdnRFBWhzr7s0zRXe+uuW/thINF
wfHVdaZwGysOeVvmBKlFZOiJCDa2Z9o5fC8WIzbk1Z+9szjwy/AuCmgQI0nS
/5j9OwcV3lOe+wKckVukc7gqzAx9Ua2BzDZnzFVlValnmEPdC+32LS64k+l4
OrbcHMWqB7amgy6wHwye0e47Gz1738rLYiRgM0YM/5iYja5DpVGxXyTQq8uv
IOcsUDVw9H5pymLsdPmtg77GEkvrRhsYbFeUrYosUmgsAV+tIdUFV2gGLGf1
5M6BNYQZRrZLULN2hU7OcitU5vUrd91YgiMr0wqre6xgs04pXyF1g+DFanVx
mjV0mz2DkhRukLqm5liIbXDhql9Tl487wmxa/tVqtYH5UGLtTZU7NA8zXsUm
c7E8l5LdjpDCR9vRXcjiYU2xAM69UhgNhwZoRfLQFF0QTd/pgRQFSs/d4kEn
r0pkNOmB5KCKkDg6H+wFr3ckH1kK98ft3vQIPp7zy2WE6YkuzvJUw5t8zHnG
8hYUeoI+z82MMhDAZSBb8RPxwpBZb59HuAC635Y9da3ywvoWLiu+QgD1xRH7
y1ZARUh+usmUAP3xasOIcODuvSfYHUzQ/uGkU2UJsH4009fgEoHT/JYc917g
frNMFHOZgF7VcH1zH+ByRcNq/4XgpeetJyf7AUZ4uPrSVYKsdRdmdg1O90r7
zd7XCIbT9qSmvAMk+U0JaXcIfn1tvrdpAmDJjC7qtBIIf960NtyYwhErxbEd
zwi0HILjjptQGNLEbW/9i6CjdtWpSgaFB1c7HIrVBOkq8SNt1nTPuVIr+4fg
DU1v2WUzCsO9K1qS+whKNl4Rj3ApbGiYvNbXT3Bw4Ly/BZ/Cw/MVOQGDBEHy
7N0yAYVLgeah/GEC3VOJpTlzKYTf6XldP0oQpfAVuAkpNOWeVdppCDxWyxC5
gIJ73NelWeMEpm2Lw08spMCxrYnZNEFw7y337At7Ckdp0YGNkwRn9rNv6TtS
GPnbWiL6TBCnR29zFE3/b6jM874QrDr9+cN6p+n/qbSJqSkCvvV75lExhf8A
5YgJSw==
        "]]},
      Annotation[#, "Charting`Private`Tag$27814#1"]& ]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{1.8333333333333377`, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{1.8333333333333377`, 10.}, {0, 34.23855535261887}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.826375036656643*^9, 3.826375062012167*^9}, 
   3.8263750956517477`*^9, 3.826375256309999*^9, {3.82637543437473*^9, 
   3.8263754496421223`*^9}, 3.854681287152733*^9, 3.854681572117773*^9},
 CellLabel->
  "Out[111]=",ExpressionUUID->"989c4096-1a7e-476c-aa5b-9773ed822957"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVz3k4lAkAx3F3xWhRLDlmxjsZ9zGplOP9vWGTc+VoV63NVJQkWXrKSJJ2
TB7MFuNeobIeOeoZbaqVLSXXVJRsbMmRJ0uJRo5pZ9s/vs/n7y+Te3j7PiUF
BQW/L/1vaQpXzWFvppvbqcEUpWkp2drL8N3BOEBO0AobUwzmSPmD5tMMxnFS
VBAyubhljixtyaKrMgTkVL3k+9m8OTLGNfHQJ3ohWfKyxXHU+RPZu7Q/d5pe
TS45X5q4z58nlw0Ms6foTeSNuUOhAvoSWd5RduQfejupf12ul8FWQF29YCDG
9gV5jZWj1PRAFVHkk8LJ+BHy8Wn7U2fVNBA7ZjEirntLPs1791KuqwV1Zjr7
ldM0GfDGnZ8zpINsrU7L8t2zpKad6fHDPF1wB4LvKHfNkWEJ8gSWvz6O3E/n
HmYvkmrhwwE1qwxxNY4WpL/tMzlD+iekVRujnHdwwn6HApxydgXmOzOQViYL
/DipiIKk0Ky8s0wo9A7hdpIyzJx6b8h6TGGWEHks2FIVsp8CDvhvZGFUmh+q
8YcaZq2Ebg9Pr4X3WPSJc0eWg8N9XGA9aQb/UaGViYk6yqLPDy/4mWPiHjf1
Ya0GbN+vCXyfbwFb7T5j9x81oTJT7vHosyXUSWnE4OxKyOKmdj33scbWqbBP
piFacI51WmxvtEH/3b2KYdbaqHZV4681sENjRms4Q6qNYg/fkmCOPSJVE4ck
Eh3wLfJ+13hjjz3xvEZa0Sqk+WKsL8sBdlFWEt+I1RD1XzkbyuHgkY61RuIm
XXQThfGdoxzcqksrtlbWw+ra8ZjgzHXgKVp+2/W3HlKljdU9pCPUB5O8YsVf
Q7nKM1z1gyPGLjNzy5L1IRJtXOsrWo9ccwOVphAD+HlW22Zs2wBhUWRbBGMN
9DgnvPunNyAs9wcJbXwNpHydl4O5GzHvcWmhrNkQ8yVscd83ThgZ23LsLt8I
mtO/loxOOqHC1cGwO8IYnkqitvELm1B7JlE7ysYE2dvfq8i9NoMfssdHWWqC
dxrqNzumNmP9YHk1v5uO+PSLVzMvOKPAori224eBZc7lt3ZvdcHJlqwCnyYG
WhqMl1vJXOBnGHKpg8VETs7OrupaV1CxbTu1BUzEXlmqcAlyQ5kRl9UlZSI+
w/B2qxoJ1r0qkf9OU/ArSsd315EQ2ty17Gk2xYtzcfe/swAiZ1WetFsSUHLc
foOXBnCvzjAEOQTWfdwr/u0ZEJMWJPP+hYBiZZ+B0XMgMUj8nHaegCTQ62RO
P5AhTcwWighE11t5Hx0A6jYtLOWXEqiInnnl/hpY+FPed7mGgNbrkxqvJgFh
Dy2rtY3AVHcRV1eFQlHlof0/txO4lUx7mKFKoTJB4u7VSUBglWIjU6NwXU+4
2CkhwBJEzA+voDAYtmp/7zMCuzzMsxu+osAeMXAfHiHQcbOxyceQgr04yeTi
GIGCA2z6HSMKm88MLOwbJxCpX5jOMaHgyy5teDvx5edocoABk0L8QYbJhw8E
nBzcx96YUUh2ObVwbZbAsiGxd5g5hTOaw08TpASeZps1dFtQKKivzJyfJxA3
uYIntqZQkaoSdXORgFsxb4htS6EmcN+WZBkBmveUZ7EdBbHpA2O3fwn8NR9e
s9KBQvOs2YJcTqCq6rFWGofCf1k8JVE=
       "]]},
     Annotation[#, "Charting`Private`Tag$27866#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[1, 0, 0], 
    PointSize[Medium], 
    PointBox[{{2, 8.01648837228876}, {3, 11.331585459258823`}, {
      4, 14.531415441331193`}, {5, 17.65242275546877}, {
      6, 21.187070220770806`}, {7, 24.68544158369175}, {
      8, 27.794034222420485`}, {9, 31.229743037260864`}, {
      10, 34.23855535261887}}]},
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 10}, {0., 34.39459428966739}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.826375036656643*^9, 3.826375062012167*^9}, 
   3.8263750956517477`*^9, 3.826375256309999*^9, {3.82637543437473*^9, 
   3.8263754496421223`*^9}, 3.854681287152733*^9, 3.854681572187932*^9},
 CellLabel->
  "Out[112]=",ExpressionUUID->"49d1ceaf-7ade-4722-8554-54a0dcae9e0d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Determine", " ", "the", " ", "slope", " ", "theoretically", " ", "using", 
    " ", "Monte", " ", "Carlo"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"V", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"1", "/", "5"}], ",", "0", ",", 
         RowBox[{"1", "/", "9"}], ",", "0", ",", "0"}], " ", "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"1", "/", "9"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"1", "/", "9"}], ",", "0", ",", 
         RowBox[{"1", "/", "5"}], ",", "0", ",", "0"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], "}"}]}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"V", "//", "MatrixForm"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"EV", "=", 
     RowBox[{"Eigenvectors", "[", "V", "]"}]}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{
     RowBox[{"EV", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", 
        RowBox[{"1", ";;", "5"}]}], "]"}], "]"}], "=", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"Sqrt", "[", "2", "]"}]], 
      RowBox[{"EV", "[", 
       RowBox[{"[", 
        RowBox[{"3", ",", 
         RowBox[{"1", ";;", "5"}]}], "]"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"EV", "[", 
      RowBox[{"[", 
       RowBox[{"5", ",", 
        RowBox[{"1", ";;", "5"}]}], "]"}], "]"}], "=", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"Sqrt", "[", "2", "]"}]], 
      RowBox[{"EV", "[", 
       RowBox[{"[", 
        RowBox[{"5", ",", 
         RowBox[{"1", ";;", "5"}]}], "]"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"EV", ".", 
     RowBox[{"Transpose", "[", "EV", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Lambda", " ", "=", " ", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"EV", ".", "V", ".", 
       RowBox[{"Transpose", "[", "EV", "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Lambda", "//", "MatrixForm"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SqRtV", " ", "=", " ", 
     RowBox[{"Lambda", ".", "EV"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Transpose", "[", "SqRtV", "]"}], "//", "MatrixForm"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Transpose", "[", "SqRtV", "]"}], ".", "SqRtV"}], "//", 
    "MatrixForm"}], "\[IndentingNewLine]", 
   RowBox[{"count", "=", "200000"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"samples", " ", "=", " ", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"NormalDistribution", "[", "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"count", ",", "5"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "\[LessEqual]", "count"}], ",", 
     RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"samples", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", 
         RowBox[{"1", ";;", "5"}]}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"Transpose", "[", "SqRtV", "]"}], ".", 
       RowBox[{"samples", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", 
          RowBox[{"1", ";;", "5"}]}], "]"}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"samples", "//", "MatrixForm"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LenArr", "=", 
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", "count"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "\[LessEqual]", "count"}], ",", 
     RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"a", "=", 
       RowBox[{"samples", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"b", "=", 
       RowBox[{"samples", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"c", "=", 
       RowBox[{"samples", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"v1", "=", 
       RowBox[{"samples", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"v2", "=", 
       RowBox[{"samples", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{
       RowBox[{"LenArr", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "=", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"c", "*", "v1"}], "-", 
            RowBox[{"b", "*", "v2"}]}], ")"}], "^", "2"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "b"}], "*", "v1"}], "+", 
            RowBox[{"a", "*", "v2"}]}], ")"}], "^", "2"}]}], "]"}]}]}]}], 
    "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
   RowBox[{"LenArr", ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "This", " ", "is", " ", "the", " ", "theoretical", " ", "scaling", " ", 
     "factor", " ", "which", " ", "will", " ", "also", " ", "be", " ", 
     "close", " ", "to", " ", "3.3"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Sqrt", "[", "3", "]"}], "*", "Pi", "*", 
    RowBox[{"Mean", "[", "LenArr", "]"}]}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.826379821544085*^9, 3.826379915732978*^9}, {
   3.826379952377236*^9, 3.8263801495833483`*^9}, {3.8263801859038258`*^9, 
   3.826380355748126*^9}, {3.8263803982381487`*^9, 3.826380436334957*^9}, {
   3.82638047412939*^9, 3.826380641643773*^9}, {3.826380686913745*^9, 
   3.826380739895431*^9}, {3.826380786668187*^9, 3.826380881738696*^9}, {
   3.826380919232893*^9, 3.826380991061631*^9}, {3.826381021137144*^9, 
   3.826381080260665*^9}, {3.826381124431789*^9, 3.826381131460202*^9}, 
   3.8263812231424837`*^9, {3.826381358962034*^9, 3.826381375411007*^9}, {
   3.826382189999061*^9, 3.826382191698696*^9}, {3.8263822312626867`*^9, 
   3.826382231382901*^9}, {3.854674135809516*^9, 3.854674136628577*^9}, {
   3.8546741859781313`*^9, 3.854674191972878*^9}, {3.854681608548882*^9, 
   3.8546816218256693`*^9}},ExpressionUUID->"ae8cbc3b-06a8-4b10-81c8-\
55ad56a8feeb"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox["1", "5"], "0", 
      FractionBox["1", "9"], "0", "0"},
     {"0", 
      FractionBox["1", "9"], "0", "0", "0"},
     {
      FractionBox["1", "9"], "0", 
      FractionBox["1", "5"], "0", "0"},
     {"0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.826379913227457*^9, {3.826379980484824*^9, 3.82638001353395*^9}, {
   3.826380044442409*^9, 3.82638006008282*^9}, {3.8263801124359503`*^9, 
   3.826380149971052*^9}, {3.826380187351583*^9, 3.826380216105109*^9}, {
   3.82638029306979*^9, 3.8263803003731318`*^9}, {3.826380347575082*^9, 
   3.826380356026663*^9}, 3.826380436739627*^9, {3.826380479725968*^9, 
   3.826380495874311*^9}, {3.826380555576054*^9, 3.8263805626724043`*^9}, {
   3.826380616084367*^9, 3.826380625986616*^9}, 3.826380740549658*^9, 
   3.826380789920384*^9, 3.8263809979961557`*^9, {3.826381028624167*^9, 
   3.826381101323406*^9}, 3.82638113190473*^9, 3.82638122357625*^9, 
   3.8263813235397263`*^9, 3.826381376053423*^9, 3.82638219219692*^9, 
   3.826382232189527*^9, 3.8546812941729307`*^9},
 CellLabel->
  "Out[74]//MatrixForm=",ExpressionUUID->"af7bfaab-3ecf-4304-80eb-\
35c2f5540282"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0"},
     {"0", "0", 
      FractionBox[
       SqrtBox[
        FractionBox["14", "5"]], "3"], "0", "0"},
     {"0", "0", "0", 
      FractionBox["1", "3"], "0"},
     {"0", "0", "0", "0", 
      FractionBox["2", 
       RowBox[{"3", " ", 
        SqrtBox["5"]}]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.826379913227457*^9, {3.826379980484824*^9, 3.82638001353395*^9}, {
   3.826380044442409*^9, 3.82638006008282*^9}, {3.8263801124359503`*^9, 
   3.826380149971052*^9}, {3.826380187351583*^9, 3.826380216105109*^9}, {
   3.82638029306979*^9, 3.8263803003731318`*^9}, {3.826380347575082*^9, 
   3.826380356026663*^9}, 3.826380436739627*^9, {3.826380479725968*^9, 
   3.826380495874311*^9}, {3.826380555576054*^9, 3.8263805626724043`*^9}, {
   3.826380616084367*^9, 3.826380625986616*^9}, 3.826380740549658*^9, 
   3.826380789920384*^9, 3.8263809979961557`*^9, {3.826381028624167*^9, 
   3.826381101323406*^9}, 3.82638113190473*^9, 3.82638122357625*^9, 
   3.8263813235397263`*^9, 3.826381376053423*^9, 3.82638219219692*^9, 
   3.826382232189527*^9, 3.854681294180847*^9},
 CellLabel->
  "Out[80]//MatrixForm=",ExpressionUUID->"f96a2775-1d0d-493f-9cd6-\
a83c493ed010"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", 
      FractionBox[
       SqrtBox[
        FractionBox["7", "5"]], "3"], "0", 
      RowBox[{"-", 
       FractionBox[
        SqrtBox[
         FractionBox["2", "5"]], "3"]}]},
     {"0", "0", "0", 
      FractionBox["1", "3"], "0"},
     {"0", "0", 
      FractionBox[
       SqrtBox[
        FractionBox["7", "5"]], "3"], "0", 
      FractionBox[
       SqrtBox[
        FractionBox["2", "5"]], "3"]},
     {"0", "1", "0", "0", "0"},
     {"1", "0", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.826379913227457*^9, {3.826379980484824*^9, 3.82638001353395*^9}, {
   3.826380044442409*^9, 3.82638006008282*^9}, {3.8263801124359503`*^9, 
   3.826380149971052*^9}, {3.826380187351583*^9, 3.826380216105109*^9}, {
   3.82638029306979*^9, 3.8263803003731318`*^9}, {3.826380347575082*^9, 
   3.826380356026663*^9}, 3.826380436739627*^9, {3.826380479725968*^9, 
   3.826380495874311*^9}, {3.826380555576054*^9, 3.8263805626724043`*^9}, {
   3.826380616084367*^9, 3.826380625986616*^9}, 3.826380740549658*^9, 
   3.826380789920384*^9, 3.8263809979961557`*^9, {3.826381028624167*^9, 
   3.826381101323406*^9}, 3.82638113190473*^9, 3.82638122357625*^9, 
   3.8263813235397263`*^9, 3.826381376053423*^9, 3.82638219219692*^9, 
   3.826382232189527*^9, 3.8546812941902943`*^9},
 CellLabel->
  "Out[82]//MatrixForm=",ExpressionUUID->"33dc21ed-e20c-4e17-9744-\
30b548e28995"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox["1", "5"], "0", 
      FractionBox["1", "9"], "0", "0"},
     {"0", 
      FractionBox["1", "9"], "0", "0", "0"},
     {
      FractionBox["1", "9"], "0", 
      FractionBox["1", "5"], "0", "0"},
     {"0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.826379913227457*^9, {3.826379980484824*^9, 3.82638001353395*^9}, {
   3.826380044442409*^9, 3.82638006008282*^9}, {3.8263801124359503`*^9, 
   3.826380149971052*^9}, {3.826380187351583*^9, 3.826380216105109*^9}, {
   3.82638029306979*^9, 3.8263803003731318`*^9}, {3.826380347575082*^9, 
   3.826380356026663*^9}, 3.826380436739627*^9, {3.826380479725968*^9, 
   3.826380495874311*^9}, {3.826380555576054*^9, 3.8263805626724043`*^9}, {
   3.826380616084367*^9, 3.826380625986616*^9}, 3.826380740549658*^9, 
   3.826380789920384*^9, 3.8263809979961557`*^9, {3.826381028624167*^9, 
   3.826381101323406*^9}, 3.82638113190473*^9, 3.82638122357625*^9, 
   3.8263813235397263`*^9, 3.826381376053423*^9, 3.82638219219692*^9, 
   3.826382232189527*^9, 3.8546812942000027`*^9},
 CellLabel->
  "Out[83]//MatrixForm=",ExpressionUUID->"3ff027e4-a632-4f98-8907-\
162104131dc5"],

Cell[BoxData["200000"], "Output",
 CellChangeTimes->{
  3.826379913227457*^9, {3.826379980484824*^9, 3.82638001353395*^9}, {
   3.826380044442409*^9, 3.82638006008282*^9}, {3.8263801124359503`*^9, 
   3.826380149971052*^9}, {3.826380187351583*^9, 3.826380216105109*^9}, {
   3.82638029306979*^9, 3.8263803003731318`*^9}, {3.826380347575082*^9, 
   3.826380356026663*^9}, 3.826380436739627*^9, {3.826380479725968*^9, 
   3.826380495874311*^9}, {3.826380555576054*^9, 3.8263805626724043`*^9}, {
   3.826380616084367*^9, 3.826380625986616*^9}, 3.826380740549658*^9, 
   3.826380789920384*^9, 3.8263809979961557`*^9, {3.826381028624167*^9, 
   3.826381101323406*^9}, 3.82638113190473*^9, 3.82638122357625*^9, 
   3.8263813235397263`*^9, 3.826381376053423*^9, 3.82638219219692*^9, 
   3.826382232189527*^9, 3.854681294206752*^9},
 CellLabel->"Out[84]=",ExpressionUUID->"4ff54b7c-08b9-44e7-9f45-f14f9e1c1dcd"],

Cell[BoxData["3.2952733127505307`"], "Output",
 CellChangeTimes->{
  3.826379913227457*^9, {3.826379980484824*^9, 3.82638001353395*^9}, {
   3.826380044442409*^9, 3.82638006008282*^9}, {3.8263801124359503`*^9, 
   3.826380149971052*^9}, {3.826380187351583*^9, 3.826380216105109*^9}, {
   3.82638029306979*^9, 3.8263803003731318`*^9}, {3.826380347575082*^9, 
   3.826380356026663*^9}, 3.826380436739627*^9, {3.826380479725968*^9, 
   3.826380495874311*^9}, {3.826380555576054*^9, 3.8263805626724043`*^9}, {
   3.826380616084367*^9, 3.826380625986616*^9}, 3.826380740549658*^9, 
   3.826380789920384*^9, 3.8263809979961557`*^9, {3.826381028624167*^9, 
   3.826381101323406*^9}, 3.82638113190473*^9, 3.82638122357625*^9, 
   3.8263813235397263`*^9, 3.826381376053423*^9, 3.82638219219692*^9, 
   3.826382232189527*^9, 3.854681301082719*^9},
 CellLabel->"Out[91]=",ExpressionUUID->"29cd8979-4bec-4099-93b0-6bc3eef83c94"]
}, Open  ]]
},
WindowSize->{1149.75, 633.75},
WindowMargins->{{Automatic, 0}, {0, Automatic}},
TaggingRules->{
 "WelcomeScreenSettings" -> {"FEStarting" -> False}, "TryRealOnly" -> False},
FrontEndVersion->"13.0 for Linux x86 (64-bit) (December 2, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"39c3bd66-4726-402b-b13e-bf2afd07a018"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 17230, 400, 834, "Input",ExpressionUUID->"772faf65-0326-4a81-ae87-2d3a44801d67"],
Cell[17813, 424, 3049, 86, 96, "Output",ExpressionUUID->"20c48a76-71a5-4ef7-8026-09de0a449de2"],
Cell[CellGroupData[{
Cell[20887, 514, 252, 6, 23, "Print",ExpressionUUID->"127a081c-3e9f-4d5f-8155-58879811bc3b"],
Cell[21142, 522, 252, 6, 23, "Print",ExpressionUUID->"47486885-5722-42b1-a096-1e9ec1e7f1c0"],
Cell[21397, 530, 246, 5, 23, "Print",ExpressionUUID->"dca56633-f377-4cb4-a2e0-c09f8140edc4"],
Cell[21646, 537, 244, 5, 23, "Print",ExpressionUUID->"0f004948-bbea-4d7f-9127-8afb6bf2d8f2"],
Cell[21893, 544, 246, 5, 23, "Print",ExpressionUUID->"fd6f7ace-9193-4eb6-9e91-b09318626f9f"],
Cell[22142, 551, 246, 5, 23, "Print",ExpressionUUID->"2a97b873-16b8-406c-a53d-fc4604a359af"],
Cell[22391, 558, 246, 5, 23, "Print",ExpressionUUID->"6ed7cf08-9476-4683-a513-fbff5780570f"],
Cell[22640, 565, 246, 5, 23, "Print",ExpressionUUID->"c7f6bb92-350a-4c1b-9edb-5e48f7fa3bd3"],
Cell[22889, 572, 244, 5, 23, "Print",ExpressionUUID->"fb1ad2a9-3b0d-4daf-99d0-ad306b11695a"],
Cell[23136, 579, 244, 5, 23, "Print",ExpressionUUID->"af44c215-da1c-4217-ad85-bf90fe04eeb3"],
Cell[23383, 586, 245, 5, 23, "Print",ExpressionUUID->"c66766d0-74dd-4100-a2b7-affecba32125"],
Cell[23631, 593, 245, 5, 23, "Print",ExpressionUUID->"52159433-1c84-4625-898d-48c47dcbb343"],
Cell[23879, 600, 245, 5, 23, "Print",ExpressionUUID->"665d136d-dfd2-4225-8ce9-a29014d5350b"],
Cell[24127, 607, 245, 5, 23, "Print",ExpressionUUID->"2cf1c12f-6a77-4b51-8607-86d0f33d7ae6"],
Cell[24375, 614, 247, 5, 23, "Print",ExpressionUUID->"2f98aa71-de35-4769-abb5-39a87baa5f24"],
Cell[24625, 621, 245, 5, 23, "Print",ExpressionUUID->"1484d226-0948-4be0-bc4d-e12b2592ca30"],
Cell[24873, 628, 247, 5, 23, "Print",ExpressionUUID->"7454f7e2-5ca5-4bb6-ae2c-ab46ade39c73"],
Cell[25123, 635, 245, 5, 23, "Print",ExpressionUUID->"5f733746-1dad-4458-a588-f5d4c07fa933"],
Cell[25371, 642, 245, 5, 23, "Print",ExpressionUUID->"f900a9d9-712e-4b5f-8a58-9c82ada16e8a"],
Cell[25619, 649, 245, 5, 23, "Print",ExpressionUUID->"540b8ca0-1a49-46a6-b53c-cdd716850bcb"],
Cell[25867, 656, 245, 5, 23, "Print",ExpressionUUID->"f368501d-7a88-44e1-a8a2-aecbeac65608"],
Cell[26115, 663, 3149, 87, 103, "Print",ExpressionUUID->"6d9dde71-8641-469f-9f94-92578a0a6cbd"],
Cell[29267, 752, 246, 5, 23, "Print",ExpressionUUID->"c00fd832-11fd-4543-8445-079ce73ea303"],
Cell[29516, 759, 244, 5, 23, "Print",ExpressionUUID->"b14ef2ff-8ef6-4206-937e-d272b4c09b1e"],
Cell[29763, 766, 244, 5, 23, "Print",ExpressionUUID->"64b114fd-a9f6-4c01-9108-6c638c92bf0e"],
Cell[30010, 773, 246, 5, 23, "Print",ExpressionUUID->"5f235822-0d78-41e8-97c9-50c28a0f7c80"],
Cell[30259, 780, 246, 5, 23, "Print",ExpressionUUID->"d920ac14-befe-4fa4-a6b2-26dce105f678"],
Cell[30508, 787, 244, 5, 23, "Print",ExpressionUUID->"8a5a7662-6480-4b08-98d2-d2ea2bba66da"],
Cell[30755, 794, 244, 5, 23, "Print",ExpressionUUID->"b5fad9ef-9c9d-49f5-a4cf-822c9a9a98b5"],
Cell[31002, 801, 244, 5, 23, "Print",ExpressionUUID->"238c567e-d548-4cc7-81aa-e2cc4291f3df"],
Cell[31249, 808, 244, 5, 23, "Print",ExpressionUUID->"943d3490-c1a7-4b25-b838-f30ada8eb8d2"],
Cell[31496, 815, 244, 5, 23, "Print",ExpressionUUID->"ead448c6-455f-4e09-95ef-38bf93f0418a"],
Cell[31743, 822, 244, 5, 23, "Print",ExpressionUUID->"956f4279-0dec-42ab-a0d9-ca30bebc2fa4"],
Cell[31990, 829, 245, 5, 23, "Print",ExpressionUUID->"eb5831c9-40f2-4386-b5b6-f866cbd567ad"],
Cell[32238, 836, 245, 5, 23, "Print",ExpressionUUID->"5b7c431d-c5c8-43f4-9c9a-981a07c61d11"],
Cell[32486, 843, 247, 5, 23, "Print",ExpressionUUID->"6e0b5bf1-b21a-401d-a091-cb125b07e895"],
Cell[32736, 850, 247, 5, 23, "Print",ExpressionUUID->"32874e96-37c4-4f85-b4f9-3df564c33e4e"],
Cell[32986, 857, 245, 5, 23, "Print",ExpressionUUID->"870c8d2e-9864-44c7-925d-66f4549ca70b"],
Cell[33234, 864, 244, 5, 23, "Print",ExpressionUUID->"1eab375b-86ba-4935-bda0-7df04c76a1f1"],
Cell[33481, 871, 245, 5, 23, "Print",ExpressionUUID->"2e44510f-3caa-4ad0-b4dd-40305b37153f"],
Cell[33729, 878, 247, 5, 23, "Print",ExpressionUUID->"d57e9491-3381-48ed-a6e2-694deb2a203a"],
Cell[33979, 885, 245, 5, 23, "Print",ExpressionUUID->"aa2960eb-8634-4277-88eb-5e870a436e52"],
Cell[34227, 892, 247, 5, 23, "Print",ExpressionUUID->"1e48b05d-b8e1-4e7c-b944-da145986a2b8"],
Cell[34477, 899, 3229, 87, 103, "Print",ExpressionUUID->"63f04af6-5ce7-44fd-bef0-72d6ae1ac78f"],
Cell[37709, 988, 246, 5, 23, "Print",ExpressionUUID->"623ab4e0-e8f9-4439-b1ad-994df3654835"],
Cell[37958, 995, 244, 5, 23, "Print",ExpressionUUID->"83644719-8366-4f6d-a3e0-f88371ba4851"],
Cell[38205, 1002, 244, 5, 23, "Print",ExpressionUUID->"df14e74c-3b00-41d6-b524-76a46f3ab1be"],
Cell[38452, 1009, 244, 5, 23, "Print",ExpressionUUID->"fc26f855-957e-4d73-a0a1-99675c50a31b"],
Cell[38699, 1016, 244, 5, 23, "Print",ExpressionUUID->"aa72d9c1-2330-42f0-bf85-b649e9666d6c"],
Cell[38946, 1023, 244, 5, 23, "Print",ExpressionUUID->"c04a9278-5c5b-477f-aa7a-5fc1bb7b53fb"],
Cell[39193, 1030, 244, 5, 23, "Print",ExpressionUUID->"db673162-71a4-406b-a7d3-0e99cd9d1113"],
Cell[39440, 1037, 246, 5, 23, "Print",ExpressionUUID->"7c6c758e-b6ca-4075-bc74-59fee129c4a6"],
Cell[39689, 1044, 246, 5, 23, "Print",ExpressionUUID->"a663dd79-41fa-440c-ba7c-271ca6ba225b"],
Cell[39938, 1051, 244, 5, 23, "Print",ExpressionUUID->"7a3cda1f-5cf6-427b-a64d-d4990df34d3c"],
Cell[40185, 1058, 245, 5, 23, "Print",ExpressionUUID->"ff523da9-bc4f-441b-a54c-e604ffc88a93"],
Cell[40433, 1065, 247, 5, 23, "Print",ExpressionUUID->"10c8d4d1-e54b-4374-bd7a-3eaf9838b238"],
Cell[40683, 1072, 245, 5, 23, "Print",ExpressionUUID->"e79f4906-a48b-4c5d-bc01-d1626ab178a4"],
Cell[40931, 1079, 245, 5, 23, "Print",ExpressionUUID->"8a616a32-a184-4151-aeff-71ded7d959cf"],
Cell[41179, 1086, 245, 5, 23, "Print",ExpressionUUID->"8231acf9-16a0-4aaf-9422-0ecf81110619"],
Cell[41427, 1093, 244, 5, 23, "Print",ExpressionUUID->"18b2af2f-7e08-4248-bb40-6fba75a2720d"],
Cell[41674, 1100, 247, 5, 23, "Print",ExpressionUUID->"c6ad8904-fd56-4919-9b9a-5b1176b6eabd"],
Cell[41924, 1107, 244, 5, 23, "Print",ExpressionUUID->"1ee142d1-423b-4c17-8e38-7bbcd179fd46"],
Cell[42171, 1114, 247, 5, 23, "Print",ExpressionUUID->"e0af3abc-30a1-459d-9f0c-20a5be7bdbcf"],
Cell[42421, 1121, 245, 5, 23, "Print",ExpressionUUID->"af352dbe-83f7-4fd3-b9ed-199bbb1de6ec"],
Cell[42669, 1128, 244, 5, 23, "Print",ExpressionUUID->"3df8b2a4-0813-47f0-9516-ff857118a2b3"],
Cell[42916, 1135, 3309, 87, 142, "Print",ExpressionUUID->"01f1bf71-d5b1-458e-94d2-d05f5a20deca"],
Cell[46228, 1224, 246, 5, 23, "Print",ExpressionUUID->"7b866899-cbef-434e-8b0c-20a44b510586"],
Cell[46477, 1231, 246, 5, 23, "Print",ExpressionUUID->"5e0b721f-7c3c-4255-891e-31ae16a15816"],
Cell[46726, 1238, 244, 5, 23, "Print",ExpressionUUID->"1b481af7-0a64-486e-98e8-dc9987539673"],
Cell[46973, 1245, 244, 5, 23, "Print",ExpressionUUID->"92a7dcc0-42da-44df-8766-eef15c18eb87"],
Cell[47220, 1252, 244, 5, 23, "Print",ExpressionUUID->"cfead7e4-3a95-4a1a-a8af-4c3c9c54cf7c"],
Cell[47467, 1259, 246, 5, 23, "Print",ExpressionUUID->"1ae9f768-4c57-4462-97dc-afaf2ce62d75"],
Cell[47716, 1266, 246, 5, 23, "Print",ExpressionUUID->"baceb18d-e5d7-49a1-ac02-6dceab5c283b"],
Cell[47965, 1273, 244, 5, 23, "Print",ExpressionUUID->"963e3300-7ccc-4c83-992c-66bc389eb35f"],
Cell[48212, 1280, 244, 5, 23, "Print",ExpressionUUID->"59e7b522-a0ab-40df-85f7-7a457589d20b"],
Cell[48459, 1287, 244, 5, 23, "Print",ExpressionUUID->"0b091591-f55d-4d8b-aaa8-5ba6019451ad"],
Cell[48706, 1294, 245, 5, 23, "Print",ExpressionUUID->"a8e70bc8-c944-4f67-924d-e23ecc7ee764"],
Cell[48954, 1301, 245, 5, 23, "Print",ExpressionUUID->"7d910f1d-4417-4cde-9ac8-299a4c71a505"],
Cell[49202, 1308, 245, 5, 23, "Print",ExpressionUUID->"5bea1bd3-8008-4056-a4a1-cb553bc35f1e"],
Cell[49450, 1315, 245, 5, 23, "Print",ExpressionUUID->"cf0f869f-15e5-42d3-9ff1-80a8104a2e1f"],
Cell[49698, 1322, 244, 5, 23, "Print",ExpressionUUID->"158e9770-8d6a-4cad-a2bc-36ab3b204b60"],
Cell[49945, 1329, 245, 5, 23, "Print",ExpressionUUID->"09ba4d44-ec6a-4bdf-9684-1cc118a4ef61"],
Cell[50193, 1336, 247, 5, 23, "Print",ExpressionUUID->"580202a5-a6da-44a5-be42-ee1dff083d4c"],
Cell[50443, 1343, 244, 5, 23, "Print",ExpressionUUID->"80243ea5-f707-4df5-8900-e9167db7b3ac"],
Cell[50690, 1350, 245, 5, 23, "Print",ExpressionUUID->"7002e526-4aa1-44fb-ab04-ff9fc61625a2"],
Cell[50938, 1357, 245, 5, 23, "Print",ExpressionUUID->"bb66fd60-96bb-4de2-b1ff-a925ad121df6"],
Cell[51186, 1364, 247, 5, 23, "Print",ExpressionUUID->"2c99edb3-b7b2-4494-9000-a8e5b6a35112"],
Cell[51436, 1371, 3389, 87, 142, "Print",ExpressionUUID->"39e573eb-1a52-404d-80fe-1f70464331f4"],
Cell[54828, 1460, 248, 5, 23, "Print",ExpressionUUID->"1e93b683-72c2-4d79-bb8e-f20e32a2918b"],
Cell[55079, 1467, 244, 5, 23, "Print",ExpressionUUID->"41d4094c-0964-4584-90e8-a0aa9e1ff42e"],
Cell[55326, 1474, 244, 5, 23, "Print",ExpressionUUID->"719311cf-3cde-4611-8af3-820d4cfba38b"],
Cell[55573, 1481, 244, 5, 23, "Print",ExpressionUUID->"7da59b5f-f599-4bfe-b1a1-2462e9e1ff0c"],
Cell[55820, 1488, 244, 5, 23, "Print",ExpressionUUID->"1811d1b1-6581-4b98-af58-dc571372eb10"],
Cell[56067, 1495, 244, 5, 23, "Print",ExpressionUUID->"61e6065a-9c7d-4d7e-9550-7f07e949f779"],
Cell[56314, 1502, 244, 5, 23, "Print",ExpressionUUID->"9ca27d57-74f1-429f-b8c4-b6f7113482c4"],
Cell[56561, 1509, 242, 5, 23, "Print",ExpressionUUID->"c25725e7-8a0a-4e93-80a8-d43f169072ee"],
Cell[56806, 1516, 244, 5, 23, "Print",ExpressionUUID->"4d6e6e92-168e-4876-812b-f16fe09b7b43"],
Cell[57053, 1523, 244, 5, 23, "Print",ExpressionUUID->"0801650c-1751-4395-a022-4a9aff5cc894"],
Cell[57300, 1530, 245, 5, 23, "Print",ExpressionUUID->"0619be33-0ba7-4b13-b1f1-2d673ac0924c"],
Cell[57548, 1537, 245, 5, 23, "Print",ExpressionUUID->"e716ec75-3ccb-4a6a-b9ae-658479358a1c"],
Cell[57796, 1544, 245, 5, 23, "Print",ExpressionUUID->"168b5101-1798-4555-a3d4-7486d17aaf2a"],
Cell[58044, 1551, 247, 5, 23, "Print",ExpressionUUID->"2aedbc6a-49b5-47d8-89bd-8e966fbb77f3"],
Cell[58294, 1558, 244, 5, 23, "Print",ExpressionUUID->"d282a05e-b2aa-41e3-8dc3-65f5a026e391"],
Cell[58541, 1565, 245, 5, 23, "Print",ExpressionUUID->"2c4a2cfb-18d5-4fc5-b662-ab7c4ca3ace9"],
Cell[58789, 1572, 247, 5, 23, "Print",ExpressionUUID->"94219d10-35d1-4b06-a114-200132e0aaa6"],
Cell[59039, 1579, 245, 5, 23, "Print",ExpressionUUID->"1f6b29f0-123b-4f12-ac59-a3991d6a0b14"],
Cell[59287, 1586, 247, 5, 23, "Print",ExpressionUUID->"089832da-1477-45f6-9d2b-368a5b3ce920"],
Cell[59537, 1593, 245, 5, 23, "Print",ExpressionUUID->"7a489781-959b-4674-8f49-8feec26668b0"],
Cell[59785, 1600, 245, 5, 23, "Print",ExpressionUUID->"78f0883b-28ad-42fa-b202-f724346c546f"],
Cell[60033, 1607, 3469, 87, 142, "Print",ExpressionUUID->"69a6eb08-e07d-4b86-a9c1-cc1691aaf992"],
Cell[63505, 1696, 248, 5, 23, "Print",ExpressionUUID->"44ec79ca-642f-421a-86b5-c791cd6f9763"],
Cell[63756, 1703, 246, 5, 23, "Print",ExpressionUUID->"4e71a0a7-e803-4650-9eeb-283769786d79"],
Cell[64005, 1710, 244, 5, 23, "Print",ExpressionUUID->"53c01180-89a4-48f6-8c45-462fe3f88dd1"],
Cell[64252, 1717, 246, 5, 23, "Print",ExpressionUUID->"583bedf2-3a21-40e4-88e6-f3598223f9b8"],
Cell[64501, 1724, 244, 5, 23, "Print",ExpressionUUID->"42c0b414-eb1c-4870-a32e-2315740ad888"],
Cell[64748, 1731, 246, 5, 23, "Print",ExpressionUUID->"4d34ec79-29c8-401d-9064-341f16185966"],
Cell[64997, 1738, 244, 5, 23, "Print",ExpressionUUID->"b6e34bad-674d-428a-a58c-10d37ba2035f"],
Cell[65244, 1745, 246, 5, 23, "Print",ExpressionUUID->"86331787-5307-4753-905d-62dea64658e0"],
Cell[65493, 1752, 244, 5, 23, "Print",ExpressionUUID->"b5fb0b96-695f-4407-adf6-134604f4672b"],
Cell[65740, 1759, 244, 5, 23, "Print",ExpressionUUID->"bba5676c-a980-4a17-b940-07483d57a8e0"],
Cell[65987, 1766, 245, 5, 23, "Print",ExpressionUUID->"f520392f-07d4-4370-af9c-8655582ca35e"],
Cell[66235, 1773, 247, 5, 23, "Print",ExpressionUUID->"97208735-2f7f-4608-a57c-1cee7ff16a21"],
Cell[66485, 1780, 245, 5, 23, "Print",ExpressionUUID->"9f76253b-737e-4fff-831f-c27f8a47a816"],
Cell[66733, 1787, 245, 5, 23, "Print",ExpressionUUID->"d999a233-205e-4d2e-b320-20a47a721fbe"],
Cell[66981, 1794, 245, 5, 23, "Print",ExpressionUUID->"23a874e0-84c9-4230-98cf-fda4cf40d6d5"],
Cell[67229, 1801, 245, 5, 23, "Print",ExpressionUUID->"6e15805d-b92c-4e88-b09f-c87c6535a6cd"],
Cell[67477, 1808, 247, 5, 23, "Print",ExpressionUUID->"12b20397-040f-4c53-a785-522cbfa9cd65"],
Cell[67727, 1815, 245, 5, 23, "Print",ExpressionUUID->"b03e74bb-e1ca-4118-a4f3-6991460b58be"],
Cell[67975, 1822, 244, 5, 23, "Print",ExpressionUUID->"6493825e-25a1-4bd7-9a89-6fb920ebbb88"],
Cell[68222, 1829, 245, 5, 23, "Print",ExpressionUUID->"5246ffd6-7624-4550-9855-a0af04bb82eb"],
Cell[68470, 1836, 247, 5, 23, "Print",ExpressionUUID->"b578fdbe-df66-4e07-a7a0-7c2146f164d9"],
Cell[68720, 1843, 3551, 87, 201, "Print",ExpressionUUID->"b49a6c4a-58a1-4fd3-bf2d-20636decfabc"],
Cell[72274, 1932, 246, 5, 23, "Print",ExpressionUUID->"34e0e830-a6a9-4013-9768-7d312660a270"],
Cell[72523, 1939, 244, 5, 23, "Print",ExpressionUUID->"6d63815b-1371-4593-89c9-4bcc4f7550a8"],
Cell[72770, 1946, 244, 5, 23, "Print",ExpressionUUID->"c92dc064-7797-48a5-9329-1721cb406050"],
Cell[73017, 1953, 246, 5, 23, "Print",ExpressionUUID->"913a7f82-e20b-4b7d-bdb2-c6755db557b5"],
Cell[73266, 1960, 244, 5, 23, "Print",ExpressionUUID->"de220460-508f-421b-8ad6-edecc78cbf64"],
Cell[73513, 1967, 244, 5, 23, "Print",ExpressionUUID->"6502147d-7efb-48ca-a5d3-8a55bac2af5a"],
Cell[73760, 1974, 244, 5, 23, "Print",ExpressionUUID->"3eddb034-0d56-4be4-9a7a-dbc189ea15fa"],
Cell[74007, 1981, 244, 5, 23, "Print",ExpressionUUID->"8918f932-1e21-4afc-bab8-f916e8d6bc2d"],
Cell[74254, 1988, 244, 5, 23, "Print",ExpressionUUID->"31f729e0-9c96-41b0-8bab-435d65c9e274"],
Cell[74501, 1995, 244, 5, 23, "Print",ExpressionUUID->"0cebd424-5e51-49f2-a2cd-110b20f7b6f7"],
Cell[74748, 2002, 245, 5, 23, "Print",ExpressionUUID->"02e82250-ad80-4ba3-afd8-ec49e233e3dc"],
Cell[74996, 2009, 245, 5, 23, "Print",ExpressionUUID->"91cc41df-b3ed-44e0-88c2-ce99cd4dccb1"],
Cell[75244, 2016, 245, 5, 23, "Print",ExpressionUUID->"d3e8817e-fc95-4520-861c-2b964844be7e"],
Cell[75492, 2023, 245, 5, 23, "Print",ExpressionUUID->"e9982d49-e706-4f1b-bc2c-000b02d80f30"],
Cell[75740, 2030, 245, 5, 23, "Print",ExpressionUUID->"62e77caa-165c-401d-acec-62fd303aa821"],
Cell[75988, 2037, 247, 5, 23, "Print",ExpressionUUID->"96a4f930-5f02-4ff9-878e-5dc86b75d793"],
Cell[76238, 2044, 245, 5, 23, "Print",ExpressionUUID->"5ead3f38-dab0-4048-9a15-e76bfdac9dba"],
Cell[76486, 2051, 247, 5, 23, "Print",ExpressionUUID->"6e4f843a-281f-467a-b020-5c9d38688e31"],
Cell[76736, 2058, 245, 5, 23, "Print",ExpressionUUID->"f5643840-6430-45f8-8e1d-367f2dc2e25f"],
Cell[76984, 2065, 245, 5, 23, "Print",ExpressionUUID->"0310150c-1fc3-4d5e-88f3-e4a5bea4f7e7"],
Cell[77232, 2072, 245, 5, 23, "Print",ExpressionUUID->"bb2a23ec-681c-4163-90ce-92f88790c2e7"],
Cell[77480, 2079, 3631, 87, 201, "Print",ExpressionUUID->"ed76266b-4346-4507-aeec-eea128b6509a"],
Cell[81114, 2168, 246, 5, 23, "Print",ExpressionUUID->"988adc80-2d91-41df-b9f4-4c7bbf1797e3"],
Cell[81363, 2175, 246, 5, 23, "Print",ExpressionUUID->"694e7137-ae9f-4eb6-aa17-4b4b7c607ec4"],
Cell[81612, 2182, 246, 5, 23, "Print",ExpressionUUID->"388e7bb2-c728-4315-a82d-c9106c1c04c4"],
Cell[81861, 2189, 244, 5, 23, "Print",ExpressionUUID->"8296ba11-00ce-4f8b-99a2-adb02bd8f85a"],
Cell[82108, 2196, 246, 5, 23, "Print",ExpressionUUID->"e82a9b17-e30c-4436-b311-bef779171890"],
Cell[82357, 2203, 246, 5, 23, "Print",ExpressionUUID->"e53ec5d4-608e-40e3-a08c-1ae2daf9f12f"],
Cell[82606, 2210, 244, 5, 23, "Print",ExpressionUUID->"2591c916-24fc-4288-adbc-5ee95ab7639b"],
Cell[82853, 2217, 246, 5, 23, "Print",ExpressionUUID->"17554d69-b518-469b-b69e-1a16ed865a14"],
Cell[83102, 2224, 244, 5, 23, "Print",ExpressionUUID->"d9b2f950-f38c-47f8-b83b-c4975c922857"],
Cell[83349, 2231, 244, 5, 23, "Print",ExpressionUUID->"e2fbd981-5310-4cda-bdf4-bd3e1ddc257c"],
Cell[83596, 2238, 244, 5, 23, "Print",ExpressionUUID->"47d8be65-dcf9-4a7e-af25-312b4cce33cc"],
Cell[83843, 2245, 245, 5, 23, "Print",ExpressionUUID->"e3506b56-7cfe-4e0a-a0af-bcafa4643b7a"],
Cell[84091, 2252, 245, 5, 23, "Print",ExpressionUUID->"d6819675-2ea6-4614-b97a-b7e2befe668a"],
Cell[84339, 2259, 245, 5, 23, "Print",ExpressionUUID->"894cb660-de0f-44a0-bea8-109eaa722ca3"],
Cell[84587, 2266, 247, 5, 23, "Print",ExpressionUUID->"af230903-811b-4aba-968c-1c3cdd15da20"],
Cell[84837, 2273, 245, 5, 23, "Print",ExpressionUUID->"57407839-2953-4161-9045-f1fd79ee9303"],
Cell[85085, 2280, 247, 5, 23, "Print",ExpressionUUID->"0a4f1420-101d-4614-9b97-abf7dd0356a4"],
Cell[85335, 2287, 245, 5, 23, "Print",ExpressionUUID->"d88652e2-0807-4100-9ac8-147a5ccc3f25"],
Cell[85583, 2294, 245, 5, 23, "Print",ExpressionUUID->"ca931ccc-f76b-48b6-ba0a-272da3d2096a"],
Cell[85831, 2301, 245, 5, 23, "Print",ExpressionUUID->"2b098b40-8402-4966-a2d2-d65fd51be861"],
Cell[86079, 2308, 244, 5, 23, "Print",ExpressionUUID->"fc0029e3-3816-442a-b059-eecf63efb259"],
Cell[86326, 2315, 3711, 88, 201, "Print",ExpressionUUID->"ce9b5663-df92-401c-bc91-a89214e07249"],
Cell[90040, 2405, 247, 5, 23, "Print",ExpressionUUID->"ba839a82-f29b-4c21-b448-0a61b1dd3791"],
Cell[90290, 2412, 243, 5, 23, "Print",ExpressionUUID->"b394726d-c9a6-4f49-9a10-0edd77c436ba"],
Cell[90536, 2419, 246, 5, 23, "Print",ExpressionUUID->"0cfb1032-b415-4e64-bec6-9c19dd5c4654"],
Cell[90785, 2426, 244, 5, 23, "Print",ExpressionUUID->"7eff2c27-d892-48cc-b1f3-7f86d690bfad"],
Cell[91032, 2433, 244, 5, 23, "Print",ExpressionUUID->"815e7182-7fa9-4e93-983e-bef0645416d8"],
Cell[91279, 2440, 244, 5, 23, "Print",ExpressionUUID->"ed5e5400-b6fc-4194-892f-496be183de93"],
Cell[91526, 2447, 246, 5, 23, "Print",ExpressionUUID->"cb449f87-5983-4e98-9a6c-edd11d83940c"],
Cell[91775, 2454, 244, 5, 23, "Print",ExpressionUUID->"6bda7694-fce2-479a-8ffe-2e5556e3a39f"],
Cell[92022, 2461, 246, 5, 23, "Print",ExpressionUUID->"3a56e730-b493-45ae-95b4-c37ee58391d7"],
Cell[92271, 2468, 246, 5, 23, "Print",ExpressionUUID->"bff728a3-3d68-4e59-8d0a-4fa6aeb91650"],
Cell[92520, 2475, 245, 5, 23, "Print",ExpressionUUID->"ca735424-fb2a-4b09-8c35-06b57953a002"],
Cell[92768, 2482, 245, 5, 23, "Print",ExpressionUUID->"645c43da-f64a-4991-a5a3-7096b2379275"],
Cell[93016, 2489, 245, 5, 23, "Print",ExpressionUUID->"2d9af553-8ef3-4d2c-8526-d25ead6e54f4"],
Cell[93264, 2496, 245, 5, 23, "Print",ExpressionUUID->"2adc55ef-2851-492f-b21e-85021bfbf531"],
Cell[93512, 2503, 245, 5, 23, "Print",ExpressionUUID->"82c5449f-050e-430e-a19b-7da5d3691fcf"],
Cell[93760, 2510, 245, 5, 23, "Print",ExpressionUUID->"91e2571a-6046-4cc4-9d5f-61fd55b42c1a"],
Cell[94008, 2517, 245, 5, 23, "Print",ExpressionUUID->"4a8494a0-8ec3-4118-a778-f08d42f042e1"],
Cell[94256, 2524, 247, 5, 23, "Print",ExpressionUUID->"e556bf87-4b8d-40ee-bca4-4c71aa5ba466"],
Cell[94506, 2531, 245, 5, 23, "Print",ExpressionUUID->"e656ddfd-df45-4885-b387-488e0eca60bc"],
Cell[94754, 2538, 247, 5, 23, "Print",ExpressionUUID->"632d4abc-a019-4601-b0dc-cec9d47b58f2"],
Cell[95004, 2545, 247, 5, 23, "Print",ExpressionUUID->"f7ac7779-a743-4205-b570-681b9ad267bd"],
Cell[95254, 2552, 3794, 88, 201, "Print",ExpressionUUID->"99a736f5-ff4c-4157-9d5a-5f9577c7af44"]
}, Open  ]],
Cell[99063, 2643, 3766, 86, 220, "Output",ExpressionUUID->"a3c729f4-fef3-467a-8421-bb4122fb2395"],
Cell[102832, 2731, 409, 8, 33, "Output",ExpressionUUID->"efe4cd04-46b0-4c97-a8f0-376775fe1efe"]
}, Open  ]],
Cell[103256, 2742, 149, 3, 51, "Input",ExpressionUUID->"2eb65454-7444-42ed-bf18-522835af1533"],
Cell[CellGroupData[{
Cell[103430, 2749, 571, 9, 51, "Input",ExpressionUUID->"8beaf8b8-823f-4b11-bc87-d8655ae25b60"],
Cell[104004, 2760, 3697, 85, 220, "Output",ExpressionUUID->"1ea1aa05-6a1f-4832-8d87-3fafb0e9f920"]
}, Open  ]],
Cell[107716, 2848, 180, 4, 29, "Input",ExpressionUUID->"ce9ed138-8420-4a78-990a-fe45a0578124"],
Cell[107899, 2854, 154, 3, 29, "Input",ExpressionUUID->"9162448b-a5d8-4ebb-bebe-33172c6da75d"],
Cell[CellGroupData[{
Cell[108078, 2861, 2845, 72, 195, "Input",ExpressionUUID->"f7de8aad-49f0-49f2-84b1-7d072e879b97"],
Cell[110926, 2935, 518, 11, 33, "Output",ExpressionUUID->"53ec9bf7-745e-419a-922b-3c0266482bf5"],
Cell[111447, 2948, 949, 26, 33, "Output",ExpressionUUID->"7c4108d2-ec1b-4900-b785-0ba51cd84dd1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112433, 2979, 833, 22, 92, "Input",ExpressionUUID->"d73306aa-ca3d-4561-944c-b9e6f74d32e2"],
Cell[113269, 3003, 296, 5, 33, "Output",ExpressionUUID->"4e5c354c-0ee5-4ed1-83af-fc59744ee3e4"],
Cell[113568, 3010, 3339, 71, 236, "Output",ExpressionUUID->"2a54ce26-573d-4280-8815-bfda7f43b4e3"]
}, Open  ]],
Cell[116922, 3084, 2866, 73, 174, "Input",ExpressionUUID->"9c4079de-eb61-4baf-a184-9674a1dac5c0"],
Cell[CellGroupData[{
Cell[119813, 3161, 2200, 57, 113, "Input",ExpressionUUID->"30542fc1-f0f0-447d-a1b2-912a3a5b96e5"],
Cell[122016, 3220, 945, 28, 55, "Output",ExpressionUUID->"33b5a8e8-e8ec-42d2-bf20-29a24a3d7e68"],
Cell[122964, 3250, 303, 6, 33, "Output",ExpressionUUID->"fe5e6cd2-0d09-403e-b2c6-2b77c0621852"],
Cell[123270, 3258, 3401, 72, 233, "Output",ExpressionUUID->"12cf50d6-f5ea-469e-8dc6-7313efdf6ffd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126708, 3335, 3613, 85, 259, "Input",ExpressionUUID->"0f5e2507-4b8d-44b8-9c3b-a15cac287e8c"],
Cell[130324, 3422, 944, 25, 33, "Output",ExpressionUUID->"991dfda6-dc98-488c-95ad-39f7d7af6abe"],
Cell[131271, 3449, 1036, 25, 33, "Output",ExpressionUUID->"dc37c597-1c53-4cd0-934f-d10bcb5f2a07"],
Cell[132310, 3476, 423, 7, 33, "Output",ExpressionUUID->"671bd97f-fc39-43e3-8945-61fe72c34ea4"],
Cell[132736, 3485, 3570, 75, 246, "Output",ExpressionUUID->"989c4096-1a7e-476c-aa5b-9773ed822957"],
Cell[136309, 3562, 3924, 86, 240, "Output",ExpressionUUID->"49d1ceaf-7ade-4722-8554-54a0dcae9e0d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[140270, 3653, 6907, 186, 750, "Input",ExpressionUUID->"ae8cbc3b-06a8-4b10-81c8-55ad56a8feeb"],
Cell[147180, 3841, 1622, 38, 137, "Output",ExpressionUUID->"af7bfaab-3ecf-4304-80eb-35c2f5540282"],
Cell[148805, 3881, 1661, 40, 149, "Output",ExpressionUUID->"f96a2775-1d0d-493f-9cd6-a83c493ed010"],
Cell[150469, 3923, 1823, 47, 159, "Output",ExpressionUUID->"33dc21ed-e20c-4e17-9744-30b548e28995"],
Cell[152295, 3972, 1622, 38, 137, "Output",ExpressionUUID->"3ff027e4-a632-4f98-8907-162104131dc5"],
Cell[153920, 4012, 903, 13, 33, "Output",ExpressionUUID->"4ff54b7c-08b9-44e7-9f45-f14f9e1c1dcd"],
Cell[154826, 4027, 916, 13, 33, "Output",ExpressionUUID->"29cd8979-4bec-4099-93b0-6bc3eef83c94"]
}, Open  ]]
}
]
*)