quodratics1d.nb

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

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

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     23592,        664]
NotebookOptionsPosition[     21856,        629]
NotebookOutlinePosition[     22190,        644]
CellTagsIndexPosition[     22147,        641]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SeedRandom", "[", "0", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "\"\<Sampler1`\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Sigma]", "=", "0.00001"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"U", "[", "x_", "]"}], "=", 
   FractionBox[
    SuperscriptBox["x", "2"], 
    RowBox[{"2", " ", 
     SuperscriptBox["\[Sigma]", "2"]}]]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"dU", "[", "x_", "]"}], "=", 
   RowBox[{"GradientG", "[", 
    RowBox[{
     RowBox[{"U", "[", "x", "]"}], ",", 
     RowBox[{"{", "x", "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ddU", "[", "x_", "]"}], "=", 
   RowBox[{"HessianH", "[", 
    RowBox[{
     RowBox[{"U", "[", "x", "]"}], ",", 
     RowBox[{"{", "x", "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.808249437390602*^9, 3.808249468789117*^9}, {
   3.808249632175363*^9, 3.808249635636956*^9}, {3.808249765110931*^9, 
   3.808249766532976*^9}, 3.808254098303404*^9, {3.8082563792955236`*^9, 
   3.808256381597042*^9}, 3.808256704271912*^9, 3.8082567676558867`*^9, {
   3.808257135602641*^9, 3.808257140940946*^9}, {3.80825720411176*^9, 
   3.808257204717432*^9}, 3.808257874664433*^9, 3.808293009163722*^9, {
   3.808293569355691*^9, 3.80829356980971*^9}, 3.8083195815073442`*^9, {
   3.816823365459618*^9, 3.816823365783063*^9}, {3.8172867370346537`*^9, 
   3.8172867391812983`*^9}, {3.8174081497617073`*^9, 3.8174081655149183`*^9}},
 
 CellLabel->
  "(Debug) In[12]:=",ExpressionUUID->"530d178b-549b-42ba-b461-b6d8e5235c88"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"QS", "=", 
   RowBox[{"hmc", "[", 
    RowBox[{
    "U", ",", "dU", ",", "ddU", ",", "1", ",", "5000", ",", "10000", ",", 
     "True", ",", "True", ",", 
     RowBox[{"{", "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.817880399274666*^9, 3.817880402943*^9}, {
  3.8300748355890017`*^9, 3.8300748533893414`*^9}},
 CellLabel->
  "(Debug) In[20]:=",ExpressionUUID->"c6687eb6-28ed-4d4c-87b3-9ed9fda5a90c"],

Cell[CellGroupData[{

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","1001","1.516814642675648`","0.6126462517142348`",
   "0.5274717980814639`","0.5001562375427029`","0.7704539078903938`",
   "2.2872685505660417`","388803.71863047284`","0.00001853884953141786`",
   "0.0013513057093104016`","True",RowBox[{"{", 
     RowBox[{"1", ",", "3"}], "}"}],RowBox[{"{", 
     RowBox[{"1", ",", "4"}], "}"}]},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{
  3.817408490260065*^9, 3.817880407897356*^9, {3.830074843522871*^9, 
   3.830074856846431*^9}},
 CellLabel->
  "(Debug) During evaluation of \
In[20]:=",ExpressionUUID->"b31598f1-8233-40b2-ae50-fb1e59b7bac6"],

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","2002","321323.8999097684`","2.209134325396931`*^-10",
   "0.5331433559887142`","0.49990359574301213`","0.03065462348195662`",
   "1.657162398377248`","321323.9305643919`","0.00001853884953141786`",
   "0.0013513057093104044`","False",RowBox[{"{", "4", "}"}],
   RowBox[{"{", "2", "}"}]},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{
  3.817408490260065*^9, 3.817880407897356*^9, {3.830074843522871*^9, 
   3.830074857277643*^9}},
 CellLabel->
  "(Debug) During evaluation of \
In[20]:=",ExpressionUUID->"c9c27563-5e9f-460d-8c65-ad26fc0ee29b"],

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","3003","0.4813479793962496`","0.6103945636502977`",
   "0.42601075191097465`","0.5027163509248851`","1.0919466577714334`",
   "1.573294637167683`","112623.18069771667`","0.00001853884953141786`",
   "0.0026333125430608164`","True",RowBox[{"{", 
     RowBox[{"1", ",", "4"}], "}"}],RowBox[{"{", 
     RowBox[{"1", ",", "4"}], "}"}]},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{
  3.817408490260065*^9, 3.817880407897356*^9, {3.830074843522871*^9, 
   3.830074857711699*^9}},
 CellLabel->
  "(Debug) During evaluation of \
In[20]:=",ExpressionUUID->"31f20521-e729-4ea2-98c4-f39085248aab"],

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","4004","76921.4420755633`","1.7707097317724666`*^-10",
   "0.5663876561614586`","0.49887551810520275`","1.7192274900687636`",
   "1.9616503553540876`","76923.16130305338`","0.00001853884953141786`",
   "0.003186308177103591`","False",RowBox[{"{", 
     RowBox[{"1", ",", "4"}], "}"}],RowBox[{"{", 
     RowBox[{"2", ",", "3"}], "}"}]},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{
  3.817408490260065*^9, 3.817880407897356*^9, {3.830074843522871*^9, 
   3.830074858145344*^9}},
 CellLabel->
  "(Debug) During evaluation of \
In[20]:=",ExpressionUUID->"46562aeb-0288-4140-9108-743f0527e10d"],

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","5005","0.6893117084514768`","0.5198920516481689`",
   "0.9736824505327594`","0.04558333280796788`","1.186996196233936`",
   "1.8763079046854128`","112619.05959806587`","0.00001853884953141786`",
   "0.0019784466890013677`","True",RowBox[{"{", 
     RowBox[{"1", ",", "3"}], "}"}],RowBox[{"{", 
     RowBox[{"1", ",", "4"}], "}"}]},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{
  3.817408490260065*^9, 3.817880407897356*^9, {3.830074843522871*^9, 
   3.830074858578764*^9}},
 CellLabel->
  "(Debug) During evaluation of \
In[20]:=",ExpressionUUID->"e5c5a425-0eeb-4d6e-a7b3-451431081120"],

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","6006","112618.01620369726`","8.136146137918722`*^-11",
   "0.43738438460241774`","0.5036852085355047`","1.04339436861313`",
   "1.8763079046854128`","112619.05959806587`","0.00001853884953141786`",
   "0.0019784466890013677`","False",RowBox[{"{", 
     RowBox[{"1", ",", "3"}], "}"}],RowBox[{"{", 
     RowBox[{"1", ",", "4"}], "}"}]},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{
  3.817408490260065*^9, 3.817880407897356*^9, {3.830074843522871*^9, 
   3.830074858952753*^9}},
 CellLabel->
  "(Debug) During evaluation of \
In[20]:=",ExpressionUUID->"519acb43-58f1-4917-8e1d-d3c34d5f2bdf"],

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","7007",RowBox[{"-", "0.5505928515599827`"}],
   "0.08476715839561763`","0.35962041989812416`","0.4482845269915253`",
   "2.4269007562453955`","1.8763079046854128`","112619.05959806587`",
   "0.00001853884953141786`","0.0019784466890013677`","True",RowBox[{"{", 
     RowBox[{"1", ",", "3"}], "}"}],RowBox[{"{", 
     RowBox[{"1", ",", "4"}], "}"}]},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{
  3.817408490260065*^9, 3.817880407897356*^9, {3.830074843522871*^9, 
   3.830074859324278*^9}},
 CellLabel->
  "(Debug) During evaluation of \
In[20]:=",ExpressionUUID->"b3afb2df-66cf-436c-a1ba-bdd5ebc6d83a"],

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","8008","112618.24052018205`","1.0414580448526807`*^-10",
   "0.2445404870912209`","0.28943310189064125`","0.8190778838149756`",
   "1.8763079046854128`","112619.05959806587`","0.00001853884953141786`",
   "0.0019784466890013677`","False",RowBox[{"{", 
     RowBox[{"1", ",", "3"}], "}"}],RowBox[{"{", 
     RowBox[{"1", ",", "4"}], "}"}]},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{
  3.817408490260065*^9, 3.817880407897356*^9, {3.830074843522871*^9, 
   3.83007485969803*^9}},
 CellLabel->
  "(Debug) During evaluation of \
In[20]:=",ExpressionUUID->"525c5d6e-a997-4c2a-8f75-e8154621d67a"],

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","9009",RowBox[{"-", "0.19434481099666878`"}],
   "2.871072726210609`","0.9097197084713399`","0.15637005184976951`",
   "2.0706527156820815`","1.8763079046854128`","112619.05959806587`",
   "0.00001853884953141786`","0.0019784466890013677`","True",RowBox[{"{", 
     RowBox[{"1", ",", "3"}], "}"}],RowBox[{"{", 
     RowBox[{"1", ",", "4"}], "}"}]},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{
  3.817408490260065*^9, 3.817880407897356*^9, {3.830074843522871*^9, 
   3.830074860072699*^9}},
 CellLabel->
  "(Debug) During evaluation of \
In[20]:=",ExpressionUUID->"1787cbfd-90d1-43e9-8f9f-582a7f762a0c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StandardDeviation", "[", "QS", "]"}]], "Input",
 CellChangeTimes->{{3.817251599840847*^9, 3.817251607717531*^9}},
 CellLabel->
  "(Debug) In[21]:=",ExpressionUUID->"a0d6bcd0-e0f8-4e4c-bfc1-2f8b276861e9"],

