calibrationV8-nonlinear-px.nb

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

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

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     90421,       1866]
NotebookOptionsPosition[     87475,       1794]
NotebookOutlinePosition[     87809,       1809]
CellTagsIndexPosition[     87766,       1806]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"DeleteDirectory", "::", "nodir"}], "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Required", " ", "Package"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Needs", "[", "\"\<ErrorBarPlots`\>\"", "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Required", " ", "Folder"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteDirectory", "[", 
   RowBox[{"\"\<ResultsNonLinear\>\"", ",", 
    RowBox[{"DeleteContents", "\[Rule]", "True"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CreateDirectory", "[", "\"\<ResultsNonLinear\>\"", "]"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Dataset", " ", "Folder", " ", "Path"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "dataPath", "=", 
   "\"\</home/edwin/Dropbox/Cinvestav \
Experiments/Project/Results/down/2*/seq*/reParticula*.dat\>\""}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.897050167792068*^9, 3.897050167980356*^9}, {
   3.8974189984719543`*^9, 3.897418999445661*^9}, {3.89809056258147*^9, 
   3.898090603628419*^9}, {3.898090843436068*^9, 3.8980908750675507`*^9}, {
   3.898091205586952*^9, 3.898091308075817*^9}, {3.898091354836885*^9, 
   3.898091394377548*^9}, {3.898091494779606*^9, 3.898091498954399*^9}, {
   3.898093295066371*^9, 3.8980932987025347`*^9}, 3.898093652230329*^9, {
   3.898116279497744*^9, 3.898116284390321*^9}, {3.898131669866302*^9, 
   3.898131690869083*^9}, {3.89813199814686*^9, 3.898132036272077*^9}, 
   3.8981930028158617`*^9, {3.8981939355819798`*^9, 3.8981939448110123`*^9}, {
   3.898193984414222*^9, 
   3.898193984915498*^9}},ExpressionUUID->"af312873-6fe2-4d95-9ad2-\
41bde37bc369"],

Cell[BoxData["\<\"/home/edwin/Dropbox/Cinvestav \
Experiments/Project/Computational/Modules\"\>"], "Output",
 CellChangeTimes->{3.898093652757856*^9, 3.898108955366081*^9, 
  3.898114855734393*^9, 3.898115092729344*^9, 3.898115494150049*^9, 
  3.898116246360914*^9, 3.8981181248560266`*^9, 3.898130366386634*^9, 
  3.898131038535861*^9, 3.898131091783163*^9, 3.89813169464426*^9, 
  3.898132065351406*^9, 3.8981930685316896`*^9, 3.898193440568342*^9, 
  3.898193727635892*^9, 3.898193988488409*^9, 3.89835680631629*^9, 
  3.898536658468255*^9},ExpressionUUID->"3fbe67f4-ad5f-48d8-9da6-\
d1e90c587985"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Calibration", "Subsubsection",
 CellChangeTimes->{{3.897080650541477*^9, 3.8970806600797377`*^9}, {
  3.897141716935377*^9, 
  3.897141720049444*^9}},ExpressionUUID->"efd3c296-3988-45aa-b4ab-\
54c4b4965a9b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"z", " ", "Steps", " ", "in", " ", "\[Mu]m"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zStep", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Px", " ", "to", " ", "\[Mu]m"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Px", "=", "0.127735"}], 
    RowBox[{"(*", "\[Mu]m", "*)"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Carvajal", " ", "Parameters"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Alpha]1", "=", 
     RowBox[{"30.8437", "/", "Px"}]}], 
    RowBox[{"(*", "Px", "*)"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Alpha]2", "=", 
     RowBox[{"1", "/", "145.2783"}]}], " ", 
    RowBox[{"(*", 
     SuperscriptBox["\[Mu]m", 
      RowBox[{"-", "1"}]], "*)"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Alpha]3", "=", 
     RowBox[{
      RowBox[{"-", "31.0573"}], "/", "Px"}]}], 
    RowBox[{"(*", "Px", "*)"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.897052721968832*^9, 3.8970527304073544`*^9}, {
   3.897052807677116*^9, 3.897052807820506*^9}, {3.8971408989922867`*^9, 
   3.8971409022731447`*^9}, 3.897141171776352*^9, {3.897411466948674*^9, 
   3.8974114907722473`*^9}, {3.8975903200217733`*^9, 
   3.8975903742815857`*^9}, {3.897766959112567*^9, 3.897766959492331*^9}, {
   3.898193263512807*^9, 3.8981932895781937`*^9}, {3.898193329175971*^9, 
   3.898193334924572*^9}, {3.8981933686584263`*^9, 3.8981933812012367`*^9}, {
   3.898193705777419*^9, 
   3.8981937234827013`*^9}},ExpressionUUID->"f9d53e53-6f1f-4f33-8e40-\
554ffe7c33de"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Number", " ", "of", " ", "Particles"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"nFile", "=", 
    RowBox[{"Length", "@", 
     RowBox[{"FileNames", "[", "dataPath", "]"}]}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.8974115645308313`*^9, 3.89741161266199*^9}, 
   3.898091681795123*^9, 
   3.8981303763448763`*^9},ExpressionUUID->"a5460eb8-70c2-4008-ab41-\
86fdbb1e0ee9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Import", " ", "Data"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"data", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Import", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"FileNames", "[", "dataPath", "]"}], "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", "\"\<Data\>\""}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "nFile"}], "}"}]}], "]"}]}], ";"}]}]], "Input",Expres\
sionUUID->"f11653a3-fbd1-46c9-9980-20593737d40a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Radius", " ", "List"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"RListRaw", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Last", "/@", 
        RowBox[{"data", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "nFile"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"RList", "=", 
     RowBox[{"Table", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"aux", "=", 
         RowBox[{"RListRaw", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], ";", 
        RowBox[{"\[Theta]", "=", "1"}], ";", "\[IndentingNewLine]", 
        RowBox[{"While", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"RListRaw", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "\[Theta]"}], "]"}], "]"}], "\[Equal]", "0."}],
           ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"aux", "=", 
            RowBox[{"Drop", "[", 
             RowBox[{"aux", ",", "1"}], "]"}]}], ";", 
           RowBox[{"\[Theta]", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
        "aux"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"i", ",", "nFile"}], "}"}]}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.89819301331437*^9},ExpressionUUID->"f38af264-9ea4-49b7-874f-8d20fee69a5a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Match", " ", "Dataset", " ", "Lengths"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Lengths", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Length", "@", 
        RowBox[{"RList", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "nFile"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"RList", "=", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Take", "[", 
         RowBox[{"#", ",", 
          RowBox[{"Min", "@", "Lengths"}]}], "]"}], "&"}], ",", "RList"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"zList", "=", 
     RowBox[{"Range", "[", 
      RowBox[{"0.5", ",", 
       RowBox[{
        RowBox[{"Min", "@", "Lengths"}], " ", "zStep"}], ",", "zStep"}], 
      "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.897050146038492*^9, 3.897050149138932*^9}, {
   3.8970502587302217`*^9, 3.897050342524042*^9}, {3.897050383190118*^9, 
   3.8970504562600727`*^9}, {3.897050502111178*^9, 3.897050558469019*^9}, {
   3.897051985009411*^9, 3.897052018916128*^9}, {3.897052253654716*^9, 
   3.897052254862934*^9}, {3.897052389595187*^9, 3.897052443245496*^9}, {
   3.89705276709101*^9, 3.897052854090671*^9}, 3.897052981172195*^9, {
   3.897053039376954*^9, 3.8970530590975103`*^9}, {3.897053102484981*^9, 
   3.8970531081210823`*^9}, {3.89705316462803*^9, 3.897053214641295*^9}, {
   3.8970824520182333`*^9, 3.897082484215201*^9}, {3.8971409263047943`*^9, 
   3.8971409429501343`*^9}, {3.897141171782823*^9, 3.897141171786645*^9}, {
   3.897411630083494*^9, 3.8974116408326693`*^9}, {3.897411865143632*^9, 
   3.89741186719862*^9}, {3.897411948593055*^9, 3.897411950214559*^9}, {
   3.897411983790441*^9, 3.8974120205551987`*^9}, {3.897418329951823*^9, 
   3.8974183299721117`*^9}, {3.897589860097665*^9, 3.897589860458984*^9}, {
   3.897757900728861*^9, 3.897757903352355*^9}, {3.897758105329048*^9, 
   3.8977581056009903`*^9}, {3.897758152834296*^9, 3.897758208066103*^9}, {
   3.897758340846999*^9, 3.897758375641246*^9}, 3.8981151023104773`*^9, 
   3.898115178419263*^9, {3.898128490392324*^9, 3.8981286365590887`*^9}, {
   3.898129593721933*^9, 3.898129608005172*^9}, {3.898129699140024*^9, 
   3.898129700698819*^9}, {3.898129747866561*^9, 3.898129761462537*^9}, {
   3.89812979588835*^9, 3.8981298418878403`*^9}, {3.898129928462591*^9, 
   3.8981299288632107`*^9}, {3.898130109912383*^9, 3.8981301184147*^9}, 
   3.898130354270438*^9, {3.89813038686121*^9, 
   3.898130430251863*^9}},ExpressionUUID->"d952e387-8d70-457a-9300-\
cda09be1247d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "Calibration", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"zRList", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"DeleteCases", "[", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{"zList", ",", 
           RowBox[{"RList", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"_", ",", "0."}], "}"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "nFile"}], "}"}]}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{
  3.898193013317028*^9},ExpressionUUID->"21d3ddde-1d0d-4f0c-b865-\
b75bb6255adb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Calibration", " ", "Fits"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zRFits", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"NonlinearModelFit", "[", 
        RowBox[{
         RowBox[{"zRList", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"a1", " ", 
           RowBox[{"Exp", "[", 
            RowBox[{"a2", " ", "x"}], "]"}]}], "+", "a3"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"a1", ",", "\[Alpha]1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"a2", ",", "\[Alpha]2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"a3", ",", "\[Alpha]3"}], "}"}]}], "}"}], ",", "x", ",", 
         RowBox[{"Method", "\[Rule]", "\"\<NMinimize\>\""}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "nFile"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"RMeanList", "=", 
     RowBox[{"Mean", "/@", 
      RowBox[{"Transpose", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"zRFits", "[", 
             RowBox[{"[", "j", "]"}], "]"}], "[", 
            RowBox[{"zList", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Length", "@", "zList"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "nFile"}], "}"}]}], "]"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Sigma]MeanList", "=", 
     RowBox[{"StandardDeviation", "/@", 
      RowBox[{"Transpose", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"zRFits", "[", 
             RowBox[{"[", "j", "]"}], "]"}], "[", 
            RowBox[{"zList", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Length", "@", "zList"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "nFile"}], "}"}]}], "]"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"zRMeanList", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"zList", ",", "RMeanList"}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"zRFit", "=", 
     RowBox[{"NonlinearModelFit", "[", 
      RowBox[{"zRMeanList", ",", 
       RowBox[{
        RowBox[{"a1", " ", 
         RowBox[{"Exp", "[", 
          RowBox[{"a2", " ", "x"}], "]"}]}], "+", "a3"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"a1", ",", "\[Alpha]1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"a2", ",", "\[Alpha]2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"a3", ",", "\[Alpha]3"}], "}"}]}], "}"}], ",", "x", ",", 
       RowBox[{"Method", "\[Rule]", "\"\<NMinimize\>\""}], ",", 
       RowBox[{"Weights", "\[Rule]", 
        RowBox[{"1", "/", 
         SuperscriptBox["\[Sigma]MeanList", "2"]}]}]}], "]"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.897053144269908*^9, 3.8970531457048683`*^9}, {
   3.897053233174429*^9, 3.8970532637809553`*^9}, {3.897053378490964*^9, 
   3.897053387852062*^9}, {3.8970535871207647`*^9, 3.897053636936788*^9}, {
   3.8970547971502333`*^9, 3.89705481447606*^9}, 3.897054872799739*^9, 
   3.897055239209627*^9, {3.897055324930314*^9, 3.8970553286059637`*^9}, {
   3.897055463531629*^9, 3.8970554741621647`*^9}, {3.897055523470275*^9, 
   3.8970556161394672`*^9}, {3.897057641532015*^9, 3.897057650768716*^9}, {
   3.897074316853888*^9, 3.897074324613974*^9}, {3.8970806829190702`*^9, 
   3.897080700844604*^9}, {3.897080752248378*^9, 3.897080753404572*^9}, {
   3.897080804796321*^9, 3.897080824417015*^9}, {3.897080863990787*^9, 
   3.8970809295281677`*^9}, {3.897081026396469*^9, 3.89708110604414*^9}, 
   3.897140520387413*^9, 3.897140962144318*^9, {3.897412243231524*^9, 
   3.8974122460466423`*^9}, {3.897412496272784*^9, 3.897412542788863*^9}, {
   3.897412591754882*^9, 3.897412618565827*^9}, {3.897412723261599*^9, 
   3.897412771976207*^9}, {3.897413033628065*^9, 3.897413035824667*^9}, {
   3.897413071979224*^9, 3.89741328667566*^9}, {3.897414220251145*^9, 
   3.897414267501617*^9}, {3.8974147803698473`*^9, 3.8974147815328503`*^9}, {
   3.897414844017424*^9, 3.897414855523127*^9}, {3.897415153455907*^9, 
   3.897415155484433*^9}, 3.897415201912632*^9, 3.897415262528707*^9, {
   3.897415307845449*^9, 3.89741534086025*^9}, {3.8974157124351807`*^9, 
   3.8974157785209513`*^9}, {3.8974165454396143`*^9, 3.897416590619484*^9}, {
   3.897416664679603*^9, 3.8974166715825863`*^9}, 3.897416716294858*^9, {
   3.897417164039925*^9, 3.897417166434363*^9}, {3.897417940869314*^9, 
   3.897417942668434*^9}, 3.8974180577531357`*^9, {3.897418215370502*^9, 
   3.897418349697322*^9}, {3.897418414107175*^9, 3.897418496984838*^9}, {
   3.897418827562181*^9, 3.897418849612068*^9}, {3.897419070935704*^9, 
   3.8974190946944933`*^9}, {3.897419274461918*^9, 3.897419309183927*^9}, {
   3.897590146739924*^9, 3.89759015423279*^9}, {3.897590225179058*^9, 
   3.897590263534449*^9}, {3.8975902999539413`*^9, 3.897590313370121*^9}, {
   3.897590380023155*^9, 3.897590428860283*^9}, {3.897591601758091*^9, 
   3.897591610739068*^9}, {3.8975916597979317`*^9, 3.897591663500733*^9}, {
   3.89759170067976*^9, 3.897591715516039*^9}, {3.8975918963849382`*^9, 
   3.8975919376514587`*^9}, {3.897591996518497*^9, 3.897592017850913*^9}, {
   3.897592186388232*^9, 3.897592196724247*^9}, {3.8975922510947866`*^9, 
   3.897592278876278*^9}, {3.8977399180287437`*^9, 3.897739951394547*^9}, {
   3.898107885123914*^9, 3.898107886559214*^9}, {3.8981085955289507`*^9, 
   3.8981086327631702`*^9}, {3.89810867743266*^9, 3.898108701409216*^9}, {
   3.8981087425674257`*^9, 3.898108749290863*^9}, {3.89811482212122*^9, 
   3.898114845433607*^9}, {3.898115436692141*^9, 3.898115480963622*^9}, {
   3.898115605507392*^9, 3.8981156093434353`*^9}, {3.898115756147991*^9, 
   3.898115762320733*^9}, {3.898116035185511*^9, 3.898116035291677*^9}, {
   3.898116146693014*^9, 
   3.898116236334961*^9}},ExpressionUUID->"118d8910-d13d-4b9b-9708-\
a016b61b0a78"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Degrees", " ", "of", " ", "Freedom"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Nu]", "=", 
     RowBox[{
      RowBox[{"zRFit", "[", "\"\<ANOVATableDegreesOfFreedom\>\"", "]"}], "[", 
      
      RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Reduced", " ", 
     SuperscriptBox["\[Chi]", "2"]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Chi]2\[Nu]", "=", 
     RowBox[{
      RowBox[{"Total", "[", 
       SuperscriptBox[
        RowBox[{"zRFit", "[", "\"\<StandardizedResiduals\>\"", "]"}], "2"], 
       "]"}], "/", "\[Nu]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", "Probability", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P", "=", 
     RowBox[{"SurvivalFunction", "[", 
      RowBox[{
       RowBox[{"ChiSquareDistribution", "[", "\[Nu]", "]"}], ",", 
       RowBox[{"\[Chi]2\[Nu]", " ", "\[Nu]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Autocorrelation", " ", "Test"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d", "=", 
     RowBox[{
      RowBox[{"Total", "[", 
       SuperscriptBox[
        RowBox[{"Differences", "[", 
         RowBox[{"zRFit", "[", "\"\<StandardizedResiduals\>\"", "]"}], "]"}], 
        "2"], "]"}], "/", 
      RowBox[{"Total", "[", 
       SuperscriptBox[
        RowBox[{"zRFit", "[", "\"\<StandardizedResiduals\>\"", "]"}], "2"], 
       "]"}]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.897418527823969*^9, 3.8974185278322372`*^9}, {
  3.89774035500245*^9, 3.897740366257155*^9}, {3.8977404643555937`*^9, 
  3.8977404654605227`*^9}, {3.8980933200780354`*^9, 3.898093320275874*^9}, {
  3.898093387472559*^9, 3.898093398085627*^9}, {3.8981187500893106`*^9, 
  3.898118769697132*^9}},ExpressionUUID->"badee4e4-887b-4eca-bed6-\
3158d1555b71"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Print Results", "Subsubsection",
 CellChangeTimes->{{3.89707440099155*^9, 
  3.897074404777425*^9}},ExpressionUUID->"25458495-adf9-409c-ad2a-\
d426bccebb5c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Print", " ", "Results"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Print", "[", "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Statistical Parameters\>\"", ",", "Underlined"}], "]"}], 
    "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<\!\(\*SuperscriptBox[\(R\), \(2\)]\) = \>\"", ",", " ", 
     RowBox[{"SetPrecision", "[", 
      RowBox[{
       RowBox[{"zRFit", "[", "\"\<RSquared\>\"", "]"}], ",", "4"}], "]"}]}], 
    "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<\[Nu] = \>\"", ",", " ", 
     RowBox[{"SetPrecision", "[", 
      RowBox[{"\[Nu]", ",", "4"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<\!\(\*SuperscriptBox[SubscriptBox[\(\[Chi]\), \(\[Nu]\)], \(2\)]\) = \
\>\"", ",", " ", 
     RowBox[{"SetPrecision", "[", 
      RowBox[{"\[Chi]2\[Nu]", ",", "4"}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<P(\!\(\*SuperscriptBox[SubscriptBox[\(\[Chi]\), \(\[Nu]\)], \
\(2\)]\);\[Nu]) = \>\"", ",", " ", 
     RowBox[{"SetPrecision", "[", 
      RowBox[{"P", ",", "4"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<D = \>\"", ",", " ", 
     RowBox[{"SetPrecision", "[", 
      RowBox[{"d", ",", "4"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"zRFit", "[", "\"\<ParameterTable\>\"", "]"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", "]"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Fit", " ", "Plot"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"zRMeanList\[Sigma]", "=", 
     RowBox[{"MapAt", "[", 
      RowBox[{"ErrorBar", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"zRMeanList", ",", "\[Sigma]MeanList"}], "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"All", ",", "2"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"plot", "=", 
    RowBox[{"Legended", "[", 
     RowBox[{
      RowBox[{"Show", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ErrorListPlot", "[", "zRMeanList\[Sigma]", "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Plot", "[", 
         RowBox[{
          RowBox[{"zRFit", "[", "x", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{"First", "@", "zList"}], ",", 
            RowBox[{"Last", "@", "zList"}]}], "}"}], ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"Red", ",", "Dashed"}], "}"}]}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<z (\[Mu]m)\>\"", ",", "\"\<R (Px)\>\""}], "}"}]}], ",",
         "\[IndentingNewLine]", 
        RowBox[{"PlotLabel", "\[Rule]", "\"\<Calibration\>\""}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Min", "[", 
              RowBox[{"First", "/@", "zRMeanList"}], "]"}], ",", 
             RowBox[{"Max", "[", 
              RowBox[{"First", "/@", "zRMeanList"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Min", "@", 
              RowBox[{"DeleteCases", "[", 
               RowBox[{"RMeanList", ",", "0."}], "]"}]}], ",", 
             RowBox[{"Max", "@", "RMeanList"}]}], "}"}]}], "}"}]}]}], "]"}], 
      ",", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"LineLegend", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"ColorData", "[", "97", "]"}], "[", "1", "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"Red", ",", "Dashed"}], "}"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\"\<Dataset\>\"", ",", "\"\<BestFit\>\""}], "}"}], ",", 
          RowBox[{"LegendFunction", "->", "Panel"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.05", ",", "0.7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Residuals", " ", "Plot"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"ResPlot", "=", 
    RowBox[{"ListLinePlot", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"First", "/@", "zRMeanList"}], ",", 
         RowBox[{"zRFit", "[", "\"\<FitResiduals\>\"", "]"}]}], "}"}], "]"}], 
      ",", " ", "\[IndentingNewLine]", 
      RowBox[{"AspectRatio", "\[Rule]", 
       RowBox[{"1", "/", "5"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Filling", "\[Rule]", "Axis"}], ",", "\[IndentingNewLine]", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<z (\[Mu]m)\>\"", ",", "\"\<\>\""}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotLabel", "\[Rule]", "\"\<Residuals\>\""}]}], 
     "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.89705489186969*^9, 3.897054901905694*^9}, {
   3.897054980468507*^9, 3.8970550037599277`*^9}, {3.8970551245187817`*^9, 
   3.897055126379683*^9}, {3.8970556541000147`*^9, 3.897055659903884*^9}, {
   3.8970557200574827`*^9, 3.8970557387645817`*^9}, {3.897055821087817*^9, 
   3.897055832817995*^9}, {3.897055880364205*^9, 3.897055889570777*^9}, {
   3.8970560084302177`*^9, 3.8970560832787933`*^9}, {3.8970562672109833`*^9, 
   3.897056320591157*^9}, {3.89705635668176*^9, 3.897056437229364*^9}, {
   3.8970564973591347`*^9, 3.897056567801815*^9}, {3.897056706671378*^9, 
   3.8970567735802402`*^9}, {3.8970568643387117`*^9, 3.897056962228826*^9}, {
   3.897057162336144*^9, 3.8970572126854973`*^9}, {3.897057306103808*^9, 
   3.8970573361236753`*^9}, {3.897057460731963*^9, 3.897057482564755*^9}, {
   3.897057556109251*^9, 3.897057602895411*^9}, {3.897074365821213*^9, 
   3.897074381450069*^9}, {3.897074435000045*^9, 3.897074471693438*^9}, {
   3.8970745311577883`*^9, 3.897074533146134*^9}, {3.8970745891397753`*^9, 
   3.897074589381736*^9}, {3.897076111556308*^9, 3.897076145529462*^9}, {
   3.897076249699292*^9, 3.8970762545001707`*^9}, {3.897076304731386*^9, 
   3.897076363789113*^9}, {3.897076437745552*^9, 3.8970764462784777`*^9}, {
   3.897076585657364*^9, 3.897076611070167*^9}, {3.897076980946991*^9, 
   3.897077162242497*^9}, 3.897077309872497*^9, {3.897414330035624*^9, 
   3.8974143370390053`*^9}, {3.89741479061795*^9, 3.897414790844017*^9}, {
   3.897414870122733*^9, 3.8974149251048307`*^9}, {3.897414957225521*^9, 
   3.897414961634975*^9}, {3.897415015743845*^9, 3.897415024540285*^9}, {
   3.897415057975647*^9, 3.897415063362731*^9}, {3.897415112954666*^9, 
   3.897415114484638*^9}, {3.897418330012623*^9, 3.897418330070643*^9}, {
   3.8974185278396683`*^9, 3.897418527851295*^9}, {3.897418570746874*^9, 
   3.897418607278789*^9}, {3.897418649410537*^9, 3.8974187040275784`*^9}, {
   3.897418821330752*^9, 3.897418821996269*^9}, 3.897418951313223*^9, {
   3.897419340764542*^9, 3.8974194598481092`*^9}, {3.898093342170403*^9, 
   3.898093342456005*^9}, 3.898131978218234*^9, {3.898193026262344*^9, 
   3.898193062700367*^9}, {3.898536624558343*^9, 3.898536647791073*^9}, {
   3.898536726268395*^9, 
   3.898536747077881*^9}},ExpressionUUID->"025c5697-27a1-47b0-8c63-\
ea50df8730d1"],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.8970744071307783`*^9, {3.897074447474143*^9, 3.897074472758045*^9}, 
   3.897074535256357*^9, 3.897074589922097*^9, 3.8970763859722137`*^9, {
   3.897076438181134*^9, 3.897076446881522*^9}, 3.897076992743352*^9, 
   3.8970770260805073`*^9, {3.897077058799752*^9, 3.897077097361761*^9}, {
   3.897077132709629*^9, 3.897077164442902*^9}, 3.897077311455154*^9, 
   3.897080760752923*^9, 3.8970808274932528`*^9, 3.8970808742785683`*^9, 
   3.8970810536991453`*^9, {3.897081086636455*^9, 3.8970811084613028`*^9}, 
   3.897081860046487*^9, 3.897140490340452*^9, {3.8971409477849607`*^9, 
   3.897140966314547*^9}, 3.8974122533794737`*^9, {3.897414862200774*^9, 
   3.897414926118371*^9}, 3.897414969501552*^9, 3.897415025551384*^9, {
   3.897415063959742*^9, 3.897415085004682*^9}, 3.8974151151917963`*^9, 
   3.8974151585116787`*^9, 3.897418066045368*^9, 3.897418536022521*^9, 
   3.897418577625193*^9, 3.897418705419979*^9, 3.89741888418929*^9, 
   3.8974189343702908`*^9, {3.897419319593932*^9, 3.897419341936064*^9}, 
   3.897419462085041*^9, 3.897419596108099*^9, 3.897419659974288*^9, 
   3.897589763984774*^9, 3.897589869427792*^9, 3.8975916152019997`*^9, 
   3.897591722743782*^9, 3.897591943835205*^9, 3.897592148180746*^9, {
   3.8975922566158247`*^9, 3.897592284082121*^9}, 3.897739535479344*^9, 
   3.897740009991048*^9, 3.897740376541523*^9, 3.8977404808152723`*^9, 
   3.897745476012383*^9, 3.897766964851861*^9, 3.8980917403995028`*^9, {
   3.898093376270611*^9, 3.898093403548225*^9}, 3.898108957464632*^9, 
   3.8981148608791113`*^9, 3.89811549631868*^9, 3.898116249350458*^9, 
   3.898118130476429*^9, 3.898130474452697*^9, 3.8981320682618856`*^9, {
   3.8981930562891397`*^9, 3.8981930850616207`*^9}, 3.898193457012895*^9, 
   3.898193743898534*^9, 3.898194001642668*^9, 3.898356834053237*^9, 
   3.898536681428216*^9, {3.898536732123085*^9, 
   3.898536747846361*^9}},ExpressionUUID->"b20c70b3-3908-4674-8d32-\
635b4122f42e"],

Cell[BoxData[
 StyleBox["\<\"Statistical Parameters\"\>",
  StripOnInput->False,
  FontVariations->{"Underline"->True}]], "Print",
 CellChangeTimes->{
  3.8970744071307783`*^9, {3.897074447474143*^9, 3.897074472758045*^9}, 
   3.897074535256357*^9, 3.897074589922097*^9, 3.8970763859722137`*^9, {
   3.897076438181134*^9, 3.897076446881522*^9}, 3.897076992743352*^9, 
   3.8970770260805073`*^9, {3.897077058799752*^9, 3.897077097361761*^9}, {
   3.897077132709629*^9, 3.897077164442902*^9}, 3.897077311455154*^9, 
   3.897080760752923*^9, 3.8970808274932528`*^9, 3.8970808742785683`*^9, 
   3.8970810536991453`*^9, {3.897081086636455*^9, 3.8970811084613028`*^9}, 
   3.897081860046487*^9, 3.897140490340452*^9, {3.8971409477849607`*^9, 
   3.897140966314547*^9}, 3.8974122533794737`*^9, {3.897414862200774*^9, 
   3.897414926118371*^9}, 3.897414969501552*^9, 3.897415025551384*^9, {
   3.897415063959742*^9, 3.897415085004682*^9}, 3.8974151151917963`*^9, 
   3.8974151585116787`*^9, 3.897418066045368*^9, 3.897418536022521*^9, 
   3.897418577625193*^9, 3.897418705419979*^9, 3.89741888418929*^9, 
   3.8974189343702908`*^9, {3.897419319593932*^9, 3.897419341936064*^9}, 
   3.897419462085041*^9, 3.897419596108099*^9, 3.897419659974288*^9, 
   3.897589763984774*^9, 3.897589869427792*^9, 3.8975916152019997`*^9, 
   3.897591722743782*^9, 3.897591943835205*^9, 3.897592148180746*^9, {
   3.8975922566158247`*^9, 3.897592284082121*^9}, 3.897739535479344*^9, 
   3.897740009991048*^9, 3.897740376541523*^9, 3.8977404808152723`*^9, 
   3.897745476012383*^9, 3.897766964851861*^9, 3.8980917403995028`*^9, {
   3.898093376270611*^9, 3.898093403548225*^9}, 3.898108957464632*^9, 
   3.8981148608791113`*^9, 3.89811549631868*^9, 3.898116249350458*^9, 
   3.898118130476429*^9, 3.898130474452697*^9, 3.8981320682618856`*^9, {
   3.8981930562891397`*^9, 3.8981930850616207`*^9}, 3.898193457012895*^9, 
   3.898193743898534*^9, 3.898194001642668*^9, 3.898356834053237*^9, 
   3.898536681428216*^9, {3.898536732123085*^9, 
   3.89853674784783*^9}},ExpressionUUID->"55226534-7ad5-40bf-80c3-\
7b93866e3146"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \"\>", 
   "\[InvisibleSpace]", "0.9999994952493491684`4."}],
  SequenceForm[
  "\!\(\*SuperscriptBox[\(R\), \(2\)]\) = ", 0.9999994952493491684`4.],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8970744071307783`*^9, {3.897074447474143*^9, 3.897074472758045*^9}, 
   3.897074535256357*^9, 3.897074589922097*^9, 3.8970763859722137`*^9, {
   3.897076438181134*^9, 3.897076446881522*^9}, 3.897076992743352*^9, 
   3.8970770260805073`*^9, {3.897077058799752*^9, 3.897077097361761*^9}, {
   3.897077132709629*^9, 3.897077164442902*^9}, 3.897077311455154*^9, 
   3.897080760752923*^9, 3.8970808274932528`*^9, 3.8970808742785683`*^9, 
   3.8970810536991453`*^9, {3.897081086636455*^9, 3.8970811084613028`*^9}, 
   3.897081860046487*^9, 3.897140490340452*^9, {3.8971409477849607`*^9, 
   3.897140966314547*^9}, 3.8974122533794737`*^9, {3.897414862200774*^9, 
   3.897414926118371*^9}, 3.897414969501552*^9, 3.897415025551384*^9, {
   3.897415063959742*^9, 3.897415085004682*^9}, 3.8974151151917963`*^9, 
   3.8974151585116787`*^9, 3.897418066045368*^9, 3.897418536022521*^9, 
   3.897418577625193*^9, 3.897418705419979*^9, 3.89741888418929*^9, 
   3.8974189343702908`*^9, {3.897419319593932*^9, 3.897419341936064*^9}, 
   3.897419462085041*^9, 3.897419596108099*^9, 3.897419659974288*^9, 
   3.897589763984774*^9, 3.897589869427792*^9, 3.8975916152019997`*^9, 
   3.897591722743782*^9, 3.897591943835205*^9, 3.897592148180746*^9, {
   3.8975922566158247`*^9, 3.897592284082121*^9}, 3.897739535479344*^9, 
   3.897740009991048*^9, 3.897740376541523*^9, 3.8977404808152723`*^9, 
   3.897745476012383*^9, 3.897766964851861*^9, 3.8980917403995028`*^9, {
   3.898093376270611*^9, 3.898093403548225*^9}, 3.898108957464632*^9, 
   3.8981148608791113`*^9, 3.89811549631868*^9, 3.898116249350458*^9, 
   3.898118130476429*^9, 3.898130474452697*^9, 3.8981320682618856`*^9, {
   3.8981930562891397`*^9, 3.8981930850616207`*^9}, 3.898193457012895*^9, 
   3.898193743898534*^9, 3.898194001642668*^9, 3.898356834053237*^9, 
   3.898536681428216*^9, {3.898536732123085*^9, 
   3.898536747849172*^9}},ExpressionUUID->"fe7dff51-8645-48bf-8e36-\
092f4dbd0275"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[Nu] = \"\>", "\[InvisibleSpace]", "15.`4."}],
  SequenceForm["\[Nu] = ", 15.`4.],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8970744071307783`*^9, {3.897074447474143*^9, 3.897074472758045*^9}, 
   3.897074535256357*^9, 3.897074589922097*^9, 3.8970763859722137`*^9, {
   3.897076438181134*^9, 3.897076446881522*^9}, 3.897076992743352*^9, 
   3.8970770260805073`*^9, {3.897077058799752*^9, 3.897077097361761*^9}, {
   3.897077132709629*^9, 3.897077164442902*^9}, 3.897077311455154*^9, 
   3.897080760752923*^9, 3.8970808274932528`*^9, 3.8970808742785683`*^9, 
   3.8970810536991453`*^9, {3.897081086636455*^9, 3.8970811084613028`*^9}, 
   3.897081860046487*^9, 3.897140490340452*^9, {3.8971409477849607`*^9, 
   3.897140966314547*^9}, 3.8974122533794737`*^9, {3.897414862200774*^9, 
   3.897414926118371*^9}, 3.897414969501552*^9, 3.897415025551384*^9, {
   3.897415063959742*^9, 3.897415085004682*^9}, 3.8974151151917963`*^9, 
   3.8974151585116787`*^9, 3.897418066045368*^9, 3.897418536022521*^9, 
   3.897418577625193*^9, 3.897418705419979*^9, 3.89741888418929*^9, 
   3.8974189343702908`*^9, {3.897419319593932*^9, 3.897419341936064*^9}, 
   3.897419462085041*^9, 3.897419596108099*^9, 3.897419659974288*^9, 
   3.897589763984774*^9, 3.897589869427792*^9, 3.8975916152019997`*^9, 
   3.897591722743782*^9, 3.897591943835205*^9, 3.897592148180746*^9, {
   3.8975922566158247`*^9, 3.897592284082121*^9}, 3.897739535479344*^9, 
   3.897740009991048*^9, 3.897740376541523*^9, 3.8977404808152723`*^9, 
   3.897745476012383*^9, 3.897766964851861*^9, 3.8980917403995028`*^9, {
   3.898093376270611*^9, 3.898093403548225*^9}, 3.898108957464632*^9, 
   3.8981148608791113`*^9, 3.89811549631868*^9, 3.898116249350458*^9, 
   3.898118130476429*^9, 3.898130474452697*^9, 3.8981320682618856`*^9, {
   3.8981930562891397`*^9, 3.8981930850616207`*^9}, 3.898193457012895*^9, 
   3.898193743898534*^9, 3.898194001642668*^9, 3.898356834053237*^9, 
   3.898536681428216*^9, {3.898536732123085*^9, 
   3.898536747850708*^9}},ExpressionUUID->"289f4514-3fe6-4f7e-b871-\
b63bc7cf6770"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*SuperscriptBox[SubscriptBox[\\(\[Chi]\\), \
\\(\[Nu]\\)], \\(2\\)]\\) = \"\>", "\[InvisibleSpace]", 
   "1.32076754620493797`4."}],
  SequenceForm[
  "\!\(\*SuperscriptBox[SubscriptBox[\(\[Chi]\), \(\[Nu]\)], \(2\)]\) = ", 
   1.32076754620493797`4.],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8970744071307783`*^9, {3.897074447474143*^9, 3.897074472758045*^9}, 
   3.897074535256357*^9, 3.897074589922097*^9, 3.8970763859722137`*^9, {
   3.897076438181134*^9, 3.897076446881522*^9}, 3.897076992743352*^9, 
   3.8970770260805073`*^9, {3.897077058799752*^9, 3.897077097361761*^9}, {
   3.897077132709629*^9, 3.897077164442902*^9}, 3.897077311455154*^9, 
   3.897080760752923*^9, 3.8970808274932528`*^9, 3.8970808742785683`*^9, 
   3.8970810536991453`*^9, {3.897081086636455*^9, 3.8970811084613028`*^9}, 
   3.897081860046487*^9, 3.897140490340452*^9, {3.8971409477849607`*^9, 
   3.897140966314547*^9}, 3.8974122533794737`*^9, {3.897414862200774*^9, 
   3.897414926118371*^9}, 3.897414969501552*^9, 3.897415025551384*^9, {
   3.897415063959742*^9, 3.897415085004682*^9}, 3.8974151151917963`*^9, 
   3.8974151585116787`*^9, 3.897418066045368*^9, 3.897418536022521*^9, 
   3.897418577625193*^9, 3.897418705419979*^9, 3.89741888418929*^9, 
   3.8974189343702908`*^9, {3.897419319593932*^9, 3.897419341936064*^9}, 
   3.897419462085041*^9, 3.897419596108099*^9, 3.897419659974288*^9, 
   3.897589763984774*^9, 3.897589869427792*^9, 3.8975916152019997`*^9, 
   3.897591722743782*^9, 3.897591943835205*^9, 3.897592148180746*^9, {
   3.8975922566158247`*^9, 3.897592284082121*^9}, 3.897739535479344*^9, 
   3.897740009991048*^9, 3.897740376541523*^9, 3.8977404808152723`*^9, 
   3.897745476012383*^9, 3.897766964851861*^9, 3.8980917403995028`*^9, {
   3.898093376270611*^9, 3.898093403548225*^9}, 3.898108957464632*^9, 
   3.8981148608791113`*^9, 3.89811549631868*^9, 3.898116249350458*^9, 
   3.898118130476429*^9, 3.898130474452697*^9, 3.8981320682618856`*^9, {
   3.8981930562891397`*^9, 3.8981930850616207`*^9}, 3.898193457012895*^9, 
   3.898193743898534*^9, 3.898194001642668*^9, 3.898356834053237*^9, 
   3.898536681428216*^9, {3.898536732123085*^9, 
   3.898536747852367*^9}},ExpressionUUID->"f3c2f382-4f92-4104-b533-\
a2688a3c2f92"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"P(\\!\\(\\*SuperscriptBox[SubscriptBox[\\(\[Chi]\\), \
\\(\[Nu]\\)], \\(2\\)]\\);\[Nu]) = \"\>", "\[InvisibleSpace]", 
   "0.179283129267331115`4."}],
  SequenceForm[
  "P(\!\(\*SuperscriptBox[SubscriptBox[\(\[Chi]\), \(\[Nu]\)], \
\(2\)]\);\[Nu]) = ", 0.179283129267331115`4.],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8970744071307783`*^9, {3.897074447474143*^9, 3.897074472758045*^9}, 
   3.897074535256357*^9, 3.897074589922097*^9, 3.8970763859722137`*^9, {
   3.897076438181134*^9, 3.897076446881522*^9}, 3.897076992743352*^9, 
   3.8970770260805073`*^9, {3.897077058799752*^9, 3.897077097361761*^9}, {
   3.897077132709629*^9, 3.897077164442902*^9}, 3.897077311455154*^9, 
   3.897080760752923*^9, 3.8970808274932528`*^9, 3.8970808742785683`*^9, 
   3.8970810536991453`*^9, {3.897081086636455*^9, 3.8970811084613028`*^9}, 
   3.897081860046487*^9, 3.897140490340452*^9, {3.8971409477849607`*^9, 
   3.897140966314547*^9}, 3.8974122533794737`*^9, {3.897414862200774*^9, 
   3.897414926118371*^9}, 3.897414969501552*^9, 3.897415025551384*^9, {
   3.897415063959742*^9, 3.897415085004682*^9}, 3.8974151151917963`*^9, 
   3.8974151585116787`*^9, 3.897418066045368*^9, 3.897418536022521*^9, 
   3.897418577625193*^9, 3.897418705419979*^9, 3.89741888418929*^9, 
   3.8974189343702908`*^9, {3.897419319593932*^9, 3.897419341936064*^9}, 
   3.897419462085041*^9, 3.897419596108099*^9, 3.897419659974288*^9, 
   3.897589763984774*^9, 3.897589869427792*^9, 3.8975916152019997`*^9, 
   3.897591722743782*^9, 3.897591943835205*^9, 3.897592148180746*^9, {
   3.8975922566158247`*^9, 3.897592284082121*^9}, 3.897739535479344*^9, 
   3.897740009991048*^9, 3.897740376541523*^9, 3.8977404808152723`*^9, 
   3.897745476012383*^9, 3.897766964851861*^9, 3.8980917403995028`*^9, {
   3.898093376270611*^9, 3.898093403548225*^9}, 3.898108957464632*^9, 
   3.8981148608791113`*^9, 3.89811549631868*^9, 3.898116249350458*^9, 
   3.898118130476429*^9, 3.898130474452697*^9, 3.8981320682618856`*^9, {
   3.8981930562891397`*^9, 3.8981930850616207`*^9}, 3.898193457012895*^9, 
   3.898193743898534*^9, 3.898194001642668*^9, 3.898356834053237*^9, 
   3.898536681428216*^9, {3.898536732123085*^9, 
   3.898536747853915*^9}},ExpressionUUID->"abac2074-fb4a-44ba-875e-\
55998b805b77"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"D = \"\>", "\[InvisibleSpace]", "0.1646272984399360095`4."}],
  SequenceForm["D = ", 0.1646272984399360095`4.],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8970744071307783`*^9, {3.897074447474143*^9, 3.897074472758045*^9}, 
   3.897074535256357*^9, 3.897074589922097*^9, 3.8970763859722137`*^9, {
   3.897076438181134*^9, 3.897076446881522*^9}, 3.897076992743352*^9, 
   3.8970770260805073`*^9, {3.897077058799752*^9, 3.897077097361761*^9}, {
   3.897077132709629*^9, 3.897077164442902*^9}, 3.897077311455154*^9, 
   3.897080760752923*^9, 3.8970808274932528`*^9, 3.8970808742785683`*^9, 
   3.8970810536991453`*^9, {3.897081086636455*^9, 3.8970811084613028`*^9}, 
   3.897081860046487*^9, 3.897140490340452*^9, {3.8971409477849607`*^9, 
   3.897140966314547*^9}, 3.8974122533794737`*^9, {3.897414862200774*^9, 
   3.897414926118371*^9}, 3.897414969501552*^9, 3.897415025551384*^9, {
   3.897415063959742*^9, 3.897415085004682*^9}, 3.8974151151917963`*^9, 
   3.8974151585116787`*^9, 3.897418066045368*^9, 3.897418536022521*^9, 
   3.897418577625193*^9, 3.897418705419979*^9, 3.89741888418929*^9, 
   3.8974189343702908`*^9, {3.897419319593932*^9, 3.897419341936064*^9}, 
   3.897419462085041*^9, 3.897419596108099*^9, 3.897419659974288*^9, 
   3.897589763984774*^9, 3.897589869427792*^9, 3.8975916152019997`*^9, 
   3.897591722743782*^9, 3.897591943835205*^9, 3.897592148180746*^9, {
   3.8975922566158247`*^9, 3.897592284082121*^9}, 3.897739535479344*^9, 
   3.897740009991048*^9, 3.897740376541523*^9, 3.8977404808152723`*^9, 
   3.897745476012383*^9, 3.897766964851861*^9, 3.8980917403995028`*^9, {
   3.898093376270611*^9, 3.898093403548225*^9}, 3.898108957464632*^9, 
   3.8981148608791113`*^9, 3.89811549631868*^9, 3.898116249350458*^9, 
   3.898118130476429*^9, 3.898130474452697*^9, 3.8981320682618856`*^9, {
   3.8981930562891397`*^9, 3.8981930850616207`*^9}, 3.898193457012895*^9, 
   3.898193743898534*^9, 3.898194001642668*^9, 3.898356834053237*^9, 
   3.898536681428216*^9, {3.898536732123085*^9, 
   3.8985367478575993`*^9}},ExpressionUUID->"c1b66cde-45d7-41ad-a8d6-\
cdbc91ebc0e1"],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"a1", "493.99417172079285`", "28.107942361611695`", 
      "17.574896282534837`", "2.0349777471531788`*^-11"},
     {"a2", "0.0071677159352130145`", "0.00039551735031711615`", 
      "18.122380546557856`", "1.3097415972097225`*^-11"},
     {"a3", 
      RowBox[{"-", "488.143533194351`"}], "28.117494489497027`", 
      RowBox[{"-", "17.360847474396824`"}], "2.4258599260293613`*^-11"}
    },
    AutoDelete->False,
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
    GridBoxDividers->{
     "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
      "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{
     "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
   "Grid"], "DialogStyle",
  StripOnInput->False]], "Print",
 CellChangeTimes->{
  3.8970744071307783`*^9, {3.897074447474143*^9, 3.897074472758045*^9}, 
   3.897074535256357*^9, 3.897074589922097*^9, 3.8970763859722137`*^9, {
   3.897076438181134*^9, 3.897076446881522*^9}, 3.897076992743352*^9, 
   3.8970770260805073`*^9, {3.897077058799752*^9, 3.897077097361761*^9}, {
   3.897077132709629*^9, 3.897077164442902*^9}, 3.897077311455154*^9, 
   3.897080760752923*^9, 3.8970808274932528`*^9, 3.8970808742785683`*^9, 
   3.8970810536991453`*^9, {3.897081086636455*^9, 3.8970811084613028`*^9}, 
   3.897081860046487*^9, 3.897140490340452*^9, {3.8971409477849607`*^9, 
   3.897140966314547*^9}, 3.8974122533794737`*^9, {3.897414862200774*^9, 
   3.897414926118371*^9}, 3.897414969501552*^9, 3.897415025551384*^9, {
   3.897415063959742*^9, 3.897415085004682*^9}, 3.8974151151917963`*^9, 
   3.8974151585116787`*^9, 3.897418066045368*^9, 3.897418536022521*^9, 
   3.897418577625193*^9, 3.897418705419979*^9, 3.89741888418929*^9, 
   3.8974189343702908`*^9, {3.897419319593932*^9, 3.897419341936064*^9}, 
   3.897419462085041*^9, 3.897419596108099*^9, 3.897419659974288*^9, 
   3.897589763984774*^9, 3.897589869427792*^9, 3.8975916152019997`*^9, 
   3.897591722743782*^9, 3.897591943835205*^9, 3.897592148180746*^9, {
   3.8975922566158247`*^9, 3.897592284082121*^9}, 3.897739535479344*^9, 
   3.897740009991048*^9, 3.897740376541523*^9, 3.8977404808152723`*^9, 
   3.897745476012383*^9, 3.897766964851861*^9, 3.8980917403995028`*^9, {
   3.898093376270611*^9, 3.898093403548225*^9}, 3.898108957464632*^9, 
   3.8981148608791113`*^9, 3.89811549631868*^9, 3.898116249350458*^9, 
   3.898118130476429*^9, 3.898130474452697*^9, 3.8981320682618856`*^9, {
   3.8981930562891397`*^9, 3.8981930850616207`*^9}, 3.898193457012895*^9, 
   3.898193743898534*^9, 3.898194001642668*^9, 3.898356834053237*^9, 
   3.898536681428216*^9, {3.898536732123085*^9, 
   3.898536747859272*^9}},ExpressionUUID->"28cb2d43-3fed-402a-aa6e-\
eb5920d139a8"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.8970744071307783`*^9, {3.897074447474143*^9, 3.897074472758045*^9}, 
   3.897074535256357*^9, 3.897074589922097*^9, 3.8970763859722137`*^9, {
   3.897076438181134*^9, 3.897076446881522*^9}, 3.897076992743352*^9, 
   3.8970770260805073`*^9, {3.897077058799752*^9, 3.897077097361761*^9}, {
   3.897077132709629*^9, 3.897077164442902*^9}, 3.897077311455154*^9, 
   3.897080760752923*^9, 3.8970808274932528`*^9, 3.8970808742785683`*^9, 
   3.8970810536991453`*^9, {3.897081086636455*^9, 3.8970811084613028`*^9}, 
   3.897081860046487*^9, 3.897140490340452*^9, {3.8971409477849607`*^9, 
   3.897140966314547*^9}, 3.8974122533794737`*^9, {3.897414862200774*^9, 
   3.897414926118371*^9}, 3.897414969501552*^9, 3.897415025551384*^9, {
   3.897415063959742*^9, 3.897415085004682*^9}, 3.8974151151917963`*^9, 
   3.8974151585116787`*^9, 3.897418066045368*^9, 3.897418536022521*^9, 
   3.897418577625193*^9, 3.897418705419979*^9, 3.89741888418929*^9, 
   3.8974189343702908`*^9, {3.897419319593932*^9, 3.897419341936064*^9}, 
   3.897419462085041*^9, 3.897419596108099*^9, 3.897419659974288*^9, 
   3.897589763984774*^9, 3.897589869427792*^9, 3.8975916152019997`*^9, 
   3.897591722743782*^9, 3.897591943835205*^9, 3.897592148180746*^9, {
   3.8975922566158247`*^9, 3.897592284082121*^9}, 3.897739535479344*^9, 
   3.897740009991048*^9, 3.897740376541523*^9, 3.8977404808152723`*^9, 
   3.897745476012383*^9, 3.897766964851861*^9, 3.8980917403995028`*^9, {
   3.898093376270611*^9, 3.898093403548225*^9}, 3.898108957464632*^9, 
   3.8981148608791113`*^9, 3.89811549631868*^9, 3.898116249350458*^9, 
   3.898118130476429*^9, 3.898130474452697*^9, 3.8981320682618856`*^9, {
   3.8981930562891397`*^9, 3.8981930850616207`*^9}, 3.898193457012895*^9, 
   3.898193743898534*^9, 3.898194001642668*^9, 3.898356834053237*^9, 
   3.898536681428216*^9, {3.898536732123085*^9, 
   3.898536747861165*^9}},ExpressionUUID->"80e7ea02-d72a-4f82-a6ef-\
511d354387d7"]
}, Open  ]],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{}, {{{}, {
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.012833333333333334`], AbsoluteThickness[1.6], 
          PointBox[{{0.5, 7.598475219968211}, {1., 9.389826058161796}, {1.5, 
           11.185554776716403`}, {2., 12.98578689448969}, {2.5, 
           14.790644189958241`}, {3., 16.60024486410619}, {3.5, 
           18.414703696604622`}, {4., 20.234132195561052`}, {4.5, 
           22.05863874110504}, {5., 23.888328723066273`}, {5.5, 
           25.723304672990263`}, {6., 27.56366639072634}, {6.5, 
           29.409511065813852`}, {7., 31.260933393881988`}, {7.5, 
           33.118025688270585`}, {8., 34.98087798707031}, {8.5, 
           36.849578155772264`}, {9., 
           38.72421198570937}}], {{
            LineBox[{{0.5, 9.01903750379752}, {0.5, 6.1779129361389025`}}], 
            LineBox[{
             Offset[{1.5, 0}, {0.5, 9.01903750379752}], 
              Offset[{-1.5, 0}, {0.5, 9.01903750379752}]}], 
            LineBox[{
             Offset[{1.5, 0}, {0.5, 6.1779129361389025`}], 
              Offset[{-1.5, 0}, {0.5, 6.1779129361389025`}]}]}, {
            LineBox[{{1., 10.708521299652356`}, {1., 8.071130816671237}}], 
            LineBox[{
             Offset[{1.5, 0}, {1., 10.708521299652356`}], 
              Offset[{-1.5, 0}, {1., 10.708521299652356`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {1., 8.071130816671237}], 
              Offset[{-1.5, 0}, {1., 8.071130816671237}]}]}, {
            LineBox[{{1.5, 12.431633889236197`}, {1.5, 9.939475664196609}}], 
            LineBox[{
             Offset[{1.5, 0}, {1.5, 12.431633889236197`}], 
              Offset[{-1.5, 0}, {1.5, 12.431633889236197`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {1.5, 9.939475664196609}], 
              Offset[{-1.5, 0}, {1.5, 9.939475664196609}]}]}, {
            LineBox[{{2., 14.190128366296722`}, {2., 11.781445422682658`}}], 
            LineBox[{
             Offset[{1.5, 0}, {2., 14.190128366296722`}], 
              Offset[{-1.5, 0}, {2., 14.190128366296722`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {2., 11.781445422682658`}], 
              Offset[{-1.5, 0}, {2., 11.781445422682658`}]}]}, {
            LineBox[{{2.5, 15.984438389171729`}, {2.5, 13.596849990744754`}}],
             LineBox[{
             Offset[{1.5, 0}, {2.5, 15.984438389171729`}], 
              Offset[{-1.5, 0}, {2.5, 15.984438389171729`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {2.5, 13.596849990744754`}], 
              Offset[{-1.5, 0}, {2.5, 13.596849990744754`}]}]}, {
            LineBox[{{3., 17.813293158530225`}, {3., 15.387196569682155`}}], 
            LineBox[{
             Offset[{1.5, 0}, {3., 17.813293158530225`}], 
              Offset[{-1.5, 0}, {3., 17.813293158530225`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {3., 15.387196569682155`}], 
              Offset[{-1.5, 0}, {3., 15.387196569682155`}]}]}, {
            LineBox[{{3.5, 19.67390293158047}, {3.5, 17.155504461628773`}}], 
            LineBox[{
             Offset[{1.5, 0}, {3.5, 19.67390293158047}], 
              Offset[{-1.5, 0}, {3.5, 19.67390293158047}]}], 
            LineBox[{
             Offset[{1.5, 0}, {3.5, 17.155504461628773`}], 
              Offset[{-1.5, 0}, {3.5, 17.155504461628773`}]}]}, {
            LineBox[{{4., 21.562612041537005`}, {4., 18.9056523495851}}], 
            LineBox[{
             Offset[{1.5, 0}, {4., 21.562612041537005`}], 
              Offset[{-1.5, 0}, {4., 21.562612041537005`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {4., 18.9056523495851}], 
              Offset[{-1.5, 0}, {4., 18.9056523495851}]}]}, {
            LineBox[{{4.5, 23.475642126018585`}, {4.5, 20.641635356191493`}}],
             LineBox[{
             Offset[{1.5, 0}, {4.5, 23.475642126018585`}], 
              Offset[{-1.5, 0}, {4.5, 23.475642126018585`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {4.5, 20.641635356191493`}], 
              Offset[{-1.5, 0}, {4.5, 20.641635356191493`}]}]}, {
            LineBox[{{5., 25.40961638315291}, {5., 22.367041062979638`}}], 
            LineBox[{
             Offset[{1.5, 0}, {5., 25.40961638315291}], 
              Offset[{-1.5, 0}, {5., 25.40961638315291}]}], 
            LineBox[{
             Offset[{1.5, 0}, {5., 22.367041062979638`}], 
              Offset[{-1.5, 0}, {5., 22.367041062979638`}]}]}, {
            LineBox[{{5.5, 27.36179073968839}, {5.5, 24.084818606292135`}}], 
            LineBox[{
             Offset[{1.5, 0}, {5.5, 27.36179073968839}], 
              Offset[{-1.5, 0}, {5.5, 27.36179073968839}]}], 
            LineBox[{
             Offset[{1.5, 0}, {5.5, 24.084818606292135`}], 
              Offset[{-1.5, 0}, {5.5, 24.084818606292135`}]}]}, {
            LineBox[{{6., 29.330072509956977`}, {6., 25.797260271495702`}}], 
            LineBox[{
             Offset[{1.5, 0}, {6., 29.330072509956977`}], 
              Offset[{-1.5, 0}, {6., 29.330072509956977`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {6., 25.797260271495702`}], 
              Offset[{-1.5, 0}, {6., 25.797260271495702`}]}]}, {
            LineBox[{{6.5, 31.31293398351742}, {6.5, 27.506088148110283`}}], 
            LineBox[{
             Offset[{1.5, 0}, {6.5, 31.31293398351742}], 
              Offset[{-1.5, 0}, {6.5, 31.31293398351742}]}], 
            LineBox[{
             Offset[{1.5, 0}, {6.5, 27.506088148110283`}], 
              Offset[{-1.5, 0}, {6.5, 27.506088148110283`}]}]}, {
            LineBox[{{7., 33.30929527460321}, {7., 29.212571513160768`}}], 
            LineBox[{
             Offset[{1.5, 0}, {7., 33.30929527460321}], 
              Offset[{-1.5, 0}, {7., 33.30929527460321}]}], 
            LineBox[{
             Offset[{1.5, 0}, {7., 29.212571513160768`}], 
              Offset[{-1.5, 0}, {7., 29.212571513160768`}]}]}, {
            LineBox[{{7.5, 35.318413416368955`}, {7.5, 30.917637960172218`}}],
             LineBox[{
             Offset[{1.5, 0}, {7.5, 35.318413416368955`}], 
              Offset[{-1.5, 0}, {7.5, 35.318413416368955`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {7.5, 30.917637960172218`}], 
              Offset[{-1.5, 0}, {7.5, 30.917637960172218`}]}]}, {
            LineBox[{{8., 37.339790845975784`}, {8., 32.62196512816483}}], 
            LineBox[{
             Offset[{1.5, 0}, {8., 37.339790845975784`}], 
              Offset[{-1.5, 0}, {8., 37.339790845975784`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {8., 32.62196512816483}], 
              Offset[{-1.5, 0}, {8., 32.62196512816483}]}]}, {
            LineBox[{{8.5, 39.37310485290243}, {8.5, 34.3260514586421}}], 
            LineBox[{
             Offset[{1.5, 0}, {8.5, 39.37310485290243}], 
              Offset[{-1.5, 0}, {8.5, 39.37310485290243}]}], 
            LineBox[{
             Offset[{1.5, 0}, {8.5, 34.3260514586421}], 
              Offset[{-1.5, 0}, {8.5, 34.3260514586421}]}]}, {
            LineBox[{{9., 41.41815517015759}, {9., 36.030268801261144`}}], 
            LineBox[{
             Offset[{1.5, 0}, {9., 41.41815517015759}], 
              Offset[{-1.5, 0}, {9., 41.41815517015759}]}], 
            LineBox[{
             Offset[{1.5, 0}, {9., 36.030268801261144`}], 
              Offset[{-1.5, 0}, {9., 
               36.030268801261144`}]}]}}}}, {}}}, {}, {}, {{}, {}}, {{}, \
{}}}, {{{{}, {}, 
        TagBox[{
          {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
           Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVUXtUjHkY/nax3Wgn3W8z85Gkm2p0M+l7ml/ZDF0kCdGXrZNaKixCNOiY
pG1ju6nYSclG2VRSu2eZJV2OWx1q1SrTlpLQLDoUZb/94z3vec7zPu/zvOel
tySGxHxJUVQAV//3lF30JopSMTJ+T7EolY9h89iDGw05LN5mUJ3OR0hT5Zl6
WxVDMcX59qf4sDH06Nu2luOdupQLzvPRWR8Y2X1RxSgDa8+a3OHDcfJAVM3a
fkb5nJ9OGQvwVNYVE33pH25eMLf7sgCSrBMJrWHPGJxUHwlLFGLPtYBeuXCU
kXluuK/ZSOOG/NQ7bV81w64cVfq+mgeLouv6ePGGYekYRYe5Faqv5vWr28YZ
9pWR23fRC3A5dmIqPfkDI9MK+DU53xoDQs22YvYjo7Tx6D8/uBBJPuuq+OJp
RpG775Kd/SLUppioyU4KQnntB93NtpBG/M3WD3wBlY28bdFFO+TJB5KLvWYA
VWt+z1PZI2voxJnGrJlQ9N477KfniHkrMk7nTM0C26FhSCIWI/79Pa+BNRpQ
xxQlXPd3QmBF7LWxZk1QXkUrM9VO6Msq8RaJtFF9NHzsUK4z5iuF218c0wGS
I7emLXbBzPHxnZHvZyP4m7jO5i4XFO7mCf2DdMGLFEQY7RLhzoSs7PWtryFc
4pBWabEEjx63mg0V8KC8cjTs21tLcKbnbX0W0YOi6GqfeaQrRH1t3nmf9EA1
PbFaqOmGMrmkcF3FXGTnlq51LHfDqFQnpS5EH+2K2EKpjzsoXuqKJG0DyHY9
3nt7xB1j+3NfPLtqANaHMXaWe6ByOGzvb4mGULQE6c5y8QSTsDXD1toI7B2V
xptuT1QWWuwIbTeC0FQsbdqzFMOtB0hvujHYHyaNdGgxpooPjghcTaDKTApz
VooxkvHAcLrXBNSH7S+jI7xQuv+ugzjXFIqYsU8mXy2DO2+bqQvMwE4/lJSU
LcPpC/Vq+YQZKP7ow9pgb3QOlhbll5tD5ldUl/OvN4bF/XclwRag/CfqDv3I
oCWnbWSVpiXYFK3jqZbAkZ9Ce3h1lkiyj3cu2Q5o52TUixL4CA6xmT7VBMRd
5pm+sRJA0Wm7UcfMB+cSPIPiH3DYwnzj0zgfhBYcaxD6CtH+51jdcaUP/O76
iOIKhcD3vo2ZehLQcxbs+PxaCGWNySZelASD93utbktp4ObRhKRrEuQMxN6M
VdDIzhjZMV+ToOLj8vlDJTT33w4qU4vgur51WnQpjfagCyffaRMMk0G/qHIO
Z1s23p5DsLSMbdtQSaO6RyTYqk/QH72+PaCB29en5V/FJ3AckvaJ2mko7RJm
e7oSkOlFTE0Hp6/gd5e4EYQbaSmcHnJ8wR8XtD0IDi9viXLoouH0qFn6ZCnB
o3LyzPoJDUpH45dUEByI9Xpp+pyGrA03mlcSZKeaBxSMcH453RcXBxCU5U9W
GY3SUE2yBQWBBPdbGhL1X9MQlon3xa8mmGfj+nb2O86/Rhiiu47AHQahJ8a5
feccA/aGE6wKf1un9Z67R2InVa0n2J1+Zc9Xk5z+Z/WKmgiCDEX2X2kfubxs
4yrzzQRnGxI9ZkzRCO5NWp0WSVDbHnj68DTHGxuHv2IJWp87TH7+zOWbW8mG
bSH4D/OBFjg=
            "]]}},
         Annotation[#, "Charting`Private`Tag$13905#1"]& ]}}, {}, {}}}, {
     InsetBox[
      TemplateBox[{"\"Dataset\"","\"BestFit\""},
       "LineLegend",
       DisplayFunction->(FormBox[
         PanelBox[
          StyleBox[
           StyleBox[
            PaneBox[
             TagBox[
              GridBox[{{
                 TagBox[
                  GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {40, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                   GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                   AutoDelete -> False, 
                   GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
               GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
                AutoDelete -> False, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
              "Grid"], Alignment -> Left, AppearanceElements -> None, 
             ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> 
            False], {FontFamily -> "Arial"}, StripOnInput -> False], 
          Background -> Automatic, ContentPadding -> True, 
          FrameMargins -> {{5, 5}, {5, 5}}], TraditionalForm]& ),
       Editable->True,
       InterpretationFunction:>(RowBox[{"LineLegend", "[", 
          RowBox[{
            RowBox[{"{", 
              RowBox[{
                InterpretationBox[
                 ButtonBox[
                  TooltipBox[
                   GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                   "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                  None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                  DefaultBaseStyle -> {}, ButtonFunction :> 
                  With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                  Automatic, Method -> "Preemptive"], 
                 RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, 
                 Selectable -> False], ",", 
                RowBox[{"{", 
                  RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}]}], 
              "}"}], ",", 
            RowBox[{"{", 
              RowBox[{#, ",", #2}], "}"}], ",", 
            RowBox[{"LegendFunction", "\[Rule]", "Panel"}]}], "]"}]& )], 
      Scaled[{0.05, 0.7}], ImageScaled[{0, 0}],
      BaseStyle->{FontSize -> Larger},
      FormatType->StandardForm]}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   DisplayFunction->Identity,
   Frame->True,
   FrameLabel->{
     FormBox["\"z (\[Mu]m)\"", TraditionalForm], 
     FormBox["\"R (Px)\"", TraditionalForm]},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImagePadding->All,
   Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotLabel->FormBox["\"Calibration\"", TraditionalForm],
   PlotRange->{{0.5, 9.}, {7.598475219968211, 38.72421198570937}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{{{}, {{{}, {
          Hue[0.67, 0.6, 0.6], 
          Directive[
           PointSize[0.012833333333333334`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[1.6]], {
           
           Point[{{0.5, 7.598475219968211}, {1., 9.389826058161796}, {1.5, 
            11.185554776716403`}, {2., 12.98578689448969}, {2.5, 
            14.790644189958241`}, {3., 16.60024486410619}, {3.5, 
            18.414703696604622`}, {4., 20.234132195561052`}, {4.5, 
            22.05863874110504}, {5., 23.888328723066273`}, {5.5, 
            25.723304672990263`}, {6., 27.56366639072634}, {6.5, 
            29.409511065813852`}, {7., 31.260933393881988`}, {7.5, 
            33.118025688270585`}, {8., 34.98087798707031}, {8.5, 
            36.849578155772264`}, {9., 38.72421198570937}}], {{
             Line[{{0.5, 9.01903750379752}, {0.5, 6.1779129361389025`}}], 
             Line[{
               Offset[{1.5, 0}, {0.5, 9.01903750379752}], 
               Offset[{-1.5, 0}, {0.5, 9.01903750379752}]}], 
             Line[{
               Offset[{1.5, 0}, {0.5, 6.1779129361389025`}], 
               Offset[{-1.5, 0}, {0.5, 6.1779129361389025`}]}]}, {
             Line[{{1., 10.708521299652356`}, {1., 8.071130816671237}}], 
             Line[{
               Offset[{1.5, 0}, {1., 10.708521299652356`}], 
               Offset[{-1.5, 0}, {1., 10.708521299652356`}]}], 
             Line[{
               Offset[{1.5, 0}, {1., 8.071130816671237}], 
               Offset[{-1.5, 0}, {1., 8.071130816671237}]}]}, {
             Line[{{1.5, 12.431633889236197`}, {1.5, 9.939475664196609}}], 
             Line[{
               Offset[{1.5, 0}, {1.5, 12.431633889236197`}], 
               Offset[{-1.5, 0}, {1.5, 12.431633889236197`}]}], 
             Line[{
               Offset[{1.5, 0}, {1.5, 9.939475664196609}], 
               Offset[{-1.5, 0}, {1.5, 9.939475664196609}]}]}, {
             Line[{{2., 14.190128366296722`}, {2., 11.781445422682658`}}], 
             Line[{
               Offset[{1.5, 0}, {2., 14.190128366296722`}], 
               Offset[{-1.5, 0}, {2., 14.190128366296722`}]}], 
             Line[{
               Offset[{1.5, 0}, {2., 11.781445422682658`}], 
               Offset[{-1.5, 0}, {2., 11.781445422682658`}]}]}, {
             Line[{{2.5, 15.984438389171729`}, {2.5, 13.596849990744754`}}], 
             Line[{
               Offset[{1.5, 0}, {2.5, 15.984438389171729`}], 
               Offset[{-1.5, 0}, {2.5, 15.984438389171729`}]}], 
             Line[{
               Offset[{1.5, 0}, {2.5, 13.596849990744754`}], 
               Offset[{-1.5, 0}, {2.5, 13.596849990744754`}]}]}, {
             Line[{{3., 17.813293158530225`}, {3., 15.387196569682155`}}], 
             Line[{
               Offset[{1.5, 0}, {3., 17.813293158530225`}], 
               Offset[{-1.5, 0}, {3., 17.813293158530225`}]}], 
             Line[{
               Offset[{1.5, 0}, {3., 15.387196569682155`}], 
               Offset[{-1.5, 0}, {3., 15.387196569682155`}]}]}, {
             Line[{{3.5, 19.67390293158047}, {3.5, 17.155504461628773`}}], 
             Line[{
               Offset[{1.5, 0}, {3.5, 19.67390293158047}], 
               Offset[{-1.5, 0}, {3.5, 19.67390293158047}]}], 
             Line[{
               Offset[{1.5, 0}, {3.5, 17.155504461628773`}], 
               Offset[{-1.5, 0}, {3.5, 17.155504461628773`}]}]}, {
             Line[{{4., 21.562612041537005`}, {4., 18.9056523495851}}], 
             Line[{
               Offset[{1.5, 0}, {4., 21.562612041537005`}], 
               Offset[{-1.5, 0}, {4., 21.562612041537005`}]}], 
             Line[{
               Offset[{1.5, 0}, {4., 18.9056523495851}], 
               Offset[{-1.5, 0}, {4., 18.9056523495851}]}]}, {
             Line[{{4.5, 23.475642126018585`}, {4.5, 20.641635356191493`}}], 
             Line[{
               Offset[{1.5, 0}, {4.5, 23.475642126018585`}], 
               Offset[{-1.5, 0}, {4.5, 23.475642126018585`}]}], 
             Line[{
               Offset[{1.5, 0}, {4.5, 20.641635356191493`}], 
               Offset[{-1.5, 0}, {4.5, 20.641635356191493`}]}]}, {
             Line[{{5., 25.40961638315291}, {5., 22.367041062979638`}}], 
             Line[{
               Offset[{1.5, 0}, {5., 25.40961638315291}], 
               Offset[{-1.5, 0}, {5., 25.40961638315291}]}], 
             Line[{
               Offset[{1.5, 0}, {5., 22.367041062979638`}], 
               Offset[{-1.5, 0}, {5., 22.367041062979638`}]}]}, {
             Line[{{5.5, 27.36179073968839}, {5.5, 24.084818606292135`}}], 
             Line[{
               Offset[{1.5, 0}, {5.5, 27.36179073968839}], 
               Offset[{-1.5, 0}, {5.5, 27.36179073968839}]}], 
             Line[{
               Offset[{1.5, 0}, {5.5, 24.084818606292135`}], 
               Offset[{-1.5, 0}, {5.5, 24.084818606292135`}]}]}, {
             Line[{{6., 29.330072509956977`}, {6., 25.797260271495702`}}], 
             Line[{
               Offset[{1.5, 0}, {6., 29.330072509956977`}], 
               Offset[{-1.5, 0}, {6., 29.330072509956977`}]}], 
             Line[{
               Offset[{1.5, 0}, {6., 25.797260271495702`}], 
               Offset[{-1.5, 0}, {6., 25.797260271495702`}]}]}, {
             Line[{{6.5, 31.31293398351742}, {6.5, 27.506088148110283`}}], 
             Line[{
               Offset[{1.5, 0}, {6.5, 31.31293398351742}], 
               Offset[{-1.5, 0}, {6.5, 31.31293398351742}]}], 
             Line[{
               Offset[{1.5, 0}, {6.5, 27.506088148110283`}], 
               Offset[{-1.5, 0}, {6.5, 27.506088148110283`}]}]}, {
             Line[{{7., 33.30929527460321}, {7., 29.212571513160768`}}], 
             Line[{
               Offset[{1.5, 0}, {7., 33.30929527460321}], 
               Offset[{-1.5, 0}, {7., 33.30929527460321}]}], 
             Line[{
               Offset[{1.5, 0}, {7., 29.212571513160768`}], 
               Offset[{-1.5, 0}, {7., 29.212571513160768`}]}]}, {
             Line[{{7.5, 35.318413416368955`}, {7.5, 30.917637960172218`}}], 
             Line[{
               Offset[{1.5, 0}, {7.5, 35.318413416368955`}], 
               Offset[{-1.5, 0}, {7.5, 35.318413416368955`}]}], 
             Line[{
               Offset[{1.5, 0}, {7.5, 30.917637960172218`}], 
               Offset[{-1.5, 0}, {7.5, 30.917637960172218`}]}]}, {
             Line[{{8., 37.339790845975784`}, {8., 32.62196512816483}}], 
             Line[{
               Offset[{1.5, 0}, {8., 37.339790845975784`}], 
               Offset[{-1.5, 0}, {8., 37.339790845975784`}]}], 
             Line[{
               Offset[{1.5, 0}, {8., 32.62196512816483}], 
               Offset[{-1.5, 0}, {8., 32.62196512816483}]}]}, {
             Line[{{8.5, 39.37310485290243}, {8.5, 34.3260514586421}}], 
             Line[{
               Offset[{1.5, 0}, {8.5, 39.37310485290243}], 
               Offset[{-1.5, 0}, {8.5, 39.37310485290243}]}], 
             Line[{
               Offset[{1.5, 0}, {8.5, 34.3260514586421}], 
               Offset[{-1.5, 0}, {8.5, 34.3260514586421}]}]}, {
             Line[{{9., 41.41815517015759}, {9., 36.030268801261144`}}], 
             Line[{
               Offset[{1.5, 0}, {9., 41.41815517015759}], 
               Offset[{-1.5, 0}, {9., 41.41815517015759}]}], 
             Line[{
               Offset[{1.5, 0}, {9., 36.030268801261144`}], 
               
               Offset[{-1.5, 0}, {9., 
                36.030268801261144`}]}]}}}}, {}}}, {}, {}, {{}, {}}, {{}, \
{}}}, {{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            AbsoluteThickness[1.6], 
            RGBColor[1, 0, 0], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJwVUXtUjHkY/nax3Wgn3W8z85Gkm2p0M+l7ml/ZDF0kCdGXrZNaKixCNOiY
pG1ju6nYSclG2VRSu2eZJV2OWx1q1SrTlpLQLDoUZb/94z3vec7zPu/zvOel
tySGxHxJUVQAV//3lF30JopSMTJ+T7EolY9h89iDGw05LN5mUJ3OR0hT5Zl6
WxVDMcX59qf4sDH06Nu2luOdupQLzvPRWR8Y2X1RxSgDa8+a3OHDcfJAVM3a
fkb5nJ9OGQvwVNYVE33pH25eMLf7sgCSrBMJrWHPGJxUHwlLFGLPtYBeuXCU
kXluuK/ZSOOG/NQ7bV81w64cVfq+mgeLouv6ePGGYekYRYe5Faqv5vWr28YZ
9pWR23fRC3A5dmIqPfkDI9MK+DU53xoDQs22YvYjo7Tx6D8/uBBJPuuq+OJp
RpG775Kd/SLUppioyU4KQnntB93NtpBG/M3WD3wBlY28bdFFO+TJB5KLvWYA
VWt+z1PZI2voxJnGrJlQ9N477KfniHkrMk7nTM0C26FhSCIWI/79Pa+BNRpQ
xxQlXPd3QmBF7LWxZk1QXkUrM9VO6Msq8RaJtFF9NHzsUK4z5iuF218c0wGS
I7emLXbBzPHxnZHvZyP4m7jO5i4XFO7mCf2DdMGLFEQY7RLhzoSs7PWtryFc
4pBWabEEjx63mg0V8KC8cjTs21tLcKbnbX0W0YOi6GqfeaQrRH1t3nmf9EA1
PbFaqOmGMrmkcF3FXGTnlq51LHfDqFQnpS5EH+2K2EKpjzsoXuqKJG0DyHY9
3nt7xB1j+3NfPLtqANaHMXaWe6ByOGzvb4mGULQE6c5y8QSTsDXD1toI7B2V
xptuT1QWWuwIbTeC0FQsbdqzFMOtB0hvujHYHyaNdGgxpooPjghcTaDKTApz
VooxkvHAcLrXBNSH7S+jI7xQuv+ugzjXFIqYsU8mXy2DO2+bqQvMwE4/lJSU
LcPpC/Vq+YQZKP7ow9pgb3QOlhbll5tD5ldUl/OvN4bF/XclwRag/CfqDv3I
oCWnbWSVpiXYFK3jqZbAkZ9Ce3h1lkiyj3cu2Q5o52TUixL4CA6xmT7VBMRd
5pm+sRJA0Wm7UcfMB+cSPIPiH3DYwnzj0zgfhBYcaxD6CtH+51jdcaUP/O76
iOIKhcD3vo2ZehLQcxbs+PxaCGWNySZelASD93utbktp4ObRhKRrEuQMxN6M
VdDIzhjZMV+ToOLj8vlDJTT33w4qU4vgur51WnQpjfagCyffaRMMk0G/qHIO
Z1s23p5DsLSMbdtQSaO6RyTYqk/QH72+PaCB29en5V/FJ3AckvaJ2mko7RJm
e7oSkOlFTE0Hp6/gd5e4EYQbaSmcHnJ8wR8XtD0IDi9viXLoouH0qFn6ZCnB
o3LyzPoJDUpH45dUEByI9Xpp+pyGrA03mlcSZKeaBxSMcH453RcXBxCU5U9W
GY3SUE2yBQWBBPdbGhL1X9MQlon3xa8mmGfj+nb2O86/Rhiiu47AHQahJ8a5
feccA/aGE6wKf1un9Z67R2InVa0n2J1+Zc9Xk5z+Z/WKmgiCDEX2X2kfubxs
4yrzzQRnGxI9ZkzRCO5NWp0WSVDbHnj68DTHGxuHv2IJWp87TH7+zOWbW8mG
bSH4D/OBFjg=
            "]]}, "Charting`Private`Tag$13905#1"]}}, {}, {}}}, {
     Frame -> True, FrameLabel -> {"z (\[Mu]m)", "R (Px)"}, PlotLabel -> 
      "Calibration", 
      PlotRange -> {{0.5, 9.}, {7.598475219968211, 38.72421198570937}}, 
      DisplayFunction -> Identity, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, AxesOrigin -> {0, 0}, 
      PlotRange -> {{0, 9.}, {0, 38.72421198570937}}, PlotRangeClipping -> 
      True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 
      GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> {None, None}, 
      AxesOrigin -> {0, 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 -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{0, 9.}, {0, 38.72421198570937}}, PlotRangeClipping -> 
      True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        RGBColor[0.368417, 0.506779, 0.709798], {
         RGBColor[1, 0, 0], 
         Dashing[{Small, Small}]}}, {"Dataset", "BestFit"}, LegendFunction -> 
       Panel]], {{0.05, 0.7}, {0, 0}}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.89705500658383*^9, 3.897055127312332*^9, 3.8970555469493923`*^9, 
   3.897055661404573*^9, 3.897055739960024*^9, 3.897055833783956*^9, {
   3.897055883868431*^9, 3.8970558901899567`*^9}, {3.8970560202522078`*^9, 
   3.897056048785877*^9}, 3.897056084597682*^9, 3.8970562809545107`*^9, 
   3.897056325755932*^9, 3.8970564008630466`*^9, 3.8970564391482277`*^9, {
   3.897056554217445*^9, 3.897056568830832*^9}, {3.8970567158781633`*^9, 
   3.897056774301648*^9}, {3.8970568792388887`*^9, 3.8970569082412863`*^9}, {
   3.897056943151222*^9, 3.8970569627693*^9}, 3.897057174161252*^9, 
   3.8970573385777283`*^9, 3.897057605439665*^9, 3.897057658610077*^9, 
   3.897074407292027*^9, {3.8970744476525927`*^9, 3.897074473276187*^9}, 
   3.8970745354217787`*^9, 3.8970745901205587`*^9, 3.897076386125597*^9, {
   3.897076438326336*^9, 3.897076447041089*^9}, 3.8970769928604317`*^9, 
   3.89707702628121*^9, {3.8970770589271708`*^9, 3.8970770975548077`*^9}, {
   3.8970771329254627`*^9, 3.897077164653067*^9}, 3.8970773116652203`*^9, 
   3.897080762184211*^9, 3.8970808276912203`*^9, 3.897080874885853*^9, 
   3.8970810539255657`*^9, {3.8970810868448257`*^9, 3.897081108682272*^9}, 
   3.897081860516262*^9, 3.897140493165399*^9, {3.8971409494605227`*^9, 
   3.8971409665330877`*^9}, 3.8974122554362173`*^9, {3.8974148633786697`*^9, 
   3.897414926742085*^9}, 3.897414969661158*^9, 3.8974150257106333`*^9, {
   3.897415064115656*^9, 3.8974150851960487`*^9}, 3.8974151154141397`*^9, 
   3.89741515870564*^9, 3.897418066251342*^9, 3.897418536227195*^9, 
   3.8974185778091307`*^9, 3.897418705582387*^9, 3.897418901235386*^9, 
   3.8974189510157757`*^9, {3.897419320678224*^9, 3.897419342139827*^9}, 
   3.8974194622822866`*^9, 3.897419596303783*^9, 3.89741966017568*^9, 
   3.897589768866376*^9, 3.897589869642187*^9, 3.897591615851739*^9, 
   3.8975917229307327`*^9, 3.8975919444175367`*^9, 3.8975921485038033`*^9, {
   3.89759225683256*^9, 3.897592284276379*^9}, 3.897739536676848*^9, 
   3.897740010145081*^9, 3.897740376718871*^9, 3.897740480979931*^9, 
   3.897745476215671*^9, 3.897766965057457*^9, 3.898091740586351*^9, {
   3.8980933765082607`*^9, 3.898093403758987*^9}, 3.8981089576550837`*^9, 
   3.898114862175593*^9, 3.8981154972691402`*^9, 3.8981162495453043`*^9, 
   3.898118132411956*^9, 3.898130474660672*^9, 3.898132068497313*^9, {
   3.898193056595799*^9, 3.898193085266958*^9}, 3.898193457227133*^9, 
   3.898193744102583*^9, 3.8981940018601913`*^9, 3.898356834423066*^9, 
   3.89853668236205*^9, {3.898536732273*^9, 
   3.898536748202641*^9}},ExpressionUUID->"c53e5de4-ebdb-4d42-809d-\
ddc2a42d1300"],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAQA2IQDQEP7Bnu8IUfjpm1H8L/YM+g86xyZnwvlP/DnuEH
/+JDniVQPoMDQ8Hq7Us2pthDuCwODH9qgnhONED5HA4MGt/UH9/vgPJ5HBg8
viV/WtwL5Qs4MFwQKK1x6ofyhRwYZkjsE3kBkxdxYDBIYdu0vxPKF3NgkGhU
P/CpCcqXcGBwWMSQFFQM5Us5MDDsXWGS7g91nwxQf3Xx3956KF8OaF96U9+S
fihfwYFhR06s3bYZUL6iA8OE1uUh9guhfCUHhjlMN9b1LttfpLQp28vnrz0s
pC50XHjRvVLSgQEFPLBH5SvB5QHlkFNn
    "], {{{
       {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[None], 
        GraphicsGroupBox[{PolygonBox[{{19, 21, 1, 2, 3}}], 
          PolygonBox[{{18, 22, 20, 13, 14, 15, 16, 17}}]}]}}, {
       {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[None], 
        GraphicsGroupBox[{
          PolygonBox[{{19, 20, 12, 11, 10, 9, 8, 7, 6, 5, 
           4}}]}]}}, {}, {}}, {{}, {}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.019444444444444445`], AbsoluteThickness[1.6], 
        LineBox[{1, 2, 3, 19, 4, 5, 6, 7, 8, 9, 10, 11, 12, 20, 13, 14, 15, 
         16, 17, 18}]}}}}], {}, {}, {{}, {}}, {{}, {}}},
  AspectRatio->NCache[
    Rational[1, 5], 0.2],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox["\"\"", TraditionalForm], None}, {
     FormBox["\"z (\[Mu]m)\"", TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox["\"Residuals\"", TraditionalForm],
  PlotRange->{{0, 9.}, {-0.04404970537989783, 0.015263531038819167`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.89705500658383*^9, 3.897055127312332*^9, 3.8970555469493923`*^9, 
   3.897055661404573*^9, 3.897055739960024*^9, 3.897055833783956*^9, {
   3.897055883868431*^9, 3.8970558901899567`*^9}, {3.8970560202522078`*^9, 
   3.897056048785877*^9}, 3.897056084597682*^9, 3.8970562809545107`*^9, 
   3.897056325755932*^9, 3.8970564008630466`*^9, 3.8970564391482277`*^9, {
   3.897056554217445*^9, 3.897056568830832*^9}, {3.8970567158781633`*^9, 
   3.897056774301648*^9}, {3.8970568792388887`*^9, 3.8970569082412863`*^9}, {
   3.897056943151222*^9, 3.8970569627693*^9}, 3.897057174161252*^9, 
   3.8970573385777283`*^9, 3.897057605439665*^9, 3.897057658610077*^9, 
   3.897074407292027*^9, {3.8970744476525927`*^9, 3.897074473276187*^9}, 
   3.8970745354217787`*^9, 3.8970745901205587`*^9, 3.897076386125597*^9, {
   3.897076438326336*^9, 3.897076447041089*^9}, 3.8970769928604317`*^9, 
   3.89707702628121*^9, {3.8970770589271708`*^9, 3.8970770975548077`*^9}, {
   3.8970771329254627`*^9, 3.897077164653067*^9}, 3.8970773116652203`*^9, 
   3.897080762184211*^9, 3.8970808276912203`*^9, 3.897080874885853*^9, 
   3.8970810539255657`*^9, {3.8970810868448257`*^9, 3.897081108682272*^9}, 
   3.897081860516262*^9, 3.897140493165399*^9, {3.8971409494605227`*^9, 
   3.8971409665330877`*^9}, 3.8974122554362173`*^9, {3.8974148633786697`*^9, 
   3.897414926742085*^9}, 3.897414969661158*^9, 3.8974150257106333`*^9, {
   3.897415064115656*^9, 3.8974150851960487`*^9}, 3.8974151154141397`*^9, 
   3.89741515870564*^9, 3.897418066251342*^9, 3.897418536227195*^9, 
   3.8974185778091307`*^9, 3.897418705582387*^9, 3.897418901235386*^9, 
   3.8974189510157757`*^9, {3.897419320678224*^9, 3.897419342139827*^9}, 
   3.8974194622822866`*^9, 3.897419596303783*^9, 3.89741966017568*^9, 
   3.897589768866376*^9, 3.897589869642187*^9, 3.897591615851739*^9, 
   3.8975917229307327`*^9, 3.8975919444175367`*^9, 3.8975921485038033`*^9, {
   3.89759225683256*^9, 3.897592284276379*^9}, 3.897739536676848*^9, 
   3.897740010145081*^9, 3.897740376718871*^9, 3.897740480979931*^9, 
   3.897745476215671*^9, 3.897766965057457*^9, 3.898091740586351*^9, {
   3.8980933765082607`*^9, 3.898093403758987*^9}, 3.8981089576550837`*^9, 
   3.898114862175593*^9, 3.8981154972691402`*^9, 3.8981162495453043`*^9, 
   3.898118132411956*^9, 3.898130474660672*^9, 3.898132068497313*^9, {
   3.898193056595799*^9, 3.898193085266958*^9}, 3.898193457227133*^9, 
   3.898193744102583*^9, 3.8981940018601913`*^9, 3.898356834423066*^9, 
   3.89853668236205*^9, {3.898536732273*^9, 
   3.898536748293007*^9}},ExpressionUUID->"50ab5459-9bbd-4461-bc37-\
b2d1cb3b08da"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Export", " ", "Numerical", " ", "Results"}], " ", "&"}], " ", 
    "Plots"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<ResultsNonLinear/CalibrationPlot.pdf\>\"", ",", "plot"}], 
     "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<ResultsNonLinear/Residuals.pdf\>\"", ",", "ResPlot"}], 
     "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<ResultsNonLinear/R2.dat\>\"", ",", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{
        RowBox[{"zRFit", "[", "\"\<RSquared\>\"", "]"}], ",", "4"}], "]"}]}], 
     "]"}], ";", 
    RowBox[{"Export", "[", 
     RowBox[{"\"\<ResultsNonLinear/DoF.dat\>\"", ",", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{"\[Nu]", ",", "4"}], "]"}]}], "]"}], ";", 
    RowBox[{"Export", "[", 
     RowBox[{"\"\<ResultsNonLinear/Chi2.dat\>\"", ",", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{"\[Chi]2\[Nu]", ",", "4"}], "]"}]}], "]"}], ";", 
    RowBox[{"Export", "[", 
     RowBox[{"\"\<ResultsNonLinear/P.dat\>\"", ",", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{"P", ",", "4"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<ResultsNonLinear/D.dat\>\"", ",", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{"d", ",", "4"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<ResultsNonLinear/a1.dat\>\"", ",", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{
        RowBox[{"a1", "/.", 
         RowBox[{"zRFit", "[", "\"\<BestFitParameters\>\"", "]"}]}], ",", 
        "4"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<ResultsNonLinear/a2.dat\>\"", ",", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{
        RowBox[{"a2", "/.", 
         RowBox[{"zRFit", "[", "\"\<BestFitParameters\>\"", "]"}]}], ",", 
        "4"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<ResultsNonLinear/a3.dat\>\"", ",", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{
        RowBox[{"a3", "/.", 
         RowBox[{"zRFit", "[", "\"\<BestFitParameters\>\"", "]"}]}], ",", 
        "4"}], "]"}]}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.897074571168077*^9, 3.89707458129589*^9}, {
  3.89707461442836*^9, 3.8970746213348217`*^9}, {3.8970772288763227`*^9, 
  3.897077253944064*^9}, {3.897419613965357*^9, 3.897419652071887*^9}, {
  3.898114883131811*^9, 3.898114891709235*^9}, {3.898356797378039*^9, 
  3.898356802362857*^9}},ExpressionUUID->"1ee20d34-d5cb-4c62-9db6-\
1cdf3ec9a974"]
}, Open  ]]
},
WindowSize->{993, 528},
WindowMargins->{{0, Automatic}, {Automatic, 37}},
FrontEndVersion->"11.1 for Linux x86 (64-bit) (March 13, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1934, 43, 245, "Input", "ExpressionUUID" -> \
"af312873-6fe2-4d95-9ad2-41bde37bc369"],
Cell[2517, 67, 601, 9, 35, "Output", "ExpressionUUID" -> \
"3fbe67f4-ad5f-48d8-9da6-d1e90c587985"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3155, 81, 213, 4, 32, "Subsubsection", "ExpressionUUID" -> \
"efd3c296-3988-45aa-b4ab-54c4b4965a9b"],
Cell[3371, 87, 1649, 39, 200, "Input", "ExpressionUUID" -> \
"f9d53e53-6f1f-4f33-8e40-554ffe7c33de"],
Cell[5023, 128, 443, 12, 58, "Input", "ExpressionUUID" -> \
"a5460eb8-70c2-4008-ab41-86fdbb1e0ee9"],
Cell[5469, 142, 535, 15, 58, "Input", "ExpressionUUID" -> \
"f11653a3-fbd1-46c9-9980-20593737d40a"],
Cell[6007, 159, 1462, 40, 224, "Input", "ExpressionUUID" -> \
"f38af264-9ea4-49b7-874f-8d20fee69a5a"],
Cell[7472, 201, 2694, 56, 107, "Input", "ExpressionUUID" -> \
"d952e387-8d70-457a-9300-cda09be1247d"],
Cell[10169, 259, 681, 20, 58, "Input", "ExpressionUUID" -> \
"21d3ddde-1d0d-4f0c-b865-b75bb6255adb"],
Cell[10853, 281, 6416, 137, 161, "Input", "ExpressionUUID" -> \
"118d8910-d13d-4b9b-9708-a016b61b0a78"],
Cell[17272, 420, 1911, 49, 215, "Input", "ExpressionUUID" -> \
"badee4e4-887b-4eca-bed6-3158d1555b71"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19220, 474, 163, 3, 32, "Subsubsection", "ExpressionUUID" -> \
"25458495-adf9-409c-ad2a-d426bccebb5c"],
Cell[CellGroupData[{
Cell[19408, 481, 7713, 167, 676, "Input", "ExpressionUUID" -> \
"025c5697-27a1-47b0-8c63-ea50df8730d1"],
Cell[CellGroupData[{
Cell[27146, 652, 1998, 29, 25, "Print", "ExpressionUUID" -> \
"b20c70b3-3908-4674-8d32-635b4122f42e"],
Cell[29147, 683, 2093, 32, 25, "Print", "ExpressionUUID" -> \
"55226534-7ad5-40bf-80c3-7b93866e3146"],
Cell[31243, 717, 2239, 35, 25, "Print", "ExpressionUUID" -> \
"fe7dff51-8645-48bf-8e36-092f4dbd0275"],
Cell[33485, 754, 2126, 33, 25, "Print", "ExpressionUUID" -> \
"289f4514-3fe6-4f7e-b871-b63bc7cf6770"],
Cell[35614, 789, 2303, 37, 25, "Print", "ExpressionUUID" -> \
"f3c2f382-4f92-4104-b533-a2688a3c2f92"],
Cell[37920, 828, 2321, 37, 25, "Print", "ExpressionUUID" -> \
"abac2074-fb4a-44ba-875e-55998b805b77"],
Cell[40244, 867, 2156, 33, 25, "Print", "ExpressionUUID" -> \
"c1b66cde-45d7-41ad-a8d6-cdbc91ebc0e1"],
Cell[42403, 902, 2972, 51, 89, "Print", "ExpressionUUID" -> \
"28cb2d43-3fed-402a-aa6e-eb5920d139a8"],
Cell[45378, 955, 1998, 29, 25, "Print", "ExpressionUUID" -> \
"80e7ea02-d72a-4f82-a6ef-511d354387d7"]
}, Open  ]],
Cell[47391, 987, 32436, 638, 270, "Output", "ExpressionUUID" -> \
"c53e5de4-ebdb-4d42-809d-ddc2a42d1300"],
Cell[79830, 1627, 4787, 90, 161, "Output", "ExpressionUUID" -> \
"50ab5459-9bbd-4461-bc37-b2d1cb3b08da"]
}, Open  ]],
Cell[84632, 1720, 2827, 71, 274, "Input", "ExpressionUUID" -> \
"1ee20d34-d5cb-4c62-9db6-1cdf3ec9a974"]
}, Open  ]]
}
]
*)