convergencia-up.nb

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

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

(* CreatedBy='Mathematica 13.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    270197,       6548]
NotebookOptionsPosition[    266061,       6478]
NotebookOutlinePosition[    266483,       6495]
CellTagsIndexPosition[    266440,       6492]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"myAxesSize", "=", "21"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"myLabelSize", "=", "18"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"myImageSize", "=", "1000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"1", "/", "2"}], ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"1", "/", "8"}], ",", 
     RowBox[{"1", "/", "16"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.9084535539893436`*^9, 3.908453554134025*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"c91a52e6-2f0a-44da-9ff6-ed50e75f1bf2"],

Cell[CellGroupData[{

Cell["Poisson 0.3", "Chapter",
 CellChangeTimes->{{3.907851935594325*^9, 3.9078519395300694`*^9}, {
  3.9084535637862453`*^9, 
  3.9084535664198427`*^9}},ExpressionUUID->"3b714971-f858-4c2c-a2be-\
915bcf17db79"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"poisson", "=", "0.3"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Errors1", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.0251797", ",", "0.62113", ",", "0.764558", ",", "532.949", ",", 
       "0.0302157", ",", "0.745356", ",", "4.44299", ",", "65.7889"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors2", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.00641064", ",", "0.62113", ",", "0.0994091", ",", "524.069", ",", 
       "0.00769276", ",", "0.745356", ",", "1.12451", ",", "57.3788"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors3", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.00161181", ",", "0.62113", ",", "0.00723868", ",", "521.84", ",", 
       "0.00193418", ",", "0.745356", ",", "0.285255", ",", "55.0652"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors4", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.000403853", ",", "0.62113", ",", "0.000967288", ",", "521.285", ",", 
       "0.000484624", ",", "0.745356", ",", "0.0718104", ",", "54.4707"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors5", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.000101098", ",", "0.62113", ",", "0.000119287", ",", "521.148", ",", 
       "0.000121318", ",", "0.745356", ",", "0.0180148", ",", "54.3211"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Err", "=", 
     RowBox[{"{", 
      RowBox[{
      "Errors1", ",", "Errors2", ",", "Errors3", ",", "Errors4", ",", 
       "Errors5"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"perr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"uerr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"divuerr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sigmaerr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListLogLogPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"perr", ",", "uerr", ",", "divuerr", ",", "sigmaerr"}], "}"}], 
     ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "myImageSize"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<h\>\"", ",", "myAxesSize", ",", "Black"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Error\>\"", ",", "myAxesSize", ",", "Black"}], "]"}]}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"myLabelSize", "*", "1.2"}], ",", "Bold", ",", "Black"}], 
       "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"LineLegend", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\"\<p\>\"", ",", "\"\<u\>\"", ",", "\"\<divu\>\"", ",", 
            "\"\<\[Sigma]\>\""}], "}"}], ",", 
          RowBox[{"LegendFunction", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Framed", "[", 
              RowBox[{"#1", ",", " ", 
               RowBox[{"FrameMargins", " ", "->", " ", "0"}], ",", 
               RowBox[{"Background", "\[Rule]", "White"}]}], "]"}], " ", 
             "&"}], " ", ")"}]}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.2", ",", "0.75"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"perr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"perr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "uerr", "]"}], "-", "1"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"uerr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"uerr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "uerr", "]"}], "-", "1"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"divuerr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"divuerr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "divuerr", "]"}], "-", "1"}]}], "}"}]}], "]"}],
    "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"sigmaerr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"sigmaerr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "sigmaerr", "]"}], "-", "1"}]}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.9078519658029337`*^9, 3.907852053182961*^9}, {
   3.908290645564868*^9, 3.908290693308462*^9}, {3.908449899328473*^9, 
   3.908449956000535*^9}, {3.908450176287027*^9, 3.908450183982122*^9}, {
   3.9084510231611013`*^9, 3.908451027013647*^9}, {3.908453576199782*^9, 
   3.908453579302174*^9}, {3.908453829397449*^9, 3.908453877875761*^9}, {
   3.910951432630103*^9, 3.910951453844344*^9}, {3.9109514852577343`*^9, 
   3.9109515107409067`*^9}, {3.911305788403063*^9, 3.9113058419805098`*^9}, 
   3.911306535868499*^9},
 CellLabel->
  "In[216]:=",ExpressionUUID->"666ffb1c-1764-47ec-90a7-f9c7b08d6664"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{}, {{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{
         0., -3.6817171646545437`}, {-0.6931471805599453, \
-5.049796169039879}, {-1.3862943611198906`, -6.430397507849407}, \
{-2.0794415416798357`, -7.814459607602879}, {-2.772588722239781, \
-9.199420214527192}}]}, 
       {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{
         0., -0.2684573899112798}, {-0.6931471805599453, \
-2.3085116202142153`}, {-1.3862943611198906`, -4.928316409648893}, \
{-2.0794415416798357`, -6.941014278517978}, {-2.772588722239781, \
-9.033978203783706}}]}, 
       {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{
         0., -3.4993936221359636`}, {-0.6931471805599453, \
-4.867475652184234}, {-1.3862943611198906`, -6.248071814927199}, \
{-2.0794415416798357`, -7.6321372254264315`}, {-2.772588722239781, \
-9.017095360607836}}]}, 
       {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{0., 1.4913275732197508`}, {-0.6931471805599453, 
         0.11734738521895494`}, {-1.3862943611198906`, -1.254371761909788}, \
{-2.0794415416798357`, -2.6337259666205854`}, {-2.772588722239781, \
-4.016561636703268}}]}}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], DiskBox[{0, 0}]}],
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[6.272]], {{{
         0., -3.6817171646545437`}}, {{-0.6931471805599453, \
-5.049796169039879}}, {{-1.3862943611198906`, -6.430397507849407}}, \
{{-2.0794415416798357`, -7.814459607602879}}, {{-2.772588722239781, \
-9.199420214527192}}}]}, 
       {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], 
              PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}],
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.880722, 0.611041, 0.142051], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[6.72]], {{{
         0., -0.2684573899112798}}, {{-0.6931471805599453, \
-2.3085116202142153`}}, {{-1.3862943611198906`, -4.928316409648893}}, \
{{-2.0794415416798357`, -6.941014278517978}}, {{-2.772588722239781, \
-9.033978203783706}}}]}, 
       {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}],
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.560181, 0.691569, 0.194885], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[8.16]], {{{
         0., -3.4993936221359636`}}, {{-0.6931471805599453, \
-4.867475652184234}}, {{-1.3862943611198906`, -6.248071814927199}}, \
{{-2.0794415416798357`, -7.6321372254264315`}}, {{-2.772588722239781, \
-9.017095360607836}}}]}, 
       {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], 
              PolygonBox[
               NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                 1, 1 - 3^Rational[1, 2]}}, {{0, 
                 1}, {-1, -0.7320508075688772}, {1, -0.7320508075688772}}]]}],
            
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.922526, 0.385626, 0.209179], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[7.6]], {{{0., 
         1.4913275732197508`}}, {{-0.6931471805599453, 
         0.11734738521895494`}}, {{-1.3862943611198906`, \
-1.254371761909788}}, {{-2.0794415416798357`, -2.6337259666205854`}}, \
{{-2.772588722239781, -4.016561636703268}}}]}}}, {{}, {}}}, InsetBox[
     TemplateBox[{"\"p\"", "\"u\"", "\"divu\"", "\"\[Sigma]\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 6.272}, {20, 6.272}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 6.272}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.08426020408163262] -> 
                    Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 6.72}, {20, 6.72}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 6.72}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.051309523809523805`] -> 
                    Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 8.16}, {20, 8.16}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 8.16}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.03009803921568628] -> 
                    Baseline)], #3}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 7.6}, {20, 7.6}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[
                    
                    NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                    1, 1 - 3^Rational[1, 2]}}, {{0, 
                    1}, {-1, -0.7320508075688772}, {
                    1, -0.7320508075688772}}]]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 7.6}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.002105263157894735] -> 
                    Baseline)], #4}}, 
                  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, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
           Directive[21.599999999999998`, Bold, 
            GrayLevel[0]], FontFamily -> "Arial"}, Background -> Automatic, 
          StripOnInput -> False], FrameMargins -> 0, Background -> 
         GrayLevel[1], StripOnInput -> False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}], ",", 
                    RowBox[{"Offset", "[", "6.272`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], ",", 
                    RowBox[{"Offset", "[", "6.72`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], ",", 
                    RowBox[{"Offset", "[", "8.16`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[
                    
                    NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                    1, 1 - 3^Rational[1, 2]}}, {{0, 
                    1}, {-1, -0.7320508075688772}, {
                    1, -0.7320508075688772}}]]}], ",", 
                    RowBox[{"Offset", "[", "7.6`", "]"}]}], "}"}]}], "}"}]}], 
           ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "True", ",", "True"}], 
               "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
               RowBox[{"21.599999999999998`", ",", "Bold", ",", 
                 
                 TemplateBox[<|"color" -> GrayLevel[0]|>, 
                  "GrayLevelColorSwatchTemplate"]}], "]"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox[
                 "#1", FrameMargins -> 0, Background -> GrayLevel[1], 
                  StripOnInput -> False], "&"}], ")"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.2, 0.75}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{
     FormBox[
      TagBox[
       StyleBox["\"h\"", 21, 
        GrayLevel[0], StripOnInput -> False], HoldForm], TraditionalForm], 
     FormBox[
      TagBox[
       StyleBox["\"Error\"", 21, 
        GrayLevel[0], StripOnInput -> False], HoldForm], TraditionalForm]},
   AxesOrigin->{-2.8893166328549054`, -10.036031899231384`},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0], 
      Charting`ScaledFrameTicks[{Log, Exp}]}, {
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0], 
      Charting`ScaledFrameTicks[{Log, Exp}]}},
   GridLines->FrontEndValueCache[{
      Charting`ScaledTickValues[{Log, Exp}], 
      Charting`ScaledTickValues[{Log, Exp}]}, {{{-2.3025850929940455`, 
        Directive[]}, {-1.6094379124341003`, 
        Directive[]}, {-0.6931471805599453, 
        Directive[]}, {0., 
        Directive[]}}, {{-9.210340371976182, 
        Directive[]}, {-6.907755278982137, 
        Directive[]}, {-4.605170185988091, 
        Directive[]}, {-2.3025850929940455`, 
        Directive[]}, {0., 
        Directive[]}}}],
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImageSize->1000,
   LabelStyle->Directive[21.599999999999998`, Bold, 
     GrayLevel[0]],
   Method->{
    "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
     "DefaultGraphicsInteraction" -> {
      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
       "Effects" -> {
        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
         "Droplines" -> {
          "freeformCursorMode" -> True, 
           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
     "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
       Directive[
        RGBColor[0.368417, 0.506779, 0.709798], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.880722, 0.611041, 0.142051], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.560181, 0.691569, 0.194885], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.922526, 0.385626, 0.209179], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.528488, 0.470624, 0.701351], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.772079, 0.431554, 0.102387], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.363898, 0.618501, 0.782349], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[1, 0.75, 0], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.647624, 0.37816, 0.614037], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.571589, 0.586483, 0.], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.915, 0.3325, 0.2125], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
        
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
        AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
     "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
     "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         Exp[
          Part[#, 1]], 
         Exp[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         Exp[
          Part[#, 1]], 
         Exp[
          Part[#, 2]]}& )}},
   PlotRange->{{-2.8893166328549054`, 0.}, {-10.036031899231384`, 
    1.4913275732197508`}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->FrontEndValueCache[{
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0], 
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0]}, {{{-2.3025850929940455`, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.1\"", ShowStringCharacters -> False], 
           0.1`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 
        0.}}, {-1.6094379124341003`, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.2\"", ShowStringCharacters -> False], 
           0.2`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 
        0.}}, {-0.6931471805599453, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.5\"", ShowStringCharacters -> False], 
           0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {0., 
        FormBox["1", TraditionalForm], {0.01, 0.}}, {-2.995732273553991, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.8134107167600364`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.659260036932778, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.5257286443082556`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.4079456086518722`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-1.8971199848858813`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-1.2039728043259361`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.916290731874155, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.5108256237659907, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.35667494393873245`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.2231435513142097, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.10536051565782628`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       0.4054651081081644, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       0.6931471805599453, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.0986122886681098`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.3862943611198906`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.6094379124341003`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}}, {{-9.210340371976182, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
         TraditionalForm], {0.01, 0.}}, {-6.907755278982137, 
        FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-4.605170185988091, 
        
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.010\"", ShowStringCharacters -> False], 
           0.01`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 
        0.}}, {-2.3025850929940455`, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.100\"", ShowStringCharacters -> False], 
           0.1`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}}, {0., 
        FormBox["1", TraditionalForm], {0.01, 0.}}, {-11.512925464970229`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-10.819778284410283`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-10.41431317630212, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-10.126631103850338`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-9.903487552536127, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-9.721165995742174, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-9.567015315914915, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-9.433483923290392, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-9.315700887634009, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-8.517193191416238, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-8.111728083308073, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-7.824046010856292, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-7.600902459542082, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-7.418580902748128, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-7.264430222920869, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-7.1308988302963465`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-7.013115794639964, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-6.214608098422191, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-5.809142990314028, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-5.521460917862246, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-5.298317366548036, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-5.115995809754082, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-4.961845129926823, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-4.8283137373023015`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-4.710530701645918, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-3.912023005428146, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-3.506557897319982, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-3.2188758248682006`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.995732273553991, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.8134107167600364`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.659260036932778, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.5257286443082556`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.4079456086518722`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-1.6094379124341003`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-1.2039728043259361`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.916290731874155, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.6931471805599453, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.5108256237659907, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.35667494393873245`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.2231435513142097, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.10536051565782628`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       0.6931471805599453, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.0986122886681098`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.3862943611198906`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.6094379124341003`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.791759469228055, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.9459101490553132`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       2.0794415416798357`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       2.1972245773362196`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       2.302585092994046, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       2.995732273553991, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       3.4011973816621555`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]],
  InterpretTemplate[Legended[
    Graphics[{{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Line[{{
          0., -3.6817171646545437`}, {-0.6931471805599453, \
-5.049796169039879}, {-1.3862943611198906`, -6.430397507849407}, \
{-2.0794415416798357`, -7.814459607602879}, {-2.772588722239781, \
-9.199420214527192}}]}, {
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         Line[{{
          0., -0.2684573899112798}, {-0.6931471805599453, \
-2.3085116202142153`}, {-1.3862943611198906`, -4.928316409648893}, \
{-2.0794415416798357`, -6.941014278517978}, {-2.772588722239781, \
-9.033978203783706}}]}, {
         Hue[0.1421359549995791, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         Line[{{
          0., -3.4993936221359636`}, {-0.6931471805599453, \
-4.867475652184234}, {-1.3862943611198906`, -6.248071814927199}, \
{-2.0794415416798357`, -7.6321372254264315`}, {-2.772588722239781, \
-9.017095360607836}}]}, {
         Hue[0.37820393249936934`, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         Line[{{0., 1.4913275732197508`}, {-0.6931471805599453, 
          0.11734738521895494`}, {-1.3862943611198906`, -1.254371761909788}, \
{-2.0794415416798357`, -2.6337259666205854`}, {-2.772588722239781, \
-4.016561636703268}}]}}, {{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              Disk[{0, 0}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.368417, 0.506779, 0.709798], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[6.272]], {{{
          0., -3.6817171646545437`}}, {{-0.6931471805599453, \
-5.049796169039879}}, {{-1.3862943611198906`, -6.430397507849407}}, \
{{-2.0794415416798357`, -7.814459607602879}}, {{-2.772588722239781, \
-9.199420214527192}}}]}, {
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              Polygon[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.880722, 0.611041, 0.142051], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[6.72]], {{{
          0., -0.2684573899112798}}, {{-0.6931471805599453, \
-2.3085116202142153`}}, {{-1.3862943611198906`, -4.928316409648893}}, \
{{-2.0794415416798357`, -6.941014278517978}}, {{-2.772588722239781, \
-9.033978203783706}}}]}, {
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              Polygon[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.560181, 0.691569, 0.194885], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[8.16]], {{{
          0., -3.4993936221359636`}}, {{-0.6931471805599453, \
-4.867475652184234}}, {{-1.3862943611198906`, -6.248071814927199}}, \
{{-2.0794415416798357`, -7.6321372254264315`}}, {{-2.772588722239781, \
-9.017095360607836}}}]}, {
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              
              Polygon[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                1, 1 - 3^Rational[1, 2]}}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.922526, 0.385626, 0.209179], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[7.6]], {{{0., 1.4913275732197508`}}, {{-0.6931471805599453, 
          0.11734738521895494`}}, {{-1.3862943611198906`, \
-1.254371761909788}}, {{-2.0794415416798357`, -2.6337259666205854`}}, \
{{-2.772588722239781, -4.016561636703268}}}]}}}, {{}, {}}}, {
     DisplayFunction -> Identity, GridLines -> {
        Charting`ScaledTickValues[{Log, Exp}], 
        Charting`ScaledTickValues[{Log, Exp}]}, DisplayFunction -> Identity, 
      DisplayFunction -> Identity, DisplayFunction -> Identity, 
      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
      Axes -> {True, True}, AxesLabel -> {
        HoldForm[
         Style["h", 21, 
          GrayLevel[0]]], 
        HoldForm[
         Style["Error", 21, 
          GrayLevel[0]]]}, 
      AxesOrigin -> {-2.8893166328549054`, -10.036031899231384`}, 
      DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{
         Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", 
          WorkingPrecision -> 15.954589770191003`, RotateLabel -> 0], 
         Charting`ScaledFrameTicks[{Log, Exp}]}, {
         Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", 
          WorkingPrecision -> 15.954589770191003`, RotateLabel -> 0], 
         Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {
        Charting`ScaledTickValues[{Log, Exp}], 
        Charting`ScaledTickValues[{Log, Exp}]}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 1000, LabelStyle -> 
      Directive[21.599999999999998`, Bold, 
        GrayLevel[0]], 
      Method -> {
       "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
          Directive[
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.922526, 0.385626, 0.209179], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.528488, 0.470624, 0.701351], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.772079, 0.431554, 0.102387], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.363898, 0.618501, 0.782349], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[1, 0.75, 0], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.647624, 0.37816, 0.614037], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.571589, 0.586483, 0.], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.915, 0.3325, 0.2125], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[
           0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
           AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
        "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> 
        Scaled[0.05], "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> 
        True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Exp[
             Part[#, 1]], 
            Exp[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Exp[
             Part[#, 1]], 
            Exp[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{-2.8893166328549054`, 0.}, {-10.036031899231384`, 
       1.4913275732197508`}}, PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, Ticks -> {
        Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
         15.954589770191003`, RotateLabel -> 0], 
        Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
         15.954589770191003`, RotateLabel -> 0]}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]]}, {"p", "u", "divu", "\[Sigma]"}, 
       LegendMarkers -> {{
          Graphics[{
            EdgeForm[], 
            Disk[{0, 0}]}], 
          Offset[6.272]}, {
          Graphics[{
            EdgeForm[], 
            Polygon[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], 
          Offset[6.72]}, {
          Graphics[{
            EdgeForm[], 
            Polygon[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], 
          Offset[8.16]}, {
          Graphics[{
            EdgeForm[], 
            
            Polygon[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
              1, 1 - 3^Rational[1, 2]}}]}], 
          Offset[7.6]}}, Joined -> {True, True, True, True}, LabelStyle -> 
       Directive[21.599999999999998`, Bold, 
         GrayLevel[0]], 
       LegendFunction -> (
        Framed[#, FrameMargins -> 0, Background -> White]& ), LegendLayout -> 
       "Column"]], {0.2, 0.75}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.9082906847530937`*^9, 3.9082907033825407`*^9}, 
   3.908290771842564*^9, {3.908450090400032*^9, 3.908450109289966*^9}, {
   3.9084501704977007`*^9, 3.908450186551008*^9}, 3.908453583287899*^9, 
   3.9084538836696978`*^9, 3.910951514690267*^9, 3.9113058473513317`*^9, 
   3.911306542304976*^9},
 CellLabel->
  "Out[226]=",ExpressionUUID->"ea730cad-137e-46b6-bd51-d13959c6b2ca"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.9737207951710325`", ",", "1.9917867049451699`", ",", 
   "1.9967795275967002`", ",", "1.9980757994362757`"}], "}"}]], "Output",
 CellChangeTimes->{{3.9082906847530937`*^9, 3.9082907033825407`*^9}, 
   3.908290771842564*^9, {3.908450090400032*^9, 3.908450109289966*^9}, {
   3.9084501704977007`*^9, 3.908450186551008*^9}, 3.908453583287899*^9, 
   3.9084538836696978`*^9, 3.910951514690267*^9, 3.9113058473513317`*^9, 
   3.911306542366312*^9},
 CellLabel->
  "Out[227]=",ExpressionUUID->"1a6f4596-abc2-4e72-b679-5ec3b67a9a8c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.9431761212025953`", ",", "3.7795793778145654`", ",", 
   "2.903709234225213`", ",", "3.019508675740364`"}], "}"}]], "Output",
 CellChangeTimes->{{3.9082906847530937`*^9, 3.9082907033825407`*^9}, 
   3.908290771842564*^9, {3.908450090400032*^9, 3.908450109289966*^9}, {
   3.9084501704977007`*^9, 3.908450186551008*^9}, 3.908453583287899*^9, 
   3.9084538836696978`*^9, 3.910951514690267*^9, 3.9113058473513317`*^9, 
   3.9113065423677187`*^9},
 CellLabel->
  "Out[228]=",ExpressionUUID->"379a5688-a3d4-4cb8-8eb5-afbed5138fc8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.9737251602799464`", ",", "1.9917792374596068`", ",", 
   "1.9967843039931905`", ",", "1.9980722334650387`"}], "}"}]], "Output",
 CellChangeTimes->{{3.9082906847530937`*^9, 3.9082907033825407`*^9}, 
   3.908290771842564*^9, {3.908450090400032*^9, 3.908450109289966*^9}, {
   3.9084501704977007`*^9, 3.908450186551008*^9}, 3.908453583287899*^9, 
   3.9084538836696978`*^9, 3.910951514690267*^9, 3.9113058473513317`*^9, 
   3.911306542368976*^9},
 CellLabel->
  "Out[229]=",ExpressionUUID->"9bcf269d-3474-442c-81c2-aca6c8df8138"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.9822344035084336`", ",", "1.9789724110550757`", ",", 
   "1.9899874707656078`", ",", "1.9950101635926527`"}], "}"}]], "Output",
 CellChangeTimes->{{3.9082906847530937`*^9, 3.9082907033825407`*^9}, 
   3.908290771842564*^9, {3.908450090400032*^9, 3.908450109289966*^9}, {
   3.9084501704977007`*^9, 3.908450186551008*^9}, 3.908453583287899*^9, 
   3.9084538836696978`*^9, 3.910951514690267*^9, 3.9113058473513317`*^9, 
   3.911306542369834*^9},
 CellLabel->
  "Out[230]=",ExpressionUUID->"2a87dfce-4b39-4e01-b7d0-462b22777780"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Poisson 0.49", "Chapter",
 CellChangeTimes->{{3.9084536150111027`*^9, 
  3.90845363211487*^9}},ExpressionUUID->"4a6b8362-e8f3-492c-acd9-\
70b64474dc47"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"poisson", "=", "0.49"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Errors1", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.0350839", ",", "0.62113", ",", "1.04819", ",", "532.662", ",", 
       "0.00210503", ",", "0.0372678", ",", "5.40987", ",", "65.8037"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors2", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.00910921", ",", "0.62113", ",", "0.142021", ",", "524.115", ",", 
       "0.000546553", ",", "0.0372678", ",", "1.39997", ",", "57.387"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors3", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.00230788", ",", "0.62113", ",", "0.00933984", ",", "521.967", ",", 
       "0.000138473", ",", "0.0372678", ",", "0.360605", ",", "55.0692"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors4", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.000579709", ",", "0.62113", ",", "0.00129259", ",", "521.431", ",", 
       RowBox[{"3.47826", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "05"}]}]}], ",", "0.0372678", ",", "0.0915324", ",", 
       "54.4733"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors5", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.000145318", ",", "0.62113", ",", "0.000159981", ",", "521.299", ",", 
       
       RowBox[{"8.71906", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "06"}]}]}], ",", "0.0372678", ",", "0.0230596", ",", 
       "54.3232"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Err", "=", 
     RowBox[{"{", 
      RowBox[{
      "Errors1", ",", "Errors2", ",", "Errors3", ",", "Errors4", ",", 
       "Errors5"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"perr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"uerr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"divuerr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sigmaerr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListLogLogPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"perr", ",", "uerr", ",", "divuerr", ",", "sigmaerr"}], "}"}], 
     ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "myImageSize"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<h\>\"", ",", "myAxesSize", ",", "Black"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Error\>\"", ",", "myAxesSize", ",", "Black"}], "]"}]}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"myLabelSize", "*", "1.2"}], ",", "Bold", ",", "Black"}], 
       "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"LineLegend", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\"\<p\>\"", ",", "\"\<u\>\"", ",", "\"\<divu\>\"", ",", 
            "\"\<\[Sigma]\>\""}], "}"}], ",", 
          RowBox[{"LegendFunction", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Framed", "[", 
              RowBox[{"#1", ",", " ", 
               RowBox[{"FrameMargins", " ", "->", " ", "0"}], ",", 
               RowBox[{"Background", "\[Rule]", "White"}]}], "]"}], " ", 
             "&"}], " ", ")"}]}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.2", ",", "0.75"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"perr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"perr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "uerr", "]"}], "-", "1"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"uerr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"uerr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "uerr", "]"}], "-", "1"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"divuerr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"divuerr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "divuerr", "]"}], "-", "1"}]}], "}"}]}], "]"}],
    "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"sigmaerr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"sigmaerr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "sigmaerr", "]"}], "-", "1"}]}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{
  3.908453592739987*^9, {3.9084536429333277`*^9, 3.908453663493044*^9}, {
   3.908453894528776*^9, 3.908453895432521*^9}, {3.911306081434901*^9, 
   3.911306155458898*^9}, 3.9113065954596453`*^9},
 CellLabel->
  "In[231]:=",ExpressionUUID->"d1844227-d84b-4d3c-bfd4-0163ae0dda88"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{}, {{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{
         0., -3.350012943199196}, {-0.6931471805599453, -4.69846928936291}, \
{-1.3862943611198906`, -6.0714259247555615`}, {-2.0794415416798357`, \
-7.45298430446741}, {-2.772588722239781, -8.836586113436505}}]}, 
       {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{0., 
         0.04706486717633031}, {-0.6931471805599453, -1.9517803449911848`}, \
{-1.3862943611198906`, -4.673466157509101}, {-2.0794415416798357`, \
-6.6511073215107555`}, {-2.772588722239781, -8.740455499781786}}]}, 
       {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{
         0., -6.163425560167875}, {-0.6931471805599453, -7.511879274263189}, \
{-1.3862943611198906`, -8.884835197189668}, {-2.0794415416798357`, \
-10.266393296225528`}, {-2.772588722239781, -11.649999124019164`}}]}, 
       {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{0., 1.688225062994814}, {-0.6931471805599453, 
         0.3364508078201892}, {-1.3862943611198906`, -1.0199721025297923`}, \
{-2.0794415416798357`, -2.3910622710180345`}, {-2.772588722239781, \
-3.7696731103454413`}}]}}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], DiskBox[{0, 0}]}],
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[6.272]], {{{
         0., -3.350012943199196}}, {{-0.6931471805599453, \
-4.69846928936291}}, {{-1.3862943611198906`, -6.0714259247555615`}}, \
{{-2.0794415416798357`, -7.45298430446741}}, {{-2.772588722239781, \
-8.836586113436505}}}]}, 
       {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], 
              PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}],
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.880722, 0.611041, 0.142051], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[6.72]], {{{0., 
         0.04706486717633031}}, {{-0.6931471805599453, \
-1.9517803449911848`}}, {{-1.3862943611198906`, -4.673466157509101}}, \
{{-2.0794415416798357`, -6.6511073215107555`}}, {{-2.772588722239781, \
-8.740455499781786}}}]}, 
       {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}],
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.560181, 0.691569, 0.194885], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[8.16]], {{{
         0., -6.163425560167875}}, {{-0.6931471805599453, \
-7.511879274263189}}, {{-1.3862943611198906`, -8.884835197189668}}, \
{{-2.0794415416798357`, -10.266393296225528`}}, {{-2.772588722239781, \
-11.649999124019164`}}}]}, 
       {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], 
              PolygonBox[
               NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                 1, 1 - 3^Rational[1, 2]}}, {{0, 
                 1}, {-1, -0.7320508075688772}, {1, -0.7320508075688772}}]]}],
            
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.922526, 0.385626, 0.209179], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[7.6]], {{{0., 
         1.688225062994814}}, {{-0.6931471805599453, 
         0.3364508078201892}}, {{-1.3862943611198906`, \
-1.0199721025297923`}}, {{-2.0794415416798357`, -2.3910622710180345`}}, \
{{-2.772588722239781, -3.7696731103454413`}}}]}}}, {{}, {}}}, InsetBox[
     TemplateBox[{"\"p\"", "\"u\"", "\"divu\"", "\"\[Sigma]\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 6.272}, {20, 6.272}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 6.272}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.08426020408163262] -> 
                    Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 6.72}, {20, 6.72}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 6.72}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.051309523809523805`] -> 
                    Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 8.16}, {20, 8.16}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 8.16}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.03009803921568628] -> 
                    Baseline)], #3}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 7.6}, {20, 7.6}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[
                    
                    NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                    1, 1 - 3^Rational[1, 2]}}, {{0, 
                    1}, {-1, -0.7320508075688772}, {
                    1, -0.7320508075688772}}]]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 7.6}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.002105263157894735] -> 
                    Baseline)], #4}}, 
                  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, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
           Directive[21.599999999999998`, Bold, 
            GrayLevel[0]], FontFamily -> "Arial"}, Background -> Automatic, 
          StripOnInput -> False], FrameMargins -> 0, Background -> 
         GrayLevel[1], StripOnInput -> False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}], ",", 
                    RowBox[{"Offset", "[", "6.272`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], ",", 
                    RowBox[{"Offset", "[", "6.72`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], ",", 
                    RowBox[{"Offset", "[", "8.16`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[
                    
                    NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                    1, 1 - 3^Rational[1, 2]}}, {{0, 
                    1}, {-1, -0.7320508075688772}, {
                    1, -0.7320508075688772}}]]}], ",", 
                    RowBox[{"Offset", "[", "7.6`", "]"}]}], "}"}]}], "}"}]}], 
           ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "True", ",", "True"}], 
               "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
               RowBox[{"21.599999999999998`", ",", "Bold", ",", 
                 
                 TemplateBox[<|"color" -> GrayLevel[0]|>, 
                  "GrayLevelColorSwatchTemplate"]}], "]"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox[
                 "#1", FrameMargins -> 0, Background -> GrayLevel[1], 
                  StripOnInput -> False], "&"}], ")"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.2, 0.75}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{
     FormBox[
      TagBox[
       StyleBox["\"h\"", 21, 
        GrayLevel[0], StripOnInput -> False], HoldForm], TraditionalForm], 
     FormBox[
      TagBox[
       StyleBox["\"Error\"", 21, 
        GrayLevel[0], StripOnInput -> False], HoldForm], TraditionalForm]},
   AxesOrigin->{-2.8893166328549054`, -12.693790861473635`},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0], 
      Charting`ScaledFrameTicks[{Log, Exp}]}, {
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0], 
      Charting`ScaledFrameTicks[{Log, Exp}]}},
   GridLines->FrontEndValueCache[{
      Charting`ScaledTickValues[{Log, Exp}], 
      Charting`ScaledTickValues[{Log, Exp}]}, {{{-2.3025850929940455`, 
        Directive[]}, {-1.6094379124341003`, 
        Directive[]}, {-0.6931471805599453, 
        Directive[]}, {0., 
        Directive[]}}, {{-11.512925464970229`, 
        Directive[]}, {-9.210340371976182, 
        Directive[]}, {-6.907755278982137, 
        Directive[]}, {-4.605170185988091, 
        Directive[]}, {-2.3025850929940455`, 
        Directive[]}, {0., 
        Directive[]}, {2.302585092994046, 
        Directive[]}}}],
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImageSize->1000,
   LabelStyle->Directive[21.599999999999998`, Bold, 
     GrayLevel[0]],
   Method->{
    "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
     "DefaultGraphicsInteraction" -> {
      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
       "Effects" -> {
        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
         "Droplines" -> {
          "freeformCursorMode" -> True, 
           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
     "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
       Directive[
        RGBColor[0.368417, 0.506779, 0.709798], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.880722, 0.611041, 0.142051], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.560181, 0.691569, 0.194885], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.922526, 0.385626, 0.209179], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.528488, 0.470624, 0.701351], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.772079, 0.431554, 0.102387], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.363898, 0.618501, 0.782349], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[1, 0.75, 0], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.647624, 0.37816, 0.614037], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.571589, 0.586483, 0.], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.915, 0.3325, 0.2125], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
        
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
        AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
     "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
     "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         Exp[
          Part[#, 1]], 
         Exp[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         Exp[
          Part[#, 1]], 
         Exp[
          Part[#, 2]]}& )}},
   PlotRange->{{-2.8893166328549054`, 0.}, {-12.693790861473635`, 
    1.688225062994814}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->FrontEndValueCache[{
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0], 
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0]}, {{{-2.3025850929940455`, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.1\"", ShowStringCharacters -> False], 
           0.1`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 
        0.}}, {-1.6094379124341003`, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.2\"", ShowStringCharacters -> False], 
           0.2`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 
        0.}}, {-0.6931471805599453, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.5\"", ShowStringCharacters -> False], 
           0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {0., 
        FormBox["1", TraditionalForm], {0.01, 0.}}, {-2.995732273553991, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.8134107167600364`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.659260036932778, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.5257286443082556`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.4079456086518722`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-1.8971199848858813`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-1.2039728043259361`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.916290731874155, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.5108256237659907, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.35667494393873245`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.2231435513142097, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.10536051565782628`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       0.4054651081081644, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       0.6931471805599453, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.0986122886681098`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.3862943611198906`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.6094379124341003`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}}, {{-11.512925464970229`, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
         TraditionalForm], {0.01, 0.}}, {-9.210340371976182, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
         TraditionalForm], {0.01, 0.}}, {-6.907755278982137, 
        FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-4.605170185988091, 
        
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.010\"", ShowStringCharacters -> False], 
           0.01`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 
        0.}}, {-2.3025850929940455`, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.100\"", ShowStringCharacters -> False], 
           0.1`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}}, {0., 
        FormBox["1", TraditionalForm], {0.01, 0.}}, {2.302585092994046, 
        FormBox["10", TraditionalForm], {0.01, 0.}}, {-13.815510557964274`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-13.122363377404328`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-12.716898269296165`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-12.429216196844383`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-12.206072645530174`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-12.02375108873622, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-11.86960040890896, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-11.736069016284437`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-11.618285980628055`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-10.819778284410283`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-10.41431317630212, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-10.126631103850338`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-9.903487552536127, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-9.721165995742174, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-9.567015315914915, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-9.433483923290392, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-9.315700887634009, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-8.517193191416238, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-8.111728083308073, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-7.824046010856292, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-7.600902459542082, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-7.418580902748128, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-7.264430222920869, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-7.1308988302963465`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-7.013115794639964, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-6.214608098422191, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-5.809142990314028, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-5.521460917862246, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-5.298317366548036, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-5.115995809754082, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-4.961845129926823, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-4.8283137373023015`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-4.710530701645918, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-3.912023005428146, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-3.506557897319982, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-3.2188758248682006`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.995732273553991, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.8134107167600364`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.659260036932778, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.5257286443082556`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.4079456086518722`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-1.6094379124341003`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-1.2039728043259361`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.916290731874155, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.6931471805599453, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.5108256237659907, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.35667494393873245`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.2231435513142097, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.10536051565782628`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       0.6931471805599453, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.0986122886681098`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.3862943611198906`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.6094379124341003`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.791759469228055, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.9459101490553132`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       2.0794415416798357`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       2.1972245773362196`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       2.995732273553991, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       3.4011973816621555`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       3.6888794541139363`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       3.912023005428146, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       4.0943445622221, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       4.248495242049359, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       4.382026634673881, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       4.499809670330265, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       4.605170185988092, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]],
  InterpretTemplate[Legended[
    Graphics[{{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Line[{{
          0., -3.350012943199196}, {-0.6931471805599453, -4.69846928936291}, \
{-1.3862943611198906`, -6.0714259247555615`}, {-2.0794415416798357`, \
-7.45298430446741}, {-2.772588722239781, -8.836586113436505}}]}, {
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         Line[{{0., 
          0.04706486717633031}, {-0.6931471805599453, -1.9517803449911848`}, \
{-1.3862943611198906`, -4.673466157509101}, {-2.0794415416798357`, \
-6.6511073215107555`}, {-2.772588722239781, -8.740455499781786}}]}, {
         Hue[0.1421359549995791, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         Line[{{
          0., -6.163425560167875}, {-0.6931471805599453, -7.511879274263189}, \
{-1.3862943611198906`, -8.884835197189668}, {-2.0794415416798357`, \
-10.266393296225528`}, {-2.772588722239781, -11.649999124019164`}}]}, {
         Hue[0.37820393249936934`, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         Line[{{0., 1.688225062994814}, {-0.6931471805599453, 
          0.3364508078201892}, {-1.3862943611198906`, -1.0199721025297923`}, \
{-2.0794415416798357`, -2.3910622710180345`}, {-2.772588722239781, \
-3.7696731103454413`}}]}}, {{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              Disk[{0, 0}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.368417, 0.506779, 0.709798], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[6.272]], {{{0., -3.350012943199196}}, {{-0.6931471805599453,
           -4.69846928936291}}, {{-1.3862943611198906`, \
-6.0714259247555615`}}, {{-2.0794415416798357`, -7.45298430446741}}, \
{{-2.772588722239781, -8.836586113436505}}}]}, {
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              Polygon[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.880722, 0.611041, 0.142051], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[6.72]], {{{0., 
          0.04706486717633031}}, {{-0.6931471805599453, \
-1.9517803449911848`}}, {{-1.3862943611198906`, -4.673466157509101}}, \
{{-2.0794415416798357`, -6.6511073215107555`}}, {{-2.772588722239781, \
-8.740455499781786}}}]}, {
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              Polygon[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.560181, 0.691569, 0.194885], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[8.16]], {{{
          0., -6.163425560167875}}, {{-0.6931471805599453, \
-7.511879274263189}}, {{-1.3862943611198906`, -8.884835197189668}}, \
{{-2.0794415416798357`, -10.266393296225528`}}, {{-2.772588722239781, \
-11.649999124019164`}}}]}, {
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              
              Polygon[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                1, 1 - 3^Rational[1, 2]}}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.922526, 0.385626, 0.209179], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[7.6]], {{{0., 1.688225062994814}}, {{-0.6931471805599453, 
          0.3364508078201892}}, {{-1.3862943611198906`, \
-1.0199721025297923`}}, {{-2.0794415416798357`, -2.3910622710180345`}}, \
{{-2.772588722239781, -3.7696731103454413`}}}]}}}, {{}, {}}}, {
     DisplayFunction -> Identity, GridLines -> {
        Charting`ScaledTickValues[{Log, Exp}], 
        Charting`ScaledTickValues[{Log, Exp}]}, DisplayFunction -> Identity, 
      DisplayFunction -> Identity, DisplayFunction -> Identity, 
      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
      Axes -> {True, True}, AxesLabel -> {
        HoldForm[
         Style["h", 21, 
          GrayLevel[0]]], 
        HoldForm[
         Style["Error", 21, 
          GrayLevel[0]]]}, 
      AxesOrigin -> {-2.8893166328549054`, -12.693790861473635`}, 
      DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{
         Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", 
          WorkingPrecision -> 15.954589770191003`, RotateLabel -> 0], 
         Charting`ScaledFrameTicks[{Log, Exp}]}, {
         Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", 
          WorkingPrecision -> 15.954589770191003`, RotateLabel -> 0], 
         Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {
        Charting`ScaledTickValues[{Log, Exp}], 
        Charting`ScaledTickValues[{Log, Exp}]}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 1000, LabelStyle -> 
      Directive[21.599999999999998`, Bold, 
        GrayLevel[0]], 
      Method -> {
       "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
          Directive[
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.922526, 0.385626, 0.209179], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.528488, 0.470624, 0.701351], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.772079, 0.431554, 0.102387], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.363898, 0.618501, 0.782349], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[1, 0.75, 0], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.647624, 0.37816, 0.614037], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.571589, 0.586483, 0.], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.915, 0.3325, 0.2125], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[
           0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
           AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
        "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> 
        Scaled[0.05], "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> 
        True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Exp[
             Part[#, 1]], 
            Exp[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Exp[
             Part[#, 1]], 
            Exp[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{-2.8893166328549054`, 0.}, {-12.693790861473635`, 
       1.688225062994814}}, PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, Ticks -> {
        Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
         15.954589770191003`, RotateLabel -> 0], 
        Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
         15.954589770191003`, RotateLabel -> 0]}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]]}, {"p", "u", "divu", "\[Sigma]"}, 
       LegendMarkers -> {{
          Graphics[{
            EdgeForm[], 
            Disk[{0, 0}]}], 
          Offset[6.272]}, {
          Graphics[{
            EdgeForm[], 
            Polygon[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], 
          Offset[6.72]}, {
          Graphics[{
            EdgeForm[], 
            Polygon[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], 
          Offset[8.16]}, {
          Graphics[{
            EdgeForm[], 
            
            Polygon[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
              1, 1 - 3^Rational[1, 2]}}]}], 
          Offset[7.6]}}, Joined -> {True, True, True, True}, LabelStyle -> 
       Directive[21.599999999999998`, Bold, 
         GrayLevel[0]], 
       LegendFunction -> (
        Framed[#, FrameMargins -> 0, Background -> White]& ), LegendLayout -> 
       "Column"]], {0.2, 0.75}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{3.908453665872346*^9, 3.908453896401288*^9, 
  3.911306157351946*^9, 3.9113066004536657`*^9},
 CellLabel->
  "Out[241]=",ExpressionUUID->"74cec9d1-d7f2-4990-a242-e6affc93fad3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.9454112834656412`", ",", "1.9807577292365748`", ",", 
   "1.9931674231088763`", ",", "1.996115468364713`"}], "}"}]], "Output",
 CellChangeTimes->{3.908453665872346*^9, 3.908453896401288*^9, 
  3.911306157351946*^9, 3.911306600521059*^9},
 CellLabel->
  "Out[242]=",ExpressionUUID->"332709a9-93f6-4515-99eb-f9aeb23f73c4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.8837240750987223`", ",", "3.9265626245774476`", ",", 
   "2.853133099963063`", ",", "3.014292255482007`"}], "}"}]], "Output",
 CellChangeTimes->{3.908453665872346*^9, 3.908453896401288*^9, 
  3.911306157351946*^9, 3.911306600522238*^9},
 CellLabel->
  "Out[243]=",ExpressionUUID->"47d9bab1-4358-491a-9724-5f9a8e424343"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.945407486193612`", ",", "1.980756701365163`", ",", "1.9931670181790175`",
    ",", "1.996121266302947`"}], "}"}]], "Output",
 CellChangeTimes->{3.908453665872346*^9, 3.908453896401288*^9, 
  3.911306157351946*^9, 3.9113066005233297`*^9},
 CellLabel->
  "Out[244]=",ExpressionUUID->"79a4eded-d778-4780-bc8c-e074fefbaf35"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.950198014341803`", ",", "1.9569046061100934`", ",", 
   "1.9780649866895998`", ",", "1.9889150212134212`"}], "}"}]], "Output",
 CellChangeTimes->{3.908453665872346*^9, 3.908453896401288*^9, 
  3.911306157351946*^9, 3.9113066005242653`*^9},
 CellLabel->
  "Out[245]=",ExpressionUUID->"fe037e27-318f-4fed-8694-da894c64fba9"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Poisson 0.4999", "Chapter",
 CellChangeTimes->{{3.908453718914383*^9, 
  3.908453722834498*^9}},ExpressionUUID->"2dce105e-3b6c-4222-941a-\
2b2dfb47d996"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"poisson", "=", "0.4999"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Errors1", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.0358461", ",", "0.62113", ",", "1.06611", ",", "532.649", ",", 
       RowBox[{"2.15077", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "05"}]}]}], ",", "0.000372678", ",", "5.49263", ",", 
       "65.8044"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors2", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.00931885", ",", "0.62113", ",", "0.14435", ",", "524.119", ",", 
       RowBox[{"5.59131", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "06"}]}]}], ",", "0.000372678", ",", "1.42327", ",", 
       "57.3874"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors3", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.002362", ",", "0.62113", ",", "0.00948156", ",", "521.974", ",", 
       RowBox[{"1.4172", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "06"}]}]}], ",", "0.000372678", ",", "0.366861", ",", 
       "55.0694"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors4", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.000593367", ",", "0.62113", ",", "0.00131322", ",", "521.44", ",", 
       RowBox[{"3.5602", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "07"}]}]}], ",", "0.000372678", ",", "0.0931469", ",", 
       "54.4734"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors5", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.000148747", ",", "0.62113", ",", "0.000162601", ",", "521.308", ",", 
       
       RowBox[{"8.92479", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "08"}]}]}], ",", "0.000372678", ",", "0.0234705", ",", 
       "54.3234"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Err", "=", 
     RowBox[{"{", 
      RowBox[{
      "Errors1", ",", "Errors2", ",", "Errors3", ",", "Errors4", ",", 
       "Errors5"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"perr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"uerr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"divuerr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sigmaerr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListLogLogPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"perr", ",", "uerr", ",", "divuerr", ",", "sigmaerr"}], "}"}], 
     ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "myImageSize"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<h\>\"", ",", "myAxesSize", ",", "Black"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Error\>\"", ",", "myAxesSize", ",", "Black"}], "]"}]}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"myLabelSize", "*", "1.2"}], ",", "Bold", ",", "Black"}], 
       "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"LineLegend", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\"\<p\>\"", ",", "\"\<u\>\"", ",", "\"\<divu\>\"", ",", 
            "\"\<\[Sigma]\>\""}], "}"}], ",", 
          RowBox[{"LegendFunction", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Framed", "[", 
              RowBox[{"#1", ",", " ", 
               RowBox[{"FrameMargins", " ", "->", " ", "0"}], ",", 
               RowBox[{"Background", "\[Rule]", "White"}]}], "]"}], " ", 
             "&"}], " ", ")"}]}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.2", ",", "0.75"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"perr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"perr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "uerr", "]"}], "-", "1"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"uerr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"uerr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "uerr", "]"}], "-", "1"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"divuerr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"divuerr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "divuerr", "]"}], "-", "1"}]}], "}"}]}], "]"}],
    "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"sigmaerr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"sigmaerr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "sigmaerr", "]"}], "-", "1"}]}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.90845374102695*^9, 3.9084537468571157`*^9}, {
  3.908453910420043*^9, 3.9084539111578608`*^9}, {3.911306222424621*^9, 
  3.9113062802575617`*^9}, {3.911306670157236*^9, 3.9113066901576366`*^9}},
 CellLabel->
  "In[261]:=",ExpressionUUID->"e4973565-c93c-4899-9f3e-6fdfd8865f7d"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{}, {{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{
         0., -3.3285205044650787`}, {-0.6931471805599453, \
-4.6757160484558185`}, {-1.3862943611198906`, -6.048246561206967}, \
{-2.0794415416798357`, -7.429697463382961}, {-2.772588722239781, \
-8.81326368180914}}]}, 
       {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{0., 
         0.06401650991341654}, {-0.6931471805599453, -1.935514372873193}, \
{-1.3862943611198906`, -4.658406419291193}, {-2.0794415416798357`, \
-6.635273142480226}, {-2.772588722239781, -8.724211210807974}}]}, 
       {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{
         0., -10.747099547412429`}, {-0.6931471805599453, \
-12.094296951203946`}, {-1.3862943611198906`, -13.466827463955095`}, \
{-2.0794415416798357`, -14.848278927897125`}, {-2.772588722239781, \
-16.231847945975247`}}]}, 
       {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{0., 1.7034071936355837`}, {-0.6931471805599453, 
         0.352957041095306}, {-1.3862943611198906`, -1.0027722492641788`}, \
{-2.0794415416798357`, -2.373577462144788}, {-2.772588722239781, \
-3.7520109655540526`}}]}}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], DiskBox[{0, 0}]}],
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[6.272]], {{{
         0., -3.3285205044650787`}}, {{-0.6931471805599453, \
-4.6757160484558185`}}, {{-1.3862943611198906`, -6.048246561206967}}, \
{{-2.0794415416798357`, -7.429697463382961}}, {{-2.772588722239781, \
-8.81326368180914}}}]}, 
       {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], 
              PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}],
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.880722, 0.611041, 0.142051], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[6.72]], {{{0., 
         0.06401650991341654}}, {{-0.6931471805599453, -1.935514372873193}}, \
{{-1.3862943611198906`, -4.658406419291193}}, {{-2.0794415416798357`, \
-6.635273142480226}}, {{-2.772588722239781, -8.724211210807974}}}]}, 
       {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}],
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.560181, 0.691569, 0.194885], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[8.16]], {{{
         0., -10.747099547412429`}}, {{-0.6931471805599453, \
-12.094296951203946`}}, {{-1.3862943611198906`, -13.466827463955095`}}, \
{{-2.0794415416798357`, -14.848278927897125`}}, {{-2.772588722239781, \
-16.231847945975247`}}}]}, 
       {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], 
              PolygonBox[
               NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                 1, 1 - 3^Rational[1, 2]}}, {{0, 
                 1}, {-1, -0.7320508075688772}, {1, -0.7320508075688772}}]]}],
            
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.922526, 0.385626, 0.209179], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[7.6]], {{{0., 
         1.7034071936355837`}}, {{-0.6931471805599453, 
         0.352957041095306}}, {{-1.3862943611198906`, -1.0027722492641788`}}, \
{{-2.0794415416798357`, -2.373577462144788}}, {{-2.772588722239781, \
-3.7520109655540526`}}}]}}}, {{}, {}}}, InsetBox[
     TemplateBox[{"\"p\"", "\"u\"", "\"divu\"", "\"\[Sigma]\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 6.272}, {20, 6.272}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 6.272}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.08426020408163262] -> 
                    Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 6.72}, {20, 6.72}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 6.72}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.051309523809523805`] -> 
                    Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 8.16}, {20, 8.16}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 8.16}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.03009803921568628] -> 
                    Baseline)], #3}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 7.6}, {20, 7.6}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[
                    
                    NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                    1, 1 - 3^Rational[1, 2]}}, {{0, 
                    1}, {-1, -0.7320508075688772}, {
                    1, -0.7320508075688772}}]]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 7.6}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.002105263157894735] -> 
                    Baseline)], #4}}, 
                  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, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
           Directive[21.599999999999998`, Bold, 
            GrayLevel[0]], FontFamily -> "Arial"}, Background -> Automatic, 
          StripOnInput -> False], FrameMargins -> 0, Background -> 
         GrayLevel[1], StripOnInput -> False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}], ",", 
                    RowBox[{"Offset", "[", "6.272`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], ",", 
                    RowBox[{"Offset", "[", "6.72`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], ",", 
                    RowBox[{"Offset", "[", "8.16`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[
                    
                    NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                    1, 1 - 3^Rational[1, 2]}}, {{0, 
                    1}, {-1, -0.7320508075688772}, {
                    1, -0.7320508075688772}}]]}], ",", 
                    RowBox[{"Offset", "[", "7.6`", "]"}]}], "}"}]}], "}"}]}], 
           ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "True", ",", "True"}], 
               "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
               RowBox[{"21.599999999999998`", ",", "Bold", ",", 
                 
                 TemplateBox[<|"color" -> GrayLevel[0]|>, 
                  "GrayLevelColorSwatchTemplate"]}], "]"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox[
                 "#1", FrameMargins -> 0, Background -> GrayLevel[1], 
                  StripOnInput -> False], "&"}], ")"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.2, 0.75}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{
     FormBox[
      TagBox[
       StyleBox["\"h\"", 21, 
        GrayLevel[0], StripOnInput -> False], HoldForm], TraditionalForm], 
     FormBox[
      TagBox[
       StyleBox["\"Error\"", 21, 
        GrayLevel[0], StripOnInput -> False], HoldForm], TraditionalForm]},
   AxesOrigin->{-2.8893166328549054`, -17.63538344375838},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0], 
      Charting`ScaledFrameTicks[{Log, Exp}]}, {
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0], 
      Charting`ScaledFrameTicks[{Log, Exp}]}},
   GridLines->FrontEndValueCache[{
      Charting`ScaledTickValues[{Log, Exp}], 
      Charting`ScaledTickValues[{Log, Exp}]}, {{{-2.3025850929940455`, 
        Directive[]}, {-1.6094379124341003`, 
        Directive[]}, {-0.6931471805599453, 
        Directive[]}, {0., 
        Directive[]}}, {{-13.815510557964274`, 
        Directive[]}, {-9.210340371976182, 
        Directive[]}, {-4.605170185988091, 
        Directive[]}, {0., 
        Directive[]}}}],
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImageSize->1000,
   LabelStyle->Directive[21.599999999999998`, Bold, 
     GrayLevel[0]],
   Method->{
    "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
     "DefaultGraphicsInteraction" -> {
      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
       "Effects" -> {
        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
         "Droplines" -> {
          "freeformCursorMode" -> True, 
           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
     "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
       Directive[
        RGBColor[0.368417, 0.506779, 0.709798], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.880722, 0.611041, 0.142051], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.560181, 0.691569, 0.194885], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.922526, 0.385626, 0.209179], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.528488, 0.470624, 0.701351], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.772079, 0.431554, 0.102387], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.363898, 0.618501, 0.782349], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[1, 0.75, 0], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.647624, 0.37816, 0.614037], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.571589, 0.586483, 0.], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.915, 0.3325, 0.2125], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
        
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
        AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
     "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
     "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         Exp[
          Part[#, 1]], 
         Exp[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         Exp[
          Part[#, 1]], 
         Exp[
          Part[#, 2]]}& )}},
   PlotRange->{{-2.8893166328549054`, 0.}, {-17.63538344375838, 
    1.7034071936355837`}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->FrontEndValueCache[{
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0], 
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0]}, {{{-2.3025850929940455`, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.1\"", ShowStringCharacters -> False], 
           0.1`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 
        0.}}, {-1.6094379124341003`, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.2\"", ShowStringCharacters -> False], 
           0.2`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 
        0.}}, {-0.6931471805599453, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.5\"", ShowStringCharacters -> False], 
           0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {0., 
        FormBox["1", TraditionalForm], {0.01, 0.}}, {-2.995732273553991, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.8134107167600364`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.659260036932778, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.5257286443082556`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.4079456086518722`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-1.8971199848858813`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-1.2039728043259361`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.916290731874155, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.5108256237659907, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.35667494393873245`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.2231435513142097, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.10536051565782628`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       0.4054651081081644, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       0.6931471805599453, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.0986122886681098`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.3862943611198906`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.6094379124341003`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}}, {{-13.815510557964274`, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
         TraditionalForm], {0.01, 0.}}, {-9.210340371976182, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
         TraditionalForm], {0.01, 0.}}, {-4.605170185988091, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.01\"", ShowStringCharacters -> False], 
           0.01`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {0., 
        FormBox["1", TraditionalForm], {0.01, 0.}}, {-18.526041259610192`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-18.420680743952367`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-16.11809565095832, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-11.512925464970229`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-6.907755278982137, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.3025850929940455`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       2.302585092994046, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       4.605170185988092, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       4.700480365792417, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       4.787491742782046, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       4.867534450455582, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       4.941642422609304, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       5.0106352940962555`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       5.075173815233827, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]],
  InterpretTemplate[Legended[
    Graphics[{{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Line[{{
          0., -3.3285205044650787`}, {-0.6931471805599453, \
-4.6757160484558185`}, {-1.3862943611198906`, -6.048246561206967}, \
{-2.0794415416798357`, -7.429697463382961}, {-2.772588722239781, \
-8.81326368180914}}]}, {
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         Line[{{0., 
          0.06401650991341654}, {-0.6931471805599453, -1.935514372873193}, \
{-1.3862943611198906`, -4.658406419291193}, {-2.0794415416798357`, \
-6.635273142480226}, {-2.772588722239781, -8.724211210807974}}]}, {
         Hue[0.1421359549995791, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         Line[{{
          0., -10.747099547412429`}, {-0.6931471805599453, \
-12.094296951203946`}, {-1.3862943611198906`, -13.466827463955095`}, \
{-2.0794415416798357`, -14.848278927897125`}, {-2.772588722239781, \
-16.231847945975247`}}]}, {
         Hue[0.37820393249936934`, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         Line[{{0., 1.7034071936355837`}, {-0.6931471805599453, 
          0.352957041095306}, {-1.3862943611198906`, -1.0027722492641788`}, \
{-2.0794415416798357`, -2.373577462144788}, {-2.772588722239781, \
-3.7520109655540526`}}]}}, {{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              Disk[{0, 0}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.368417, 0.506779, 0.709798], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[6.272]], {{{
          0., -3.3285205044650787`}}, {{-0.6931471805599453, \
-4.6757160484558185`}}, {{-1.3862943611198906`, -6.048246561206967}}, \
{{-2.0794415416798357`, -7.429697463382961}}, {{-2.772588722239781, \
-8.81326368180914}}}]}, {
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              Polygon[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.880722, 0.611041, 0.142051], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[6.72]], {{{0., 
          0.06401650991341654}}, {{-0.6931471805599453, -1.935514372873193}}, \
{{-1.3862943611198906`, -4.658406419291193}}, {{-2.0794415416798357`, \
-6.635273142480226}}, {{-2.772588722239781, -8.724211210807974}}}]}, {
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              Polygon[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.560181, 0.691569, 0.194885], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[8.16]], {{{
          0., -10.747099547412429`}}, {{-0.6931471805599453, \
-12.094296951203946`}}, {{-1.3862943611198906`, -13.466827463955095`}}, \
{{-2.0794415416798357`, -14.848278927897125`}}, {{-2.772588722239781, \
-16.231847945975247`}}}]}, {
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              
              Polygon[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                1, 1 - 3^Rational[1, 2]}}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.922526, 0.385626, 0.209179], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[7.6]], {{{0., 1.7034071936355837`}}, {{-0.6931471805599453, 
          0.352957041095306}}, {{-1.3862943611198906`, \
-1.0027722492641788`}}, {{-2.0794415416798357`, -2.373577462144788}}, \
{{-2.772588722239781, -3.7520109655540526`}}}]}}}, {{}, {}}}, {
     DisplayFunction -> Identity, GridLines -> {
        Charting`ScaledTickValues[{Log, Exp}], 
        Charting`ScaledTickValues[{Log, Exp}]}, DisplayFunction -> Identity, 
      DisplayFunction -> Identity, DisplayFunction -> Identity, 
      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
      Axes -> {True, True}, AxesLabel -> {
        HoldForm[
         Style["h", 21, 
          GrayLevel[0]]], 
        HoldForm[
         Style["Error", 21, 
          GrayLevel[0]]]}, 
      AxesOrigin -> {-2.8893166328549054`, -17.63538344375838}, 
      DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{
         Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", 
          WorkingPrecision -> 15.954589770191003`, RotateLabel -> 0], 
         Charting`ScaledFrameTicks[{Log, Exp}]}, {
         Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", 
          WorkingPrecision -> 15.954589770191003`, RotateLabel -> 0], 
         Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {
        Charting`ScaledTickValues[{Log, Exp}], 
        Charting`ScaledTickValues[{Log, Exp}]}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 1000, LabelStyle -> 
      Directive[21.599999999999998`, Bold, 
        GrayLevel[0]], 
      Method -> {
       "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
          Directive[
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.922526, 0.385626, 0.209179], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.528488, 0.470624, 0.701351], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.772079, 0.431554, 0.102387], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.363898, 0.618501, 0.782349], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[1, 0.75, 0], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.647624, 0.37816, 0.614037], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.571589, 0.586483, 0.], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.915, 0.3325, 0.2125], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[
           0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
           AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
        "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> 
        Scaled[0.05], "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> 
        True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Exp[
             Part[#, 1]], 
            Exp[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Exp[
             Part[#, 1]], 
            Exp[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{-2.8893166328549054`, 0.}, {-17.63538344375838, 
       1.7034071936355837`}}, PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, Ticks -> {
        Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
         15.954589770191003`, RotateLabel -> 0], 
        Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
         15.954589770191003`, RotateLabel -> 0]}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]]}, {"p", "u", "divu", "\[Sigma]"}, 
       LegendMarkers -> {{
          Graphics[{
            EdgeForm[], 
            Disk[{0, 0}]}], 
          Offset[6.272]}, {
          Graphics[{
            EdgeForm[], 
            Polygon[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], 
          Offset[6.72]}, {
          Graphics[{
            EdgeForm[], 
            Polygon[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], 
          Offset[8.16]}, {
          Graphics[{
            EdgeForm[], 
            
            Polygon[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
              1, 1 - 3^Rational[1, 2]}}]}], 
          Offset[7.6]}}, Joined -> {True, True, True, True}, LabelStyle -> 
       Directive[21.599999999999998`, Bold, 
         GrayLevel[0]], 
       LegendFunction -> (
        Framed[#, FrameMargins -> 0, Background -> White]& ), LegendLayout -> 
       "Column"]], {0.2, 0.75}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.908453748963459*^9, 3.90845391250031*^9, 3.9113062825590878`*^9, {
   3.911306678532296*^9, 3.911306692539414*^9}},
 CellLabel->
  "Out[271]=",ExpressionUUID->"4028da95-05b0-4c19-8a5c-9423f63b33eb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.9435923304231493`", ",", "1.9801429642148678`", ",", 
   "1.9930123658008922`", ",", "1.9960641220649444`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.908453748963459*^9, 3.90845391250031*^9, 3.9113062825590878`*^9, {
   3.911306678532296*^9, 3.911306692583947*^9}},
 CellLabel->
  "Out[272]=",ExpressionUUID->"415d950f-051c-4537-b0cf-63a55b474058"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.8847132887005724`", ",", "3.9283028522432497`", ",", 
   "2.852015818043232`", ",", "3.013700591900615`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.908453748963459*^9, 3.90845391250031*^9, 3.9113062825590878`*^9, {
   3.911306678532296*^9, 3.9113066925852127`*^9}},
 CellLabel->
  "Out[273]=",ExpressionUUID->"bec3ce3b-60c0-4773-a508-e76b42a34f17"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.943595013548509`", ",", "1.9801429642148678`", ",", 
   "1.9930131762579655`", ",", "1.996068161108922`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.908453748963459*^9, 3.90845391250031*^9, 3.9113062825590878`*^9, {
   3.911306678532296*^9, 3.911306692586182*^9}},
 CellLabel->
  "Out[274]=",ExpressionUUID->"0691f7c9-e06a-4603-a148-6edfc0c8ae39"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.9482877380376027`", ",", "1.9559039239895424`", ",", 
   "1.977653882647594`", ",", "1.9886591795637465`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.908453748963459*^9, 3.90845391250031*^9, 3.9113062825590878`*^9, {
   3.911306678532296*^9, 3.911306692587133*^9}},
 CellLabel->
  "Out[275]=",ExpressionUUID->"ae274fe5-9476-431d-99c3-12c8cab8c9f2"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Poisson 0.499999", "Chapter",
 CellChangeTimes->{{3.908458346178556*^9, 
  3.908458357218498*^9}},ExpressionUUID->"f1589a55-369b-4ad0-8371-\
01c8291895b6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"poisson", "=", "0.499999"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Errors1", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.0358539", ",", "0.62113", ",", "1.06629", ",", "532.648", ",", 
       RowBox[{"2.15124", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "07"}]}]}], ",", 
       RowBox[{"3.72678", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "06"}]}]}], ",", "5.49348", ",", "65.8044"}], "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors2", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.009321", ",", "0.62113", ",", "0.144373", ",", "524.119", ",", 
       RowBox[{"5.5926", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "08"}]}]}], ",", 
       RowBox[{"3.72678", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "06"}]}]}], ",", "1.42351", ",", "57.3874"}], "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors3", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.00236255", ",", "0.62113", ",", "0.009483", ",", "521.974", ",", 
       RowBox[{"1.41753", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "08"}]}]}], ",", 
       RowBox[{"3.72678", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "06"}]}]}], ",", "0.366926", ",", "55.0694"}], "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors4", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.000593507", ",", "0.62113", ",", "0.00131343", ",", "521.44", ",", 
       RowBox[{"3.56101", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "09"}]}]}], ",", 
       RowBox[{"3.72678", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "06"}]}]}], ",", "0.0931635", ",", "54.4734"}], "}"}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors5", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.000148782", ",", "0.62113", ",", "0.000162627", ",", "521.308", ",", 
       
       RowBox[{"8.92705", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "10"}]}]}], ",", 
       RowBox[{"3.72678", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "06"}]}]}], ",", "0.0234747", ",", "54.3234"}], "}"}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Err", "=", 
     RowBox[{"{", 
      RowBox[{
      "Errors1", ",", "Errors2", ",", "Errors3", ",", "Errors4", ",", 
       "Errors5"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"perr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"uerr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"divuerr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sigmaerr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListLogLogPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"perr", ",", "uerr", ",", "divuerr", ",", "sigmaerr"}], "}"}], 
     ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "myImageSize"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<h\>\"", ",", "myAxesSize", ",", "Black"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Error\>\"", ",", "myAxesSize", ",", "Black"}], "]"}]}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"myLabelSize", "*", "1.2"}], ",", "Bold", ",", "Black"}], 
       "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"LineLegend", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\"\<p\>\"", ",", "\"\<u\>\"", ",", "\"\<divu\>\"", ",", 
            "\"\<\[Sigma]\>\""}], "}"}], ",", 
          RowBox[{"LegendFunction", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Framed", "[", 
              RowBox[{"#1", ",", " ", 
               RowBox[{"FrameMargins", " ", "->", " ", "0"}], ",", 
               RowBox[{"Background", "\[Rule]", "White"}]}], "]"}], " ", 
             "&"}], " ", ")"}]}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.2", ",", "0.75"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"perr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"perr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "uerr", "]"}], "-", "1"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"uerr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"uerr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "uerr", "]"}], "-", "1"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"divuerr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"divuerr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "divuerr", "]"}], "-", "1"}]}], "}"}]}], "]"}],
    "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"sigmaerr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"sigmaerr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "sigmaerr", "]"}], "-", "1"}]}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.908458373798027*^9, 3.908458374293787*^9}, {
  3.9084584231456947`*^9, 3.908458527732929*^9}, {3.910860659837861*^9, 
  3.910860696892601*^9}, {3.910860735658737*^9, 3.910860801326373*^9}, {
  3.910862768355835*^9, 3.910862780405655*^9}, {3.91130632745566*^9, 
  3.91130640342605*^9}, {3.911306774951497*^9, 3.9113067832952843`*^9}},
 CellLabel->
  "In[276]:=",ExpressionUUID->"933e6185-5e2d-4ff2-af95-6d705ca6b5c6"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{}, {{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{
         0., -3.3283029312424635`}, {-0.6931471805599453, \
-4.675485359903117}, {-1.3862943611198906`, -6.048013734799167}, \
{-2.0794415416798357`, -7.4294615495443415`}, {-2.772588722239781, \
-8.813028410624405}}]}, 
       {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{0., 
         0.06418533377425653}, {-0.6931471805599453, -1.935355050615883}, \
{-1.3862943611198906`, -4.6582545570805465`}, {-2.0794415416798357`, \
-6.635113242988137}, {-2.772588722239781, -8.724051322975098}}]}, 
       {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{
         0., -15.35205123088571}, {-0.6931471805599453, \
-16.699236448639336`}, {-1.3862943611198906`, -18.071764823535386`}, \
{-2.0794415416798357`, -19.45322162445477}, {-2.772588722239781, \
-20.836764936773143`}}]}, 
       {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{0., 1.7035619344859294`}, {-0.6931471805599453, 
         0.35312565264981227`}, {-1.3862943611198906`, -1.002595086135996}, \
{-2.0794415416798357`, -2.3733992648992888`}, {-2.772588722239781, \
-3.7518320335221853`}}]}}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], DiskBox[{0, 0}]}],
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[6.272]], {{{
         0., -3.3283029312424635`}}, {{-0.6931471805599453, \
-4.675485359903117}}, {{-1.3862943611198906`, -6.048013734799167}}, \
{{-2.0794415416798357`, -7.4294615495443415`}}, {{-2.772588722239781, \
-8.813028410624405}}}]}, 
       {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], 
              PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}],
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.880722, 0.611041, 0.142051], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[6.72]], {{{0., 
         0.06418533377425653}}, {{-0.6931471805599453, -1.935355050615883}}, \
{{-1.3862943611198906`, -4.6582545570805465`}}, {{-2.0794415416798357`, \
-6.635113242988137}}, {{-2.772588722239781, -8.724051322975098}}}]}, 
       {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}],
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.560181, 0.691569, 0.194885], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[8.16]], {{{
         0., -15.35205123088571}}, {{-0.6931471805599453, \
-16.699236448639336`}}, {{-1.3862943611198906`, -18.071764823535386`}}, \
{{-2.0794415416798357`, -19.45322162445477}}, {{-2.772588722239781, \
-20.836764936773143`}}}]}, 
       {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], 
              PolygonBox[
               NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                 1, 1 - 3^Rational[1, 2]}}, {{0, 
                 1}, {-1, -0.7320508075688772}, {1, -0.7320508075688772}}]]}],
            
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.922526, 0.385626, 0.209179], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[7.6]], {{{0., 
         1.7035619344859294`}}, {{-0.6931471805599453, 
         0.35312565264981227`}}, {{-1.3862943611198906`, \
-1.002595086135996}}, {{-2.0794415416798357`, -2.3733992648992888`}}, \
{{-2.772588722239781, -3.7518320335221853`}}}]}}}, {{}, {}}}, InsetBox[
     TemplateBox[{"\"p\"", "\"u\"", "\"divu\"", "\"\[Sigma]\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 6.272}, {20, 6.272}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 6.272}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.08426020408163262] -> 
                    Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 6.72}, {20, 6.72}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 6.72}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.051309523809523805`] -> 
                    Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 8.16}, {20, 8.16}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 8.16}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.03009803921568628] -> 
                    Baseline)], #3}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 7.6}, {20, 7.6}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[
                    
                    NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                    1, 1 - 3^Rational[1, 2]}}, {{0, 
                    1}, {-1, -0.7320508075688772}, {
                    1, -0.7320508075688772}}]]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 7.6}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.002105263157894735] -> 
                    Baseline)], #4}}, 
                  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, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
           Directive[21.599999999999998`, Bold, 
            GrayLevel[0]], FontFamily -> "Arial"}, Background -> Automatic, 
          StripOnInput -> False], FrameMargins -> 0, Background -> 
         GrayLevel[1], StripOnInput -> False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}], ",", 
                    RowBox[{"Offset", "[", "6.272`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], ",", 
                    RowBox[{"Offset", "[", "6.72`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], ",", 
                    RowBox[{"Offset", "[", "8.16`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[
                    
                    NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                    1, 1 - 3^Rational[1, 2]}}, {{0, 
                    1}, {-1, -0.7320508075688772}, {
                    1, -0.7320508075688772}}]]}], ",", 
                    RowBox[{"Offset", "[", "7.6`", "]"}]}], "}"}]}], "}"}]}], 
           ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "True", ",", "True"}], 
               "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
               RowBox[{"21.599999999999998`", ",", "Bold", ",", 
                 
                 TemplateBox[<|"color" -> GrayLevel[0]|>, 
                  "GrayLevelColorSwatchTemplate"]}], "]"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox[
                 "#1", FrameMargins -> 0, Background -> GrayLevel[1], 
                  StripOnInput -> False], "&"}], ")"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.2, 0.75}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{
     FormBox[
      TagBox[
       StyleBox["\"h\"", 21, 
        GrayLevel[0], StripOnInput -> False], HoldForm], TraditionalForm], 
     FormBox[
      TagBox[
       StyleBox["\"Error\"", 21, 
        GrayLevel[0], StripOnInput -> False], HoldForm], TraditionalForm]},
   AxesOrigin->{-2.8893166328549054`, -22.60067343147736},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0], 
      Charting`ScaledFrameTicks[{Log, Exp}]}, {
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0], 
      Charting`ScaledFrameTicks[{Log, Exp}]}},
   GridLines->FrontEndValueCache[{
      Charting`ScaledTickValues[{Log, Exp}], 
      Charting`ScaledTickValues[{Log, Exp}]}, {{{-2.3025850929940455`, 
        Directive[]}, {-1.6094379124341003`, 
        Directive[]}, {-0.6931471805599453, 
        Directive[]}, {0., 
        Directive[]}}, {{-23.025850929940457`, 
        Directive[]}, {-18.420680743952367`, 
        Directive[]}, {-13.815510557964274`, 
        Directive[]}, {-9.210340371976182, 
        Directive[]}, {-4.605170185988091, 
        Directive[]}, {0., 
        Directive[]}}}],
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImageSize->1000,
   LabelStyle->Directive[21.599999999999998`, Bold, 
     GrayLevel[0]],
   Method->{
    "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
     "DefaultGraphicsInteraction" -> {
      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
       "Effects" -> {
        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
         "Droplines" -> {
          "freeformCursorMode" -> True, 
           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
     "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
       Directive[
        RGBColor[0.368417, 0.506779, 0.709798], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.880722, 0.611041, 0.142051], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.560181, 0.691569, 0.194885], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.922526, 0.385626, 0.209179], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.528488, 0.470624, 0.701351], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.772079, 0.431554, 0.102387], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.363898, 0.618501, 0.782349], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[1, 0.75, 0], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.647624, 0.37816, 0.614037], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.571589, 0.586483, 0.], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.915, 0.3325, 0.2125], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
        
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
        AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
     "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
     "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         Exp[
          Part[#, 1]], 
         Exp[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         Exp[
          Part[#, 1]], 
         Exp[
          Part[#, 2]]}& )}},
   PlotRange->{{-2.8893166328549054`, 0.}, {-22.60067343147736, 
    1.7035619344859294`}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->FrontEndValueCache[{
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0], 
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0]}, {{{-2.3025850929940455`, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.1\"", ShowStringCharacters -> False], 
           0.1`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 
        0.}}, {-1.6094379124341003`, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.2\"", ShowStringCharacters -> False], 
           0.2`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 
        0.}}, {-0.6931471805599453, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.5\"", ShowStringCharacters -> False], 
           0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {0., 
        FormBox["1", TraditionalForm], {0.01, 0.}}, {-2.995732273553991, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.8134107167600364`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.659260036932778, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.5257286443082556`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.4079456086518722`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-1.8971199848858813`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-1.2039728043259361`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.916290731874155, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.5108256237659907, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.35667494393873245`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.2231435513142097, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.10536051565782628`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       0.4054651081081644, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       0.6931471805599453, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.0986122886681098`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.3862943611198906`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.6094379124341003`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}}, {{-23.025850929940457`, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "10"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
          TraditionalForm], {0.01, 0.}}, {-18.420680743952367`, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
         TraditionalForm], {0.01, 0.}}, {-13.815510557964274`, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
         TraditionalForm], {0.01, 0.}}, {-9.210340371976182, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
         TraditionalForm], {0.01, 0.}}, {-4.605170185988091, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.01\"", ShowStringCharacters -> False], 
           0.01`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {0., 
        FormBox["1", TraditionalForm], {0.01, 0.}}, {-23.536676553706446`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-23.38252587387919, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-23.248994481254666`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-23.131211445598282`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-20.72326583694641, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-16.11809565095832, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-11.512925464970229`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-6.907755278982137, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.3025850929940455`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       2.302585092994046, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       4.605170185988092, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       4.700480365792417, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       4.787491742782046, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       4.867534450455582, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       4.941642422609304, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       5.0106352940962555`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       5.075173815233827, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]],
  InterpretTemplate[Legended[
    Graphics[{{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Line[{{
          0., -3.3283029312424635`}, {-0.6931471805599453, \
-4.675485359903117}, {-1.3862943611198906`, -6.048013734799167}, \
{-2.0794415416798357`, -7.4294615495443415`}, {-2.772588722239781, \
-8.813028410624405}}]}, {
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         Line[{{0., 
          0.06418533377425653}, {-0.6931471805599453, -1.935355050615883}, \
{-1.3862943611198906`, -4.6582545570805465`}, {-2.0794415416798357`, \
-6.635113242988137}, {-2.772588722239781, -8.724051322975098}}]}, {
         Hue[0.1421359549995791, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         Line[{{
          0., -15.35205123088571}, {-0.6931471805599453, \
-16.699236448639336`}, {-1.3862943611198906`, -18.071764823535386`}, \
{-2.0794415416798357`, -19.45322162445477}, {-2.772588722239781, \
-20.836764936773143`}}]}, {
         Hue[0.37820393249936934`, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         Line[{{0., 1.7035619344859294`}, {-0.6931471805599453, 
          0.35312565264981227`}, {-1.3862943611198906`, -1.002595086135996}, \
{-2.0794415416798357`, -2.3733992648992888`}, {-2.772588722239781, \
-3.7518320335221853`}}]}}, {{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              Disk[{0, 0}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.368417, 0.506779, 0.709798], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[6.272]], {{{
          0., -3.3283029312424635`}}, {{-0.6931471805599453, \
-4.675485359903117}}, {{-1.3862943611198906`, -6.048013734799167}}, \
{{-2.0794415416798357`, -7.4294615495443415`}}, {{-2.772588722239781, \
-8.813028410624405}}}]}, {
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              Polygon[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.880722, 0.611041, 0.142051], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[6.72]], {{{0., 
          0.06418533377425653}}, {{-0.6931471805599453, -1.935355050615883}}, \
{{-1.3862943611198906`, -4.6582545570805465`}}, {{-2.0794415416798357`, \
-6.635113242988137}}, {{-2.772588722239781, -8.724051322975098}}}]}, {
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              Polygon[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.560181, 0.691569, 0.194885], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[8.16]], {{{
          0., -15.35205123088571}}, {{-0.6931471805599453, \
-16.699236448639336`}}, {{-1.3862943611198906`, -18.071764823535386`}}, \
{{-2.0794415416798357`, -19.45322162445477}}, {{-2.772588722239781, \
-20.836764936773143`}}}]}, {
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              
              Polygon[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                1, 1 - 3^Rational[1, 2]}}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.922526, 0.385626, 0.209179], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[7.6]], {{{0., 1.7035619344859294`}}, {{-0.6931471805599453, 
          0.35312565264981227`}}, {{-1.3862943611198906`, \
-1.002595086135996}}, {{-2.0794415416798357`, -2.3733992648992888`}}, \
{{-2.772588722239781, -3.7518320335221853`}}}]}}}, {{}, {}}}, {
     DisplayFunction -> Identity, GridLines -> {
        Charting`ScaledTickValues[{Log, Exp}], 
        Charting`ScaledTickValues[{Log, Exp}]}, DisplayFunction -> Identity, 
      DisplayFunction -> Identity, DisplayFunction -> Identity, 
      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
      Axes -> {True, True}, AxesLabel -> {
        HoldForm[
         Style["h", 21, 
          GrayLevel[0]]], 
        HoldForm[
         Style["Error", 21, 
          GrayLevel[0]]]}, 
      AxesOrigin -> {-2.8893166328549054`, -22.60067343147736}, 
      DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{
         Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", 
          WorkingPrecision -> 15.954589770191003`, RotateLabel -> 0], 
         Charting`ScaledFrameTicks[{Log, Exp}]}, {
         Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", 
          WorkingPrecision -> 15.954589770191003`, RotateLabel -> 0], 
         Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {
        Charting`ScaledTickValues[{Log, Exp}], 
        Charting`ScaledTickValues[{Log, Exp}]}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 1000, LabelStyle -> 
      Directive[21.599999999999998`, Bold, 
        GrayLevel[0]], 
      Method -> {
       "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
          Directive[
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.922526, 0.385626, 0.209179], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.528488, 0.470624, 0.701351], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.772079, 0.431554, 0.102387], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.363898, 0.618501, 0.782349], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[1, 0.75, 0], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.647624, 0.37816, 0.614037], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.571589, 0.586483, 0.], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.915, 0.3325, 0.2125], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[
           0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
           AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
        "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> 
        Scaled[0.05], "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> 
        True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Exp[
             Part[#, 1]], 
            Exp[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Exp[
             Part[#, 1]], 
            Exp[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{-2.8893166328549054`, 0.}, {-22.60067343147736, 
       1.7035619344859294`}}, PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, Ticks -> {
        Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
         15.954589770191003`, RotateLabel -> 0], 
        Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
         15.954589770191003`, RotateLabel -> 0]}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]]}, {"p", "u", "divu", "\[Sigma]"}, 
       LegendMarkers -> {{
          Graphics[{
            EdgeForm[], 
            Disk[{0, 0}]}], 
          Offset[6.272]}, {
          Graphics[{
            EdgeForm[], 
            Polygon[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], 
          Offset[6.72]}, {
          Graphics[{
            EdgeForm[], 
            Polygon[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], 
          Offset[8.16]}, {
          Graphics[{
            EdgeForm[], 
            
            Polygon[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
              1, 1 - 3^Rational[1, 2]}}]}], 
          Offset[7.6]}}, Joined -> {True, True, True, True}, LabelStyle -> 
       Directive[21.599999999999998`, Bold, 
         GrayLevel[0]], 
       LegendFunction -> (
        Framed[#, FrameMargins -> 0, Background -> White]& ), LegendLayout -> 
       "Column"]], {0.2, 0.75}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.908458533106797*^9, {3.910860834459715*^9, 3.910860845691168*^9}, 
   3.910862783760957*^9, 3.9113064049545393`*^9, 3.911306787185011*^9},
 CellLabel->
  "Out[286]=",ExpressionUUID->"d99608bb-c340-4bf8-a337-768d721bd33f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.943573409001475`", ",", "1.9801398799419192`", ",", 
   "1.9930079115797583`", ",", "1.9960650492185184`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.908458533106797*^9, {3.910860834459715*^9, 3.910860845691168*^9}, 
   3.910862783760957*^9, 3.9113064049545393`*^9, 3.9113067872300673`*^9},
 CellLabel->
  "Out[287]=",ExpressionUUID->"5f3a723b-37f3-491c-9767-74aebc7fdd09"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.884726996616866`", ",", "3.928313614815576`", ",", "2.8520042226971527`",
    ",", "3.0137006087213023`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.908458533106797*^9, {3.910860834459715*^9, 3.910860845691168*^9}, 
   3.910862783760957*^9, 3.9113064049545393`*^9, 3.911306787231475*^9},
 CellLabel->
  "Out[288]=",ExpressionUUID->"f1c50c20-3cbb-465c-a6ab-ff5939343022"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.9435774328120756`", ",", "1.9801398799419192`", ",", 
   "1.9930208758887265`", ",", "1.9960310755368091`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.908458533106797*^9, {3.910860834459715*^9, 3.910860845691168*^9}, 
   3.910862783760957*^9, 3.9113064049545393`*^9, 3.911306787232576*^9},
 CellLabel->
  "Out[289]=",ExpressionUUID->"831a9f70-cc89-49b6-9e81-c3c3483dd35c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.9482677268414965`", ",", "1.9558915866766071`", ",", "1.97765239073167`",
    ",", "1.988658119491097`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.908458533106797*^9, {3.910860834459715*^9, 3.910860845691168*^9}, 
   3.910862783760957*^9, 3.9113064049545393`*^9, 3.911306787233519*^9},
 CellLabel->
  "Out[290]=",ExpressionUUID->"4c098992-afdf-45a1-a339-222d5a013eb5"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Poisson 0.5", "Chapter",
 CellChangeTimes->{{3.9086109432416077`*^9, 
  3.908610945744681*^9}},ExpressionUUID->"5d6090b4-ab22-419b-9dae-\
429170d17c83"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"poisson", "=", "0.5"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Errors1", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.035854", ",", "0.62113", ",", "1.0663", ",", "532.648", ",", 
       RowBox[{"9.05734", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "13"}]}]}], ",", "0", ",", "5.49349", ",", "65.8044"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors2", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.00932102", ",", "0.62113", ",", "0.144374", ",", "524.119", ",", 
       RowBox[{"5.88835", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "13"}]}]}], ",", "0", ",", "1.42352", ",", "57.3874"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors3", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.00236256", ",", "0.62113", ",", "0.00948302", ",", "521.974", ",", 
       RowBox[{"1.80933", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "12"}]}]}], ",", "0", ",", "0.366926", ",", "55.0694"}],
       "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors4", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.000593508", ",", "0.62113", ",", "0.00131343", ",", "521.44", ",", 
       RowBox[{"3.99944", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "12"}]}]}], ",", "0", ",", "0.0931637", ",", 
       "54.4734"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Errors5", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.000148782", ",", "0.62113", ",", "0.000162628", ",", "521.308", ",", 
       
       RowBox[{"1.34652", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "12"}]}]}], ",", "0", ",", "0.0234748", ",", 
       "54.3234"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Err", "=", 
     RowBox[{"{", 
      RowBox[{
      "Errors1", ",", "Errors2", ",", "Errors3", ",", "Errors4", ",", 
       "Errors5"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"perr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"uerr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"divuerr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sigmaerr", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Err", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "Err", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListLogLogPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"perr", ",", "uerr", ",", "divuerr", ",", "sigmaerr"}], "}"}], 
     ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "myImageSize"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<h\>\"", ",", "myAxesSize", ",", "Black"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Error\>\"", ",", "myAxesSize", ",", "Black"}], "]"}]}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"myLabelSize", "*", "1.2"}], ",", "Bold", ",", "Black"}], 
       "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"LineLegend", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\"\<p\>\"", ",", "\"\<u\>\"", ",", "\"\<divu\>\"", ",", 
            "\"\<\[Sigma]\>\""}], "}"}], ",", 
          RowBox[{"LegendFunction", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Framed", "[", 
              RowBox[{"#1", ",", " ", 
               RowBox[{"FrameMargins", " ", "->", " ", "0"}], ",", 
               RowBox[{"Background", "\[Rule]", "White"}]}], "]"}], " ", 
             "&"}], " ", ")"}]}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.2", ",", "0.4"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"perr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"perr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "uerr", "]"}], "-", "1"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"uerr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"uerr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "uerr", "]"}], "-", "1"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"divuerr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"divuerr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "divuerr", "]"}], "-", "1"}]}], "}"}]}], "]"}],
    "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"sigmaerr", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
        RowBox[{"sigmaerr", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "sigmaerr", "]"}], "-", "1"}]}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.908610959595563*^9, 3.908610976823522*^9}, 
   3.908611874226173*^9, {3.908612261479916*^9, 3.908612267988776*^9}, {
   3.908631746525334*^9, 3.9086317520844316`*^9}, 3.908631825262782*^9, {
   3.908631866557375*^9, 3.908631874607089*^9}, {3.908637575093635*^9, 
   3.908637606960718*^9}, 3.908872095271306*^9, {3.908872391657104*^9, 
   3.908872409244622*^9}, {3.908872566309367*^9, 3.908872576078038*^9}, {
   3.90887364769811*^9, 3.908873654485807*^9}, {3.909558628391637*^9, 
   3.909558633802103*^9}, 3.910863941638624*^9, {3.910864040300687*^9, 
   3.910864114653552*^9}, {3.910868348044854*^9, 3.910868355430416*^9}, {
   3.910881727936225*^9, 3.9108818343319197`*^9}, {3.910882301541635*^9, 
   3.9108823107246943`*^9}, {3.9112961843697987`*^9, 
   3.9112962461886663`*^9}, {3.911306853432654*^9, 3.9113068820300426`*^9}},
 CellLabel->
  "In[306]:=",ExpressionUUID->"feca9cd2-949a-4d4c-b56b-f672aa389ad9"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{}, {{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{
         0., -3.3283001421494904`}, {-0.6931471805599453, \
-4.675483214212897}, {-1.3862943611198906`, -6.048009502093473}, \
{-2.0794415416798357`, -7.429459864645667}, {-2.772588722239781, \
-8.813028410624405}}]}, 
       {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{0., 
         0.06419471204199682}, {-0.6931471805599453, -1.9353481241369932`}, \
{-1.3862943611198906`, -4.6582524480455465`}, {-2.0794415416798357`, \
-6.635113242988137}, {-2.772588722239781, -8.724045173953561}}]}, 
       {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{
         0., -27.7300307302101}, {-0.6931471805599453, -28.1606303863279}, \
{-1.3862943611198906`, -27.03806450492492}, {-2.0794415416798357`, \
-26.244866764609572`}, {-2.772588722239781, -27.33349762944591}}]}, 
       {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        LineBox[{{0., 1.703563754824021}, {-0.6931471805599453, 
         0.3531326775143201}, {-1.3862943611198906`, -1.002595086135996}, \
{-2.0794415416798357`, -2.373397118138107}, {-2.772588722239781, \
-3.7518277736259136`}}]}}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], DiskBox[{0, 0}]}],
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[6.272]], {{{
         0., -3.3283001421494904`}}, {{-0.6931471805599453, \
-4.675483214212897}}, {{-1.3862943611198906`, -6.048009502093473}}, \
{{-2.0794415416798357`, -7.429459864645667}}, {{-2.772588722239781, \
-8.813028410624405}}}]}, 
       {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], 
              PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}],
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.880722, 0.611041, 0.142051], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[6.72]], {{{0., 
         0.06419471204199682}}, {{-0.6931471805599453, \
-1.9353481241369932`}}, {{-1.3862943611198906`, -4.6582524480455465`}}, \
{{-2.0794415416798357`, -6.635113242988137}}, {{-2.772588722239781, \
-8.724045173953561}}}]}, 
       {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}],
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.560181, 0.691569, 0.194885], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[8.16]], {{{
         0., -27.7300307302101}}, {{-0.6931471805599453, -28.1606303863279}}, \
{{-1.3862943611198906`, -27.03806450492492}}, {{-2.0794415416798357`, \
-26.244866764609572`}}, {{-2.772588722239781, -27.33349762944591}}}]}, 
       {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        GeometricTransformationBox[InsetBox[
          FormBox[
           StyleBox[
            GraphicsBox[
             {EdgeForm[None], 
              PolygonBox[
               NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                 1, 1 - 3^Rational[1, 2]}}, {{0, 
                 1}, {-1, -0.7320508075688772}, {1, -0.7320508075688772}}]]}],
            
            StripOnInput->False,
            GraphicsBoxOptions->{DefaultBaseStyle->Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.922526, 0.385626, 0.209179], 
              AbsoluteThickness[1.6]]}],
           TraditionalForm], {0., 0.}, Automatic, Offset[7.6]], {{{0., 
         1.703563754824021}}, {{-0.6931471805599453, 
         0.3531326775143201}}, {{-1.3862943611198906`, -1.002595086135996}}, \
{{-2.0794415416798357`, -2.373397118138107}}, {{-2.772588722239781, \
-3.7518277736259136`}}}]}}}, {{}, {}}}, InsetBox[
     TemplateBox[{"\"p\"", "\"u\"", "\"divu\"", "\"\[Sigma]\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 6.272}, {20, 6.272}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 6.272}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.08426020408163262] -> 
                    Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 6.72}, {20, 6.72}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 6.72}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.051309523809523805`] -> 
                    Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 8.16}, {20, 8.16}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 8.16}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.03009803921568628] -> 
                    Baseline)], #3}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 7.6}, {20, 7.6}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[
                    
                    NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                    1, 1 - 3^Rational[1, 2]}}, {{0, 
                    1}, {-1, -0.7320508075688772}, {
                    1, -0.7320508075688772}}]]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 7.6}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.002105263157894735] -> 
                    Baseline)], #4}}, 
                  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, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
           Directive[21.599999999999998`, Bold, 
            GrayLevel[0]], FontFamily -> "Arial"}, Background -> Automatic, 
          StripOnInput -> False], FrameMargins -> 0, Background -> 
         GrayLevel[1], StripOnInput -> False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}], ",", 
                    RowBox[{"Offset", "[", "6.272`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], ",", 
                    RowBox[{"Offset", "[", "6.72`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], ",", 
                    RowBox[{"Offset", "[", "8.16`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[
                    
                    NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                    1, 1 - 3^Rational[1, 2]}}, {{0, 
                    1}, {-1, -0.7320508075688772}, {
                    1, -0.7320508075688772}}]]}], ",", 
                    RowBox[{"Offset", "[", "7.6`", "]"}]}], "}"}]}], "}"}]}], 
           ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "True", ",", "True"}], 
               "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
               RowBox[{"21.599999999999998`", ",", "Bold", ",", 
                 
                 TemplateBox[<|"color" -> GrayLevel[0]|>, 
                  "GrayLevelColorSwatchTemplate"]}], "]"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox[
                 "#1", FrameMargins -> 0, Background -> GrayLevel[1], 
                  StripOnInput -> False], "&"}], ")"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.2, 0.4}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{
     FormBox[
      TagBox[
       StyleBox["\"h\"", 21, 
        GrayLevel[0], StripOnInput -> False], HoldForm], TraditionalForm], 
     FormBox[
      TagBox[
       StyleBox["\"Error\"", 21, 
        GrayLevel[0], StripOnInput -> False], HoldForm], TraditionalForm]},
   AxesOrigin->{-2.8893166328549054`, -30.497673058066724`},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0], 
      Charting`ScaledFrameTicks[{Log, Exp}]}, {
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0], 
      Charting`ScaledFrameTicks[{Log, Exp}]}},
   GridLines->FrontEndValueCache[{
      Charting`ScaledTickValues[{Log, Exp}], 
      Charting`ScaledTickValues[{Log, Exp}]}, {{{-2.3025850929940455`, 
        Directive[]}, {-1.6094379124341003`, 
        Directive[]}, {-0.6931471805599453, 
        Directive[]}, {0., 
        Directive[]}}, {{-23.025850929940457`, 
        Directive[]}, {-13.815510557964274`, 
        Directive[]}, {-4.605170185988091, 
        Directive[]}}}],
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImageSize->1000,
   LabelStyle->Directive[21.599999999999998`, Bold, 
     GrayLevel[0]],
   Method->{
    "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
     "DefaultGraphicsInteraction" -> {
      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
       "Effects" -> {
        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
         "Droplines" -> {
          "freeformCursorMode" -> True, 
           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
     "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
       Directive[
        RGBColor[0.368417, 0.506779, 0.709798], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.880722, 0.611041, 0.142051], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.560181, 0.691569, 0.194885], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.922526, 0.385626, 0.209179], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.528488, 0.470624, 0.701351], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.772079, 0.431554, 0.102387], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.363898, 0.618501, 0.782349], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[1, 0.75, 0], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.647624, 0.37816, 0.614037], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.571589, 0.586483, 0.], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.915, 0.3325, 0.2125], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
        
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
        AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
     "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
     "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         Exp[
          Part[#, 1]], 
         Exp[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         Exp[
          Part[#, 1]], 
         Exp[
          Part[#, 2]]}& )}},
   PlotRange->{{-2.8893166328549054`, 0.}, {-30.497673058066724`, 
    1.703563754824021}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->FrontEndValueCache[{
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0], 
      Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
       15.954589770191003`, RotateLabel -> 0]}, {{{-2.3025850929940455`, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.1\"", ShowStringCharacters -> False], 
           0.1`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 
        0.}}, {-1.6094379124341003`, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.2\"", ShowStringCharacters -> False], 
           0.2`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 
        0.}}, {-0.6931471805599453, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.5\"", ShowStringCharacters -> False], 
           0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {0., 
        FormBox["1", TraditionalForm], {0.01, 0.}}, {-2.995732273553991, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.8134107167600364`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.659260036932778, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.5257286443082556`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.4079456086518722`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-1.8971199848858813`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-1.2039728043259361`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.916290731874155, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.5108256237659907, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.35667494393873245`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.2231435513142097, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-0.10536051565782628`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       0.4054651081081644, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       0.6931471805599453, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.0986122886681098`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.3862943611198906`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       1.6094379124341003`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}}, {{-23.025850929940457`, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "10"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
          TraditionalForm], {0.01, 0.}}, {-13.815510557964274`, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
         TraditionalForm], {0.01, 0.}}, {-4.605170185988091, 
        FormBox[
         TagBox[
          InterpretationBox[
           StyleBox["\"0.01\"", ShowStringCharacters -> False], 
           0.01`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 
        0.}}, {-32.23619130191664, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-29.933606208922594`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-27.631021115928547`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-25.328436022934504`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-20.72326583694641, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-18.420680743952367`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-16.11809565095832, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-11.512925464970229`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-9.210340371976182, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-6.907755278982137, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-2.3025850929940455`, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       0., 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       2.302585092994046, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       4.605170185988092, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       5.298317366548036, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
       5.703782474656201, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]],
  InterpretTemplate[Legended[
    Graphics[{{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Line[{{
          0., -3.3283001421494904`}, {-0.6931471805599453, \
-4.675483214212897}, {-1.3862943611198906`, -6.048009502093473}, \
{-2.0794415416798357`, -7.429459864645667}, {-2.772588722239781, \
-8.813028410624405}}]}, {
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         Line[{{0., 
          0.06419471204199682}, {-0.6931471805599453, -1.9353481241369932`}, \
{-1.3862943611198906`, -4.6582524480455465`}, {-2.0794415416798357`, \
-6.635113242988137}, {-2.772588722239781, -8.724045173953561}}]}, {
         Hue[0.1421359549995791, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         Line[{{
          0., -27.7300307302101}, {-0.6931471805599453, -28.1606303863279}, \
{-1.3862943611198906`, -27.03806450492492}, {-2.0794415416798357`, \
-26.244866764609572`}, {-2.772588722239781, -27.33349762944591}}]}, {
         Hue[0.37820393249936934`, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         Line[{{0., 1.703563754824021}, {-0.6931471805599453, 
          0.3531326775143201}, {-1.3862943611198906`, -1.002595086135996}, \
{-2.0794415416798357`, -2.373397118138107}, {-2.772588722239781, \
-3.7518277736259136`}}]}}, {{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              Disk[{0, 0}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.368417, 0.506779, 0.709798], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[6.272]], {{{
          0., -3.3283001421494904`}}, {{-0.6931471805599453, \
-4.675483214212897}}, {{-1.3862943611198906`, -6.048009502093473}}, \
{{-2.0794415416798357`, -7.429459864645667}}, {{-2.772588722239781, \
-8.813028410624405}}}]}, {
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              Polygon[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.880722, 0.611041, 0.142051], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[6.72]], {{{0., 
          0.06419471204199682}}, {{-0.6931471805599453, \
-1.9353481241369932`}}, {{-1.3862943611198906`, -4.6582524480455465`}}, \
{{-2.0794415416798357`, -6.635113242988137}}, {{-2.772588722239781, \
-8.724045173953561}}}]}, {
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              Polygon[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.560181, 0.691569, 0.194885], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[8.16]], {{{
          0., -27.7300307302101}}, {{-0.6931471805599453, \
-28.1606303863279}}, {{-1.3862943611198906`, -27.03806450492492}}, \
{{-2.0794415416798357`, -26.244866764609572`}}, {{-2.772588722239781, \
-27.33349762944591}}}]}, {
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         GeometricTransformation[
          Inset[
           Style[
            Graphics[{
              EdgeForm[], 
              
              Polygon[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                1, 1 - 3^Rational[1, 2]}}]}], 
            GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.922526, 0.385626, 0.209179], 
                AbsoluteThickness[1.6]]}], {0., 0.}, Automatic, 
           Offset[7.6]], {{{0., 1.703563754824021}}, {{-0.6931471805599453, 
          
          0.3531326775143201}}, {{-1.3862943611198906`, -1.002595086135996}}, \
{{-2.0794415416798357`, -2.373397118138107}}, {{-2.772588722239781, \
-3.7518277736259136`}}}]}}}, {{}, {}}}, {
     DisplayFunction -> Identity, GridLines -> {
        Charting`ScaledTickValues[{Log, Exp}], 
        Charting`ScaledTickValues[{Log, Exp}]}, DisplayFunction -> Identity, 
      DisplayFunction -> Identity, DisplayFunction -> Identity, 
      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
      Axes -> {True, True}, AxesLabel -> {
        HoldForm[
         Style["h", 21, 
          GrayLevel[0]]], 
        HoldForm[
         Style["Error", 21, 
          GrayLevel[0]]]}, 
      AxesOrigin -> {-2.8893166328549054`, -30.497673058066724`}, 
      DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{
         Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", 
          WorkingPrecision -> 15.954589770191003`, RotateLabel -> 0], 
         Charting`ScaledFrameTicks[{Log, Exp}]}, {
         Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", 
          WorkingPrecision -> 15.954589770191003`, RotateLabel -> 0], 
         Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {
        Charting`ScaledTickValues[{Log, Exp}], 
        Charting`ScaledTickValues[{Log, Exp}]}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 1000, LabelStyle -> 
      Directive[21.599999999999998`, Bold, 
        GrayLevel[0]], 
      Method -> {
       "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
          Directive[
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.922526, 0.385626, 0.209179], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.528488, 0.470624, 0.701351], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.772079, 0.431554, 0.102387], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.363898, 0.618501, 0.782349], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[1, 0.75, 0], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.647624, 0.37816, 0.614037], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.571589, 0.586483, 0.], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.915, 0.3325, 0.2125], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[
           0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
           AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
        "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> 
        Scaled[0.05], "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> 
        True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Exp[
             Part[#, 1]], 
            Exp[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Exp[
             Part[#, 1]], 
            Exp[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{-2.8893166328549054`, 0.}, {-30.497673058066724`, 
       1.703563754824021}}, PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, Ticks -> {
        Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
         15.954589770191003`, RotateLabel -> 0], 
        Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
         15.954589770191003`, RotateLabel -> 0]}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        Directive[
         PointSize[0.012833333333333334`], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]]}, {"p", "u", "divu", "\[Sigma]"}, 
       LegendMarkers -> {{
          Graphics[{
            EdgeForm[], 
            Disk[{0, 0}]}], 
          Offset[6.272]}, {
          Graphics[{
            EdgeForm[], 
            Polygon[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], 
          Offset[6.72]}, {
          Graphics[{
            EdgeForm[], 
            Polygon[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], 
          Offset[8.16]}, {
          Graphics[{
            EdgeForm[], 
            
            Polygon[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
              1, 1 - 3^Rational[1, 2]}}]}], 
          Offset[7.6]}}, Joined -> {True, True, True, True}, LabelStyle -> 
       Directive[21.599999999999998`, Bold, 
         GrayLevel[0]], 
       LegendFunction -> (
        Framed[#, FrameMargins -> 0, Background -> White]& ), LegendLayout -> 
       "Column"]], {0.2, 0.4}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.908612236612247*^9, 3.908612270441585*^9, {3.908637579046584*^9, 
   3.9086376082052307`*^9}, 3.908873657744935*^9, 3.909558638321312*^9, 
   3.9108641187011547`*^9, 3.910868360763543*^9, 3.910881837196986*^9, {
   3.910882302770247*^9, 3.910882310886397*^9}, 3.911296248707509*^9, {
   3.911306861171464*^9, 3.911306889684252*^9}},
 CellLabel->
  "Out[316]=",ExpressionUUID->"f7967c7b-db12-41dd-a04c-eb3a793d8a67"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.9435743372354357`", ",", "1.9801368690150454`", ",", "1.99301158728831`",
    ",", "1.99606748001348`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.908612236612247*^9, 3.908612270441585*^9, {3.908637579046584*^9, 
   3.9086376082052307`*^9}, 3.908873657744935*^9, 3.909558638321312*^9, 
   3.9108641187011547`*^9, 3.910868360763543*^9, 3.910881837196986*^9, {
   3.910882302770247*^9, 3.910882310886397*^9}, 3.911296248707509*^9, {
   3.911306861171464*^9, 3.911306889729344*^9}},
 CellLabel->
  "Out[317]=",ExpressionUUID->"21bbd3ea-2216-43df-b714-d52c38c8152f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.884730533800482`", ",", "3.928320564917985`", ",", "2.852007265391489`", 
   ",", "3.0136917375584247`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.908612236612247*^9, 3.908612270441585*^9, {3.908637579046584*^9, 
   3.9086376082052307`*^9}, 3.908873657744935*^9, 3.909558638321312*^9, 
   3.9108641187011547`*^9, 3.910868360763543*^9, 3.910881837196986*^9, {
   3.910882302770247*^9, 3.910882310886397*^9}, 3.911296248707509*^9, {
   3.911306861171464*^9, 3.911306889730483*^9}},
 CellLabel->
  "Out[318]=",ExpressionUUID->"48fea8e8-a093-48a1-97c7-2eeac095eb8f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.6212239884896381`", ",", 
   RowBox[{"-", "1.6195202301712217`"}], ",", 
   RowBox[{"-", "1.1443424463972862`"}], ",", "1.5705623500580477`"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.908612236612247*^9, 3.908612270441585*^9, {3.908637579046584*^9, 
   3.9086376082052307`*^9}, 3.908873657744935*^9, 3.909558638321312*^9, 
   3.9108641187011547`*^9, 3.910868360763543*^9, 3.910881837196986*^9, {
   3.910882302770247*^9, 3.910882310886397*^9}, 3.911296248707509*^9, {
   3.911306861171464*^9, 3.911306889731366*^9}},
 CellLabel->
  "Out[319]=",ExpressionUUID->"97164f55-bf92-4c12-81cc-20dbbe6e6c2c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.9482602182970457`", ",", "1.9559017214137955`", ",", 
   "1.9776492936099597`", ",", "1.9886550708815816`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.908612236612247*^9, 3.908612270441585*^9, {3.908637579046584*^9, 
   3.9086376082052307`*^9}, 3.908873657744935*^9, 3.909558638321312*^9, 
   3.9108641187011547`*^9, 3.910868360763543*^9, 3.910881837196986*^9, {
   3.910882302770247*^9, 3.910882310886397*^9}, 3.911296248707509*^9, {
   3.911306861171464*^9, 3.91130688973217*^9}},
 CellLabel->
  "Out[320]=",ExpressionUUID->"4b146bcb-3d8f-4b11-ad6d-b48931316f6b"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 759},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>0.9 Inherited,
FrontEndVersion->"13.2 for Linux x86 (64-bit) (January 31, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"0378e915-b220-48a6-b1e8-71b9c23ddc07"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 765, 20, 103, "Input",ExpressionUUID->"c91a52e6-2f0a-44da-9ff6-ed50e75f1bf2"],
Cell[CellGroupData[{
Cell[1348, 44, 211, 4, 61, "Chapter",ExpressionUUID->"3b714971-f858-4c2c-a2be-915bcf17db79"],
Cell[CellGroupData[{
Cell[1584, 52, 8178, 230, 384, "Input",ExpressionUUID->"666ffb1c-1764-47ec-90a7-f9c7b08d6664"],
Cell[9765, 284, 44814, 1048, 586, "Output",ExpressionUUID->"ea730cad-137e-46b6-bd51-d13959c6b2ca"],
Cell[54582, 1334, 571, 11, 30, "Output",ExpressionUUID->"1a6f4596-abc2-4e72-b679-5ec3b67a9a8c"],
Cell[55156, 1347, 571, 11, 30, "Output",ExpressionUUID->"379a5688-a3d4-4cb8-8eb5-afbed5138fc8"],
Cell[55730, 1360, 571, 11, 30, "Output",ExpressionUUID->"9bcf269d-3474-442c-81c2-aca6c8df8138"],
Cell[56304, 1373, 571, 11, 30, "Output",ExpressionUUID->"2a87dfce-4b39-4e01-b7d0-462b22777780"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[56924, 1390, 158, 3, 61, "Chapter",ExpressionUUID->"4a6b8362-e8f3-492c-acd9-70b64474dc47"],
Cell[CellGroupData[{
Cell[57107, 1397, 8015, 231, 384, "Input",ExpressionUUID->"d1844227-d84b-4d3c-bfd4-0163ae0dda88"],
Cell[65125, 1630, 46639, 1087, 586, "Output",ExpressionUUID->"74cec9d1-d7f2-4990-a242-e6affc93fad3"],
Cell[111767, 2719, 365, 8, 30, "Output",ExpressionUUID->"332709a9-93f6-4515-99eb-f9aeb23f73c4"],
Cell[112135, 2729, 364, 8, 30, "Output",ExpressionUUID->"47d9bab1-4358-491a-9724-5f9a8e424343"],
Cell[112502, 2739, 365, 8, 30, "Output",ExpressionUUID->"79a4eded-d778-4780-bc8c-e074fefbaf35"],
Cell[112870, 2749, 367, 8, 30, "Output",ExpressionUUID->"fe037e27-318f-4fed-8694-da894c64fba9"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[113286, 2763, 159, 3, 61, "Chapter",ExpressionUUID->"2dce105e-3b6c-4222-941a-2b2dfb47d996"],
Cell[CellGroupData[{
Cell[113470, 2770, 8242, 236, 384, "Input",ExpressionUUID->"e4973565-c93c-4899-9f3e-6fdfd8865f7d"],
Cell[121715, 3008, 39760, 922, 593, "Output",ExpressionUUID->"4028da95-05b0-4c19-8a5c-9423f63b33eb"],
Cell[161478, 3932, 395, 9, 30, "Output",ExpressionUUID->"415d950f-051c-4537-b0cf-63a55b474058"],
Cell[161876, 3943, 395, 9, 30, "Output",ExpressionUUID->"bec3ce3b-60c0-4773-a508-e76b42a34f17"],
Cell[162274, 3954, 393, 9, 30, "Output",ExpressionUUID->"0691f7c9-e06a-4603-a148-6edfc0c8ae39"],
Cell[162670, 3965, 394, 9, 30, "Output",ExpressionUUID->"ae274fe5-9476-431d-99c3-12c8cab8c9f2"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[163113, 3980, 161, 3, 61, "Chapter",ExpressionUUID->"f1589a55-369b-4ad0-8371-01c8291895b6"],
Cell[CellGroupData[{
Cell[163299, 3987, 8768, 253, 384, "Input",ExpressionUUID->"933e6185-5e2d-4ff2-af95-6d705ca6b5c6"],
Cell[172070, 4242, 40627, 941, 588, "Output",ExpressionUUID->"d99608bb-c340-4bf8-a337-768d721bd33f"],
Cell[212700, 5185, 419, 9, 30, "Output",ExpressionUUID->"5f3a723b-37f3-491c-9767-74aebc7fdd09"],
Cell[213122, 5196, 416, 9, 30, "Output",ExpressionUUID->"f1c50c20-3cbb-465c-a6ab-ff5939343022"],
Cell[213541, 5207, 418, 9, 30, "Output",ExpressionUUID->"831a9f70-cc89-49b6-9e81-c3c3483dd35c"],
Cell[213962, 5218, 415, 9, 30, "Output",ExpressionUUID->"4c098992-afdf-45a1-a339-222d5a013eb5"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[214426, 5233, 158, 3, 61, "Chapter",ExpressionUUID->"5d6090b4-ab22-419b-9dae-429170d17c83"],
Cell[CellGroupData[{
Cell[214609, 5240, 8824, 245, 384, "Input",ExpressionUUID->"feca9cd2-949a-4d4c-b56b-f672aa389ad9"],
Cell[223436, 5487, 40111, 930, 588, "Output",ExpressionUUID->"f7967c7b-db12-41dd-a04c-eb3a793d8a67"],
Cell[263550, 6419, 608, 12, 30, "Output",ExpressionUUID->"21bbd3ea-2216-43df-b714-d52c38c8152f"],
Cell[264161, 6433, 609, 12, 30, "Output",ExpressionUUID->"48fea8e8-a093-48a1-97c7-2eeac095eb8f"],
Cell[264773, 6447, 646, 13, 30, "Output",ExpressionUUID->"97164f55-bf92-4c12-81cc-20dbbe6e6c2c"],
Cell[265422, 6462, 611, 12, 30, "Output",ExpressionUUID->"4b146bcb-3d8f-4b11-ad6d-b48931316f6b"]
}, Open  ]]
}, Open  ]]
}
]
*)