Cell[BoxData[
 RowBox[{"{", "0.00001016456947251116`", "}"}]], "Output",
 CellChangeTimes->{
  3.817251342632609*^9, 3.817251533183263*^9, {3.817251583409112*^9, 
   3.8172516086565*^9}, 3.817251744945266*^9, 3.817251990300283*^9, 
   3.817252550682192*^9, 3.817252672720827*^9, 3.817252838900485*^9, 
   3.8172530696329947`*^9, 3.817286905389637*^9, 3.817408201068665*^9, 
   3.817880428917148*^9, {3.8300748470252323`*^9, 3.83007486052909*^9}},
 CellLabel->
  "(Debug) Out[21]=",ExpressionUUID->"d64e1166-1783-44f1-88f9-2ae819235299"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{"QS", "[", 
   RowBox[{"[", 
    RowBox[{";;", ",", "1"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8174082144213533`*^9, 3.817408228282523*^9}, {
  3.817408314858074*^9, 3.8174083185068808`*^9}},
 CellLabel->
  "(Debug) In[22]:=",ExpressionUUID->"82176365-8d31-4da9-913b-5615325dec8e"],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.581], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.581], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.00004, 0}, {-0.000035, 2.}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{33.119895916733384`, 54.85288230584467}, {
           89.5874668349878, 90.2191129102613}}],
         "DelayedMouseEffectStyle"],
        StatusArea[#, 2]& ,
        TagBoxNote->"2"],
       StyleBox["2", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.000035, 0}, {-0.00003, 28.}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{54.35288230584467, 76.08586869495596}, {
           87.8760678564322, 90.2191129102613}}],
         "DelayedMouseEffectStyle"],
        StatusArea[#, 28]& ,
        TagBoxNote->"28"],
       StyleBox["28", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[28, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.00003, 0}, {-0.000025, 80.}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{75.58586869495596, 97.31885508406724}, {
           84.453269899321, 90.2191129102613}}],
         "DelayedMouseEffectStyle"],
        StatusArea[#, 80]& ,
        TagBoxNote->"80"],
       StyleBox["80", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[80, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.000025, 0}, {-0.00002, 275.}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{96.81885508406724, 118.55184147317853`}, {
           71.61777756015402, 90.2191129102613}}],
         "DelayedMouseEffectStyle"],
        StatusArea[#, 275]& ,
        TagBoxNote->"275"],
       StyleBox["275", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[275, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.00002, 0}, {-0.000015, 692.}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{118.05184147317853`, 139.78482786228983`}, {
           44.1695708656277, 90.2191129102613}}],
         "DelayedMouseEffectStyle"],
        StatusArea[#, 692]& ,
        TagBoxNote->"692"],
       StyleBox["692", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[692, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.000015, 0}, {-0.00001, 1253.}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{139.28482786228983`, 161.0178142514011}, {
           7.242846751408834, 90.2191129102613}}],
         "DelayedMouseEffectStyle"],
        StatusArea[#, 1253]& ,
        TagBoxNote->"1253"],
       StyleBox["1253", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1253, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.00001, 0}, {-5.*^-6, 2145.}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{160.5178142514011, 
           182.25080064051238`}, {-51.47130282057553, 90.2191129102613}}],
         "DelayedMouseEffectStyle"],
        StatusArea[#, 2145]& ,
        TagBoxNote->"2145"],
       StyleBox["2145", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2145, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-5.*^-6, 0}, {0., 2872.}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{181.75080064051238`, 
           203.48378702962367`}, {-99.32465118249551, 90.2191129102613}}],
         "DelayedMouseEffectStyle"],
        StatusArea[#, 2872]& ,
        TagBoxNote->"2872"],
       StyleBox["2872", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2872, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0., 0}, {5.*^-6, 2897.}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{202.98378702962367`, 
           224.71677341873496`}, {-100.97022712341435`, 90.2191129102613}}],
         "DelayedMouseEffectStyle"],
        StatusArea[#, 2897]& ,
        TagBoxNote->"2897"],
       StyleBox["2897", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2897, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{5.*^-6, 0}, {0.00001, 2230.}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{224.21677341873496`, 
           245.94975980784625`}, {-57.06626101969958, 90.2191129102613}}],
         "DelayedMouseEffectStyle"],
        StatusArea[#, 2230]& ,
        TagBoxNote->"2230"],
       StyleBox["2230", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2230, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.00001, 0}, {0.000015, 1423.}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{245.44975980784625`, 
           267.1827461969575}, {-3.947069646839296, 90.2191129102613}}],
         "DelayedMouseEffectStyle"],
        StatusArea[#, 1423]& ,
        TagBoxNote->"1423"],
       StyleBox["1423", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1423, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.000015, 0}, {0.00002, 732.}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{266.6827461969575, 288.4157325860688}, {
           41.53664936015755, 90.2191129102613}}],
         "DelayedMouseEffectStyle"],
        StatusArea[#, 732]& ,
        TagBoxNote->"732"],
       StyleBox["732", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[732, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.00002, 0}, {0.000025, 297.}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{287.9157325860688, 309.6487189751801}, {
           70.16967073214543, 90.2191129102613}}],
         "DelayedMouseEffectStyle"],
        StatusArea[#, 297]& ,
        TagBoxNote->"297"],
       StyleBox["297", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[297, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.000025, 0}, {0.00003, 68.}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{309.1487189751801, 330.8817053642914}, {
           85.24314635096205, 90.2191129102613}}],
         "DelayedMouseEffectStyle"],
        StatusArea[#, 68]& ,
        TagBoxNote->"68"],
       StyleBox["68", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[68, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.00003, 0}, {0.000035, 6.}, "RoundingRadius" -> 0]},
          
          
          ImageSizeCache->{{330.3817053642914, 352.11469175340267`}, {
           89.32417468444078, 90.2191129102613}}],
         "DelayedMouseEffectStyle"],
        StatusArea[#, 6]& ,
        TagBoxNote->"6"],
       StyleBox["6", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[6, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.000041500000000000006`, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{-0.00004, 0.000035}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.817408224277945*^9, 3.81740827726985*^9, 3.817408320281899*^9, 
   3.817880429006538*^9, {3.830074847682043*^9, 3.830074860606792*^9}},
 CellLabel->
  "(Debug) Out[22]=",ExpressionUUID->"02c2e564-951f-46f0-b2dc-da049c3e60ab"]
}, Open  ]]
},
WindowSize->{1920, 1025},
WindowMargins->{{0, Automatic}, {0, Automatic}},
FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1770, 46, 236, "Input",ExpressionUUID->"530d178b-549b-42ba-b461-b6d8e5235c88"],
Cell[CellGroupData[{
Cell[2353, 70, 448, 11, 46, "Input",ExpressionUUID->"c6687eb6-28ed-4d4c-87b3-9ed9fda5a90c"],
Cell[CellGroupData[{
Cell[2826, 85, 646, 14, 25, "Print",ExpressionUUID->"b31598f1-8233-40b2-ae50-fb1e59b7bac6"],
Cell[3475, 101, 603, 13, 27, "Print",ExpressionUUID->"c9c27563-5e9f-460d-8c65-ad26fc0ee29b"],
Cell[4081, 116, 647, 14, 25, "Print",ExpressionUUID->"31f20521-e729-4ea2-98c4-f39085248aab"],
Cell[4731, 132, 650, 14, 27, "Print",ExpressionUUID->"46562aeb-0288-4140-9108-743f0527e10d"],
Cell[5384, 148, 647, 14, 25, "Print",ExpressionUUID->"e5c5a425-0eeb-4d6e-a7b3-451431081120"],
Cell[6034, 164, 651, 14, 27, "Print",ExpressionUUID->"519acb43-58f1-4917-8e1d-d3c34d5f2bdf"],
Cell[6688, 180, 664, 14, 25, "Print",ExpressionUUID->"b3afb2df-66cf-436c-a1ba-bdd5ebc6d83a"],
Cell[7355, 196, 653, 14, 27, "Print",ExpressionUUID->"525c5d6e-a997-4c2a-8f75-e8154621d67a"],
Cell[8011, 212, 663, 14, 25, "Print",ExpressionUUID->"1787cbfd-90d1-43e9-8f9f-582a7f762a0c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8723, 232, 227, 4, 46, "Input",ExpressionUUID->"a0d6bcd0-e0f8-4e4c-bfc1-2f8b276861e9"],
Cell[8953, 238, 536, 9, 50, "Output",ExpressionUUID->"d64e1166-1783-44f1-88f9-2ae819235299"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9526, 252, 350, 8, 46, "Input",ExpressionUUID->"82176365-8d31-4da9-913b-5615325dec8e"],
Cell[9879, 262, 11961, 364, 289, "Output",ExpressionUUID->"02c2e564-951f-46f0-b2dc-da049c3e60ab"]
}, Open  ]]
}
]
*)