calibrationV8-um.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[    122364,       2575]
NotebookOptionsPosition[    119170,       2497]
NotebookOutlinePosition[    119504,       2512]
CellTagsIndexPosition[    119461,       2509]
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[{"\"\<Resultsum\>\"", ",", 
    RowBox[{"DeleteContents", "\[Rule]", "True"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CreateDirectory", "[", "\"\<Resultsum\>\"", "]"}], ";"}], 
  "\[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.898192398177083*^9, 3.8981924211803226`*^9}, {3.898193920845455*^9, 
   3.8981939632204103`*^9}, {3.898194064191955*^9, 3.898194093089072*^9}, {
   3.898194361221929*^9, 3.898194361883153*^9}, {3.8981944565481977`*^9, 
   3.898194478722657*^9}, {3.898263917303484*^9, 
   3.898263925643898*^9}},ExpressionUUID->"f10e30c1-3602-4466-bed7-\
66b87cbfd081"],

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.898192425545561*^9, 
   3.898192481692215*^9, 3.898192616289742*^9, 3.898192735339658*^9, 
   3.898193967394415*^9, {3.8981940698040743`*^9, 3.898194095776335*^9}, 
   3.898194287540264*^9, 3.898194365460384*^9, {3.898194459419936*^9, 
   3.898194482538764*^9}, 3.898261359365616*^9, 3.898263754973065*^9, 
   3.898263929762796*^9, 3.898265019424992*^9, 3.898270861884438*^9, 
   3.898270925531369*^9, 3.898272424692512*^9, 
   3.898272637814836*^9},ExpressionUUID->"51348760-4ccf-45f6-ab15-\
8893c5eaffde"]
}, 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", "=", "30.8437"}], " ", 
    RowBox[{"(*", "Px", "*)"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Alpha]2", "=", 
     RowBox[{"1", "/", "145.2783"}]}], " ", 
    RowBox[{"(*", 
     SuperscriptBox["\[Mu]m", 
      RowBox[{"-", "1"}]], "*)"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Alpha]3", "=", 
     RowBox[{"-", "31.0573"}]}], 
    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.898192662140564*^9, 3.8981926969356737`*^9}, {3.898193512765726*^9, 
   3.898193519252286*^9}, {3.8981935910968637`*^9, 3.8981936088816843`*^9}, {
   3.898261308491823*^9, 3.8982613086465693`*^9}, {3.898264295877437*^9, 
   3.898264298319017*^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.898192611645083*^9, 
  3.898192662146378*^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[{"Px", " ", 
      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}, 
   3.898192662148677*^9, 3.8981927061640463`*^9, {3.898261941050212*^9, 
   3.898261958347597*^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.898192611647587*^9, 
  3.898192662151063*^9},ExpressionUUID->"21d3ddde-1d0d-4f0c-b865-\
b75bb6255adb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Calibration", " ", "Fits"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zRFits", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"LinearModelFit", "[", 
        RowBox[{
         RowBox[{"zRList", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"{", "x", "}"}], ",", "x"}], "]"}], ",", 
       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[{"LinearModelFit", "[", 
      RowBox[{"zRMeanList", ",", 
       RowBox[{"{", "x", "}"}], ",", "x", ",", 
       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}, {3.8981310451656017`*^9, 
   3.8981310738646*^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[{"None", ",", "\"\<R (\[Mu]m)\>\""}], "}"}]}], ",", 
        "\[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"}]}], "}"}]}], "}"}]}]}], "]"}], 
      ",", "\[IndentingNewLine]", 
      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", "[", "\"\<StandardizedResiduals\>\"", "]"}]}], 
        "}"}], "]"}], ",", " ", "\[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)\>\"", ",", "\"\<Residuals\>\""}], "}"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Min", "[", 
            RowBox[{"First", "/@", "zRMeanList"}], "]"}], ",", 
           RowBox[{"Max", "[", 
            RowBox[{"First", "/@", "zRMeanList"}], "]"}]}], "}"}], ",", 
         "Automatic"}], "}"}]}]}], "]"}]}]}]}]], "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.898131155988915*^9, 3.8981311662011127`*^9}, 
   3.8981312083966503`*^9, {3.8981316409699173`*^9, 3.898131646304962*^9}, {
   3.898131727713625*^9, 3.89813177331034*^9}, {3.89813187263575*^9, 
   3.898131878725471*^9}, {3.898131931161325*^9, 3.898131934120285*^9}, {
   3.898192455658874*^9, 3.8981924615531187`*^9}, {3.8981925032053547`*^9, 
   3.898192513742675*^9}, 3.898192565193616*^9, 3.898192662161562*^9, 
   3.898192718450633*^9, {3.898261391318375*^9, 3.898261398434943*^9}, {
   3.898261490194764*^9, 3.898261498299573*^9}, {3.898261976930544*^9, 
   3.8982620351303*^9}, {3.898262260408361*^9, 3.898262362623143*^9}, {
   3.898262419803975*^9, 3.898262559657558*^9}, {3.898262824746579*^9, 
   3.898262901321473*^9}, {3.8982629624252453`*^9, 3.898262970873177*^9}, 
   3.8982630863974257`*^9, {3.898263169864142*^9, 3.898263183486265*^9}, {
   3.898263294798265*^9, 3.898263309565727*^9}, {3.898263388319229*^9, 
   3.898263409893342*^9}, {3.898263441641746*^9, 3.898263550712381*^9}, {
   3.898263585166692*^9, 3.898263642156149*^9}, 3.89826369371316*^9, {
   3.8982723928317003`*^9, 3.898272398532227*^9}, {3.898272580089971*^9, 
   3.898272581374444*^9}, {3.898272626340077*^9, 3.8982726286608763`*^9}, {
   3.8982727072477837`*^9, 3.8982727081379957`*^9}, {3.898354773495696*^9, 
   3.8983548177958717`*^9}, {3.898354852366912*^9, 3.898354867336375*^9}, {
   3.8983549047225037`*^9, 
   3.8983549054422083`*^9}},ExpressionUUID->"025c5697-27a1-47b0-8c63-\
ea50df8730d1"],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.898192776284973*^9, 3.89819396866855*^9, {3.8981940702729197`*^9, 
   3.8981940973118477`*^9}, 3.898194288851715*^9, 3.8981943666606092`*^9, {
   3.89819446080826*^9, 3.898194483550201*^9}, 3.89826136135879*^9, 
   3.898261399245029*^9, 3.8982615259382353`*^9, {3.8982620016825457`*^9, 
   3.898262036969986*^9}, {3.898262307216998*^9, 3.898262328842853*^9}, 
   3.898262363565793*^9, 3.898262440162705*^9, {3.8982624726694803`*^9, 
   3.898262524230679*^9}, 3.898262560052281*^9, {3.89826288118497*^9, 
   3.89826290170049*^9}, 3.8982629714233217`*^9, 3.8982630867932043`*^9, 
   3.898263186178502*^9, {3.898263295320239*^9, 3.898263310315226*^9}, 
   3.89826341020076*^9, 3.898263501167222*^9, {3.898263589072443*^9, 
   3.898263643397456*^9}, 3.8982636949189367`*^9, 3.898263759169777*^9, 
   3.8982639309179792`*^9, 3.8982650203654423`*^9, 3.898270865569737*^9, 
   3.898270926507717*^9, {3.898272399540291*^9, 3.8982724259205627`*^9}, 
   3.898272583126238*^9, {3.898272628997323*^9, 3.898272639092102*^9}, 
   3.898272708561779*^9, 3.898354869044565*^9, 
   3.898354909419202*^9},ExpressionUUID->"dea66a17-baef-4e64-b8ed-\
09079189f9bf"],

Cell[BoxData[
 StyleBox["\<\"Statistical Parameters\"\>",
  StripOnInput->False,
  FontVariations->{"Underline"->True}]], "Print",
 CellChangeTimes->{
  3.898192776284973*^9, 3.89819396866855*^9, {3.8981940702729197`*^9, 
   3.8981940973118477`*^9}, 3.898194288851715*^9, 3.8981943666606092`*^9, {
   3.89819446080826*^9, 3.898194483550201*^9}, 3.89826136135879*^9, 
   3.898261399245029*^9, 3.8982615259382353`*^9, {3.8982620016825457`*^9, 
   3.898262036969986*^9}, {3.898262307216998*^9, 3.898262328842853*^9}, 
   3.898262363565793*^9, 3.898262440162705*^9, {3.8982624726694803`*^9, 
   3.898262524230679*^9}, 3.898262560052281*^9, {3.89826288118497*^9, 
   3.89826290170049*^9}, 3.8982629714233217`*^9, 3.8982630867932043`*^9, 
   3.898263186178502*^9, {3.898263295320239*^9, 3.898263310315226*^9}, 
   3.89826341020076*^9, 3.898263501167222*^9, {3.898263589072443*^9, 
   3.898263643397456*^9}, 3.8982636949189367`*^9, 3.898263759169777*^9, 
   3.8982639309179792`*^9, 3.8982650203654423`*^9, 3.898270865569737*^9, 
   3.898270926507717*^9, {3.898272399540291*^9, 3.8982724259205627`*^9}, 
   3.898272583126238*^9, {3.898272628997323*^9, 3.898272639092102*^9}, 
   3.898272708561779*^9, 3.898354869044565*^9, 
   3.898354909420781*^9},ExpressionUUID->"03369dd5-d01c-462b-be52-\
f3a2a66292ba"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \"\>", 
   "\[InvisibleSpace]", "1.`4."}],
  SequenceForm["\!\(\*SuperscriptBox[\(R\), \(2\)]\) = ", 1.`4.],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.898192776284973*^9, 3.89819396866855*^9, {3.8981940702729197`*^9, 
   3.8981940973118477`*^9}, 3.898194288851715*^9, 3.8981943666606092`*^9, {
   3.89819446080826*^9, 3.898194483550201*^9}, 3.89826136135879*^9, 
   3.898261399245029*^9, 3.8982615259382353`*^9, {3.8982620016825457`*^9, 
   3.898262036969986*^9}, {3.898262307216998*^9, 3.898262328842853*^9}, 
   3.898262363565793*^9, 3.898262440162705*^9, {3.8982624726694803`*^9, 
   3.898262524230679*^9}, 3.898262560052281*^9, {3.89826288118497*^9, 
   3.89826290170049*^9}, 3.8982629714233217`*^9, 3.8982630867932043`*^9, 
   3.898263186178502*^9, {3.898263295320239*^9, 3.898263310315226*^9}, 
   3.89826341020076*^9, 3.898263501167222*^9, {3.898263589072443*^9, 
   3.898263643397456*^9}, 3.8982636949189367`*^9, 3.898263759169777*^9, 
   3.8982639309179792`*^9, 3.8982650203654423`*^9, 3.898270865569737*^9, 
   3.898270926507717*^9, {3.898272399540291*^9, 3.8982724259205627`*^9}, 
   3.898272583126238*^9, {3.898272628997323*^9, 3.898272639092102*^9}, 
   3.898272708561779*^9, 3.898354869044565*^9, 
   3.898354909422443*^9},ExpressionUUID->"e0c7176c-3245-4da5-af4a-\
14f518bc8114"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[Nu] = \"\>", "\[InvisibleSpace]", "16.`4."}],
  SequenceForm["\[Nu] = ", 16.`4.],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.898192776284973*^9, 3.89819396866855*^9, {3.8981940702729197`*^9, 
   3.8981940973118477`*^9}, 3.898194288851715*^9, 3.8981943666606092`*^9, {
   3.89819446080826*^9, 3.898194483550201*^9}, 3.89826136135879*^9, 
   3.898261399245029*^9, 3.8982615259382353`*^9, {3.8982620016825457`*^9, 
   3.898262036969986*^9}, {3.898262307216998*^9, 3.898262328842853*^9}, 
   3.898262363565793*^9, 3.898262440162705*^9, {3.8982624726694803`*^9, 
   3.898262524230679*^9}, 3.898262560052281*^9, {3.89826288118497*^9, 
   3.89826290170049*^9}, 3.8982629714233217`*^9, 3.8982630867932043`*^9, 
   3.898263186178502*^9, {3.898263295320239*^9, 3.898263310315226*^9}, 
   3.89826341020076*^9, 3.898263501167222*^9, {3.898263589072443*^9, 
   3.898263643397456*^9}, 3.8982636949189367`*^9, 3.898263759169777*^9, 
   3.8982639309179792`*^9, 3.8982650203654423`*^9, 3.898270865569737*^9, 
   3.898270926507717*^9, {3.898272399540291*^9, 3.8982724259205627`*^9}, 
   3.898272583126238*^9, {3.898272628997323*^9, 3.898272639092102*^9}, 
   3.898272708561779*^9, 3.898354869044565*^9, 
   3.898354909424494*^9},ExpressionUUID->"b5e111fd-b57a-4c8a-82d5-\
f6737a82bb69"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*SuperscriptBox[SubscriptBox[\\(\[Chi]\\), \
\\(\[Nu]\\)], \\(2\\)]\\) = \"\>", "\[InvisibleSpace]", 
   "1.1029855487044706308`4."}],
  SequenceForm[
  "\!\(\*SuperscriptBox[SubscriptBox[\(\[Chi]\), \(\[Nu]\)], \(2\)]\) = ", 
   1.1029855487044706308`4.],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.898192776284973*^9, 3.89819396866855*^9, {3.8981940702729197`*^9, 
   3.8981940973118477`*^9}, 3.898194288851715*^9, 3.8981943666606092`*^9, {
   3.89819446080826*^9, 3.898194483550201*^9}, 3.89826136135879*^9, 
   3.898261399245029*^9, 3.8982615259382353`*^9, {3.8982620016825457`*^9, 
   3.898262036969986*^9}, {3.898262307216998*^9, 3.898262328842853*^9}, 
   3.898262363565793*^9, 3.898262440162705*^9, {3.8982624726694803`*^9, 
   3.898262524230679*^9}, 3.898262560052281*^9, {3.89826288118497*^9, 
   3.89826290170049*^9}, 3.8982629714233217`*^9, 3.8982630867932043`*^9, 
   3.898263186178502*^9, {3.898263295320239*^9, 3.898263310315226*^9}, 
   3.89826341020076*^9, 3.898263501167222*^9, {3.898263589072443*^9, 
   3.898263643397456*^9}, 3.8982636949189367`*^9, 3.898263759169777*^9, 
   3.8982639309179792`*^9, 3.8982650203654423`*^9, 3.898270865569737*^9, 
   3.898270926507717*^9, {3.898272399540291*^9, 3.8982724259205627`*^9}, 
   3.898272583126238*^9, {3.898272628997323*^9, 3.898272639092102*^9}, 
   3.898272708561779*^9, 3.898354869044565*^9, 
   3.898354909425992*^9},ExpressionUUID->"f48ae3dd-19e3-4b6c-8fb1-\
16cae16405d0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"P(\\!\\(\\*SuperscriptBox[SubscriptBox[\\(\[Chi]\\), \
\\(\[Nu]\\)], \\(2\\)]\\);\[Nu]) = \"\>", "\[InvisibleSpace]", 
   "0.3449222973383543334`4."}],
  SequenceForm[
  "P(\!\(\*SuperscriptBox[SubscriptBox[\(\[Chi]\), \(\[Nu]\)], \
\(2\)]\);\[Nu]) = ", 0.3449222973383543334`4.],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.898192776284973*^9, 3.89819396866855*^9, {3.8981940702729197`*^9, 
   3.8981940973118477`*^9}, 3.898194288851715*^9, 3.8981943666606092`*^9, {
   3.89819446080826*^9, 3.898194483550201*^9}, 3.89826136135879*^9, 
   3.898261399245029*^9, 3.8982615259382353`*^9, {3.8982620016825457`*^9, 
   3.898262036969986*^9}, {3.898262307216998*^9, 3.898262328842853*^9}, 
   3.898262363565793*^9, 3.898262440162705*^9, {3.8982624726694803`*^9, 
   3.898262524230679*^9}, 3.898262560052281*^9, {3.89826288118497*^9, 
   3.89826290170049*^9}, 3.8982629714233217`*^9, 3.8982630867932043`*^9, 
   3.898263186178502*^9, {3.898263295320239*^9, 3.898263310315226*^9}, 
   3.89826341020076*^9, 3.898263501167222*^9, {3.898263589072443*^9, 
   3.898263643397456*^9}, 3.8982636949189367`*^9, 3.898263759169777*^9, 
   3.8982639309179792`*^9, 3.8982650203654423`*^9, 3.898270865569737*^9, 
   3.898270926507717*^9, {3.898272399540291*^9, 3.8982724259205627`*^9}, 
   3.898272583126238*^9, {3.898272628997323*^9, 3.898272639092102*^9}, 
   3.898272708561779*^9, 3.898354869044565*^9, 
   3.8983549094277363`*^9},ExpressionUUID->"5444a83f-e581-4bb6-9a12-\
4f05461547ed"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"D = \"\>", "\[InvisibleSpace]", "0.9289760604537729005`4."}],
  SequenceForm["D = ", 0.9289760604537729005`4.],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.898192776284973*^9, 3.89819396866855*^9, {3.8981940702729197`*^9, 
   3.8981940973118477`*^9}, 3.898194288851715*^9, 3.8981943666606092`*^9, {
   3.89819446080826*^9, 3.898194483550201*^9}, 3.89826136135879*^9, 
   3.898261399245029*^9, 3.8982615259382353`*^9, {3.8982620016825457`*^9, 
   3.898262036969986*^9}, {3.898262307216998*^9, 3.898262328842853*^9}, 
   3.898262363565793*^9, 3.898262440162705*^9, {3.8982624726694803`*^9, 
   3.898262524230679*^9}, 3.898262560052281*^9, {3.89826288118497*^9, 
   3.89826290170049*^9}, 3.8982629714233217`*^9, 3.8982630867932043`*^9, 
   3.898263186178502*^9, {3.898263295320239*^9, 3.898263310315226*^9}, 
   3.89826341020076*^9, 3.898263501167222*^9, {3.898263589072443*^9, 
   3.898263643397456*^9}, 3.8982636949189367`*^9, 3.898263759169777*^9, 
   3.8982639309179792`*^9, 3.8982650203654423`*^9, 3.898270865569737*^9, 
   3.898270926507717*^9, {3.898272399540291*^9, 3.8982724259205627`*^9}, 
   3.898272583126238*^9, {3.898272628997323*^9, 3.898272639092102*^9}, 
   3.898272708561779*^9, 3.898354869044565*^9, 
   3.8983549094294577`*^9},ExpressionUUID->"4d0b31cc-9a7f-495e-9740-\
97e07d2cff2e"],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"1", "0.7197032275414714`", "4.486679798133517`*^-16", 
      "1.6040886800989718`*^15", "4.389393261922981`*^-235"},
     {"x", "0.4682995636768325`", "1.0329262806176224`*^-16", 
      "4.533717192255191`*^15", "2.6472055429521275`*^-242"}
    },
    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.898192776284973*^9, 3.89819396866855*^9, {3.8981940702729197`*^9, 
   3.8981940973118477`*^9}, 3.898194288851715*^9, 3.8981943666606092`*^9, {
   3.89819446080826*^9, 3.898194483550201*^9}, 3.89826136135879*^9, 
   3.898261399245029*^9, 3.8982615259382353`*^9, {3.8982620016825457`*^9, 
   3.898262036969986*^9}, {3.898262307216998*^9, 3.898262328842853*^9}, 
   3.898262363565793*^9, 3.898262440162705*^9, {3.8982624726694803`*^9, 
   3.898262524230679*^9}, 3.898262560052281*^9, {3.89826288118497*^9, 
   3.89826290170049*^9}, 3.8982629714233217`*^9, 3.8982630867932043`*^9, 
   3.898263186178502*^9, {3.898263295320239*^9, 3.898263310315226*^9}, 
   3.89826341020076*^9, 3.898263501167222*^9, {3.898263589072443*^9, 
   3.898263643397456*^9}, 3.8982636949189367`*^9, 3.898263759169777*^9, 
   3.8982639309179792`*^9, 3.8982650203654423`*^9, 3.898270865569737*^9, 
   3.898270926507717*^9, {3.898272399540291*^9, 3.8982724259205627`*^9}, 
   3.898272583126238*^9, {3.898272628997323*^9, 3.898272639092102*^9}, 
   3.898272708561779*^9, 3.898354869044565*^9, 
   3.898354909431162*^9},ExpressionUUID->"82ca3168-1a5a-4bde-af5b-\
2d13c18e12c5"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.898192776284973*^9, 3.89819396866855*^9, {3.8981940702729197`*^9, 
   3.8981940973118477`*^9}, 3.898194288851715*^9, 3.8981943666606092`*^9, {
   3.89819446080826*^9, 3.898194483550201*^9}, 3.89826136135879*^9, 
   3.898261399245029*^9, 3.8982615259382353`*^9, {3.8982620016825457`*^9, 
   3.898262036969986*^9}, {3.898262307216998*^9, 3.898262328842853*^9}, 
   3.898262363565793*^9, 3.898262440162705*^9, {3.8982624726694803`*^9, 
   3.898262524230679*^9}, 3.898262560052281*^9, {3.89826288118497*^9, 
   3.89826290170049*^9}, 3.8982629714233217`*^9, 3.8982630867932043`*^9, 
   3.898263186178502*^9, {3.898263295320239*^9, 3.898263310315226*^9}, 
   3.89826341020076*^9, 3.898263501167222*^9, {3.898263589072443*^9, 
   3.898263643397456*^9}, 3.8982636949189367`*^9, 3.898263759169777*^9, 
   3.8982639309179792`*^9, 3.8982650203654423`*^9, 3.898270865569737*^9, 
   3.898270926507717*^9, {3.898272399540291*^9, 3.8982724259205627`*^9}, 
   3.898272583126238*^9, {3.898272628997323*^9, 3.898272639092102*^9}, 
   3.898272708561779*^9, 3.898354869044565*^9, 
   3.898354909433422*^9},ExpressionUUID->"0e9df8b8-d164-4c72-b89c-\
5b2784a4cbdc"]
}, Open  ]],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{}, {{{}, {
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.012833333333333334`], AbsoluteThickness[1.6], 
          PointBox[{{0.5, 0.9538530093798879}, {1., 1.1880027912183044`}, {
           1.5, 1.4221525730567206`}, {2., 1.656302354895137}, {2.5, 
           1.8904521367335534`}, {3., 2.1246019185719702`}, {3.5, 
           2.358751700410386}, {4., 2.5929014822488026`}, {4.5, 
           2.827051264087219}, {5., 3.061201045925635}, {5.5, 
           3.2953508277640498`}, {6., 3.5295006096024655`}, {6.5, 
           3.7636503914408834`}, {7., 3.997800173279302}, {7.5, 
           4.231949955117715}, {8., 4.4660997369561315`}, {8.5, 
           4.700249518794549}, {9., 
           4.934399300632964}}], {{
            LineBox[{{0.5, 1.1279398177536535`}, {0.5, 0.7797662010061224}}], 
            LineBox[{
             Offset[{1.5, 0}, {0.5, 1.1279398177536535`}], 
              Offset[{-1.5, 0}, {0.5, 1.1279398177536535`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {0.5, 0.7797662010061224}], 
              Offset[{-1.5, 0}, {0.5, 0.7797662010061224}]}]}, {
            LineBox[{{1., 1.3528218020279377`}, {1., 1.0231837804086712`}}], 
            LineBox[{
             Offset[{1.5, 0}, {1., 1.3528218020279377`}], 
              Offset[{-1.5, 0}, {1., 1.3528218020279377`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {1., 1.0231837804086712`}], 
              Offset[{-1.5, 0}, {1., 1.0231837804086712`}]}]}, {
            LineBox[{{1.5, 1.5802480560463168`}, {1.5, 1.2640570900671244`}}],
             LineBox[{
             Offset[{1.5, 0}, {1.5, 1.5802480560463168`}], 
              Offset[{-1.5, 0}, {1.5, 1.5802480560463168`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {1.5, 1.2640570900671244`}], 
              Offset[{-1.5, 0}, {1.5, 1.2640570900671244`}]}]}, {
            LineBox[{{2., 1.8105516437171838`}, {2., 1.5020530660730902`}}], 
            LineBox[{
             Offset[{1.5, 0}, {2., 1.8105516437171838`}], 
              Offset[{-1.5, 0}, {2., 1.8105516437171838`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {2., 1.5020530660730902`}], 
              Offset[{-1.5, 0}, {2., 1.5020530660730902`}]}]}, {
            LineBox[{{2.5, 2.0439490109865703`}, {2.5, 1.7369552624805364`}}],
             LineBox[{
             Offset[{1.5, 0}, {2.5, 2.0439490109865703`}], 
              Offset[{-1.5, 0}, {2.5, 2.0439490109865703`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {2.5, 1.7369552624805364`}], 
              Offset[{-1.5, 0}, {2.5, 1.7369552624805364`}]}]}, {
            LineBox[{{3., 2.2804849633578983`}, {3., 1.9687188737860422`}}], 
            LineBox[{
             Offset[{1.5, 0}, {3., 2.2804849633578983`}], 
              Offset[{-1.5, 0}, {3., 2.2804849633578983`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {3., 1.9687188737860422`}], 
              Offset[{-1.5, 0}, {3., 1.9687188737860422`}]}]}, {
            LineBox[{{3.5, 2.520020243037157}, {3.5, 2.1974831577836147`}}], 
            LineBox[{
             Offset[{1.5, 0}, {3.5, 2.520020243037157}], 
              Offset[{-1.5, 0}, {3.5, 2.520020243037157}]}], 
            LineBox[{
             Offset[{1.5, 0}, {3.5, 2.1974831577836147`}], 
              Offset[{-1.5, 0}, {3.5, 2.1974831577836147`}]}]}, {
            LineBox[{{4., 2.7622689760991266`}, {4., 2.4235339883984786`}}], 
            LineBox[{
             Offset[{1.5, 0}, {4., 2.7622689760991266`}], 
              Offset[{-1.5, 0}, {4., 2.7622689760991266`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {4., 2.4235339883984786`}], 
              Offset[{-1.5, 0}, {4., 2.4235339883984786`}]}]}, {
            LineBox[{{4.5, 3.0068648871758556`}, {4.5, 2.6472376409985827`}}],
             LineBox[{
             Offset[{1.5, 0}, {4.5, 3.0068648871758556`}], 
              Offset[{-1.5, 0}, {4.5, 3.0068648871758556`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {4.5, 2.6472376409985827`}], 
              Offset[{-1.5, 0}, {4.5, 2.6472376409985827`}]}]}, {
            LineBox[{{5., 3.253425695922275}, {5., 2.868976395928995}}], 
            LineBox[{
             Offset[{1.5, 0}, {5., 3.253425695922275}], 
              Offset[{-1.5, 0}, {5., 3.253425695922275}]}], 
            LineBox[{
             Offset[{1.5, 0}, {5., 2.868976395928995}], 
              Offset[{-1.5, 0}, {5., 2.868976395928995}]}]}, {
            LineBox[{{5.5, 3.5015969890067384`}, {5.5, 3.089104666521361}}], 
            LineBox[{
             Offset[{1.5, 0}, {5.5, 3.5015969890067384`}], 
              Offset[{-1.5, 0}, {5.5, 3.5015969890067384`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {5.5, 3.089104666521361}], 
              Offset[{-1.5, 0}, {5.5, 3.089104666521361}]}]}, {
            LineBox[{{6., 3.7510732341103346`}, {6., 3.3079279850945964`}}], 
            LineBox[{
             Offset[{1.5, 0}, {6., 3.7510732341103346`}], 
              Offset[{-1.5, 0}, {6., 3.7510732341103346`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {6., 3.3079279850945964`}], 
              Offset[{-1.5, 0}, {6., 3.3079279850945964`}]}]}, {
            LineBox[{{6.5, 4.001602409247439}, {6.5, 3.525698373634328}}], 
            LineBox[{
             Offset[{1.5, 0}, {6.5, 4.001602409247439}], 
              Offset[{-1.5, 0}, {6.5, 4.001602409247439}]}], 
            LineBox[{
             Offset[{1.5, 0}, {6.5, 3.525698373634328}], 
              Offset[{-1.5, 0}, {6.5, 3.525698373634328}]}]}, {
            LineBox[{{7., 4.2529818410535825`}, {7., 3.7426185055050216`}}], 
            LineBox[{
             Offset[{1.5, 0}, {7., 4.2529818410535825`}], 
              Offset[{-1.5, 0}, {7., 4.2529818410535825`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {7., 3.7426185055050216`}], 
              Offset[{-1.5, 0}, {7., 3.7426185055050216`}]}]}, {
            LineBox[{{7.5, 4.505050651383508}, {7.5, 3.958849258851922}}], 
            LineBox[{
             Offset[{1.5, 0}, {7.5, 4.505050651383508}], 
              Offset[{-1.5, 0}, {7.5, 4.505050651383508}]}], 
            LineBox[{
             Offset[{1.5, 0}, {7.5, 3.958849258851922}], 
              Offset[{-1.5, 0}, {7.5, 3.958849258851922}]}]}, {
            LineBox[{{8., 4.757681771684961}, {8., 4.174517702227302}}], 
            LineBox[{
             Offset[{1.5, 0}, {8., 4.757681771684961}], 
              Offset[{-1.5, 0}, {8., 4.757681771684961}]}], 
            LineBox[{
             Offset[{1.5, 0}, {8., 4.174517702227302}], 
              Offset[{-1.5, 0}, {8., 4.174517702227302}]}]}, {
            LineBox[{{8.5, 5.0107748182393665`}, {8.5, 4.3897242193497314`}}],
             LineBox[{
             Offset[{1.5, 0}, {8.5, 5.0107748182393665`}], 
              Offset[{-1.5, 0}, {8.5, 5.0107748182393665`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {8.5, 4.3897242193497314`}], 
              Offset[{-1.5, 0}, {8.5, 4.3897242193497314`}]}]}, {
            LineBox[{{9., 5.264250215679335}, {9., 4.604548385586592}}], 
            LineBox[{
             Offset[{1.5, 0}, {9., 5.264250215679335}], 
              Offset[{-1.5, 0}, {9., 5.264250215679335}]}], 
            LineBox[{
             Offset[{1.5, 0}, {9., 4.604548385586592}], 
              Offset[{-1.5, 0}, {9., 
               4.604548385586592}]}]}}}}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, \
{{{{}, {}, 
        TagBox[{
          {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
           Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0H881HcAx/GLcH4fX4TIfST97tF2a7Ucn3eOVoZ6GNJSJKHmZ41+YNGa
8+AxkyG/KsXjbuqyREdta62p2Kyo6Cedjju/OvIz59faH6/H8/8XCYnx2a/B
YrG8PvS/SYfJbhZLRjlOkr7x71VUuTA8eZe5jO6LC1458aOK+tRLzkpXyKhU
bBY5Uaiiy8w3dET6yegus+S3E1dUtFXqHfT8koyK3noNvW9V0TXqxL3X/Dop
v3RwTL1kkL5OadsfevkNjdDizZu7O0hdszKjG/y7qUz5KlPzuyGaUOvVLuT2
U/6B4Knx9nf0D2HOqJ7bEPXkaqcOkBFqU3yLQd8wffbGgicMGqVXr+d3DjWO
0bBABxfDujFaGT45k370Pa3Q9w3Kmxynci67sSR4ig7FpTxn+7+nsZt2XFnk
NEur5AtSiGSSVidZDgkOseCY2cLn96upR+DLYKl8Hs73Cn1c3adpvlB+tISv
iQfJwd96pM/QLEXm2RtZ8xFvW942UT9L7bdmFObOaIGzcViwxYiFgxP/8uVf
6gApZeK8Sha8K8JrB++xMUIe1wYEzkNH1gUXHk8PIVs37FFpa2DxbW5UX5o+
LmdWGmuJNDB/bOxQ0IQBEpaXRZ320URRPIe7ZZsRbN783HZuRBP/TKaUq/4y
htv4qgFycT6ePGuwVhRwsCxbceaIlxbOvhiRZglMoHSr8vZ+qwVeR6NL/rQJ
lvqpq4qKtFEudC3aUWEK1xRfbgRfB/0e+kk1PgysP+pyYL/UAYtzYmusnhkO
Ow+32grZGDye19d93QziUJOcmqW6kCj9j9yMMcduZaX6dqsuaHRExgpHCzQP
pk6eT9GDpMgmzrfZAjZMmCaLqw9lQ6KgPX0B+k833Ght0sdMSXKv3TpL5K3k
J66KNkBvxkPz2XZLTHl0P/IzMETZ8abVTnlW6Lpr8HS01hDrOZFWH8Maol3u
CrMAIxSKpUPCSWv0e05fuKRljNausuIzooXQ21kf8afYGEqnzibX7TY4NCYL
8VvMwf3cxl5Pti3sB84pTx3j4ORPvi84NbZwie1+N9rIgV5uhpQXvQjW9l8/
siMmOFDJsRp2sENbvv5sdYIJLkZ/tu3gQzvMFnzyS/o9E/gWpNVx3bjoaSj5
1NLWFO5Nm3gHirigaT8IeqJMQQyXxM2puIjXLiwmv5ui60G7w10PgsgaeaM5
wyBXHn4nvJR8+CVN9tjHoGJq82LFBYKc8wGlV0MZ3GIcT4WWEfhvU9+xCGOg
FHS57xURdFQ6s+URDDaWBzd+JSEYiKrPSYxm0Bm6s9mrjoA90CKWHGOwRuHR
wWsmcO0ZaDHKZiCYXU6vtRBoF2SNfnOaQYCFbunaxwR/f752wcscBqmb7+9d
3UawXXw4UJzH4IlI0O34imBPmFpBixkkhvMHrHoIkrp0pmNFDLJPLPQq6CVA
bsWip2IG5WfUVyz6CTTcvtjkXMHgwf26GEZFkFGWlaYrYWC/bN2IwShBQYi5
ycUqButh5ps5RhBoWstjVzPwDBip0Z0g4N4J8I+uYRCfXpWgrSYQkZLijbUM
Mkqzn56aIjjY4nyrtI7BubqYDZozBGtSX8u0bzKobvYuTJ0lGF6bqhn1K4OG
ntXquTkCqcze8fFvDP4DGBwyyA==
            "]]}},
         Annotation[#, "Charting`Private`Tag$38319#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->{None, 
     FormBox["\"R (\[Mu]m)\"", 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.}, {0.9538530093798879, 4.934399300632964}},
   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, 0.9538530093798879}, {1., 1.1880027912183044`}, {1.5, 
            1.4221525730567206`}, {2., 1.656302354895137}, {2.5, 
            1.8904521367335534`}, {3., 2.1246019185719702`}, {3.5, 
            2.358751700410386}, {4., 2.5929014822488026`}, {4.5, 
            2.827051264087219}, {5., 3.061201045925635}, {5.5, 
            3.2953508277640498`}, {6., 3.5295006096024655`}, {6.5, 
            3.7636503914408834`}, {7., 3.997800173279302}, {7.5, 
            4.231949955117715}, {8., 4.4660997369561315`}, {8.5, 
            4.700249518794549}, {9., 4.934399300632964}}], {{
             Line[{{0.5, 1.1279398177536535`}, {0.5, 0.7797662010061224}}], 
             Line[{
               Offset[{1.5, 0}, {0.5, 1.1279398177536535`}], 
               Offset[{-1.5, 0}, {0.5, 1.1279398177536535`}]}], 
             Line[{
               Offset[{1.5, 0}, {0.5, 0.7797662010061224}], 
               Offset[{-1.5, 0}, {0.5, 0.7797662010061224}]}]}, {
             Line[{{1., 1.3528218020279377`}, {1., 1.0231837804086712`}}], 
             Line[{
               Offset[{1.5, 0}, {1., 1.3528218020279377`}], 
               Offset[{-1.5, 0}, {1., 1.3528218020279377`}]}], 
             Line[{
               Offset[{1.5, 0}, {1., 1.0231837804086712`}], 
               Offset[{-1.5, 0}, {1., 1.0231837804086712`}]}]}, {
             Line[{{1.5, 1.5802480560463168`}, {1.5, 1.2640570900671244`}}], 
             Line[{
               Offset[{1.5, 0}, {1.5, 1.5802480560463168`}], 
               Offset[{-1.5, 0}, {1.5, 1.5802480560463168`}]}], 
             Line[{
               Offset[{1.5, 0}, {1.5, 1.2640570900671244`}], 
               Offset[{-1.5, 0}, {1.5, 1.2640570900671244`}]}]}, {
             Line[{{2., 1.8105516437171838`}, {2., 1.5020530660730902`}}], 
             Line[{
               Offset[{1.5, 0}, {2., 1.8105516437171838`}], 
               Offset[{-1.5, 0}, {2., 1.8105516437171838`}]}], 
             Line[{
               Offset[{1.5, 0}, {2., 1.5020530660730902`}], 
               Offset[{-1.5, 0}, {2., 1.5020530660730902`}]}]}, {
             Line[{{2.5, 2.0439490109865703`}, {2.5, 1.7369552624805364`}}], 
             Line[{
               Offset[{1.5, 0}, {2.5, 2.0439490109865703`}], 
               Offset[{-1.5, 0}, {2.5, 2.0439490109865703`}]}], 
             Line[{
               Offset[{1.5, 0}, {2.5, 1.7369552624805364`}], 
               Offset[{-1.5, 0}, {2.5, 1.7369552624805364`}]}]}, {
             Line[{{3., 2.2804849633578983`}, {3., 1.9687188737860422`}}], 
             Line[{
               Offset[{1.5, 0}, {3., 2.2804849633578983`}], 
               Offset[{-1.5, 0}, {3., 2.2804849633578983`}]}], 
             Line[{
               Offset[{1.5, 0}, {3., 1.9687188737860422`}], 
               Offset[{-1.5, 0}, {3., 1.9687188737860422`}]}]}, {
             Line[{{3.5, 2.520020243037157}, {3.5, 2.1974831577836147`}}], 
             Line[{
               Offset[{1.5, 0}, {3.5, 2.520020243037157}], 
               Offset[{-1.5, 0}, {3.5, 2.520020243037157}]}], 
             Line[{
               Offset[{1.5, 0}, {3.5, 2.1974831577836147`}], 
               Offset[{-1.5, 0}, {3.5, 2.1974831577836147`}]}]}, {
             Line[{{4., 2.7622689760991266`}, {4., 2.4235339883984786`}}], 
             Line[{
               Offset[{1.5, 0}, {4., 2.7622689760991266`}], 
               Offset[{-1.5, 0}, {4., 2.7622689760991266`}]}], 
             Line[{
               Offset[{1.5, 0}, {4., 2.4235339883984786`}], 
               Offset[{-1.5, 0}, {4., 2.4235339883984786`}]}]}, {
             Line[{{4.5, 3.0068648871758556`}, {4.5, 2.6472376409985827`}}], 
             Line[{
               Offset[{1.5, 0}, {4.5, 3.0068648871758556`}], 
               Offset[{-1.5, 0}, {4.5, 3.0068648871758556`}]}], 
             Line[{
               Offset[{1.5, 0}, {4.5, 2.6472376409985827`}], 
               Offset[{-1.5, 0}, {4.5, 2.6472376409985827`}]}]}, {
             Line[{{5., 3.253425695922275}, {5., 2.868976395928995}}], 
             Line[{
               Offset[{1.5, 0}, {5., 3.253425695922275}], 
               Offset[{-1.5, 0}, {5., 3.253425695922275}]}], 
             Line[{
               Offset[{1.5, 0}, {5., 2.868976395928995}], 
               Offset[{-1.5, 0}, {5., 2.868976395928995}]}]}, {
             Line[{{5.5, 3.5015969890067384`}, {5.5, 3.089104666521361}}], 
             Line[{
               Offset[{1.5, 0}, {5.5, 3.5015969890067384`}], 
               Offset[{-1.5, 0}, {5.5, 3.5015969890067384`}]}], 
             Line[{
               Offset[{1.5, 0}, {5.5, 3.089104666521361}], 
               Offset[{-1.5, 0}, {5.5, 3.089104666521361}]}]}, {
             Line[{{6., 3.7510732341103346`}, {6., 3.3079279850945964`}}], 
             Line[{
               Offset[{1.5, 0}, {6., 3.7510732341103346`}], 
               Offset[{-1.5, 0}, {6., 3.7510732341103346`}]}], 
             Line[{
               Offset[{1.5, 0}, {6., 3.3079279850945964`}], 
               Offset[{-1.5, 0}, {6., 3.3079279850945964`}]}]}, {
             Line[{{6.5, 4.001602409247439}, {6.5, 3.525698373634328}}], 
             Line[{
               Offset[{1.5, 0}, {6.5, 4.001602409247439}], 
               Offset[{-1.5, 0}, {6.5, 4.001602409247439}]}], 
             Line[{
               Offset[{1.5, 0}, {6.5, 3.525698373634328}], 
               Offset[{-1.5, 0}, {6.5, 3.525698373634328}]}]}, {
             Line[{{7., 4.2529818410535825`}, {7., 3.7426185055050216`}}], 
             Line[{
               Offset[{1.5, 0}, {7., 4.2529818410535825`}], 
               Offset[{-1.5, 0}, {7., 4.2529818410535825`}]}], 
             Line[{
               Offset[{1.5, 0}, {7., 3.7426185055050216`}], 
               Offset[{-1.5, 0}, {7., 3.7426185055050216`}]}]}, {
             Line[{{7.5, 4.505050651383508}, {7.5, 3.958849258851922}}], 
             Line[{
               Offset[{1.5, 0}, {7.5, 4.505050651383508}], 
               Offset[{-1.5, 0}, {7.5, 4.505050651383508}]}], 
             Line[{
               Offset[{1.5, 0}, {7.5, 3.958849258851922}], 
               Offset[{-1.5, 0}, {7.5, 3.958849258851922}]}]}, {
             Line[{{8., 4.757681771684961}, {8., 4.174517702227302}}], 
             Line[{
               Offset[{1.5, 0}, {8., 4.757681771684961}], 
               Offset[{-1.5, 0}, {8., 4.757681771684961}]}], 
             Line[{
               Offset[{1.5, 0}, {8., 4.174517702227302}], 
               Offset[{-1.5, 0}, {8., 4.174517702227302}]}]}, {
             Line[{{8.5, 5.0107748182393665`}, {8.5, 4.3897242193497314`}}], 
             Line[{
               Offset[{1.5, 0}, {8.5, 5.0107748182393665`}], 
               Offset[{-1.5, 0}, {8.5, 5.0107748182393665`}]}], 
             Line[{
               Offset[{1.5, 0}, {8.5, 4.3897242193497314`}], 
               Offset[{-1.5, 0}, {8.5, 4.3897242193497314`}]}]}, {
             Line[{{9., 5.264250215679335}, {9., 4.604548385586592}}], 
             Line[{
               Offset[{1.5, 0}, {9., 5.264250215679335}], 
               Offset[{-1.5, 0}, {9., 5.264250215679335}]}], 
             Line[{
               Offset[{1.5, 0}, {9., 4.604548385586592}], 
               Offset[{-1.5, 0}, {9., 
                4.604548385586592}]}]}}}}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, \
{{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            AbsoluteThickness[1.6], 
            RGBColor[1, 0, 0], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJwV0H881HcAx/GLcH4fX4TIfST97tF2a7Ucn3eOVoZ6GNJSJKHmZ41+YNGa
8+AxkyG/KsXjbuqyREdta62p2Kyo6Cedjju/OvIz59faH6/H8/8XCYnx2a/B
YrG8PvS/SYfJbhZLRjlOkr7x71VUuTA8eZe5jO6LC1458aOK+tRLzkpXyKhU
bBY5Uaiiy8w3dET6yegus+S3E1dUtFXqHfT8koyK3noNvW9V0TXqxL3X/Dop
v3RwTL1kkL5OadsfevkNjdDizZu7O0hdszKjG/y7qUz5KlPzuyGaUOvVLuT2
U/6B4Knx9nf0D2HOqJ7bEPXkaqcOkBFqU3yLQd8wffbGgicMGqVXr+d3DjWO
0bBABxfDujFaGT45k370Pa3Q9w3Kmxynci67sSR4ig7FpTxn+7+nsZt2XFnk
NEur5AtSiGSSVidZDgkOseCY2cLn96upR+DLYKl8Hs73Cn1c3adpvlB+tISv
iQfJwd96pM/QLEXm2RtZ8xFvW942UT9L7bdmFObOaIGzcViwxYiFgxP/8uVf
6gApZeK8Sha8K8JrB++xMUIe1wYEzkNH1gUXHk8PIVs37FFpa2DxbW5UX5o+
LmdWGmuJNDB/bOxQ0IQBEpaXRZ320URRPIe7ZZsRbN783HZuRBP/TKaUq/4y
htv4qgFycT6ePGuwVhRwsCxbceaIlxbOvhiRZglMoHSr8vZ+qwVeR6NL/rQJ
lvqpq4qKtFEudC3aUWEK1xRfbgRfB/0e+kk1PgysP+pyYL/UAYtzYmusnhkO
Ow+32grZGDye19d93QziUJOcmqW6kCj9j9yMMcduZaX6dqsuaHRExgpHCzQP
pk6eT9GDpMgmzrfZAjZMmCaLqw9lQ6KgPX0B+k833Ght0sdMSXKv3TpL5K3k
J66KNkBvxkPz2XZLTHl0P/IzMETZ8abVTnlW6Lpr8HS01hDrOZFWH8Maol3u
CrMAIxSKpUPCSWv0e05fuKRljNausuIzooXQ21kf8afYGEqnzibX7TY4NCYL
8VvMwf3cxl5Pti3sB84pTx3j4ORPvi84NbZwie1+N9rIgV5uhpQXvQjW9l8/
siMmOFDJsRp2sENbvv5sdYIJLkZ/tu3gQzvMFnzyS/o9E/gWpNVx3bjoaSj5
1NLWFO5Nm3gHirigaT8IeqJMQQyXxM2puIjXLiwmv5ui60G7w10PgsgaeaM5
wyBXHn4nvJR8+CVN9tjHoGJq82LFBYKc8wGlV0MZ3GIcT4WWEfhvU9+xCGOg
FHS57xURdFQ6s+URDDaWBzd+JSEYiKrPSYxm0Bm6s9mrjoA90CKWHGOwRuHR
wWsmcO0ZaDHKZiCYXU6vtRBoF2SNfnOaQYCFbunaxwR/f752wcscBqmb7+9d
3UawXXw4UJzH4IlI0O34imBPmFpBixkkhvMHrHoIkrp0pmNFDLJPLPQq6CVA
bsWip2IG5WfUVyz6CTTcvtjkXMHgwf26GEZFkFGWlaYrYWC/bN2IwShBQYi5
ycUqButh5ps5RhBoWstjVzPwDBip0Z0g4N4J8I+uYRCfXpWgrSYQkZLijbUM
Mkqzn56aIjjY4nyrtI7BubqYDZozBGtSX8u0bzKobvYuTJ0lGF6bqhn1K4OG
ntXquTkCqcze8fFvDP4DGBwyyA==
            "]]}, 
          "Charting`Private`Tag$38319#1"]}}, {}, {}}}, {
     Frame -> True, FrameLabel -> {None, "R (\[Mu]m)"}, PlotLabel -> 
      "Calibration", 
      PlotRange -> {{0.5, 9.}, {0.9538530093798879, 4.934399300632964}}, 
      DisplayFunction -> Identity, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, AxesOrigin -> {0, 0}, 
      PlotRange -> {{0, 9.}, {0, 4.934399300632964}}, 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, 4.934399300632964}}, 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.8981927765134487`*^9, 3.898193968892942*^9, {3.8981940705509453`*^9, 
   3.898194097550267*^9}, 3.8981942890744963`*^9, 3.898194366903124*^9, {
   3.8981944610393257`*^9, 3.8981944837437563`*^9}, 3.898261361896946*^9, 
   3.8982613994369698`*^9, 3.898261526114052*^9, {3.898262001916643*^9, 
   3.898262037180002*^9}, {3.89826230737142*^9, 3.898262329092291*^9}, 
   3.8982623637197523`*^9, 3.898262440408504*^9, {3.898262472847624*^9, 
   3.898262524435356*^9}, 3.8982625602761803`*^9, {3.898262881594384*^9, 
   3.898262901871916*^9}, 3.8982629716110764`*^9, 3.8982630870162973`*^9, 
   3.898263186417612*^9, {3.89826329551982*^9, 3.8982633105696707`*^9}, 
   3.898263410370947*^9, 3.898263501367268*^9, {3.8982635892709084`*^9, 
   3.898263643591359*^9}, 3.898263695276433*^9, 3.898263759370494*^9, 
   3.898263931104144*^9, 3.898265020529901*^9, 3.898270867809369*^9, 
   3.8982709266454287`*^9, {3.898272399954987*^9, 3.898272426072238*^9}, 
   3.898272583552575*^9, {3.898272629189651*^9, 3.898272639217575*^9}, 
   3.8982727088708*^9, 3.898354869570489*^9, 
   3.898354909578409*^9},ExpressionUUID->"84921cdc-0b8b-4900-96d3-\
3349833e5c28"],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQDQEP7K+cWC8teP2iPYT/wd7nisIygdmPoPwf9l95
36V2yD2G8hkcgrnKNKf5wfgsDk/2Or8q3/oGyudwmP84afOBb7+hfB6Hpj29
Dv2PH0L5Ag5WU1w2RZT8hPKFHFgfvf597ct3KF/EIUdnbqvb67dQvpiDuPgf
/k1fb++H8CUcRCduulYm+wrKl3K4+OtC19aMF1D1Mg7P3qz6fFGJ0QHCl3Ng
QAEKaHxFh4z3B1Ln/YT5V8nhedQlD/bXD/fPdD8X+jlGFK5eMFX27xIOSTg/
PWfRuVXNimjmPbBH5SvB5QGWzF8A
    "], {{{
       {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[None], 
        GraphicsGroupBox[{PolygonBox[{{18, 23, 21}}], 
          PolygonBox[{{20, 19, 11, 12}}]}]}}, {
       {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[None], 
        GraphicsGroupBox[{PolygonBox[{{16, 21, 17}}], 
          PolygonBox[{{20, 15, 14, 13}}], 
          PolygonBox[{{1, 22, 19, 10, 9, 8, 7, 6, 5, 4, 3, 
           2}}]}]}}, {}, {}}, {{}, {}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.019444444444444445`], AbsoluteThickness[1.6], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 19, 11, 12, 20, 13, 14, 15, 
         16, 17, 21, 18}]}}}}], {}, {}, {{}, {}}, {{}, {}}},
  AspectRatio->NCache[
    Rational[1, 5], 0.2],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.5425, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox["\"Residuals\"", 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]]}& )}},
  PlotRange->{{0.5, 9.}, {-0.8160967057524738, 2.1420020138299263`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.8981927765134487`*^9, 3.898193968892942*^9, {3.8981940705509453`*^9, 
   3.898194097550267*^9}, 3.8981942890744963`*^9, 3.898194366903124*^9, {
   3.8981944610393257`*^9, 3.8981944837437563`*^9}, 3.898261361896946*^9, 
   3.8982613994369698`*^9, 3.898261526114052*^9, {3.898262001916643*^9, 
   3.898262037180002*^9}, {3.89826230737142*^9, 3.898262329092291*^9}, 
   3.8982623637197523`*^9, 3.898262440408504*^9, {3.898262472847624*^9, 
   3.898262524435356*^9}, 3.8982625602761803`*^9, {3.898262881594384*^9, 
   3.898262901871916*^9}, 3.8982629716110764`*^9, 3.8982630870162973`*^9, 
   3.898263186417612*^9, {3.89826329551982*^9, 3.8982633105696707`*^9}, 
   3.898263410370947*^9, 3.898263501367268*^9, {3.8982635892709084`*^9, 
   3.898263643591359*^9}, 3.898263695276433*^9, 3.898263759370494*^9, 
   3.898263931104144*^9, 3.898265020529901*^9, 3.898270867809369*^9, 
   3.8982709266454287`*^9, {3.898272399954987*^9, 3.898272426072238*^9}, 
   3.898272583552575*^9, {3.898272629189651*^9, 3.898272639217575*^9}, 
   3.8982727088708*^9, 3.898354869570489*^9, 
   3.8983549097053833`*^9},ExpressionUUID->"1291091a-1c14-40d3-bff8-\
c12388713b42"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"plotCombined", "=", 
  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[{"Plot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Alpha]1", " ", 
          RowBox[{"Exp", "[", 
           RowBox[{"\[Alpha]2", " ", "x"}], "]"}]}], "+", "\[Alpha]3"}], ",", 
        
        RowBox[{"{", 
         RowBox[{"x", ",", "10", ",", "35"}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Dashed", ",", "Black"}], "}"}]}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<z (\[Mu]m)\>\"", ",", "\"\<R (\[Mu]m)\>\""}], "}"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"PlotLabel", "\[Rule]", "\"\<Calibration\>\""}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.5", ",", "35"}], "}"}], ",", "Automatic"}], "}"}]}]}], 
     "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"LineLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"ColorData", "[", "97", "]"}], "[", "1", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Dashed"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Dataset\>\"", ",", "\"\<BestFit\>\"", ",", 
          "\"\<i) Referencia\>\""}], "}"}], ",", 
        RowBox[{"LegendFunction", "->", "Panel"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.58", ",", "0.7"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.", ",", "1.8"}], "}"}]}], "}"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8983549203701277`*^9, 3.898354961288269*^9}, {
  3.898355056719154*^9, 3.8983551345196753`*^9}, {3.8983551664390087`*^9, 
  3.898355166949978*^9}, {3.898356511320341*^9, 
  3.898356552402439*^9}},ExpressionUUID->"8b7f9097-61d1-43e1-b264-\
64b2c0dff539"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{}, {{{}, {
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.012833333333333334`], AbsoluteThickness[1.6], 
          PointBox[{{0.5, 0.9538530093798879}, {1., 1.1880027912183044`}, {
           1.5, 1.4221525730567206`}, {2., 1.656302354895137}, {2.5, 
           1.8904521367335534`}, {3., 2.1246019185719702`}, {3.5, 
           2.358751700410386}, {4., 2.5929014822488026`}, {4.5, 
           2.827051264087219}, {5., 3.061201045925635}, {5.5, 
           3.2953508277640498`}, {6., 3.5295006096024655`}, {6.5, 
           3.7636503914408834`}, {7., 3.997800173279302}, {7.5, 
           4.231949955117715}, {8., 4.4660997369561315`}, {8.5, 
           4.700249518794549}, {9., 
           4.934399300632964}}], {{
            LineBox[{{0.5, 1.1279398177536535`}, {0.5, 0.7797662010061224}}], 
            LineBox[{
             Offset[{1.5, 0}, {0.5, 1.1279398177536535`}], 
              Offset[{-1.5, 0}, {0.5, 1.1279398177536535`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {0.5, 0.7797662010061224}], 
              Offset[{-1.5, 0}, {0.5, 0.7797662010061224}]}]}, {
            LineBox[{{1., 1.3528218020279377`}, {1., 1.0231837804086712`}}], 
            LineBox[{
             Offset[{1.5, 0}, {1., 1.3528218020279377`}], 
              Offset[{-1.5, 0}, {1., 1.3528218020279377`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {1., 1.0231837804086712`}], 
              Offset[{-1.5, 0}, {1., 1.0231837804086712`}]}]}, {
            LineBox[{{1.5, 1.5802480560463168`}, {1.5, 1.2640570900671244`}}],
             LineBox[{
             Offset[{1.5, 0}, {1.5, 1.5802480560463168`}], 
              Offset[{-1.5, 0}, {1.5, 1.5802480560463168`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {1.5, 1.2640570900671244`}], 
              Offset[{-1.5, 0}, {1.5, 1.2640570900671244`}]}]}, {
            LineBox[{{2., 1.8105516437171838`}, {2., 1.5020530660730902`}}], 
            LineBox[{
             Offset[{1.5, 0}, {2., 1.8105516437171838`}], 
              Offset[{-1.5, 0}, {2., 1.8105516437171838`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {2., 1.5020530660730902`}], 
              Offset[{-1.5, 0}, {2., 1.5020530660730902`}]}]}, {
            LineBox[{{2.5, 2.0439490109865703`}, {2.5, 1.7369552624805364`}}],
             LineBox[{
             Offset[{1.5, 0}, {2.5, 2.0439490109865703`}], 
              Offset[{-1.5, 0}, {2.5, 2.0439490109865703`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {2.5, 1.7369552624805364`}], 
              Offset[{-1.5, 0}, {2.5, 1.7369552624805364`}]}]}, {
            LineBox[{{3., 2.2804849633578983`}, {3., 1.9687188737860422`}}], 
            LineBox[{
             Offset[{1.5, 0}, {3., 2.2804849633578983`}], 
              Offset[{-1.5, 0}, {3., 2.2804849633578983`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {3., 1.9687188737860422`}], 
              Offset[{-1.5, 0}, {3., 1.9687188737860422`}]}]}, {
            LineBox[{{3.5, 2.520020243037157}, {3.5, 2.1974831577836147`}}], 
            LineBox[{
             Offset[{1.5, 0}, {3.5, 2.520020243037157}], 
              Offset[{-1.5, 0}, {3.5, 2.520020243037157}]}], 
            LineBox[{
             Offset[{1.5, 0}, {3.5, 2.1974831577836147`}], 
              Offset[{-1.5, 0}, {3.5, 2.1974831577836147`}]}]}, {
            LineBox[{{4., 2.7622689760991266`}, {4., 2.4235339883984786`}}], 
            LineBox[{
             Offset[{1.5, 0}, {4., 2.7622689760991266`}], 
              Offset[{-1.5, 0}, {4., 2.7622689760991266`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {4., 2.4235339883984786`}], 
              Offset[{-1.5, 0}, {4., 2.4235339883984786`}]}]}, {
            LineBox[{{4.5, 3.0068648871758556`}, {4.5, 2.6472376409985827`}}],
             LineBox[{
             Offset[{1.5, 0}, {4.5, 3.0068648871758556`}], 
              Offset[{-1.5, 0}, {4.5, 3.0068648871758556`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {4.5, 2.6472376409985827`}], 
              Offset[{-1.5, 0}, {4.5, 2.6472376409985827`}]}]}, {
            LineBox[{{5., 3.253425695922275}, {5., 2.868976395928995}}], 
            LineBox[{
             Offset[{1.5, 0}, {5., 3.253425695922275}], 
              Offset[{-1.5, 0}, {5., 3.253425695922275}]}], 
            LineBox[{
             Offset[{1.5, 0}, {5., 2.868976395928995}], 
              Offset[{-1.5, 0}, {5., 2.868976395928995}]}]}, {
            LineBox[{{5.5, 3.5015969890067384`}, {5.5, 3.089104666521361}}], 
            LineBox[{
             Offset[{1.5, 0}, {5.5, 3.5015969890067384`}], 
              Offset[{-1.5, 0}, {5.5, 3.5015969890067384`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {5.5, 3.089104666521361}], 
              Offset[{-1.5, 0}, {5.5, 3.089104666521361}]}]}, {
            LineBox[{{6., 3.7510732341103346`}, {6., 3.3079279850945964`}}], 
            LineBox[{
             Offset[{1.5, 0}, {6., 3.7510732341103346`}], 
              Offset[{-1.5, 0}, {6., 3.7510732341103346`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {6., 3.3079279850945964`}], 
              Offset[{-1.5, 0}, {6., 3.3079279850945964`}]}]}, {
            LineBox[{{6.5, 4.001602409247439}, {6.5, 3.525698373634328}}], 
            LineBox[{
             Offset[{1.5, 0}, {6.5, 4.001602409247439}], 
              Offset[{-1.5, 0}, {6.5, 4.001602409247439}]}], 
            LineBox[{
             Offset[{1.5, 0}, {6.5, 3.525698373634328}], 
              Offset[{-1.5, 0}, {6.5, 3.525698373634328}]}]}, {
            LineBox[{{7., 4.2529818410535825`}, {7., 3.7426185055050216`}}], 
            LineBox[{
             Offset[{1.5, 0}, {7., 4.2529818410535825`}], 
              Offset[{-1.5, 0}, {7., 4.2529818410535825`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {7., 3.7426185055050216`}], 
              Offset[{-1.5, 0}, {7., 3.7426185055050216`}]}]}, {
            LineBox[{{7.5, 4.505050651383508}, {7.5, 3.958849258851922}}], 
            LineBox[{
             Offset[{1.5, 0}, {7.5, 4.505050651383508}], 
              Offset[{-1.5, 0}, {7.5, 4.505050651383508}]}], 
            LineBox[{
             Offset[{1.5, 0}, {7.5, 3.958849258851922}], 
              Offset[{-1.5, 0}, {7.5, 3.958849258851922}]}]}, {
            LineBox[{{8., 4.757681771684961}, {8., 4.174517702227302}}], 
            LineBox[{
             Offset[{1.5, 0}, {8., 4.757681771684961}], 
              Offset[{-1.5, 0}, {8., 4.757681771684961}]}], 
            LineBox[{
             Offset[{1.5, 0}, {8., 4.174517702227302}], 
              Offset[{-1.5, 0}, {8., 4.174517702227302}]}]}, {
            LineBox[{{8.5, 5.0107748182393665`}, {8.5, 4.3897242193497314`}}],
             LineBox[{
             Offset[{1.5, 0}, {8.5, 5.0107748182393665`}], 
              Offset[{-1.5, 0}, {8.5, 5.0107748182393665`}]}], 
            LineBox[{
             Offset[{1.5, 0}, {8.5, 4.3897242193497314`}], 
              Offset[{-1.5, 0}, {8.5, 4.3897242193497314`}]}]}, {
            LineBox[{{9., 5.264250215679335}, {9., 4.604548385586592}}], 
            LineBox[{
             Offset[{1.5, 0}, {9., 5.264250215679335}], 
              Offset[{-1.5, 0}, {9., 5.264250215679335}]}], 
            LineBox[{
             Offset[{1.5, 0}, {9., 4.604548385586592}], 
              Offset[{-1.5, 0}, {9., 
               4.604548385586592}]}]}}}}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, \
{{{{}, {}, 
        TagBox[{
          {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
           Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0H881HcAx/GLcH4fX4TIfST97tF2a7Ucn3eOVoZ6GNJSJKHmZ41+YNGa
8+AxkyG/KsXjbuqyREdta62p2Kyo6Cedjju/OvIz59faH6/H8/8XCYnx2a/B
YrG8PvS/SYfJbhZLRjlOkr7x71VUuTA8eZe5jO6LC1458aOK+tRLzkpXyKhU
bBY5Uaiiy8w3dET6yegus+S3E1dUtFXqHfT8koyK3noNvW9V0TXqxL3X/Dop
v3RwTL1kkL5OadsfevkNjdDizZu7O0hdszKjG/y7qUz5KlPzuyGaUOvVLuT2
U/6B4Knx9nf0D2HOqJ7bEPXkaqcOkBFqU3yLQd8wffbGgicMGqVXr+d3DjWO
0bBABxfDujFaGT45k370Pa3Q9w3Kmxynci67sSR4ig7FpTxn+7+nsZt2XFnk
NEur5AtSiGSSVidZDgkOseCY2cLn96upR+DLYKl8Hs73Cn1c3adpvlB+tISv
iQfJwd96pM/QLEXm2RtZ8xFvW942UT9L7bdmFObOaIGzcViwxYiFgxP/8uVf
6gApZeK8Sha8K8JrB++xMUIe1wYEzkNH1gUXHk8PIVs37FFpa2DxbW5UX5o+
LmdWGmuJNDB/bOxQ0IQBEpaXRZ320URRPIe7ZZsRbN783HZuRBP/TKaUq/4y
htv4qgFycT6ePGuwVhRwsCxbceaIlxbOvhiRZglMoHSr8vZ+qwVeR6NL/rQJ
lvqpq4qKtFEudC3aUWEK1xRfbgRfB/0e+kk1PgysP+pyYL/UAYtzYmusnhkO
Ow+32grZGDye19d93QziUJOcmqW6kCj9j9yMMcduZaX6dqsuaHRExgpHCzQP
pk6eT9GDpMgmzrfZAjZMmCaLqw9lQ6KgPX0B+k833Ght0sdMSXKv3TpL5K3k
J66KNkBvxkPz2XZLTHl0P/IzMETZ8abVTnlW6Lpr8HS01hDrOZFWH8Maol3u
CrMAIxSKpUPCSWv0e05fuKRljNausuIzooXQ21kf8afYGEqnzibX7TY4NCYL
8VvMwf3cxl5Pti3sB84pTx3j4ORPvi84NbZwie1+N9rIgV5uhpQXvQjW9l8/
siMmOFDJsRp2sENbvv5sdYIJLkZ/tu3gQzvMFnzyS/o9E/gWpNVx3bjoaSj5
1NLWFO5Nm3gHirigaT8IeqJMQQyXxM2puIjXLiwmv5ui60G7w10PgsgaeaM5
wyBXHn4nvJR8+CVN9tjHoGJq82LFBYKc8wGlV0MZ3GIcT4WWEfhvU9+xCGOg
FHS57xURdFQ6s+URDDaWBzd+JSEYiKrPSYxm0Bm6s9mrjoA90CKWHGOwRuHR
wWsmcO0ZaDHKZiCYXU6vtRBoF2SNfnOaQYCFbunaxwR/f752wcscBqmb7+9d
3UawXXw4UJzH4IlI0O34imBPmFpBixkkhvMHrHoIkrp0pmNFDLJPLPQq6CVA
bsWip2IG5WfUVyz6CTTcvtjkXMHgwf26GEZFkFGWlaYrYWC/bN2IwShBQYi5
ycUqButh5ps5RhBoWstjVzPwDBip0Z0g4N4J8I+uYRCfXpWgrSYQkZLijbUM
Mkqzn56aIjjY4nyrtI7BubqYDZozBGtSX8u0bzKobvYuTJ0lGF6bqhn1K4OG
ntXquTkCqcze8fFvDP4DGBwyyA==
            "]]}},
         Annotation[#, 
          "Charting`Private`Tag$51074#1"]& ]}}, {}, {}}, {{{{}, {}, 
        TagBox[{
          {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
           Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVjns01HkAxUdkkPeb7PjK7CBNZhhiGHN/xjJl0E5ZpvXKetXJ45RK65W0
aj2i2JUSFmV6rNAoIq2NSg9NVlvSw/bc7HY2uzoV2tnZP+65557PPedeh4QM
adICGo0Wqtb/3lLPMKHRmFA2HGcUXFQJHZ43G7zWZMK43ay3+bJKWO/qonef
zkTlZffMqzdVwoPdHpoKI3WO3s80faASlo+K36bYq/vfjHcde68SbtPeMn7L
nwmdkEzBlDUNwelXfmjIY+Ieu1LsIKVhSpDpLpxjQn6uYqdikIaeAVZh4yIW
xPK1XdcvaOBlh877GV0nyCcDZLzWBbhXmi+SaDoju+Zk2a0yTUhXyfqGTFwg
Vi6bulisBdetcTHuhkuRHcnaM5a5EOW7r7kO2LtCHpC4PDVDG515wyPSZcvg
TZIfYyMdXk//qb3LYkMnnNIyitCBiF10IN9rOXTO9bvtX6uL008FZ6x5bugW
1NpMi/TwFxU0ts6SA+8Gp5Zkt0UI0WpM4h/hwDoqLHnQTR93c41KzRZzIV/X
X3rb3gCtKdwrec1ceHPDx6eZhpAFH0nb4OIOuUfFWT7LCPyHDHnYMXdUcwu+
LlxkjPjn0g+DbA+0+GpFlewzRldz3SPeKQ9UV7f2BemaIHzs4H1PTx4GFY/G
LuwzwbUPj9Ddy8MNyZpCytQUW+/wfXk+nmhRstjx5aZIdFwpoQY8EWj2VUSE
mRmKnNKmg+GFus0pRuOV6kwmaMo+L/CqcopW65vjaukc65VoBbTiKkd7DpjD
70fub3MDKyBp4iXXGlvgLWw7G1Z5Y2bWX1ZYa4GKYcnrQaU3+ua5b5OJJWQ6
3/U9DfUBM33ixPF6S6T0VDRV3fHBzFCVwMTZCkdJo51gLR/R/gqXYbkVBnNn
aalKPso2OgmTnKzhHEKfd4z0xbPQNiqgwxq9t1xKx8d8Yd5bc/oLdxtUXf6X
Q2L88GzEz+FSvw0ObXm1Mf6BH+y2H30nC7BFkQXDaIlMAMljq703Ltmi3WXh
taxJAaIdJ0fOrF4MgxkNm4FYf0iOxGqcGluMNk5Hfv1Lf2wyYBZzEu3ASTgR
9jFNCLtdEs7haTs8WdnTGfGHEFolM4nzWz/Bn59f+L7BB8jySr9O12ZANe7M
MNkB7Ba/jJ0vY2BXdM860TnALuDXmD4TezhZNy/pnwVmPm2cEzXZ41lbjaLL
h4JegY/0pjlBCVfxcIRPYZtlu2rOgoCjUGr/7kvh7GfnO5ZaEeT06Mps/SkU
d37ruNeGwHQw52N+AIWSLkt/EYOAGo8LEodQOPDkfdh5J4J6Ted796MpNP0t
mzzJJwgsDtSYiVHvPUgiE74EUzrrlxrEqXk1PUlPQOBpeChXuF69f15/PlVI
cMNa36ElicKxYfv1rECCWfabDWnpFGwLsulNoQSN7fpVxRkU+G2vKm+HEQR5
uPQ1ZFJouzrN0FhNsN87wXB0s/qf9hVxvJTAWTTW6bVdzWv2/MKIJBgZejMR
nk3hZ9POwrAogiyxwcINOyisomfx8mUEP4UGRR7OoTDa3N/68EuCZGXCTkUu
hdiM4FSDGAL9NQXHb+ap/86lsAWxBJ13Do++yKfwQkbebYojiIzqnlMVUNhc
lzlUF0/wH6kF9vk=
            "]]}},
         Annotation[#, "Charting`Private`Tag$51273#1"]& ]}}, {}, {}}}, {
     InsetBox[
      TemplateBox[{"\"Dataset\"","\"BestFit\"","\"i) Referencia\""},
       "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}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                   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[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], "GrayLevel[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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}]}], 
              "}"}], ",", 
            RowBox[{"{", 
              RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
            RowBox[{"LegendFunction", "\[Rule]", "Panel"}]}], "]"}]& )], 
      Scaled[{0.58, 0.7}], ImageScaled[{0., 1.8}],
      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 (\[Mu]m)\"", 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, 35}, Automatic},
   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, 0.9538530093798879}, {1., 1.1880027912183044`}, {1.5, 
            1.4221525730567206`}, {2., 1.656302354895137}, {2.5, 
            1.8904521367335534`}, {3., 2.1246019185719702`}, {3.5, 
            2.358751700410386}, {4., 2.5929014822488026`}, {4.5, 
            2.827051264087219}, {5., 3.061201045925635}, {5.5, 
            3.2953508277640498`}, {6., 3.5295006096024655`}, {6.5, 
            3.7636503914408834`}, {7., 3.997800173279302}, {7.5, 
            4.231949955117715}, {8., 4.4660997369561315`}, {8.5, 
            4.700249518794549}, {9., 4.934399300632964}}], {{
             Line[{{0.5, 1.1279398177536535`}, {0.5, 0.7797662010061224}}], 
             Line[{
               Offset[{1.5, 0}, {0.5, 1.1279398177536535`}], 
               Offset[{-1.5, 0}, {0.5, 1.1279398177536535`}]}], 
             Line[{
               Offset[{1.5, 0}, {0.5, 0.7797662010061224}], 
               Offset[{-1.5, 0}, {0.5, 0.7797662010061224}]}]}, {
             Line[{{1., 1.3528218020279377`}, {1., 1.0231837804086712`}}], 
             Line[{
               Offset[{1.5, 0}, {1., 1.3528218020279377`}], 
               Offset[{-1.5, 0}, {1., 1.3528218020279377`}]}], 
             Line[{
               Offset[{1.5, 0}, {1., 1.0231837804086712`}], 
               Offset[{-1.5, 0}, {1., 1.0231837804086712`}]}]}, {
             Line[{{1.5, 1.5802480560463168`}, {1.5, 1.2640570900671244`}}], 
             Line[{
               Offset[{1.5, 0}, {1.5, 1.5802480560463168`}], 
               Offset[{-1.5, 0}, {1.5, 1.5802480560463168`}]}], 
             Line[{
               Offset[{1.5, 0}, {1.5, 1.2640570900671244`}], 
               Offset[{-1.5, 0}, {1.5, 1.2640570900671244`}]}]}, {
             Line[{{2., 1.8105516437171838`}, {2., 1.5020530660730902`}}], 
             Line[{
               Offset[{1.5, 0}, {2., 1.8105516437171838`}], 
               Offset[{-1.5, 0}, {2., 1.8105516437171838`}]}], 
             Line[{
               Offset[{1.5, 0}, {2., 1.5020530660730902`}], 
               Offset[{-1.5, 0}, {2., 1.5020530660730902`}]}]}, {
             Line[{{2.5, 2.0439490109865703`}, {2.5, 1.7369552624805364`}}], 
             Line[{
               Offset[{1.5, 0}, {2.5, 2.0439490109865703`}], 
               Offset[{-1.5, 0}, {2.5, 2.0439490109865703`}]}], 
             Line[{
               Offset[{1.5, 0}, {2.5, 1.7369552624805364`}], 
               Offset[{-1.5, 0}, {2.5, 1.7369552624805364`}]}]}, {
             Line[{{3., 2.2804849633578983`}, {3., 1.9687188737860422`}}], 
             Line[{
               Offset[{1.5, 0}, {3., 2.2804849633578983`}], 
               Offset[{-1.5, 0}, {3., 2.2804849633578983`}]}], 
             Line[{
               Offset[{1.5, 0}, {3., 1.9687188737860422`}], 
               Offset[{-1.5, 0}, {3., 1.9687188737860422`}]}]}, {
             Line[{{3.5, 2.520020243037157}, {3.5, 2.1974831577836147`}}], 
             Line[{
               Offset[{1.5, 0}, {3.5, 2.520020243037157}], 
               Offset[{-1.5, 0}, {3.5, 2.520020243037157}]}], 
             Line[{
               Offset[{1.5, 0}, {3.5, 2.1974831577836147`}], 
               Offset[{-1.5, 0}, {3.5, 2.1974831577836147`}]}]}, {
             Line[{{4., 2.7622689760991266`}, {4., 2.4235339883984786`}}], 
             Line[{
               Offset[{1.5, 0}, {4., 2.7622689760991266`}], 
               Offset[{-1.5, 0}, {4., 2.7622689760991266`}]}], 
             Line[{
               Offset[{1.5, 0}, {4., 2.4235339883984786`}], 
               Offset[{-1.5, 0}, {4., 2.4235339883984786`}]}]}, {
             Line[{{4.5, 3.0068648871758556`}, {4.5, 2.6472376409985827`}}], 
             Line[{
               Offset[{1.5, 0}, {4.5, 3.0068648871758556`}], 
               Offset[{-1.5, 0}, {4.5, 3.0068648871758556`}]}], 
             Line[{
               Offset[{1.5, 0}, {4.5, 2.6472376409985827`}], 
               Offset[{-1.5, 0}, {4.5, 2.6472376409985827`}]}]}, {
             Line[{{5., 3.253425695922275}, {5., 2.868976395928995}}], 
             Line[{
               Offset[{1.5, 0}, {5., 3.253425695922275}], 
               Offset[{-1.5, 0}, {5., 3.253425695922275}]}], 
             Line[{
               Offset[{1.5, 0}, {5., 2.868976395928995}], 
               Offset[{-1.5, 0}, {5., 2.868976395928995}]}]}, {
             Line[{{5.5, 3.5015969890067384`}, {5.5, 3.089104666521361}}], 
             Line[{
               Offset[{1.5, 0}, {5.5, 3.5015969890067384`}], 
               Offset[{-1.5, 0}, {5.5, 3.5015969890067384`}]}], 
             Line[{
               Offset[{1.5, 0}, {5.5, 3.089104666521361}], 
               Offset[{-1.5, 0}, {5.5, 3.089104666521361}]}]}, {
             Line[{{6., 3.7510732341103346`}, {6., 3.3079279850945964`}}], 
             Line[{
               Offset[{1.5, 0}, {6., 3.7510732341103346`}], 
               Offset[{-1.5, 0}, {6., 3.7510732341103346`}]}], 
             Line[{
               Offset[{1.5, 0}, {6., 3.3079279850945964`}], 
               Offset[{-1.5, 0}, {6., 3.3079279850945964`}]}]}, {
             Line[{{6.5, 4.001602409247439}, {6.5, 3.525698373634328}}], 
             Line[{
               Offset[{1.5, 0}, {6.5, 4.001602409247439}], 
               Offset[{-1.5, 0}, {6.5, 4.001602409247439}]}], 
             Line[{
               Offset[{1.5, 0}, {6.5, 3.525698373634328}], 
               Offset[{-1.5, 0}, {6.5, 3.525698373634328}]}]}, {
             Line[{{7., 4.2529818410535825`}, {7., 3.7426185055050216`}}], 
             Line[{
               Offset[{1.5, 0}, {7., 4.2529818410535825`}], 
               Offset[{-1.5, 0}, {7., 4.2529818410535825`}]}], 
             Line[{
               Offset[{1.5, 0}, {7., 3.7426185055050216`}], 
               Offset[{-1.5, 0}, {7., 3.7426185055050216`}]}]}, {
             Line[{{7.5, 4.505050651383508}, {7.5, 3.958849258851922}}], 
             Line[{
               Offset[{1.5, 0}, {7.5, 4.505050651383508}], 
               Offset[{-1.5, 0}, {7.5, 4.505050651383508}]}], 
             Line[{
               Offset[{1.5, 0}, {7.5, 3.958849258851922}], 
               Offset[{-1.5, 0}, {7.5, 3.958849258851922}]}]}, {
             Line[{{8., 4.757681771684961}, {8., 4.174517702227302}}], 
             Line[{
               Offset[{1.5, 0}, {8., 4.757681771684961}], 
               Offset[{-1.5, 0}, {8., 4.757681771684961}]}], 
             Line[{
               Offset[{1.5, 0}, {8., 4.174517702227302}], 
               Offset[{-1.5, 0}, {8., 4.174517702227302}]}]}, {
             Line[{{8.5, 5.0107748182393665`}, {8.5, 4.3897242193497314`}}], 
             Line[{
               Offset[{1.5, 0}, {8.5, 5.0107748182393665`}], 
               Offset[{-1.5, 0}, {8.5, 5.0107748182393665`}]}], 
             Line[{
               Offset[{1.5, 0}, {8.5, 4.3897242193497314`}], 
               Offset[{-1.5, 0}, {8.5, 4.3897242193497314`}]}]}, {
             Line[{{9., 5.264250215679335}, {9., 4.604548385586592}}], 
             Line[{
               Offset[{1.5, 0}, {9., 5.264250215679335}], 
               Offset[{-1.5, 0}, {9., 5.264250215679335}]}], 
             Line[{
               Offset[{1.5, 0}, {9., 4.604548385586592}], 
               
               Offset[{-1.5, 0}, {9., 
                4.604548385586592}]}]}}}}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, \
{{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            AbsoluteThickness[1.6], 
            RGBColor[1, 0, 0], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJwV0H881HcAx/GLcH4fX4TIfST97tF2a7Ucn3eOVoZ6GNJSJKHmZ41+YNGa
8+AxkyG/KsXjbuqyREdta62p2Kyo6Cedjju/OvIz59faH6/H8/8XCYnx2a/B
YrG8PvS/SYfJbhZLRjlOkr7x71VUuTA8eZe5jO6LC1458aOK+tRLzkpXyKhU
bBY5Uaiiy8w3dET6yegus+S3E1dUtFXqHfT8koyK3noNvW9V0TXqxL3X/Dop
v3RwTL1kkL5OadsfevkNjdDizZu7O0hdszKjG/y7qUz5KlPzuyGaUOvVLuT2
U/6B4Knx9nf0D2HOqJ7bEPXkaqcOkBFqU3yLQd8wffbGgicMGqVXr+d3DjWO
0bBABxfDujFaGT45k370Pa3Q9w3Kmxynci67sSR4ig7FpTxn+7+nsZt2XFnk
NEur5AtSiGSSVidZDgkOseCY2cLn96upR+DLYKl8Hs73Cn1c3adpvlB+tISv
iQfJwd96pM/QLEXm2RtZ8xFvW942UT9L7bdmFObOaIGzcViwxYiFgxP/8uVf
6gApZeK8Sha8K8JrB++xMUIe1wYEzkNH1gUXHk8PIVs37FFpa2DxbW5UX5o+
LmdWGmuJNDB/bOxQ0IQBEpaXRZ320URRPIe7ZZsRbN783HZuRBP/TKaUq/4y
htv4qgFycT6ePGuwVhRwsCxbceaIlxbOvhiRZglMoHSr8vZ+qwVeR6NL/rQJ
lvqpq4qKtFEudC3aUWEK1xRfbgRfB/0e+kk1PgysP+pyYL/UAYtzYmusnhkO
Ow+32grZGDye19d93QziUJOcmqW6kCj9j9yMMcduZaX6dqsuaHRExgpHCzQP
pk6eT9GDpMgmzrfZAjZMmCaLqw9lQ6KgPX0B+k833Ght0sdMSXKv3TpL5K3k
J66KNkBvxkPz2XZLTHl0P/IzMETZ8abVTnlW6Lpr8HS01hDrOZFWH8Maol3u
CrMAIxSKpUPCSWv0e05fuKRljNausuIzooXQ21kf8afYGEqnzibX7TY4NCYL
8VvMwf3cxl5Pti3sB84pTx3j4ORPvi84NbZwie1+N9rIgV5uhpQXvQjW9l8/
siMmOFDJsRp2sENbvv5sdYIJLkZ/tu3gQzvMFnzyS/o9E/gWpNVx3bjoaSj5
1NLWFO5Nm3gHirigaT8IeqJMQQyXxM2puIjXLiwmv5ui60G7w10PgsgaeaM5
wyBXHn4nvJR8+CVN9tjHoGJq82LFBYKc8wGlV0MZ3GIcT4WWEfhvU9+xCGOg
FHS57xURdFQ6s+URDDaWBzd+JSEYiKrPSYxm0Bm6s9mrjoA90CKWHGOwRuHR
wWsmcO0ZaDHKZiCYXU6vtRBoF2SNfnOaQYCFbunaxwR/f752wcscBqmb7+9d
3UawXXw4UJzH4IlI0O34imBPmFpBixkkhvMHrHoIkrp0pmNFDLJPLPQq6CVA
bsWip2IG5WfUVyz6CTTcvtjkXMHgwf26GEZFkFGWlaYrYWC/bN2IwShBQYi5
ycUqButh5ps5RhBoWstjVzPwDBip0Z0g4N4J8I+uYRCfXpWgrSYQkZLijbUM
Mkqzn56aIjjY4nyrtI7BubqYDZozBGtSX8u0bzKobvYuTJ0lGF6bqhn1K4OG
ntXquTkCqcze8fFvDP4DGBwyyA==
            "]]}, 
          "Charting`Private`Tag$51074#1"]}}, {}, {}}, {{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            AbsoluteThickness[1.6], 
            Dashing[{Small, Small}], 
            GrayLevel[0]], 
           Line[CompressedData["
1:eJwVjns01HkAxUdkkPeb7PjK7CBNZhhiGHN/xjJl0E5ZpvXKetXJ45RK65W0
aj2i2JUSFmV6rNAoIq2NSg9NVlvSw/bc7HY2uzoV2tnZP+65557PPedeh4QM
adICGo0Wqtb/3lLPMKHRmFA2HGcUXFQJHZ43G7zWZMK43ay3+bJKWO/qonef
zkTlZffMqzdVwoPdHpoKI3WO3s80faASlo+K36bYq/vfjHcde68SbtPeMn7L
nwmdkEzBlDUNwelXfmjIY+Ieu1LsIKVhSpDpLpxjQn6uYqdikIaeAVZh4yIW
xPK1XdcvaOBlh877GV0nyCcDZLzWBbhXmi+SaDoju+Zk2a0yTUhXyfqGTFwg
Vi6bulisBdetcTHuhkuRHcnaM5a5EOW7r7kO2LtCHpC4PDVDG515wyPSZcvg
TZIfYyMdXk//qb3LYkMnnNIyitCBiF10IN9rOXTO9bvtX6uL008FZ6x5bugW
1NpMi/TwFxU0ts6SA+8Gp5Zkt0UI0WpM4h/hwDoqLHnQTR93c41KzRZzIV/X
X3rb3gCtKdwrec1ceHPDx6eZhpAFH0nb4OIOuUfFWT7LCPyHDHnYMXdUcwu+
LlxkjPjn0g+DbA+0+GpFlewzRldz3SPeKQ9UV7f2BemaIHzs4H1PTx4GFY/G
LuwzwbUPj9Ddy8MNyZpCytQUW+/wfXk+nmhRstjx5aZIdFwpoQY8EWj2VUSE
mRmKnNKmg+GFus0pRuOV6kwmaMo+L/CqcopW65vjaukc65VoBbTiKkd7DpjD
70fub3MDKyBp4iXXGlvgLWw7G1Z5Y2bWX1ZYa4GKYcnrQaU3+ua5b5OJJWQ6
3/U9DfUBM33ixPF6S6T0VDRV3fHBzFCVwMTZCkdJo51gLR/R/gqXYbkVBnNn
aalKPso2OgmTnKzhHEKfd4z0xbPQNiqgwxq9t1xKx8d8Yd5bc/oLdxtUXf6X
Q2L88GzEz+FSvw0ObXm1Mf6BH+y2H30nC7BFkQXDaIlMAMljq703Ltmi3WXh
taxJAaIdJ0fOrF4MgxkNm4FYf0iOxGqcGluMNk5Hfv1Lf2wyYBZzEu3ASTgR
9jFNCLtdEs7haTs8WdnTGfGHEFolM4nzWz/Bn59f+L7BB8jySr9O12ZANe7M
MNkB7Ba/jJ0vY2BXdM860TnALuDXmD4TezhZNy/pnwVmPm2cEzXZ41lbjaLL
h4JegY/0pjlBCVfxcIRPYZtlu2rOgoCjUGr/7kvh7GfnO5ZaEeT06Mps/SkU
d37ruNeGwHQw52N+AIWSLkt/EYOAGo8LEodQOPDkfdh5J4J6Ted796MpNP0t
mzzJJwgsDtSYiVHvPUgiE74EUzrrlxrEqXk1PUlPQOBpeChXuF69f15/PlVI
cMNa36ElicKxYfv1rECCWfabDWnpFGwLsulNoQSN7fpVxRkU+G2vKm+HEQR5
uPQ1ZFJouzrN0FhNsN87wXB0s/qf9hVxvJTAWTTW6bVdzWv2/MKIJBgZejMR
nk3hZ9POwrAogiyxwcINOyisomfx8mUEP4UGRR7OoTDa3N/68EuCZGXCTkUu
hdiM4FSDGAL9NQXHb+ap/86lsAWxBJ13Do++yKfwQkbebYojiIzqnlMVUNhc
lzlUF0/wH6kF9vk=
            "]]}, 
          "Charting`Private`Tag$51273#1"]}}, {}, {}}}, {
     Frame -> True, FrameLabel -> {"z (\[Mu]m)", "R (\[Mu]m)"}, PlotLabel -> 
      "Calibration", PlotRange -> {{0.5, 35}, Automatic}, DisplayFunction -> 
      Identity, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, AxesOrigin -> {0, 0}, 
      PlotRange -> {{0, 9.}, {0, 4.934399300632964}}, 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, 4.934399300632964}}, 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}]}, {
         GrayLevel[0], 
         Dashing[{Small, Small}]}}, {"Dataset", "BestFit", "i) Referencia"}, 
       LegendFunction -> Panel]], {{0.58, 0.7}, {0., 1.8}}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.898354914657175*^9, 3.898354940462514*^9}, {
   3.8983550612157497`*^9, 3.898355134977784*^9}, 3.898355167897703*^9, {
   3.898356515032454*^9, 
   3.8983565529760113`*^9}},ExpressionUUID->"45b207dc-8a6c-4b74-9def-\
8f5b589ec8bc"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Export", " ", "Numerical", " ", "Results"}], " ", "&"}], " ", 
    "Plots"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Resultsum/CalibrationPlot.pdf\>\"", ",", "plot"}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Resultsum/Residuals.pdf\>\"", ",", "ResPlot"}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Resultsum/CombinedPlot.pdf\>\"", ",", "plotCombined"}], 
     "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Resultsum/R2.dat\>\"", ",", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{
        RowBox[{"zRFit", "[", "\"\<RSquared\>\"", "]"}], ",", "4"}], "]"}]}], 
     "]"}], ";", 
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Resultsum/DoF.dat\>\"", ",", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{"\[Nu]", ",", "4"}], "]"}]}], "]"}], ";", 
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Resultsum/Chi2.dat\>\"", ",", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{"\[Chi]2\[Nu]", ",", "4"}], "]"}]}], "]"}], ";", 
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Resultsum/P.dat\>\"", ",", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{"P", ",", "4"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Resultsum/D.dat\>\"", ",", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{"d", ",", "4"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Resultsum/b.dat\>\"", ",", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"zRFit", "[", "\"\<BestFitParameters\>\"", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", "4"}], "]"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Resultsum/m.dat\>\"", ",", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"zRFit", "[", "\"\<BestFitParameters\>\"", "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", "4"}], "]"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Resultsum/muRes.dat\>\"", ",", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{
        RowBox[{"Mean", "@", 
         RowBox[{"zRFit", "[", "\"\<StandardizedResiduals\>\"", "]"}]}], ",", 
        "2"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Resultsum/sigmaRes.dat\>\"", ",", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{
        RowBox[{"StandardDeviation", "@", 
         RowBox[{"zRFit", "[", "\"\<StandardizedResiduals\>\"", "]"}]}], ",", 
        "2"}], "]"}]}], "]"}], ";"}]}]}]], "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.898131222709573*^9, 
  3.898131239829628*^9}, {3.898265009899935*^9, 3.898265009935853*^9}, {
  3.898270911577175*^9, 3.898270916134976*^9}, {3.8982735578863173`*^9, 
  3.8982736045132427`*^9}, {3.898355209153472*^9, 
  3.898355216091601*^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, 2090, 45, 245, "Input", "ExpressionUUID" -> \
"f10e30c1-3602-4466-bed7-66b87cbfd081"],
Cell[2673, 69, 895, 14, 35, "Output", "ExpressionUUID" -> \
"51348760-4ccf-45f6-ab15-8893c5eaffde"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3605, 88, 213, 4, 32, "Subsubsection", "ExpressionUUID" -> \
"efd3c296-3988-45aa-b4ab-54c4b4965a9b"],
Cell[3821, 94, 1645, 37, 200, "Input", "ExpressionUUID" -> \
"f9d53e53-6f1f-4f33-8e40-554ffe7c33de"],
Cell[5469, 133, 443, 12, 58, "Input", "ExpressionUUID" -> \
"a5460eb8-70c2-4008-ab41-86fdbb1e0ee9"],
Cell[5915, 147, 535, 15, 58, "Input", "ExpressionUUID" -> \
"f11653a3-fbd1-46c9-9980-20593737d40a"],
Cell[6453, 164, 1487, 41, 224, "Input", "ExpressionUUID" -> \
"f38af264-9ea4-49b7-874f-8d20fee69a5a"],
Cell[7943, 207, 2824, 58, 107, "Input", "ExpressionUUID" -> \
"d952e387-8d70-457a-9300-cda09be1247d"],
Cell[10770, 267, 703, 20, 58, "Input", "ExpressionUUID" -> \
"21d3ddde-1d0d-4f0c-b865-b75bb6255adb"],
Cell[11476, 289, 5528, 113, 161, "Input", "ExpressionUUID" -> \
"118d8910-d13d-4b9b-9708-a016b61b0a78"],
Cell[17007, 404, 1911, 49, 215, "Input", "ExpressionUUID" -> \
"badee4e4-887b-4eca-bed6-3158d1555b71"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18955, 458, 163, 3, 32, "Subsubsection", "ExpressionUUID" -> \
"25458495-adf9-409c-ad2a-d426bccebb5c"],
Cell[CellGroupData[{
Cell[19143, 465, 9291, 192, 677, "Input", "ExpressionUUID" -> \
"025c5697-27a1-47b0-8c63-ea50df8730d1"],
Cell[CellGroupData[{
Cell[28459, 661, 1202, 18, 25, "Print", "ExpressionUUID" -> \
"dea66a17-baef-4e64-b8ed-09079189f9bf"],
Cell[29664, 681, 1298, 21, 25, "Print", "ExpressionUUID" -> \
"03369dd5-d01c-462b-be52-f3a2a66292ba"],
Cell[30965, 704, 1402, 23, 25, "Print", "ExpressionUUID" -> \
"e0c7176c-3245-4da5-af4a-14f518bc8114"],
Cell[32370, 729, 1330, 22, 25, "Print", "ExpressionUUID" -> \
"b5e111fd-b57a-4c8a-82d5-f6737a82bb69"],
Cell[33703, 753, 1511, 26, 25, "Print", "ExpressionUUID" -> \
"f48ae3dd-19e3-4b6c-8fb1-16cae16405d0"],
Cell[35217, 781, 1529, 26, 25, "Print", "ExpressionUUID" -> \
"5444a83f-e581-4bb6-9a12-4f05461547ed"],
Cell[36749, 809, 1360, 22, 25, "Print", "ExpressionUUID" -> \
"4d0b31cc-9a7f-495e-9740-97e07d2cff2e"],
Cell[38112, 833, 2032, 37, 68, "Print", "ExpressionUUID" -> \
"82ca3168-1a5a-4bde-af5b-2d13c18e12c5"],
Cell[40147, 872, 1202, 18, 25, "Print", "ExpressionUUID" -> \
"0e9df8b8-d164-4c72-b89c-5b2784a4cbdc"]
}, Open  ]],
Cell[41364, 893, 30980, 617, 249, "Output", "ExpressionUUID" -> \
"84921cdc-0b8b-4900-96d3-3349833e5c28"],
Cell[72347, 1512, 3300, 68, 116, "Output", "ExpressionUUID" -> \
"1291091a-1c14-40d3-bff8-c12388713b42"]
}, Open  ]],
Cell[CellGroupData[{
Cell[75684, 1585, 2782, 73, 251, "Input", "ExpressionUUID" -> \
"8b7f9097-61d1-43e1-b264-64b2c0dff539"],
Cell[78469, 1660, 37169, 743, 302, "Output", "ExpressionUUID" -> \
"45b207dc-8a6c-4b74-9def-8f5b589ec8bc"]
}, Open  ]],
Cell[115653, 2406, 3501, 88, 322, "Input", "ExpressionUUID" -> \
"1ee20d34-d5cb-4c62-9db6-1cdf3ec9a974"]
}, Open  ]]
}
]
*)