Functions-2.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[    326975,       6587]
NotebookOptionsPosition[    318141,       6473]
NotebookOutlinePosition[    318512,       6489]
CellTagsIndexPosition[    318469,       6486]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "2"], " ", "-", "4"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"x", " ", "-", " ", "2"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"point", "=", "2"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Defining", " ", "left", " ", "limit", " ", "and", " ", "right", " ", 
    "limit", " ", "of", " ", "the", " ", "function"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"leftLim", "[", 
    RowBox[{"k_", ",", " ", "x_", ",", " ", "p_"}], "]"}], ":=", 
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{"k", "[", "x", "]"}], ",", " ", 
     RowBox[{"x", "\[Rule]", "p"}], ",", 
     RowBox[{"Direction", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"rightLim", "[", 
     RowBox[{"k_", ",", " ", "x_", ",", " ", "p_"}], "]"}], ":=", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{"k", "[", "x", "]"}], ",", " ", 
      RowBox[{"x", "\[Rule]", "p"}], ",", 
      RowBox[{"Direction", "\[Rule]", "1"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Left Continuous\>\"", 
   ",", " ", "\"\<Left Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"rightLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Right Continuous\>\"", 
   ",", " ", "\"\<Right Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"leftLim", "[", 
      RowBox[{"f", ",", "x", ",", "point"}], "]"}], "===", 
     RowBox[{"rightLim", "[", 
      RowBox[{"f", ",", "x", ",", "point"}], "]"}]}], ",", " ", 
    "\"\<left limit = right limit\>\"", ",", " ", 
    "\"\<left limit \[NotEqual] right limit\>\""}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"left", " ", "limit"}], " ", "=", " ", 
     RowBox[{
      RowBox[{"right", " ", "limit", " ", "but", " ", "they"}], " ", 
      "\[NotEqual]", " ", 
      RowBox[{"f", 
       RowBox[{"(", "2", ")"}]}]}]}], ",", " ", 
    RowBox[{"so", " ", "discontinuous"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"leftLim", "[", 
      RowBox[{"f", ",", "x", ",", "point"}], "]"}], "===", 
     RowBox[{"rightLim", "[", 
      RowBox[{"f", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
     RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Continuous\>\"", ",", 
    " ", "\"\<Discontinuous\>\""}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"DiscretePlot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "4", ",", "0.05"}], "}"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", "Thick"}], "}"}]}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.94840649334453*^9, 3.948406592457217*^9}, {
   3.948406656113704*^9, 3.9484067288353405`*^9}, {3.9484068316599226`*^9, 
   3.948406884311201*^9}, 3.9484069890248346`*^9, {3.9484070435474887`*^9, 
   3.9484071656138754`*^9}, {3.9484072224852495`*^9, 3.948407232436769*^9}, {
   3.94840972694259*^9, 3.948409736144309*^9}, 3.948410116244646*^9, {
   3.9484106623567567`*^9, 3.948410768700095*^9}, {3.9484136739582973`*^9, 
   3.9484136798112044`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"e520702a-010a-4aa2-9da2-864c432567cd"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,5,1,19152104921010593841,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.948406740151778*^9, {3.9484068644251432`*^9, 3.9484068854315896`*^9}, 
   3.9484069898107047`*^9, 3.948407235925254*^9, {3.9484097278797736`*^9, 
   3.9484097369122667`*^9}, 3.9484101254158764`*^9, 3.9484103168813906`*^9, 
   3.9484105284675503`*^9, 3.9484110262563887`*^9, 3.948413686732252*^9, 
   3.948413839476902*^9, 3.9499015439793406`*^9, 3.950258469685603*^9, 
   3.950258633564348*^9, 3.950260598839671*^9, 3.950260823544608*^9, 
   3.9507589512970457`*^9, 3.9507592066093135`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"e28de77d-588d-44e5-89e6-5083bda7abf1"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,5,2,19152104921010593841,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.948406740151778*^9, {3.9484068644251432`*^9, 3.9484068854315896`*^9}, 
   3.9484069898107047`*^9, 3.948407235925254*^9, {3.9484097278797736`*^9, 
   3.9484097369122667`*^9}, 3.9484101254158764`*^9, 3.9484103168813906`*^9, 
   3.9484105284675503`*^9, 3.9484110262563887`*^9, 3.948413686732252*^9, 
   3.948413839476902*^9, 3.9499015439793406`*^9, 3.950258469685603*^9, 
   3.950258633564348*^9, 3.950260598839671*^9, 3.950260823544608*^9, 
   3.9507589512970457`*^9, 3.9507592066133327`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"a113198e-ef9b-4e67-983a-241109cc539d"],

Cell[BoxData["\<\"Left Discontinuous\"\>"], "Output",
 CellChangeTimes->{
  3.9484067402465415`*^9, {3.9484068645179334`*^9, 3.9484068854971223`*^9}, 
   3.9484069898796296`*^9, 3.9484072359755516`*^9, {3.948409727954246*^9, 
   3.9484097369872684`*^9}, 3.948410125486554*^9, 3.94841031710893*^9, 
   3.948410528512554*^9, 3.948411026307945*^9, 3.9484136867780843`*^9, 
   3.948413839526427*^9, 3.9499015440409174`*^9, 3.9502584697324896`*^9, 
   3.9502586336057787`*^9, 3.9502605988865547`*^9, 3.9502608235921507`*^9, 
   3.9507589513688555`*^9, 3.950759206615341*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"f5a40276-dff1-43be-b425-7cbefe598377"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,6,3,19152104921010593841,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.948406740151778*^9, {3.9484068644251432`*^9, 3.9484068854315896`*^9}, 
   3.9484069898107047`*^9, 3.948407235925254*^9, {3.9484097278797736`*^9, 
   3.9484097369122667`*^9}, 3.9484101254158764`*^9, 3.9484103168813906`*^9, 
   3.9484105284675503`*^9, 3.9484110262563887`*^9, 3.948413686732252*^9, 
   3.948413839476902*^9, 3.9499015439793406`*^9, 3.950258469685603*^9, 
   3.950258633564348*^9, 3.950260598839671*^9, 3.950260823544608*^9, 
   3.9507589512970457`*^9, 3.950759206615341*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"75f78b38-5eba-4d04-aa0a-076caf22c097"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,6,4,19152104921010593841,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.948406740151778*^9, {3.9484068644251432`*^9, 3.9484068854315896`*^9}, 
   3.9484069898107047`*^9, 3.948407235925254*^9, {3.9484097278797736`*^9, 
   3.9484097369122667`*^9}, 3.9484101254158764`*^9, 3.9484103168813906`*^9, 
   3.9484105284675503`*^9, 3.9484110262563887`*^9, 3.948413686732252*^9, 
   3.948413839476902*^9, 3.9499015439793406`*^9, 3.950258469685603*^9, 
   3.950258633564348*^9, 3.950260598839671*^9, 3.950260823544608*^9, 
   3.9507589512970457`*^9, 3.950759206622694*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"5f32db5b-6093-4421-8733-42a0466e39ba"],

Cell[BoxData["\<\"Right Discontinuous\"\>"], "Output",
 CellChangeTimes->{
  3.9484067402465415`*^9, {3.9484068645179334`*^9, 3.9484068854971223`*^9}, 
   3.9484069898796296`*^9, 3.9484072359755516`*^9, {3.948409727954246*^9, 
   3.9484097369872684`*^9}, 3.948410125486554*^9, 3.94841031710893*^9, 
   3.948410528512554*^9, 3.948411026307945*^9, 3.9484136867780843`*^9, 
   3.948413839526427*^9, 3.9499015440409174`*^9, 3.9502584697324896`*^9, 
   3.9502586336057787`*^9, 3.9502605988865547`*^9, 3.9502608235921507`*^9, 
   3.9507589513688555`*^9, 3.950759206624879*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"04563921-c25a-4d1a-bb88-ecb7d37e0c4c"],

Cell[BoxData["\<\"left limit = right limit\"\>"], "Output",
 CellChangeTimes->{
  3.9484067402465415`*^9, {3.9484068645179334`*^9, 3.9484068854971223`*^9}, 
   3.9484069898796296`*^9, 3.9484072359755516`*^9, {3.948409727954246*^9, 
   3.9484097369872684`*^9}, 3.948410125486554*^9, 3.94841031710893*^9, 
   3.948410528512554*^9, 3.948411026307945*^9, 3.9484136867780843`*^9, 
   3.948413839526427*^9, 3.9499015440409174`*^9, 3.9502584697324896`*^9, 
   3.9502586336057787`*^9, 3.9502605988865547`*^9, 3.9502608235921507`*^9, 
   3.9507589513688555`*^9, 3.9507592066272645`*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"2f7f378e-9dad-4ae9-9fd2-9b5f5a07c363"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,8,5,19152104921010593841,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.948406740151778*^9, {3.9484068644251432`*^9, 3.9484068854315896`*^9}, 
   3.9484069898107047`*^9, 3.948407235925254*^9, {3.9484097278797736`*^9, 
   3.9484097369122667`*^9}, 3.9484101254158764`*^9, 3.9484103168813906`*^9, 
   3.9484105284675503`*^9, 3.9484110262563887`*^9, 3.948413686732252*^9, 
   3.948413839476902*^9, 3.9499015439793406`*^9, 3.950258469685603*^9, 
   3.950258633564348*^9, 3.950260598839671*^9, 3.950260823544608*^9, 
   3.9507589512970457`*^9, 3.9507592066272645`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"a2929363-33c4-4585-a750-64b4fc55e1ca"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,8,6,19152104921010593841,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.948406740151778*^9, {3.9484068644251432`*^9, 3.9484068854315896`*^9}, 
   3.9484069898107047`*^9, 3.948407235925254*^9, {3.9484097278797736`*^9, 
   3.9484097369122667`*^9}, 3.9484101254158764`*^9, 3.9484103168813906`*^9, 
   3.9484105284675503`*^9, 3.9484110262563887`*^9, 3.948413686732252*^9, 
   3.948413839476902*^9, 3.9499015439793406`*^9, 3.950258469685603*^9, 
   3.950258633564348*^9, 3.950260598839671*^9, 3.950260823544608*^9, 
   3.9507589512970457`*^9, 3.950759206634742*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"1d616563-51ca-4b96-a84e-ac8fba3d5636"],

Cell[BoxData["\<\"Discontinuous\"\>"], "Output",
 CellChangeTimes->{
  3.9484067402465415`*^9, {3.9484068645179334`*^9, 3.9484068854971223`*^9}, 
   3.9484069898796296`*^9, 3.9484072359755516`*^9, {3.948409727954246*^9, 
   3.9484097369872684`*^9}, 3.948410125486554*^9, 3.94841031710893*^9, 
   3.948410528512554*^9, 3.948411026307945*^9, 3.9484136867780843`*^9, 
   3.948413839526427*^9, 3.9499015440409174`*^9, 3.9502584697324896`*^9, 
   3.9502586336057787`*^9, 3.9502605988865547`*^9, 3.9502608235921507`*^9, 
   3.9507589513688555`*^9, 3.950759206634742*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"c5fea2df-9752-4f02-bd17-643404eacdca"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,9,7,19152104921010593841,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.948406740151778*^9, {3.9484068644251432`*^9, 3.9484068854315896`*^9}, 
   3.9484069898107047`*^9, 3.948407235925254*^9, {3.9484097278797736`*^9, 
   3.9484097369122667`*^9}, 3.9484101254158764`*^9, 3.9484103168813906`*^9, 
   3.9484105284675503`*^9, 3.9484110262563887`*^9, 3.948413686732252*^9, 
   3.948413839476902*^9, 3.9499015439793406`*^9, 3.950258469685603*^9, 
   3.950258633564348*^9, 3.950260598839671*^9, 3.950260823544608*^9, 
   3.9507589512970457`*^9, 3.9507592067418733`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"92adacc4-80b4-4062-82f7-f3414e35917e"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,9,8,19152104921010593841,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.948406740151778*^9, {3.9484068644251432`*^9, 3.9484068854315896`*^9}, 
   3.9484069898107047`*^9, 3.948407235925254*^9, {3.9484097278797736`*^9, 
   3.9484097369122667`*^9}, 3.9484101254158764`*^9, 3.9484103168813906`*^9, 
   3.9484105284675503`*^9, 3.9484110262563887`*^9, 3.948413686732252*^9, 
   3.948413839476902*^9, 3.9499015439793406`*^9, 3.950258469685603*^9, 
   3.950258633564348*^9, 3.950260598839671*^9, 3.950260823544608*^9, 
   3.9507589512970457`*^9, 3.9507592067932563`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"1ac383d3-8391-4054-9219-d039b5e68ab3"],

Cell[BoxData[
 GraphicsBox[{{
    {RGBColor[1, 0, 0], PointSize[0.0055000000000000005`], Thickness[Large], 
     TagBox[{
       {RGBColor[1, 0, 0], PointSize[0.0055000000000000005`], Thickness[
        Large], Opacity[0.2], LineBox[{},
         VertexColors->None]}, 
       {RGBColor[1, 0, 0], PointSize[0.0055000000000000005`], Thickness[
        Large], Opacity[0.2], LineBox[CompressedData["
1:eJxd1MtqFEEYhuGenvP5POPWWzAuXAj1XULwEsREd15P1BvwErJ2JUYRBEFw
oSiiKJJo1KjxNNX/K3xpGMJTTVe9XTOp81dvXtmpF0Wx/e9TxufMpbMDt/Y2
1910fXdzFcJ+fz89PNhc3N//f//i1ua6l/KfrZqwP38/VX9rwl7xOFzKzfxP
oq8U5n41/jT6SmFf/1n01YW5Xz33POXhvbqw970IN+Rm/pcpL7vbEPb+VylP
e9AQ9vVfR19T2N/vTexfU9j73oZbctP3Lvpawt73PvavJex9H6KvLex9H9Pt
PG9b2PsOwx25mf8w+jrC3n8UfR1hX/9Tqrq7wv5+n2P/usLedxzuyU3fcdrJ
8/aEve9LepTHe8Le9zX2ry/sfd+iry/sfSfhgdz0nUTfQNj7vqcHeXwg7H0/
0oW87lDY+35G31DY+07DI7npO43vdyTsfb/i+x0Je9/vdCmvOxb2vj/pTn5u
LOzPF7qcxyfC3lfoWh6fCHOfc606HybC3l+L5ybCvj9leCo3faWq/Z8Ke1+p
G3l8Kuzvz7k2Ffa+uqrf51TY+zjXZnLT14j3ngl7XyPGZ8Le14x1Z8Lex7k3
E/Y+zrW53PRxbs2Fva+l6vc3F/a+dqw7F/a+tqrzey7sfZxrC7np68S8C2Hv
68T4Qtj7uqrO14Ww93Xj+10Iex/n2lJu+nox71LY+3qxf0th7+vHukth7+vH
c0th7+NcW8lN3yDmXQl73yDGV8LeN4z9Wwl73zCeWwl7H+faWm76RvH/sRb2
vlHs31rY+8ZxvqyFvW8cz62FvW8SPid3UfwFF6rJUA==
         "],
         VertexColors->None]}},
      Annotation[#, "Charting`Private`Tag$1201#1"]& ]}, 
    TagBox[
     {RGBColor[1, 0, 0], PointSize[0.0055000000000000005`], Thickness[
      Large], {}, PointBox[CompressedData["
1:eJxdkklKJFEQhsuqrMGsMefeegXthQvhxRHEI4jTzvM4XMAjuHYlrU2DIAi9
6EYRRZFynqd88cVCHxQ/FRXxvcisb2x2eWa+WqlUpj8/ZX47srpSng23uFAe
+77pdnfKU5GfE+XZcj4mRvh922mOiGL+OM0q/XvwqqK5D6/K/AG8mmj9r/Pl
lRq8f/AC+v87j1kI4B86P7YTMH8Er859x+xXh3cCrwHvFF4D3hn7NeCdw2vC
u3Brfq4JbwivRf8QXgv+JbwW81dO7xnlvmv2G4V3Ay+Ed+Pm/VwI79b99vUQ
3h37teHdw2vDe4DXgfcArwPv0f3y9Q68JzfuOV14z/C68F7g9eC98Lw9eK88
bw/em5v0nD68d7fu+/pink35+kDMszlfH4h5pj4MxDzTvoGYZ5qRmGe6fyTm
2ZKvR9xfgxORNdH3GYl5phnDC9gjhhdQj+HV4cRinmlfLOaZZsKceZaIeabv
L6HehJOQTVG/EzHPNFN4LeZS+epZKuaZ+pqKeabPm4p5ppkxFzKXwQvZL6Pe
hpOJeaZ9mZhnmjm8DnM5feZZTr3LfrmYZ9qXi3mmWTDX4/8oxDzT/Qp4fXwp
4PXpK+CYNz/kA0iN0X4=
       "]], {}},
     Annotation[#, "Charting`Private`Tag$1201#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0., 0.},
  DisplayFunction->Identity,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "MessagesHead" -> DiscretePlot, "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]},
  PlotRange->{{0, 4.}, {0, 6.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.9484067402465415`*^9, {3.9484068645179334`*^9, 3.9484068854971223`*^9}, 
   3.9484069898796296`*^9, 3.9484072359755516`*^9, {3.948409727954246*^9, 
   3.9484097369872684`*^9}, 3.948410125486554*^9, 3.94841031710893*^9, 
   3.948410528512554*^9, 3.948411026307945*^9, 3.9484136867780843`*^9, 
   3.948413839526427*^9, 3.9499015440409174`*^9, 3.9502584697324896`*^9, 
   3.9502586336057787`*^9, 3.9502605988865547`*^9, 3.9502608235921507`*^9, 
   3.9507589513688555`*^9, 3.9507592068454657`*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"347bde5e-b4b3-4e31-bd4e-5e0ccba883bb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "x_", "]"}], ":=", 
    RowBox[{"Piecewise", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"x", "<", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", 
         RowBox[{"x", ">", "0"}]}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", 
         RowBox[{"x", "==", "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"point", "=", "0"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Defining", " ", "left", " ", "limit", " ", "and", " ", "right", " ", 
    "limit", " ", "of", " ", "the", " ", "function"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"leftLim", "[", 
    RowBox[{"k_", ",", " ", "x_", ",", " ", "p_"}], "]"}], ":=", 
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{"k", "[", "x", "]"}], ",", " ", 
     RowBox[{"x", "\[Rule]", "p"}], ",", 
     RowBox[{"Direction", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"rightLim", "[", 
     RowBox[{"k_", ",", " ", "x_", ",", " ", "p_"}], "]"}], ":=", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{"k", "[", "x", "]"}], ",", " ", 
      RowBox[{"x", "\[Rule]", "p"}], ",", 
      RowBox[{"Direction", "\[Rule]", "1"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Left Continuous\>\"", 
   ",", " ", "\"\<Left Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"rightLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Right Continuous\>\"", 
   ",", " ", "\"\<Right Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"leftLim", "[", 
      RowBox[{"f", ",", "x", ",", "point"}], "]"}], "===", 
     RowBox[{"rightLim", "[", 
      RowBox[{"f", ",", "x", ",", "point"}], "]"}]}], ",", " ", 
    "\"\<left limit = right limit\>\"", ",", " ", 
    "\"\<left limit \[NotEqual] right limit\>\""}], "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], "===", 
    RowBox[{"rightLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Continuous\>\"", ",", 
   " ", "\"\<Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DiscretePlot", "[", 
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"0", "-", "2"}], ",", "2", ",", "0.02"}], "}"}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.949887969280963*^9, 3.9498880645447764`*^9}, {
   3.9498881918136497`*^9, 3.949888194692881*^9}, {3.949888424389161*^9, 
   3.9498884393616023`*^9}, {3.9498884756896753`*^9, 3.949888518888982*^9}, 
   3.9498885812708063`*^9, {3.94988861512261*^9, 3.949888632842214*^9}, {
   3.9498888047826405`*^9, 3.949888816057562*^9}, {3.9498888681004634`*^9, 
   3.949888868713626*^9}, 3.9498889224450984`*^9, {3.949888954548627*^9, 
   3.949888955193803*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"bdce8a1e-38b8-43cd-b9a8-6ec9876bd6df"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJxTTMoPSmViYGCQBWIQrWcv9ur////7GcDgw/6g9rOrjeMR/PLzLbnp+/7B
+VeucL86mPgXzpc9kC9iLvMHzt+afYSV/+4vOD+hx/DDzaafcP6PSdUd++1/
wPmL+e5Jznj4Dc6f42VYdLnzK5zflJNYoen5Bc6vZl5VXvT2E5yf2HBe5dqK
j3D+1L1PZ8zJ+gDn77qvwbNG6R2cryzg4BQy7zWcv0mrI+vR4xdw/v2jGxXM
zJ7B+U91phrt3/YYzhesW2mmx/gQztcxe6+z9PMdOL/Z5e2FnRXX4XzRkHUT
IsUvIez7dpT/hMopOH/p7ae9L1v2wflaTL82Z0dvgfNjA2W23E5eAuev/5Kj
/OLWFDjfklV/+YOnIXA+AC1/uUM=
        "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQBmIQbcmqv/zB0xB7BjD4YP/BX/1TflEanF892e1UtkkB
nN+QtSbnslYVnH9YobN9rkATnH/i+ztNVvYeOD89XStt279JcH6O3QQOua9z
4PydXNVXD5UuhvNPbo532di5Bc43fcQo1xixH85X/rD7p9Whk3C+5+KbZ/0i
LsH5rr5CzF+3Xofz++OvNxhsvwPnH/eT5Q0Qegjnv1UUrbs06zGcX1qindgv
9gzOv35HICjtxAs4P6HS5jm7z2uE/7XNuw6zvoPz1Tj3vFji8QHOl92T7cra
8RHOZ/jFtLLo0Sc4/3vg3rijql/g/Nsm8dKqLV/h/IJwAUGlO9/gfMkpTyJY
ZH/A+euiFyz/XPETzg+3rfc4sfcXnL8xLlfJ6s9vOP8HlzPzztC/cH7QRWsz
2Rn/4HwHDs0JfD7/4Xw9e7FX//8j+ADeJ67e
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$2032#1"]& ], {}}, {{}, {}}, {{}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-2, 2}, {-1., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.9498880667687097`*^9, 3.9498881962131386`*^9, 3.949888441126379*^9, 
   3.9498884771159053`*^9, 3.9498885834934654`*^9, 3.9498886390238624`*^9, 
   3.949888817970767*^9, 3.9498888694061213`*^9, {3.9498889269793167`*^9, 
   3.9498889600184355`*^9}, 3.9499015445991626`*^9, 3.950258471107938*^9, 
   3.9502586348862514`*^9, 3.950260600157891*^9, 3.950260824830775*^9, 
   3.9507589522333937`*^9, 3.950759207961334*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"6dddfd83-4572-4fae-a8ea-08f8cbbc06d4"],

Cell[BoxData["\<\"Left Discontinuous\"\>"], "Output",
 CellChangeTimes->{
  3.9498880667687097`*^9, 3.9498881962131386`*^9, 3.949888441126379*^9, 
   3.9498884771159053`*^9, 3.9498885834934654`*^9, 3.9498886390238624`*^9, 
   3.949888817970767*^9, 3.9498888694061213`*^9, {3.9498889269793167`*^9, 
   3.9498889600184355`*^9}, 3.9499015445991626`*^9, 3.950258471107938*^9, 
   3.9502586348862514`*^9, 3.950260600157891*^9, 3.950260824830775*^9, 
   3.9507589522333937`*^9, 3.9507592091654587`*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"174428fd-4252-498f-ab97-8cb1a9a8cfab"],

Cell[BoxData["\<\"Right Discontinuous\"\>"], "Output",
 CellChangeTimes->{
  3.9498880667687097`*^9, 3.9498881962131386`*^9, 3.949888441126379*^9, 
   3.9498884771159053`*^9, 3.9498885834934654`*^9, 3.9498886390238624`*^9, 
   3.949888817970767*^9, 3.9498888694061213`*^9, {3.9498889269793167`*^9, 
   3.9498889600184355`*^9}, 3.9499015445991626`*^9, 3.950258471107938*^9, 
   3.9502586348862514`*^9, 3.950260600157891*^9, 3.950260824830775*^9, 
   3.9507589522333937`*^9, 3.950759209222787*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"2d0b90ca-ff81-4b79-83b2-282545cc87e4"],

Cell[BoxData["\<\"left limit \[NotEqual] right limit\"\>"], "Output",
 CellChangeTimes->{
  3.9498880667687097`*^9, 3.9498881962131386`*^9, 3.949888441126379*^9, 
   3.9498884771159053`*^9, 3.9498885834934654`*^9, 3.9498886390238624`*^9, 
   3.949888817970767*^9, 3.9498888694061213`*^9, {3.9498889269793167`*^9, 
   3.9498889600184355`*^9}, 3.9499015445991626`*^9, 3.950258471107938*^9, 
   3.9502586348862514`*^9, 3.950260600157891*^9, 3.950260824830775*^9, 
   3.9507589522333937`*^9, 3.95075920929598*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"52ee8062-d35e-4fea-b262-6b099e99398c"],

Cell[BoxData["\<\"Discontinuous\"\>"], "Output",
 CellChangeTimes->{
  3.9498880667687097`*^9, 3.9498881962131386`*^9, 3.949888441126379*^9, 
   3.9498884771159053`*^9, 3.9498885834934654`*^9, 3.9498886390238624`*^9, 
   3.949888817970767*^9, 3.9498888694061213`*^9, {3.9498889269793167`*^9, 
   3.9498889600184355`*^9}, 3.9499015445991626`*^9, 3.950258471107938*^9, 
   3.9502586348862514`*^9, 3.950260600157891*^9, 3.950260824830775*^9, 
   3.9507589522333937`*^9, 3.9507592093649435`*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"c4b10e60-c6a3-4d71-9fbc-caaa07915d47"],

Cell[BoxData[
 GraphicsBox[{{
    {RGBColor[1, 0, 0], PointSize[0.0038500000000000006`], Thickness[Large], 
     TagBox[{
       {RGBColor[1, 0, 0], PointSize[0.0038500000000000006`], Thickness[
        Large], Opacity[0.2], PolygonBox[CompressedData["
1:eJxtljtMVEEUhv9YGWJhQU2021iZaGEhYoelEEsqE4mdlIZYWKitFhRqLEyg
sNpYUEBDhJAYDCEaNYsEyD7AF6+7j7u7wLJ479nsmfx/nITcfOzemTn/N5s5
F+8+GL53BsCn5C996njcmx0sjE8MdCga6PCU84e+pztDM1n5fNr57at0zMr3
55yjoZnkP/Py/qLz+dzkWH/PR5lvyfnyyPOFOLMs8684v0vezk1+lvW+OF+7
ko6vzg9t/W9hvjiTrPDd+aztJ+d8O51uaNX5pe3vh3N+PJ1wzTlj+113tu2N
bTjbdDObzp1n3nnKXgh8q2ALOO9afYFfLKQFFJ2vWr0l51UrJ/Ajq3/L+UK6
nb5t50XLI/D90XT8dD5n+fxyfj+YbjDwHSvwt3PTAgn8xvL743w9jaf/r+QZ
+MmOFSz57jov29iVvPecrdzefck/sE03ciA+wnPYXojET+C6bSgSX2Xn11Zv
WfwFvmH1V8Rn4KLlURG/Vednlk9VfAe+ZAXWxH/gFcsvcOc8xJJnYNveQiz5
1p3tuIzWJe/AVm5PQ/IPbNNlG+KhKT6a4qMpPpri41B8HIqPQ/FxJD6OxMeR
+DgWH8fi41h8tMRHS3y0xMeJ+DgRHyfioy0+2uKjLT5Oxcep+DgVH7j5fwb4
+wDPB/B6AO8H4P0CXA/A9QKcB8B5AZwnwHkD7ANgXwD7BNg3wOcB4PMC8HkC
+LwBfB4BPq8An2eAzzvAv4fuCMy/p66PhvhoiI+6+KiLj7r4iMVHLD5i8VET
HzXxURMfVfFRFR9V8VERHxXxUREfZfFRFh9l8RGJj0h8ROIjkvwPJO99yXdf
8txz5vsO4PsQ4Psy6SzoPgX4vgX4Pk5ODt3XAN/nAN/3APcDAPcLAPcT3fOw
Lf63xHdJ/JbEZ1H8FcRXQfzkxUde8t+UvDck33XJc82Z+0GA+0WA+0mA+02A
+1GA+9Xk5FA/C3C/m8xH/TDA/TLA/TTA/Xa3/1+U9eZl/jmZb1ben5bvZ+Xz
KeEJ8RHGP/3xnVE=
         "],
         VertexColors->None]}, 
       {RGBColor[1, 0, 0], PointSize[0.0038500000000000006`], Thickness[
        Large], Opacity[0.2], PolygonBox[CompressedData["
1:eJx1lz9MU1EUxr84GWZmjBuu6oorjsrMZKKruBl0cJAZBwd1pTNxYMBFkJgY
DRqNYsUgacE/SAFfW1paCq28U+85+b7Em5CXX1rOO+f87jvv9uy1m2PXTwF4
c/KXX/+txf4lW5gdLU8OzvYWEo9PLzWGx4MHijMTIwPB80NTlavzXecbtoIH
LWBwHm166dj51kgeMfhMHm4o+O1yvo6c71jA4HOWYLClV+w4W7ip4Au2gvNq
R8uHzlbudPAlKzh4Jw9XaTs/eZyv4MsWMLiZl9toORfy9GaCx6yBwf1rcN/H
gfg4EB8H4qMpPprioyk+Gs6W3kSwhRsKNh3L++JjX3zsi4+6+KiLj7r4qDk/
sARr4qMmPqrioyo+quIjEx+Z+MjERyb9/yP93pP+7kk/d6V/O86WznDwfetP
xXnD+rEt9W9Lvb+lvi2pJ7i/n37J/gnu75efsj9+yH4ItvQmvzt/Nt+bzufN
76b43BB/ZfFVFj8l8VCS/q9Lv79Jf9ecSxb+q/Mj69+q8xUL+MX5dH8DOy9a
P1ac71r9n5wvWr0fpb4PUs97yf+d5Lss+b2WfF4537b7v3Tesvu9cH5q8Z9H
/y3eM+d79v9zUZ99f1Y+Lwg/FB//X/z9xAVnvl/6fM6Z8wW4HoDrBbgfAPcL
4H4C3G+AfQDsC2CfAPsGeD+c1Ef7JeVTdOb9lvJbdeb9mvJdc+b9nvJfFy8l
qSeYn7dUXzA/rwA/zwA/7wDPA4DnBcDzBOB5A/A8AnheATzPAJ53AM9DgOcl
wPMU4Hmb+rvjzPM69XvXmed96n8wvy/SyqSeTPxkUl8mvqpSb1X8VaX+mvgM
5vctwO9jgN/XAL/PAX7fA3weSP0L5vNE6mcwn0dSf5vOfJ5J/Q7m81DqfzCf
p9JqiY+W+GiJj5b4aIuPtvhoi49DZz5vJh+H4qMjPjrioyM+jsRHMJ+nAT5v
A3weTz6OxUdXfHTFR1d89MRHT3z0xEf6PQL8BcVOMmg=
         "],
         VertexColors->None]}},
      Annotation[#, "Charting`Private`Tag$2877#1"]& ]}, 
    TagBox[
     {RGBColor[1, 0, 0], PointSize[0.0038500000000000006`], Thickness[Large], 
      LineBox[CompressedData["
1:eJxdlj1MFGEQhk9tDLGwoD61QyujFhYidlgqsaQy0diJnUELC7E9Cws1FiZQ
WF0oKLABJJeYS86LRBQ0au4AFbkD9/73/mVnhneSd5PL5snezn4zz+x8e+rm
3bFbR2Kx2KH9X3r/dziGY0lPwWJyND85mOwvHvB4Yrk2NO48sDY9MTzgPB+f
Klyf74Fvy+E8KAGdo2iJ5S743nAU0flEFC7u/CETHR3wAwnofFoW6CzLW2uD
JdyU83k5nKNsR/MtsKSbcL4sCTsXo3CFJvjli+hwvioBnetRurUQPBMtb9p5
TArorGdn9dEgHw3y0SAfdfJRJx918lEDy/ImnCVc3Fl0ZKrko0o+quSjQj4q
5KNCPsrgp7LAMvkok48S+SiRjxL5CMhHQD4C8hFQ/f9RvfeovntUz12qXxEs
yxlyfiz1KYA3pB47lP8O5fuX8tumfJy1n/5Q/zhrv/ym/vhF/eAsy5vcAn8R
35vgc+J3k3xukL88+cqTnxx5yFH9f1K9f1B9v4NzEv4b+LnU7yv4mgRcBx/V
BgYvST0+gx9K/qvgC5LvJ8pvhfL5SOvP0noztL40rec9+L48PwXelue9A89K
/AWvv8R7C34k9895fvL/JF2fIX5GPvyw6yN2fcTuB1t8uj4Hfq3ro/8vgAPN
j+5PgY9rfSheGnxW60vxs+A36oeetwK+qH7BWv9Vj6f9Abb+AVt/ga3/wNaf
YOtfsPU32PofrOcc2N4fsL1fYHv/wPZ+grWfN8Hr+n6Dtf+3wCd1PoBTOj/A
d3S+gI/p/AHP6nwC39D5BQ51voFf6fwDX9L5SPV0tvlK9S2CbT5TvXfBNt+p
/s62P5APP9v+Qn6cbX8iXyWw7W/kz9n2R/LprPtJmfxWwE90fybfzmd0fyf/
zln9PqB+qFE9ne37g+pbB9v3C9Xb2b5/qP7O9v1EHkLyEZKPkHyE5KNJPprk
o0k+WuSjRT5a5KNNPtrko00+OuSjQz465KNLPrrko0s+euSjRz565KNPPvrk
o08+YlcO+D/x8HdB
       "]], {}, {}},
     Annotation[#, "Charting`Private`Tag$2877#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0., 0.},
  DisplayFunction->Identity,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "MessagesHead" -> DiscretePlot, "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]},
  PlotRange->{{-2., 2.}, {-1., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.9498880667687097`*^9, 3.9498881962131386`*^9, 3.949888441126379*^9, 
   3.9498884771159053`*^9, 3.9498885834934654`*^9, 3.9498886390238624`*^9, 
   3.949888817970767*^9, 3.9498888694061213`*^9, {3.9498889269793167`*^9, 
   3.9498889600184355`*^9}, 3.9499015445991626`*^9, 3.950258471107938*^9, 
   3.9502586348862514`*^9, 3.950260600157891*^9, 3.950260824830775*^9, 
   3.9507589522333937`*^9, 3.9507592094449296`*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"58ccf492-1597-4b2e-938b-8c96497741ff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "x_", "]"}], ":=", 
    RowBox[{"Piecewise", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "x"}], ",", 
         RowBox[{"x", "<", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"x", ">", "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"f", 
      RowBox[{"(", "x", ")"}]}], "=", 
     RowBox[{"|", "x", "|"}]}], " ", ",", " ", 
    RowBox[{
     RowBox[{"not", " ", "differenetiable", " ", "at", " ", "x"}], "=", 
     "0"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"g", "[", "x_", "]"}], ":=", 
    RowBox[{"Piecewise", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"x", "<", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "x"}], ",", 
         RowBox[{"x", ">", "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"g", 
      RowBox[{"(", "x", ")"}]}], "=", 
     RowBox[{"-", 
      RowBox[{"|", "x", "|"}]}]}], " ", ",", " ", 
    RowBox[{
     RowBox[{"not", " ", "differentiable", " ", "at", " ", "x"}], "=", 
     "0"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"h", "[", "x_", "]"}], ":=", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], "+", 
     RowBox[{"g", "[", "x", "]"}]}]}], ";"}], "           ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"h", 
      RowBox[{"(", "x", ")"}]}], "=", 
     RowBox[{
      RowBox[{"f", 
       RowBox[{"(", "x", ")"}]}], "+", 
      RowBox[{"g", 
       RowBox[{"(", "x", ")"}]}]}]}], " ", ",", " ", 
    RowBox[{
     RowBox[{"differenetiable", " ", "at", " ", "x"}], "=", "0"}]}], " ", 
   "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"point", "=", "0"}], ";"}], "         ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Check", " ", "differentiability", " ", "by", " ", "changing", " ", "the", 
    " ", "point"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], "/.", 
      RowBox[{"x", "\[Rule]", 
       RowBox[{"point", "\[IndentingNewLine]", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"g", "[", "x", "]"}], ",", "x"}], "]"}]}]}]}], "/.", 
     RowBox[{"x", "\[Rule]", 
      RowBox[{"point", " ", "\[IndentingNewLine]", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"h", "[", "x", "]"}], ",", "x"}], "]"}]}]}]}], "/.", 
    RowBox[{"x", "\[Rule]", "point"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Simplify", "[", 
    RowBox[{"h", "[", "x", "]"}], "]"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"leftDeriv", "=", 
     RowBox[{"Limit", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "x", "]"}], "-", 
          RowBox[{"h", "[", "point", "]"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"x", "-", "point"}], ")"}]}], ",", " ", 
       RowBox[{"x", "\[Rule]", "0"}], ",", 
       RowBox[{"Direction", "\[Rule]", 
        RowBox[{"-", "1"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"rightDeriv", "=", 
     RowBox[{"Limit", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "x", "]"}], "-", 
          RowBox[{"h", "[", "point", "]"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"x", "-", "point"}], ")"}]}], ",", " ", 
       RowBox[{"x", "\[Rule]", "0"}], ",", 
       RowBox[{"Direction", "\[Rule]", "1"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"leftDeriv", "===", "rightDeriv"}], ",", " ", 
      "\"\<Differentiable\>\"", ",", " ", "\"\<Not Differentiable\>\""}], 
     "]"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Defining", " ", "left", " ", "limit", " ", "and", " ", "right", " ", 
    "limit", " ", "of", " ", "the", " ", "function"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"leftLim", "[", 
    RowBox[{"k_", ",", " ", "x_", ",", " ", "p_"}], "]"}], ":=", 
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{"k", "[", "x", "]"}], ",", " ", 
     RowBox[{"x", "\[Rule]", "p"}], ",", 
     RowBox[{"Direction", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"rightLim", "[", 
     RowBox[{"k_", ",", " ", "x_", ",", " ", "p_"}], "]"}], ":=", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{"k", "[", "x", "]"}], ",", " ", 
      RowBox[{"x", "\[Rule]", "p"}], ",", 
      RowBox[{"Direction", "\[Rule]", "1"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Defining", " ", "left", " ", "derivative", " ", "and", " ", "right", " ", 
    "derivative"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"leftDeriv", "[", 
    RowBox[{"k_", ",", "x_", ",", "p_"}], "]"}], ":=", 
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"k", "[", "x", "]"}], "-", 
        RowBox[{"k", "[", "p", "]"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"x", "-", "p"}], ")"}]}], ",", " ", 
     RowBox[{"x", "\[Rule]", "p"}], ",", 
     RowBox[{"Direction", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"rightDeriv", "[", 
     RowBox[{"k_", ",", "x_", ",", "p_"}], "]"}], ":=", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"k", "[", "x", "]"}], "-", 
         RowBox[{"k", "[", "p", "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"x", "-", "p"}], ")"}]}], ",", " ", 
      RowBox[{"x", "\[Rule]", "p"}], ",", 
      RowBox[{"Direction", "\[Rule]", "1"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Left Continuous\>\"", 
   ",", " ", "\"\<Left Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"rightLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Right Continuous\>\"", 
   ",", " ", "\"\<Right Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"leftLim", "[", 
      RowBox[{"f", ",", "x", ",", "point"}], "]"}], "===", 
     RowBox[{"rightLim", "[", 
      RowBox[{"f", ",", "x", ",", "point"}], "]"}]}], ",", " ", 
    "\"\<left limit = right limit\>\"", ",", " ", 
    "\"\<left limit \[NotEqual] right limit\>\""}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], "===", 
    RowBox[{"rightLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Continuous\>\"", ",", 
   " ", "\"\<Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftLim", "[", 
     RowBox[{"g", ",", "x", ",", "point"}], "]"}], "===", 
    RowBox[{"rightLim", "[", 
     RowBox[{"g", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"g", "[", "point", "]"}]}], ",", " ", "\"\<Continuous\>\"", ",", 
   " ", "\"\<Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"leftLim", "[", 
      RowBox[{"h", ",", "x", ",", "point"}], "]"}], "===", 
     RowBox[{"rightLim", "[", 
      RowBox[{"h", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
     RowBox[{"h", "[", "point", "]"}]}], ",", " ", "\"\<Continuous\>\"", ",", 
    " ", "\"\<Discontinuous\>\""}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"leftDeriv", "[", 
      RowBox[{"f", ",", "x", ",", "point"}], "]"}], "===", 
     RowBox[{"rightDeriv", "[", 
      RowBox[{"f", ",", "x", ",", "point"}], "]"}]}], ",", " ", 
    "\"\<Differentiable\>\"", ",", " ", "\"\<Not Differentiable\>\""}], "]"}],
   "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "continuous", " ", "but", " ", "has", " ", "notch", " ", "at", " ", "x"}],
     "=", "0"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"leftDeriv", "[", 
      RowBox[{"g", ",", "x", ",", "point"}], "]"}], "===", 
     RowBox[{"rightDeriv", "[", 
      RowBox[{"g", ",", "x", ",", "point"}], "]"}]}], ",", " ", 
    "\"\<Differentiable\>\"", ",", " ", "\"\<Not Differentiable\>\""}], "]"}],
   "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "continuous", " ", "but", " ", "has", " ", "notch", " ", "at", " ", "x"}],
     "=", "0"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"leftDeriv", "[", 
      RowBox[{"h", ",", "x", ",", "point"}], "]"}], "===", 
     RowBox[{"rightDeriv", "[", 
      RowBox[{"h", ",", "x", ",", "point"}], "]"}]}], ",", " ", 
    "\"\<Differentiable\>\"", ",", " ", "\"\<Not Differentiable\>\""}], "]"}],
   "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "continuous", " ", "and", " ", "has", " ", "no", " ", "notch", " ", "at", 
     " ", "x"}], "=", "0"}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"f", 
         RowBox[{"(", "x", ")"}]}], " ", "+", " ", 
        RowBox[{"g", 
         RowBox[{"(", "x", ")"}]}]}], ")"}], " ", "is", " ", "a", " ", 
      "horizontal", " ", "line", " ", "through", " ", "x"}], "-", 
     RowBox[{
     "axis", " ", "and", " ", "differentiable", " ", "at", " ", "all", " ", 
      "points", " ", "including", " ", "x"}]}], "=", 
    RowBox[{
    "0.", " ", "Its", " ", "derivative", " ", "at", " ", "each", " ", "point",
      " ", "is", " ", "0"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{"g", "[", "x", "]"}], ",", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", "x", "]"}], "+", 
       RowBox[{"g", "[", "x", "]"}]}], ")"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Green", ",", "Thick"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Orange", ",", "Thick"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Red", ",", "Thick"}], "]"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.947901290490603*^9, {3.947901452484494*^9, 3.947901560223339*^9}, {
   3.9483499650070524`*^9, 3.948349988725181*^9}, {3.948350020542116*^9, 
   3.9483502434125586`*^9}, {3.948406327423858*^9, 3.9484064381642723`*^9}, {
   3.948409852183541*^9, 3.948409882864294*^9}, {3.9484101400352683`*^9, 
   3.9484101783513474`*^9}, {3.948410815971009*^9, 3.9484108788932505`*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"7b187cdf-e71a-4e18-a016-610601c19c6b"],

Cell[BoxData["\<\"Left Continuous\"\>"], "Output",
 CellChangeTimes->{{3.9479015432775345`*^9, 3.9479015706241283`*^9}, 
   3.9479017265403976`*^9, 3.9479023343758984`*^9, 3.9479025430883284`*^9, 
   3.9483501983729477`*^9, 3.948350398126398*^9, 3.948406352883916*^9, 
   3.948406399204611*^9, 3.948406443118907*^9, 3.948409887363803*^9, 
   3.948410182095023*^9, 3.9484103181240253`*^9, 3.94841053256767*^9, 
   3.948411027583457*^9, 3.9484138412876563`*^9, 3.9499015450230026`*^9, 
   3.9502584731158447`*^9, 3.9502586366090994`*^9, 3.9502606018908396`*^9, 
   3.9502608266442976`*^9, 3.950758954055515*^9, 3.9507592097450056`*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"eb1457ee-afa4-440e-8a26-7ff5ff1e68e1"],

Cell[BoxData["\<\"Right Continuous\"\>"], "Output",
 CellChangeTimes->{{3.9479015432775345`*^9, 3.9479015706241283`*^9}, 
   3.9479017265403976`*^9, 3.9479023343758984`*^9, 3.9479025430883284`*^9, 
   3.9483501983729477`*^9, 3.948350398126398*^9, 3.948406352883916*^9, 
   3.948406399204611*^9, 3.948406443118907*^9, 3.948409887363803*^9, 
   3.948410182095023*^9, 3.9484103181240253`*^9, 3.94841053256767*^9, 
   3.948411027583457*^9, 3.9484138412876563`*^9, 3.9499015450230026`*^9, 
   3.9502584731158447`*^9, 3.9502586366090994`*^9, 3.9502606018908396`*^9, 
   3.9502608266442976`*^9, 3.950758954055515*^9, 3.9507592097912664`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"d3065dcb-f433-4154-a54a-d277e0a7b736"],

Cell[BoxData["\<\"left limit = right limit\"\>"], "Output",
 CellChangeTimes->{{3.9479015432775345`*^9, 3.9479015706241283`*^9}, 
   3.9479017265403976`*^9, 3.9479023343758984`*^9, 3.9479025430883284`*^9, 
   3.9483501983729477`*^9, 3.948350398126398*^9, 3.948406352883916*^9, 
   3.948406399204611*^9, 3.948406443118907*^9, 3.948409887363803*^9, 
   3.948410182095023*^9, 3.9484103181240253`*^9, 3.94841053256767*^9, 
   3.948411027583457*^9, 3.9484138412876563`*^9, 3.9499015450230026`*^9, 
   3.9502584731158447`*^9, 3.9502586366090994`*^9, 3.9502606018908396`*^9, 
   3.9502608266442976`*^9, 3.950758954055515*^9, 3.9507592099007797`*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"a8428426-3792-4108-8389-5972d4926a8b"],

Cell[BoxData["\<\"Continuous\"\>"], "Output",
 CellChangeTimes->{{3.9479015432775345`*^9, 3.9479015706241283`*^9}, 
   3.9479017265403976`*^9, 3.9479023343758984`*^9, 3.9479025430883284`*^9, 
   3.9483501983729477`*^9, 3.948350398126398*^9, 3.948406352883916*^9, 
   3.948406399204611*^9, 3.948406443118907*^9, 3.948409887363803*^9, 
   3.948410182095023*^9, 3.9484103181240253`*^9, 3.94841053256767*^9, 
   3.948411027583457*^9, 3.9484138412876563`*^9, 3.9499015450230026`*^9, 
   3.9502584731158447`*^9, 3.9502586366090994`*^9, 3.9502606018908396`*^9, 
   3.9502608266442976`*^9, 3.950758954055515*^9, 3.950759210001005*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"456a8bb9-63a2-491c-85a7-4671225f987d"],

Cell[BoxData["\<\"Continuous\"\>"], "Output",
 CellChangeTimes->{{3.9479015432775345`*^9, 3.9479015706241283`*^9}, 
   3.9479017265403976`*^9, 3.9479023343758984`*^9, 3.9479025430883284`*^9, 
   3.9483501983729477`*^9, 3.948350398126398*^9, 3.948406352883916*^9, 
   3.948406399204611*^9, 3.948406443118907*^9, 3.948409887363803*^9, 
   3.948410182095023*^9, 3.9484103181240253`*^9, 3.94841053256767*^9, 
   3.948411027583457*^9, 3.9484138412876563`*^9, 3.9499015450230026`*^9, 
   3.9502584731158447`*^9, 3.9502586366090994`*^9, 3.9502606018908396`*^9, 
   3.9502608266442976`*^9, 3.950758954055515*^9, 3.9507592100906267`*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"b79f9f2a-4db9-43e3-a555-6606a4783dd3"],

Cell[BoxData["\<\"Continuous\"\>"], "Output",
 CellChangeTimes->{{3.9479015432775345`*^9, 3.9479015706241283`*^9}, 
   3.9479017265403976`*^9, 3.9479023343758984`*^9, 3.9479025430883284`*^9, 
   3.9483501983729477`*^9, 3.948350398126398*^9, 3.948406352883916*^9, 
   3.948406399204611*^9, 3.948406443118907*^9, 3.948409887363803*^9, 
   3.948410182095023*^9, 3.9484103181240253`*^9, 3.94841053256767*^9, 
   3.948411027583457*^9, 3.9484138412876563`*^9, 3.9499015450230026`*^9, 
   3.9502584731158447`*^9, 3.9502586366090994`*^9, 3.9502606018908396`*^9, 
   3.9502608266442976`*^9, 3.950758954055515*^9, 3.9507592102875514`*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"6f521a18-9b63-4c70-90a5-303d56efd54e"],

Cell[BoxData["\<\"Not Differentiable\"\>"], "Output",
 CellChangeTimes->{{3.9479015432775345`*^9, 3.9479015706241283`*^9}, 
   3.9479017265403976`*^9, 3.9479023343758984`*^9, 3.9479025430883284`*^9, 
   3.9483501983729477`*^9, 3.948350398126398*^9, 3.948406352883916*^9, 
   3.948406399204611*^9, 3.948406443118907*^9, 3.948409887363803*^9, 
   3.948410182095023*^9, 3.9484103181240253`*^9, 3.94841053256767*^9, 
   3.948411027583457*^9, 3.9484138412876563`*^9, 3.9499015450230026`*^9, 
   3.9502584731158447`*^9, 3.9502586366090994`*^9, 3.9502606018908396`*^9, 
   3.9502608266442976`*^9, 3.950758954055515*^9, 3.950759210392175*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"ee78cdaa-c4e2-40a9-b76a-8b8333e7537c"],

Cell[BoxData["\<\"Not Differentiable\"\>"], "Output",
 CellChangeTimes->{{3.9479015432775345`*^9, 3.9479015706241283`*^9}, 
   3.9479017265403976`*^9, 3.9479023343758984`*^9, 3.9479025430883284`*^9, 
   3.9483501983729477`*^9, 3.948350398126398*^9, 3.948406352883916*^9, 
   3.948406399204611*^9, 3.948406443118907*^9, 3.948409887363803*^9, 
   3.948410182095023*^9, 3.9484103181240253`*^9, 3.94841053256767*^9, 
   3.948411027583457*^9, 3.9484138412876563`*^9, 3.9499015450230026`*^9, 
   3.9502584731158447`*^9, 3.9502586366090994`*^9, 3.9502606018908396`*^9, 
   3.9502608266442976`*^9, 3.950758954055515*^9, 3.950759210491784*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"41bb9f42-9b69-407f-b935-40a5a0324f0c"],

Cell[BoxData["\<\"Differentiable\"\>"], "Output",
 CellChangeTimes->{{3.9479015432775345`*^9, 3.9479015706241283`*^9}, 
   3.9479017265403976`*^9, 3.9479023343758984`*^9, 3.9479025430883284`*^9, 
   3.9483501983729477`*^9, 3.948350398126398*^9, 3.948406352883916*^9, 
   3.948406399204611*^9, 3.948406443118907*^9, 3.948409887363803*^9, 
   3.948410182095023*^9, 3.9484103181240253`*^9, 3.94841053256767*^9, 
   3.948411027583457*^9, 3.9484138412876563`*^9, 3.9499015450230026`*^9, 
   3.9502584731158447`*^9, 3.9502586366090994`*^9, 3.9502606018908396`*^9, 
   3.9502608266442976`*^9, 3.950758954055515*^9, 3.950759210898908*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"2b89637d-3f63-48d9-969c-56d93d796355"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0, 1, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwtxX0s1HEcB3AP8RsZLWplzdONkKUHZiN9vm3W+KdI42yXzNN0Y/pDtVKa
P/IY4xYZNWvVkfK0284kPl/DLVk7W9LUYmYYq5BE2Km29x+vvbxTcy9k2FhZ
WYX/8/+09qqlnR1FYuG25e4Xsa1ILAbPPtdc31AkFn6T3cPflhWJxaLTzNOJ
aUVicVUbqjYMKBKLAt/PMrNYkVjUN6h0750ViUXjVElunIO9xGL/aPz5gH12
Eou3sfFRI767JBbRAb55Kh9biUV4m0ZvDraRWGyWZbqeCLCWWKytP6tJPmwl
sRj00YX05VgYU4TdXcOR9G3G9ECEhZ25s8mY0h6pZxcbNxiTucnDwbr+N2Py
cOo4zsZfjMnRa8680PKTMWVfvFfX3LzMmFIGpkY8dN8Zk0+kJW6ocIExvcgy
TPcYZxmTdrVTU14/zZiOFtgl2au+MCbXm2O7axs+MKZP6dmB7TMmxtT3NTbM
qDcxJn1CaFTvFRNjyou2XBpZGmJMe4Kqque3BhlTzKphw9NtgDFds12v8C7t
Y0xRa9wU7NLHmPbOl/RH1vQyprZ37mtJT94wprnq0xpd92vGpPYqCrRdNDKm
G7cCK4dr2hjTuR/L4+36Vsbkl9rlWdv1ijF9jInqTJ1oYUwnDyaPbR1qYkyT
uapQTXQjY6pI7DD5ax8zplMUqV4rb2BM9c6J+ZXmh4wpobWsXyZUMSbHwGC9
+8p9xpT1J3rYEFLKmFR1t13megoZk405KMNiyWdMvTkpL48V5TGmlQP+M0Pu
WsY0XmzaHFVfZkx/AfRJ190=
        "]], LineBox[CompressedData["
1:eJxFxVtMkgEYAFBuSmuTzRxNYDOx2Wq11qYShikRTWdgS8JsXWClK0pis1K0
VaMwokB/N6tJLnRLyzAxK5dNWBlDHsosy+ZKo5vzGk0ZOAitHvy+h7PDPazJ
L6aQSKSt//x/yOAODRQqspYeGVbZm/K0cJKAp9L0XYBT8nS1CY2X4HK7dOd0
/DWY7U1ZK/tQDR9aZqaM5NTCpPRTX7ZHXYfFlqz62PMN8P0avvDOpgcwzWXt
oae2w4r56PQTm+3w1Y7JeJa1A85kdcd6mzvhlkk59eSjLlhrrhkz9jvhapVu
SHmxD47xSwRtuwdh72l3apn+E/yrW9pb7vkKtxialEXGn3BywBanvTUBj3au
cgiOzcDym94rU8Rv+HazySG5MQvT9qtnoir8cL+y9W6+PgA/iWEfDJbMw2ss
3HG6JASHyvQRm+wPPBXiMO7xF+DGo4b3nNUk4dLEtlcmVjIZZmhsopdMCuwU
P3V0salwRK3gFTBoMJn+rn59BOfllPbmkqLh0Oe2ceYsLi7xENIAbg5/51eF
8EQ2x+in0OHsvcZ1g3F43dvi40QavtGdML28AtfKt9SJzuEvfsgzKnX4HqrZ
NGHEzwrDGzwW3PPso7qqB1+RO8d0PMcPDDOcfhfuC+5gFL3GV6Y9bheN4krX
m4LKb3irbGrh4RieUZq0i+vDL5Mzg4Vz+ACxz0oEcXbimWxPGD9iJ3yLi/hf
uo28FA==
        "]]},
      Annotation[#, "Charting`Private`Tag$3586#1"]& ], 
     TagBox[
      {RGBColor[1, 0.5, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJxFxVlI0wEAB+C5NUMTjbSoEVM3ttyS1uEYaOuAEfOlPEInLJN5YENZD1aU
ZfiQZ8oczWQrRlSbWTplMDHbITtoSUzIDIuUMZw4Kme2XJvM6sHf/+Hjy5Yp
SmrJJBIp/5//VxuVq1tbO+3bZ8Ro7IJNYue559LrEWL2woTnW4g4mOJ/Ou8j
virnS0wO4hbWZ3tdO7FGy1S9TyXWLXYoipMS8b6Z0gucvVT8tqhUNM3agcUc
VhOTQcH5I1K9l0fG0a669OOcBBzeeKauPETCToYqz9oYt21fQL1rOlyziR+c
EQjO3oni6keSpaAugr0GelKC5jemp4wes5l/4eSsgHdl6CduuHhvYHAwhKsc
i9N01XfMEMaLXa0r+EW9yTdpXsLy9TFpt8aHj7RQKxKZX3D6zdld/doP+FNN
A9fod2Pr1yKBWU+sL+OLLFeIm8TxS9OrLrw7V9m3HHPiwnVTJDPDga9RNnqy
O61YFLYZeGnEe5Y7poRqCx55RwtXPHmDA32npKqJ11iS1calBM34xi1ur0c9
gs//CM0Z9cOYLRvP7B9/hT8WisZk80P4xIHK2dhBA15QMPlSsQ73lI+6c+SP
8cnTQkm4W4s1qeXNvd6HuGy4a8pepsTJXJ6etnYf1/8Re0x5nZg5cDstMNmK
yd7c2ni8GVsaq14ebWvCa/tz/C6aHM+1u6Mzksv4L7xV9N0=
        "]], LineBox[CompressedData["
1:eJwtxX0sFGAYAPBzzr2tzW0yjbMJTavVWpuPiDxP0pjQopPWh1uxUmRTcbRq
inTlOJtq1MIWJXJSWZrzvsm4P0pKaVZ0fZnPNG7OTqi254/ffl6HM+JSpBKJ
ZOs//+8v7LL1JiYBzQcHUg3VsRqguXdwQGpG9wWguW9sXqlH1SWgebYhZueE
6zWgudLsuzb+QzHQ/NAynXQwshRoLgk69WW7w3WgeXgFlDudvw00f1ASiHc3
PQSayzor25hfI9A8aU4edGKzAWh+tWnM1a2yCWge6tbqZK5pBprXjqnsTz5u
AZprdCXD2p52oHlxal6/+mI30NzREh3csLsPaG4+3eWXlf8JaP6rNaYj2/QV
aF5bWK1O1v4EmvvM1jtrbo0CzYeaVxmDj00CzVU3zVfG9b+B5ndqiozRN6aB
5rL96ZMOORageY+67l5c/izQ/Kmj8qA1bQ5ovqbCa4RF24Dmtqz8hfr4P0Dz
cZu74n7gItC86mjhe/fVEqSFfturIjcfO6SFIqM+7KWLFGnRHv7M2KK0R1os
pCcFJChkSAs79q58/YIMaREQmdkRJZEjLWyfG0ZcpuVIi/A0kz5mVo600M1/
DyywyZEWnkp3rUXKkBYRe7Xr+pwZ0qLsbcpxvT9DWmzs8phYnsOQFhrVlrKw
cwxp8eKHKiQ3jyEt9tjrika1DGlxFuc3mCoY0sL0/GN6QRtDWqyImnExCoa0
ODCgaLd0MqTFlHWHIvk1Q1qs9H/SGDbEkBbqzjcJud8Y0qIufnzx0TBDWoRk
eu/ymmJIi8t2odbEGYa06NXvq9RbGdJC6XkmwjTPkBZHDPqppSWGtPgLDHPa
lA==
        "]]},
      Annotation[#, "Charting`Private`Tag$3586#2"]& ], 
     TagBox[
      {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJxTTMoPSmViYGBQAGIQnbx+wvv//9kPMECByG8pNes/CP4Rt6UxZT8QfLV7
O0+++YDgv+J5vPjmQwS/IMs0YvNhBL9O9daBtHYEf9Zs5Uln+RD8+fc78gM5
2eB8sQvB/pqirHD+iYBgl9OqLHC+h6ZqibISM5xvtS5m2Xl9Jjj/V1easJEm
I5z/9fuSqXHqDAj/KE0y2Zf7bz+Mb81av1k75Q+cP8XB3Nyx9hecnzwn4umr
+T/g/PPL5TgZZ32D8+V4Nhju3/YFzudSeHb+5apPcH5OSOuMFSs+wPkJh++f
lpv0Fs5Xsv0XeLTxJZy/MmPzw93bnsL5WZ83xnTPegjn69WxRrIp34bzhSuv
cE+bfRnOv56So7X+8TE4v7xKq+/k1HVw/rX2Y78uRMTD+QDKBIjG
        "]], LineBox[CompressedData["
1:eJxFx2kogwEcx/Fnc6yU5wVN2QojSuQVEnIsIk1yzBGyHDmylNzygsasRs8L
EcrxwtVEhJCJ0Twv3EQiuaNhYm16Zq7i///Vt18fQW5ZUgGbIAi/n37/SK5l
dtNzwom/tRc3HkmaNsD2BlHIeOIB+KJC618lOwU/L8RrqulL8LB8UJKvuAV7
GlWONb0P4PNpV3VI0RNY3HXRqqNewH1DSrWo8xVsnSl9sqk1gLclYyNJMiN4
1p6XbSp9B3v1CO45IgbMVMksquQPsI7hk6NBn+CBQvkh34OI+DcVual09mSB
yTKVcI3LBi9HzavneFZgizQnMJW0BrM4+90+FnRgbLkmjrAFM2fj99xXdFQp
TcUb0W3m66BmBu3G4ysMbA44Jk3hfeCI7tgrKKEC0H5al0e7WnSNOLhD2IBe
vRGH1jWiU6zalA8KdH2E2ZfuQdOLx9LmJbRD3BtXvYLOOiGXDetovSmazN9C
OwXMTAjP0ZL1ndS6K/RYsu5z6g4dWu6eINCjW1hhpvQ39C6V0U+Z0Dy3yhja
jM6bpPRfX+hvQ9uqww==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$3586#3"]& ], {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-3, 3}, {-2.9999998775510206`, 2.9999998775510206`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.9479015432775345`*^9, 3.9479015706241283`*^9}, 
   3.9479017265403976`*^9, 3.9479023343758984`*^9, 3.9479025430883284`*^9, 
   3.9483501983729477`*^9, 3.948350398126398*^9, 3.948406352883916*^9, 
   3.948406399204611*^9, 3.948406443118907*^9, 3.948409887363803*^9, 
   3.948410182095023*^9, 3.9484103181240253`*^9, 3.94841053256767*^9, 
   3.948411027583457*^9, 3.9484138412876563`*^9, 3.9499015450230026`*^9, 
   3.9502584731158447`*^9, 3.9502586366090994`*^9, 3.9502606018908396`*^9, 
   3.9502608266442976`*^9, 3.950758954055515*^9, 3.9507592109894004`*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"fd4896fe-0ac0-4fe0-977d-bc62582c8661"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "x_", "]"}], ":=", 
    RowBox[{"Piecewise", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}]}], ",", 
         RowBox[{"x", "<", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"x", "-", "1"}], ")"}], ",", 
         RowBox[{"x", ">", "1"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"f", 
      RowBox[{"(", "x", ")"}]}], "=", 
     RowBox[{"|", 
      RowBox[{"x", "-", "1"}], "|"}]}], ",", " ", 
    RowBox[{
     RowBox[{"decreasing", " ", "below", " ", "x"}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"1", " ", "nad", " ", "increasing", " ", "above", " ", "x"}], 
       ">", 
       RowBox[{
       "1.", " ", "Not", " ", "differentiable", " ", "at", " ", "x"}]}], "=", 
      "1"}]}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"g", "[", "x_", "]"}], ":=", 
    RowBox[{"Piecewise", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{"x", "-", "5"}], ")"}]}], ",", 
         RowBox[{"x", "<", "5"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"x", "-", "5"}], ")"}], ",", 
         RowBox[{"x", ">", "5"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"g", 
      RowBox[{"(", "x", ")"}]}], "=", 
     RowBox[{"|", 
      RowBox[{"x", "-", "5"}], "|"}]}], ",", " ", 
    RowBox[{
     RowBox[{"decreasing", " ", "below", " ", "x"}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"5", " ", "nad", " ", "increasing", " ", "above", " ", "x"}], 
       ">", 
       RowBox[{
       "5.", " ", "Not", " ", "differentiable", " ", "at", " ", "x"}]}], "=", 
      "5"}]}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"h", "[", "x_", "]"}], ":=", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], "+", 
     RowBox[{"g", "[", "x", "]"}]}]}], ";"}], "           ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"h", 
     RowBox[{"(", "x", ")"}]}], "=", 
    RowBox[{
     RowBox[{"f", 
      RowBox[{"(", "x", ")"}]}], "+", 
     RowBox[{"g", 
      RowBox[{"(", "x", ")"}]}]}]}], " ", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"leftDeriv", "[", 
    RowBox[{"k_", ",", "x_", ",", "p_"}], "]"}], ":=", 
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"k", "[", "x", "]"}], "-", 
        RowBox[{"k", "[", "p", "]"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"x", "-", "p"}], ")"}]}], ",", " ", 
     RowBox[{"x", "\[Rule]", "p"}], ",", 
     RowBox[{"Direction", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"rightDeriv", "[", 
     RowBox[{"k_", ",", "x_", ",", "p_"}], "]"}], ":=", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"k", "[", "x", "]"}], "-", 
         RowBox[{"k", "[", "p", "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"x", "-", "p"}], ")"}]}], ",", " ", 
      RowBox[{"x", "\[Rule]", "p"}], ",", 
      RowBox[{"Direction", "\[Rule]", "1"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Check", "[", 
     RowBox[{"r_", ",", "x_", ",", "p_"}], "]"}], ":=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"leftDeriv", "[", 
        RowBox[{"r", ",", "x", ",", "p"}], "]"}], "===", 
       RowBox[{"rightDeriv", "[", 
        RowBox[{"r", ",", "x", ",", "p"}], "]"}]}], ",", " ", 
      "\"\<Differentiable\>\"", ",", " ", "\"\<Not Differentiable\>\""}], 
     "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Check", "[", 
      RowBox[{"k_", ",", "x_", ",", "p_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"ld", ",", "rd"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ld", "=", 
         RowBox[{"leftDeriv", "[", 
          RowBox[{"k", ",", "x", ",", "p"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"rd", "=", 
         RowBox[{"rightDeriv", "[", 
          RowBox[{"k", ",", "x", ",", "p"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"NumericQ", "[", "ld", "]"}], "&&", 
           RowBox[{"NumericQ", "[", "rd", "]"}], "&&", 
           RowBox[{"ld", "\[Equal]", "rd"}]}], ",", "\"\<Differentiable\>\"", 
          ",", "\"\<Not Differentiable\>\""}], "]"}]}]}], "]"}]}], ";"}], 
   "*)"}], "\[IndentingNewLine]", "\n", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"leftDeriv", "[", 
        RowBox[{"f", ",", "x", ",", "1"}], "]"}], "===", 
       RowBox[{"rightDeriv", "[", 
        RowBox[{"f", ",", "x", ",", "1"}], "]"}]}], ",", " ", 
      "\"\<Differentiable\>\"", ",", " ", "\"\<Not Differentiable\>\""}], 
     "]"}], "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"leftDeriv", "[", 
        RowBox[{"g", ",", "x", ",", "5"}], "]"}], "===", 
       RowBox[{"rightDeriv", "[", 
        RowBox[{"g", ",", "x", ",", "5"}], "]"}]}], ",", " ", 
      "\"\<Differentiable\>\"", ",", " ", "\"\<Not Differentiable\>\""}], 
     "]"}], "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"leftDeriv", "[", 
        RowBox[{"h", ",", "x", ",", "1"}], "]"}], "===", 
       RowBox[{"rightDeriv", "[", 
        RowBox[{"h", ",", "x", ",", "1"}], "]"}]}], ",", " ", 
      "\"\<Differentiable\>\"", ",", " ", "\"\<Not Differentiable\>\""}], 
     "]"}], "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"leftDeriv", "[", 
        RowBox[{"h", ",", "x", ",", "5"}], "]"}], "===", 
       RowBox[{"rightDeriv", "[", 
        RowBox[{"h", ",", "x", ",", "5"}], "]"}]}], ",", " ", 
      "\"\<Differentiable\>\"", ",", "  ", "\"\<Not Differentiable\>\""}], 
     "]"}], "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"leftDeriv", "[", 
        RowBox[{"h", ",", "x", ",", "3"}], "]"}], "===", 
       RowBox[{"rightDeriv", "[", 
        RowBox[{"h", ",", "x", ",", "3"}], "]"}]}], ",", " ", 
      "\"\<Differentiable\>\"", ",", " ", "\"\<Not Differentiable\>\""}], 
     "]"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Check", "[", 
    RowBox[{"h", ",", "x", ",", "3"}], "]"}], "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], "/.", 
  RowBox[{"x", "\[Rule]", "1"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"g", "[", "x", "]"}], ",", "x"}], "]"}], "/.", 
   RowBox[{"x", "\[Rule]", "5"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], "/.", 
  RowBox[{"x", "\[Rule]", "3"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"g", "[", "x", "]"}], ",", "x"}], "]"}], "/.", 
  RowBox[{"x", "\[Rule]", "3"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"h", "[", "x", "]"}], ",", "x"}], "]"}], "/.", 
  RowBox[{"x", "\[Rule]", "3"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"h", "[", "x", "]"}], ",", "x"}], "]"}], "/.", 
  RowBox[{"x", "\[Rule]", "2"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"h", "[", "x", "]"}], ",", "x"}], "]"}], "/.", 
   RowBox[{"x", "\[Rule]", "4"}]}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"f", 
       RowBox[{"(", "x", ")"}]}], " ", "+", " ", 
      RowBox[{"g", 
       RowBox[{"(", "x", ")"}], " ", "is", " ", "a", " ", "horizontal", " ", 
       "line", " ", 
       RowBox[{"(", 
        RowBox[{"y", "=", "4"}], ")"}], " ", "parallel", " ", "to", " ", 
       "x"}], "-", 
      RowBox[{"axis", " ", "at", " ", "1"}]}], "<", "x", "<", "5"}], ",", " ", 
    RowBox[{
     RowBox[{"decreasing", " ", "below", " ", "x"}], "=", "1"}], ",", " ", 
    RowBox[{
     RowBox[{"and", " ", "increasing", " ", "above", " ", "x"}], ">", 
     RowBox[{
      RowBox[{"5", " ", ".", " ", "Its"}], " ", "derivative", " ", "at", " ", 
      "each", " ", "points", " ", "in", " ", "between", " ", "1"}], "<", "x", 
     "<", 
     RowBox[{"5", " ", "is", " ", "0."}]}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{"g", "[", "x", "]"}], ",", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", "x", "]"}], "+", 
       RowBox[{"g", "[", "x", "]"}]}], ")"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "9"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Green", ",", "Thick"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Orange", ",", "Thick"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Red", ",", "Thick"}], "]"}]}], "}"}]}]}], "]"}]}], "Input",
 CellLabel->"In[38]:=",ExpressionUUID->"270e9561-f621-4077-a738-efb9554dcce2"],

Cell[BoxData[
 TemplateBox[{
  "SetDelayed","write",
   "\"Tag \\!\\(\\*RowBox[{\\\"Check\\\"}]\\) in \\!\\(\\*RowBox[{\\\"Check\\\
\", \\\"[\\\", RowBox[{\\\"r_\\\", \\\",\\\", \\\"x_\\\", \\\",\\\", \\\"p_\\\
\"}], \\\"]\\\"}]\\) is Protected.\"",2,43,9,19152104921010593841,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.947901598529678*^9, 3.94790172695061*^9, 
  3.9479023350588737`*^9, 3.947902543679268*^9, 3.9483503993843355`*^9, 
  3.948410320643544*^9, 3.948410533797243*^9, 3.948411029868758*^9, 
  3.94841384232574*^9, 3.949901547420396*^9, 3.950258474142519*^9, 
  3.9502586376666365`*^9, 3.950260602955413*^9, 3.950260827734014*^9, 
  3.950758955195987*^9, 3.950759211089689*^9},
 CellLabel->
  "During evaluation of \
In[38]:=",ExpressionUUID->"80d34d65-7d33-446b-bb54-a6c820b5bc8a"],

Cell[BoxData["Indeterminate"], "Output",
 CellChangeTimes->{3.947901598565192*^9, 3.9479017269646783`*^9, 
  3.9479023351001935`*^9, 3.947902543714881*^9, 3.9483503994233203`*^9, 
  3.9484103207164383`*^9, 3.948410533810237*^9, 3.9484110298821864`*^9, 
  3.948413842339744*^9, 3.9499015475187006`*^9, 3.9502584742044506`*^9, 
  3.9502586376804733`*^9, 3.950260602969519*^9, 3.9502608277473917`*^9, 
  3.9507589552205176`*^9, 3.9507592111013527`*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"bafc9287-d14a-4c91-8880-2f6591423887"],

Cell[BoxData["Indeterminate"], "Output",
 CellChangeTimes->{3.947901598565192*^9, 3.9479017269646783`*^9, 
  3.9479023351001935`*^9, 3.947902543714881*^9, 3.9483503994233203`*^9, 
  3.9484103207164383`*^9, 3.948410533810237*^9, 3.9484110298821864`*^9, 
  3.948413842339744*^9, 3.9499015475187006`*^9, 3.9502584742044506`*^9, 
  3.9502586376804733`*^9, 3.950260602969519*^9, 3.9502608277473917`*^9, 
  3.9507589552205176`*^9, 3.9507592111086197`*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"f1737569-c078-47e1-a265-ce4369756c52"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.947901598565192*^9, 3.9479017269646783`*^9, 
  3.9479023351001935`*^9, 3.947902543714881*^9, 3.9483503994233203`*^9, 
  3.9484103207164383`*^9, 3.948410533810237*^9, 3.9484110298821864`*^9, 
  3.948413842339744*^9, 3.9499015475187006`*^9, 3.9502584742044506`*^9, 
  3.9502586376804733`*^9, 3.950260602969519*^9, 3.9502608277473917`*^9, 
  3.9507589552205176`*^9, 3.950759211110631*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"de9bd127-9f21-4fa1-9c90-1a2b063a3925"],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{3.947901598565192*^9, 3.9479017269646783`*^9, 
  3.9479023351001935`*^9, 3.947902543714881*^9, 3.9483503994233203`*^9, 
  3.9484103207164383`*^9, 3.948410533810237*^9, 3.9484110298821864`*^9, 
  3.948413842339744*^9, 3.9499015475187006`*^9, 3.9502584742044506`*^9, 
  3.9502586376804733`*^9, 3.950260602969519*^9, 3.9502608277473917`*^9, 
  3.9507589552205176`*^9, 3.950759211110631*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"b952c04e-0333-4fba-b894-e0fc8c0f57ce"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.947901598565192*^9, 3.9479017269646783`*^9, 
  3.9479023351001935`*^9, 3.947902543714881*^9, 3.9483503994233203`*^9, 
  3.9484103207164383`*^9, 3.948410533810237*^9, 3.9484110298821864`*^9, 
  3.948413842339744*^9, 3.9499015475187006`*^9, 3.9502584742044506`*^9, 
  3.9502586376804733`*^9, 3.950260602969519*^9, 3.9502608277473917`*^9, 
  3.9507589552205176`*^9, 3.950759211110631*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"7aea4a65-b77e-4894-ba92-7153165b4cc8"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.947901598565192*^9, 3.9479017269646783`*^9, 
  3.9479023351001935`*^9, 3.947902543714881*^9, 3.9483503994233203`*^9, 
  3.9484103207164383`*^9, 3.948410533810237*^9, 3.9484110298821864`*^9, 
  3.948413842339744*^9, 3.9499015475187006`*^9, 3.9502584742044506`*^9, 
  3.9502586376804733`*^9, 3.950260602969519*^9, 3.9502608277473917`*^9, 
  3.9507589552205176`*^9, 3.9507592111198406`*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"51b7af27-bf30-434a-9c90-cdad30828d57"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.947901598565192*^9, 3.9479017269646783`*^9, 
  3.9479023351001935`*^9, 3.947902543714881*^9, 3.9483503994233203`*^9, 
  3.9484103207164383`*^9, 3.948410533810237*^9, 3.9484110298821864`*^9, 
  3.948413842339744*^9, 3.9499015475187006`*^9, 3.9502584742044506`*^9, 
  3.9502586376804733`*^9, 3.950260602969519*^9, 3.9502608277473917`*^9, 
  3.9507589552205176`*^9, 3.950759211121847*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"290babb6-5dfb-48b6-b7ed-066f7921195e"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0, 1, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwlyntMUnEcBfCbMygroZRZK7ecYgvnxKartur7W5pvrWEiKep6aA83LHup
WSJuhabNDXRCqZgmmeU0zWmve0tlyHSRgvMxk2ykUIC9jBFptvvH2Wdn5/ic
yOFkumAYxl7JfwfSfWaWl6kEKQ35L4bGXbFTCVIaElfE9H5doBKkNBT38qJk
4iOVIKWhkS2qyM4+KkFKQwbdufasW1SClIacMV3Fw+5UgpSGQnZH+t31phCk
7gjhG2fub3IlSNejIIWyjsNyIUjdkLShWVwdixGkaxDrgVRbIXbiVZyY+Yhw
Cvrekys7gNvxfH5vXH2GK/oRII9XN/3EHYxh/1McF2SYkXALahfwBVt0wKsE
DPnfjhqxd5twySG/s4VTTlj2dA63VX7EhW5LWclqO6hcn/euNY/iu4oFApHj
JzjLPVr5fztx7Z4OjR6+Qb+IIbBlqOBwfYGf6xkzWOqKcikxk1DGJlTOyVkY
LDpN8I4aQYAFFyUk60FUPj1aeMkIzs/hPIqXHvbJEucUUiOIh3nBr8d00P4U
3E06Iyjkwk+BXB3UGL34+UmfQRuijdyQNApnYtW/Zdw5YJ/NoQ9x3gPFa2fQ
FM8E842pYZJ7GiB86w8u55kAu1Dyy2WbBgrYDK6vzASbD7Qqc+8OgjV61fXs
CRNEjTvWceRq0BdOaP4cM8Pj9XIdvUYFTbOlWdtSv8D5y+OZdyRvIazNXJuW
ZoH5ikd0D8YzEKz2DE6+ZoFKXcbVCGYXyPn7+4/ILMDeyviQH9oJ390qzWF6
C5x/WNRqSOoAxenQ3ax4K2A3W8r5ga0w9Dpd45ttBeThmdIX3wJ2hjjNu9QK
QsWNHSyBEg73T5bQB6xAf5H49ndbIyxtF2oX99kAGf7YmMdrgJXXcnIhxQaE
Q1v2o0EK3Hcji6a8lZ3RzHwzWwkif2fpp2obCDMWhd6RZfDkOtN7umvlL1V0
96hFMK5LaB8bsQEmrRpXSq9A3t7VQUrDSherHFpeDvwD6LGF9g==
        "]], LineBox[CompressedData["
1:eJwty30w23ccB/AfOkE1nhIlIT9fVqOqD0b6QPv9NMtQ7VpT9TTTkhhbPYyO
VTRa3bQ4D5nqNq5dmfVaa5qqOVyHM8ksKNPhOtdygrNqXRPhpJVJZtvvffe+
173/eKOkzIhkU4Iggtf7r3yBOFVqo8FEce/qcEwmjlPQQz/wX9++SbQffEvx
JfaeJ5ERGnxBZT7EvVqNJ/pKTUIrNLguMHYX0VePs3PIAf51DQbZS0HN7QZs
gVqqD0rX/+jLr/2Kb2L/sxNvBfav/83v6YUhjbjMc+fR7eaLuDvVdGY2qQkH
fjFWyyhYxE1vx9w9pGrDNUFu/qp0LVbOmtRbZspxcw+t1r1AiyXMA8OMRTnu
D1UbBRVaHB4sMpJnFPjvyK6BOZkWT93Sfsj9/Fd8Kj1esKDWYuL0DEtw/jfs
9d23VbqsJQyLiuqOygHcbrRd3JS7jKcM7yh2//kIP+4xke0rWMHxG2ntz1+N
4/BvjnD4h1Zx3faaoOKqWVxpfbThs2QD5jhfC57vX8BZdV0fH9htAtMgHjmX
ocVtKisxy9kMMuTMVX+/FZx4pplV6vEG9MwJAxghq9hLWvHT+xtpEB7jmtLg
aMB5ChP3onkL+F8CfH2HWUc0VpSmYAgaoZ8etabcAH7Xd5W7quiU5pCXcUXj
mm0L2qeeqsBZC/gr0cspNskOhuThO5sVVnB57fmGyY/sga4fs+wYtIbWhRA1
Pc4B0sYrJ11b6ED8FwalLTQe/lSRE8qgtIWhiN4Ez8NMSju4eLd15WKQI6U9
pDSNHvfmbaZ0gCfm5bJ8rhMlAxiDtstmns6UTDgf2GMY82ZROsLZtU20SBc2
5WZoSLk8yvZwoXSCKwcfljlvcaV0BrvMOzw5k0PJgl/47Z2tLJKSDUTbDrYP
zQ2IjJPcKLoLFJrNP7xa4AamtD9qfNZcgP3m3sQtBAJuaHZPGMGBcxlRy1Z5
CF49lT5jajmAuEKlZz4CXppS8t4KB3rXsq7xxAjK9DN7ilY5YFNezhcVIuCw
2CXLpiR8f0dRPV+CgB9d4j3iQELfM78AZS2CqkfJn0gCSHAU2OQWdSDY1stZ
sMoj4eetrmH1XQhyT+yr5olJOKXdyunsRtA9eyJIVEjCj4XBvcsKBJFm5WXz
JSTsrxM7CgcRiEC/TVlLgnDiRStvEoHyweP0og4SLG++Lk2YQmAftsTs7CZB
lkY7KZpGED9O71pWkKDTu9Oa5xC81L1LFw6SUMqKi0ZqBIyAFhlvkoQd0yk+
+xcRJCh+jxJNkzDamGOMWUJw+/gLw/05Ejh7v7ol0SEIynY/htQkyIkb+dLX
CC6ZHNDFLJGQqpQeU+oRDEtib0h0JFhLHnjMriFwcssJUepJuB+t1BmNCJLu
SdRGIwn/ALgs5N0=
        "]]},
      Annotation[#, "Charting`Private`Tag$3668#1"]& ], 
     TagBox[
      {RGBColor[1, 0.5, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwlzn0w1AkYB/Clbbdk1u5vU2yx4Qh3pYxQXp6ncjluK6HizlsmlByRmNwd
tVdxjhhU8tYWm4rZ03GO3vaX5KgM28uxcbFYIrIpbo9l73d3z8wz3/nM9/nj
MQuP843QpdFontT+m49CzPq0WiYZ/nPupFbLR6uZTYIkNZPkzvGsXDR8zMj2
bhxXMcnmHeKgJDUfBXeP5csVTNLqdWPbuIqPz4xbPGsfMslR/cFyuYKP/S+i
ayLTmeTR6E0BtQ/5qPGuO9XOYpKplq/IyHQ+Ojh5flJswiCLii3y2ll8RCmn
7ypBJ0V9GXF7lpqinaiyzNdWlzTq9NttY2iCBVeuZVz4kkY+9vHzeGK5Gm3F
BZ3ZGRqpt41looX5KpxqSLjkLlVLXSVB1zrsePjh06KdrRUfpfOZkVx7G2Ps
78vfl1Kqkqr/qjgfstYIrX764pm6flQawfHi9TmuRO1yTbskVyEVCaVyQ/sV
2EK/3bh07LlUICouFrkboiaLWxU0Xyt12FWdML17OTYLDWMnQ1tgzC/nNG0n
FyfK0hIY3q+Aw+guDP2awLa0KDLAXwlM9oeRxL0c3C4ZKw0OngDnm9sE/v5s
pP03Kvg/2XjJdY2D4pspqFNMRhi0sbCrSUeyJXUGCky11wdIffS5KDD18JqF
gDq5KrhHD3P0d5UnRixAw98Bks/bl2C86P5hdycdzAndeuFBKwN/U+h9zzNe
hF6m00LlMB0PHPuFl2mxGC9n7VQe79VF6+pztXuWMbHbL14g+UjDE8065mdG
lyArWXNn+rMFWLeukydQ6eE1cejjKP4sLLg+Zx15oY/0s4EDNvtnwL50Y7aJ
goUlj0qUzW5TcCI2X2WSwEbnrIPfsuPGYeSAtVFgOAdbVXfdnSaGIH1+jP46
ksDctT63+Hly8IgvaL0ZTSD5tiHJb68caEq3rORYAmk1Zq7pRnJIeZrL5SQR
GOb8oeVdWTfEFDuae5whEL0u9N6r6gLfzUK4WU5gf3QvM+jRSzA9bpyS1E/g
GsmhkEK1DHreNLltHyLQJ0Fm8fSODAqDYnTYbwg86bhlVJsqA46HNOPGJIGq
+8sSoxbLgM6NuNi7QP3TIfnRkeiEsZqaum0mXCQHRg/f2P8U6sc9J1lfcREP
6640v98M9udKMluDqX5zbPW7Hc0gsXtvKTxA9Xqvtt7peAjihKKg6UNcDKu6
FeOvaIIC9XhbTzIXT06ENZ2lP4Bj9LyK6+ep+8HUnj/O34Z34mEIv0T1p/cx
jlY2QrSnS8+qUsqW6zcubWyA8MwhTk4F5ag/z7r01oMv2ynteC3lty72IvNa
2LC6N3CbjIu0N+85z0Mqofrehum5F5Rtr0QtForBOvRM7q/dlGN87jmJy4F/
df3v1v2UFcEy567LULT9h/CBQcqRd78rNSmBFcqu+eIRymM8a92DhcCyPuVg
MEl5qiv1iSoXMttedrROUR6P8Q+LzQTGEdsjwhnKH22qbOaEINRPY7jOUla3
Lxo2SAa7yn7lcg3ljJbZzoA4+AfOQwkn
        "]], LineBox[CompressedData["
1:eJwdjW1Mk2cUht+AUiSlD7CC0hbk4aNDusSFAkoGPreVkQ1NaNRIXTLmJoRu
dkMWMQi4AVqlKqZmkBBZhIkM+ZBNnB0gkglNV4agbnXDwBBJZRYYqCtWQVZf
+XFyrit3zrnpJ7nbsz04jovl5/W+o1krmfYUgyu3LNzW5LIZpZyMCnkfztkW
2mFg2ruFzVV+vC+DkdkP3no3Xcz7MlSykc6C4l4p78tQw35jA46LMbw/rH14
YGcDa9q635z/nhiYCpDlhbQzS/29YyXbxCh5ojXRsCtsYlH1/kk178971L+H
/8RkrYFDdRr+XrBPr4w2sdPCa38NaPk8om92PraLfTm4cpoa+H9tnXuSI2+w
pPQa/6F+Pv/nU2VvYj8b2m7JlG8NxPhb2TPZ7TZWdsn0rCwpCH66q1dX2x+w
nB9tO9apVmPjkYZzaf5TbMSroq0oYQ100riu2XuPmXjQz+kpD4Y6bsttUu1k
X7/T+//ddRK8/Nd7MaPxOStY8hXslEkxPr9Bps57yepzjtukETKk3hI1bUjl
8M3mm6eCo0IgP1IdrEzzgH9ui6ovMBThY7v0xxQrcCOl47pJshZlhv1Fn8d7
gft5vVQhCAM32qNrlXmj1NNxs+qrMKwQXVBmLKyCNDLx4yiOQme0H63ihCj+
YpfT5xDF487ddxR2X9CELKu8iOLosJHWzPjCspT3reowxRrXr3k+874gFRUp
haUUSXEJAY6VIpxvMVc6DBTlbQE7vn9ThP5HsfHWsxSR9QO2sH0iBO0lB/Xd
FJpTycOBT0W4FhOS9l0PxUzzgWj9ggh7nsaEXv+FoqS/pcDpQdBcmmpxmiku
ekmC/3iDILnucFDWIIWz5NluYzxB1t/TJtUYhTH/hxGfQwSrGl6cyBzn+yon
FYWlBG06wUeFExQd7SHFDgOBazFc0D5JMTp3UmY9S3BC8kEGnaOI/kz7ob6b
YP1EjiL5CUV3ee0lp5nA1pTv1vxHoW78c2nvIEFo4plGo4uiwJ5yTjVG0MfV
FrW+oBB6Fs9eniTQWlvTrYsUdfTKJjpHIDR2RdiXKN7G1Gmji+ByhtXldlOY
M+l9t5vgFUstWkw=
        "]]},
      Annotation[#, "Charting`Private`Tag$3668#2"]& ], 
     TagBox[
      {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwBEQPu/CFib1JlAgAAADAAAAACAAAAxV4h3///B8Bir5Dv//8nQCb2NUx2
+AfAE/saJjv8J0CIjUq57PAHwMRGpVx2+CdATLxzk9nhB8Am3rnJ7PAnQNIZ
xkezwwfA6Qzjo9nhJ0Dg1GqwZocHwHBqNVizwydA/Eq0gc0OB8B+JdrAZocn
QDQ3RySbHQbAmpsjks0OJ0BAvxHfohIEwKDfiG9RCSZAL6CnnlIqAsAY0FNP
KRUlQJShpoiWSwDAylBTRMslJEAqpZTQjYj8v0opJXQjIiNA8rhymT6/+L88
rlymzy8iQPMrmk3IpPS//YpmEzIpIUDg35NWep3wv/j3pJVeJyBAJotI0vi2
6b/KIpI0vm0eQP8U/M2ukOG/QAV/sytkHEDGBLq5CerTv5hANzdBfRpA/IwT
q1z9s79onFjl6p8YQMSCFW7vX8Y/1KceCQGaFkDtnn9yBkraPyIMsDG/thRA
yX9nwFhU5T8OIObP6aoSQIKM3dN8dOU/4JwIy+CiEkA8mVPnoJTlP7AZK8bX
mhJAsLI/DunU5T9UE3C8xYoSQJjlF1x5VeY/mgb6qKFqEkBoS8j3mVbnPybt
DYJZKhJABhcpL9tY6T8+ujU0yakRQMAjn0L/eOk/EDdYL8ChEUB6MBVWI5np
P+Kzeiq3mRFA7kkBfWvZ6T+Erb8gpYkRQNV82cr7Weo/yqBJDYFpEUCk4olm
HFvrP1iHXeY4KRFAQ67qnV1d7T9wVIWYqKgQQG4FFDFXe+0/pP66MyqhEECa
XD3EUJntP9qo8M6rmRBA8gqQ6kPV7T9E/VsFr4oQQKBnNTcqTe4/GKYycrVs
EEDMvl7KI2vuP0xQaA03ZRBA+BWIXR2J7j+C+p2ouF0QQE/E2oMQxe4/7E4J
37tOEED+IIDQ9jzvP8D330vCMBBAKnipY/Ba7z/2oRXnQykQQFbP0vbpeO8/
KkxLgsUhEECCJvyJ45bvP2D2gB1HGhBArX0lHd207z+UoLa4yBIQQNjUTrDW
0u8/ykrsU0oLEEB4OQUvp+DvP6KxPjTWBxBAr21wNA==
        "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQ7ZJcm7GG/4M9AxgIOLRJW9wOCULw757sYvToQ/Ct
m6/OEqn7COfPtFEweZj7Cc7f8V/gI2/ZFzj/+iHGdVZ13+D8gOk+ci6ev+D8
fh6/xSWp/+D8wgX7Mu3MGR1g/O0PuWqlJJnh/MTiTVJdyqxwvsaavs2B3Oxw
fuURRqXWlxxwvq7uBSmfD1xw/j+by3zZV3jgfKO5hr2yD/kQ+vMmf5AtEoDz
nydqSEQmCcL57X9fsdxLE4Lz5Uolq8oeIPjb3ri/54sShvOLWSYtWTEVwTeQ
uRPpdBHBl1+kd1zjAYLPp9Fowv8ewWfL1spu+obg6y9/8FTkD4IPAAu6ZmQ=

        "]], LineBox[CompressedData["
1:eJwtxX1MzGEAB/BTuKGXX3nu1N05PZV71Nls6ITwdfKWLHo9b+WlVrO8Zd3q
ErLC6bJDatLyNtObCDuvWXK7/UIRCfMyS7PaIXQcbtdh64/PPnTjttg0N4FA
MPWf/3doJkis7gRnG+dO7xJy+DRN4f3Gg+BlerT8hj+HjOe62uMcwZPaH/FK
yqFH+3hhDCHgP1cVV03i8Ppmzq4WKYFp57dfhTM4PJj3sK86lKB0T9mzlQkc
apZtN2cvIYgtf3/QauRgOfdq/95oAsPiq57DTnDodqiXFq8gMNuLjorPcJDV
i9pPawjCNcrK+Y0cDnvcfvEwg0Dmr71U3sEhq22EleoJeirGdC3w9UFEzEmf
9laCnCpVUOUxH7THWpIVy0SoPG9oii7zxb6Lpp/7IsQYvmbL5xG5BOmXO+NC
1OPQvr7mQmyhGK9HljTkqfxg8pSss2f6gbRxNneFPyZV0F5htAR7ZrcMPg+R
YFBb6KyLkyHH6SmMl0nx9Y/UqzpcjnPpBzqlQbKhA3Bs/iOD/8TxQ1P4bKtT
3xfJhw7EvcgbTSbJhKGDILg+RaoUBkCwNUWV6BWMAve+R8d3B8BN+PSE0hkM
afDMDRMFFKolWS1RAgV2bU20jc6l+PWmvlf0XQGqSuUVeRTqTN64/KcCFueO
SnU+hcHxIbzojwLeJSWRugIKuUSqt7kxnK0zl/bpKSKT9CHPxjK09k4N4yso
jnakbTaGMYg3eWuL7lBMtsg/jc5luB06PurMXQptwqxSdT7D+u+h8qZmiuae
hAhdAUNtwSKLzUwR715i6NMzzDmdL05to9DBMZmvYEh9azWp31Hwt15sKbrD
MOr870PJ7yl8owZETc0MDZnCFF03xdpXXndtZga7I1B45SPFF/tCr9Q2hkOS
1Um0n4KEXWtQv2OY0p2unPONItn8OFHXzdBZk+3SDFBUx1kHGz8yyGceuWC0
U0RkBcbQfob7glN59b8p9g+ba9cMMGTw9TG8g+KJcdUpo53Bw3grqMdJ4ReQ
vZh3MDQm8XaXi2LjJWO/y8XwF0nvUZY=
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$3668#3"]& ], {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-3, 9}, {0., 11.99999951020408}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.947901598565192*^9, 3.9479017269646783`*^9, 
  3.9479023351001935`*^9, 3.947902543714881*^9, 3.9483503994233203`*^9, 
  3.9484103207164383`*^9, 3.948410533810237*^9, 3.9484110298821864`*^9, 
  3.948413842339744*^9, 3.9499015475187006`*^9, 3.9502584742044506`*^9, 
  3.9502586376804733`*^9, 3.950260602969519*^9, 3.9502608277473917`*^9, 
  3.9507589552205176`*^9, 3.95075921122266*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"d1557b9e-aeb6-477a-a3c4-3e8680388c66"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "x_", "]"}], ":=", 
    RowBox[{"Piecewise", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Exp", "[", "x", "]"}], ",", 
         RowBox[{"x", "<", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"x", "+", "1"}], ")"}], ",", 
         RowBox[{"x", "\[GreaterEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], 
   ";"}], "      ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "continuous", " ", "and", " ", "has", " ", "no", " ", "notch", " ", "at", 
     " ", "x"}], "=", "0"}], " ", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"Exp", "[", "x", "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Green", ",", "Thick"}], "]"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "20"}], "}"}]}], "}"}]}]}], "]"}], 
  "    "}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{"x", "+", "1"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Orange", ",", "Thick"}], "]"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "20"}], "}"}]}], "}"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Red", ",", "Thick"}], "]"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "20"}], "}"}]}], "}"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Exp", "[", "x", "]"}], ",", " ", 
      RowBox[{"x", "+", "1"}], ",", " ", 
      RowBox[{"f", "[", "x", "]"}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Directive", "[", 
        RowBox[{"Green", ",", "Thick"}], "]"}], ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Orange", ",", "Thick"}], "]"}], ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Red", ",", "Thick"}], "]"}]}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "20"}], "}"}]}], "}"}]}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"point", "=", "0"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"leftLim", "[", 
    RowBox[{"k_", ",", " ", "x_", ",", " ", "p_"}], "]"}], ":=", 
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{"k", "[", "x", "]"}], ",", " ", 
     RowBox[{"x", "\[Rule]", "p"}], ",", 
     RowBox[{"Direction", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"rightLim", "[", 
     RowBox[{"k_", ",", " ", "x_", ",", " ", "p_"}], "]"}], ":=", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{"k", "[", "x", "]"}], ",", " ", 
      RowBox[{"x", "\[Rule]", "p"}], ",", 
      RowBox[{"Direction", "\[Rule]", "1"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"leftDeriv", "[", 
    RowBox[{"k_", ",", "x_", ",", "p_"}], "]"}], ":=", 
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"k", "[", "x", "]"}], "-", 
        RowBox[{"k", "[", "p", "]"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"x", "-", "p"}], ")"}]}], ",", " ", 
     RowBox[{"x", "\[Rule]", "p"}], ",", 
     RowBox[{"Direction", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"rightDeriv", "[", 
     RowBox[{"k_", ",", "x_", ",", "p_"}], "]"}], ":=", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"k", "[", "x", "]"}], "-", 
         RowBox[{"k", "[", "p", "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"x", "-", "p"}], ")"}]}], ",", " ", 
      RowBox[{"x", "\[Rule]", "p"}], ",", 
      RowBox[{"Direction", "\[Rule]", "1"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Left Continuous\>\"", 
   ",", " ", "\"\<Left Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"rightLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Right Continuous\>\"", 
   ",", " ", "\"\<Right Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], "===", 
    RowBox[{"rightLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}]}], ",", " ", 
   "\"\<left limit = right limit\>\"", ",", " ", 
   "\"\<left limit \[NotEqual] right limit\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], "===", 
    RowBox[{"rightLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Continuous\>\"", ",", 
   " ", "\"\<Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftDeriv", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], "===", 
    RowBox[{"rightDeriv", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}]}], ",", " ", 
   "\"\<Differentiable\>\"", ",", " ", "\"\<Not Differentiable\>\""}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.9479023732019153`*^9, 3.947902376592126*^9}, {
   3.94790252397595*^9, 3.9479025260558896`*^9}, {3.9483502635796785`*^9, 
   3.9483502797858634`*^9}, 3.9483503102620797`*^9, {3.9484099511339073`*^9, 
   3.948409967056582*^9}, {3.948410235786001*^9, 3.9484102367384157`*^9}, {
   3.948410984146103*^9, 3.9484109960323563`*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"0b1aa79d-82fe-4f12-96a5-bbf68465ef9a"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0, 1, 0], Thickness[Large], Opacity[1.], 
      LineBox[CompressedData["
1:eJwdVXc41+/f/dh7r8gWlchKifS625SkYWTLKjKzQjIys7JXGdkUIjLyvosQ
spJRIhEZ2SOE3/d5zj/nOte5rvPfOUfklsM1S3ISifSWjET6PzYviZ7f3eXB
Ywr+Z69pWgDnFp+Eyj8evM38jvKBmQU0ns8xdPvLg+3ehwxVu1iAxHD1x9kF
Hlz9hY3HJtUCphnHng+O8uDZwsMpuVMW4GijqFfewINnHtsIpYdago/4V2wV
zIMZ/ZjaGQasQMbJYj0zgAfTNQb0pv6xgh91c9LfH/JgMibLY4jCGk7foEi9
7sGDbX2v32w6bA1UAVKu6A4Prvt2Xqo1yBrCf/gc5LvEgwUUpU++U74NKali
MZ+YebCDrfvdzVd3oFA2ObOKngeH773fcuHTHaj5wFyWSc2DX7X2s5RO3oGv
8xudrjvcWCPnX0c3vw3wne1iEpzjxpSS6rxGITaQOusdav+JG8s/OhRVZGEL
aap9vizh3Lj+jcGTZXk7KO65FL0RzI0dcgdmv2jZQZ31u/SxAG7cUXZ0uM/e
DoaeFNdXeXHjjfTZ3SNFdiAw4f/PxJYbW6XmlluK28OzSBmP0ovceD3BcbpC
yAHSR0IcrtJx44msiXmPBEcwZaDt9KXixtTVPv7Xch1B9Fjw4VIybvxKWVJZ
pdIRciMD/zBvcmG7hqJryn2O8FLV37Z9mgsf+LuMF7idoC7Vy/pCOxd2mQ0O
vJTqBF917U1Uo7jwiX1zSmKlzpAW8Kf+7mMurJaxELbzzhmMS+4KpgVzYXnn
mdnpz87wk9r2++ZDLqygzSq6vu4MU6+tDd44cmENG3uBEXQP/nKY6Spc48Ko
R3R+68s94O66fuUgFxem652hGmVyBd6O/f22bFz4tSdpLlnEFfjbt4xfMnHh
j5oJVywVXUGk5bm9AjUXlliMbFQwcgUpvByhus6JQ26dMy574QqnS2Pbrw5y
4mBd7baT19zAIfqzuudTTuwfmdIrUugOzpF53XXJnJjbQ6JKA7uDS7jXzd14
Tux2Lc4ovM8dPEPE7jyK/C/PYe3MRQoPCPK9FxL5kBPLBPxNfW/kAWmOHM1Z
ZpyYIrR9uJL7PrRoXT/bJs6JT1mfwCeSPUEyiT2nToQTJ8a5z5yt8ITwkW6q
lwKcWFkwNep2pydo2Ws1R3NxYpp4y1fk1F4w8PjyRR0qTkwf2OYW6OIFv5su
aI2Oc+DR7Kzd7zreQKt6wnD9OQfubb6oViDnAzaPtup+p3PgOob3w3paPtDe
ViPwNZUDl4q3Zu938IFo/eMjdbEcWDv+3kmxFz6wx+PoLf8ADkx1J2J/guRD
OFAue5vJnAOnXXmV2sDlC2oHxV3ERDlwPd0BeSTmB4Y0c/v0BTlwpB5dt6+C
Hzj+qvwSzceB52WfDnad8YPETLVjO+wc+PaQ2a10Cz+Y4L27OUDBgU16WObX
c/3gEX25b+QvdqxytpI2+7A/vJtBERv57Jhq8lLn9YsB0PuR7qRsDjtmu6NF
n24YAL/zeuasMtkxdXT2sy37AGC1sNDqTWbHH1b4uKZiA8B0KJijJIwdN8g1
0yUOB8BOe0eyxd3/fFGd1svuj0D5pWFupww7Hpa49za9MhBefGGVfX2IHR+0
FLq32B4IwtuN1Sn72XH5n2le/bFAoNaQ/mQpxI5/0WokO7IGQc/U9vIWMzv+
6e2zUWEbBDbi6acOzLFh1vGWW6USwZCSNjrkW8yG6XyYRIRLQoCpMd7KKp8N
a1yYjXzYEgK+M+oLl7LZsPNvJ7aN0RCwUn5FwZPGhsM2WghlrlCQH/CXfPGY
Da9nc1dteYdCK8c+j0EbNvw4Po8n/GoYbIZZccgfZMNmR7/jYpZwePnI4YOk
OBsemaGf3T4UDrd8PNzFRNiw4B6vQlu1cGh1CvvGycuGJeoTbzz1C4cUvZfP
12nZMG+iXrjhajgcl1hTePubFbPJ1ptY/IwAj3eBN9TyWfHqqV0v+89RIFUb
SX0qmxXfV7sgH74cBT8qEt8cz2DFSaZPD/yiiwa1/AL+Q0msmGUfg8QNyWjg
ifo0zhTCig1tiNvrttFQacjl+tmaFc9xclaYLUXD6np2vPF+VnxxTE/gJGMM
6IdUJaaJseJJwYIIZYEYwHtak78KseIO9eTN84djIPz4/FOdPazYnSaROlor
BkS9judq0rFi0sXPUePxMZDxL9XuQR8Lnno5MJQtFgu6dHMlqsYseNh2lG3x
UhyISnJUVOuw4NHfJF0GkziYu6j0RvEKC9Zhep1wzDkOHoX7Y2nEgskfpKg3
JcXBKxaebgFRFhx/h8OgfiIOmLnR0vYvZnykL+XKgaB4aBSNOVJvx4wrXfI3
TT4ngGZfxHSiJTPmqfziWjydAAOhoRlORsyY/NfealbyRJhd8GUUv8yMq2b3
bQjLJQIH4TD+WIoZ+46tM5pHJ8Itg8txN2eYsLgUPhtwPQlIcbQrK7eZMFdh
p/rkbDKEXaAs7DBlwrQ5gfVGNCn//eWuSb4eEyaP4Tk6L5ICB26ttxmoMeE1
7iNp5ropcEV24vn7/Uz47ThciW9IgWftDdejJxhx5zF6asXMVFChelh+yIIR
r7u3Wco5P4UDExF00YaMOCSKIw0inwJ3c5rJyg1G/MjQKuJ24VNYCKlheHuO
EWf8FqNhGHsKuYxr5pr7GfELN16JeO1nwM5px+k0zYB/CWd/64V0+C1q4Frp
yICnK5M7h+MyoI/Cpo3vDgN+ZMR3vCg7AxrGPUQemjHgymTq0qCKDHiWm/Dp
wjUGbHYhYtemNwOuS/aIDyow4L7XZ2qmOTOhXk69b2uNHju/Nrv3OSkT4tCx
Y6ce0OMK08Cg8uIsoGia/97mSo/NTy2W7avPAudL+Y907OlxcsPn/bmdWXBV
h7fH1oQe91dNynxdygLmu1t3E07R40a7fmNa5ecQkkhkzVDRY6V70Z/D2p6D
99wF5oRIOrwzpbKduJUNM/dIr4WD6XAxlQqTHEsO6G+8MSh6SIfVLQ/YDonm
wHFKyQLsSIc/BSJtm4s5sMbLeHbmGh3O/kb3wSIlBxzPdd1HPHTYIvKq0Zhq
Lpin6f2aTqfFJm8oJQNj8yC6YlL1cyItZlIu97ApyoP6dreE2ihavJsXv2vd
kAd823EXwh/SYmomtKd4OQ+6jLoLpE1oMf3hXEkD7Xw4KXTR3lGQFj+ziu2x
ESgA3iyV9dU0GhxPR+tO9a4Qzte0XhmOo8EzS9waYkOF4NJzM78pnAarejI+
NVwvhC5yj5uJ3jT4XdIRUdHDRRBkXlGrZEiDY//cbd9KK4KVfdK+XntpcPGS
ZgK5bzF05gnSkaVQ42JKjqpDhi/B9A8mc4mhxksGrPyjHi9hSd58cyKMGo9p
FOWWxb8Ezvq8mXYvaiyV6Bub3fkS9HplO5KMqHGIjW1G79kS+Ek6EysrQo2X
FwRAma8U1m5aC5jmU2HGnE3uN5xlEJxOx/05gwqbdQsvD+8rgz2/ipjPJ1Ph
du9jXFyKZaDiuLB7KIwK9/+jtSzRLgPfoPs/122pcM3iTuvTxDKgL3+cFyVD
hevOtafaC74CQcZSOaKSEpfHVCRcVCoH+/EDQ1EvKTG/Fm/xzqVyqK/LDDLN
pcRFsV4rTSblYGQX+40sgRIPnRF1igsuh7QOt8CzrpR4ZZXSXHygHHifqA5+
VKDEzy0M3sg9qABO7jbf3lIKfLFHVDqi/zVYzJ05lJNPgSOckm4v/nkNFU11
X1wzKLDwlF/SXcpKuO7+UpInmgKnvp5SyJerhJiBJ703HSgwhfv04tGISmBJ
1TswIk2Bb0QLZjWrVQG98ETnVCE5tpKGKvOeNzCURtv2I4scU708nGE88wZe
8B5q6k8hx1LeHcXOlNWgxeFY9yGMHO+Y2CZMHK2GBOrN/EwbcrxyucWV9LQa
RP8w+d+UJMf+d+1ZOOxrQKVG8cjHAjK8MbPjZL+vDhiP6cngTDLMVnalG6M6
GC73lKxKJsNV2SplMkZ14P+CEM4JJcPND+stzRPqoCVDncnvDhmW+vimTZz+
LdwINppQOkiGeb6znZRdfwt3bwQm5eeTcPfrZi+Z3wRk7tQoSGaSsMhj9lus
FBj68hc6ipJJ+KTAH3Yedgxo24CqJIyEJ+QcOjVlMXDmyju/vkvCErEj++/Y
YXi7PnLpvSwJ76g7iGhPY+A/6rpT5bRLmNtwydvOv4OgsB9Ham/tEgLi3n+A
9B4Whi/Z1l/fJcKYdVz2sb2HxmDRgUbFXeK4bq2QgMJ7sBvsLOve2CEqFnFU
h/t7qPeWtJzx2yHaNWq5gbIBTBtG2gRjtolgW4XmhoONcEH1r+V3v21Csz/c
9OLJRjhcxUpKc9omRFJJI7+uNcK/wlNHeK9uEwsMt34YeDdCUszzNA7WbaJJ
bPPy+a5G6DKztqON/EfoDUuO7/f+AKdI88xLoVvEnapPfLXjTXDAk6ag9P4W
ETeXoUr3rwlYV4TOONzZIrJ2xngdOJpheFLLfVZti/g5fdfE/3QzeHa+Gpmg
2SKayftbPmY2w6tnbqXfAjeJD2e9qxctWkBUdefqB78NYnd6xE1v5yN0salK
JTtvEF4X5XToeVrBZ8KL2s78P984sOizTCt8jdqo4Ty3QaSFO7O9MGuF2J8r
Yha0G4STRxk8aGoFypCZVfKov4SA8AB3XlwbTPQMJKO0dUKykFTXeOYTxOXx
uHBGrBN/fBxlY0w+wWlvHc3fD9aJF5JvmD29PsEz8V7yaJN1Yu/383bJ5Z9A
16PTdkT0Px0y7sYr3gEtAk2qPgVrRCpZsYwiUycU3C4fra1cJeqYb66o3++C
3lvpQpdyV4lXER6MKKwLSEaPjb7GrxIl32VSL6R2gc5V88G/LqvEPI2FxeO3
XUCuzNGtqLBK+FBMZE6Sd4M+wz1cUrJCqJcpTJI/6Qb6l/Lpz/OXiamKkIfq
tT2gmC/4XT5pmWjiEHgV09EDpln0e98HLxNDSiQ8P9oDlQk/E35YLRNzg5HE
L9rPcOthTKSA+DLhvscpqkH3M9RoLT1IzFwiGE/nfNDb+Aw2y2WGj1MWiYFh
+jxfjS+QfHRRxTpskcg7kclLe+sLtNyX3XvGc5GYOQVXcty/gDipZHDz5iJh
G5hjIPL8C/xgLNax4V0kuPoDrES3voC2RK6WetICMRXxb8OgpA/8Xh0JZZaa
J6pKRwKuHByAYaXyC00M88RFffOy2lMDcIKQo/aZmSPa4osikf4ArLUdDvhT
OEf46Nyri3s8AHd/HXjQfnCOyBf+lHNnfgD09gg4he3/Q2S2KjEM1Q7CYR+q
m9RiM4TrPxWz1NvfgK+mK/E35QzB5XCb+57/N6BaS+1rnZgmPCsuHTRP+wZD
dvI3ogqnCapcucbwrm8QZmRyZY/8NMF6iFeXVnkIJk9Un5M8NUWYC7n5vGb7
Dhlbd+U1TSaJN0GcX6N7hyH8mJKT7KlJopZQ98haHAb3exSl7GKTRJbjnE8n
8whoziRL909MEETTPylv9RHY/tp0wNR+gmB+2vhLFI+Afo2wkPODXwTP7No9
45s/gON+L0NC6hgx/iErb0FnFP7ubrDNe44RX06k8xfdHoXhIKE9avpjxJxU
V5m75yjkx9ns29wzRozqUwRfeDYKJ0tJqsYJPwl++zO/GyZG4c6klL3Ek1Fi
7zsaUeT1E3yK6DPtmEYIW4gy7nw1BurV2i+E2ocJb3v6E8tNY8DZnFHdHTZM
XGPdLD30bQwKfh7tUaQdJqjr/V9/pRiHXl5zih3y70SjJ623gs44SIbUWkb+
/Uq8tDz8/efOOPRb3JUsGesjSg6e9u41nYD671rHKnP7iOO9tZ6ybhOQq6N4
9u2dPkJb8eRQxuMJcFHbMWqb/0KsaZ3jJiongFUq+snkVi9xWL/18TLTJKgv
l/8V4vxM6FuTT1zGk+BKsR4hEtpBzKjaJ+oqTsHZVSJPhqWDOCFxit/68hSw
T4a8U43/RFR8lUiKsJyCl618qzcz2wkDyT/tQglTMPHkpGFMdStxbV4z3uDv
FOgJB0lSTDcRsWP2J8++mwZ3T8nIj/H1BMMqaHlZzoLm3EJfSe5bYsz/4BUm
31mQuFUllFBVR7jX5Ei+SZmFL+pny24N1hCVdPd79bpmQYHXuHeLv4oIbDz/
qOXEHxh2EFM0VCshwuJ+irrxzUFXseDIjWtWxCNGHefXU/NAaXZJOOSMJgw2
hY61UCxAweEsd8YaZ3Ddf4H6A/sCfB+8U5KpGQLOoQp3JmUXwL3k8qXZPanw
IvQrV5/dApxNgWQ2n2IIvWtaazW9AIVRSihb9i2Y4qv6r+cWgbIxvY7mSD1I
J7kyTJOWwOQv9XHbYwT0eekqyXEsQVjp9B7edAyfVty11o8twUnearYfOe+B
oUgj3MJ/CXKntSnsy5tAdnGIvJdvGTwioiZCOzqAcrTK/4n+CuTsb8hW0eqE
vxs8ASoOK9Dzbu3Wn+5OyLwi4LMZsALcWy8d8m26gMrCpLrqxQo4ynDPMth3
g0q32zM58lUQTxof73H5DHIVjUpHS1Yh8o5fn6l/P/CdD98S4luHkDay1+P1
/dA0aGpDLrsO/tL+sbe3+kHNyTRu49w6uC/6azm6DMC4iN9tCed1ML3/qPWh
1SCI2b1T8W5bB7nQ4PpnF7/B8UhKYUn/v9CbH5E7xD4C3ZbfLYRIm9BBzxxo
euW/Hq7yvsF7NqHlbqT5+OMRuP9Y3/S+3CYYJ11gdSP/Ac1plrRy5ptw3VDt
0wOvH6A7USxR17wJJ8bVL0TYjQJbPcct7fgtYFrRUCm+OgbO1y95HT2zDaxf
5c3dncdAQyP+22mzbeDEex6fjh2DT9DFbf9wG/jCx78O9I7Bzb7VNJG6bTiw
z9uTSm8cWk4dtiYd24HTN4qqjY1/ASny5s1q+V1wq6BTYrOdBKq873f9Mkno
fsq8ydDjSbB7oHg6/hUJeft+Cc4rnoSvQS0ZNQ0kFKCR2a86Nwk1XdWnlCdI
KHpcyd3G6TekKoSzsEiRoSLO25UN7lMw3lC7I1hLhn64NB1xezQDsbxdqkaT
5GiohYovP3sG7DSOFdhukqMB/nO7g40zsA/fvhjBRIG6Ghs+qlLNgtVguRf9
EQqEOd8ZUwXNQrjZWt2cHwVKr6gNiQv+A471+RyOIpTIeKV06FXYPMiH2NH9
cqBC+moL78YL56G00kfJL5AKaafJ5HG3zUO0j4WsQioVkhDtV3pLtQCHdVN7
BpqokGCrNoXI+QXwkWK7LC1EjZj5rif9bloASYHOJuZeajRXffm9e8sisL2k
mtO+QovE6ZpdvPoXYaBvb7asFS0y1EP7H04sQuJQYp/wA1rUuiYfHkS5BH7V
GWSni2hRjsIenXi0BNwvVApDaemQ4YufU6/eLIF2OZMuaqZDrRnubHP5y+Cn
UFk5os2AyBYWGharliFJ0SIhxoEBKYGN22rTMuRq06YbhTKg3O+G3/6NLwNr
r2jQibcMyI/vdA6DyAqwKv+QEpZgREpxjMcPJq9A+VS6dOw/RpQbnGlqEboK
8TfY2TvrmJFpmV1JcfIq0A/y1UgMMSO+b8d3VgpWgd2pVPfZFjOKPNyTGti6
Ck0aO6t/lFmQ2xfy/lyGNfjH3K3LXsuCzotZXJ6KWAPpnIvOTaasaKJeQtk+
Zh3oVZ7M87uwoYzfSyGVWetwJKxw43cgG9JnJ/p3Xq1DAovbweZENtRhqesa
9XkdrnConK2pZUOVjCGlpZx/QULxnNMDSnYUpD8lsZzwF7SeRJ8MSWZH4mtF
HB6pG7AbclFPqYcD7flwVbSocAP+9dRncv3iQPRx67LD1RsgpW86QvmXAy3I
ndE8O7ABHwrivHgFOVGd3dcQVq5NKJE4xidgy4lu/KLdyY/chMAWVeWntFzI
v9fy96DfFpTzZ7TtXOVGrs8Z1hmfbIFZWe3GCWtudNu5jAplbEHm1iOTKG9u
pMm6LZpbvwXKlpJCTnnciFcjzsh5aws+dNNFSu5wo9KG9z30rv8gn8feLKiE
Bw2/Enqrcnsb+E82+zqI8qJPSs6Sou7bEBAWE/TzOC+qq29MpA3aBuPGibu2
V3lRausd5y/Pt2FIalSK8OVFej/L9zuMbIPAWc0axx+8qJtNLSZLZwfqaHcv
MWfzoUZHR2u6c7vwYLvJ9OMJflS+9r53/voubP1l9xHR5UdZ3lyn+27twuTB
KzIxTvzIL6SG/7nvLsyOWha8zeVHJzMoe07U7cLXXeMAYBdAQ9Yagm94SUj6
6U0tijkBpJ34I2QmmoSOF3TMKFQLocgL5UxkySQUW2pXfG1QCLWsB8Zw/7cb
a3vTl55sCCFlvUNpp8pIKDC+Rf24gDAS5HUrSewmoYT7a+MjxsLodwpD3xl2
MhQp29p4/Zcw8nx2VCwtlgxl5cTVX9kVQeWadPllqWTIVq2+MIRNFM3ufJNq
fk6GJqcP0PeKiSJjE7+jS+VkSMcgwi5LTRSdEW5XV+slQ26hV/qEYkURY5aZ
4wonOap1eTP74pAYepYT/lYjgRzZ1YwIZdruQy4HNLL6n5Kj/D+5M9M++5B6
EUPwrRxyxHXKbf58zD60Uhqm5VFBjvZd4xhXrN6HLtWFjD3vIUfWJDHrRRpx
9LfnEd0WMwV6OpR1fC5fHF0lPdAuCKZAFiPnSh5sSCCJgBPKR6IoEM2N/Txy
LPvRP6p/gkQCBTLldtj5u28/ymfw+t2bQ4Gg5HVSk9Z+tMN934vUSIHGzmFB
g4L9qFDaNVOXRIn09T689zQ+gCgN7P5Q3adEdmT8P0QHD6K9l3SEFfwo0UxU
6ZPU5YNIXgWum4ZSooobxiYyzJLIdC9bdU0yJeKqlKnPPyOJ3n6reORQQ4ms
p1lSfpVIIjfDf3sHtygRB0d/cUbEITRl9PhisQ8Vqk9RN58ylkYkTZcHg0H/
7WLOTPK2tzTac9KolDqKCvFXOT6TTZVG5wVluM3SqdCklUvUcr80yhruGeXC
VGgi+0X4wrXDyNCE7/5DMmr0zINDeUxTBnWYFuRde0SNFpGcamuJLPIXe6i8
+vg/bc3SWE/IIsWJG58SY6kRjrMKf98pi9JsSctDWdSoinJy7995WWTrpnvS
+h01UjZk6+GXk0O04VRfvHaokTtzTP7NSjl0usqMPMeDBvm/wOaMn+TR2v1j
8Rd8aRCvXrIz9Yg8KjjBdGA6mAadEGgoY1uUR6zv31yWSaRBzwz6yQ25FNBI
O0ty9WsalF3Ngd8ZKyDvn29lOpZokHHuB4MfKwroTC8npeg6DSL9P46g/wFn
imqs
       "]]},
     Annotation[#, "Charting`Private`Tag$3717#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-6, 6}, {-5, 20}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.947901623759709*^9, 3.947901727132543*^9, 
  3.9479023352617435`*^9, 3.9479025438885684`*^9, 3.948350314569068*^9, 
  3.9483503995476213`*^9, 3.9484099708694353`*^9, 3.948410240028294*^9, 
  3.948410320916291*^9, 3.9484105339939423`*^9, 3.9484110300587764`*^9, 
  3.948413842502816*^9, 3.949901547702549*^9, 3.950258474379697*^9, 
  3.9502586378729424`*^9, 3.950260603155336*^9, 3.9502608279220643`*^9, 
  3.9507589554441805`*^9, 3.950759211309517*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"5c4a4a6e-d8fb-4161-afba-1506c36ee4e2"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[1, 0.5, 0], Thickness[Large], Opacity[1.], 
      LineBox[CompressedData["
1:eJwt1P9T03UcwPExYMAaO9hn25v2SeRLrJAy7QA5Bn1ecguJg5BvikW5i2nG
weEZoeBBR8dXA9xx+CXohBIRxEMR5aIcn3dA3jycWCgI5yEEccgoIsAFc1hd
rx+e9/gPnr4f5SQdEAoEgvh/+8+MK4bF588J/V+Gym0qteYZQRk6EH0hPe9v
gjJUPdFze+FPgjJ0XjJ9fmyKoAw9nBmS1tVPUIYWBYzTg+UEZWh9g3+tWUpQ
hjY+rshJdFOiMqq8l5wQqFCgntS0O1k7GCBHPWhMYECuvx9DDUmxc9FaKQ3v
SG8ZekNGc9N74hr3S+j6iYPMm4GedEVhVuuTxHTV2nzqw1c86PziO0HGd13p
gF9tcG+2FBVRjfPnXUF6CepE62DHjp2FYlRIM75O+22+0RUV0KGL3m4O9SJ6
LiFSJgy2896Sq9v5bica4aXLKMpe48U+s0NPLgmpHO40Dqeu8lkppWdbWwX0
Yat4e2LiEq/rfzzoXWvnaRl/JvJlC+8XuZH4U/Eary14dv6E4zTfdqhr6ofu
Vb75W3PZ4vgIn7ncmf5l/RLfFLp58EZrD7+1yHmfyN/Cx7jMN8x+2s8x+fdf
ON0wzY+7750bNj3kRvVZW65Mj/B15tuZr9bMcEcLttTcPtXLd14Nvxv9+gJ3
6WQYNG8zcrYKR614eImr+aR4RPfFKKd/rynk7OQq574Sp7mcOM2JClo2jbSu
cZO5t4LzSizc4fAMlabPzv3RE9931LTEWR+ppzQzAmgp/0anr1zlhvt3b7s2
IISAp+3MsYY1TmZ74HbT7AQT1zYbNYfsXM7YyYlN10WQemaywmIQoK5w7kKV
Me60EBWD0/vZvzvnO6ESuKtru5hUIkKlcMNd9YE1yxXGRdUdx0M9QF3vO+cS
JwbG7LHiqPaE9bwSe3uyBAo1fRsPAmVgWWelrWFSyLO7u6S8xEDTx+X3WX8P
VA6GnXeqXgzwRBUgzWmP6lfIUCX0ar8zdqsYlIA9e3/oHqkc9QIHl1++CrLL
US8IjTnSFytQoipYf3R5TvGXElWBNstkiH+qRFVQbZsOK11XoirwUbGVK0KC
srBrb2XgMENQFup+PpBpCCEoC1tveS+I8wnKwrHU8LqoQoKy8ONMakRBMUFZ
SHGsrnpSSVAWjoPtNVM9QVkwfT+aXXqToCzIYpcVRkpQFtLHpL0rAwRlYdH6
tlRvJigLypDrHVETBGVBNzC0p+BXgrLQlmzZ6JwlKAsRR/wSfBcJykKZw1vW
tGWCsnDPsK/RYCUoCyqfz3aZbARlAf+FsvAPObY8RQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$3764#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-6, 6}, {-5, 20}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.947901623759709*^9, 3.947901727132543*^9, 
  3.9479023352617435`*^9, 3.9479025438885684`*^9, 3.948350314569068*^9, 
  3.9483503995476213`*^9, 3.9484099708694353`*^9, 3.948410240028294*^9, 
  3.948410320916291*^9, 3.9484105339939423`*^9, 3.9484110300587764`*^9, 
  3.948413842502816*^9, 3.949901547702549*^9, 3.950258474379697*^9, 
  3.9502586378729424`*^9, 3.950260603155336*^9, 3.9502608279220643`*^9, 
  3.9507589554441805`*^9, 3.9507592113695326`*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"a8485496-0b92-47db-be70-f16b56414c91"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVlWc41Y8fho+95znOSSUhklQiDaUPLaOlJYWUVfZKhGRkZGevMrJC9ibf
TxGFbFIZCUfZUgnh//u/uq/nuq/reXuLGdpcNGEkkUjiDCTS/2mUHza7vk7D
EQWvExfPGQNlZaPU4X80XOV9zfzgljHUn0rXu/eXhlZv/Psr7xqD1GDl+6k5
Glb2CNDME4xhgnvk+adhGk5l747P+GEMtuaKOsV1NJwMNBdNemwC7pKf0dSP
htyePC1cfaawx854McWbhhz13t0J06bwtWZm18BDGjLwmBxQYboNxy4zJVxy
pqGFx6VrDbtvA4u3rKOKGQ1rvpySbfK9DUFf3XdsPE1DEcVdR18r3YH4BInw
D7w0tLFwslwuMoNsubiUck4aBm26/07tgxlUveUtTGGlYVHTR76CcTP4PLvU
5rhGxTPp/1o7NpvDxhPtPFtmqMgsoyGs728OCVNuj60/UFH+0c7QHGMLSFTu
9eALomJthe6TBXkryO08HbbkR0WbjL6pHi0rqLn9OmnEm4qthfsHe62toP9J
bm25KxWXkqbW9+VYgQjd65+BBRVNEzKKTSSt4VnIHucCTSouRttOlIjaQNKQ
v80FDirSU+mzztG2cJOLvc2DhYqsle5eFzNsQfyA3+4CBioWKckoHS6zhYwQ
n2neZSG0qsu5qNRrC3nKXhYtE0Io/XcB56h2UJPgelutRQjvTvn5nE6wg89X
rQ2UQ4XwyLaZgxIF9pDoPV1rGSiE6slzAWuv7eFGvuWWRD8hlLefnJrosodv
rBYDyw+FUOEKv/jioj38KL2tW2ErhGfMrUWGVBzgL/nWVYWLQqjSKT670uMA
1PZL53cICSFH9yTLMI8jCLdu/2ghIISlLqSZODFH2NyyciOPRwjfn4s+b6Lo
CGLvnlsrsAqh1HxIvYK+I8jiQrDyIgX9DU/eKHzpCMcKIloufKKg39UrzUcv
3gObsC4Nl6cU9AqJ7xbLdgL7kMyOmjgKUp2lys+gE9wNcr22HkXBexcj9YN6
ncDFX8LsUch/fzZ/jmsyOYOvh4N/yEMK7vH+m/BG3xkSbcmNqbcoyPS4ZbCM
eh/eaV060SxJQdXbR/BInAvIxAqm14hRMCbSafJEiQsEDXWw5IlQUGlLQuid
NhfQstZqDBOiIFuUSREjqyv0BZ7V1GahIKdP8z2fu67wvUFNa3iUjMNpqesD
2m7ArnxEb/E5GbsbNdVf7HUH80crNd+TyFjD9WZQR8sdWpqrRD4nkLFAsilt
u407hF0/NFQTQcYrUQ5HJV66wwbn/YZe3mRkMQveHi3zEKSL5e7wGJEx8XxR
Qp2QB6jvkLwrIU7GWg5peRUJT9Bjm9l2fQsZQ3Q4OjwUPMF2rKwnbCMZZ+We
fmo/7gkxKeoH1gTJeKf/lmGSsSfQhS2X+5jIaNDJN7uY4QmPOIs9QsYE8fCJ
Mva03V7welIleClLEFnGT7dd0vSG7vccR+XSBVHATIszSc8bvmd2zpimCCJr
WNqzFWtv4Dc21uqOE8S3vzYK/Yjwhpv9fuT8AEGs29vIETPoDWstrXHGlv95
ce2ms06PQClPL6NtjyAOSjm8SirzgZc9/HKlOwVxh4mow3yLD2xdra+M3y6I
xdMTwtdHfID1zK4PJqKCOMZ+Js6W3xc6f6wurPAK4jc396USC18wl0xSlZ4R
QP7Rd4YFUn4Qnzjc75ErgBzuPGJb8/2Bpz7K1DRLAM+oTYU8fOcPHpMac6fT
BND+u53A0rA/mCoVMdESBTBg6R2hJPQY5Pu8ZF4GCuBiGrV8xe0xNJG3OX8y
F8DAqExa0IUAWA4wJcvvEMBb+wcwly8I8h7ZvJWRFMChSc6p1Z1BYOju7CQh
JoBbNrhmW6gHQZNdwBeKsABK1cZcfuoZBPE6ec8X2QVQOEYnSO93EByS+qPw
6js/CsjVGhh/Cwbn1z6X1bP48bfquqt1VyjIVoewqqbx4311NfmghVD4WhJT
cSiZH2NvPpUe4wgD9awXm3fG8iPfNi6pyzJhQAv9MMrjz4965sSdRYswKNMT
cuy6zY8zFErJrZ9h8HsxLerGdn7UHNEROcodDtf9y2MSJfhxfMuLYCWRcMAN
TXGfRfmxVSNu+dTucAg6NPtUewM/OrHFsIZphYO466GMcxz8SNLsCh2NCofk
fwlWD3r58EdeX3+aRARc5ZjJV77Bh4MWwwLzpyNBXIZcUqnNh8PfSVe5DCJh
RvNgheJ5PtTmKY0+YB8Jj4K8cJcKHzI+iNdoiI2EIj5ah4g4H0aZkXVr6ZHA
S1X5uTrGi/t6489L+0ZBvXj4vlorXiy7m7Vs0BUN53qDJ2JMeJFW1uOYOxEN
fY8fJ9vp8yLj2KZKfsYYmJrz4JY8y4vlU9uWtu6NATJhMxooy4seI4vcRmEx
YKh7NvLaJA9KyuIJ70uxQIpk//XrDg8KZbdpjE/FQYAac3brTR5kT/ep1WeL
/6+X6wZZOjzIGE7bPysWD9KGi8266jz4h7ov0ehqPJyXoz9/s50HX43C+ai6
eHjWUncpjM6NbQc4WRVTEuAwy8PincbcuOjUbLLX/ilI04M5wvS40T+UnAgh
T4HamGjw6zI3PtIzDb6T/RTm/Ku4Xp3kxuTvEmxcI08hg/uP0bnt3PjynrBU
1JVnIEixothNcOHY1rQv3ZAE38V1HctsuXCiLK5tMDIZepnMmzeaceEj/Y2H
ctKSoW7UWezhLS4si2Mt8C1JhmcZ0R/ULnLhLbXgdfPuZLgk0yn5SYELe0uP
V01QUqB2r0bvyh9OtC+95dAVmwKRKgcOqD7gxJKbPr7FuanA1DA70OzIiUaq
84XbalPB/nTWI21rToyr69qe0ZYKF7SFOy0MOPFj+fiezz9TgddyxTJalRPr
rT7eYFd6Dv4xROokCycedAjrCmh+Dm4zarzRIRy49uPwasxKGkw6kEq3+nFg
Lsthnr186XB9qUI35yEHaphIW/SLp8MhZpkXaMuBH3xUrphrpsMfYe4Tkxc5
MO0Lx1vj+HSwPdl+X4XGgcYhF/RHlDPAKFFnbCKJHQ0qmGV8IjIhrGRcuSuG
HXmUip3NczKhtuVedHUoO65nRq3frsuEjauRakEP2ZGVR2VD7kImtOt3vNhl
wI6cuzNkdK9kwVFRTWvbLez4zDSi01zkBQinHl78nciGURzsTiyvs+FUVdP5
wUg2nPxJPSPRnw13O69lNQSxobIL91O9xWxoZ3S+FuPGhq9j94mL784BX6OS
6oN6bBgxbdmykpgDv7bt8nDdxIa5P89FM3rkQlvmFg6GeFbMZSaX79TLg5vT
yHA3nBV/6vJvHnbOg5/yRsv0AFYcOZOTURiVB5TazMkWV1aUjfGISGvLA51u
udZYfVb0N7dI7j6RD99IxyPkxFhxYU4ElDYWwJ9rt0VuZrEgd/oytYJSCH5J
HNSuZBa81bF1YXBbIWwYy+E9FceCLW4HhIQUC+Gw7dz6zgAW/PiP3ST/SiF4
+N7/tmjBglXza01PYwqBszgwM3QPC9acbEmw3lIEW7gL9hJlzFgcXhKtebAY
rEel+0PzmHGzlnDu2uliqK1J8b2ZwYw5Ea6/GgyKQd8q4gtDNDP2Hxe3i/Qr
hsTWez4nHJnx129mI8m+YhB+ovzpvQIzPjfWrdj7oAQo1GaP7gIm1OwU3xX8
sRSMZ47vTM9iwmC72Dvz06VQ0lDT45jMhFt/eMZaMpfBJac8GVoYEyaU/lDI
2lsG4X1Puq/ZMCGT08T8/uAy4EvQkR7axYSXw7akNqqXA+dWetuPbEY03QXl
Rp0V0J/I3vw1lRFZ8nYn35isgJfCOxs+xjOirFtrrj1zJWiRbWveBjDimoFF
NH1/JUSzLmelmDPir7PvHElPK0F8msfrmgwjella85Gtq+BwleK+9y8YcGly
zc56Ww1wH9DZgykMKFB4vgNVamCw2EWmPI4By9MOF+7RrwGvl8TW9McM2Piw
1sQougbeJWvweJoxoOz7imZJzldw2U+ffnAHA9IGBI7KLb4Cy8s+sVlZJOwo
bXTd852AlLUqBZkUEooFChryMyH0Zs215sSR8KjItCBNEEFlVZclP4CE9L02
befkECgZ8valliSUihjabmaF8Gpx6PQbORKuadiIXZlA2Lzfca3cbp0wMheS
t5h9Db4BX/dVG64TIpJu00B6A3ODpy1qL60TAbzad7cJvIF6P/G+esV14tDV
alERhTdg9amtsGNpjSiZx9BWpzdQ6yZjMum5RrScqaYCcx3crBtq3hK+SvhZ
KDTW7agHNeW/JgOeq8S5j0E3NY/Ww+5yflKi3SohlkAaGrtYD/+yVfcJX1gl
5rgMv+q61UNs+PNEMv8q0SCxfPZUez2037ptxR7yj9AZlBnd7vYWVEmzvD8f
rxBm5R82Vo82gLQL24uC+ytE5EyyMse/BuD/JXrcxmyFSF0bEbYhN8LguJbT
lPoK8W3C0sDrWCO4tBUN0dlWiEbGj+/epzRC0bN7BV98lom3J9wq543fgbjy
2oW3nkvE+sTQPZ2199AuoCwbZ79EuGru1eakNYE73ZXVyug/f8Mnp2tPE3wO
XaqinFwiEoPsBV7eaoKIb78kjNmXCDvnQnjQ0ATM/pO/GUP/EiJb+6iZkc1A
7+yLU0lcJGSySTX1xz9AZCbtLiV4kZh2t5ULN/gAx9y0z31/sEi8lKngdXH9
AM8kuxnDDBaJTQOnrOKKP8BV5zaLIfH/tv/oPWHJVngn0qDs/uIPkcCQu0eR
pw1e3Ckeri77TdTwXvulcb8dug2TRE9n/CaKgp25VQLagaQfqP856jeRP7An
QS2hHbQvGH36e/c3MctmbBz4qh0Ylcgdigq/CXcmeso4Ywdc53LA/PxfhEah
wjjjkw7gzJNPep61QPwo8X+oUd0JillbBuRjF4gGskhReGsn3Ezl3PTGb4Ho
P0jC2eFOKIv+Fv3VdIGY+RRCjLF3geHD8BARyQXCaYNdaN3VLqjS+vkgJuUn
wX0s/a3OUheYLxTqBcbPE32DnJkeZ3ogbv/84dsB80TmkRRhdsMeeHdfbtNx
l3liUhXOpzv1gCQp/9PytXnCwiddV+x5D3zlztU2F54nhD56m4qv9MAVqQwt
jdg54kfwvyXd/F7wLNr3mFd2ligvGPI+v6MPBg8WqzVwzRKa140Kq1X74Aix
l9V9coZojsoJUbneB3+ad3tPZ88Q7toONZGBfWA5Jv2gZccMkbX1Q7rZbB/o
bBCxC9g+TaQ0HeTqr/4Eu91ZrrFKTBKO/w7fSrjzBTZWtcd8Z54khGzuUB28
vgDLn4TeJvoE4VJyeodR4hfot5K/HJo9QbBk7K0Pav8CAfoG5zfITxD8O4Wv
siv1w/iRypMyqj8II9F77qUCA5C8Yil/zmCcqPClfA7rHoSgAwft5FTHiWpC
wzl1fhCcHJgKBCXGiVTbGfc23iE4Nxm36yOdThAN/2TdNIZg9XOD9E1rOsH7
tH5MHIfgetVWUfsHYwRt6o/DjWtfgXy/mys6YYQYfZuaOac9DH/XlwRmXUaI
niNJm3PuDMOgr+gG9esjxIxse6GTyzBkRZpvW94wQgxfZ/JTezYMRwtIyjei
vxGbrY9/r6MPg9m4rLXUk2Fi02s2cRXXb+Cew5lixTNEWEDojbaiEdCovPJS
tGWQcLPmPLLQMAKUxuTKjoBB4iL/csHOLyPw4tv+TkX2QYK11qv0M9ModAsb
Ma0xDhD1LuxuCtqjIONfbRLy9zORZ7J74NvaKHw0tpTJH+kl8nccc+u+SYfa
Aa0DZRm9xKHuahe5e3TI0FY88cqsl7iieLQ/OZAOd9XX9Jtne4g/WiepRBkd
+GXDnoyvdBO7rzcFLvCMg8ZC8V9RShdx/TYj/SyOgyPTYrDY41ZiUtk65qri
D3BykQl5H1VLcP0GLVeTKTg3M9ebn/GKGPHacZ7HYwqkDMtFo8trCKeqdJmK
+Cno0ThRaPipiijjuN+t0z4FCsI3ulc2lxM+9acevTsyDYM2Eop66vlEQOQ3
8XsbZ6DXr2G5XceGOF7h/6js6yz8D5hq+io=
        "]], LineBox[CompressedData["
1:eJwtxVtIk2EYAOA51zTRv7nTZ/+X5QoHUkgXKeKk/20YhkzKY3ai0SZZKAsp
88AujJkNtvovpINB2UWmbBiJRYWTmkN20coyJ4aMlRLGqlVOhxvTCt6Lh0d1
xlTVIBQIBPn//N/fMxmbqjdxpQZzo3PLL+76uS6//sosZzzeX3A7uMJlRHQa
Z+UCJ+4YyPYPrnHBi5P7Wi0h7kKxgdW4E9zPFxXuy97fXHRe/VmzKICBngd6
o3WFm544snfEI4TcVYes7e4aJ43PbB7ziSAwssOlaUxwprkbgexRMdTeCl4L
8QI8Fe49tLl0N4V4GohONP/Y1C7C0+GtfuhRlUWMM/A0gz0VbUqFT2L7cGeh
BNR9qqUUXRrIfJJIsjoTYq2WhKM6Hcwa9/pMnhRCMcoMFjHQmshIqdkmg/6z
PR/pLgkuB/7AG9vW3ExcAYzJoZ1QSHEljJc+dz1jZTiBRPPpwjpGjmdBUsqH
O7sTcjwLCg+1uMsFSpyF2LxzSfFHibNQ2uTlK1aVOAv2+EJRd0yJs5DDUmtE
SHAKZUetedMyglPofd9wni8gOIX8ye3f09oJTqGttrhXayY4hdeLtSUdXQSn
UJNst32zEpxCJ8T3ePsITsH7cra5e4zgFKTlywrXK4JTODnHjEc8BKcQjh5k
jD6CU1AWjA5rAwSnoPe8q+v4QnAKQ9Wh9SdfCU6hpGXnYVWY4BSuJu2P1i8T
nMIUf+w+HyU4BTbnUpk3TnAKhsd8eGOD4BT+ApJRRFA=
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$3811#1"]& ], {}}, {{}, {}}, {{}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-6, 6}, {-5, 20}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.947901623759709*^9, 3.947901727132543*^9, 
  3.9479023352617435`*^9, 3.9479025438885684`*^9, 3.948350314569068*^9, 
  3.9483503995476213`*^9, 3.9484099708694353`*^9, 3.948410240028294*^9, 
  3.948410320916291*^9, 3.9484105339939423`*^9, 3.9484110300587764`*^9, 
  3.948413842502816*^9, 3.949901547702549*^9, 3.950258474379697*^9, 
  3.9502586378729424`*^9, 3.950260603155336*^9, 3.9502608279220643`*^9, 
  3.9507589554441805`*^9, 3.9507592114343796`*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"fad178c7-eaf4-4aea-a7cd-8ca494192a6a"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0, 1, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwtlnc413/Uxr/23nxFtqhEVkqk825TKg0ju6wiMyskIzMre5WRTSEiI593
EUJWMkokIiN7hPD8nut5zj/nuq/7uu7/zuvcorfsr1pQkkiktxQk0v9us+Ko
uZ0dXjyq6Hf66iVz4N7kl1T9x4u3WN9RP7hpDg1nsw1d//Ji2/fBg1XO5iA5
VPVxZp4XV33h4LVOMYcp5tHnAyO8eKbgYHLOpDk4WCvpldXz4unH1sJpIRbg
LfEVWwbxYmZfljamfkuQdTRfy/DnxQwN/j0pfyzhR+2szPeHvJiCxeIIorKC
k9epUq6582Ibn2s3Gg9aAY2/tAu6w4trv52Vbgm0grAf3vv5L/BiQSWZ4+9U
bkNyinj0J1ZebG/jdnfj1R0okEvKqGTkxWG77zef+3QHqj+wlmbQ8uJXLX1s
JRN34OvceofLNhlrZv9r7xKwBv7TnSxCs2RMLaXBZxRsDSkzXiF2n8hY4dGB
yEJzG0hV6/VhCyPjujcGT5YUbKGo+0LUehAZ2+f0z3zRsoVaq3dpo/5k3F56
eKjXzhYGnxTVVXqS8XrazM6hQlsQHPf7Z2JDxpYpOWUWEnbwLELWveQ8Ga/F
O0yVC9tD2nCw/RUGMh7PHJ9zj3cAUyb6Dh8aMqat8va7muMAYkeCDpZQkPEr
FSkV1QoHyIkI+MO6wYNt6wuvqvQ6wEs1P5u2KR687+8Snic7Qm2Kp9W5Nh7s
PBMUcCHFEb7q2pmoRfLgY3tmlcVLnCDV/0/d3cc8WD19PnT7nRMYF98VSg3i
wQpO0zNTn53gJ63N942HPFhRm11sbc0JJl9bGbxx4MGa1naCw+ge/OW6qat4
lQejbrG5zS/3gNx57fJ+Hh7M0DNNM8LiAnzte/tsOHjwaw/SbJKoCwi0bRq/
ZOHBHy/FX7ZQcgHR5ud2irQ8WHIhokHRyAWk8VK42ho3Dr51xrj0hQucLIlp
uzLAjYN0tVuPX3UF+6jPGh5PubFfRHKPaIEbOEXkdtUmcWOyu2SlJnYD5zDP
Gztx3Nj1aqxRWK8beASL33kU8V+e/eqp81TuEOhzLzjiITeW9f+b8t7IHVId
uJoyb3JjqpC2oQryfWjWuna6VYIbn7A6ho8leYBUImd2rSg3Toh1mz5d7gFh
w100LwW5sYpQSuTtDg/QstNqiuLhxnRxFq8oaT2h//HF8zo03JgxoNU1wNkT
fjee0xoZ48IjWZk733W8gF7tmOHacy7c03RePV/eG6wfbdb+TuPCtUzvh/S0
vKGttVrwawoXLpFoydpr7w1R+keHa2O4sHbcvePiL7xhl/vhW37+XJjmTvje
eKmHsK9M7jaLGRdOvfwqpZ7HB9T3SziLi3HhOoZ9CkjcFwzpZvfoC3HhCD2G
Lh9FX3D4VfElip8Lz8k9Heg85QsJGepHtjm58O3Bm7fSzH1hnO/uRj8VFzbp
Zptby/GFR4xlPhG/OLHq6Qr6rIN+8G4aha/ncWKaiQsd1877Q89HhuNy2ZyY
444WY5qhP/zO7Z61zODEtFFZzzbt/IHd3FyrJ4kTf1jm55mM8QfTwSCu4lBO
XC/fxJAw5A/bbe1J5nf/88V0Wi66PQKVl4Y5HbKceEjy3tu0igB48YVd7vUB
TrzfQvjeQlsAiGw1VCXv5cRlf6b49EcDgFZT5pOFMCf+Ra+Z5MAeCN2TW0ub
rJz4p5f3erlNIFhLpJ3YN8uB2ceab5VIBkFy6sigTxEHZvBmERUpDgaWhjhL
yzwOrHluJuJhczD4TGvMX8jiwE6/HTnWR4LBUuUVFW8qBw5dbyZUeEJAod9P
6sVjDryWRa7c9AqBFq497gPWHPhxXC5v2JVQ2Ai15FLYz4FvHv6Oi9jC4OUj
+w9SEhx4eJpxZutAGNzydncTF+XAQrs8C2zUw6DFMfQbNx8HlqxLuP7UNwyS
9V4+X6PnwHwJemGGK2FwVHJV8e1vdswhV2di/jMc3N8FXFfPY8crJ3Y87T5H
gnRNBO2JLHZ8X/2cQthSJPwoT3hzNJ0dJ5o+3feLIQrU8/IFDiSyY7Y9TJLX
paKAN/LTGEswOza0Jm6v2URBhSGPy2crdjzLzV1+czEKVtay4oz3suPzo3qC
x5mjQT+4MiFVnB1PCOWHqwhGA97VkvRVmB23ayRtnD0YDWFH557q7GLHbnQJ
tFFa0SDmeTTnEgM7Jp3/HDkWFw3p/1JsH/Sy4cmX/YNZ4jGgyzBbrGbMhods
RjgWLsSCmBRXeZUOGx75TdJlMomF2fPKb5Qus2EdltfxR5xi4VGYH5ZBbJjy
QbJGY2IsvGLj7RIUY8Nxd7gM6sZjgZWMFrd+seJDvcmX9wXGQYNY9KE6W1Zc
4Zy3YfI5Hi71hk8lWLBi3oovLkVT8dAfEpLuaMSKKX/trmKnTICZeR9miYus
uHJmz7qIfAJwEfZjj6VZsc/oGrNZVALcMrgYe2OaBUtI49P+1xKBFEu/vHyb
BfMUdGhMzCRB6DnqgnZTFkyfHVBnRJf837/cMcnTY8GU0byH50STYd+ttVYD
dRa8Sj6UaqabDJflxp+/38uC347B5bj6ZHjWVn8tapwZdxxhpFXKSAFVmodl
B8yZ8Zpbq4W801PYNx7OEGXIjIMjuVIh4imQm1JNlq8z40eGluG3C57CfHA1
09szzDj9tzgd0+hTyGFeNbu0lxm/cOWTjNN+BpzcttyOU0z4l0jWtx5Ig99i
Bi4VDkx4qiKpYyg2HXqprFv57zDhR0b8Rwuz0qF+zF304U0mXJFEWxJYng7P
cuI/nbvKhG+eC9+x7kmHa1LdEgOKTLj39anqKe4MqJPX6N1cZcROr2/e+5yY
AbHoyJETDxhxuWlAYFlRJlA1zn1vdWHEZicWSvfUZYLThbxHOnaMOKn+896c
jky4osPXbWPCiPsqJ2S/LmYC693Nu/EnGHGDbZ8xvcpzCE4gMqdpGLHyvajP
oa3PwWv2HGt8BAPenlTdStjMgul7pNciQQy4iEaVRZ4tG/TX3xgUPmTAGhb7
bAbFsuEotVQ+dmDAnwKQtvX5bFjlYz49fZUBZ31j+GCenA0OZzrvI14GbB5x
xWhULQfMUvV+TaXRY5M31FIBMbkQVT6h9jmBHrOolLlbF+ZCXZtrfE0kPd7J
jduxqs8F/q3Yc2EP6TEtC9pVtJQLnUZd+TIm9JjxYI6UgXYeHBc+b+cgRI+f
WcZ0WwvmA1+m6tpKKh2OY6B3o3lXAGerWy4PxdLh6UWypvhgATh338hrDKPD
ah7MTw3XCqCT0v1Gghcdfpd4SEzsYCEEmpXXKBvS4Zg/d9s2UwtheY+Mj+du
Oly0eCme0qcIOnKFGCiSaXERNVflAcOXYPoHUzhH0+JFA3aBEfeXsKhgtjEe
SotHNQtzSuNeAndd7nSbJy2WTvCJyep4CXo9cu2JRrQ42Nomved0MfwknYqR
E6XFS/OCoMJfAqs3rARN82gwc/YG+Q13KQSlMZA/p9Pgm10iS0N7SmHXr0LW
s0k0uM3rCA+PUimoOszvHAilwX3/6C2KtUvBJ/D+zzUbGly9sN3yNKEUGMse
50bK0uDaM20pdkKvQIi5RJ6ooMZl0eXx55XLwG5s32DkS2osoMVXtH2hDOpq
MwJNc6hxYYzncqNJGRjZxnyjiKfGg6fEHGODyiC13TXgtAs1Xl6hNpPoLwO+
J2oDHxWp8XNzgzfyD8qBm9zq01NChc93i8mE970G89lTB7LzqHC4Y+LthT+v
obyx9otLOhUWmfRNvEtdAdfcXkrxRlHhlNeTinnyFRDd/6Tnhj0VpnKbWjgc
XgFsKXr7hmWo8PUoocwm9UpgFBnvmCygxJYyUGnW/QYGU+lbf2RSYpqXB9ON
p9/AC74DjX3JlFjaq73IiboKtLgcaj+EUuJtE5v48cNVEE+7kZdhTYmXLza7
kJ5WgdgfFr8bUpTY764dG5ddNahWKx36mE+B16e3He321ALzET1ZnEGBOUov
d2FUC0NlHlKVSRS4Mku1VNaoFvxeECLZIRS46WGdhVl8LTSna7D43qHA0h/f
tEowvoXrQUbjyvspMO93juNya2/h7vWAxLw8Eu563eQp+5uAjO1qRakMEhZ9
zHmLnQpDb958e2ESCR8X/MPJy4kBbRnQFIeS8Li8fcclOQzcOQpOr++SsGTM
8N47thjerg1feC9Hwtsa9qLaUxgEDrtsVzruEGbWPAo2c+8gMPTHoZpbO4Sg
hNcfIL2H+aELNnXXdohQVh3nPRzvoSFIrL9BaYc4qlsjLKj4HmwHOkq71reJ
8gUc2e72Huq8pCymfbeJNs0aMlDXg2n9cKtQ9BYRZKPYVL+/Ac6p/bX47rtF
XOoLMz1/vAEOVrKTUh23CNEU0vCvqw3wr+DEIb4rW8Q8060fBl4NkBj9PJWL
fYtoFN+4eLazATpvWtnSR/wj9IakxvZ6fYATpDnWxZBN4k7lJ/6asUbY50GX
X3J/k4idTVdj+NcI7MvCp+zvbBKZ26N89lxNMDSh5Tajvkn8nLpr4neyCTw6
Xg2P020STZR9zR8zmuDVM9eSbwEbxIfTXlUL5s0gprZ95YPvOrEzNeyqt/0R
OjnUpJOc1gnP8/I6jLwt4D3uSWtr9p9vHFD4WbYFvkauV3OfWSdSw5w4Xtxs
gZify+Lm9OuEo3spPGhsAerg6RXKyL+EoEg/OTe2Fca7+5NQ6hohVUCqbTj1
CWJzeZ25w9eIP94OctEmn+Ckl86l3w/WiBdSb1g9PD/BM4keyiiTNWL397O2
SWWfQNe9w2ZY7D8dPObKJ9EOzYKNat75q0QKRZGsEksH5N8uG6mpWCFqWW8s
a9zvhJ5bacIXclaIV+HuzCi0E0hGj42+xq0Qxd9lU86ldILOFbOBv84rxByd
ufnjt51AqcLVpaS4QnhTjWdMUHaBPtM9XFy8TGiUKk5QPukCxpcKac/zlojJ
8uCHGjXdoJQn9F0hcYlo5BJ8Fd3eDaaZjLvfBy0Rg8okPDfSDRXxP+N/WC4R
swMRxC/6z3DrYXSEoMQS4bbLMbJe9zNUay0+SMhYJJhPZn/QW/8M1kulho+T
F4j+IcZcH80vkHR4QdUqdIHIPZbBR3/rCzTfl9t9ymOBmD4Bl7PdvoAEqXhg
48YCYROQbSD6/Av8YC7SseZbIHj6/C3FNr+AtmSOlkbiPDEZ/m/doLgXfF8d
CmGVniMqS4b9L+/vhyHlsnONTHPEeX2z0poT/XCMkKf1np4lWuMKI5B+P6y2
HvT/UzBLeOvcq4193A93f+170LZ/lsgT+ZR9Z64f9HYJOobu/UNktCgzDdYM
wEFvmhu04tOEyz/Vmym3vwF/dWfCb+ppgsf+Nvme3zegWU3pbRmfIjzKL+w3
S/0Gg7YK1yMLpgiaHPmGsM5vEGpkcnmXwhTBfoBPl15lECaOVZ2ROjFJmAm7
er/m+A7pm3cVLplMEG8Cub9G9QxB2BFlR7kTE0QNoeGeuTAEbveoSjjFJ4hM
h1nvDtZhuDSdJNM3Pk4Qjf+kvTSGYetr4z5Tu3GC9WnDLzE8DPrVIsJOD34R
vDOr94xv/ACu+z1M8SmjxNiHzNx5nRH4u7POMecxSnw5liZQeHsEhgKFd6nr
jxKz0p2lbh4jkBdrvWdj1ygxok8VdO7ZCBwvIakZx/8kBOxO/a4fH4E7E9J2
kk9GiN3v6MSQ50/wLmTMsGUZJmwg0rjj1ShoVGm/EG4bIrzsGI8tNY4Cd1N6
VVfoEHGVfaPkwLdRyP95uFuJfoigrfN7/ZVqDHr4zKi2Kb8TDR70Xoo6YyAV
XGMR8fcr8dLi4Pef22PQZ35Xqni0lyjef9Krx3Qc6r5rHanI6SWO9tR4yLmO
Q46O0um3d3oJbaXjg+mPx8FZfduode4Lsap1hkxUjAO7dNSTic0e4qB+y+Ml
lgnQWCr7K8z9mdC3ohy/iCfAhWotXDSknZhWs0vQVZqE0ytErixbO3FM8oSA
1cVJ4JwIfqcW94ko/yqZGG4xCS9b+FduZLQRBlJ/2oTjJ2H8yXHD6KoW4urc
pTiDv5OgJxIoRTXVSMSM2h0//W4K3DykIj7G1RFMK6DlaTEDl2bne4tz3hKj
fvsvs/jMgOStSuH4ylrCrTpb6k3yDHzROF16a6CaqGC436PXOQOKfMY9mwKV
REDD2UfNx/7AkL24kqF6MREa+1PMlX8WOouEhq9ftSQeMes4vZ6cA9L/j117
1BUK0jzkH8x0Y652Ape952g/cM7D94E7xRmXgsEpRPHOhNw8uBVfvDCzKwVe
hHzl6bWdh9PJkMThXQQhd01rLKfmoSBSGWXJvQVTfEX/9ewCUDek1dIdqgOZ
RBemKdIimPylPWpzhIBeT11lea5FCC2Z2sWXhuHTspvW2pFFOM5XxfEj+z0w
FWqGmfstQs6UNpVdWSPILQxS9vAvgXt45HhIeztQj1T6PdFfhuy99VmqWh3w
d53XX9V+Gbrfrd7609UBGZcFvTf8l4G8+dI+z7oTaMxNqipfLIODLHmGya4L
VLtcn8lTroBE4thYt/NnkC9vUD5cvAIRd3x7Tf36gP9s2KYw/xoEt1K8Hqvr
g8YBU2tKuTXwk/GLub3ZB+qOprHrZ9bAbcFPy8G5H8ZEfW9LOq2B6f1HLQ8t
B0Dc9p2qV+sayIcE1T07/w2ORlCLSPn9hZ688JxBzmHosvhuLkzagHZG1gDT
y//d4QrfG7xrA5rvRpiNPR6G+4/1Te/Lb4Bx4jl2V8of0JRqQS9vtgHXDNU/
PfD8AbrjRZK1TRtwbEzjXLjtCHDUcd3SjtsElmVN1aIro+B07YLn4VNbwP5V
wczNaRQ0NeO+nby5Bdx41+OTMaPwCTrJdg+3gD9s7Gt/zyjc6F1JFa3dgn17
vDxo9Mag+cRBK9KRbTh5vbDK2PgXkCJu3KhS2AHXcgZlDpsJoMn9ftc3g4Tu
J8+ZDD6eANsHSifjXpGQl8+XoNyiCfga2JxeXU9C/poZfWqzE1DdWXVCZZyE
osaU3awdf0OKYhgbmzQFKuS+XVHvNglj9TXbQjUU6Idz4yHXR9MQw9epZjRB
iQabafjzsqbBVvNIvs0GJeoXOLMz0DANe/Dt8+EsVKizof6jGs0MWA6UeTIe
okKY+50xTeAMhN1crZ31pUJp5TXBsUF/wKEuj8tBlBoZL5cMvgqdA4VgW4Zf
9jRIX33+3VjBHJRUeCv7BtAg7VTZXHLrHER5m8spptAgSbE+5bc083BQN6W7
v5EGCbVoU4menQdvaY6LMsK0iJX/WuLvxnmQEuxoZO2hRbNVF9+7NS8Ax0ua
We3L9EiCocnZs28B+nt3Z8lZ0iNDPbT34fgCJAwm9Io8oEctqwphgdSL4FuV
TnGykB5lK+7SiUOLQH6hWhBCz4AMX/ycfPVmEbTLWHRREwNqSXfjmM1bAl/F
iophbSZEMT9fv1C5BIlK5vHR9kxIGaxdVxqXIEebPs0ohAnlfDf89m9sCdh7
xAKPvWVCvvwns5lEl4Fd5Ye0iCQzUo5lPro/aRnKJtNkYv4xo5ygDFPzkBWI
u87J2VHLikxLbYuLklaAcYC/WnKQFfF/O7q9nL8CnI4lus82WVHEwe6UgJYV
aNTcXvmjwoZcv1D25TCtwj/WLl3OGjZ0Vtz84mT4Kshkn3dqNGVH43WSKnbR
a8Co+mROwJkDpf9eDK7IXINDoQXrvwM4kD4n0bf9ag3i2Vz3NyVwoHYLXZfI
z2twmUv1dHUNB6pgDi4p4f4LkkpnHB9Qc6JA/UnJpfi/oPUk6nhwEieSWC3k
ck9Zh53g83rK3Vxo14crYoUF6/Cvuy6D5xcXYoxdkxuqWgdpfdNh6r9caF7+
1KXT/evwIT/Wk0+IG9Xafg1m59mAYskj/II23Oj6L/rtvIgNCGhWU3lKz4P8
eix+D/huQplAeuv2FTJyec60xvxkE26W1qwfsyKj206lNCh9EzI2H5lEepHR
JfYtsZy6TVCxkBJ2zCUjPs1YI6fNTfjQxRAhtU1GJfXvuxld/kEer93NwGJe
NPRK+K3q7S0QON7kYy/Ghz4pO0mJuW2Bf2h04M+jfKi2riGBPnALjBvG79pc
4UMpLXecvjzfgkHpEWnChw/p/Szbaz+8BYKnL1U7/OBDXRzq0Zk621BLv3OB
NYsfNTg4WDGc2YEHW42mH48JoLLV9z1z13Zg8y+nt6iuAMr04jnZe2sHJvZf
lo12FEC+wdUCz312YGbEIv9tjgA6nk7dfax2B77uGPsDpyAatNIUesNHQjJP
b2hRzQoi7YQfwdNRJHQ0v31asUoYRZwrY6FIIqGYEtuiqwPCqHktIJr8HzdW
d6ctPlkXRip6B1JPlJJQQFyzxlFBESTE51qc0EVC8fdXx4aNRdDvZKbeU5wU
KEKupeHaLxHk8eyweGoMBcrMjq27vCOKyi4x5JWmUCAb9bqCYA4xNLP9Tbrp
OQWamNrH2CMuhoxNfA8vllEgHYNw20x1MXRKpE1DvYcCuYZc7hWOEUPMmTcd
lrkpUY3zm5kXB8TRs+ywt5rxlMi2elg4w2YPct6nmdn3lBLl/cmZnvLegzQK
mYJuZVMinhOuc2ej96DlklAt93JKtOcq15hS1R50oTZ49Hk3JbIiiVst0Emg
v92PGDZZqdDTwcyjs3kS6ArpgXZ+EBUyHz5T/GBdEkn6H1M5FEmF6K7v5ZVn
24v+0fwTIuKpkCnZfvvvnr0oj8nzd082FYLi14mNWnvRNvm+J6mBCo2ewUIG
+XtRgYxLhi6JGunrfXjvYbwPURvY/qG5T41sKQR+iA3sR7sv6Igo+lKj6ciS
JylL+5GCKlwzDaFG5deNTWRZpZDpbo6q6iRqxFMhW5d3Sgq9/Vb+yL6aGllN
sSX/KpZCrob/dg9sUiMurr6i9PADaNLo8fkibxpUl6xhNmksg0iXnB8MBP7H
xezppC0vGbTruFEJbSQNEqh0eCaXIoPOCsmSb6bRoAlL58ilPhmUOdQ9woNp
0HjWi7D5qweRoQn//YcUtOiZO5fK6CVZ1G6an3v1ES1aQPJqLcVyyE/8ocrK
4/+0FVtDHSGHlMavf0qIoUU41jLsfYccSrUhLQ1m0qJK6ondf+fkkI2r7nGr
d7RIxZCjW0BeHtGH0Xzx3KZFbqzReTcq5NHJypuU2e50yO8FNmP+pIBW7x+J
O+dDh/j0kpxohxVQ/jGWfVNBdOiYYH0px4ICYn//5qJsAh16ZtBHacijiIbb
2JKqXtOhrCou/M5YEXn9fCvbvkiHjHM+GPxYVkSneripxdbo0P+1qkPofwAs
TGbM
        "]]},
      Annotation[#, "Charting`Private`Tag$3861#1"]& ], 
     TagBox[
      {RGBColor[1, 0.5, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwt1I8v3Hccx/FzONzOhfve3cfuu6ofY1Nb1y6oOPZ9V25qolW/Wt1svYx2
rRBNZ5SGxeJni15Ef4ylbFWlGq1qZdby/QxrTvTopqVElJ2JOpsaekNP9+v9
Sp55/Acv90/TYw4JBQLBnn/616TruoWXLwn9X4bK11Xe6hcEZWhv2OXEzL8I
ylDviY6++WcEZeicxHhpdIqgDD2W4p/Q1kNQhuZ5jdHDxQRlaHWNZ6VBSlCG
1j4pSY92UKIyqnwQG+WjUKDOVL83VtPvJUedaLiPV4anB0N1MRGzYRopDWpJ
bBh8R0YzEjsiaw9K6Nqpw8y7Ps50WWHwTo4R0xVz/dlP3nCicwsf+Hbusae9
HpV+XWlSVETVtl+2+SZLUBtaBTt27MwVo0Ka9E3Cb3O19qiADl5xdbCqFtGL
USEyoZ+Fd5Xc2M6329BgF21SXtoqL3abGXx6VUjlcL92KH6FT40rvNDYKKCP
G8Xbo6MXeW3Pk37XSgtPi/jzIa+beI+Qjeif8ld5Tc6LS6esjXzTkbapO+0r
fP13hqKFsWE+Zak18XT1Il8XsLn/dmMHvzXP9oDI08SH283VzHzewzHZD185
V2Pkxxz3zw7pH3MjyalbrhuH+SpDX8qbFdNcVs6Wir6zXXzrjaCBsLfnOflA
1lGRcfyO4L89466eCYT6bZ3ceom1Rjy0yFUczR/WfjXCJX9Y539hcoVzXI5U
X4s2cqKchk3DjavcZMY9v8wCE3csKEml7rZwf3Ts7s7SL3Lmce8p9bQAGoq/
1SaXrnBDPXu33ewVgtfzZuZEzSonW3/kcNdgAxM3N3eqj1i49NEzE5tuiSD+
/GSJSSdA7eHi5bLOyHNCVAw2H6X9bpttg0pgQNt0JaZAhErhtqPqY3OqPYyJ
yltOBjiBd7X7rF2kGBiD07K1tzOsZRZYmmMlkKvu3njkIwPTGittDJRCpsXR
Lu41Buo+K37IejqhctDtvF/2qpczqgBpenNoj0KGKqFL831nu4pBCVjSDgbs
k8pRF7Cy++VrX4scdYGA8OPdEQIlqoK18Wuzij+VqAo0qXrd7udKVAXl68bA
wjUlqgI3FVu6LCQoC7v2l/oMMQRloernQyk6f4KysPWe67w4m6AsnIgPqgrN
JSgLP07HB+fkE5SFOOvysqelBGXhJKy/pa8mKAv6H0bSCu8SlAVZxJKikxKU
hcRRaddyL0FZWDC/L002EJQFpf+tltAJgrKg7R3cl/MrQVloijVttM4QlIXg
4x5R7gsEZaHI6j1zwhJBWXigO1CrMxOUBZXbF7v06wRlAf8MZeFvxvtBtw==

        "]]},
      Annotation[#, "Charting`Private`Tag$3861#2"]& ], 
     TagBox[
      {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVlWc41Y8fho+95znOSSUhklQiDaUPLaOlJYWUVfZKhGRkZGevMrJC9ibf
TxGFbFIZCUfZUgnh//u/uq/nuq/reXuLGdpcNGEkkUjiDCTS/2mUHza7vk7D
EQWvExfPGQNlZaPU4X80XOV9zfzgljHUn0rXu/eXhlZv/Psr7xqD1GDl+6k5
Glb2CNDME4xhgnvk+adhGk5l747P+GEMtuaKOsV1NJwMNBdNemwC7pKf0dSP
htyePC1cfaawx854McWbhhz13t0J06bwtWZm18BDGjLwmBxQYboNxy4zJVxy
pqGFx6VrDbtvA4u3rKOKGQ1rvpySbfK9DUFf3XdsPE1DEcVdR18r3YH4BInw
D7w0tLFwslwuMoNsubiUck4aBm26/07tgxlUveUtTGGlYVHTR76CcTP4PLvU
5rhGxTPp/1o7NpvDxhPtPFtmqMgsoyGs728OCVNuj60/UFH+0c7QHGMLSFTu
9eALomJthe6TBXkryO08HbbkR0WbjL6pHi0rqLn9OmnEm4qthfsHe62toP9J
bm25KxWXkqbW9+VYgQjd65+BBRVNEzKKTSSt4VnIHucCTSouRttOlIjaQNKQ
v80FDirSU+mzztG2cJOLvc2DhYqsle5eFzNsQfyA3+4CBioWKckoHS6zhYwQ
n2neZSG0qsu5qNRrC3nKXhYtE0Io/XcB56h2UJPgelutRQjvTvn5nE6wg89X
rQ2UQ4XwyLaZgxIF9pDoPV1rGSiE6slzAWuv7eFGvuWWRD8hlLefnJrosodv
rBYDyw+FUOEKv/jioj38KL2tW2ErhGfMrUWGVBzgL/nWVYWLQqjSKT670uMA
1PZL53cICSFH9yTLMI8jCLdu/2ghIISlLqSZODFH2NyyciOPRwjfn4s+b6Lo
CGLvnlsrsAqh1HxIvYK+I8jiQrDyIgX9DU/eKHzpCMcKIloufKKg39UrzUcv
3gObsC4Nl6cU9AqJ7xbLdgL7kMyOmjgKUp2lys+gE9wNcr22HkXBexcj9YN6
ncDFX8LsUch/fzZ/jmsyOYOvh4N/yEMK7vH+m/BG3xkSbcmNqbcoyPS4ZbCM
eh/eaV060SxJQdXbR/BInAvIxAqm14hRMCbSafJEiQsEDXWw5IlQUGlLQuid
NhfQstZqDBOiIFuUSREjqyv0BZ7V1GahIKdP8z2fu67wvUFNa3iUjMNpqesD
2m7ArnxEb/E5GbsbNdVf7HUH80crNd+TyFjD9WZQR8sdWpqrRD4nkLFAsilt
u407hF0/NFQTQcYrUQ5HJV66wwbn/YZe3mRkMQveHi3zEKSL5e7wGJEx8XxR
Qp2QB6jvkLwrIU7GWg5peRUJT9Bjm9l2fQsZQ3Q4OjwUPMF2rKwnbCMZZ+We
fmo/7gkxKeoH1gTJeKf/lmGSsSfQhS2X+5jIaNDJN7uY4QmPOIs9QsYE8fCJ
Mva03V7welIleClLEFnGT7dd0vSG7vccR+XSBVHATIszSc8bvmd2zpimCCJr
WNqzFWtv4Dc21uqOE8S3vzYK/Yjwhpv9fuT8AEGs29vIETPoDWstrXHGlv95
ce2ms06PQClPL6NtjyAOSjm8SirzgZc9/HKlOwVxh4mow3yLD2xdra+M3y6I
xdMTwtdHfID1zK4PJqKCOMZ+Js6W3xc6f6wurPAK4jc396USC18wl0xSlZ4R
QP7Rd4YFUn4Qnzjc75ErgBzuPGJb8/2Bpz7K1DRLAM+oTYU8fOcPHpMac6fT
BND+u53A0rA/mCoVMdESBTBg6R2hJPQY5Pu8ZF4GCuBiGrV8xe0xNJG3OX8y
F8DAqExa0IUAWA4wJcvvEMBb+wcwly8I8h7ZvJWRFMChSc6p1Z1BYOju7CQh
JoBbNrhmW6gHQZNdwBeKsABK1cZcfuoZBPE6ec8X2QVQOEYnSO93EByS+qPw
6js/CsjVGhh/Cwbn1z6X1bP48bfquqt1VyjIVoewqqbx4311NfmghVD4WhJT
cSiZH2NvPpUe4wgD9awXm3fG8iPfNi6pyzJhQAv9MMrjz4965sSdRYswKNMT
cuy6zY8zFErJrZ9h8HsxLerGdn7UHNEROcodDtf9y2MSJfhxfMuLYCWRcMAN
TXGfRfmxVSNu+dTucAg6NPtUewM/OrHFsIZphYO466GMcxz8SNLsCh2NCofk
fwlWD3r58EdeX3+aRARc5ZjJV77Bh4MWwwLzpyNBXIZcUqnNh8PfSVe5DCJh
RvNgheJ5PtTmKY0+YB8Jj4K8cJcKHzI+iNdoiI2EIj5ah4g4H0aZkXVr6ZHA
S1X5uTrGi/t6489L+0ZBvXj4vlorXiy7m7Vs0BUN53qDJ2JMeJFW1uOYOxEN
fY8fJ9vp8yLj2KZKfsYYmJrz4JY8y4vlU9uWtu6NATJhMxooy4seI4vcRmEx
YKh7NvLaJA9KyuIJ70uxQIpk//XrDg8KZbdpjE/FQYAac3brTR5kT/ep1WeL
/6+X6wZZOjzIGE7bPysWD9KGi8266jz4h7ov0ehqPJyXoz9/s50HX43C+ai6
eHjWUncpjM6NbQc4WRVTEuAwy8PincbcuOjUbLLX/ilI04M5wvS40T+UnAgh
T4HamGjw6zI3PtIzDb6T/RTm/Ku4Xp3kxuTvEmxcI08hg/uP0bnt3PjynrBU
1JVnIEixothNcOHY1rQv3ZAE38V1HctsuXCiLK5tMDIZepnMmzeaceEj/Y2H
ctKSoW7UWezhLS4si2Mt8C1JhmcZ0R/ULnLhLbXgdfPuZLgk0yn5SYELe0uP
V01QUqB2r0bvyh9OtC+95dAVmwKRKgcOqD7gxJKbPr7FuanA1DA70OzIiUaq
84XbalPB/nTWI21rToyr69qe0ZYKF7SFOy0MOPFj+fiezz9TgddyxTJalRPr
rT7eYFd6Dv4xROokCycedAjrCmh+Dm4zarzRIRy49uPwasxKGkw6kEq3+nFg
Lsthnr186XB9qUI35yEHaphIW/SLp8MhZpkXaMuBH3xUrphrpsMfYe4Tkxc5
MO0Lx1vj+HSwPdl+X4XGgcYhF/RHlDPAKFFnbCKJHQ0qmGV8IjIhrGRcuSuG
HXmUip3NczKhtuVedHUoO65nRq3frsuEjauRakEP2ZGVR2VD7kImtOt3vNhl
wI6cuzNkdK9kwVFRTWvbLez4zDSi01zkBQinHl78nciGURzsTiyvs+FUVdP5
wUg2nPxJPSPRnw13O69lNQSxobIL91O9xWxoZ3S+FuPGhq9j94mL784BX6OS
6oN6bBgxbdmykpgDv7bt8nDdxIa5P89FM3rkQlvmFg6GeFbMZSaX79TLg5vT
yHA3nBV/6vJvHnbOg5/yRsv0AFYcOZOTURiVB5TazMkWV1aUjfGISGvLA51u
udZYfVb0N7dI7j6RD99IxyPkxFhxYU4ElDYWwJ9rt0VuZrEgd/oytYJSCH5J
HNSuZBa81bF1YXBbIWwYy+E9FceCLW4HhIQUC+Gw7dz6zgAW/PiP3ST/SiF4
+N7/tmjBglXza01PYwqBszgwM3QPC9acbEmw3lIEW7gL9hJlzFgcXhKtebAY
rEel+0PzmHGzlnDu2uliqK1J8b2ZwYw5Ea6/GgyKQd8q4gtDNDP2Hxe3i/Qr
hsTWez4nHJnx129mI8m+YhB+ovzpvQIzPjfWrdj7oAQo1GaP7gIm1OwU3xX8
sRSMZ47vTM9iwmC72Dvz06VQ0lDT45jMhFt/eMZaMpfBJac8GVoYEyaU/lDI
2lsG4X1Puq/ZMCGT08T8/uAy4EvQkR7axYSXw7akNqqXA+dWetuPbEY03QXl
Rp0V0J/I3vw1lRFZ8nYn35isgJfCOxs+xjOirFtrrj1zJWiRbWveBjDimoFF
NH1/JUSzLmelmDPir7PvHElPK0F8msfrmgwjella85Gtq+BwleK+9y8YcGly
zc56Ww1wH9DZgykMKFB4vgNVamCw2EWmPI4By9MOF+7RrwGvl8TW9McM2Piw
1sQougbeJWvweJoxoOz7imZJzldw2U+ffnAHA9IGBI7KLb4Cy8s+sVlZJOwo
bXTd852AlLUqBZkUEooFChryMyH0Zs215sSR8KjItCBNEEFlVZclP4CE9L02
befkECgZ8valliSUihjabmaF8Gpx6PQbORKuadiIXZlA2Lzfca3cbp0wMheS
t5h9Db4BX/dVG64TIpJu00B6A3ODpy1qL60TAbzad7cJvIF6P/G+esV14tDV
alERhTdg9amtsGNpjSiZx9BWpzdQ6yZjMum5RrScqaYCcx3crBtq3hK+SvhZ
KDTW7agHNeW/JgOeq8S5j0E3NY/Ww+5yflKi3SohlkAaGrtYD/+yVfcJX1gl
5rgMv+q61UNs+PNEMv8q0SCxfPZUez2037ptxR7yj9AZlBnd7vYWVEmzvD8f
rxBm5R82Vo82gLQL24uC+ytE5EyyMse/BuD/JXrcxmyFSF0bEbYhN8LguJbT
lPoK8W3C0sDrWCO4tBUN0dlWiEbGj+/epzRC0bN7BV98lom3J9wq543fgbjy
2oW3nkvE+sTQPZ2199AuoCwbZ79EuGru1eakNYE73ZXVyug/f8Mnp2tPE3wO
XaqinFwiEoPsBV7eaoKIb78kjNmXCDvnQnjQ0ATM/pO/GUP/EiJb+6iZkc1A
7+yLU0lcJGSySTX1xz9AZCbtLiV4kZh2t5ULN/gAx9y0z31/sEi8lKngdXH9
AM8kuxnDDBaJTQOnrOKKP8BV5zaLIfH/tv/oPWHJVngn0qDs/uIPkcCQu0eR
pw1e3Ckeri77TdTwXvulcb8dug2TRE9n/CaKgp25VQLagaQfqP856jeRP7An
QS2hHbQvGH36e/c3MctmbBz4qh0Ylcgdigq/CXcmeso4Ywdc53LA/PxfhEah
wjjjkw7gzJNPep61QPwo8X+oUd0JillbBuRjF4gGskhReGsn3Ezl3PTGb4Ho
P0jC2eFOKIv+Fv3VdIGY+RRCjLF3geHD8BARyQXCaYNdaN3VLqjS+vkgJuUn
wX0s/a3OUheYLxTqBcbPE32DnJkeZ3ogbv/84dsB80TmkRRhdsMeeHdfbtNx
l3liUhXOpzv1gCQp/9PytXnCwiddV+x5D3zlztU2F54nhD56m4qv9MAVqQwt
jdg54kfwvyXd/F7wLNr3mFd2ligvGPI+v6MPBg8WqzVwzRKa140Kq1X74Aix
l9V9coZojsoJUbneB3+ad3tPZ88Q7toONZGBfWA5Jv2gZccMkbX1Q7rZbB/o
bBCxC9g+TaQ0HeTqr/4Eu91ZrrFKTBKO/w7fSrjzBTZWtcd8Z54khGzuUB28
vgDLn4TeJvoE4VJyeodR4hfot5K/HJo9QbBk7K0Pav8CAfoG5zfITxD8O4Wv
siv1w/iRypMyqj8II9F77qUCA5C8Yil/zmCcqPClfA7rHoSgAwft5FTHiWpC
wzl1fhCcHJgKBCXGiVTbGfc23iE4Nxm36yOdThAN/2TdNIZg9XOD9E1rOsH7
tH5MHIfgetVWUfsHYwRt6o/DjWtfgXy/mys6YYQYfZuaOac9DH/XlwRmXUaI
niNJm3PuDMOgr+gG9esjxIxse6GTyzBkRZpvW94wQgxfZ/JTezYMRwtIyjei
vxGbrY9/r6MPg9m4rLXUk2Fi02s2cRXXb+Cew5lixTNEWEDojbaiEdCovPJS
tGWQcLPmPLLQMAKUxuTKjoBB4iL/csHOLyPw4tv+TkX2QYK11qv0M9ModAsb
Ma0xDhD1LuxuCtqjIONfbRLy9zORZ7J74NvaKHw0tpTJH+kl8nccc+u+SYfa
Aa0DZRm9xKHuahe5e3TI0FY88cqsl7iieLQ/OZAOd9XX9Jtne4g/WiepRBkd
+GXDnoyvdBO7rzcFLvCMg8ZC8V9RShdx/TYj/SyOgyPTYrDY41ZiUtk65qri
D3BykQl5H1VLcP0GLVeTKTg3M9ebn/GKGPHacZ7HYwqkDMtFo8trCKeqdJmK
+Cno0ThRaPipiijjuN+t0z4FCsI3ulc2lxM+9acevTsyDYM2Eop66vlEQOQ3
8XsbZ6DXr2G5XceGOF7h/6js6yz8D5hq+io=
        "]], LineBox[CompressedData["
1:eJwtxVtIk2EYAOA51zTRv7nTZ/+X5QoHUkgXKeKk/20YhkzKY3ai0SZZKAsp
88AujJkNtvovpINB2UWmbBiJRYWTmkN20coyJ4aMlRLGqlVOhxvTCt6Lh0d1
xlTVIBQIBPn//N/fMxmbqjdxpQZzo3PLL+76uS6//sosZzzeX3A7uMJlRHQa
Z+UCJ+4YyPYPrnHBi5P7Wi0h7kKxgdW4E9zPFxXuy97fXHRe/VmzKICBngd6
o3WFm544snfEI4TcVYes7e4aJ43PbB7ziSAwssOlaUxwprkbgexRMdTeCl4L
8QI8Fe49tLl0N4V4GohONP/Y1C7C0+GtfuhRlUWMM/A0gz0VbUqFT2L7cGeh
BNR9qqUUXRrIfJJIsjoTYq2WhKM6Hcwa9/pMnhRCMcoMFjHQmshIqdkmg/6z
PR/pLgkuB/7AG9vW3ExcAYzJoZ1QSHEljJc+dz1jZTiBRPPpwjpGjmdBUsqH
O7sTcjwLCg+1uMsFSpyF2LxzSfFHibNQ2uTlK1aVOAv2+EJRd0yJs5DDUmtE
SHAKZUetedMyglPofd9wni8gOIX8ye3f09oJTqGttrhXayY4hdeLtSUdXQSn
UJNst32zEpxCJ8T3ePsITsH7cra5e4zgFKTlywrXK4JTODnHjEc8BKcQjh5k
jD6CU1AWjA5rAwSnoPe8q+v4QnAKQ9Wh9SdfCU6hpGXnYVWY4BSuJu2P1i8T
nMIUf+w+HyU4BTbnUpk3TnAKhsd8eGOD4BT+ApJRRFA=
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$3861#3"]& ], {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-6, 6}, {-5, 20}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.947901623759709*^9, 3.947901727132543*^9, 
  3.9479023352617435`*^9, 3.9479025438885684`*^9, 3.948350314569068*^9, 
  3.9483503995476213`*^9, 3.9484099708694353`*^9, 3.948410240028294*^9, 
  3.948410320916291*^9, 3.9484105339939423`*^9, 3.9484110300587764`*^9, 
  3.948413842502816*^9, 3.949901547702549*^9, 3.950258474379697*^9, 
  3.9502586378729424`*^9, 3.950260603155336*^9, 3.9502608279220643`*^9, 
  3.9507589554441805`*^9, 3.9507592115092893`*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"bf4a7510-625a-4f06-a60b-e797158d20e8"],

Cell[BoxData["\<\"Left Continuous\"\>"], "Output",
 CellChangeTimes->{3.947901623759709*^9, 3.947901727132543*^9, 
  3.9479023352617435`*^9, 3.9479025438885684`*^9, 3.948350314569068*^9, 
  3.9483503995476213`*^9, 3.9484099708694353`*^9, 3.948410240028294*^9, 
  3.948410320916291*^9, 3.9484105339939423`*^9, 3.9484110300587764`*^9, 
  3.948413842502816*^9, 3.949901547702549*^9, 3.950258474379697*^9, 
  3.9502586378729424`*^9, 3.950260603155336*^9, 3.9502608279220643`*^9, 
  3.9507589554441805`*^9, 3.950759211618039*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"265fd61d-5667-4f0d-932e-cf1d42f58a26"],

Cell[BoxData["\<\"Right Continuous\"\>"], "Output",
 CellChangeTimes->{3.947901623759709*^9, 3.947901727132543*^9, 
  3.9479023352617435`*^9, 3.9479025438885684`*^9, 3.948350314569068*^9, 
  3.9483503995476213`*^9, 3.9484099708694353`*^9, 3.948410240028294*^9, 
  3.948410320916291*^9, 3.9484105339939423`*^9, 3.9484110300587764`*^9, 
  3.948413842502816*^9, 3.949901547702549*^9, 3.950258474379697*^9, 
  3.9502586378729424`*^9, 3.950260603155336*^9, 3.9502608279220643`*^9, 
  3.9507589554441805`*^9, 3.950759211756116*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"46bead67-f5b9-4813-a249-22498e62b91a"],

Cell[BoxData["\<\"left limit = right limit\"\>"], "Output",
 CellChangeTimes->{3.947901623759709*^9, 3.947901727132543*^9, 
  3.9479023352617435`*^9, 3.9479025438885684`*^9, 3.948350314569068*^9, 
  3.9483503995476213`*^9, 3.9484099708694353`*^9, 3.948410240028294*^9, 
  3.948410320916291*^9, 3.9484105339939423`*^9, 3.9484110300587764`*^9, 
  3.948413842502816*^9, 3.949901547702549*^9, 3.950258474379697*^9, 
  3.9502586378729424`*^9, 3.950260603155336*^9, 3.9502608279220643`*^9, 
  3.9507589554441805`*^9, 3.950759211928551*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"0c1e3f28-2ab5-4a91-9a28-8264a9d3f3a9"],

Cell[BoxData["\<\"Continuous\"\>"], "Output",
 CellChangeTimes->{3.947901623759709*^9, 3.947901727132543*^9, 
  3.9479023352617435`*^9, 3.9479025438885684`*^9, 3.948350314569068*^9, 
  3.9483503995476213`*^9, 3.9484099708694353`*^9, 3.948410240028294*^9, 
  3.948410320916291*^9, 3.9484105339939423`*^9, 3.9484110300587764`*^9, 
  3.948413842502816*^9, 3.949901547702549*^9, 3.950258474379697*^9, 
  3.9502586378729424`*^9, 3.950260603155336*^9, 3.9502608279220643`*^9, 
  3.9507589554441805`*^9, 3.9507592120795712`*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"b626474c-6254-45f9-a136-affd362bfe1d"],

Cell[BoxData["\<\"Differentiable\"\>"], "Output",
 CellChangeTimes->{3.947901623759709*^9, 3.947901727132543*^9, 
  3.9479023352617435`*^9, 3.9479025438885684`*^9, 3.948350314569068*^9, 
  3.9483503995476213`*^9, 3.9484099708694353`*^9, 3.948410240028294*^9, 
  3.948410320916291*^9, 3.9484105339939423`*^9, 3.9484110300587764`*^9, 
  3.948413842502816*^9, 3.949901547702549*^9, 3.950258474379697*^9, 
  3.9502586378729424`*^9, 3.950260603155336*^9, 3.9502608279220643`*^9, 
  3.9507589554441805`*^9, 3.9507592122947793`*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"be8b6029-1256-4163-a9d9-d6ab7e7cecd6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "x_", "]"}], ":=", 
    RowBox[{"Piecewise", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Exp", "[", "x", "]"}], ",", 
         RowBox[{"x", "<", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"(", "x", ")"}], ",", 
         RowBox[{"x", "\[GreaterEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], 
   ";"}], "            ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"discontinuous", " ", "at", " ", "x"}], "=", "0"}], " ", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"Exp", "[", "x", "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Green", ",", "Thick"}], "]"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "20"}], "}"}]}], "}"}]}]}], "]"}], 
  "   "}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", " ", 
  RowBox[{"x", ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Orange", ",", "Thick"}], "]"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "20"}], "}"}]}], "}"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Red", ",", "Thick"}], "]"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "20"}], "}"}]}], "}"}]}]}], "]"}], 
  "                                                                     "}], \
"\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Exp", "[", "x", "]"}], ",", " ", "x", ",", " ", 
      RowBox[{"f", "[", "x", "]"}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Directive", "[", 
        RowBox[{"Green", ",", "Thick"}], "]"}], ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Orange", ",", "Thick"}], "]"}], ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Red", ",", "Thick"}], "]"}]}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "20"}], "}"}]}], "}"}]}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"point", "=", "0"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"leftLim", "[", 
    RowBox[{"k_", ",", " ", "x_", ",", " ", "p_"}], "]"}], ":=", 
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{"k", "[", "x", "]"}], ",", " ", 
     RowBox[{"x", "\[Rule]", "p"}], ",", 
     RowBox[{"Direction", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"rightLim", "[", 
     RowBox[{"k_", ",", " ", "x_", ",", " ", "p_"}], "]"}], ":=", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{"k", "[", "x", "]"}], ",", " ", 
      RowBox[{"x", "\[Rule]", "p"}], ",", 
      RowBox[{"Direction", "\[Rule]", "1"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"leftDeriv", "[", 
    RowBox[{"k_", ",", "x_", ",", "p_"}], "]"}], ":=", 
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"k", "[", "x", "]"}], "-", 
        RowBox[{"k", "[", "p", "]"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"x", "-", "p"}], ")"}]}], ",", " ", 
     RowBox[{"x", "\[Rule]", "p"}], ",", 
     RowBox[{"Direction", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"rightDeriv", "[", 
     RowBox[{"k_", ",", "x_", ",", "p_"}], "]"}], ":=", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"k", "[", "x", "]"}], "-", 
         RowBox[{"k", "[", "p", "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"x", "-", "p"}], ")"}]}], ",", " ", 
      RowBox[{"x", "\[Rule]", "p"}], ",", 
      RowBox[{"Direction", "\[Rule]", "1"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Left Continuous\>\"", 
   ",", " ", "\"\<Left Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"rightLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Right Continuous\>\"", 
   ",", " ", "\"\<Right Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], "===", 
    RowBox[{"rightLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}]}], ",", " ", 
   "\"\<left limit = right limit\>\"", ",", " ", 
   "\"\<left limit \[NotEqual] right limit\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], "===", 
    RowBox[{"rightLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Continuous\>\"", ",", 
   " ", "\"\<Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftDeriv", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], "===", 
    RowBox[{"rightDeriv", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}]}], ",", " ", 
   "\"\<Differentiable\>\"", ",", " ", "\"\<Not Differentiable\>\""}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.9479017779883966`*^9, 3.9479017781521854`*^9}, {
  3.9479025112048445`*^9, 3.9479025200532246`*^9}, {3.948350331981251*^9, 
  3.9483503699611845`*^9}, {3.9484099839417*^9, 3.948409997278299*^9}, {
  3.948410251286312*^9, 3.948410252428053*^9}, {3.948410482085973*^9, 
  3.948410487022154*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"96018844-2241-412d-b73d-8034888ec8d9"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0, 1, 0], Thickness[Large], Opacity[1.], 
      LineBox[CompressedData["
1:eJwdVXc41+/f/dh7r8gWlchKifS625SkYWTLKjKzQjIys7JXGdkUIjLyvosQ
spJRIhEZ2SOE3/d5zj/nOte5rvPfOUfklsM1S3ISifSWjET6PzYviZ7f3eXB
Ywr+Z69pWgDnFp+Eyj8evM38jvKBmQU0ns8xdPvLg+3ehwxVu1iAxHD1x9kF
Hlz9hY3HJtUCphnHng+O8uDZwsMpuVMW4GijqFfewINnHtsIpYdago/4V2wV
zIMZ/ZjaGQasQMbJYj0zgAfTNQb0pv6xgh91c9LfH/JgMibLY4jCGk7foEi9
7sGDbX2v32w6bA1UAVKu6A4Prvt2Xqo1yBrCf/gc5LvEgwUUpU++U74NKali
MZ+YebCDrfvdzVd3oFA2ObOKngeH773fcuHTHaj5wFyWSc2DX7X2s5RO3oGv
8xudrjvcWCPnX0c3vw3wne1iEpzjxpSS6rxGITaQOusdav+JG8s/OhRVZGEL
aap9vizh3Lj+jcGTZXk7KO65FL0RzI0dcgdmv2jZQZ31u/SxAG7cUXZ0uM/e
DoaeFNdXeXHjjfTZ3SNFdiAw4f/PxJYbW6XmlluK28OzSBmP0ovceD3BcbpC
yAHSR0IcrtJx44msiXmPBEcwZaDt9KXixtTVPv7Xch1B9Fjw4VIybvxKWVJZ
pdIRciMD/zBvcmG7hqJryn2O8FLV37Z9mgsf+LuMF7idoC7Vy/pCOxd2mQ0O
vJTqBF917U1Uo7jwiX1zSmKlzpAW8Kf+7mMurJaxELbzzhmMS+4KpgVzYXnn
mdnpz87wk9r2++ZDLqygzSq6vu4MU6+tDd44cmENG3uBEXQP/nKY6Spc48Ko
R3R+68s94O66fuUgFxem652hGmVyBd6O/f22bFz4tSdpLlnEFfjbt4xfMnHh
j5oJVywVXUGk5bm9AjUXlliMbFQwcgUpvByhus6JQ26dMy574QqnS2Pbrw5y
4mBd7baT19zAIfqzuudTTuwfmdIrUugOzpF53XXJnJjbQ6JKA7uDS7jXzd14
Tux2Lc4ovM8dPEPE7jyK/C/PYe3MRQoPCPK9FxL5kBPLBPxNfW/kAWmOHM1Z
ZpyYIrR9uJL7PrRoXT/bJs6JT1mfwCeSPUEyiT2nToQTJ8a5z5yt8ITwkW6q
lwKcWFkwNep2pydo2Ws1R3NxYpp4y1fk1F4w8PjyRR0qTkwf2OYW6OIFv5su
aI2Oc+DR7Kzd7zreQKt6wnD9OQfubb6oViDnAzaPtup+p3PgOob3w3paPtDe
ViPwNZUDl4q3Zu938IFo/eMjdbEcWDv+3kmxFz6wx+PoLf8ADkx1J2J/guRD
OFAue5vJnAOnXXmV2sDlC2oHxV3ERDlwPd0BeSTmB4Y0c/v0BTlwpB5dt6+C
Hzj+qvwSzceB52WfDnad8YPETLVjO+wc+PaQ2a10Cz+Y4L27OUDBgU16WObX
c/3gEX25b+QvdqxytpI2+7A/vJtBERv57Jhq8lLn9YsB0PuR7qRsDjtmu6NF
n24YAL/zeuasMtkxdXT2sy37AGC1sNDqTWbHH1b4uKZiA8B0KJijJIwdN8g1
0yUOB8BOe0eyxd3/fFGd1svuj0D5pWFupww7Hpa49za9MhBefGGVfX2IHR+0
FLq32B4IwtuN1Sn72XH5n2le/bFAoNaQ/mQpxI5/0WokO7IGQc/U9vIWMzv+
6e2zUWEbBDbi6acOzLFh1vGWW6USwZCSNjrkW8yG6XyYRIRLQoCpMd7KKp8N
a1yYjXzYEgK+M+oLl7LZsPNvJ7aN0RCwUn5FwZPGhsM2WghlrlCQH/CXfPGY
Da9nc1dteYdCK8c+j0EbNvw4Po8n/GoYbIZZccgfZMNmR7/jYpZwePnI4YOk
OBsemaGf3T4UDrd8PNzFRNiw4B6vQlu1cGh1CvvGycuGJeoTbzz1C4cUvZfP
12nZMG+iXrjhajgcl1hTePubFbPJ1ptY/IwAj3eBN9TyWfHqqV0v+89RIFUb
SX0qmxXfV7sgH74cBT8qEt8cz2DFSaZPD/yiiwa1/AL+Q0msmGUfg8QNyWjg
ifo0zhTCig1tiNvrttFQacjl+tmaFc9xclaYLUXD6np2vPF+VnxxTE/gJGMM
6IdUJaaJseJJwYIIZYEYwHtak78KseIO9eTN84djIPz4/FOdPazYnSaROlor
BkS9judq0rFi0sXPUePxMZDxL9XuQR8Lnno5MJQtFgu6dHMlqsYseNh2lG3x
UhyISnJUVOuw4NHfJF0GkziYu6j0RvEKC9Zhep1wzDkOHoX7Y2nEgskfpKg3
JcXBKxaebgFRFhx/h8OgfiIOmLnR0vYvZnykL+XKgaB4aBSNOVJvx4wrXfI3
TT4ngGZfxHSiJTPmqfziWjydAAOhoRlORsyY/NfealbyRJhd8GUUv8yMq2b3
bQjLJQIH4TD+WIoZ+46tM5pHJ8Itg8txN2eYsLgUPhtwPQlIcbQrK7eZMFdh
p/rkbDKEXaAs7DBlwrQ5gfVGNCn//eWuSb4eEyaP4Tk6L5ICB26ttxmoMeE1
7iNp5ropcEV24vn7/Uz47ThciW9IgWftDdejJxhx5zF6asXMVFChelh+yIIR
r7u3Wco5P4UDExF00YaMOCSKIw0inwJ3c5rJyg1G/MjQKuJ24VNYCKlheHuO
EWf8FqNhGHsKuYxr5pr7GfELN16JeO1nwM5px+k0zYB/CWd/64V0+C1q4Frp
yICnK5M7h+MyoI/Cpo3vDgN+ZMR3vCg7AxrGPUQemjHgymTq0qCKDHiWm/Dp
wjUGbHYhYtemNwOuS/aIDyow4L7XZ2qmOTOhXk69b2uNHju/Nrv3OSkT4tCx
Y6ce0OMK08Cg8uIsoGia/97mSo/NTy2W7avPAudL+Y907OlxcsPn/bmdWXBV
h7fH1oQe91dNynxdygLmu1t3E07R40a7fmNa5ecQkkhkzVDRY6V70Z/D2p6D
99wF5oRIOrwzpbKduJUNM/dIr4WD6XAxlQqTHEsO6G+8MSh6SIfVLQ/YDonm
wHFKyQLsSIc/BSJtm4s5sMbLeHbmGh3O/kb3wSIlBxzPdd1HPHTYIvKq0Zhq
Lpin6f2aTqfFJm8oJQNj8yC6YlL1cyItZlIu97ApyoP6dreE2ihavJsXv2vd
kAd823EXwh/SYmomtKd4OQ+6jLoLpE1oMf3hXEkD7Xw4KXTR3lGQFj+ziu2x
ESgA3iyV9dU0GhxPR+tO9a4Qzte0XhmOo8EzS9waYkOF4NJzM78pnAarejI+
NVwvhC5yj5uJ3jT4XdIRUdHDRRBkXlGrZEiDY//cbd9KK4KVfdK+XntpcPGS
ZgK5bzF05gnSkaVQ42JKjqpDhi/B9A8mc4mhxksGrPyjHi9hSd58cyKMGo9p
FOWWxb8Ezvq8mXYvaiyV6Bub3fkS9HplO5KMqHGIjW1G79kS+Ek6EysrQo2X
FwRAma8U1m5aC5jmU2HGnE3uN5xlEJxOx/05gwqbdQsvD+8rgz2/ipjPJ1Ph
du9jXFyKZaDiuLB7KIwK9/+jtSzRLgPfoPs/122pcM3iTuvTxDKgL3+cFyVD
hevOtafaC74CQcZSOaKSEpfHVCRcVCoH+/EDQ1EvKTG/Fm/xzqVyqK/LDDLN
pcRFsV4rTSblYGQX+40sgRIPnRF1igsuh7QOt8CzrpR4ZZXSXHygHHifqA5+
VKDEzy0M3sg9qABO7jbf3lIKfLFHVDqi/zVYzJ05lJNPgSOckm4v/nkNFU11
X1wzKLDwlF/SXcpKuO7+UpInmgKnvp5SyJerhJiBJ703HSgwhfv04tGISmBJ
1TswIk2Bb0QLZjWrVQG98ETnVCE5tpKGKvOeNzCURtv2I4scU708nGE88wZe
8B5q6k8hx1LeHcXOlNWgxeFY9yGMHO+Y2CZMHK2GBOrN/EwbcrxyucWV9LQa
RP8w+d+UJMf+d+1ZOOxrQKVG8cjHAjK8MbPjZL+vDhiP6cngTDLMVnalG6M6
GC73lKxKJsNV2SplMkZ14P+CEM4JJcPND+stzRPqoCVDncnvDhmW+vimTZz+
LdwINppQOkiGeb6znZRdfwt3bwQm5eeTcPfrZi+Z3wRk7tQoSGaSsMhj9lus
FBj68hc6ipJJ+KTAH3Yedgxo24CqJIyEJ+QcOjVlMXDmyju/vkvCErEj++/Y
YXi7PnLpvSwJ76g7iGhPY+A/6rpT5bRLmNtwydvOv4OgsB9Ham/tEgLi3n+A
9B4Whi/Z1l/fJcKYdVz2sb2HxmDRgUbFXeK4bq2QgMJ7sBvsLOve2CEqFnFU
h/t7qPeWtJzx2yHaNWq5gbIBTBtG2gRjtolgW4XmhoONcEH1r+V3v21Csz/c
9OLJRjhcxUpKc9omRFJJI7+uNcK/wlNHeK9uEwsMt34YeDdCUszzNA7WbaJJ
bPPy+a5G6DKztqON/EfoDUuO7/f+AKdI88xLoVvEnapPfLXjTXDAk6ag9P4W
ETeXoUr3rwlYV4TOONzZIrJ2xngdOJpheFLLfVZti/g5fdfE/3QzeHa+Gpmg
2SKayftbPmY2w6tnbqXfAjeJD2e9qxctWkBUdefqB78NYnd6xE1v5yN0salK
JTtvEF4X5XToeVrBZ8KL2s78P984sOizTCt8jdqo4Ty3QaSFO7O9MGuF2J8r
Yha0G4STRxk8aGoFypCZVfKov4SA8AB3XlwbTPQMJKO0dUKykFTXeOYTxOXx
uHBGrBN/fBxlY0w+wWlvHc3fD9aJF5JvmD29PsEz8V7yaJN1Yu/383bJ5Z9A
16PTdkT0Px0y7sYr3gEtAk2qPgVrRCpZsYwiUycU3C4fra1cJeqYb66o3++C
3lvpQpdyV4lXER6MKKwLSEaPjb7GrxIl32VSL6R2gc5V88G/LqvEPI2FxeO3
XUCuzNGtqLBK+FBMZE6Sd4M+wz1cUrJCqJcpTJI/6Qb6l/Lpz/OXiamKkIfq
tT2gmC/4XT5pmWjiEHgV09EDpln0e98HLxNDSiQ8P9oDlQk/E35YLRNzg5HE
L9rPcOthTKSA+DLhvscpqkH3M9RoLT1IzFwiGE/nfNDb+Aw2y2WGj1MWiYFh
+jxfjS+QfHRRxTpskcg7kclLe+sLtNyX3XvGc5GYOQVXcty/gDipZHDz5iJh
G5hjIPL8C/xgLNax4V0kuPoDrES3voC2RK6WetICMRXxb8OgpA/8Xh0JZZaa
J6pKRwKuHByAYaXyC00M88RFffOy2lMDcIKQo/aZmSPa4osikf4ArLUdDvhT
OEf46Nyri3s8AHd/HXjQfnCOyBf+lHNnfgD09gg4he3/Q2S2KjEM1Q7CYR+q
m9RiM4TrPxWz1NvfgK+mK/E35QzB5XCb+57/N6BaS+1rnZgmPCsuHTRP+wZD
dvI3ogqnCapcucbwrm8QZmRyZY/8NMF6iFeXVnkIJk9Un5M8NUWYC7n5vGb7
Dhlbd+U1TSaJN0GcX6N7hyH8mJKT7KlJopZQ98haHAb3exSl7GKTRJbjnE8n
8whoziRL909MEETTPylv9RHY/tp0wNR+gmB+2vhLFI+Afo2wkPODXwTP7No9
45s/gON+L0NC6hgx/iErb0FnFP7ubrDNe44RX06k8xfdHoXhIKE9avpjxJxU
V5m75yjkx9ns29wzRozqUwRfeDYKJ0tJqsYJPwl++zO/GyZG4c6klL3Ek1Fi
7zsaUeT1E3yK6DPtmEYIW4gy7nw1BurV2i+E2ocJb3v6E8tNY8DZnFHdHTZM
XGPdLD30bQwKfh7tUaQdJqjr/V9/pRiHXl5zih3y70SjJ623gs44SIbUWkb+
/Uq8tDz8/efOOPRb3JUsGesjSg6e9u41nYD671rHKnP7iOO9tZ6ybhOQq6N4
9u2dPkJb8eRQxuMJcFHbMWqb/0KsaZ3jJiongFUq+snkVi9xWL/18TLTJKgv
l/8V4vxM6FuTT1zGk+BKsR4hEtpBzKjaJ+oqTsHZVSJPhqWDOCFxit/68hSw
T4a8U43/RFR8lUiKsJyCl618qzcz2wkDyT/tQglTMPHkpGFMdStxbV4z3uDv
FOgJB0lSTDcRsWP2J8++mwZ3T8nIj/H1BMMqaHlZzoLm3EJfSe5bYsz/4BUm
31mQuFUllFBVR7jX5Ei+SZmFL+pny24N1hCVdPd79bpmQYHXuHeLv4oIbDz/
qOXEHxh2EFM0VCshwuJ+irrxzUFXseDIjWtWxCNGHefXU/NAaXZJOOSMJgw2
hY61UCxAweEsd8YaZ3Ddf4H6A/sCfB+8U5KpGQLOoQp3JmUXwL3k8qXZPanw
IvQrV5/dApxNgWQ2n2IIvWtaazW9AIVRSihb9i2Y4qv6r+cWgbIxvY7mSD1I
J7kyTJOWwOQv9XHbYwT0eekqyXEsQVjp9B7edAyfVty11o8twUnearYfOe+B
oUgj3MJ/CXKntSnsy5tAdnGIvJdvGTwioiZCOzqAcrTK/4n+CuTsb8hW0eqE
vxs8ASoOK9Dzbu3Wn+5OyLwi4LMZsALcWy8d8m26gMrCpLrqxQo4ynDPMth3
g0q32zM58lUQTxof73H5DHIVjUpHS1Yh8o5fn6l/P/CdD98S4luHkDay1+P1
/dA0aGpDLrsO/tL+sbe3+kHNyTRu49w6uC/6azm6DMC4iN9tCed1ML3/qPWh
1SCI2b1T8W5bB7nQ4PpnF7/B8UhKYUn/v9CbH5E7xD4C3ZbfLYRIm9BBzxxo
euW/Hq7yvsF7NqHlbqT5+OMRuP9Y3/S+3CYYJ11gdSP/Ac1plrRy5ptw3VDt
0wOvH6A7USxR17wJJ8bVL0TYjQJbPcct7fgtYFrRUCm+OgbO1y95HT2zDaxf
5c3dncdAQyP+22mzbeDEex6fjh2DT9DFbf9wG/jCx78O9I7Bzb7VNJG6bTiw
z9uTSm8cWk4dtiYd24HTN4qqjY1/ASny5s1q+V1wq6BTYrOdBKq873f9Mkno
fsq8ydDjSbB7oHg6/hUJeft+Cc4rnoSvQS0ZNQ0kFKCR2a86Nwk1XdWnlCdI
KHpcyd3G6TekKoSzsEiRoSLO25UN7lMw3lC7I1hLhn64NB1xezQDsbxdqkaT
5GiohYovP3sG7DSOFdhukqMB/nO7g40zsA/fvhjBRIG6Ghs+qlLNgtVguRf9
EQqEOd8ZUwXNQrjZWt2cHwVKr6gNiQv+A471+RyOIpTIeKV06FXYPMiH2NH9
cqBC+moL78YL56G00kfJL5AKaafJ5HG3zUO0j4WsQioVkhDtV3pLtQCHdVN7
BpqokGCrNoXI+QXwkWK7LC1EjZj5rif9bloASYHOJuZeajRXffm9e8sisL2k
mtO+QovE6ZpdvPoXYaBvb7asFS0y1EP7H04sQuJQYp/wA1rUuiYfHkS5BH7V
GWSni2hRjsIenXi0BNwvVApDaemQ4YufU6/eLIF2OZMuaqZDrRnubHP5y+Cn
UFk5os2AyBYWGharliFJ0SIhxoEBKYGN22rTMuRq06YbhTKg3O+G3/6NLwNr
r2jQibcMyI/vdA6DyAqwKv+QEpZgREpxjMcPJq9A+VS6dOw/RpQbnGlqEboK
8TfY2TvrmJFpmV1JcfIq0A/y1UgMMSO+b8d3VgpWgd2pVPfZFjOKPNyTGti6
Ck0aO6t/lFmQ2xfy/lyGNfjH3K3LXsuCzotZXJ6KWAPpnIvOTaasaKJeQtk+
Zh3oVZ7M87uwoYzfSyGVWetwJKxw43cgG9JnJ/p3Xq1DAovbweZENtRhqesa
9XkdrnConK2pZUOVjCGlpZx/QULxnNMDSnYUpD8lsZzwF7SeRJ8MSWZH4mtF
HB6pG7AbclFPqYcD7flwVbSocAP+9dRncv3iQPRx67LD1RsgpW86QvmXAy3I
ndE8O7ABHwrivHgFOVGd3dcQVq5NKJE4xidgy4lu/KLdyY/chMAWVeWntFzI
v9fy96DfFpTzZ7TtXOVGrs8Z1hmfbIFZWe3GCWtudNu5jAplbEHm1iOTKG9u
pMm6LZpbvwXKlpJCTnnciFcjzsh5aws+dNNFSu5wo9KG9z30rv8gn8feLKiE
Bw2/Enqrcnsb+E82+zqI8qJPSs6Sou7bEBAWE/TzOC+qq29MpA3aBuPGibu2
V3lRausd5y/Pt2FIalSK8OVFej/L9zuMbIPAWc0axx+8qJtNLSZLZwfqaHcv
MWfzoUZHR2u6c7vwYLvJ9OMJflS+9r53/voubP1l9xHR5UdZ3lyn+27twuTB
KzIxTvzIL6SG/7nvLsyOWha8zeVHJzMoe07U7cLXXeMAYBdAQ9Yagm94SUj6
6U0tijkBpJ34I2QmmoSOF3TMKFQLocgL5UxkySQUW2pXfG1QCLWsB8Zw/7cb
a3vTl55sCCFlvUNpp8pIKDC+Rf24gDAS5HUrSewmoYT7a+MjxsLodwpD3xl2
MhQp29p4/Zcw8nx2VCwtlgxl5cTVX9kVQeWadPllqWTIVq2+MIRNFM3ufJNq
fk6GJqcP0PeKiSJjE7+jS+VkSMcgwi5LTRSdEW5XV+slQ26hV/qEYkURY5aZ
4wonOap1eTP74pAYepYT/lYjgRzZ1YwIZdruQy4HNLL6n5Kj/D+5M9M++5B6
EUPwrRxyxHXKbf58zD60Uhqm5VFBjvZd4xhXrN6HLtWFjD3vIUfWJDHrRRpx
9LfnEd0WMwV6OpR1fC5fHF0lPdAuCKZAFiPnSh5sSCCJgBPKR6IoEM2N/Txy
LPvRP6p/gkQCBTLldtj5u28/ymfw+t2bQ4Gg5HVSk9Z+tMN934vUSIHGzmFB
g4L9qFDaNVOXRIn09T689zQ+gCgN7P5Q3adEdmT8P0QHD6K9l3SEFfwo0UxU
6ZPU5YNIXgWum4ZSooobxiYyzJLIdC9bdU0yJeKqlKnPPyOJ3n6reORQQ4ms
p1lSfpVIIjfDf3sHtygRB0d/cUbEITRl9PhisQ8Vqk9RN58ylkYkTZcHg0H/
7WLOTPK2tzTac9KolDqKCvFXOT6TTZVG5wVluM3SqdCklUvUcr80yhruGeXC
VGgi+0X4wrXDyNCE7/5DMmr0zINDeUxTBnWYFuRde0SNFpGcamuJLPIXe6i8
+vg/bc3SWE/IIsWJG58SY6kRjrMKf98pi9JsSctDWdSoinJy7995WWTrpnvS
+h01UjZk6+GXk0O04VRfvHaokTtzTP7NSjl0usqMPMeDBvm/wOaMn+TR2v1j
8Rd8aRCvXrIz9Yg8KjjBdGA6mAadEGgoY1uUR6zv31yWSaRBzwz6yQ25FNBI
O0ty9WsalF3Ngd8ZKyDvn29lOpZokHHuB4MfKwroTC8npeg6DSL9P46g/wFn
imqs
       "]]},
     Annotation[#, "Charting`Private`Tag$4261#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-6, 6}, {-5, 20}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.9479017812653503`*^9, 3.9479023357502627`*^9, {3.9479025164817495`*^9, 
   3.9479025443448343`*^9}, 3.9483503506996*^9, 3.9483504008390055`*^9, 
   3.948410000351756*^9, 3.948410253375746*^9, 3.948410321968546*^9, 
   3.948410535087407*^9, 3.9484110311219463`*^9, 3.9484138436141195`*^9, 
   3.9499015488991404`*^9, 3.9502584754647107`*^9, 3.9502586389601192`*^9, 
   3.950260604275361*^9, 3.950260829047338*^9, 3.95075895669598*^9, 
   3.9507592124109507`*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"4563c8b4-2011-4837-9162-41752db0f297"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[1, 0.5, 0], Thickness[Large], Opacity[1.], 
      LineBox[CompressedData["
1:eJxFxQlIk3EYgPFtuWlrfuimRhPWDlZMww48hlrNZSgyCc+UrEbOMtkQxLzC
wtiy1bQPUasZWWC6OdHMGl2bpksWHesQJQizVqKtGubmcDKtiL3/Bx5+nGPl
2SUkAoGw7+///F/YiN90Ab+Sx2WAif1F3bbtdNB78ThjlyAUdHu62o5sDQEt
3JZYswIDk8hnh6JlNLBVlJCQUk8Fi68XfPveGQTaeljriVoKyKLd2TlsDACp
7FnbfC8JlOeqrup0BFA69ukFq8U37Je7ezXrWcMyqC8d+vzY6AbLFgeLLmkX
wJgz5EIKzwEyaic2tHfYwSmZPGrAPglW10U1P28zg72XhaKuHaa9fptPNkxK
z02BwS5JUl+WHZypHI+tUjrAXw8zR6utC2B34y2pTO0G+UsGRk3HMjh9d7Mp
qdQH5l2ZueDACSK/N25rTJJ2EhhwSPGTXBsAvpbqe7KVFPB+MPOwRx4EbtFy
5gIlVNBbpfQZcmigwxuJ6YQYePNE40QkLwTEU15qNvFDQazcIB4Lp4Pm1Acm
I5MB+hRH4/OxMJAY+O5atA8Zn14xmkGIAL0f++bCfyNT5VY8cwnZtGIXqrxI
NjNS7SJtBNMOqgXvGcjWtyVleBwyZpz1g1qLrMlLbBXXI59+zUuua0DmrmvS
zKuRp0Ur26xapPXRlEL1BEnPWAw3jSCLPmBmlwXp9OzHZK+QEXH3+sXTSKnF
ll/3BanPcawOziKTK7gHOE7keeIeT8Ei8g1e2Il7kEz2qTTrCrJ4AHeurSH/
AGEy5sI=
       "]]},
     Annotation[#, "Charting`Private`Tag$4308#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-6, 6}, {-5, 20}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.9479017812653503`*^9, 3.9479023357502627`*^9, {3.9479025164817495`*^9, 
   3.9479025443448343`*^9}, 3.9483503506996*^9, 3.9483504008390055`*^9, 
   3.948410000351756*^9, 3.948410253375746*^9, 3.948410321968546*^9, 
   3.948410535087407*^9, 3.9484110311219463`*^9, 3.9484138436141195`*^9, 
   3.9499015488991404`*^9, 3.9502584754647107`*^9, 3.9502586389601192`*^9, 
   3.950260604275361*^9, 3.950260829047338*^9, 3.95075895669598*^9, 
   3.950759212490405*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"25da86be-7186-437f-bc71-5197e5f27858"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVlXc4FXwfh2XvdY5zoiREOslMQ+nLU0+hkpYUInvPREiys7NXGVkhOzu/
XxFl71RG1pFNSCje5/3rvj7XfV2ff29hQ7trJrQ0NDSyu2ho/k+jwojFnR0y
Hpf3PndNwxiIWwLip/6Q8V/Od/SP7hlDw/lM3Qe/ydjmfeBg1X1jEB+u+jS3
RMZVfTxkyyRjmGEff/lllIzncqUSs6aNwd5SQbu0noxngy2FUp6agKfYV2wa
QMbsTzha2QZMQdrBeD3Nh4xZGnx6k+ZN4XvtwpGhx2S8i8PkuDKdGfxzgy7p
uisZW3ldv90oZQYMPpLOyhZkXPvtvGSzvxmEfPc8JHCRjAUVjpx5p2gOiUmi
kW2cZGxn5WK9WWIBuTIJaRWsZByy5+HHC20WUP2BsziNkYxLmj9zFU1ZwNfF
jQ7nbRK+lPmnvWuvJQic6+TYt0DC9BQ1fr1AS0ia83hq20bCcr6Hw/OMrSBZ
qd+LK4SE6yp1nq3I2UB+98WIjQAStssamOvTtIFas3cp4z4k3F58bLjf1gYG
n+XXVbiT8EbK3M7RPBsQpHr/0bciYdOkrFITMVt4ESbtWqROwuux9jNlQnaQ
MhJod5WFhKnp1EXXWHswYGPu8GIgYcYqT+9rWfYgcjxAqmgXCZcoUhRPldtD
VpjfPOcmH7apz7um2G8PBUreVq0zfFji9wpeIjlAbZK72YVWPnx/LsDvYpID
fL1lq68UzodPH1g4IVrkCMk+83XWwXxYNXUpaPudI9wttN6XHMCH5Rxn52Z6
HGGM0Wpo8zEflr/JLbK+7gjTb8x0Ku358CVLW8ERZSf4Tbh3S/4aH1buFlnc
6nMCUuf1K4f4+DBL7yzDKIcz8Lcf/GzFw4ffuNEsJAg7w97WrbsFHHz4k0bs
FRMFZxD++NJWnpEPiy+HNcjrOYMkXglVWifiQMN/7xa/doZ/iqJar34h4oBb
N1vOXHsAdhE9am7Pidg7LLFXONcFHMOyu2oTiJjkKl5xCbvA/RD32zsxRPzg
WrReSL8LuAWKWviG/fdn9+usOp0r+Hs5BYY9JmJpn99J7/VcIdme0JR+j4jp
nrYOl5MewkfN6+daxIhYxew0Pp3gBpR43sxaYSKOi3aZPVfmBiEjXQwFgkSs
uC8p3LzDDTRtNZsi+IiYKcakhJbRHQaCL6trMRAxq1/LA7/77vCj8YLm6AQB
j2ak7wxpeQCz0mnd9ZcE3NukrvpK1hMsfbdqf6QQcC3b+2FtTU9obakW/JpE
wEVizRkH7Twh4s7JkdooAr4Z43RG9LUn7HY9ZujtQ8AMFqEHYymPQaJUxpzD
iICTr5Qk1fN5geohsfuiIgRcxyIhpyz6BHSZFg7c2UfAYdosXV7yT8B+srwv
QoCAF2Wef+k8+wTi0lSPb/MSsPngPcMU4ydA5bfeHKAjYP1ursX1rCfgy1rq
FTbJi0+dK2fOkPKGd7PKoRs5vJhh6mLHdXUf6P3EckYmkxfzWGiypuj6wI/s
7gXTNF7MGJHxYsvWB7iNjTV7E3jxh1UBvukoHzAYDCAUBvHietkmlrhhH9hu
bU8wtv7Pi2g1X3bxBcUC3awOaV48LO70NqXcD173ccu8OcyLD5kIOS23+sH+
vw1ViQd5cen8DP+dcT9gvHSkzUSIF08yX0qw5/aH7um/K1ucvHjMw3OjzMof
LMVSVCQWeDD3xEfDIvEASEweHfTK58EsnhzC+wsDgaMhxtQ0hwdfujAX9vhj
IHjNqi1dzODBjj8ceDZGA8FUsYSOnMyDgzY+IkW+pyA34E15HcyD1zNIFVse
T6GZcMD1iyUPDo7JJodcDYLNIFOC3CEefO/YEM7nCoECX7sPFDEePDLLOvf3
cAgYerq6iArz4H273XOtVEOg2SHoG5GfB4vXxd14/iQEErULXq4z82D+OO0Q
3bUQOCn+S/7tD27MI1OnbzwWCq7v/G6o5nDjNZUdd9uecJCsCWNUyeDGD1Uv
yIWshMP3srjKk6ncON7gucQkSwSo5rzaezieG3MdYBO/QYkAcnjbBEcgN9a1
RObrVhFQrsvn3GPGjReIxLJ7PyNgbT0j5u5Bbqw+ri14hj0S7gRWxCWLcuOp
fa9CFQUjAe9uTvgqxI3b1RI2z0tFQsjJxedau7mxC1McY4RmJIi4n8zSYOHG
NOo94RMxkZD6J8nmUT8Xni4YGMwQjYJbLAuFSne58LDVKM/yxWgQoRDKqrS4
8OgPmlts+tGwoH6iUuEKF9bieBN73DEafEO88RFlLkz7KFGtMT4aSrjIXYIi
XDjGgqBTR40GTpLyz7+TnPhof+IVCf8YaBCJPFpnw4nL7+ds6vfEgkZ/6Eyc
CScml/c558/EwsDTp6kOepyYdnJPFTdtHMwtebGLXebEFXMHNvbLxgEB2U0E
S3Jir/F1dqOIODDUuRx9e5YDi0nicz7X44Emmnl11ZwD8+V2qE3NJUDQBfrc
dgMOzJzpV6fHlPhfL3f0c7Q5MG0k+diicCJIGK636Khy4F+ko8lGtxLhigz1
5fuDHPjtBFyJqU+EF6311yOo7LjjOCujQloSnGJ4XHrYmB2vu7SYyDo+Bwlq
KEuELjsODCckQ9hzIDUl66/eYMe+uqah5rnPYSmwmu3tv+w49YcoE9v4c8hi
/2WkcZAdv37ALx5z8wXwEm2IDjNseHJ/xrdeSIEfIjrO5fZseKY8oWM4OhX6
6SxbBCzYsK+ewMm8jFSon3AVfnyPDZcnMBb5l6XCi6zYtgvX2PC9C6E7lr2p
cJ3SLfZFng33vzlbPUNMgzpZtf6tX6zY8c09p574NIhWPn5c5RErLjPw8y/N
Twe6xsWhFmdWbKSyXHygLh0cL+b4atmy4oT6noNZHelwVYu/20qfFX+umJL+
+jMdOK23rGNVWHGDzee7zIovITAOpc8ysOITThE9QS0vwWPhAmdsGAvenj71
N24rA2adaN7sD2DB+QynOGS5MuHORqVO3mMWrGYiYTUokgkn6SmvsD0LbvNT
vmmpngm/+NnPzV5jwRnfWD4YJ2aC/b+dD5XJLNg47KreuFIWGCVrT86kMGP9
SnqKX1Q2RJRNKfXEMWMOxVJXy7xsqGt9EFsTzox3smN2zOqzQeBv9IWQx8yY
kUN5d/5KNnTqdb06os+MWaWyKDo3c+CMkLqt/T5m/MI0qttS8BXwp59aX0tm
wjEszC4M73LhfHXzleFoJjz7k3RJdDAX7nffzmkMYcJKbuzPdddzoZPW9Xac
BxN+F39UREQqD/yNympO6DLhqHnr1q3kPFg9cMTLfQ8Tzv+pEUvrlQ8d2ftY
diUy4nx6QsVh3QIwmMe77kcy4p863HtHXQvgp5zRJjWIEY9fyssqjikAYl32
bKs7I5aM84rK6CgA7V6Z9ng9RhxoaZXae64QxmjORskIM+KVJUFQFCiCX7fN
BA1yGDB75iapklgMASkspJ5UBnyva//K8IFi2D2Zx3k+gQG3ehzn41MohlP2
SzuHgxjw5z/MJoU3i8HL/+HYuhUDrl7ebn4eVwyspcHZ4dIMuPbf1iTbfSWw
j71IFpXT49LIslj1E6VgOyExGF5Aj/dq8udvXyyFuto0f4MsepwX5b7aqF8K
ejZR33bF0uPBsyIO0QGlkNz+wO+cMz1eXaM3EhsoBf5nSl8+ydPjl8Y6lbKP
yoBIavHqLaLD6t0iR0I/vwHjhbOHM3PocKhDvPny/Bsoa6ztc06lw/unn8Rb
05fDdZcCCjmCDie9mZbPkS2HyIFnvbft6DCdy8zysdBy4ErSlhg5QodvROxL
b1KtANb91I7pXFpsegQqjLorYTCZueV7Oi1mKJBKvTtbCa/5Dzd+TqTFkh7t
+Y70VaBJsK/9EESLt/WtYqnHqiCWcTMnzZIWr17+6EzzvApE5jm8b1Nosbe1
LRfBthpOVSsc/fRqF96Y3XawPVAL7Me1pXHaLsxTfKULK9fCcKkbpSJhF67I
OFUsrVcL3q/R/synu3DT4zoTo9ha+JiqxvHEYheW/FTZIsb6Fm4E6FFPHNqF
yUM8Z2TW34L1Db/4nBwa3PWmyV36B4K07Wp5ShoNFg7mNeSmw9Cfs9Sel0CD
zwjO85J5MSj/1WEoDKLBVFm7Dg0ZDMQsOcc31jRYPGrkoIUNhrfrIxffy9Dg
bTU74ZszGPYec96ucNhBRpZ8claL78A/6PvRGsMdJCjmMQ8072Fp+KJV3fUd
FMSpdf8Az3toCBAZaFDYQSdv1QgJyr8Hmy8dxV0b26hsGYe3u7yHOg+KyeyT
bdR6qYYE9PVgUD/Ssi/yLwqwkm+qP9QAF5R+mww9+Ys0PocYqJ9pAKkKbppk
h79IOIlmZPJaA/zJVTnKf/UvWmIz/K7j0QDxkS+TCdx/UaPo5uXznQ3Qec/M
hjnsD9Iepkwc9PgAKjSLnD+fbiGLijaBmolGkHBjelX0cAtFL6QqsfxpBO5V
obN2FlsofXuc347QBMNTmi5zqltobMZa3/ufJnDrKBmhMm2hJtrPHz+lNUHJ
iwdF3/w20YdzHlXLxh9BRGn76ocnG2hnZuSB9vYn6ORRkkxw3EDu6rJarORm
8KS6M9oY/efv+uX1SDfD1/CNauK/Gyg5xJHn9b1miBpbFTVm3kAOrsXwqLEZ
6ANn12jDfyPB/QOk7OgWoHYPJCgnryNKLk1tw9k2iM4m3yeGrqN5T3uZSP02
+MdDS+PHo3X0mlLJ6ebeBi/Eemkj9NfRnqHzNgmlbXDLtcNqROS/HTjxgF+s
HT4KNip5vvqFknblSytwdMAr89LRmvI1VMt5e1XtYSf0GqYIXcxaQyWhruzK
QZ1Aoxes9zVmDRUOSSddSOoEratGX37fX0OLTMbGwW87gVaR0KUgv4Y86ahp
U7RdcIfNCRcWriK1Yvkp2mddwFogl/IyZwVNlwU+VqvpBoWcfUNy8SuokSBY
EtneDQbprHveB6ygwRM0eHG0G8pjx2K/m66ghS9haJK5BwwfR4YJiq0gl90O
4fW3eqBa8+ejuLSfiP2fzA/aGz1guVKsG5y4jAaGWbO9LvVBwrHlU2ZByyj7
dBo/s2EffHwos+es2zKaVYErmS59IEZT+GXz9jKy8svUEX7ZB9/Z87Us+ZcR
32cfU5GtPrgpnqWpFr+EpkP/bOgU9sOTkqNPOSUXUUXRiM+VQwMwfKL0QiPb
IlK/Y1RcozIAp5Eso+fsAmqJyQtTvjMAv1qkfOZzF5CnllNtdPAAWE9KPGo9
tIBy9rdlWiwOgPZuQYegg/MorfkE22DNF5DyZLjNKDqLnP+cupdk/g0Eqjvj
ftDPIj47c5KT9zdg+JXU30ydQW5lFw8ZJX+DQRu5G+G5M4ghS7YhpPMbBOnp
X9ktN4O4D/PfYlYchKnTVf9SVKaRkdADzzc8Q5C6ZS2noT+FKv2JXyN6hyHk
+AkHGZUpVIPUXNOXh8HFia6IV3QKpdsveHZwjoDGbMKRz1QqQo1/JD3URuDv
10YJA1sq4nzeMCmCR+BO9X4hx0eTiDz3y+nu7e9AeNjLFps0jiY+pGcvaY3C
750NnkW3cdR3OmVvnvkoDPsL7Va9M44WJDuLXdxGISfa8sDm7nE0eocu4MKL
UThTRKN0N3YM7bU9+6OeOgoWU5K24s9G0Z53TCLK7mPgmceaZsMxgqwg/G5H
yTioVd18LdQ6jDxsWU+vNI4DsSm1qitoGF3j3iw6/G0cXo0d61ZgHkaMdd5v
vtJNQC+/Ed027RBqcGP2kNeaAEpgjUnY76+owERqaGx7Aj4bW1MKx/tR4aF/
PHoNqFA3pHm8PKsfneytcZN5QIUsLYVzby360U2FM4OpwVS4r7qt17LYh35p
/ktC5VTglox4NrXVi6TuNAevcEyB2krpbyFiD7pjRku9jKfAmW49VPhpO5pV
so27pTAN59ZQtjRXOzotrrLX7PI08E4FvlOKaUNlX8XjQ02moaBZYO12WivS
ocy3CsVOA/XZGd3IqmZ0bVEjRuf3NGjv96fQzTSiqHHbM+fezYCLGyXsU0wd
YlsDTXeTOdBYWOovzHqLxr0PXeHwmgNxwwqh2Ipa5FKdSalMnIM+tXPFhl+q
UTnLw17tzjmQ57/bu7W3Avk1nPf9eHoehu1EFXRVC1FQ9JjIA4EFCL1V1Chh
+Rp96i6kTTu2AKdBSXstOA9JamYqUa8tQCLnLfewjmzULf7hIA5eAK3XQe+w
VioisXH6lW0vACtFOktgORmFl5asle1ZBPMN1U+lRxNQUfCNp50nFkE03oOL
WvMMjfmeeHzbaRFoOyRNtreDUaVnELEpYhHe2hjkyfj7Ig3/DTnNgkVY3i0x
/kHADUmZq62utixCf0DjZqe2HTpbGehb/n0R/gdbSHok
        "]], LineBox[CompressedData["
1:eJxFxV1MUmEYAOAjojiXZylhCsvEZqvVXJtKGEyJcDpTWxJmy5KVVhbGpqVo
q0VTkQZ5WpZTlz9bWAQTtaxsQmaMuCiyTJxbGstyJhYrUQpGVhe+38Wzh3lM
mldCwjCM/8//7QqLd7RAmrZ6i+z20tj4ZXhqstTQldsAx3FYpdKXjXBirvx6
TOcNuMqQs3chqg2mOxK3CMfb4aMhatJUZheMpVR83BOkgQWtaS3hl/Twzf5+
SnphD1zxJYLD3dALm/11WqmvDz6RIKm3Px6A7zeyeXd2GGGyuWOIkmSCi34F
p5zZ+Qy+2jsfFd0xDKdGD4Y7NCNw97wo8OwDCyxTN84qbTb4WqncLr4yAYe5
szn6/TOw45wlqbLWCX8fzBmpsv6AuxVd4mLlEhy/rKPK2n7D0/0bjZxTfljU
7GhwEhhv9XaNyph9iwSTD5d9C6omwzax9m5ebTA8EEY/4pGEwJtbmXOU7FDY
W1nr1wnXwE4vA7/HxuHOk4r3jE1rYWL3K1V0fDiMS3X8F7QI2CR4YnxEp8L+
siJWPr4ODqC8a9nmR7Myy0eysEjY+0E/R/uJFkisRM4yWu2bYdd50bF0htJN
Wg9nHFRuHaOim96WnCaS0QmWmIXQarRMtKuJfxH9/LOIWyNHHwhUq74q0Rd4
vu3WVrT16URZ3RA6ImuRZhxGF07iJrcZ7fKk48Wv0ZHJD3v402ix+U1+zSe0
Vuj80zeL5pbH7WO60PUBqZ6CRfQocaiD8KDpseczrD70cQPhWllB/wWfet1z

        "]]},
      Annotation[#, 
       "Charting`Private`Tag$4355#1"]& ], {}}, {{}, {}}, {{}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-6, 6}, {-5, 20}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.9479017812653503`*^9, 3.9479023357502627`*^9, {3.9479025164817495`*^9, 
   3.9479025443448343`*^9}, 3.9483503506996*^9, 3.9483504008390055`*^9, 
   3.948410000351756*^9, 3.948410253375746*^9, 3.948410321968546*^9, 
   3.948410535087407*^9, 3.9484110311219463`*^9, 3.9484138436141195`*^9, 
   3.9499015488991404`*^9, 3.9502584754647107`*^9, 3.9502586389601192`*^9, 
   3.950260604275361*^9, 3.950260829047338*^9, 3.95075895669598*^9, 
   3.9507592125525665`*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"5104c918-4233-4877-a627-31effd35eec8"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0, 1, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwtlnc413/Uxr/23nxFtqhEVkqk825TKg0ju6wiMyskIzMre5WRTSEiI593
EUJWMkokIiN7hPD8nut5zj/nuq/7uu7/zuvcorfsr1pQkkiktxQk0v9us+Ko
uZ0dXjyq6Hf66iVz4N7kl1T9x4u3WN9RP7hpDg1nsw1d//Ji2/fBg1XO5iA5
VPVxZp4XV33h4LVOMYcp5tHnAyO8eKbgYHLOpDk4WCvpldXz4unH1sJpIRbg
LfEVWwbxYmZfljamfkuQdTRfy/DnxQwN/j0pfyzhR+2szPeHvJiCxeIIorKC
k9epUq6582Ibn2s3Gg9aAY2/tAu6w4trv52Vbgm0grAf3vv5L/BiQSWZ4+9U
bkNyinj0J1ZebG/jdnfj1R0okEvKqGTkxWG77zef+3QHqj+wlmbQ8uJXLX1s
JRN34OvceofLNhlrZv9r7xKwBv7TnSxCs2RMLaXBZxRsDSkzXiF2n8hY4dGB
yEJzG0hV6/VhCyPjujcGT5YUbKGo+0LUehAZ2+f0z3zRsoVaq3dpo/5k3F56
eKjXzhYGnxTVVXqS8XrazM6hQlsQHPf7Z2JDxpYpOWUWEnbwLELWveQ8Ga/F
O0yVC9tD2nCw/RUGMh7PHJ9zj3cAUyb6Dh8aMqat8va7muMAYkeCDpZQkPEr
FSkV1QoHyIkI+MO6wYNt6wuvqvQ6wEs1P5u2KR687+8Snic7Qm2Kp9W5Nh7s
PBMUcCHFEb7q2pmoRfLgY3tmlcVLnCDV/0/d3cc8WD19PnT7nRMYF98VSg3i
wQpO0zNTn53gJ63N942HPFhRm11sbc0JJl9bGbxx4MGa1naCw+ge/OW6qat4
lQejbrG5zS/3gNx57fJ+Hh7M0DNNM8LiAnzte/tsOHjwaw/SbJKoCwi0bRq/
ZOHBHy/FX7ZQcgHR5ud2irQ8WHIhokHRyAWk8VK42ho3Dr51xrj0hQucLIlp
uzLAjYN0tVuPX3UF+6jPGh5PubFfRHKPaIEbOEXkdtUmcWOyu2SlJnYD5zDP
Gztx3Nj1aqxRWK8beASL33kU8V+e/eqp81TuEOhzLzjiITeW9f+b8t7IHVId
uJoyb3JjqpC2oQryfWjWuna6VYIbn7A6ho8leYBUImd2rSg3Toh1mz5d7gFh
w100LwW5sYpQSuTtDg/QstNqiuLhxnRxFq8oaT2h//HF8zo03JgxoNU1wNkT
fjee0xoZ48IjWZk733W8gF7tmOHacy7c03RePV/eG6wfbdb+TuPCtUzvh/S0
vKGttVrwawoXLpFoydpr7w1R+keHa2O4sHbcvePiL7xhl/vhW37+XJjmTvje
eKmHsK9M7jaLGRdOvfwqpZ7HB9T3SziLi3HhOoZ9CkjcFwzpZvfoC3HhCD2G
Lh9FX3D4VfElip8Lz8k9Heg85QsJGepHtjm58O3Bm7fSzH1hnO/uRj8VFzbp
Zptby/GFR4xlPhG/OLHq6Qr6rIN+8G4aha/ncWKaiQsd1877Q89HhuNy2ZyY
444WY5qhP/zO7Z61zODEtFFZzzbt/IHd3FyrJ4kTf1jm55mM8QfTwSCu4lBO
XC/fxJAw5A/bbe1J5nf/88V0Wi66PQKVl4Y5HbKceEjy3tu0igB48YVd7vUB
TrzfQvjeQlsAiGw1VCXv5cRlf6b49EcDgFZT5pOFMCf+Ra+Z5MAeCN2TW0ub
rJz4p5f3erlNIFhLpJ3YN8uB2ceab5VIBkFy6sigTxEHZvBmERUpDgaWhjhL
yzwOrHluJuJhczD4TGvMX8jiwE6/HTnWR4LBUuUVFW8qBw5dbyZUeEJAod9P
6sVjDryWRa7c9AqBFq497gPWHPhxXC5v2JVQ2Ai15FLYz4FvHv6Oi9jC4OUj
+w9SEhx4eJpxZutAGNzydncTF+XAQrs8C2zUw6DFMfQbNx8HlqxLuP7UNwyS
9V4+X6PnwHwJemGGK2FwVHJV8e1vdswhV2di/jMc3N8FXFfPY8crJ3Y87T5H
gnRNBO2JLHZ8X/2cQthSJPwoT3hzNJ0dJ5o+3feLIQrU8/IFDiSyY7Y9TJLX
paKAN/LTGEswOza0Jm6v2URBhSGPy2crdjzLzV1+czEKVtay4oz3suPzo3qC
x5mjQT+4MiFVnB1PCOWHqwhGA97VkvRVmB23ayRtnD0YDWFH557q7GLHbnQJ
tFFa0SDmeTTnEgM7Jp3/HDkWFw3p/1JsH/Sy4cmX/YNZ4jGgyzBbrGbMhods
RjgWLsSCmBRXeZUOGx75TdJlMomF2fPKb5Qus2EdltfxR5xi4VGYH5ZBbJjy
QbJGY2IsvGLj7RIUY8Nxd7gM6sZjgZWMFrd+seJDvcmX9wXGQYNY9KE6W1Zc
4Zy3YfI5Hi71hk8lWLBi3oovLkVT8dAfEpLuaMSKKX/trmKnTICZeR9miYus
uHJmz7qIfAJwEfZjj6VZsc/oGrNZVALcMrgYe2OaBUtI49P+1xKBFEu/vHyb
BfMUdGhMzCRB6DnqgnZTFkyfHVBnRJf837/cMcnTY8GU0byH50STYd+ttVYD
dRa8Sj6UaqabDJflxp+/38uC347B5bj6ZHjWVn8tapwZdxxhpFXKSAFVmodl
B8yZ8Zpbq4W801PYNx7OEGXIjIMjuVIh4imQm1JNlq8z40eGluG3C57CfHA1
09szzDj9tzgd0+hTyGFeNbu0lxm/cOWTjNN+BpzcttyOU0z4l0jWtx5Ig99i
Bi4VDkx4qiKpYyg2HXqprFv57zDhR0b8Rwuz0qF+zF304U0mXJFEWxJYng7P
cuI/nbvKhG+eC9+x7kmHa1LdEgOKTLj39anqKe4MqJPX6N1cZcROr2/e+5yY
AbHoyJETDxhxuWlAYFlRJlA1zn1vdWHEZicWSvfUZYLThbxHOnaMOKn+896c
jky4osPXbWPCiPsqJ2S/LmYC693Nu/EnGHGDbZ8xvcpzCE4gMqdpGLHyvajP
oa3PwWv2HGt8BAPenlTdStjMgul7pNciQQy4iEaVRZ4tG/TX3xgUPmTAGhb7
bAbFsuEotVQ+dmDAnwKQtvX5bFjlYz49fZUBZ31j+GCenA0OZzrvI14GbB5x
xWhULQfMUvV+TaXRY5M31FIBMbkQVT6h9jmBHrOolLlbF+ZCXZtrfE0kPd7J
jduxqs8F/q3Yc2EP6TEtC9pVtJQLnUZd+TIm9JjxYI6UgXYeHBc+b+cgRI+f
WcZ0WwvmA1+m6tpKKh2OY6B3o3lXAGerWy4PxdLh6UWypvhgATh338hrDKPD
ah7MTw3XCqCT0v1Gghcdfpd4SEzsYCEEmpXXKBvS4Zg/d9s2UwtheY+Mj+du
Oly0eCme0qcIOnKFGCiSaXERNVflAcOXYPoHUzhH0+JFA3aBEfeXsKhgtjEe
SotHNQtzSuNeAndd7nSbJy2WTvCJyep4CXo9cu2JRrQ42Nomved0MfwknYqR
E6XFS/OCoMJfAqs3rARN82gwc/YG+Q13KQSlMZA/p9Pgm10iS0N7SmHXr0LW
s0k0uM3rCA+PUimoOszvHAilwX3/6C2KtUvBJ/D+zzUbGly9sN3yNKEUGMse
50bK0uDaM20pdkKvQIi5RJ6ooMZl0eXx55XLwG5s32DkS2osoMVXtH2hDOpq
MwJNc6hxYYzncqNJGRjZxnyjiKfGg6fEHGODyiC13TXgtAs1Xl6hNpPoLwO+
J2oDHxWp8XNzgzfyD8qBm9zq01NChc93i8mE970G89lTB7LzqHC4Y+LthT+v
obyx9otLOhUWmfRNvEtdAdfcXkrxRlHhlNeTinnyFRDd/6Tnhj0VpnKbWjgc
XgFsKXr7hmWo8PUoocwm9UpgFBnvmCygxJYyUGnW/QYGU+lbf2RSYpqXB9ON
p9/AC74DjX3JlFjaq73IiboKtLgcaj+EUuJtE5v48cNVEE+7kZdhTYmXLza7
kJ5WgdgfFr8bUpTY764dG5ddNahWKx36mE+B16e3He321ALzET1ZnEGBOUov
d2FUC0NlHlKVSRS4Mku1VNaoFvxeECLZIRS46WGdhVl8LTSna7D43qHA0h/f
tEowvoXrQUbjyvspMO93juNya2/h7vWAxLw8Eu563eQp+5uAjO1qRakMEhZ9
zHmLnQpDb958e2ESCR8X/MPJy4kBbRnQFIeS8Li8fcclOQzcOQpOr++SsGTM
8N47thjerg1feC9Hwtsa9qLaUxgEDrtsVzruEGbWPAo2c+8gMPTHoZpbO4Sg
hNcfIL2H+aELNnXXdohQVh3nPRzvoSFIrL9BaYc4qlsjLKj4HmwHOkq71reJ
8gUc2e72Huq8pCymfbeJNs0aMlDXg2n9cKtQ9BYRZKPYVL+/Ac6p/bX47rtF
XOoLMz1/vAEOVrKTUh23CNEU0vCvqw3wr+DEIb4rW8Q8060fBl4NkBj9PJWL
fYtoFN+4eLazATpvWtnSR/wj9IakxvZ6fYATpDnWxZBN4k7lJ/6asUbY50GX
X3J/k4idTVdj+NcI7MvCp+zvbBKZ26N89lxNMDSh5Tajvkn8nLpr4neyCTw6
Xg2P020STZR9zR8zmuDVM9eSbwEbxIfTXlUL5s0gprZ95YPvOrEzNeyqt/0R
OjnUpJOc1gnP8/I6jLwt4D3uSWtr9p9vHFD4WbYFvkauV3OfWSdSw5w4Xtxs
gZify+Lm9OuEo3spPGhsAerg6RXKyL+EoEg/OTe2Fca7+5NQ6hohVUCqbTj1
CWJzeZ25w9eIP94OctEmn+Ckl86l3w/WiBdSb1g9PD/BM4keyiiTNWL397O2
SWWfQNe9w2ZY7D8dPObKJ9EOzYKNat75q0QKRZGsEksH5N8uG6mpWCFqWW8s
a9zvhJ5bacIXclaIV+HuzCi0E0hGj42+xq0Qxd9lU86ldILOFbOBv84rxByd
ufnjt51AqcLVpaS4QnhTjWdMUHaBPtM9XFy8TGiUKk5QPukCxpcKac/zlojJ
8uCHGjXdoJQn9F0hcYlo5BJ8Fd3eDaaZjLvfBy0Rg8okPDfSDRXxP+N/WC4R
swMRxC/6z3DrYXSEoMQS4bbLMbJe9zNUay0+SMhYJJhPZn/QW/8M1kulho+T
F4j+IcZcH80vkHR4QdUqdIHIPZbBR3/rCzTfl9t9ymOBmD4Bl7PdvoAEqXhg
48YCYROQbSD6/Av8YC7SseZbIHj6/C3FNr+AtmSOlkbiPDEZ/m/doLgXfF8d
CmGVniMqS4b9L+/vhyHlsnONTHPEeX2z0poT/XCMkKf1np4lWuMKI5B+P6y2
HvT/UzBLeOvcq4193A93f+170LZ/lsgT+ZR9Z64f9HYJOobu/UNktCgzDdYM
wEFvmhu04tOEyz/Vmym3vwF/dWfCb+ppgsf+Nvme3zegWU3pbRmfIjzKL+w3
S/0Gg7YK1yMLpgiaHPmGsM5vEGpkcnmXwhTBfoBPl15lECaOVZ2ROjFJmAm7
er/m+A7pm3cVLplMEG8Cub9G9QxB2BFlR7kTE0QNoeGeuTAEbveoSjjFJ4hM
h1nvDtZhuDSdJNM3Pk4Qjf+kvTSGYetr4z5Tu3GC9WnDLzE8DPrVIsJOD34R
vDOr94xv/ACu+z1M8SmjxNiHzNx5nRH4u7POMecxSnw5liZQeHsEhgKFd6nr
jxKz0p2lbh4jkBdrvWdj1ygxok8VdO7ZCBwvIakZx/8kBOxO/a4fH4E7E9J2
kk9GiN3v6MSQ50/wLmTMsGUZJmwg0rjj1ShoVGm/EG4bIrzsGI8tNY4Cd1N6
VVfoEHGVfaPkwLdRyP95uFuJfoigrfN7/ZVqDHr4zKi2Kb8TDR70Xoo6YyAV
XGMR8fcr8dLi4Pef22PQZ35Xqni0lyjef9Krx3Qc6r5rHanI6SWO9tR4yLmO
Q46O0um3d3oJbaXjg+mPx8FZfduode4Lsap1hkxUjAO7dNSTic0e4qB+y+Ml
lgnQWCr7K8z9mdC3ohy/iCfAhWotXDSknZhWs0vQVZqE0ytErixbO3FM8oSA
1cVJ4JwIfqcW94ko/yqZGG4xCS9b+FduZLQRBlJ/2oTjJ2H8yXHD6KoW4urc
pTiDv5OgJxIoRTXVSMSM2h0//W4K3DykIj7G1RFMK6DlaTEDl2bne4tz3hKj
fvsvs/jMgOStSuH4ylrCrTpb6k3yDHzROF16a6CaqGC436PXOQOKfMY9mwKV
REDD2UfNx/7AkL24kqF6MREa+1PMlX8WOouEhq9ftSQeMes4vZ6cA9L/j117
1BUK0jzkH8x0Y652Ape952g/cM7D94E7xRmXgsEpRPHOhNw8uBVfvDCzKwVe
hHzl6bWdh9PJkMThXQQhd01rLKfmoSBSGWXJvQVTfEX/9ewCUDek1dIdqgOZ
RBemKdIimPylPWpzhIBeT11lea5FCC2Z2sWXhuHTspvW2pFFOM5XxfEj+z0w
FWqGmfstQs6UNpVdWSPILQxS9vAvgXt45HhIeztQj1T6PdFfhuy99VmqWh3w
d53XX9V+Gbrfrd7609UBGZcFvTf8l4G8+dI+z7oTaMxNqipfLIODLHmGya4L
VLtcn8lTroBE4thYt/NnkC9vUD5cvAIRd3x7Tf36gP9s2KYw/xoEt1K8Hqvr
g8YBU2tKuTXwk/GLub3ZB+qOprHrZ9bAbcFPy8G5H8ZEfW9LOq2B6f1HLQ8t
B0Dc9p2qV+sayIcE1T07/w2ORlCLSPn9hZ688JxBzmHosvhuLkzagHZG1gDT
y//d4QrfG7xrA5rvRpiNPR6G+4/1Te/Lb4Bx4jl2V8of0JRqQS9vtgHXDNU/
PfD8AbrjRZK1TRtwbEzjXLjtCHDUcd3SjtsElmVN1aIro+B07YLn4VNbwP5V
wczNaRQ0NeO+nby5Bdx41+OTMaPwCTrJdg+3gD9s7Gt/zyjc6F1JFa3dgn17
vDxo9Mag+cRBK9KRbTh5vbDK2PgXkCJu3KhS2AHXcgZlDpsJoMn9ftc3g4Tu
J8+ZDD6eANsHSifjXpGQl8+XoNyiCfga2JxeXU9C/poZfWqzE1DdWXVCZZyE
osaU3awdf0OKYhgbmzQFKuS+XVHvNglj9TXbQjUU6Idz4yHXR9MQw9epZjRB
iQabafjzsqbBVvNIvs0GJeoXOLMz0DANe/Dt8+EsVKizof6jGs0MWA6UeTIe
okKY+50xTeAMhN1crZ31pUJp5TXBsUF/wKEuj8tBlBoZL5cMvgqdA4VgW4Zf
9jRIX33+3VjBHJRUeCv7BtAg7VTZXHLrHER5m8spptAgSbE+5bc083BQN6W7
v5EGCbVoU4menQdvaY6LMsK0iJX/WuLvxnmQEuxoZO2hRbNVF9+7NS8Ax0ua
We3L9EiCocnZs28B+nt3Z8lZ0iNDPbT34fgCJAwm9Io8oEctqwphgdSL4FuV
TnGykB5lK+7SiUOLQH6hWhBCz4AMX/ycfPVmEbTLWHRREwNqSXfjmM1bAl/F
iophbSZEMT9fv1C5BIlK5vHR9kxIGaxdVxqXIEebPs0ohAnlfDf89m9sCdh7
xAKPvWVCvvwns5lEl4Fd5Ye0iCQzUo5lPro/aRnKJtNkYv4xo5ygDFPzkBWI
u87J2VHLikxLbYuLklaAcYC/WnKQFfF/O7q9nL8CnI4lus82WVHEwe6UgJYV
aNTcXvmjwoZcv1D25TCtwj/WLl3OGjZ0Vtz84mT4Kshkn3dqNGVH43WSKnbR
a8Co+mROwJkDpf9eDK7IXINDoQXrvwM4kD4n0bf9ag3i2Vz3NyVwoHYLXZfI
z2twmUv1dHUNB6pgDi4p4f4LkkpnHB9Qc6JA/UnJpfi/oPUk6nhwEieSWC3k
ck9Zh53g83rK3Vxo14crYoUF6/Cvuy6D5xcXYoxdkxuqWgdpfdNh6r9caF7+
1KXT/evwIT/Wk0+IG9Xafg1m59mAYskj/II23Oj6L/rtvIgNCGhWU3lKz4P8
eix+D/huQplAeuv2FTJyec60xvxkE26W1qwfsyKj206lNCh9EzI2H5lEepHR
JfYtsZy6TVCxkBJ2zCUjPs1YI6fNTfjQxRAhtU1GJfXvuxld/kEer93NwGJe
NPRK+K3q7S0QON7kYy/Ghz4pO0mJuW2Bf2h04M+jfKi2riGBPnALjBvG79pc
4UMpLXecvjzfgkHpEWnChw/p/Szbaz+8BYKnL1U7/OBDXRzq0Zk621BLv3OB
NYsfNTg4WDGc2YEHW42mH48JoLLV9z1z13Zg8y+nt6iuAMr04jnZe2sHJvZf
lo12FEC+wdUCz312YGbEIv9tjgA6nk7dfax2B77uGPsDpyAatNIUesNHQjJP
b2hRzQoi7YQfwdNRJHQ0v31asUoYRZwrY6FIIqGYEtuiqwPCqHktIJr8HzdW
d6ctPlkXRip6B1JPlJJQQFyzxlFBESTE51qc0EVC8fdXx4aNRdDvZKbeU5wU
KEKupeHaLxHk8eyweGoMBcrMjq27vCOKyi4x5JWmUCAb9bqCYA4xNLP9Tbrp
OQWamNrH2CMuhoxNfA8vllEgHYNw20x1MXRKpE1DvYcCuYZc7hWOEUPMmTcd
lrkpUY3zm5kXB8TRs+ywt5rxlMi2elg4w2YPct6nmdn3lBLl/cmZnvLegzQK
mYJuZVMinhOuc2ej96DlklAt93JKtOcq15hS1R50oTZ49Hk3JbIiiVst0Emg
v92PGDZZqdDTwcyjs3kS6ArpgXZ+EBUyHz5T/GBdEkn6H1M5FEmF6K7v5ZVn
24v+0fwTIuKpkCnZfvvvnr0oj8nzd082FYLi14mNWnvRNvm+J6mBCo2ewUIG
+XtRgYxLhi6JGunrfXjvYbwPURvY/qG5T41sKQR+iA3sR7sv6Igo+lKj6ciS
JylL+5GCKlwzDaFG5deNTWRZpZDpbo6q6iRqxFMhW5d3Sgq9/Vb+yL6aGllN
sSX/KpZCrob/dg9sUiMurr6i9PADaNLo8fkibxpUl6xhNmksg0iXnB8MBP7H
xezppC0vGbTruFEJbSQNEqh0eCaXIoPOCsmSb6bRoAlL58ilPhmUOdQ9woNp
0HjWi7D5qweRoQn//YcUtOiZO5fK6CVZ1G6an3v1ES1aQPJqLcVyyE/8ocrK
4/+0FVtDHSGHlMavf0qIoUU41jLsfYccSrUhLQ1m0qJK6ondf+fkkI2r7nGr
d7RIxZCjW0BeHtGH0Xzx3KZFbqzReTcq5NHJypuU2e50yO8FNmP+pIBW7x+J
O+dDh/j0kpxohxVQ/jGWfVNBdOiYYH0px4ICYn//5qJsAh16ZtBHacijiIbb
2JKqXtOhrCou/M5YEXn9fCvbvkiHjHM+GPxYVkSneripxdbo0P+1qkPofwAs
TGbM
        "]]},
      Annotation[#, "Charting`Private`Tag$4405#1"]& ], 
     TagBox[
      {RGBColor[1, 0.5, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJxFxQtIU2EYgOHjmtOWHnSbRhOWbqxQwy54Q62mLBSZhJeZ0qqRs1Q2BDGn
CwtjZiu1g6jVlCwwdSqaWVLZpumSReW6iCMQs1airRo253BjWhH7/hdenrDT
pVmFJAzD+H//5/8Y4x7TwrnlHDYdTBgQdRn30kDn1TP0A+GBoN3R2XJydwCo
ZzdF62Q4mOh9cThS4gc28+LikqupYEF73rfvHb6gsZu11UtNAVl+9/ePjZBB
auiicbmXBEpzam/29GCgePLTK1aTe8wj++BG5ouadVBTNPx5dMQOltiGRNfU
K2DUBe98CscC0qtmtrW2mUGTRBoxaJ4F5YqIxpctOpAxLS+mmOdGPfZej+d1
7tMe9thYXDMrvmQC/VcFif2ZZnChfCq6QmkBfz3JmJAbVsCuurtiicoOctf6
6JVt6+D8g53axCI3KLyxcMVCYDyPt+/VawWtJJB8XPbTu4oMTos13VlKCvjI
n3nCIfUFd6nDlnwEVNBZoXT3ZfuBFmcI3hOPg3fO1s2EcAJAIvl1/Q5uIIiX
9qVMBtFAHf+xdoRJB92yU7G5OAP08nl/K9KNjE0rm0jHgkHnXP9S0G8kX2og
MtaQDS5zfK0TGcoMUa2StoOpx1ThH+jI5neFJUQMMmqK9YNahawUJjSnVCOf
fxUmKWqQOVsa6pdVyPM81x6DGml4apLVPkPS0m1B2nGk6COuW9UjrY4juOQN
Mjjm4UDKPFKsN+YqviA12ZaNoUVkUhn7aJgVednrkCPPhnxL5HcQDiQz9Fyq
wYUsGCSsm5vIP0VB70c=
        "]]},
      Annotation[#, "Charting`Private`Tag$4405#2"]& ], 
     TagBox[
      {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVlXc4FXwfh2XvdY5zoiREOslMQ+nLU0+hkpYUInvPREiys7NXGVkhOzu/
XxFl71RG1pFNSCje5/3rvj7XfV2ff29hQ7trJrQ0NDSyu2ho/k+jwojFnR0y
Hpf3PndNwxiIWwLip/6Q8V/Od/SP7hlDw/lM3Qe/ydjmfeBg1X1jEB+u+jS3
RMZVfTxkyyRjmGEff/lllIzncqUSs6aNwd5SQbu0noxngy2FUp6agKfYV2wa
QMbsTzha2QZMQdrBeD3Nh4xZGnx6k+ZN4XvtwpGhx2S8i8PkuDKdGfxzgy7p
uisZW3ldv90oZQYMPpLOyhZkXPvtvGSzvxmEfPc8JHCRjAUVjpx5p2gOiUmi
kW2cZGxn5WK9WWIBuTIJaRWsZByy5+HHC20WUP2BsziNkYxLmj9zFU1ZwNfF
jQ7nbRK+lPmnvWuvJQic6+TYt0DC9BQ1fr1AS0ia83hq20bCcr6Hw/OMrSBZ
qd+LK4SE6yp1nq3I2UB+98WIjQAStssamOvTtIFas3cp4z4k3F58bLjf1gYG
n+XXVbiT8EbK3M7RPBsQpHr/0bciYdOkrFITMVt4ESbtWqROwuux9jNlQnaQ
MhJod5WFhKnp1EXXWHswYGPu8GIgYcYqT+9rWfYgcjxAqmgXCZcoUhRPldtD
VpjfPOcmH7apz7um2G8PBUreVq0zfFji9wpeIjlAbZK72YVWPnx/LsDvYpID
fL1lq68UzodPH1g4IVrkCMk+83XWwXxYNXUpaPudI9wttN6XHMCH5Rxn52Z6
HGGM0Wpo8zEflr/JLbK+7gjTb8x0Ku358CVLW8ERZSf4Tbh3S/4aH1buFlnc
6nMCUuf1K4f4+DBL7yzDKIcz8Lcf/GzFw4ffuNEsJAg7w97WrbsFHHz4k0bs
FRMFZxD++NJWnpEPiy+HNcjrOYMkXglVWifiQMN/7xa/doZ/iqJar34h4oBb
N1vOXHsAdhE9am7Pidg7LLFXONcFHMOyu2oTiJjkKl5xCbvA/RD32zsxRPzg
WrReSL8LuAWKWviG/fdn9+usOp0r+Hs5BYY9JmJpn99J7/VcIdme0JR+j4jp
nrYOl5MewkfN6+daxIhYxew0Pp3gBpR43sxaYSKOi3aZPVfmBiEjXQwFgkSs
uC8p3LzDDTRtNZsi+IiYKcakhJbRHQaCL6trMRAxq1/LA7/77vCj8YLm6AQB
j2ak7wxpeQCz0mnd9ZcE3NukrvpK1hMsfbdqf6QQcC3b+2FtTU9obakW/JpE
wEVizRkH7Twh4s7JkdooAr4Z43RG9LUn7HY9ZujtQ8AMFqEHYymPQaJUxpzD
iICTr5Qk1fN5geohsfuiIgRcxyIhpyz6BHSZFg7c2UfAYdosXV7yT8B+srwv
QoCAF2Wef+k8+wTi0lSPb/MSsPngPcMU4ydA5bfeHKAjYP1ursX1rCfgy1rq
FTbJi0+dK2fOkPKGd7PKoRs5vJhh6mLHdXUf6P3EckYmkxfzWGiypuj6wI/s
7gXTNF7MGJHxYsvWB7iNjTV7E3jxh1UBvukoHzAYDCAUBvHietkmlrhhH9hu
bU8wtv7Pi2g1X3bxBcUC3awOaV48LO70NqXcD173ccu8OcyLD5kIOS23+sH+
vw1ViQd5cen8DP+dcT9gvHSkzUSIF08yX0qw5/aH7um/K1ucvHjMw3OjzMof
LMVSVCQWeDD3xEfDIvEASEweHfTK58EsnhzC+wsDgaMhxtQ0hwdfujAX9vhj
IHjNqi1dzODBjj8ceDZGA8FUsYSOnMyDgzY+IkW+pyA34E15HcyD1zNIFVse
T6GZcMD1iyUPDo7JJodcDYLNIFOC3CEefO/YEM7nCoECX7sPFDEePDLLOvf3
cAgYerq6iArz4H273XOtVEOg2SHoG5GfB4vXxd14/iQEErULXq4z82D+OO0Q
3bUQOCn+S/7tD27MI1OnbzwWCq7v/G6o5nDjNZUdd9uecJCsCWNUyeDGD1Uv
yIWshMP3srjKk6ncON7gucQkSwSo5rzaezieG3MdYBO/QYkAcnjbBEcgN9a1
RObrVhFQrsvn3GPGjReIxLJ7PyNgbT0j5u5Bbqw+ri14hj0S7gRWxCWLcuOp
fa9CFQUjAe9uTvgqxI3b1RI2z0tFQsjJxedau7mxC1McY4RmJIi4n8zSYOHG
NOo94RMxkZD6J8nmUT8Xni4YGMwQjYJbLAuFSne58LDVKM/yxWgQoRDKqrS4
8OgPmlts+tGwoH6iUuEKF9bieBN73DEafEO88RFlLkz7KFGtMT4aSrjIXYIi
XDjGgqBTR40GTpLyz7+TnPhof+IVCf8YaBCJPFpnw4nL7+ds6vfEgkZ/6Eyc
CScml/c558/EwsDTp6kOepyYdnJPFTdtHMwtebGLXebEFXMHNvbLxgEB2U0E
S3Jir/F1dqOIODDUuRx9e5YDi0nicz7X44Emmnl11ZwD8+V2qE3NJUDQBfrc
dgMOzJzpV6fHlPhfL3f0c7Q5MG0k+diicCJIGK636Khy4F+ko8lGtxLhigz1
5fuDHPjtBFyJqU+EF6311yOo7LjjOCujQloSnGJ4XHrYmB2vu7SYyDo+Bwlq
KEuELjsODCckQ9hzIDUl66/eYMe+uqah5rnPYSmwmu3tv+w49YcoE9v4c8hi
/2WkcZAdv37ALx5z8wXwEm2IDjNseHJ/xrdeSIEfIjrO5fZseKY8oWM4OhX6
6SxbBCzYsK+ewMm8jFSon3AVfnyPDZcnMBb5l6XCi6zYtgvX2PC9C6E7lr2p
cJ3SLfZFng33vzlbPUNMgzpZtf6tX6zY8c09p574NIhWPn5c5RErLjPw8y/N
Twe6xsWhFmdWbKSyXHygLh0cL+b4atmy4oT6noNZHelwVYu/20qfFX+umJL+
+jMdOK23rGNVWHGDzee7zIovITAOpc8ysOITThE9QS0vwWPhAmdsGAvenj71
N24rA2adaN7sD2DB+QynOGS5MuHORqVO3mMWrGYiYTUokgkn6SmvsD0LbvNT
vmmpngm/+NnPzV5jwRnfWD4YJ2aC/b+dD5XJLNg47KreuFIWGCVrT86kMGP9
SnqKX1Q2RJRNKfXEMWMOxVJXy7xsqGt9EFsTzox3smN2zOqzQeBv9IWQx8yY
kUN5d/5KNnTqdb06os+MWaWyKDo3c+CMkLqt/T5m/MI0qttS8BXwp59aX0tm
wjEszC4M73LhfHXzleFoJjz7k3RJdDAX7nffzmkMYcJKbuzPdddzoZPW9Xac
BxN+F39UREQqD/yNympO6DLhqHnr1q3kPFg9cMTLfQ8Tzv+pEUvrlQ8d2ftY
diUy4nx6QsVh3QIwmMe77kcy4p863HtHXQvgp5zRJjWIEY9fyssqjikAYl32
bKs7I5aM84rK6CgA7V6Z9ng9RhxoaZXae64QxmjORskIM+KVJUFQFCiCX7fN
BA1yGDB75iapklgMASkspJ5UBnyva//K8IFi2D2Zx3k+gQG3ehzn41MohlP2
SzuHgxjw5z/MJoU3i8HL/+HYuhUDrl7ebn4eVwyspcHZ4dIMuPbf1iTbfSWw
j71IFpXT49LIslj1E6VgOyExGF5Aj/dq8udvXyyFuto0f4MsepwX5b7aqF8K
ejZR33bF0uPBsyIO0QGlkNz+wO+cMz1eXaM3EhsoBf5nSl8+ydPjl8Y6lbKP
yoBIavHqLaLD6t0iR0I/vwHjhbOHM3PocKhDvPny/Bsoa6ztc06lw/unn8Rb
05fDdZcCCjmCDie9mZbPkS2HyIFnvbft6DCdy8zysdBy4ErSlhg5QodvROxL
b1KtANb91I7pXFpsegQqjLorYTCZueV7Oi1mKJBKvTtbCa/5Dzd+TqTFkh7t
+Y70VaBJsK/9EESLt/WtYqnHqiCWcTMnzZIWr17+6EzzvApE5jm8b1Nosbe1
LRfBthpOVSsc/fRqF96Y3XawPVAL7Me1pXHaLsxTfKULK9fCcKkbpSJhF67I
OFUsrVcL3q/R/synu3DT4zoTo9ha+JiqxvHEYheW/FTZIsb6Fm4E6FFPHNqF
yUM8Z2TW34L1Db/4nBwa3PWmyV36B4K07Wp5ShoNFg7mNeSmw9Cfs9Sel0CD
zwjO85J5MSj/1WEoDKLBVFm7Dg0ZDMQsOcc31jRYPGrkoIUNhrfrIxffy9Dg
bTU74ZszGPYec96ucNhBRpZ8claL78A/6PvRGsMdJCjmMQ8072Fp+KJV3fUd
FMSpdf8Az3toCBAZaFDYQSdv1QgJyr8Hmy8dxV0b26hsGYe3u7yHOg+KyeyT
bdR6qYYE9PVgUD/Ssi/yLwqwkm+qP9QAF5R+mww9+Ys0PocYqJ9pAKkKbppk
h79IOIlmZPJaA/zJVTnKf/UvWmIz/K7j0QDxkS+TCdx/UaPo5uXznQ3Qec/M
hjnsD9Iepkwc9PgAKjSLnD+fbiGLijaBmolGkHBjelX0cAtFL6QqsfxpBO5V
obN2FlsofXuc347QBMNTmi5zqltobMZa3/ufJnDrKBmhMm2hJtrPHz+lNUHJ
iwdF3/w20YdzHlXLxh9BRGn76ocnG2hnZuSB9vYn6ORRkkxw3EDu6rJarORm
8KS6M9oY/efv+uX1SDfD1/CNauK/Gyg5xJHn9b1miBpbFTVm3kAOrsXwqLEZ
6ANn12jDfyPB/QOk7OgWoHYPJCgnryNKLk1tw9k2iM4m3yeGrqN5T3uZSP02
+MdDS+PHo3X0mlLJ6ebeBi/Eemkj9NfRnqHzNgmlbXDLtcNqROS/HTjxgF+s
HT4KNip5vvqFknblSytwdMAr89LRmvI1VMt5e1XtYSf0GqYIXcxaQyWhruzK
QZ1Aoxes9zVmDRUOSSddSOoEratGX37fX0OLTMbGwW87gVaR0KUgv4Y86ahp
U7RdcIfNCRcWriK1Yvkp2mddwFogl/IyZwVNlwU+VqvpBoWcfUNy8SuokSBY
EtneDQbprHveB6ygwRM0eHG0G8pjx2K/m66ghS9haJK5BwwfR4YJiq0gl90O
4fW3eqBa8+ejuLSfiP2fzA/aGz1guVKsG5y4jAaGWbO9LvVBwrHlU2ZByyj7
dBo/s2EffHwos+es2zKaVYErmS59IEZT+GXz9jKy8svUEX7ZB9/Z87Us+ZcR
32cfU5GtPrgpnqWpFr+EpkP/bOgU9sOTkqNPOSUXUUXRiM+VQwMwfKL0QiPb
IlK/Y1RcozIAp5Eso+fsAmqJyQtTvjMAv1qkfOZzF5CnllNtdPAAWE9KPGo9
tIBy9rdlWiwOgPZuQYegg/MorfkE22DNF5DyZLjNKDqLnP+cupdk/g0Eqjvj
ftDPIj47c5KT9zdg+JXU30ydQW5lFw8ZJX+DQRu5G+G5M4ghS7YhpPMbBOnp
X9ktN4O4D/PfYlYchKnTVf9SVKaRkdADzzc8Q5C6ZS2noT+FKv2JXyN6hyHk
+AkHGZUpVIPUXNOXh8HFia6IV3QKpdsveHZwjoDGbMKRz1QqQo1/JD3URuDv
10YJA1sq4nzeMCmCR+BO9X4hx0eTiDz3y+nu7e9AeNjLFps0jiY+pGcvaY3C
750NnkW3cdR3OmVvnvkoDPsL7Va9M44WJDuLXdxGISfa8sDm7nE0eocu4MKL
UThTRKN0N3YM7bU9+6OeOgoWU5K24s9G0Z53TCLK7mPgmceaZsMxgqwg/G5H
yTioVd18LdQ6jDxsWU+vNI4DsSm1qitoGF3j3iw6/G0cXo0d61ZgHkaMdd5v
vtJNQC+/Ed027RBqcGP2kNeaAEpgjUnY76+owERqaGx7Aj4bW1MKx/tR4aF/
PHoNqFA3pHm8PKsfneytcZN5QIUsLYVzby360U2FM4OpwVS4r7qt17LYh35p
/ktC5VTglox4NrXVi6TuNAevcEyB2krpbyFiD7pjRku9jKfAmW49VPhpO5pV
so27pTAN59ZQtjRXOzotrrLX7PI08E4FvlOKaUNlX8XjQ02moaBZYO12WivS
ocy3CsVOA/XZGd3IqmZ0bVEjRuf3NGjv96fQzTSiqHHbM+fezYCLGyXsU0wd
YlsDTXeTOdBYWOovzHqLxr0PXeHwmgNxwwqh2Ipa5FKdSalMnIM+tXPFhl+q
UTnLw17tzjmQ57/bu7W3Avk1nPf9eHoehu1EFXRVC1FQ9JjIA4EFCL1V1Chh
+Rp96i6kTTu2AKdBSXstOA9JamYqUa8tQCLnLfewjmzULf7hIA5eAK3XQe+w
VioisXH6lW0vACtFOktgORmFl5asle1ZBPMN1U+lRxNQUfCNp50nFkE03oOL
WvMMjfmeeHzbaRFoOyRNtreDUaVnELEpYhHe2hjkyfj7Ig3/DTnNgkVY3i0x
/kHADUmZq62utixCf0DjZqe2HTpbGehb/n0R/gdbSHok
        "]], LineBox[CompressedData["
1:eJxFxV1MUmEYAOAjojiXZylhCsvEZqvVXJtKGEyJcDpTWxJmy5KVVhbGpqVo
q0VTkQZ5WpZTlz9bWAQTtaxsQmaMuCiyTJxbGstyJhYrUQpGVhe+38Wzh3lM
mldCwjCM/8//7QqLd7RAmrZ6i+z20tj4ZXhqstTQldsAx3FYpdKXjXBirvx6
TOcNuMqQs3chqg2mOxK3CMfb4aMhatJUZheMpVR83BOkgQWtaS3hl/Twzf5+
SnphD1zxJYLD3dALm/11WqmvDz6RIKm3Px6A7zeyeXd2GGGyuWOIkmSCi34F
p5zZ+Qy+2jsfFd0xDKdGD4Y7NCNw97wo8OwDCyxTN84qbTb4WqncLr4yAYe5
szn6/TOw45wlqbLWCX8fzBmpsv6AuxVd4mLlEhy/rKPK2n7D0/0bjZxTfljU
7GhwEhhv9XaNyph9iwSTD5d9C6omwzax9m5ebTA8EEY/4pGEwJtbmXOU7FDY
W1nr1wnXwE4vA7/HxuHOk4r3jE1rYWL3K1V0fDiMS3X8F7QI2CR4YnxEp8L+
siJWPr4ODqC8a9nmR7Myy0eysEjY+0E/R/uJFkisRM4yWu2bYdd50bF0htJN
Wg9nHFRuHaOim96WnCaS0QmWmIXQarRMtKuJfxH9/LOIWyNHHwhUq74q0Rd4
vu3WVrT16URZ3RA6ImuRZhxGF07iJrcZ7fKk48Wv0ZHJD3v402ix+U1+zSe0
Vuj80zeL5pbH7WO60PUBqZ6CRfQocaiD8KDpseczrD70cQPhWllB/wWfet1z

        "]]},
      Annotation[#, 
       "Charting`Private`Tag$4405#3"]& ], {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-6, 6}, {-5, 20}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.9479017812653503`*^9, 3.9479023357502627`*^9, {3.9479025164817495`*^9, 
   3.9479025443448343`*^9}, 3.9483503506996*^9, 3.9483504008390055`*^9, 
   3.948410000351756*^9, 3.948410253375746*^9, 3.948410321968546*^9, 
   3.948410535087407*^9, 3.9484110311219463`*^9, 3.9484138436141195`*^9, 
   3.9499015488991404`*^9, 3.9502584754647107`*^9, 3.9502586389601192`*^9, 
   3.950260604275361*^9, 3.950260829047338*^9, 3.95075895669598*^9, 
   3.9507592126318846`*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"57e38e2a-b05c-49a6-966b-ea1cce261ec2"],

Cell[BoxData["\<\"Left Continuous\"\>"], "Output",
 CellChangeTimes->{
  3.9479017812653503`*^9, 3.9479023357502627`*^9, {3.9479025164817495`*^9, 
   3.9479025443448343`*^9}, 3.9483503506996*^9, 3.9483504008390055`*^9, 
   3.948410000351756*^9, 3.948410253375746*^9, 3.948410321968546*^9, 
   3.948410535087407*^9, 3.9484110311219463`*^9, 3.9484138436141195`*^9, 
   3.9499015488991404`*^9, 3.9502584754647107`*^9, 3.9502586389601192`*^9, 
   3.950260604275361*^9, 3.950260829047338*^9, 3.95075895669598*^9, 
   3.9507592127317467`*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"be4284d1-c724-432b-a050-af5c51cc31c4"],

Cell[BoxData["\<\"Right Discontinuous\"\>"], "Output",
 CellChangeTimes->{
  3.9479017812653503`*^9, 3.9479023357502627`*^9, {3.9479025164817495`*^9, 
   3.9479025443448343`*^9}, 3.9483503506996*^9, 3.9483504008390055`*^9, 
   3.948410000351756*^9, 3.948410253375746*^9, 3.948410321968546*^9, 
   3.948410535087407*^9, 3.9484110311219463`*^9, 3.9484138436141195`*^9, 
   3.9499015488991404`*^9, 3.9502584754647107`*^9, 3.9502586389601192`*^9, 
   3.950260604275361*^9, 3.950260829047338*^9, 3.95075895669598*^9, 
   3.9507592128587794`*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"1f5f1369-f12f-4c2d-a406-267a0d3d39f7"],

Cell[BoxData["\<\"left limit \[NotEqual] right limit\"\>"], "Output",
 CellChangeTimes->{
  3.9479017812653503`*^9, 3.9479023357502627`*^9, {3.9479025164817495`*^9, 
   3.9479025443448343`*^9}, 3.9483503506996*^9, 3.9483504008390055`*^9, 
   3.948410000351756*^9, 3.948410253375746*^9, 3.948410321968546*^9, 
   3.948410535087407*^9, 3.9484110311219463`*^9, 3.9484138436141195`*^9, 
   3.9499015488991404`*^9, 3.9502584754647107`*^9, 3.9502586389601192`*^9, 
   3.950260604275361*^9, 3.950260829047338*^9, 3.95075895669598*^9, 
   3.9507592130475793`*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"68c188a0-5525-42d3-a10a-3462a7a777a8"],

Cell[BoxData["\<\"Discontinuous\"\>"], "Output",
 CellChangeTimes->{
  3.9479017812653503`*^9, 3.9479023357502627`*^9, {3.9479025164817495`*^9, 
   3.9479025443448343`*^9}, 3.9483503506996*^9, 3.9483504008390055`*^9, 
   3.948410000351756*^9, 3.948410253375746*^9, 3.948410321968546*^9, 
   3.948410535087407*^9, 3.9484110311219463`*^9, 3.9484138436141195`*^9, 
   3.9499015488991404`*^9, 3.9502584754647107`*^9, 3.9502586389601192`*^9, 
   3.950260604275361*^9, 3.950260829047338*^9, 3.95075895669598*^9, 
   3.9507592132284083`*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"1914582a-dabd-457f-84ad-2dc340910114"],

Cell[BoxData["\<\"Not Differentiable\"\>"], "Output",
 CellChangeTimes->{
  3.9479017812653503`*^9, 3.9479023357502627`*^9, {3.9479025164817495`*^9, 
   3.9479025443448343`*^9}, 3.9483503506996*^9, 3.9483504008390055`*^9, 
   3.948410000351756*^9, 3.948410253375746*^9, 3.948410321968546*^9, 
   3.948410535087407*^9, 3.9484110311219463`*^9, 3.9484138436141195`*^9, 
   3.9499015488991404`*^9, 3.9502584754647107`*^9, 3.9502586389601192`*^9, 
   3.950260604275361*^9, 3.950260829047338*^9, 3.95075895669598*^9, 
   3.9507592134044313`*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"33cfa6a0-7331-48e1-8f3e-aff47dd02a49"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "x_", "]"}], ":=", 
    RowBox[{"Piecewise", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Exp", "[", "x", "]"}], ",", 
         RowBox[{"x", "<", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "x"}], "+", "1"}], ")"}], ",", 
         RowBox[{"x", "\[GreaterEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], 
   ";"}], "         ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "continuous", " ", "but", " ", "has", " ", "notch", " ", "at", " ", "x"}],
     "=", "0"}], " ", "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Exp", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Green", ",", "Thick"}], "]"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "20"}], "}"}]}], "}"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "x"}], "+", "1"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Orange", ",", "Thick"}], "]"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "20"}], "}"}]}], "}"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Red", ",", "Thick"}], "]"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "20"}], "}"}]}], "}"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Exp", "[", "x", "]"}], ",", " ", 
      RowBox[{
       RowBox[{"2", "x"}], "+", "1"}], ",", " ", 
      RowBox[{"f", "[", "x", "]"}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Directive", "[", 
        RowBox[{"Green", ",", "Thick"}], "]"}], ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Orange", ",", "Thick"}], "]"}], ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Red", ",", "Thick"}], "]"}]}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "20"}], "}"}]}], "}"}]}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"point", "=", "0"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"leftLim", "[", 
    RowBox[{"k_", ",", " ", "x_", ",", " ", "p_"}], "]"}], ":=", 
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{"k", "[", "x", "]"}], ",", " ", 
     RowBox[{"x", "\[Rule]", "p"}], ",", 
     RowBox[{"Direction", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"rightLim", "[", 
     RowBox[{"k_", ",", " ", "x_", ",", " ", "p_"}], "]"}], ":=", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{"k", "[", "x", "]"}], ",", " ", 
      RowBox[{"x", "\[Rule]", "p"}], ",", 
      RowBox[{"Direction", "\[Rule]", "1"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"leftDeriv", "[", 
    RowBox[{"k_", ",", "x_", ",", "p_"}], "]"}], ":=", 
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"k", "[", "x", "]"}], "-", 
        RowBox[{"k", "[", "p", "]"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"x", "-", "p"}], ")"}]}], ",", " ", 
     RowBox[{"x", "\[Rule]", "p"}], ",", 
     RowBox[{"Direction", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"rightDeriv", "[", 
     RowBox[{"k_", ",", "x_", ",", "p_"}], "]"}], ":=", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"k", "[", "x", "]"}], "-", 
         RowBox[{"k", "[", "p", "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"x", "-", "p"}], ")"}]}], ",", " ", 
      RowBox[{"x", "\[Rule]", "p"}], ",", 
      RowBox[{"Direction", "\[Rule]", "1"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Left Continuous\>\"", 
   ",", " ", "\"\<Left Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"rightLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Right Continuous\>\"", 
   ",", " ", "\"\<Right Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], "===", 
    RowBox[{"rightLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}]}], ",", " ", 
   "\"\<left limit = right limit\>\"", ",", " ", 
   "\"\<left limit \[NotEqual] right limit\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], "===", 
    RowBox[{"rightLim", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Continuous\>\"", ",", 
   " ", "\"\<Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"leftDeriv", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}], "===", 
    RowBox[{"rightDeriv", "[", 
     RowBox[{"f", ",", "x", ",", "point"}], "]"}]}], ",", " ", 
   "\"\<Differentiable\>\"", ",", " ", "\"\<Not Differentiable\>\""}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.947902466965618*^9, 3.9479025067439103`*^9}, {
  3.9483503581950846`*^9, 3.9483503771742973`*^9}, {3.948410031993574*^9, 
  3.9484100443897953`*^9}, {3.9484102841259255`*^9, 3.948410284871261*^9}, {
  3.948410453529106*^9, 3.9484104648452373`*^9}, {3.9484109603763523`*^9, 
  3.9484109696470375`*^9}, {3.948413751587347*^9, 3.9484138187729716`*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"4da75882-1513-4ae7-9247-5733169c32fa"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0, 1, 0], Thickness[Large], Opacity[1.], 
      LineBox[CompressedData["
1:eJwdVXc41+/f/dh7r8gWlchKifS625SkYWTLKjKzQjIys7JXGdkUIjLyvosQ
spJRIhEZ2SOE3/d5zj/nOte5rvPfOUfklsM1S3ISifSWjET6PzYviZ7f3eXB
Ywr+Z69pWgDnFp+Eyj8evM38jvKBmQU0ns8xdPvLg+3ehwxVu1iAxHD1x9kF
Hlz9hY3HJtUCphnHng+O8uDZwsMpuVMW4GijqFfewINnHtsIpYdago/4V2wV
zIMZ/ZjaGQasQMbJYj0zgAfTNQb0pv6xgh91c9LfH/JgMibLY4jCGk7foEi9
7sGDbX2v32w6bA1UAVKu6A4Prvt2Xqo1yBrCf/gc5LvEgwUUpU++U74NKali
MZ+YebCDrfvdzVd3oFA2ObOKngeH773fcuHTHaj5wFyWSc2DX7X2s5RO3oGv
8xudrjvcWCPnX0c3vw3wne1iEpzjxpSS6rxGITaQOusdav+JG8s/OhRVZGEL
aap9vizh3Lj+jcGTZXk7KO65FL0RzI0dcgdmv2jZQZ31u/SxAG7cUXZ0uM/e
DoaeFNdXeXHjjfTZ3SNFdiAw4f/PxJYbW6XmlluK28OzSBmP0ovceD3BcbpC
yAHSR0IcrtJx44msiXmPBEcwZaDt9KXixtTVPv7Xch1B9Fjw4VIybvxKWVJZ
pdIRciMD/zBvcmG7hqJryn2O8FLV37Z9mgsf+LuMF7idoC7Vy/pCOxd2mQ0O
vJTqBF917U1Uo7jwiX1zSmKlzpAW8Kf+7mMurJaxELbzzhmMS+4KpgVzYXnn
mdnpz87wk9r2++ZDLqygzSq6vu4MU6+tDd44cmENG3uBEXQP/nKY6Spc48Ko
R3R+68s94O66fuUgFxem652hGmVyBd6O/f22bFz4tSdpLlnEFfjbt4xfMnHh
j5oJVywVXUGk5bm9AjUXlliMbFQwcgUpvByhus6JQ26dMy574QqnS2Pbrw5y
4mBd7baT19zAIfqzuudTTuwfmdIrUugOzpF53XXJnJjbQ6JKA7uDS7jXzd14
Tux2Lc4ovM8dPEPE7jyK/C/PYe3MRQoPCPK9FxL5kBPLBPxNfW/kAWmOHM1Z
ZpyYIrR9uJL7PrRoXT/bJs6JT1mfwCeSPUEyiT2nToQTJ8a5z5yt8ITwkW6q
lwKcWFkwNep2pydo2Ws1R3NxYpp4y1fk1F4w8PjyRR0qTkwf2OYW6OIFv5su
aI2Oc+DR7Kzd7zreQKt6wnD9OQfubb6oViDnAzaPtup+p3PgOob3w3paPtDe
ViPwNZUDl4q3Zu938IFo/eMjdbEcWDv+3kmxFz6wx+PoLf8ADkx1J2J/guRD
OFAue5vJnAOnXXmV2sDlC2oHxV3ERDlwPd0BeSTmB4Y0c/v0BTlwpB5dt6+C
Hzj+qvwSzceB52WfDnad8YPETLVjO+wc+PaQ2a10Cz+Y4L27OUDBgU16WObX
c/3gEX25b+QvdqxytpI2+7A/vJtBERv57Jhq8lLn9YsB0PuR7qRsDjtmu6NF
n24YAL/zeuasMtkxdXT2sy37AGC1sNDqTWbHH1b4uKZiA8B0KJijJIwdN8g1
0yUOB8BOe0eyxd3/fFGd1svuj0D5pWFupww7Hpa49za9MhBefGGVfX2IHR+0
FLq32B4IwtuN1Sn72XH5n2le/bFAoNaQ/mQpxI5/0WokO7IGQc/U9vIWMzv+
6e2zUWEbBDbi6acOzLFh1vGWW6USwZCSNjrkW8yG6XyYRIRLQoCpMd7KKp8N
a1yYjXzYEgK+M+oLl7LZsPNvJ7aN0RCwUn5FwZPGhsM2WghlrlCQH/CXfPGY
Da9nc1dteYdCK8c+j0EbNvw4Po8n/GoYbIZZccgfZMNmR7/jYpZwePnI4YOk
OBsemaGf3T4UDrd8PNzFRNiw4B6vQlu1cGh1CvvGycuGJeoTbzz1C4cUvZfP
12nZMG+iXrjhajgcl1hTePubFbPJ1ptY/IwAj3eBN9TyWfHqqV0v+89RIFUb
SX0qmxXfV7sgH74cBT8qEt8cz2DFSaZPD/yiiwa1/AL+Q0msmGUfg8QNyWjg
ifo0zhTCig1tiNvrttFQacjl+tmaFc9xclaYLUXD6np2vPF+VnxxTE/gJGMM
6IdUJaaJseJJwYIIZYEYwHtak78KseIO9eTN84djIPz4/FOdPazYnSaROlor
BkS9judq0rFi0sXPUePxMZDxL9XuQR8Lnno5MJQtFgu6dHMlqsYseNh2lG3x
UhyISnJUVOuw4NHfJF0GkziYu6j0RvEKC9Zhep1wzDkOHoX7Y2nEgskfpKg3
JcXBKxaebgFRFhx/h8OgfiIOmLnR0vYvZnykL+XKgaB4aBSNOVJvx4wrXfI3
TT4ngGZfxHSiJTPmqfziWjydAAOhoRlORsyY/NfealbyRJhd8GUUv8yMq2b3
bQjLJQIH4TD+WIoZ+46tM5pHJ8Itg8txN2eYsLgUPhtwPQlIcbQrK7eZMFdh
p/rkbDKEXaAs7DBlwrQ5gfVGNCn//eWuSb4eEyaP4Tk6L5ICB26ttxmoMeE1
7iNp5ropcEV24vn7/Uz47ThciW9IgWftDdejJxhx5zF6asXMVFChelh+yIIR
r7u3Wco5P4UDExF00YaMOCSKIw0inwJ3c5rJyg1G/MjQKuJ24VNYCKlheHuO
EWf8FqNhGHsKuYxr5pr7GfELN16JeO1nwM5px+k0zYB/CWd/64V0+C1q4Frp
yICnK5M7h+MyoI/Cpo3vDgN+ZMR3vCg7AxrGPUQemjHgymTq0qCKDHiWm/Dp
wjUGbHYhYtemNwOuS/aIDyow4L7XZ2qmOTOhXk69b2uNHju/Nrv3OSkT4tCx
Y6ce0OMK08Cg8uIsoGia/97mSo/NTy2W7avPAudL+Y907OlxcsPn/bmdWXBV
h7fH1oQe91dNynxdygLmu1t3E07R40a7fmNa5ecQkkhkzVDRY6V70Z/D2p6D
99wF5oRIOrwzpbKduJUNM/dIr4WD6XAxlQqTHEsO6G+8MSh6SIfVLQ/YDonm
wHFKyQLsSIc/BSJtm4s5sMbLeHbmGh3O/kb3wSIlBxzPdd1HPHTYIvKq0Zhq
Lpin6f2aTqfFJm8oJQNj8yC6YlL1cyItZlIu97ApyoP6dreE2ihavJsXv2vd
kAd823EXwh/SYmomtKd4OQ+6jLoLpE1oMf3hXEkD7Xw4KXTR3lGQFj+ziu2x
ESgA3iyV9dU0GhxPR+tO9a4Qzte0XhmOo8EzS9waYkOF4NJzM78pnAarejI+
NVwvhC5yj5uJ3jT4XdIRUdHDRRBkXlGrZEiDY//cbd9KK4KVfdK+XntpcPGS
ZgK5bzF05gnSkaVQ42JKjqpDhi/B9A8mc4mhxksGrPyjHi9hSd58cyKMGo9p
FOWWxb8Ezvq8mXYvaiyV6Bub3fkS9HplO5KMqHGIjW1G79kS+Ek6EysrQo2X
FwRAma8U1m5aC5jmU2HGnE3uN5xlEJxOx/05gwqbdQsvD+8rgz2/ipjPJ1Ph
du9jXFyKZaDiuLB7KIwK9/+jtSzRLgPfoPs/122pcM3iTuvTxDKgL3+cFyVD
hevOtafaC74CQcZSOaKSEpfHVCRcVCoH+/EDQ1EvKTG/Fm/xzqVyqK/LDDLN
pcRFsV4rTSblYGQX+40sgRIPnRF1igsuh7QOt8CzrpR4ZZXSXHygHHifqA5+
VKDEzy0M3sg9qABO7jbf3lIKfLFHVDqi/zVYzJ05lJNPgSOckm4v/nkNFU11
X1wzKLDwlF/SXcpKuO7+UpInmgKnvp5SyJerhJiBJ703HSgwhfv04tGISmBJ
1TswIk2Bb0QLZjWrVQG98ETnVCE5tpKGKvOeNzCURtv2I4scU708nGE88wZe
8B5q6k8hx1LeHcXOlNWgxeFY9yGMHO+Y2CZMHK2GBOrN/EwbcrxyucWV9LQa
RP8w+d+UJMf+d+1ZOOxrQKVG8cjHAjK8MbPjZL+vDhiP6cngTDLMVnalG6M6
GC73lKxKJsNV2SplMkZ14P+CEM4JJcPND+stzRPqoCVDncnvDhmW+vimTZz+
LdwINppQOkiGeb6znZRdfwt3bwQm5eeTcPfrZi+Z3wRk7tQoSGaSsMhj9lus
FBj68hc6ipJJ+KTAH3Yedgxo24CqJIyEJ+QcOjVlMXDmyju/vkvCErEj++/Y
YXi7PnLpvSwJ76g7iGhPY+A/6rpT5bRLmNtwydvOv4OgsB9Ham/tEgLi3n+A
9B4Whi/Z1l/fJcKYdVz2sb2HxmDRgUbFXeK4bq2QgMJ7sBvsLOve2CEqFnFU
h/t7qPeWtJzx2yHaNWq5gbIBTBtG2gRjtolgW4XmhoONcEH1r+V3v21Csz/c
9OLJRjhcxUpKc9omRFJJI7+uNcK/wlNHeK9uEwsMt34YeDdCUszzNA7WbaJJ
bPPy+a5G6DKztqON/EfoDUuO7/f+AKdI88xLoVvEnapPfLXjTXDAk6ag9P4W
ETeXoUr3rwlYV4TOONzZIrJ2xngdOJpheFLLfVZti/g5fdfE/3QzeHa+Gpmg
2SKayftbPmY2w6tnbqXfAjeJD2e9qxctWkBUdefqB78NYnd6xE1v5yN0salK
JTtvEF4X5XToeVrBZ8KL2s78P984sOizTCt8jdqo4Ty3QaSFO7O9MGuF2J8r
Yha0G4STRxk8aGoFypCZVfKov4SA8AB3XlwbTPQMJKO0dUKykFTXeOYTxOXx
uHBGrBN/fBxlY0w+wWlvHc3fD9aJF5JvmD29PsEz8V7yaJN1Yu/383bJ5Z9A
16PTdkT0Px0y7sYr3gEtAk2qPgVrRCpZsYwiUycU3C4fra1cJeqYb66o3++C
3lvpQpdyV4lXER6MKKwLSEaPjb7GrxIl32VSL6R2gc5V88G/LqvEPI2FxeO3
XUCuzNGtqLBK+FBMZE6Sd4M+wz1cUrJCqJcpTJI/6Qb6l/Lpz/OXiamKkIfq
tT2gmC/4XT5pmWjiEHgV09EDpln0e98HLxNDSiQ8P9oDlQk/E35YLRNzg5HE
L9rPcOthTKSA+DLhvscpqkH3M9RoLT1IzFwiGE/nfNDb+Aw2y2WGj1MWiYFh
+jxfjS+QfHRRxTpskcg7kclLe+sLtNyX3XvGc5GYOQVXcty/gDipZHDz5iJh
G5hjIPL8C/xgLNax4V0kuPoDrES3voC2RK6WetICMRXxb8OgpA/8Xh0JZZaa
J6pKRwKuHByAYaXyC00M88RFffOy2lMDcIKQo/aZmSPa4osikf4ArLUdDvhT
OEf46Nyri3s8AHd/HXjQfnCOyBf+lHNnfgD09gg4he3/Q2S2KjEM1Q7CYR+q
m9RiM4TrPxWz1NvfgK+mK/E35QzB5XCb+57/N6BaS+1rnZgmPCsuHTRP+wZD
dvI3ogqnCapcucbwrm8QZmRyZY/8NMF6iFeXVnkIJk9Un5M8NUWYC7n5vGb7
Dhlbd+U1TSaJN0GcX6N7hyH8mJKT7KlJopZQ98haHAb3exSl7GKTRJbjnE8n
8whoziRL909MEETTPylv9RHY/tp0wNR+gmB+2vhLFI+Afo2wkPODXwTP7No9
45s/gON+L0NC6hgx/iErb0FnFP7ubrDNe44RX06k8xfdHoXhIKE9avpjxJxU
V5m75yjkx9ns29wzRozqUwRfeDYKJ0tJqsYJPwl++zO/GyZG4c6klL3Ek1Fi
7zsaUeT1E3yK6DPtmEYIW4gy7nw1BurV2i+E2ocJb3v6E8tNY8DZnFHdHTZM
XGPdLD30bQwKfh7tUaQdJqjr/V9/pRiHXl5zih3y70SjJ623gs44SIbUWkb+
/Uq8tDz8/efOOPRb3JUsGesjSg6e9u41nYD671rHKnP7iOO9tZ6ybhOQq6N4
9u2dPkJb8eRQxuMJcFHbMWqb/0KsaZ3jJiongFUq+snkVi9xWL/18TLTJKgv
l/8V4vxM6FuTT1zGk+BKsR4hEtpBzKjaJ+oqTsHZVSJPhqWDOCFxit/68hSw
T4a8U43/RFR8lUiKsJyCl618qzcz2wkDyT/tQglTMPHkpGFMdStxbV4z3uDv
FOgJB0lSTDcRsWP2J8++mwZ3T8nIj/H1BMMqaHlZzoLm3EJfSe5bYsz/4BUm
31mQuFUllFBVR7jX5Ei+SZmFL+pny24N1hCVdPd79bpmQYHXuHeLv4oIbDz/
qOXEHxh2EFM0VCshwuJ+irrxzUFXseDIjWtWxCNGHefXU/NAaXZJOOSMJgw2
hY61UCxAweEsd8YaZ3Ddf4H6A/sCfB+8U5KpGQLOoQp3JmUXwL3k8qXZPanw
IvQrV5/dApxNgWQ2n2IIvWtaazW9AIVRSihb9i2Y4qv6r+cWgbIxvY7mSD1I
J7kyTJOWwOQv9XHbYwT0eekqyXEsQVjp9B7edAyfVty11o8twUnearYfOe+B
oUgj3MJ/CXKntSnsy5tAdnGIvJdvGTwioiZCOzqAcrTK/4n+CuTsb8hW0eqE
vxs8ASoOK9Dzbu3Wn+5OyLwi4LMZsALcWy8d8m26gMrCpLrqxQo4ynDPMth3
g0q32zM58lUQTxof73H5DHIVjUpHS1Yh8o5fn6l/P/CdD98S4luHkDay1+P1
/dA0aGpDLrsO/tL+sbe3+kHNyTRu49w6uC/6azm6DMC4iN9tCed1ML3/qPWh
1SCI2b1T8W5bB7nQ4PpnF7/B8UhKYUn/v9CbH5E7xD4C3ZbfLYRIm9BBzxxo
euW/Hq7yvsF7NqHlbqT5+OMRuP9Y3/S+3CYYJ11gdSP/Ac1plrRy5ptw3VDt
0wOvH6A7USxR17wJJ8bVL0TYjQJbPcct7fgtYFrRUCm+OgbO1y95HT2zDaxf
5c3dncdAQyP+22mzbeDEex6fjh2DT9DFbf9wG/jCx78O9I7Bzb7VNJG6bTiw
z9uTSm8cWk4dtiYd24HTN4qqjY1/ASny5s1q+V1wq6BTYrOdBKq873f9Mkno
fsq8ydDjSbB7oHg6/hUJeft+Cc4rnoSvQS0ZNQ0kFKCR2a86Nwk1XdWnlCdI
KHpcyd3G6TekKoSzsEiRoSLO25UN7lMw3lC7I1hLhn64NB1xezQDsbxdqkaT
5GiohYovP3sG7DSOFdhukqMB/nO7g40zsA/fvhjBRIG6Ghs+qlLNgtVguRf9
EQqEOd8ZUwXNQrjZWt2cHwVKr6gNiQv+A471+RyOIpTIeKV06FXYPMiH2NH9
cqBC+moL78YL56G00kfJL5AKaafJ5HG3zUO0j4WsQioVkhDtV3pLtQCHdVN7
BpqokGCrNoXI+QXwkWK7LC1EjZj5rif9bloASYHOJuZeajRXffm9e8sisL2k
mtO+QovE6ZpdvPoXYaBvb7asFS0y1EP7H04sQuJQYp/wA1rUuiYfHkS5BH7V
GWSni2hRjsIenXi0BNwvVApDaemQ4YufU6/eLIF2OZMuaqZDrRnubHP5y+Cn
UFk5os2AyBYWGharliFJ0SIhxoEBKYGN22rTMuRq06YbhTKg3O+G3/6NLwNr
r2jQibcMyI/vdA6DyAqwKv+QEpZgREpxjMcPJq9A+VS6dOw/RpQbnGlqEboK
8TfY2TvrmJFpmV1JcfIq0A/y1UgMMSO+b8d3VgpWgd2pVPfZFjOKPNyTGti6
Ck0aO6t/lFmQ2xfy/lyGNfjH3K3LXsuCzotZXJ6KWAPpnIvOTaasaKJeQtk+
Zh3oVZ7M87uwoYzfSyGVWetwJKxw43cgG9JnJ/p3Xq1DAovbweZENtRhqesa
9XkdrnConK2pZUOVjCGlpZx/QULxnNMDSnYUpD8lsZzwF7SeRJ8MSWZH4mtF
HB6pG7AbclFPqYcD7flwVbSocAP+9dRncv3iQPRx67LD1RsgpW86QvmXAy3I
ndE8O7ABHwrivHgFOVGd3dcQVq5NKJE4xidgy4lu/KLdyY/chMAWVeWntFzI
v9fy96DfFpTzZ7TtXOVGrs8Z1hmfbIFZWe3GCWtudNu5jAplbEHm1iOTKG9u
pMm6LZpbvwXKlpJCTnnciFcjzsh5aws+dNNFSu5wo9KG9z30rv8gn8feLKiE
Bw2/Enqrcnsb+E82+zqI8qJPSs6Sou7bEBAWE/TzOC+qq29MpA3aBuPGibu2
V3lRausd5y/Pt2FIalSK8OVFej/L9zuMbIPAWc0axx+8qJtNLSZLZwfqaHcv
MWfzoUZHR2u6c7vwYLvJ9OMJflS+9r53/voubP1l9xHR5UdZ3lyn+27twuTB
KzIxTvzIL6SG/7nvLsyOWha8zeVHJzMoe07U7cLXXeMAYBdAQ9Yagm94SUj6
6U0tijkBpJ34I2QmmoSOF3TMKFQLocgL5UxkySQUW2pXfG1QCLWsB8Zw/7cb
a3vTl55sCCFlvUNpp8pIKDC+Rf24gDAS5HUrSewmoYT7a+MjxsLodwpD3xl2
MhQp29p4/Zcw8nx2VCwtlgxl5cTVX9kVQeWadPllqWTIVq2+MIRNFM3ufJNq
fk6GJqcP0PeKiSJjE7+jS+VkSMcgwi5LTRSdEW5XV+slQ26hV/qEYkURY5aZ
4wonOap1eTP74pAYepYT/lYjgRzZ1YwIZdruQy4HNLL6n5Kj/D+5M9M++5B6
EUPwrRxyxHXKbf58zD60Uhqm5VFBjvZd4xhXrN6HLtWFjD3vIUfWJDHrRRpx
9LfnEd0WMwV6OpR1fC5fHF0lPdAuCKZAFiPnSh5sSCCJgBPKR6IoEM2N/Txy
LPvRP6p/gkQCBTLldtj5u28/ymfw+t2bQ4Gg5HVSk9Z+tMN934vUSIHGzmFB
g4L9qFDaNVOXRIn09T689zQ+gCgN7P5Q3adEdmT8P0QHD6K9l3SEFfwo0UxU
6ZPU5YNIXgWum4ZSooobxiYyzJLIdC9bdU0yJeKqlKnPPyOJ3n6reORQQ4ms
p1lSfpVIIjfDf3sHtygRB0d/cUbEITRl9PhisQ8Vqk9RN58ylkYkTZcHg0H/
7WLOTPK2tzTac9KolDqKCvFXOT6TTZVG5wVluM3SqdCklUvUcr80yhruGeXC
VGgi+0X4wrXDyNCE7/5DMmr0zINDeUxTBnWYFuRde0SNFpGcamuJLPIXe6i8
+vg/bc3SWE/IIsWJG58SY6kRjrMKf98pi9JsSctDWdSoinJy7995WWTrpnvS
+h01UjZk6+GXk0O04VRfvHaokTtzTP7NSjl0usqMPMeDBvm/wOaMn+TR2v1j
8Rd8aRCvXrIz9Yg8KjjBdGA6mAadEGgoY1uUR6zv31yWSaRBzwz6yQ25FNBI
O0ty9WsalF3Ngd8ZKyDvn29lOpZokHHuB4MfKwroTC8npeg6DSL9P46g/wFn
imqs
       "]]},
     Annotation[#, "Charting`Private`Tag$4812#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-6, 6}, {-5, 20}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.947901705611591*^9, 3.9479017276383*^9}, 
   3.9479023376543093`*^9, 3.947902505755988*^9, 3.947902546138979*^9, {
   3.948350380149469*^9, 3.948350401246057*^9}, 3.9484100473874645`*^9, 
   3.948410288126316*^9, 3.9484103230321484`*^9, 3.9484104679901643`*^9, 
   3.9484105361540537`*^9, 3.948411032161915*^9, 3.948413801190796*^9, {
   3.9484138383545055`*^9, 3.948413844682886*^9}, 3.949901549933652*^9, 
   3.9502584764191513`*^9, 3.950258639922147*^9, 3.950260605385827*^9, 
   3.9502608301162066`*^9, 3.9507589578117666`*^9, 3.9507592135208097`*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"6aa6a933-8851-4c6a-a262-aa5ba28db3c4"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[1, 0.5, 0], Thickness[Large], Opacity[1.], 
      LineBox[CompressedData["
1:eJwtxQlIk2EYwPHNPNpyw7a5t2Ytp2m+FmGQMpr1PUllhBFenVbLo8wchpSm
UWBoKmmNKLMVHVQ6DzpNOpzf5zRbpNnhUSBmGaKskpo2ck0r9vzhz0+VnBWX
5sbj8TT//q+rmZxLGddVrRTwDZ6ohFN6313GNrqjPpzQf7hrtNaNk0HH1XeJ
Ii4zoajSaORx743CZbGxAk7b+vGl8qyTdenBBaycin1W8Jt1yedq0h98eto4
wca92duaq3OwGbZ7SacMP9ju4ZTH8nAbu/S4xzbPQCub9Ed433vdMCvN655V
cWmIrbTc2HW3v4PtS80MvTPUy8ZFLKq7rn7L5OaHnn5xvplN3nP4cvn2Eab2
jBpuhpmYidleJbIqG3N6f0Gv9kQf87wBDoS1OBjReIymPnaI8cyvmt9r5MPg
ofblOYVW5uCKFIXG7AHfH28051p+MC4FUFV8XZtaOsG4FEHQrzrpkUu/GYmj
R9DU6QMD9xeYNOlOJuvDmYH5DRJIvDBYYtXzUBlcuVVmiqlwQ+XgvkP3zSPP
HZ0Dr7Q11XGFnqgCHooUO+2ZM9F5EGxQjXjFCFElTOYUOuviveGYxjzVQ/3B
OuknNqrFkOMUeSXMU8G1fcXdfoE+aADoV3eUzQ2ajQaCOKsuqtVXgi6E5jWP
TI0KKRoETt3uiM1iGRoMfK+3Fxc7ZWgwRKzPNm/gydEQmOyvH/H9KUdDYE2m
Rb/xlxwNgXLHkLpoUo6GgL/Cr3TcjaAUoreU0ndSglI49yYtQx9OUApL25Vf
hXkEpXAkccW5qGMEpdDyJTEyv4CgFBJmlJeNlhKUwlFwLLEYCErB8qRPV9RE
UAqSDTZfE0dQCkkfxM3jbQSlMGZfK07tJCgFeXjD7agBglLQtnVtzv9MUAo1
8dape8MEpRCZHbBJNUZQCif5q+xbbQSl8Fq/7areTlAKCv/D0RYHQSmk3NGP
TU8TlMJfOtKnzg==
       "]]},
     Annotation[#, "Charting`Private`Tag$4859#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-6, 6}, {-5, 20}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.947901705611591*^9, 3.9479017276383*^9}, 
   3.9479023376543093`*^9, 3.947902505755988*^9, 3.947902546138979*^9, {
   3.948350380149469*^9, 3.948350401246057*^9}, 3.9484100473874645`*^9, 
   3.948410288126316*^9, 3.9484103230321484`*^9, 3.9484104679901643`*^9, 
   3.9484105361540537`*^9, 3.948411032161915*^9, 3.948413801190796*^9, {
   3.9484138383545055`*^9, 3.948413844682886*^9}, 3.949901549933652*^9, 
   3.9502584764191513`*^9, 3.950258639922147*^9, 3.950260605385827*^9, 
   3.9502608301162066`*^9, 3.9507589578117666`*^9, 3.9507592135984163`*^9},
 CellLabel->"Out[84]=",ExpressionUUID->"eb9b5ef5-0854-4ca9-9593-3f00118257b4"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVlXc4FXwfh2XvdY5zoiREOslMQ+nLU0+hkpYUInvPREiys7NXGVkhOzu/
XxFl71RG1pFNSCje5/3rvj7XfV2ff29hQ7trJrQ0NDSyu2ho/k+jwojFnR0y
Hpf3PndNwxiIWwLip/6Q8V/Od/SP7hlDw/lM3Qe/ydjmfeBg1X1jEB+u+jS3
RMZVfTxkyyRjmGEff/lllIzncqUSs6aNwd5SQbu0noxngy2FUp6agKfYV2wa
QMbsTzha2QZMQdrBeD3Nh4xZGnx6k+ZN4XvtwpGhx2S8i8PkuDKdGfxzgy7p
uisZW3ldv90oZQYMPpLOyhZkXPvtvGSzvxmEfPc8JHCRjAUVjpx5p2gOiUmi
kW2cZGxn5WK9WWIBuTIJaRWsZByy5+HHC20WUP2BsziNkYxLmj9zFU1ZwNfF
jQ7nbRK+lPmnvWuvJQic6+TYt0DC9BQ1fr1AS0ia83hq20bCcr6Hw/OMrSBZ
qd+LK4SE6yp1nq3I2UB+98WIjQAStssamOvTtIFas3cp4z4k3F58bLjf1gYG
n+XXVbiT8EbK3M7RPBsQpHr/0bciYdOkrFITMVt4ESbtWqROwuux9jNlQnaQ
MhJod5WFhKnp1EXXWHswYGPu8GIgYcYqT+9rWfYgcjxAqmgXCZcoUhRPldtD
VpjfPOcmH7apz7um2G8PBUreVq0zfFji9wpeIjlAbZK72YVWPnx/LsDvYpID
fL1lq68UzodPH1g4IVrkCMk+83XWwXxYNXUpaPudI9wttN6XHMCH5Rxn52Z6
HGGM0Wpo8zEflr/JLbK+7gjTb8x0Ku358CVLW8ERZSf4Tbh3S/4aH1buFlnc
6nMCUuf1K4f4+DBL7yzDKIcz8Lcf/GzFw4ffuNEsJAg7w97WrbsFHHz4k0bs
FRMFZxD++NJWnpEPiy+HNcjrOYMkXglVWifiQMN/7xa/doZ/iqJar34h4oBb
N1vOXHsAdhE9am7Pidg7LLFXONcFHMOyu2oTiJjkKl5xCbvA/RD32zsxRPzg
WrReSL8LuAWKWviG/fdn9+usOp0r+Hs5BYY9JmJpn99J7/VcIdme0JR+j4jp
nrYOl5MewkfN6+daxIhYxew0Pp3gBpR43sxaYSKOi3aZPVfmBiEjXQwFgkSs
uC8p3LzDDTRtNZsi+IiYKcakhJbRHQaCL6trMRAxq1/LA7/77vCj8YLm6AQB
j2ak7wxpeQCz0mnd9ZcE3NukrvpK1hMsfbdqf6QQcC3b+2FtTU9obakW/JpE
wEVizRkH7Twh4s7JkdooAr4Z43RG9LUn7HY9ZujtQ8AMFqEHYymPQaJUxpzD
iICTr5Qk1fN5geohsfuiIgRcxyIhpyz6BHSZFg7c2UfAYdosXV7yT8B+srwv
QoCAF2Wef+k8+wTi0lSPb/MSsPngPcMU4ydA5bfeHKAjYP1ursX1rCfgy1rq
FTbJi0+dK2fOkPKGd7PKoRs5vJhh6mLHdXUf6P3EckYmkxfzWGiypuj6wI/s
7gXTNF7MGJHxYsvWB7iNjTV7E3jxh1UBvukoHzAYDCAUBvHietkmlrhhH9hu
bU8wtv7Pi2g1X3bxBcUC3awOaV48LO70NqXcD173ccu8OcyLD5kIOS23+sH+
vw1ViQd5cen8DP+dcT9gvHSkzUSIF08yX0qw5/aH7um/K1ucvHjMw3OjzMof
LMVSVCQWeDD3xEfDIvEASEweHfTK58EsnhzC+wsDgaMhxtQ0hwdfujAX9vhj
IHjNqi1dzODBjj8ceDZGA8FUsYSOnMyDgzY+IkW+pyA34E15HcyD1zNIFVse
T6GZcMD1iyUPDo7JJodcDYLNIFOC3CEefO/YEM7nCoECX7sPFDEePDLLOvf3
cAgYerq6iArz4H273XOtVEOg2SHoG5GfB4vXxd14/iQEErULXq4z82D+OO0Q
3bUQOCn+S/7tD27MI1OnbzwWCq7v/G6o5nDjNZUdd9uecJCsCWNUyeDGD1Uv
yIWshMP3srjKk6ncON7gucQkSwSo5rzaezieG3MdYBO/QYkAcnjbBEcgN9a1
RObrVhFQrsvn3GPGjReIxLJ7PyNgbT0j5u5Bbqw+ri14hj0S7gRWxCWLcuOp
fa9CFQUjAe9uTvgqxI3b1RI2z0tFQsjJxedau7mxC1McY4RmJIi4n8zSYOHG
NOo94RMxkZD6J8nmUT8Xni4YGMwQjYJbLAuFSne58LDVKM/yxWgQoRDKqrS4
8OgPmlts+tGwoH6iUuEKF9bieBN73DEafEO88RFlLkz7KFGtMT4aSrjIXYIi
XDjGgqBTR40GTpLyz7+TnPhof+IVCf8YaBCJPFpnw4nL7+ds6vfEgkZ/6Eyc
CScml/c558/EwsDTp6kOepyYdnJPFTdtHMwtebGLXebEFXMHNvbLxgEB2U0E
S3Jir/F1dqOIODDUuRx9e5YDi0nicz7X44Emmnl11ZwD8+V2qE3NJUDQBfrc
dgMOzJzpV6fHlPhfL3f0c7Q5MG0k+diicCJIGK636Khy4F+ko8lGtxLhigz1
5fuDHPjtBFyJqU+EF6311yOo7LjjOCujQloSnGJ4XHrYmB2vu7SYyDo+Bwlq
KEuELjsODCckQ9hzIDUl66/eYMe+uqah5rnPYSmwmu3tv+w49YcoE9v4c8hi
/2WkcZAdv37ALx5z8wXwEm2IDjNseHJ/xrdeSIEfIjrO5fZseKY8oWM4OhX6
6SxbBCzYsK+ewMm8jFSon3AVfnyPDZcnMBb5l6XCi6zYtgvX2PC9C6E7lr2p
cJ3SLfZFng33vzlbPUNMgzpZtf6tX6zY8c09p574NIhWPn5c5RErLjPw8y/N
Twe6xsWhFmdWbKSyXHygLh0cL+b4atmy4oT6noNZHelwVYu/20qfFX+umJL+
+jMdOK23rGNVWHGDzee7zIovITAOpc8ysOITThE9QS0vwWPhAmdsGAvenj71
N24rA2adaN7sD2DB+QynOGS5MuHORqVO3mMWrGYiYTUokgkn6SmvsD0LbvNT
vmmpngm/+NnPzV5jwRnfWD4YJ2aC/b+dD5XJLNg47KreuFIWGCVrT86kMGP9
SnqKX1Q2RJRNKfXEMWMOxVJXy7xsqGt9EFsTzox3smN2zOqzQeBv9IWQx8yY
kUN5d/5KNnTqdb06os+MWaWyKDo3c+CMkLqt/T5m/MI0qttS8BXwp59aX0tm
wjEszC4M73LhfHXzleFoJjz7k3RJdDAX7nffzmkMYcJKbuzPdddzoZPW9Xac
BxN+F39UREQqD/yNympO6DLhqHnr1q3kPFg9cMTLfQ8Tzv+pEUvrlQ8d2ftY
diUy4nx6QsVh3QIwmMe77kcy4p863HtHXQvgp5zRJjWIEY9fyssqjikAYl32
bKs7I5aM84rK6CgA7V6Z9ng9RhxoaZXae64QxmjORskIM+KVJUFQFCiCX7fN
BA1yGDB75iapklgMASkspJ5UBnyva//K8IFi2D2Zx3k+gQG3ehzn41MohlP2
SzuHgxjw5z/MJoU3i8HL/+HYuhUDrl7ebn4eVwyspcHZ4dIMuPbf1iTbfSWw
j71IFpXT49LIslj1E6VgOyExGF5Aj/dq8udvXyyFuto0f4MsepwX5b7aqF8K
ejZR33bF0uPBsyIO0QGlkNz+wO+cMz1eXaM3EhsoBf5nSl8+ydPjl8Y6lbKP
yoBIavHqLaLD6t0iR0I/vwHjhbOHM3PocKhDvPny/Bsoa6ztc06lw/unn8Rb
05fDdZcCCjmCDie9mZbPkS2HyIFnvbft6DCdy8zysdBy4ErSlhg5QodvROxL
b1KtANb91I7pXFpsegQqjLorYTCZueV7Oi1mKJBKvTtbCa/5Dzd+TqTFkh7t
+Y70VaBJsK/9EESLt/WtYqnHqiCWcTMnzZIWr17+6EzzvApE5jm8b1Nosbe1
LRfBthpOVSsc/fRqF96Y3XawPVAL7Me1pXHaLsxTfKULK9fCcKkbpSJhF67I
OFUsrVcL3q/R/synu3DT4zoTo9ha+JiqxvHEYheW/FTZIsb6Fm4E6FFPHNqF
yUM8Z2TW34L1Db/4nBwa3PWmyV36B4K07Wp5ShoNFg7mNeSmw9Cfs9Sel0CD
zwjO85J5MSj/1WEoDKLBVFm7Dg0ZDMQsOcc31jRYPGrkoIUNhrfrIxffy9Dg
bTU74ZszGPYec96ucNhBRpZ8claL78A/6PvRGsMdJCjmMQ8072Fp+KJV3fUd
FMSpdf8Az3toCBAZaFDYQSdv1QgJyr8Hmy8dxV0b26hsGYe3u7yHOg+KyeyT
bdR6qYYE9PVgUD/Ssi/yLwqwkm+qP9QAF5R+mww9+Ys0PocYqJ9pAKkKbppk
h79IOIlmZPJaA/zJVTnKf/UvWmIz/K7j0QDxkS+TCdx/UaPo5uXznQ3Qec/M
hjnsD9Iepkwc9PgAKjSLnD+fbiGLijaBmolGkHBjelX0cAtFL6QqsfxpBO5V
obN2FlsofXuc347QBMNTmi5zqltobMZa3/ufJnDrKBmhMm2hJtrPHz+lNUHJ
iwdF3/w20YdzHlXLxh9BRGn76ocnG2hnZuSB9vYn6ORRkkxw3EDu6rJarORm
8KS6M9oY/efv+uX1SDfD1/CNauK/Gyg5xJHn9b1miBpbFTVm3kAOrsXwqLEZ
6ANn12jDfyPB/QOk7OgWoHYPJCgnryNKLk1tw9k2iM4m3yeGrqN5T3uZSP02
+MdDS+PHo3X0mlLJ6ebeBi/Eemkj9NfRnqHzNgmlbXDLtcNqROS/HTjxgF+s
HT4KNip5vvqFknblSytwdMAr89LRmvI1VMt5e1XtYSf0GqYIXcxaQyWhruzK
QZ1Aoxes9zVmDRUOSSddSOoEratGX37fX0OLTMbGwW87gVaR0KUgv4Y86ahp
U7RdcIfNCRcWriK1Yvkp2mddwFogl/IyZwVNlwU+VqvpBoWcfUNy8SuokSBY
EtneDQbprHveB6ygwRM0eHG0G8pjx2K/m66ghS9haJK5BwwfR4YJiq0gl90O
4fW3eqBa8+ejuLSfiP2fzA/aGz1guVKsG5y4jAaGWbO9LvVBwrHlU2ZByyj7
dBo/s2EffHwos+es2zKaVYErmS59IEZT+GXz9jKy8svUEX7ZB9/Z87Us+ZcR
32cfU5GtPrgpnqWpFr+EpkP/bOgU9sOTkqNPOSUXUUXRiM+VQwMwfKL0QiPb
IlK/Y1RcozIAp5Eso+fsAmqJyQtTvjMAv1qkfOZzF5CnllNtdPAAWE9KPGo9
tIBy9rdlWiwOgPZuQYegg/MorfkE22DNF5DyZLjNKDqLnP+cupdk/g0Eqjvj
ftDPIj47c5KT9zdg+JXU30ydQW5lFw8ZJX+DQRu5G+G5M4ghS7YhpPMbBOnp
X9ktN4O4D/PfYlYchKnTVf9SVKaRkdADzzc8Q5C6ZS2noT+FKv2JXyN6hyHk
+AkHGZUpVIPUXNOXh8HFia6IV3QKpdsveHZwjoDGbMKRz1QqQo1/JD3URuDv
10YJA1sq4nzeMCmCR+BO9X4hx0eTiDz3y+nu7e9AeNjLFps0jiY+pGcvaY3C
750NnkW3cdR3OmVvnvkoDPsL7Va9M44WJDuLXdxGISfa8sDm7nE0eocu4MKL
UThTRKN0N3YM7bU9+6OeOgoWU5K24s9G0Z53TCLK7mPgmceaZsMxgqwg/G5H
yTioVd18LdQ6jDxsWU+vNI4DsSm1qitoGF3j3iw6/G0cXo0d61ZgHkaMdd5v
vtJNQC+/Ed027RBqcGP2kNeaAEpgjUnY76+owERqaGx7Aj4bW1MKx/tR4aF/
PHoNqFA3pHm8PKsfneytcZN5QIUsLYVzby360U2FM4OpwVS4r7qt17LYh35p
/ktC5VTglox4NrXVi6TuNAevcEyB2krpbyFiD7pjRku9jKfAmW49VPhpO5pV
so27pTAN59ZQtjRXOzotrrLX7PI08E4FvlOKaUNlX8XjQ02moaBZYO12WivS
ocy3CsVOA/XZGd3IqmZ0bVEjRuf3NGjv96fQzTSiqHHbM+fezYCLGyXsU0wd
YlsDTXeTOdBYWOovzHqLxr0PXeHwmgNxwwqh2Ipa5FKdSalMnIM+tXPFhl+q
UTnLw17tzjmQ57/bu7W3Avk1nPf9eHoehu1EFXRVC1FQ9JjIA4EFCL1V1Chh
+Rp96i6kTTu2AKdBSXstOA9JamYqUa8tQCLnLfewjmzULf7hIA5eAK3XQe+w
VioisXH6lW0vACtFOktgORmFl5asle1ZBPMN1U+lRxNQUfCNp50nFkE03oOL
WvMMjfmeeHzbaRFoOyRNtreDUaVnELEpYhHe2hjkyfj7Ig3/DTnNgkVY3i0x
/kHADUmZq62utixCf0DjZqe2HTpbGehb/n0R/gdbSHok
        "]], LineBox[CompressedData["
1:eJwtxXssFHAcAPDzvBg3z/tx3kR+q7X+kHTM75uJJnoivYUmeTUrr9JoXtfI
bayGLSkUbqmopTnpsnN/RE/KKinN5BG643K3o8z3j88+bnHpB07rczgcv/9W
HyqRa97EpLPS1Vzm2NfhpLb6PaUs8a60WHhqjmW1Reyetqtll1KPxPV9mmPB
Naza8rKENSxV2n/vm2ctFX7QsEXKFiy5pTZNSmbYW9fF9elm+X8r1flyJTv5
13h78rbnzOyba+LMuJJdfTBpZ1/Xw9wlwhD5BhULtO+0HG2UsX0haYbZzSrW
NBllkNYuZy25g/mfJQssu7xiXDQwwE6M3cm53a5m15IKhmKvfGR9HZC85YWW
mavC/SX7x5hxbpPT0D09GD0v98ksnGLnhPECf5kR/O6MkGUp5tnaJtBUUh+b
IFpga5uD52KrdXbtErPSDpp09VvAyCMXqf8ZHUsfrhhx6rCCqBujpVNiDm4D
NxvLpOHX9XE+GB5NnTHKMcTtYCC2+e6BQmNcAI/NBcfVKetwR/CqcZvghpvi
zqDJLNS1HjSDPH/Z8iB1hSmNA++eHw8ydebcSEc3uJVY8sHBwwJ3B/GOV2X2
npa4B/DSW4Ne2lrh66E7+Kn0icAa9wRd6knfaJ4N7gV63HfVG3U2uBf47sqQ
hXH4uDdovkgmbP/wcW8ITlGIIxb5uDeUa8f8ijR83BtcBQ4ilT7BKYQeEtH3
1gSnUPX29FnxVoJT2Cx3njbNITiF7ChhVVAewSm8+BkVkFtAcAqRBuVlv0QE
p3ARtJsUNQSnoHj2MbWoi+AUrMKUttIeglM4NszrVvUSnMKseicvoZ/gFPhb
O+4HjRCcQmzv6+jcHwSn0HxwavnhOMEpBGS473WbJTiFYr1AdYyS4BTeiA/X
idUEpyBwvRCq0BKcQnybeHZlheAU/gG7/JdU
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$4906#1"]& ], {}}, {{}, {}}, {{}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-6, 6}, {-5, 20}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.947901705611591*^9, 3.9479017276383*^9}, 
   3.9479023376543093`*^9, 3.947902505755988*^9, 3.947902546138979*^9, {
   3.948350380149469*^9, 3.948350401246057*^9}, 3.9484100473874645`*^9, 
   3.948410288126316*^9, 3.9484103230321484`*^9, 3.9484104679901643`*^9, 
   3.9484105361540537`*^9, 3.948411032161915*^9, 3.948413801190796*^9, {
   3.9484138383545055`*^9, 3.948413844682886*^9}, 3.949901549933652*^9, 
   3.9502584764191513`*^9, 3.950258639922147*^9, 3.950260605385827*^9, 
   3.9502608301162066`*^9, 3.9507589578117666`*^9, 3.950759213677661*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"19b62ef4-26d0-4774-9c08-1bd67cf58726"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0, 1, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwtlnc413/Uxr/23nxFtqhEVkqk825TKg0ju6wiMyskIzMre5WRTSEiI593
EUJWMkokIiN7hPD8nut5zj/nuq/7uu7/zuvcorfsr1pQkkiktxQk0v9us+Ko
uZ0dXjyq6Hf66iVz4N7kl1T9x4u3WN9RP7hpDg1nsw1d//Ji2/fBg1XO5iA5
VPVxZp4XV33h4LVOMYcp5tHnAyO8eKbgYHLOpDk4WCvpldXz4unH1sJpIRbg
LfEVWwbxYmZfljamfkuQdTRfy/DnxQwN/j0pfyzhR+2szPeHvJiCxeIIorKC
k9epUq6582Ibn2s3Gg9aAY2/tAu6w4trv52Vbgm0grAf3vv5L/BiQSWZ4+9U
bkNyinj0J1ZebG/jdnfj1R0okEvKqGTkxWG77zef+3QHqj+wlmbQ8uJXLX1s
JRN34OvceofLNhlrZv9r7xKwBv7TnSxCs2RMLaXBZxRsDSkzXiF2n8hY4dGB
yEJzG0hV6/VhCyPjujcGT5YUbKGo+0LUehAZ2+f0z3zRsoVaq3dpo/5k3F56
eKjXzhYGnxTVVXqS8XrazM6hQlsQHPf7Z2JDxpYpOWUWEnbwLELWveQ8Ga/F
O0yVC9tD2nCw/RUGMh7PHJ9zj3cAUyb6Dh8aMqat8va7muMAYkeCDpZQkPEr
FSkV1QoHyIkI+MO6wYNt6wuvqvQ6wEs1P5u2KR687+8Snic7Qm2Kp9W5Nh7s
PBMUcCHFEb7q2pmoRfLgY3tmlcVLnCDV/0/d3cc8WD19PnT7nRMYF98VSg3i
wQpO0zNTn53gJ63N942HPFhRm11sbc0JJl9bGbxx4MGa1naCw+ge/OW6qat4
lQejbrG5zS/3gNx57fJ+Hh7M0DNNM8LiAnzte/tsOHjwaw/SbJKoCwi0bRq/
ZOHBHy/FX7ZQcgHR5ud2irQ8WHIhokHRyAWk8VK42ho3Dr51xrj0hQucLIlp
uzLAjYN0tVuPX3UF+6jPGh5PubFfRHKPaIEbOEXkdtUmcWOyu2SlJnYD5zDP
Gztx3Nj1aqxRWK8beASL33kU8V+e/eqp81TuEOhzLzjiITeW9f+b8t7IHVId
uJoyb3JjqpC2oQryfWjWuna6VYIbn7A6ho8leYBUImd2rSg3Toh1mz5d7gFh
w100LwW5sYpQSuTtDg/QstNqiuLhxnRxFq8oaT2h//HF8zo03JgxoNU1wNkT
fjee0xoZ48IjWZk733W8gF7tmOHacy7c03RePV/eG6wfbdb+TuPCtUzvh/S0
vKGttVrwawoXLpFoydpr7w1R+keHa2O4sHbcvePiL7xhl/vhW37+XJjmTvje
eKmHsK9M7jaLGRdOvfwqpZ7HB9T3SziLi3HhOoZ9CkjcFwzpZvfoC3HhCD2G
Lh9FX3D4VfElip8Lz8k9Heg85QsJGepHtjm58O3Bm7fSzH1hnO/uRj8VFzbp
Zptby/GFR4xlPhG/OLHq6Qr6rIN+8G4aha/ncWKaiQsd1877Q89HhuNy2ZyY
444WY5qhP/zO7Z61zODEtFFZzzbt/IHd3FyrJ4kTf1jm55mM8QfTwSCu4lBO
XC/fxJAw5A/bbe1J5nf/88V0Wi66PQKVl4Y5HbKceEjy3tu0igB48YVd7vUB
TrzfQvjeQlsAiGw1VCXv5cRlf6b49EcDgFZT5pOFMCf+Ra+Z5MAeCN2TW0ub
rJz4p5f3erlNIFhLpJ3YN8uB2ceab5VIBkFy6sigTxEHZvBmERUpDgaWhjhL
yzwOrHluJuJhczD4TGvMX8jiwE6/HTnWR4LBUuUVFW8qBw5dbyZUeEJAod9P
6sVjDryWRa7c9AqBFq497gPWHPhxXC5v2JVQ2Ai15FLYz4FvHv6Oi9jC4OUj
+w9SEhx4eJpxZutAGNzydncTF+XAQrs8C2zUw6DFMfQbNx8HlqxLuP7UNwyS
9V4+X6PnwHwJemGGK2FwVHJV8e1vdswhV2di/jMc3N8FXFfPY8crJ3Y87T5H
gnRNBO2JLHZ8X/2cQthSJPwoT3hzNJ0dJ5o+3feLIQrU8/IFDiSyY7Y9TJLX
paKAN/LTGEswOza0Jm6v2URBhSGPy2crdjzLzV1+czEKVtay4oz3suPzo3qC
x5mjQT+4MiFVnB1PCOWHqwhGA97VkvRVmB23ayRtnD0YDWFH557q7GLHbnQJ
tFFa0SDmeTTnEgM7Jp3/HDkWFw3p/1JsH/Sy4cmX/YNZ4jGgyzBbrGbMhods
RjgWLsSCmBRXeZUOGx75TdJlMomF2fPKb5Qus2EdltfxR5xi4VGYH5ZBbJjy
QbJGY2IsvGLj7RIUY8Nxd7gM6sZjgZWMFrd+seJDvcmX9wXGQYNY9KE6W1Zc
4Zy3YfI5Hi71hk8lWLBi3oovLkVT8dAfEpLuaMSKKX/trmKnTICZeR9miYus
uHJmz7qIfAJwEfZjj6VZsc/oGrNZVALcMrgYe2OaBUtI49P+1xKBFEu/vHyb
BfMUdGhMzCRB6DnqgnZTFkyfHVBnRJf837/cMcnTY8GU0byH50STYd+ttVYD
dRa8Sj6UaqabDJflxp+/38uC347B5bj6ZHjWVn8tapwZdxxhpFXKSAFVmodl
B8yZ8Zpbq4W801PYNx7OEGXIjIMjuVIh4imQm1JNlq8z40eGluG3C57CfHA1
09szzDj9tzgd0+hTyGFeNbu0lxm/cOWTjNN+BpzcttyOU0z4l0jWtx5Ig99i
Bi4VDkx4qiKpYyg2HXqprFv57zDhR0b8Rwuz0qF+zF304U0mXJFEWxJYng7P
cuI/nbvKhG+eC9+x7kmHa1LdEgOKTLj39anqKe4MqJPX6N1cZcROr2/e+5yY
AbHoyJETDxhxuWlAYFlRJlA1zn1vdWHEZicWSvfUZYLThbxHOnaMOKn+896c
jky4osPXbWPCiPsqJ2S/LmYC693Nu/EnGHGDbZ8xvcpzCE4gMqdpGLHyvajP
oa3PwWv2HGt8BAPenlTdStjMgul7pNciQQy4iEaVRZ4tG/TX3xgUPmTAGhb7
bAbFsuEotVQ+dmDAnwKQtvX5bFjlYz49fZUBZ31j+GCenA0OZzrvI14GbB5x
xWhULQfMUvV+TaXRY5M31FIBMbkQVT6h9jmBHrOolLlbF+ZCXZtrfE0kPd7J
jduxqs8F/q3Yc2EP6TEtC9pVtJQLnUZd+TIm9JjxYI6UgXYeHBc+b+cgRI+f
WcZ0WwvmA1+m6tpKKh2OY6B3o3lXAGerWy4PxdLh6UWypvhgATh338hrDKPD
ah7MTw3XCqCT0v1Gghcdfpd4SEzsYCEEmpXXKBvS4Zg/d9s2UwtheY+Mj+du
Oly0eCme0qcIOnKFGCiSaXERNVflAcOXYPoHUzhH0+JFA3aBEfeXsKhgtjEe
SotHNQtzSuNeAndd7nSbJy2WTvCJyep4CXo9cu2JRrQ42Nomved0MfwknYqR
E6XFS/OCoMJfAqs3rARN82gwc/YG+Q13KQSlMZA/p9Pgm10iS0N7SmHXr0LW
s0k0uM3rCA+PUimoOszvHAilwX3/6C2KtUvBJ/D+zzUbGly9sN3yNKEUGMse
50bK0uDaM20pdkKvQIi5RJ6ooMZl0eXx55XLwG5s32DkS2osoMVXtH2hDOpq
MwJNc6hxYYzncqNJGRjZxnyjiKfGg6fEHGODyiC13TXgtAs1Xl6hNpPoLwO+
J2oDHxWp8XNzgzfyD8qBm9zq01NChc93i8mE970G89lTB7LzqHC4Y+LthT+v
obyx9otLOhUWmfRNvEtdAdfcXkrxRlHhlNeTinnyFRDd/6Tnhj0VpnKbWjgc
XgFsKXr7hmWo8PUoocwm9UpgFBnvmCygxJYyUGnW/QYGU+lbf2RSYpqXB9ON
p9/AC74DjX3JlFjaq73IiboKtLgcaj+EUuJtE5v48cNVEE+7kZdhTYmXLza7
kJ5WgdgfFr8bUpTY764dG5ddNahWKx36mE+B16e3He321ALzET1ZnEGBOUov
d2FUC0NlHlKVSRS4Mku1VNaoFvxeECLZIRS46WGdhVl8LTSna7D43qHA0h/f
tEowvoXrQUbjyvspMO93juNya2/h7vWAxLw8Eu563eQp+5uAjO1qRakMEhZ9
zHmLnQpDb958e2ESCR8X/MPJy4kBbRnQFIeS8Li8fcclOQzcOQpOr++SsGTM
8N47thjerg1feC9Hwtsa9qLaUxgEDrtsVzruEGbWPAo2c+8gMPTHoZpbO4Sg
hNcfIL2H+aELNnXXdohQVh3nPRzvoSFIrL9BaYc4qlsjLKj4HmwHOkq71reJ
8gUc2e72Huq8pCymfbeJNs0aMlDXg2n9cKtQ9BYRZKPYVL+/Ac6p/bX47rtF
XOoLMz1/vAEOVrKTUh23CNEU0vCvqw3wr+DEIb4rW8Q8060fBl4NkBj9PJWL
fYtoFN+4eLazATpvWtnSR/wj9IakxvZ6fYATpDnWxZBN4k7lJ/6asUbY50GX
X3J/k4idTVdj+NcI7MvCp+zvbBKZ26N89lxNMDSh5Tajvkn8nLpr4neyCTw6
Xg2P020STZR9zR8zmuDVM9eSbwEbxIfTXlUL5s0gprZ95YPvOrEzNeyqt/0R
OjnUpJOc1gnP8/I6jLwt4D3uSWtr9p9vHFD4WbYFvkauV3OfWSdSw5w4Xtxs
gZify+Lm9OuEo3spPGhsAerg6RXKyL+EoEg/OTe2Fca7+5NQ6hohVUCqbTj1
CWJzeZ25w9eIP94OctEmn+Ckl86l3w/WiBdSb1g9PD/BM4keyiiTNWL397O2
SWWfQNe9w2ZY7D8dPObKJ9EOzYKNat75q0QKRZGsEksH5N8uG6mpWCFqWW8s
a9zvhJ5bacIXclaIV+HuzCi0E0hGj42+xq0Qxd9lU86ldILOFbOBv84rxByd
ufnjt51AqcLVpaS4QnhTjWdMUHaBPtM9XFy8TGiUKk5QPukCxpcKac/zlojJ
8uCHGjXdoJQn9F0hcYlo5BJ8Fd3eDaaZjLvfBy0Rg8okPDfSDRXxP+N/WC4R
swMRxC/6z3DrYXSEoMQS4bbLMbJe9zNUay0+SMhYJJhPZn/QW/8M1kulho+T
F4j+IcZcH80vkHR4QdUqdIHIPZbBR3/rCzTfl9t9ymOBmD4Bl7PdvoAEqXhg
48YCYROQbSD6/Av8YC7SseZbIHj6/C3FNr+AtmSOlkbiPDEZ/m/doLgXfF8d
CmGVniMqS4b9L+/vhyHlsnONTHPEeX2z0poT/XCMkKf1np4lWuMKI5B+P6y2
HvT/UzBLeOvcq4193A93f+170LZ/lsgT+ZR9Z64f9HYJOobu/UNktCgzDdYM
wEFvmhu04tOEyz/Vmym3vwF/dWfCb+ppgsf+Nvme3zegWU3pbRmfIjzKL+w3
S/0Gg7YK1yMLpgiaHPmGsM5vEGpkcnmXwhTBfoBPl15lECaOVZ2ROjFJmAm7
er/m+A7pm3cVLplMEG8Cub9G9QxB2BFlR7kTE0QNoeGeuTAEbveoSjjFJ4hM
h1nvDtZhuDSdJNM3Pk4Qjf+kvTSGYetr4z5Tu3GC9WnDLzE8DPrVIsJOD34R
vDOr94xv/ACu+z1M8SmjxNiHzNx5nRH4u7POMecxSnw5liZQeHsEhgKFd6nr
jxKz0p2lbh4jkBdrvWdj1ygxok8VdO7ZCBwvIakZx/8kBOxO/a4fH4E7E9J2
kk9GiN3v6MSQ50/wLmTMsGUZJmwg0rjj1ShoVGm/EG4bIrzsGI8tNY4Cd1N6
VVfoEHGVfaPkwLdRyP95uFuJfoigrfN7/ZVqDHr4zKi2Kb8TDR70Xoo6YyAV
XGMR8fcr8dLi4Pef22PQZ35Xqni0lyjef9Krx3Qc6r5rHanI6SWO9tR4yLmO
Q46O0um3d3oJbaXjg+mPx8FZfduode4Lsap1hkxUjAO7dNSTic0e4qB+y+Ml
lgnQWCr7K8z9mdC3ohy/iCfAhWotXDSknZhWs0vQVZqE0ytErixbO3FM8oSA
1cVJ4JwIfqcW94ko/yqZGG4xCS9b+FduZLQRBlJ/2oTjJ2H8yXHD6KoW4urc
pTiDv5OgJxIoRTXVSMSM2h0//W4K3DykIj7G1RFMK6DlaTEDl2bne4tz3hKj
fvsvs/jMgOStSuH4ylrCrTpb6k3yDHzROF16a6CaqGC436PXOQOKfMY9mwKV
REDD2UfNx/7AkL24kqF6MREa+1PMlX8WOouEhq9ftSQeMes4vZ6cA9L/j117
1BUK0jzkH8x0Y652Ape952g/cM7D94E7xRmXgsEpRPHOhNw8uBVfvDCzKwVe
hHzl6bWdh9PJkMThXQQhd01rLKfmoSBSGWXJvQVTfEX/9ewCUDek1dIdqgOZ
RBemKdIimPylPWpzhIBeT11lea5FCC2Z2sWXhuHTspvW2pFFOM5XxfEj+z0w
FWqGmfstQs6UNpVdWSPILQxS9vAvgXt45HhIeztQj1T6PdFfhuy99VmqWh3w
d53XX9V+Gbrfrd7609UBGZcFvTf8l4G8+dI+z7oTaMxNqipfLIODLHmGya4L
VLtcn8lTroBE4thYt/NnkC9vUD5cvAIRd3x7Tf36gP9s2KYw/xoEt1K8Hqvr
g8YBU2tKuTXwk/GLub3ZB+qOprHrZ9bAbcFPy8G5H8ZEfW9LOq2B6f1HLQ8t
B0Dc9p2qV+sayIcE1T07/w2ORlCLSPn9hZ688JxBzmHosvhuLkzagHZG1gDT
y//d4QrfG7xrA5rvRpiNPR6G+4/1Te/Lb4Bx4jl2V8of0JRqQS9vtgHXDNU/
PfD8AbrjRZK1TRtwbEzjXLjtCHDUcd3SjtsElmVN1aIro+B07YLn4VNbwP5V
wczNaRQ0NeO+nby5Bdx41+OTMaPwCTrJdg+3gD9s7Gt/zyjc6F1JFa3dgn17
vDxo9Mag+cRBK9KRbTh5vbDK2PgXkCJu3KhS2AHXcgZlDpsJoMn9ftc3g4Tu
J8+ZDD6eANsHSifjXpGQl8+XoNyiCfga2JxeXU9C/poZfWqzE1DdWXVCZZyE
osaU3awdf0OKYhgbmzQFKuS+XVHvNglj9TXbQjUU6Idz4yHXR9MQw9epZjRB
iQabafjzsqbBVvNIvs0GJeoXOLMz0DANe/Dt8+EsVKizof6jGs0MWA6UeTIe
okKY+50xTeAMhN1crZ31pUJp5TXBsUF/wKEuj8tBlBoZL5cMvgqdA4VgW4Zf
9jRIX33+3VjBHJRUeCv7BtAg7VTZXHLrHER5m8spptAgSbE+5bc083BQN6W7
v5EGCbVoU4menQdvaY6LMsK0iJX/WuLvxnmQEuxoZO2hRbNVF9+7NS8Ax0ua
We3L9EiCocnZs28B+nt3Z8lZ0iNDPbT34fgCJAwm9Io8oEctqwphgdSL4FuV
TnGykB5lK+7SiUOLQH6hWhBCz4AMX/ycfPVmEbTLWHRREwNqSXfjmM1bAl/F
iophbSZEMT9fv1C5BIlK5vHR9kxIGaxdVxqXIEebPs0ohAnlfDf89m9sCdh7
xAKPvWVCvvwns5lEl4Fd5Ye0iCQzUo5lPro/aRnKJtNkYv4xo5ygDFPzkBWI
u87J2VHLikxLbYuLklaAcYC/WnKQFfF/O7q9nL8CnI4lus82WVHEwe6UgJYV
aNTcXvmjwoZcv1D25TCtwj/WLl3OGjZ0Vtz84mT4Kshkn3dqNGVH43WSKnbR
a8Co+mROwJkDpf9eDK7IXINDoQXrvwM4kD4n0bf9ag3i2Vz3NyVwoHYLXZfI
z2twmUv1dHUNB6pgDi4p4f4LkkpnHB9Qc6JA/UnJpfi/oPUk6nhwEieSWC3k
ck9Zh53g83rK3Vxo14crYoUF6/Cvuy6D5xcXYoxdkxuqWgdpfdNh6r9caF7+
1KXT/evwIT/Wk0+IG9Xafg1m59mAYskj/II23Oj6L/rtvIgNCGhWU3lKz4P8
eix+D/huQplAeuv2FTJyec60xvxkE26W1qwfsyKj206lNCh9EzI2H5lEepHR
JfYtsZy6TVCxkBJ2zCUjPs1YI6fNTfjQxRAhtU1GJfXvuxld/kEer93NwGJe
NPRK+K3q7S0QON7kYy/Ghz4pO0mJuW2Bf2h04M+jfKi2riGBPnALjBvG79pc
4UMpLXecvjzfgkHpEWnChw/p/Szbaz+8BYKnL1U7/OBDXRzq0Zk621BLv3OB
NYsfNTg4WDGc2YEHW42mH48JoLLV9z1z13Zg8y+nt6iuAMr04jnZe2sHJvZf
lo12FEC+wdUCz312YGbEIv9tjgA6nk7dfax2B77uGPsDpyAatNIUesNHQjJP
b2hRzQoi7YQfwdNRJHQ0v31asUoYRZwrY6FIIqGYEtuiqwPCqHktIJr8HzdW
d6ctPlkXRip6B1JPlJJQQFyzxlFBESTE51qc0EVC8fdXx4aNRdDvZKbeU5wU
KEKupeHaLxHk8eyweGoMBcrMjq27vCOKyi4x5JWmUCAb9bqCYA4xNLP9Tbrp
OQWamNrH2CMuhoxNfA8vllEgHYNw20x1MXRKpE1DvYcCuYZc7hWOEUPMmTcd
lrkpUY3zm5kXB8TRs+ywt5rxlMi2elg4w2YPct6nmdn3lBLl/cmZnvLegzQK
mYJuZVMinhOuc2ej96DlklAt93JKtOcq15hS1R50oTZ49Hk3JbIiiVst0Emg
v92PGDZZqdDTwcyjs3kS6ArpgXZ+EBUyHz5T/GBdEkn6H1M5FEmF6K7v5ZVn
24v+0fwTIuKpkCnZfvvvnr0oj8nzd082FYLi14mNWnvRNvm+J6mBCo2ewUIG
+XtRgYxLhi6JGunrfXjvYbwPURvY/qG5T41sKQR+iA3sR7sv6Igo+lKj6ciS
JylL+5GCKlwzDaFG5deNTWRZpZDpbo6q6iRqxFMhW5d3Sgq9/Vb+yL6aGllN
sSX/KpZCrob/dg9sUiMurr6i9PADaNLo8fkibxpUl6xhNmksg0iXnB8MBP7H
xezppC0vGbTruFEJbSQNEqh0eCaXIoPOCsmSb6bRoAlL58ilPhmUOdQ9woNp
0HjWi7D5qweRoQn//YcUtOiZO5fK6CVZ1G6an3v1ES1aQPJqLcVyyE/8ocrK
4/+0FVtDHSGHlMavf0qIoUU41jLsfYccSrUhLQ1m0qJK6ondf+fkkI2r7nGr
d7RIxZCjW0BeHtGH0Xzx3KZFbqzReTcq5NHJypuU2e50yO8FNmP+pIBW7x+J
O+dDh/j0kpxohxVQ/jGWfVNBdOiYYH0px4ICYn//5qJsAh16ZtBHacijiIbb
2JKqXtOhrCou/M5YEXn9fCvbvkiHjHM+GPxYVkSneripxdbo0P+1qkPofwAs
TGbM
        "]]},
      Annotation[#, "Charting`Private`Tag$4956#1"]& ], 
     TagBox[
      {RGBColor[1, 0.5, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwtz38s1HEcx/E7cXK5G+fcpw6XH5GPmmWLWdT3nSnNWPOrn6rLj0JMsyKa
No2w/Li1kmj9WMWhRSXr1/l+Q7qWUvIjm0ldM3aV6si4jmr3fm3PPf5+uSVk
Ridb8Hi84H/917ylnFkp11uvsOHXCFAJp7Bt8WPbLFE7Tug63jvZaMFJoefq
+zgRlx5bVK1W87gPaqFfVJQNp+z8+EpxzsSateLcNy5EPS+YY83yuYaU+5+e
tM2w0e8OdeZkGNk0w934szU/2f7xxEcyfwPre8pqt8BDz8b/Ed6z3TrOOuT2
L6uq1bHV2hv7W0Z62KGkdJ9m3SAbHbC66XpgH5OT51Px8kI7m3Dw+OXyPROM
9E1OqkA38sT85wfTWBkIN9dpmBl76xJpnYGpSC0YVJ4eYl60wpF1z4yMaDoi
6HaUjhHk1bkMqvkwdqx7fXahnjm6IVEe1GEF3x9FduRofzJmbaCu+LoyqXSG
MSsCz99NDidq5xiJccDm6Ws7GL23UhOUYmIyhytHXVolEHdxrESv4qFSuHKr
TBNRZYHKwHJvxjerXEt0ObxRNtRHFwpQOTwQyffNpi9FncGrxm3COkKIKmA+
u9DUFGML+UEdCwPUFfTzTmJ1oBiyTSLrWGc3uHa4uN/Jww51B9XmnrIVnvao
B4gzm0I6HSXoKmgPfahpkzugnmDKOBCwQyxFvYBv3XdpjUmKekHAtqyOcJ4M
9Yb5kdsTjr9kqDeEpmtVkb9lqDeUG3WBRfMy1Btc5U6l0xYEpRC2s5S+dyAo
hfPvktNU/gSl4Nut+CrMJSiFE3EbzofkE5TCsy9xwXkFBKUQu6S8bLKUoBRO
gnGttoagFLSPhzKKnhKUgiTc4KjhCEohfljcPt1FUApTs1vESa8JSkHm33on
ZJSgFJRdvTvyPhOUQkOMfuHuOEEpBGe5b3ebIiiFM/xNs7sMBKXwVrX7qmqW
oBTkrsfDtEaCUkhsVk0tLhKUwl+JIK1A
        "]]},
      Annotation[#, "Charting`Private`Tag$4956#2"]& ], 
     TagBox[
      {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVlXc4FXwfh2XvdY5zoiREOslMQ+nLU0+hkpYUInvPREiys7NXGVkhOzu/
XxFl71RG1pFNSCje5/3rvj7XfV2ff29hQ7trJrQ0NDSyu2ho/k+jwojFnR0y
Hpf3PndNwxiIWwLip/6Q8V/Od/SP7hlDw/lM3Qe/ydjmfeBg1X1jEB+u+jS3
RMZVfTxkyyRjmGEff/lllIzncqUSs6aNwd5SQbu0noxngy2FUp6agKfYV2wa
QMbsTzha2QZMQdrBeD3Nh4xZGnx6k+ZN4XvtwpGhx2S8i8PkuDKdGfxzgy7p
uisZW3ldv90oZQYMPpLOyhZkXPvtvGSzvxmEfPc8JHCRjAUVjpx5p2gOiUmi
kW2cZGxn5WK9WWIBuTIJaRWsZByy5+HHC20WUP2BsziNkYxLmj9zFU1ZwNfF
jQ7nbRK+lPmnvWuvJQic6+TYt0DC9BQ1fr1AS0ia83hq20bCcr6Hw/OMrSBZ
qd+LK4SE6yp1nq3I2UB+98WIjQAStssamOvTtIFas3cp4z4k3F58bLjf1gYG
n+XXVbiT8EbK3M7RPBsQpHr/0bciYdOkrFITMVt4ESbtWqROwuux9jNlQnaQ
MhJod5WFhKnp1EXXWHswYGPu8GIgYcYqT+9rWfYgcjxAqmgXCZcoUhRPldtD
VpjfPOcmH7apz7um2G8PBUreVq0zfFji9wpeIjlAbZK72YVWPnx/LsDvYpID
fL1lq68UzodPH1g4IVrkCMk+83XWwXxYNXUpaPudI9wttN6XHMCH5Rxn52Z6
HGGM0Wpo8zEflr/JLbK+7gjTb8x0Ku358CVLW8ERZSf4Tbh3S/4aH1buFlnc
6nMCUuf1K4f4+DBL7yzDKIcz8Lcf/GzFw4ffuNEsJAg7w97WrbsFHHz4k0bs
FRMFZxD++NJWnpEPiy+HNcjrOYMkXglVWifiQMN/7xa/doZ/iqJar34h4oBb
N1vOXHsAdhE9am7Pidg7LLFXONcFHMOyu2oTiJjkKl5xCbvA/RD32zsxRPzg
WrReSL8LuAWKWviG/fdn9+usOp0r+Hs5BYY9JmJpn99J7/VcIdme0JR+j4jp
nrYOl5MewkfN6+daxIhYxew0Pp3gBpR43sxaYSKOi3aZPVfmBiEjXQwFgkSs
uC8p3LzDDTRtNZsi+IiYKcakhJbRHQaCL6trMRAxq1/LA7/77vCj8YLm6AQB
j2ak7wxpeQCz0mnd9ZcE3NukrvpK1hMsfbdqf6QQcC3b+2FtTU9obakW/JpE
wEVizRkH7Twh4s7JkdooAr4Z43RG9LUn7HY9ZujtQ8AMFqEHYymPQaJUxpzD
iICTr5Qk1fN5geohsfuiIgRcxyIhpyz6BHSZFg7c2UfAYdosXV7yT8B+srwv
QoCAF2Wef+k8+wTi0lSPb/MSsPngPcMU4ydA5bfeHKAjYP1ursX1rCfgy1rq
FTbJi0+dK2fOkPKGd7PKoRs5vJhh6mLHdXUf6P3EckYmkxfzWGiypuj6wI/s
7gXTNF7MGJHxYsvWB7iNjTV7E3jxh1UBvukoHzAYDCAUBvHietkmlrhhH9hu
bU8wtv7Pi2g1X3bxBcUC3awOaV48LO70NqXcD173ccu8OcyLD5kIOS23+sH+
vw1ViQd5cen8DP+dcT9gvHSkzUSIF08yX0qw5/aH7um/K1ucvHjMw3OjzMof
LMVSVCQWeDD3xEfDIvEASEweHfTK58EsnhzC+wsDgaMhxtQ0hwdfujAX9vhj
IHjNqi1dzODBjj8ceDZGA8FUsYSOnMyDgzY+IkW+pyA34E15HcyD1zNIFVse
T6GZcMD1iyUPDo7JJodcDYLNIFOC3CEefO/YEM7nCoECX7sPFDEePDLLOvf3
cAgYerq6iArz4H273XOtVEOg2SHoG5GfB4vXxd14/iQEErULXq4z82D+OO0Q
3bUQOCn+S/7tD27MI1OnbzwWCq7v/G6o5nDjNZUdd9uecJCsCWNUyeDGD1Uv
yIWshMP3srjKk6ncON7gucQkSwSo5rzaezieG3MdYBO/QYkAcnjbBEcgN9a1
RObrVhFQrsvn3GPGjReIxLJ7PyNgbT0j5u5Bbqw+ri14hj0S7gRWxCWLcuOp
fa9CFQUjAe9uTvgqxI3b1RI2z0tFQsjJxedau7mxC1McY4RmJIi4n8zSYOHG
NOo94RMxkZD6J8nmUT8Xni4YGMwQjYJbLAuFSne58LDVKM/yxWgQoRDKqrS4
8OgPmlts+tGwoH6iUuEKF9bieBN73DEafEO88RFlLkz7KFGtMT4aSrjIXYIi
XDjGgqBTR40GTpLyz7+TnPhof+IVCf8YaBCJPFpnw4nL7+ds6vfEgkZ/6Eyc
CScml/c558/EwsDTp6kOepyYdnJPFTdtHMwtebGLXebEFXMHNvbLxgEB2U0E
S3Jir/F1dqOIODDUuRx9e5YDi0nicz7X44Emmnl11ZwD8+V2qE3NJUDQBfrc
dgMOzJzpV6fHlPhfL3f0c7Q5MG0k+diicCJIGK636Khy4F+ko8lGtxLhigz1
5fuDHPjtBFyJqU+EF6311yOo7LjjOCujQloSnGJ4XHrYmB2vu7SYyDo+Bwlq
KEuELjsODCckQ9hzIDUl66/eYMe+uqah5rnPYSmwmu3tv+w49YcoE9v4c8hi
/2WkcZAdv37ALx5z8wXwEm2IDjNseHJ/xrdeSIEfIjrO5fZseKY8oWM4OhX6
6SxbBCzYsK+ewMm8jFSon3AVfnyPDZcnMBb5l6XCi6zYtgvX2PC9C6E7lr2p
cJ3SLfZFng33vzlbPUNMgzpZtf6tX6zY8c09p574NIhWPn5c5RErLjPw8y/N
Twe6xsWhFmdWbKSyXHygLh0cL+b4atmy4oT6noNZHelwVYu/20qfFX+umJL+
+jMdOK23rGNVWHGDzee7zIovITAOpc8ysOITThE9QS0vwWPhAmdsGAvenj71
N24rA2adaN7sD2DB+QynOGS5MuHORqVO3mMWrGYiYTUokgkn6SmvsD0LbvNT
vmmpngm/+NnPzV5jwRnfWD4YJ2aC/b+dD5XJLNg47KreuFIWGCVrT86kMGP9
SnqKX1Q2RJRNKfXEMWMOxVJXy7xsqGt9EFsTzox3smN2zOqzQeBv9IWQx8yY
kUN5d/5KNnTqdb06os+MWaWyKDo3c+CMkLqt/T5m/MI0qttS8BXwp59aX0tm
wjEszC4M73LhfHXzleFoJjz7k3RJdDAX7nffzmkMYcJKbuzPdddzoZPW9Xac
BxN+F39UREQqD/yNympO6DLhqHnr1q3kPFg9cMTLfQ8Tzv+pEUvrlQ8d2ftY
diUy4nx6QsVh3QIwmMe77kcy4p863HtHXQvgp5zRJjWIEY9fyssqjikAYl32
bKs7I5aM84rK6CgA7V6Z9ng9RhxoaZXae64QxmjORskIM+KVJUFQFCiCX7fN
BA1yGDB75iapklgMASkspJ5UBnyva//K8IFi2D2Zx3k+gQG3ehzn41MohlP2
SzuHgxjw5z/MJoU3i8HL/+HYuhUDrl7ebn4eVwyspcHZ4dIMuPbf1iTbfSWw
j71IFpXT49LIslj1E6VgOyExGF5Aj/dq8udvXyyFuto0f4MsepwX5b7aqF8K
ejZR33bF0uPBsyIO0QGlkNz+wO+cMz1eXaM3EhsoBf5nSl8+ydPjl8Y6lbKP
yoBIavHqLaLD6t0iR0I/vwHjhbOHM3PocKhDvPny/Bsoa6ztc06lw/unn8Rb
05fDdZcCCjmCDie9mZbPkS2HyIFnvbft6DCdy8zysdBy4ErSlhg5QodvROxL
b1KtANb91I7pXFpsegQqjLorYTCZueV7Oi1mKJBKvTtbCa/5Dzd+TqTFkh7t
+Y70VaBJsK/9EESLt/WtYqnHqiCWcTMnzZIWr17+6EzzvApE5jm8b1Nosbe1
LRfBthpOVSsc/fRqF96Y3XawPVAL7Me1pXHaLsxTfKULK9fCcKkbpSJhF67I
OFUsrVcL3q/R/synu3DT4zoTo9ha+JiqxvHEYheW/FTZIsb6Fm4E6FFPHNqF
yUM8Z2TW34L1Db/4nBwa3PWmyV36B4K07Wp5ShoNFg7mNeSmw9Cfs9Sel0CD
zwjO85J5MSj/1WEoDKLBVFm7Dg0ZDMQsOcc31jRYPGrkoIUNhrfrIxffy9Dg
bTU74ZszGPYec96ucNhBRpZ8claL78A/6PvRGsMdJCjmMQ8072Fp+KJV3fUd
FMSpdf8Az3toCBAZaFDYQSdv1QgJyr8Hmy8dxV0b26hsGYe3u7yHOg+KyeyT
bdR6qYYE9PVgUD/Ssi/yLwqwkm+qP9QAF5R+mww9+Ys0PocYqJ9pAKkKbppk
h79IOIlmZPJaA/zJVTnKf/UvWmIz/K7j0QDxkS+TCdx/UaPo5uXznQ3Qec/M
hjnsD9Iepkwc9PgAKjSLnD+fbiGLijaBmolGkHBjelX0cAtFL6QqsfxpBO5V
obN2FlsofXuc347QBMNTmi5zqltobMZa3/ufJnDrKBmhMm2hJtrPHz+lNUHJ
iwdF3/w20YdzHlXLxh9BRGn76ocnG2hnZuSB9vYn6ORRkkxw3EDu6rJarORm
8KS6M9oY/efv+uX1SDfD1/CNauK/Gyg5xJHn9b1miBpbFTVm3kAOrsXwqLEZ
6ANn12jDfyPB/QOk7OgWoHYPJCgnryNKLk1tw9k2iM4m3yeGrqN5T3uZSP02
+MdDS+PHo3X0mlLJ6ebeBi/Eemkj9NfRnqHzNgmlbXDLtcNqROS/HTjxgF+s
HT4KNip5vvqFknblSytwdMAr89LRmvI1VMt5e1XtYSf0GqYIXcxaQyWhruzK
QZ1Aoxes9zVmDRUOSSddSOoEratGX37fX0OLTMbGwW87gVaR0KUgv4Y86ahp
U7RdcIfNCRcWriK1Yvkp2mddwFogl/IyZwVNlwU+VqvpBoWcfUNy8SuokSBY
EtneDQbprHveB6ygwRM0eHG0G8pjx2K/m66ghS9haJK5BwwfR4YJiq0gl90O
4fW3eqBa8+ejuLSfiP2fzA/aGz1guVKsG5y4jAaGWbO9LvVBwrHlU2ZByyj7
dBo/s2EffHwos+es2zKaVYErmS59IEZT+GXz9jKy8svUEX7ZB9/Z87Us+ZcR
32cfU5GtPrgpnqWpFr+EpkP/bOgU9sOTkqNPOSUXUUXRiM+VQwMwfKL0QiPb
IlK/Y1RcozIAp5Eso+fsAmqJyQtTvjMAv1qkfOZzF5CnllNtdPAAWE9KPGo9
tIBy9rdlWiwOgPZuQYegg/MorfkE22DNF5DyZLjNKDqLnP+cupdk/g0Eqjvj
ftDPIj47c5KT9zdg+JXU30ydQW5lFw8ZJX+DQRu5G+G5M4ghS7YhpPMbBOnp
X9ktN4O4D/PfYlYchKnTVf9SVKaRkdADzzc8Q5C6ZS2noT+FKv2JXyN6hyHk
+AkHGZUpVIPUXNOXh8HFia6IV3QKpdsveHZwjoDGbMKRz1QqQo1/JD3URuDv
10YJA1sq4nzeMCmCR+BO9X4hx0eTiDz3y+nu7e9AeNjLFps0jiY+pGcvaY3C
750NnkW3cdR3OmVvnvkoDPsL7Va9M44WJDuLXdxGISfa8sDm7nE0eocu4MKL
UThTRKN0N3YM7bU9+6OeOgoWU5K24s9G0Z53TCLK7mPgmceaZsMxgqwg/G5H
yTioVd18LdQ6jDxsWU+vNI4DsSm1qitoGF3j3iw6/G0cXo0d61ZgHkaMdd5v
vtJNQC+/Ed027RBqcGP2kNeaAEpgjUnY76+owERqaGx7Aj4bW1MKx/tR4aF/
PHoNqFA3pHm8PKsfneytcZN5QIUsLYVzby360U2FM4OpwVS4r7qt17LYh35p
/ktC5VTglox4NrXVi6TuNAevcEyB2krpbyFiD7pjRku9jKfAmW49VPhpO5pV
so27pTAN59ZQtjRXOzotrrLX7PI08E4FvlOKaUNlX8XjQ02moaBZYO12WivS
ocy3CsVOA/XZGd3IqmZ0bVEjRuf3NGjv96fQzTSiqHHbM+fezYCLGyXsU0wd
YlsDTXeTOdBYWOovzHqLxr0PXeHwmgNxwwqh2Ipa5FKdSalMnIM+tXPFhl+q
UTnLw17tzjmQ57/bu7W3Avk1nPf9eHoehu1EFXRVC1FQ9JjIA4EFCL1V1Chh
+Rp96i6kTTu2AKdBSXstOA9JamYqUa8tQCLnLfewjmzULf7hIA5eAK3XQe+w
VioisXH6lW0vACtFOktgORmFl5asle1ZBPMN1U+lRxNQUfCNp50nFkE03oOL
WvMMjfmeeHzbaRFoOyRNtreDUaVnELEpYhHe2hjkyfj7Ig3/DTnNgkVY3i0x
/kHADUmZq62utixCf0DjZqe2HTpbGehb/n0R/gdbSHok
        "]], LineBox[CompressedData["
1:eJwtxXssFHAcAPDzvBg3z/tx3kR+q7X+kHTM75uJJnoivYUmeTUrr9JoXtfI
bayGLSkUbqmopTnpsnN/RE/KKinN5BG643K3o8z3j88+bnHpB07rczgcv/9W
HyqRa97EpLPS1Vzm2NfhpLb6PaUs8a60WHhqjmW1Reyetqtll1KPxPV9mmPB
Naza8rKENSxV2n/vm2ctFX7QsEXKFiy5pTZNSmbYW9fF9elm+X8r1flyJTv5
13h78rbnzOyba+LMuJJdfTBpZ1/Xw9wlwhD5BhULtO+0HG2UsX0haYbZzSrW
NBllkNYuZy25g/mfJQssu7xiXDQwwE6M3cm53a5m15IKhmKvfGR9HZC85YWW
mavC/SX7x5hxbpPT0D09GD0v98ksnGLnhPECf5kR/O6MkGUp5tnaJtBUUh+b
IFpga5uD52KrdXbtErPSDpp09VvAyCMXqf8ZHUsfrhhx6rCCqBujpVNiDm4D
NxvLpOHX9XE+GB5NnTHKMcTtYCC2+e6BQmNcAI/NBcfVKetwR/CqcZvghpvi
zqDJLNS1HjSDPH/Z8iB1hSmNA++eHw8ydebcSEc3uJVY8sHBwwJ3B/GOV2X2
npa4B/DSW4Ne2lrh66E7+Kn0icAa9wRd6knfaJ4N7gV63HfVG3U2uBf47sqQ
hXH4uDdovkgmbP/wcW8ITlGIIxb5uDeUa8f8ijR83BtcBQ4ilT7BKYQeEtH3
1gSnUPX29FnxVoJT2Cx3njbNITiF7ChhVVAewSm8+BkVkFtAcAqRBuVlv0QE
p3ARtJsUNQSnoHj2MbWoi+AUrMKUttIeglM4NszrVvUSnMKseicvoZ/gFPhb
O+4HjRCcQmzv6+jcHwSn0HxwavnhOMEpBGS473WbJTiFYr1AdYyS4BTeiA/X
idUEpyBwvRCq0BKcQnybeHZlheAU/gG7/JdU
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$4956#3"]& ], {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-6, 6}, {-5, 20}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.947901705611591*^9, 3.9479017276383*^9}, 
   3.9479023376543093`*^9, 3.947902505755988*^9, 3.947902546138979*^9, {
   3.948350380149469*^9, 3.948350401246057*^9}, 3.9484100473874645`*^9, 
   3.948410288126316*^9, 3.9484103230321484`*^9, 3.9484104679901643`*^9, 
   3.9484105361540537`*^9, 3.948411032161915*^9, 3.948413801190796*^9, {
   3.9484138383545055`*^9, 3.948413844682886*^9}, 3.949901549933652*^9, 
   3.9502584764191513`*^9, 3.950258639922147*^9, 3.950260605385827*^9, 
   3.9502608301162066`*^9, 3.9507589578117666`*^9, 3.950759213757963*^9},
 CellLabel->"Out[86]=",ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzlW39sVdUdP+17bd8rIBURigpWVKzIoMWiFUQKEwpOTXU6i3MDhNGyjVkZ
xs5sw4oLzrnVJUxcWIfJXErcEkY2IZlk1XRSI8veOpLVxCYl8kdZ+KMuTXxR
3L77fs/n3nPPPff0VhOT/bGmvdz73uf7PZ/z/XW+57zHXVt2t39t55bdO7Zu
qWnetaWjfcfWb9ese2QXv5QpUarkdqXU36oV3xPf6T/5Wct/uP0kdwflmiUa
Pda1XX56Cr+OXi/jV3sKWmuhh29Uhu+ygtKY+zSGBrrpmSp6UtH+Wnr3uFop
r5aPHuvpMj89x0aJSuX1DCvqkidSeGZlWj+pX2qd92tpGh+lP7SLTv493EJj
I00YK5RmvqxU80nqeAA6zg7QLxpFwdM56ttDF4q3QUc41e1a1QQ6NgJ76kAw
t+eqaegI5pYJrKEBPtkHMX5xLJrDS010fmhFIBIjMMH4D0HHaCGYA/+e6GSV
q73orwbWOSQ8wfZ0r2ryYjcZdqzQYifWETBQW4A6P0Qvr7fHv9WrcyvGf/c4
PV8TjF84pFZ4sdug+UKR+veJaxjOUzw7cIsXvd3EA4cBePxuMz/e7EW3Gx4c
iwxl3/XvUzd5sTuSPFhopK/Bi/6G4fHb1oAH34yPLvWid4LHSF+MR33Mwo8A
w4Ob7BnpU0u8+jqSo7M5xkc/50XvAppHf7HOjv8bvOjdFM9i9iBH+kIv9rFk
ZHN4nB+q9aIfd2KYeegYWuBFfwc8TvfGYvjamM2eSMYuqx4tXO3V+F0Twxzg
QDPt4thVXvT3nfHZGqcOqBovdo+JHeaB2GFTnx2Y50V3JXNJx/AVXnQZxasE
qlQ9hZUHz3UaVejZbn74dVVl4h95iLi73BlnsVd2qXcEl0eJxdFdHbwcM1qB
4NQlxmocjlbGzfHxs+QavMzc0cFMVTorz596AhTEdVy7q9Pfj3XJ8CoTLC4M
uV4u+eQqJmrAaqbJSVOZdEWYHUTsEsMa+PqQdczqoR9jJGNWDuTNe0vgF1Yk
bEObuN67FOxMJWRzc6W5ULzUsXWd3+uO9jovkzhL/rHiREtktZpjUHIjRgqn
GjJE/bUaiJkOw3pHLqm5zsvAG6m4CXQEsW3psHEyw2rj43jdneHNKFe6/hOM
EkVuat4H/oiy0mSvjq3LKKz4xtu64ld5ebrSSycYw5f53ZRYLbjnm+6Mg0r2
vLEelzuzWoyNTPOiZf4NfXtWqUzfvuZCXzf/qjlyybxTOBwgl0Mjd3bxlW3K
hBqJX1zJf5nIxoIL9Fdq/ZM8Z80zE6vUDPkV/ldu3eecfn6zdV6hqUpKSiX/
qzL/rC6VXoafp0qN0kzRslfKRY/QVMW/fZ2NpaIh+2bvTozJk3c7xEpYoTgm
L1l2zflwn+Gza+XPWr/7bOXF/5A1xmc3BDFRGsYIu0hcVcaXjPby2Zps4GXt
1VwxpxAFb7XMYVD/oa0senakX/upQkawtyi6NWK3/j/40O2a651nqRAZbefX
u1vYdK931LPdxcbvV5UEmVOuL2xzfv2N9oWMgnWzcJqzF3IZuCNOxsg/D93Z
ZU8PHOShwVRYamYV8D4nNL/BCDStvOt9kvMfOx4RdnfB253nZRRV0vfHzgTj
dDayai4qZTJS/nTj1Lfbrh97dD7tjppc0qVPvaTlX9A2gTyT5PLEdlMSrars
41kl1KAuPJz74NRPIgmcCxSLY6eO78VwGV2pKCMB/vbP7hqhEVRZjc+8daTz
r5sXXJhSotBJbTi3sJu6GQRN6ldyzfNb/54tiv6TV6/sEj82UVMv9RapqF6M
cFNk/uNj1NZMWfF1cW7p118RdI5y7dQuWl+I0GXGWjQ8SCvmqVIdGedXTls+
PE3paGmhlj7q2x/JWBbWHiinl35Is8VxlC95b8eSWqotFdFMIzWypEB+6pXW
tbmCikUhm9exOTc/1Nu2ntYraOAZBhq6vRrKoEFTR2jzzTvDr7BcoIHZ85QF
9mOvhgptM+rtDmbANmtr7h//fR3VwWad1CkWfs5Ii3Ae6drREtCekaWevYfo
UDVVsxRfj9PxH3nHqzSM11wTMF48c3zwOLsmYLyZNvOAAnvGq2Eq1Bw9yMYK
GLc2nhp/jc3O8jVUM0ADfsmL4K3OjTRN3MzXj/c/1kEdGJdDLsD9wCs9HeOe
O0P31AfMa6v+cvKpKqpClIzRmF/yYh2/dPJVniokP7pnUcu5eiXtUp1E5NNe
Ob3nydH+TrGv5vtG17UsxCPyHPfGPDITWA78TasQ+B/Or9h2VDzIvnjKq38W
fDHYb3j9Y0NJw3A5OxLVKSER9LQ9exEtnIlHOhTDn/Si5wBtJeMHc9Wfj27Z
40VfDvTw4EfLAjb/WjObH7/nRc/V4f9eT9uHsxUyj6MRu/YEVu+sy18b/80f
20rBQ+j3dj/hRV+pn7mwLB5Wo8tKUREykmActPzW4zG76z1+BccOq32qd4ap
AzxlC2nr1ycIOY5yluBMj5JIc3psYplyTgsuKSzGMYsMCrgtmxNw2+WVni+X
KaM0ysnB0hwP8rKdQBwz42PqUa+0Ph/JchniUOLI43DVVa/MyX6cMyWkr9HP
sI9UpUzoZTv/OTW+5ZW+Vj+LHKk9tEdlIR3Pfab+TYrWHfs8OuvTl2VLcIni
6RSoEOycuCZgLlwZnt2JE7tJzrGhi+MEaczOKQO7eIWgE4f1aSH2FSln2Nfp
51ZqDeZaAW0nDtP8qYE2VnvuTJvFbbIz7evi8x2ioRzknt1paiB1bUXnEOqc
5Iwb53UH6EDg0byZNbsCPJnw0YPbIp0pp976rCSDsJa6E+xPuFay6aBtw0JW
/rDNcJJTcK0zy87lKfPEuS5PgRxXUsyafd25EefUiZjD6SUve0g0rDe6ivH8
stH8Nk0sneVggMXZ9NMgb1VZCf3hwa8YeRG/wcoTiYHpYBxW2qC+PeQd84Zw
TCzaPPHphnNYeSVhersf9Mov0s9H6AjWMaxX5U5XwY+tXmmcI2No0TED0txR
IEd1LWQqX0qR5uUMWYSTsbJYUeTacr9XFmd9whgjzzSRyCFjastg/xdTpNlY
wciznHwLy+I9Xuklztizwbtra5RX+zvZmraPlzgjViczh4P+5Kt3e0fEaRtq
odhrTjJTdH24M0U68vHlTh1ARnzBK1tveZgDOlyp7YxgVx89uCFFWnIb+TR3
gnxonlg6yifO5XkmM9AVgfk6r/RSK5clt640zMMuCbl8e8xPkOKZ8oAy66uS
jHVNWuMdE2eVqOO81GL1jfPlTF6dIosIES9dPUEer/JKN1h+kq7yGpPH3CBY
ebwyRRp1XSy2ANJ2BdJ5vCJFmt2DmouVJ85cp/Jyr/Qyx2a1hrmpQDyFwf7G
FGmRQ+3EOX1sT6Mz+aaYl/HJninTqKLxroYzeJl3RMjKKo24WmT4xruaG1Ok
xUOoA4shzV2NqTy6q6n3St9seZkX9PBM3+lg6lJk4WNhX0fk6VhOvro4RRo+
lt3WUiK3Q2He584s8kpr32VkbwveNxJ5OhHtBeznK6LOy2rplNvTQS/qi8yp
wczJXq9PHL4+0pyzezo0UPh8Iuzt3JneRGGtNRVA19rrfDp1KxYpd7uTWyw7
SKbfTOSu9FzPFvg0m24vTTM6UsngxmQO6jqt6wJOQbjdKhQK9Om4wy6ymVhu
4j5eYXTNUwfkmsfnBV5zJzo3rS+oAxIjK5K24X3VVZ86RpY7MXJr0jJ693Wl
N3KXh7NWEm2N6jYz63h/NNcrjW8yYN2WOrMKc4r3R+oKIyuikEE3KNm6msjT
FV2WMh6qi0TZGsPWdEV6v1jtlcZ3NDjm2cNy7vN5StQmXUtnpUijLkocrgVv
0xVhp3hpiizvM1lWToPWUaI26Zp6iVca367h/SkXdLltJop1R9mgNl2cIo1u
TnqrDZSoTVxTq1Jko9i6w/C290MnDl8U8/BKy0sSG3c6fMMKM9U7po7ADGcg
WiJ1l8MXNWRKiqx0Yuhc77b5Wj1RPkUafaToaDG87d5oeLAiRTqqq/eCtznh
Qm9U7pVdZeWR2O1eO4fD01NOq2yKNCJTfBV8/yzeYaAeGR9BBnsTOa/RO5iM
qUYWOjkS5w6CUbVCqq05eL/EK9VkRaBUvi+noPbRvmAWaSh0kcLbj5KaUsoc
J3435COa/DtHoFCn5BqhBLTa4eHXoetTBguK3G5MQUXeT0NFXk5DRZUmDcV+
DHYBfpSuj9KNBfUSe+RPszZBg/AgJZwsDTnn03750QcpYZ8Cjqg9EhWWbMaI
BKvsxCdPYIBaJB73MnCOmtyVW++gpJvmiJJb/T1Kf4/hHDD5NUWRB026lyiP
9RLaFOVeaUSk2OUB71ziFPwMorx/wOv525348KPWhvHBuiQ+olMQAa11fO8/
IwEKXbvMLA2FbJMOKg0F1tLB+VHrLNayvvjPX9ZZ7GX3lYaKYjQNJZUP7COU
gPRqnsGiIbf3eXUAhbNEYZ2GimyehopsnoZCpAjrNJR4X05PaydArdfP+BRL
sNGplYDwLjpjGc9/pgUU1gfhnobCflnW8DRU1PX6UbpTsvL+3hRUtLqloVC9
pcNIQ2GXI56JUALa4MSRX8cdYTzV4WtV/jM+oFDbJ0PBM5J9aSh4RrinoeAZ
2cEBpato3vnOZeqaAj2y20BFt/RY340MPseZZE+mzwSlsw5yD2ea2NuZbyhS
YutoPicBF2SlxDXkUZHNquLsbF/WmJ/LtQIrnqv95WhGlc5355wJWci88+21
mA3xfxfkRff/OaiS/wIX+xlX\
\>"],ExpressionUUID->"4b185796-3b25-4b03-b171-ac9885906f27"],

Cell[BoxData["\<\"Left Continuous\"\>"], "Output",
 CellChangeTimes->{{3.947901705611591*^9, 3.9479017276383*^9}, 
   3.9479023376543093`*^9, 3.947902505755988*^9, 3.947902546138979*^9, {
   3.948350380149469*^9, 3.948350401246057*^9}, 3.9484100473874645`*^9, 
   3.948410288126316*^9, 3.9484103230321484`*^9, 3.9484104679901643`*^9, 
   3.9484105361540537`*^9, 3.948411032161915*^9, 3.948413801190796*^9, {
   3.9484138383545055`*^9, 3.948413844682886*^9}, 3.949901549933652*^9, 
   3.9502584764191513`*^9, 3.950258639922147*^9, 3.950260605385827*^9, 
   3.9502608301162066`*^9, 3.9507589578117666`*^9, 3.9507592138318353`*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"af487f36-6fd9-444e-bf5d-6fd310199a61"],

Cell[BoxData["\<\"Right Continuous\"\>"], "Output",
 CellChangeTimes->{{3.947901705611591*^9, 3.9479017276383*^9}, 
   3.9479023376543093`*^9, 3.947902505755988*^9, 3.947902546138979*^9, {
   3.948350380149469*^9, 3.948350401246057*^9}, 3.9484100473874645`*^9, 
   3.948410288126316*^9, 3.9484103230321484`*^9, 3.9484104679901643`*^9, 
   3.9484105361540537`*^9, 3.948411032161915*^9, 3.948413801190796*^9, {
   3.9484138383545055`*^9, 3.948413844682886*^9}, 3.949901549933652*^9, 
   3.9502584764191513`*^9, 3.950258639922147*^9, 3.950260605385827*^9, 
   3.9502608301162066`*^9, 3.9507589578117666`*^9, 3.950759213926695*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"e267e008-c1fc-46eb-988d-2936d491c824"],

Cell[BoxData["\<\"left limit = right limit\"\>"], "Output",
 CellChangeTimes->{{3.947901705611591*^9, 3.9479017276383*^9}, 
   3.9479023376543093`*^9, 3.947902505755988*^9, 3.947902546138979*^9, {
   3.948350380149469*^9, 3.948350401246057*^9}, 3.9484100473874645`*^9, 
   3.948410288126316*^9, 3.9484103230321484`*^9, 3.9484104679901643`*^9, 
   3.9484105361540537`*^9, 3.948411032161915*^9, 3.948413801190796*^9, {
   3.9484138383545055`*^9, 3.948413844682886*^9}, 3.949901549933652*^9, 
   3.9502584764191513`*^9, 3.950258639922147*^9, 3.950260605385827*^9, 
   3.9502608301162066`*^9, 3.9507589578117666`*^9, 3.9507592140688953`*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"ba21f018-b19d-4178-acfe-830ec5d00b05"],

Cell[BoxData["\<\"Continuous\"\>"], "Output",
 CellChangeTimes->{{3.947901705611591*^9, 3.9479017276383*^9}, 
   3.9479023376543093`*^9, 3.947902505755988*^9, 3.947902546138979*^9, {
   3.948350380149469*^9, 3.948350401246057*^9}, 3.9484100473874645`*^9, 
   3.948410288126316*^9, 3.9484103230321484`*^9, 3.9484104679901643`*^9, 
   3.9484105361540537`*^9, 3.948411032161915*^9, 3.948413801190796*^9, {
   3.9484138383545055`*^9, 3.948413844682886*^9}, 3.949901549933652*^9, 
   3.9502584764191513`*^9, 3.950258639922147*^9, 3.950260605385827*^9, 
   3.9502608301162066`*^9, 3.9507589578117666`*^9, 3.950759214213707*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"e77a146b-6ee5-4e29-be84-392dc7a9ff55"],

Cell[BoxData["\<\"Not Differentiable\"\>"], "Output",
 CellChangeTimes->{{3.947901705611591*^9, 3.9479017276383*^9}, 
   3.9479023376543093`*^9, 3.947902505755988*^9, 3.947902546138979*^9, {
   3.948350380149469*^9, 3.948350401246057*^9}, 3.9484100473874645`*^9, 
   3.948410288126316*^9, 3.9484103230321484`*^9, 3.9484104679901643`*^9, 
   3.9484105361540537`*^9, 3.948411032161915*^9, 3.948413801190796*^9, {
   3.9484138383545055`*^9, 3.948413844682886*^9}, 3.949901549933652*^9, 
   3.9502584764191513`*^9, 3.950258639922147*^9, 3.950260605385827*^9, 
   3.9502608301162066`*^9, 3.9507589578117666`*^9, 3.950759214375104*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"d8d6a6e7-7a07-4166-8f21-faeca59b862c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
    RowBox[{"Piecewise", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"x", "/", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["x", "2"], "+", 
             SuperscriptBox["y", "2"]}], ")"}]}]}], ",", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x", ",", " ", "y"}], "}"}], "\[NotEqual]", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x", ",", "y"}], "}"}], "===", 
          RowBox[{"{", 
           RowBox[{"0", ",", " ", "0"}], "}"}]}]}], "}"}]}], "}"}], "]"}]}], 
   ";"}], "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot3D", "[", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", 
      RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", " ", 
    RowBox[{"Mesh", "\[Rule]", "None"}]}], "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"DensityPlot", "[", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"point", "=", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Defining", " ", "left", " ", "limit", " ", "and", " ", "right", " ", 
    "limit", " ", "of", " ", "the", " ", "function"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Lim1", "[", 
     RowBox[{"k_", ",", " ", "x_", ",", " ", "y_", ",", " ", "p_"}], "]"}], ":=", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{"k", "[", 
       RowBox[{"x", ",", "y"}], "]"}], ",", " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", "y"}], "}"}], "\[Rule]", "p"}], ",", 
      RowBox[{"Direction", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"1", ",", " ", "1"}], "}"}]}]}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Approaching", " ", "from", " ", "first", " ", "quadrant"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Lim2", "[", 
     RowBox[{"k_", ",", " ", "x_", ",", " ", "y_", ",", " ", "p_"}], "]"}], ":=", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{"k", "[", 
       RowBox[{"x", ",", "y"}], "]"}], ",", " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", "y"}], "}"}], "\[Rule]", "p"}], ",", 
      RowBox[{"Direction", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}]}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Approaching", " ", "from", " ", "second", " ", "quadrant"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Lim3", "[", 
     RowBox[{"k_", ",", " ", "x_", ",", " ", "y_", ",", " ", "p_"}], "]"}], ":=", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{"k", "[", 
       RowBox[{"x", ",", "y"}], "]"}], ",", " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", "y"}], "}"}], "\[Rule]", "p"}], ",", 
      RowBox[{"Direction", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", " ", 
         RowBox[{"-", "1"}]}], "}"}]}]}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Approaching", " ", "from", " ", "third", " ", "quadrant"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Lim4", "[", 
     RowBox[{"k_", ",", " ", "x_", ",", " ", "y_", ",", " ", "p_"}], "]"}], ":=", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{"k", "[", 
       RowBox[{"x", ",", "y"}], "]"}], ",", " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", "y"}], "}"}], "\[Rule]", "p"}], ",", 
      RowBox[{"Direction", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"1", ",", " ", 
         RowBox[{"-", "1"}]}], "}"}]}]}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Approaching", " ", "from", " ", "fourth", " ", "quadrant"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Lim1", "[", 
     RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", 
   "\"\<Right-Above Continuous\>\"", ",", " ", 
   "\"\<Right-Above Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Lim2", "[", 
     RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", 
   "\"\<Left-Above Continuous\>\"", ",", " ", 
   "\"\<Left-Above Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Lim3", "[", 
     RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", 
   "\"\<Left-Below Continuous\>\"", ",", " ", 
   "\"\<Left-Below Discontinuous\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Lim4", "[", 
      RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}], " ", "===", " ", 
     RowBox[{"f", "[", "point", "]"}]}], ",", " ", 
    "\"\<Right-Below Continuous\>\"", ",", " ", 
    "\"\<Right-Below Discontinuous\>\""}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Lim1", "[", 
      RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}], "===", " ", 
     RowBox[{"Lim2", "[", 
      RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}]}], ",", " ", 
    "\"\<Right-Above limit = Left-Above limit\>\"", ",", " ", 
    "\"\<Right-Above limit \[NotEqual] Left-Above limit\>\""}], "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Lim1", "[", 
      RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}], "===", " ", 
     RowBox[{"Lim3", "[", 
      RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}]}], ",", " ", 
    "\"\<Right-Above limit = Left-Below limit\>\"", ",", " ", 
    "\"\<Right-Above limit \[NotEqual] Left-Below limit\>\""}], "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Lim1", "[", 
      RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}], "===", " ", 
     RowBox[{"Lim4", "[", 
      RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}]}], ",", " ", 
    "\"\<Right-Above limit = Right-Below limit\>\"", ",", " ", 
    "\"\<Right-Above limit \[NotEqual] Right-Below limit\>\""}], "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Lim2", "[", 
      RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}], "===", " ", 
     RowBox[{"Lim3", "[", 
      RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}]}], ",", " ", 
    "\"\<Left-Above limit = Left-Below limit\>\"", ",", " ", 
    "\"\<Left-Above limit \[NotEqual] Left-Below limit\>\""}], "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Lim2", "[", 
      RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}], "===", " ", 
     RowBox[{"Lim4", "[", 
      RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}]}], ",", " ", 
    "\"\<Left-Above limit = Right-Below limit\>\"", ",", " ", 
    "\"\<Left-Above limit \[NotEqual] Right-Below limit\>\""}], "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Lim3", "[", 
      RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}], "===", " ", 
     RowBox[{"Lim4", "[", 
      RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}]}], ",", " ", 
    "\"\<Left-Below limit = Right-Below limit\>\"", ",", " ", 
    "\"\<Left-Below limit \[NotEqual] Right-Below limit\>\""}], "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Lim1", "[", 
     RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}], "===", " ", 
    RowBox[{"Lim2", "[", 
     RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}], " ", "===", " ", 
    RowBox[{"Lim3", "[", 
     RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}], "===", " ", 
    RowBox[{"Lim4", "[", 
     RowBox[{"f", ",", "x", ",", "y", ",", "point"}], "]"}], "===", " ", 
    RowBox[{"f", "[", "point", "]"}]}], ",", " ", "\"\<Continuous\>\"", ",", 
   " ", "\"\<Discontinuous\>\""}], "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQA2IQnS5wI/Ra7ltHlUyJIhB9xOZyH4jecCd1Joi+cSBk
Hoi22pW1EETL6GYsB9EfdpWAaSPLrg0gelLe8y0gmmWX3U4QbbJ13y4QnXOz
4hqI3ns38jqI3nbX+VVL3lvH4vlxn0F0U/EktVYgfcx0oQ6ITtjpbASiG+y/
g+kHrwPTQHR9zAowfUu2owxEN1dfqwDRUSUFdSBafvXLVSDay+3dBhC9cNqx
7SB6VsmZPSD6Hb/jYRB9VHLOCRAtVKlzE0RnqdT8B9EFO3zY2kD2qcTyguh7
tdckQTTfDFY5EF3DdQZMG4pMVAbRmyZEq4PouMvhLiBahPE2mD7HviasMh8o
rr8qAkQDAB8bunU=
  "],
 CellLabel->"In[97]:=",ExpressionUUID->"ff3a366e-d955-4f45-9acb-d012fb15a63a"],

Cell[BoxData[
 Graphics3DBox[{GraphicsComplex3DBox[CompressedData["
1:eJx1WwuYzdX6JunCXymXOlSUazqnwzmlOqpP0UFNSo6GLieXGpmI5D5iyD9E
cptqStMYxHGLwTgux9JuTDJnyJbRGGbMxlyxmTCJmTk7s75393u1PD3PPL93
r/2tb73ru/92d/Yf+txrV1WrVi2yRrVqof+q3Xn46XWVlZVG//63w8SohMR8
EzViTXzKkIvA973a9s2u+46Z5bXrxQ7JPg/86Q0tD8TGB8yppJFRzbuVAs86
kzjtP9tzzWuX5ZQA7/Zkmycv3J9l1weAF246d+LauL0W9wOvNaCyx62NfIoL
4WLlCMkRu6/QvnZ9qZCeYs8ldC6xPAjxoM9CvOFZ+Tu364PYH54qxLP+3W15
Vj4Vj780oWLA+GPgU/G4wg6JjbbngU/FD5w0O1p8cQh8Kn5Dt6796z3yA/hU
fNgbl5ZdU3sH+CQcfJIc8En7gk/SE3zSucAn8QA+iTfwqTx9sWtPWqNaxTiP
4ht3VuzqHFeIZ/2r9qx8Kj66ZsHo2PKj4BPrtw3NMKOOgE/Fp215NOpw6gHw
qXijUT369Wr0HfgkHHySHPBJ+4JP0hN80rnAJ/EAPok38Kl8JOybeWDJzrA9
KZ53qM/pVonFOKfi+9OOxB25VIhn/as8K5+K3/fXX/8dBZ+KZ3ns1g/8tq/8
XV+vvQd8Eg4+SQ74pH3BJ+kJPulc4JN4AJ/EG/jUc1df+V5m0qCT4FPxHy/r
eQJ8Kt5r3o3V44aF+VL8s/hf/xXhWf9meOw5AFzjg/KpOMUBIRx8khzwSfuC
T9ITfNK5wCfxAD6JN7LPgHm+5uqcjNRTZJ8B89GQwfU+f/EU2WfAvBG929RP
OUn2GbB2coLsM2COWDv32meA4oaf5Bwi+wRO9gk5ZJ/Yl+wTepJ94lxkn+CB
7BO8EZ9+0+PkhA+XrwoSn35z98Jx5dNnB4lPv0nat2RTcd8g8em3/hgkPv0m
zt6Ll08/+Pfy6WeehXDiE3KIT+xLfEJP4hPnIj7BA/EJ3phPcfApDj7Fwac4
+BQHn+LgUxx8ioNPcfApDj7Fwac4+BQHn/L7fAbE4e/i8Hdx+Ls4/F0c/s68
kZwr/F0c/i4OfxeHv4vD38Xh7+Lwd2F/1/0d+Ugc+Ugc+Ugc+Ugc+Ugc+Ugc
+Ugc+Ugc+Ugc+Ugc+Ugc+Ugc+Uh+Px+ViqNeEke9JI56SRz1kjjqJbZD4I56
SRz1kjjqJXHUS+Kol8RRL4mjXhKul1Seo54XRz0vjnpeHPW8OOp5cdTz4qjn
xVHPi6OeF0c9L456Xhz1vDjqeeF6Xr/n6DfF0W+Ko98UR78pjn6T/Rq4o98U
R78pjn5THP2mOPpNcfSb4ug3hftN/dwxDxHHPEQc8xBxzEPEMQ8RxzxEHPMQ
ccxDxDEPEcc8RBzzEHHMQ8QxD6F6w2d5yqd+2SeEY32VvtnUv/iEcP0+cI3z
+qzyvHWUD3+98cQnhKscITksXxzyxSFfHPJRdykv+rk3L4MfcfBD+RT8i4N/
xLfU1hNbZqeUG/2r+qtfKN64fevna79doM9C62EHtB7nbHr586Cp7bFb1b8E
8yjlWfnwxnM/cG88hx9gbqC8kBycH7j3XmCHGVQfKu6tc+CX6BN1X5IjXj39
V/SPul7rGa+d+NE/Wh6x/ipbt+i5VC+tz3W94s/ZOlzvg3BDuCiufJF8xqnf
8WM99S9CONUtPurjwvw5ziV8LuXP8kP1lQ/9l1d/P/UX0J/6C9gJ1cPhOP37
fQTksD1wnQb5Xt4CwLU+J/uU37fPAOpGsk/U1cqD8u2tV7PDuMcffWovYv3a
kN+hLqI4I444I444g/ipzxpvGhV16/9Y2nHIV3kWN7Recarr8jF39fYp2Y75
WDbNbdQ+/ZjbeO3TbyJtv+b1L79Y3Hjzi5/6VuiD+sdb3+ajHvbmi5Ir6jFd
r3Us8aZ8Gornei+UBwOY93rjFXBeL4716Eeq9Mu065MRZ6rWp4vi3ryZic81
b9pnQ+stX5min2v9UHUvucC9cTVTSB/WE3HPyoE+Gn9IH9QPdC6qB7Av4p7X
f9MpfvpxXo1v3viTTHFV5ftgt95z+RAPvXEvHXGpdHL+4CHZFfir8dA+C+Gq
N/bR+KC4nkvXR0R2/qnr3GPg7aP+N3Q6ngF7MLSe/CUd+VTvV3nQfEG8iYM3
zMFIT3GcC3GP+BEHPzTfSFY7pfoZ+Qv3S/wY5Uef9a+3Lk3GPXrrSeRfOi/q
EMy1vPMEn7S2cz+Vr3zX9vQvyEf03idZ74fqw2QhHiieoC5ivzPevI/zUn+R
LIRjX+JNiE+q87Ge+iDIp/oc90v1Oc5L84dwn6f1reYzta8Jr/crOH9dAc5J
/kXxx0/v6Xz4nOoHIRx+pPJ1LqF6Y1/vXBT7tPbMyRG38V6M4g/e7+j9kv8y
jnrVa2/JVH8Cp/oKdmd+v07DeoonPuR364+QY/0RuJ5X57q0Xmg9/FTn4d7z
+qh+QDxEnCF7uKJ+0/V675QfMUelfIF5NdkJ6hONa2qnvb774b8vts+X67bn
/d/c5kW4l6/Sr3rzxZzwPeo+OidUe4D+3viJOsXKx7Pub/1CaL1xrFc/wnnI
X6hPTL/iPRflHUN5B30KxU/1C+VHiB/GRXHSE3UUxQflwdC9KG9c/wj3lTSX
4LqX7AHx33jjP+K85gXq0zPxewaah1B8CPflGh/UrpT/1A/n9u2de8p4/ctn
OnzcdcmJh4NUV/jE4nyP9B4E8ZPm9qg3xNu/I+5pfjRk/3qP1GdlYh5etT7L
4mlm3ttX5f37TpwX+9rzipefZGl9784OvQ8EmR9dT/r4JPPfJ8yhGMwBcD9q
D9QHIR6qPqq/1ZP7II1X4rvcV4Tr66KHv/+07LDaTwD6V80n9V4CQjjij/Yx
7ccN2dwvaR3wKr0umNQmr6T2+dNG4FX3f9YsjDw9+5EntuL7+nl8/pndOQXK
2wXgel/6fcW17rK4EK56CMlBf0X74pn6a9ZfVH86r/B5dR8vP1q3+DE3s/cC
/pUHb92VDHv21ofAcb8kh/dFPeONJ7Bbe06t15LAs/qF4t48sge4d36VBtzb
r+l7M6y3+qQJrVd9hPSxvGcJ6SPeuJEkVP9gvZ739vJDK1OGHMX6uIat/nD4
TNDErF3xUHbKceDbT+/ou+pskOolyKG+Monrc+Qx73sZvRcfzSeBC+N6/145
SdDHO0faEj6XZ36eJLTeyt0itB7P+rnW1abrDU3nNs+DvPz1q5plnwyaKjs8
DFzt2XuuJMQxy78Q/2L5F+Kf6rckObj/jaYDfuL8Ahx1D+1rrP5C+ls/Oiyk
P9WfSdKmy6FJ95YEJeu1cWmVlQXAn37lpmc3n8d6Q+uNXW9oPeKa1hF73kpq
IY+E7UDfj20YXOfs6Mc3ANf3Yz1nXDOg3thNVD+X2t/fGvG+T/fJTc3qn1p3
NIj6TPF7rJ7e9+w+2LnKhX3afOHNv8lS18rXeAf+PfnFL4RTnQY5eh6hfem9
OfSk9+Y4L703x3mpri4h/wKfonwS/8L86/58X7q/936TYb/e/JKMPO/NL8AN
45rPVc8qOz+De1E/1bij/HvnMD4hXOUIyaH5ajLs3FsXJUmPBteP/vZcuM6h
9dhP48cDnryZhLzk5SdJ8wDxkKT5hN57Iu7RnAHxjeYSSaL5ylsPQL6wfM1L
fC8at1T/9o269WzerRjfi6l3JKHzz9x3JMnks4/kzizjPB4gOwRvorxZ+Ybk
4570frx2C5ztGe+puL9Q+2pZ+5vdA65dCzla1zxA9Y/GCa9fJCGfeOWAf8P8
a13A9qBxXeVoXlb+b/S+twV+a7uSuX1T05HnNC/1L/uhVvyjWpdgnk+/M0+H
P05e8eCA4szvqT4sMnmRUXs3Hk/Des0nT3l+J+ADXuT5XcEWnOs2z1wuHfYQ
sythxO4xmbBL1b9j3quRNW70y/kBqduWfzAH8f6ztl2XxX4wySiu+WH79peS
+oybAhy/Xzt52/ur504Drnlg1bs3r7xu4yzger9rF5QNmj12vlm56Pq4PbG6
PmAe+nP3+sWfJxDuNyu6188ePG819FB5Z6fef/fHleF8pPjpGdHXD0LcKcX5
9nbvd1f9ynBeoPWIyyQfcVnxamXPXEhGnCpVfeWx6j1jGlSG893WUTf/N7Re
xs76eetLFeibgN8iy2v0uBTk84qeV++P1gvxLMwzfn9H96Ln03tsfHW/HlnB
2eamFdXaLfo+YGJWvdL7lfQF5t3xHV69/1wJPl9Wu3nEtJD+gT+/P7LGjwEz
PmFOIC97jqm98vqs10P679+aMCUQtc+MtHi878Y/jisNmtH2Wf9q/Xnd9Iiu
UffsFcWDTeaM2XYqKBca9It8YnMe8Ikz7p955mJQhhd89v6BnGJ5x+Kncwv2
dKgIyuE72lZ/rWapqJ6frp9ddHvoXvS5y+AWex7IL5ZBPw4be02L+YZww7jl
QYgHIR50X0P7oi/T+zo2bMPIERfC/bLec4Pom6OevxTu52k99tP9f3n3D3GZ
/ebh/aKuf/iqDZGLy4My8YWpMT8/cxA8V76xatGiUDzflvltUuKUVPD57VtN
157eE8ojVfwb4l/XG1qv9yt0v7qv0L7SfVbWxhEzDuG+lmV89t620LlUb+Wp
8PrnJw4etTh83/YczeoeO3jnuiXwF+LNpEyoGDYrIt+Mst9rvHdc7NDyIHjX
vBQ8/8SMwonbIL/J0GZtltXZbko3XEp/fOHXeNbPb8j9z6ITa6+QIyxHeX3k
aOHYcWu2GDqX6Ln0/MpH8dpePfpVX4z99B78N3VcOf6zNYbkG5Vv9RTSk88l
ei69J7231RdSD9R9fZUhnkV5tvoZui/lWYhn+fyTVh9GRBeYty3ecPfOuSvL
Efdg5zWP1LnrlQqsF1oP/a3fm5dbJp588rZEQ7wZ5c36hdTtc133jlsrzRM3
PBd/sN4k9RcZ8/O5ipFrL5ppV5977MScd4H/43T0fWV3XzQL7m65bupP70oT
i2/+sPfxPzYpMxGZsZd6DJuK9Z9MzWi0+uPz5uX4yDa5l6ZifUXLLelHZ5aa
g1NrLNrc/gPsp99rFOzbMTEUB1Sufu/RYT9+OSqE6/cVf3n+psQ2Idzuh/3X
39e5+bBQHLN6Ay/rfyZmQQi35weeHjGt4cZw3BOKG8A1Xnb4R7vGvW6execS
PRfxIMyDPZ8wb6qv8kz3Inwveg69R6/f+U3kiKkLMv61Wl6ovmNZ3KUSM7HK
LqRT340tQ3Zl7n32ocVN3wqaIRYPRGWlbAjjQjjLF5Wf02lY2n/67TOVNyyv
jJs+R5IfOD/2VCh/bYq+tekPvv2m2o1VeNNam7YmhvqUT1fWOXLN2QNY//nx
W74bWhY0nVOW9ClKyAB+NM7/l2VFQbPnWHTLyHGpkNP4SPe1I/cGzXt/2ZL1
7sPfYf2uBYldOucFTXn1mGtmtN0ruj6jOGfKa8GgWPlC8sXKEZIjVn8h/cXq
L6S/7LumS6dLNY9Bn9yW00tOheLtN0sfWxR3x3FTofgdkx57NOTvdp3556MN
M97JWCGtMia1rNdxnz5DTsu3oycsnnLKfNWyb/70FSnAe64prFcWDTnQR/sv
lUty8Ez7Sp1+sV+euWU7zjsv595dtTYExe4rtC+e9fO8jW1iKp7eKdfK4ukR
M4/gvA36ZO+ffDFo/vpwz55RBTmm3OLrMnP+dPCXoLG8CfEmljch3lS+kHyx
8oXkywdDj730xCeFUt2eK+KFTjPKQnLueqlu280DC6Bni7FfPPt16F7sekPr
Ud9rvfqXGhcGratE/Yn5xsrueVfPi56vcRz1r/+XyoNLYidpPhDNw81/2NYn
LSFe4zvi/bNdmrzYPeoTzYNax5mdYw7njukUx+uNrr/u/nb9hnY5bQbbzwdN
X1qWHvJriwvh4EvvZ9vICbPyWyTBDtSPU+pWLl369b9wT+rHnfd+GzNt4FLg
6pdDGjU+GdMqhe3NqL2RfRq2T7V3tSvF1Y/XpLQe+MuxZN5XeF/1V9VzvMa1
qnpcZhekjhr6bALfi+i9TKqbuzVnTRHsJ/urwvK7roiHAcntGH2+3/oE5lOU
TyvHkBzUwVoX2/yC+9P7/LJjtW8OzpyDuKzxu/2CVZci/jgX/qD+9+qLjRv+
f2ki82aUN7pf0fslOaJy1P6pjzPU/4r2v9dGP7hifuheaz3/8olD6y6adWnm
0LePhfomi/c6afzz7iwzyT8PXz3l8WmmocU/nnLXpic/LDUf3Np48okOs/B9
ldejdc9B8aF99fsq745/Njs0OITr91XeR/OGj2ocwmu0ifpTl7jzUtfiFbEl
C18L5X0zt0aX2a0uAj//TcLf4kL4hIuJfbM2VYruu+N48rdrf60f7LPKe3x9
r4Hts6YZxVVetRMdpr+5fAr0VnkzA7Nnt10zCX0+9dfc14v29WQnWodgfqTf
u31D2vqMivA8kHA8U7xC/6WfD2z1Zc0JF8JzZmvvZmDOgRVPnQn/bk3xs6W9
9xcdD8+faT3ejyre7q4nJ8w/H/79IeF470Py0SeQnkJ1u9G6XedKuv6eec/u
Wloe5D5CuI/Qflrrau+9+Ez+K4NTA4O2MS6Mq757Ph1dPHLgYsw3qM5HHU/9
O/ZTHjYdL2q1dEd43qh4+7axi/feHp6303rEO5o/IK/QfAC/N1A5383Zsbdh
efh9EOF4H0T64HcjWP/FiPi2F8O/h6d7wZxW1w9pN/7mOlfYbbZRPvV9EMk3
2udQnW+0n6G+QPsIQ32E9h1CfQfqeOpTUK9TX6N1uFAdjjkmndeM3rfhodt7
HUS91OSz6TOLfkZ9a6i+1TpZqE7W+lyoPhcrX0h++Hdd/hbf/5rfEo9FXPZr
9V/FI1KfuOy/UT8Nb/jW/gD0jM9dtnJaqO5tt6XB902fyYeehYuWxEwtD7/n
JTnh34d594UdqL0ntJ71dXoO+gRDda+xdayhOpbmEpADvrT+7X+y5NyXf/9a
Rj03JuXA1jzIfz2hzvpbQueKbLDiwjPvHYL8R2I2DD53IeyPqv/k0Y0v+6Pl
R4gfsfwI8YO5uco58UCqx+8Ih9/RvsbqL6S/WP2F9Md8XOWMfnX4ZT+1dbJQ
nYz3sLTeUN1rtO5VXOfQV+W+N+WFN6YA1zl0wkuNC76KnQZc8+TZjB9vnpE4
C9/Xz+v/OMP32zm24juvvz8/PMf2Q8/6N+69nL80TxGOOp7mz3hPSfNqzMNp
X8zDSU/0A9RH8HlFz0v8CPOj+xCfyHvtR+x4KHLiJ4bqXqN1L60XXU99h2jf
QXWv0bp3+EslOeurl5ph9nvj3vzqb1f/5v/LUp5H3LLnN/nLJ4SrHCE5eB+q
+9+34e+lv/Y1ek6VU6t43a9zXdQ/tB7xRO23Zmnj8dfOWAi5hMNP1O/zek88
cnjZIsjReDb38Xc+zZ+xDHIIhx/qvCStsuvkhYUrERc03m9semfN1k8tgXzU
WelZvxQPWk/zUuDQU+clix+ctvaAbOH4aTR+UjxUXGiegPe5FCeNxknSUxx6
Cuupc5r+D4z/86An17D+wvpr/nHwrDjzKcqnvse0dmLKsjaf6Z11gnEB3mxd
0aC8YvBxT1plp4hwvsb6fd1iLtcnZFeidkX2I2o/lPdF877d19C+dN58szDn
4rnn5nwihIvi9B7E6HsQ9Xf1p5rtGrRvHXpWf1M/7t1jzpjdWz5EnKH1qGN0
vvh4s6T0kdHz6T1FiRl4cdzY2WPng0fNq8MzYyYu/+ILtgej9kD+Iuov5KfK
M8sXlf8/RQRYqA==
    "], {{
      {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
        GrayLevel[1], 3], 
       StyleBox[GraphicsGroup3DBox[
         TagBox[{Polygon3DBox[CompressedData["
1:eJxNmge0VsUVhe/MAyyIUhQBRQVFLPSOWJAiRYqogFRbRLGgsQU1KgqKgoD0
omLHBhaE2AsiJlE0MWoMdkDA3rEkotkfZ//rZ6131pmZ/96ZPTPnnH1m7mtw
yrnHjslFUSytKAr9FW9LqFeX1HCZ9ltTUWwvXVtS022VJLtKKkuqSGq5jXod
yQ6SHSX7uC/eq+u2qpJ61jtJ9rCuJmmhsd6RXiPZS7KL8ey9Da7dPOZ2kt2L
wMZ4QyS9JUdLGnhMcB3o8RjnthTz2E/SyHOij/2twd7YGrxNJPWNpfU27zV0
36zB7SnaW0n2dRsYmxk3a9DcGlwtrOmjpTXvNfU4vHOAxwd3G48JxrWSLpJj
JB08t4Mk7f0O9UMkBxv7oe4XLJ3cRv0wt4HrcGtwHWENriM9J+b9rsudPX5r
4+omaStpJ+nqNurd3Qauo6zB21PS0Rh7WXfyvnUy3qOtwdjHGowfSN43xt1k
nLtKXlJ5J63/R8bb1uvEHg4wVnAdaw3e46zBeLw1GAdJehjjYGswnmDd23Nq
7LVm3bGpPSXnS66SjJNclwL3UMkmyQZJf8kpHpsxd9Yzf/c+nmSsYPzU5ROZ
s575yv00xcYkP6s8Qnq45Bv2RPpb6dWSP6jcUPKdyn+W/kx6pGSJyjdKvlT5
BunWkh9VPtljgmmY2r4owofWS9ZJ+jJXtf9P+p+S3yT/kpwh+UHtH0t+8NxP
ZXzJBdanSS60HsU+69lakje9Rn/0e5eprYvkdZWvkJwrOY+y2rpJvld5gfR8
yXjJPMk5vMcciyiPkVxuzftJz5wlfYn35HzjutoaXLdIpkqmSXbV81lyscoV
0n+SvkZSQ/ZVW/V/q1w5RX8T2V/3fankemvwzJCMl0yQTNoG443GwfjV1M/f
pPt5/Cu9Hjd4DlcY0zi/M93v0e9k98dzd0vmSOZKZnpMMM+WXGucc7bBO9ca
vPOswTjfmr4XWIPlZskUY7w3RZ+zJAuNjzndag3G26xZg9utwXVfivfukNzp
PsB4l/Ucz409uUiyRbJZcrpkkXGDd2AKu/yr5AHjYw/vl9zk+mK3gfFB4wPX
ErdRf8htYLw/Ba6HJY9sg/FR42ONl7qN+jK3gesvkntYG8lyt1GvkgLT45In
jA+8T1qD8SlrcD1tDd5nrMH4QApcz0qe2wbj89bgWmENXvgQzoF7VhoruOrA
3Snw/qcIjodT4Xa4FE6Fz2u6DofXcr2y+6MOx8KP8OULHpMx4N06RZlDib9w
QInXSzyPhs/WuL1aUeb1Es+j6xvHPv4NHA1cB0dD18EBJ+5njPv6txKORh6P
OF3i88b+DSwH+jewHOQ6Y8OPBxtLU9fB0cx1cDR3vcTlzYsyl7cwJvixlXG0
cb3EtYcZSzuvFzjauw6ODq6DA37saBydXAfHoa43c3/Ud/Sc6xRlLme8HXKU
WxoTPNnZuODEEp93Kcoc2s2/lfi7xOfd/RuY4MceRZm/e7kP+Ateg6v7FGXu
XlUEp8DbHxURA+Fucpr+RZn7exfl/IAx8DHi1IKizOUDijJ/H2cc8PfAoszf
g4oyfw92v0Nch6OHeDy4bmhRzjX6uP2/emaFpKdkaIrYDZfD6XD3iCJ4HM4e
aUwnFcHdYDzZdfCd4nop/+D3P6bgXTh+ZAq+f1nlfcztr0gmq3yaOf194lUK
rn1P+s4UXPuB9F0puBZOvtsc2UR6X+cHG6QXpeDID50LwMujVW7kfOB36ZWS
YyRnOtf4h2QM/TkP6GbOP7sI3oaf4dq5Ks9xnkEcnOc920g9BS/PN3/Dl6X8
AD7e7DJ4iP/kGHAB+cYvRfByZdnMi/BQKucZpbwDTT7xu+SNIvh7i557QdLX
awFvwselXIE6mK5wnffHFcHH4831zIuchXxiLGOmGOOXopxPwNHkDuON+a0i
eBgM5BXkE3AzeURl82gpbyjlEeiJxjfJv4EJHoaPK6Xg0ms8Hpw7zeNPd53x
Z7jOeDNdZz5w+BTPebLHOIEcVbKxCExw8ayinCvMKcq5wtyinCvMK8q5wnz3
C/fe5HFucR18C10f5/rUopwr3FqUc4XbPDY8e0dRzg/uNI67XQfHItfBcY/r
pVxndlHOSxYa371+Dkzw7/0eD44t5QjoJR4bbn24KHPzU8ax1L8t9G+LjelR
/wamZa4zHny73OORBzxelLm/lAs86d8W+dllRTkPeNo44P5nizL3U2/pffub
x4OPV/j9la7D+Svdb235zteqv6fyUSlyqL5FOYd43vsH1vskHxZxrurn/Vts
vMR04h6xepcUZeLeJSr3lvSSDJa04Wyg9h4p+gLnYW5jbHwde8V+D1R7A8kn
KjeT3ltSU3K25EjJf1lL6ZMl+5M7E/8k/SVPSh6SHEB8kXSU/Eq/0l1TnCnw
SeIJMeQT5/LY+7F+lvNIHa3P7pLj1Fak8GH8t5baakqS5CxjIb785D7JUV9R
+4OSEyXNJTumyLGOd52cq2qKvIech3yD8p7W77i8o8Z4N8U5m31Cd5bspPaq
Odq6Gx8Y4HP4FW6tm6Lc120fuLzKZZ79hpi/zX586P2F7z/yWORgYCcvq5ei
nb2G09f62f4uYwvwJjn5MO/reo87KEW+/rH72eCxqpsr4UdsZZ3fHZXCnjiv
TpQeYnsYm+J8u9F2t8nj8ztl+Heonx1eBP9+amwN3c4zi1NwOP10kt4uRZ4O
ns9tw6+pvFRyumSS5PoUvPy29GzJdMkZKfb+a8lBKtdPwdMHS++VgmdrpOBW
bIP8gjM1+cal9otvvF/MnTxjFvxgHr3J3HqO+4EXR9lfNtuWWavvPK+29h3G
BRscztn8Ftsj9TnGDJ4ZKp9v/2pvf4Lj90jBadg8+neXp6bIA7D7KfZNnp9m
XyMf6GD/o3xlinP+r/aPLR6XMX8zNtop44+PpMg1eB7/YtzRRdg3dg4G/Bj+
PVPl3b1vj/t9eJc1Ge/yBM8FzuV36pThzT1T8O9Yl+nzEq/rFq/tbim4lufP
S3EXWdVjYjPERuI6sZW4eqj0Dinq27tMzCWOVvHzxBrGnWjfIj5k+xy5L/bc
1Gv7WhG+Qp7ZzzZPfjnSdk25FIPxF2yAedTy+sALvDvc67Gr1+QzP08/n9sP
T/TcsTP26EuXsbdGthH2i7hYK5XzH9pHG09191nT+Ed7vXdN5buUPbyPrEFt
93NhCj9kPy9KsY6cU9+3b/Tx+tTzOhCzeZe1fMv7xB6t8/PEnLVezyO9Jnt6
rMous9cj7LPk2PgMPrvaNr+HMW/wuFvv61LkjzxzUoq8/BXbYSfbBfxFrHm1
CL9s6H151D7GnR281sj7+6DbKDex//Luj1531hwfwzfJvRt4jFfdN2XiGliI
QcSTx1L4IXd15PvEo2/taz/Z72hv4n4Yv6kxEENa2Wb2NtbXjKWZ9/viFFym
v618RhlbrmofWeN36RPsnBeICfDvn/zMzp5LE2M7weOyts+kiFncS862JsbC
I8RMOAIuaGmc1VyGx071vLmfZC3aeI/ou63Hauz1IUatk35im3pHv8vZ64gU
MZ/8gbMN+f9a6eXey4Up+KGL97C954t/EPfwwXG2jceKsGlsm9hAfsQYnDOv
cvuLRcQ+3iUPIX52dD+feL2YL2evrm4/3H1hw+ulH05xJoPrj7IvVMvB9+Rf
cF5Pr1UDrwl9zvJ7nON6uc+h9p2unvs6/0Y7ed3RXtudc3Aq54cXrNlH7qR7
eb+4i25ne1thLGDYzblM5yJyun628z3V/kyObzpwDbxDPIHHOKOW/GO07XOr
XaewbWxtjPdzqvq4QfJX1W+UnpYjZ2Rdz/Vez1RblYrI3bgPP8P2drbHBQ/c
d5YxcE7kDMu99Gcp7jQ5KyxQP/Nz5Ai8x/tw5ZEu0w9ceY73Dn6jT/itq9tf
9/6OcfkY48QuyMG5KyEG4kPn2Y+w7bGp7LNTjJO4yb3G0V6bG7xu5AzcI3zn
saZ5rcAy1Zg7uh2cZ7rPn12e6v7pm7yIvAY/ud62gZ7k9vrC+2yOu0hs6hLb
6my17VARedZwt2Mr3Df0977QTp6EHw9zn4xzmvHDY609L/Zrjvqspj7/ZVzX
GQ85ey3n88k5PBwyXvrqHPHyW8nmFLyHDf/Pdnytfv8lx9niKulxOc4fE6V/
zRGr2O8fU8QqbPtn2ze++FOKHI67Coiec8ZXku2NYXufJyiDsZJxviWpyPHd
o4vmtCTH+w9LuqueuTPTb1Vy5KLYeLeKsHPy+u38Lew+6a5q/1VtD6n8oMfD
X39JEQv28JowLjnYbynsDr/krMHZg/PiTvbV3urv0Rxjj5T8kOPuCtvEn/Hl
j2yrlOFqvp3Av5W8F6V9qOG5T6JN/a7CFng2x3eqej6LjXVcpfym8dT2HGt7
3Jfcf/Uc90KXS/85B/fye23jv1j6ohx36udJn5vjm8b5zCOHP18ofUGObwKf
p9Ccvw8XxgdyrBFnDc4nxGY44Gr7LHkEuQIxEFs+1fb8vfTjrsPdxMSteYL0
SyniH31xnhlhXhtqv8bH4Uji9yY/Q26yv98jtpDTjfK7nVPkKMRnYiRxkzjJ
+fgy4yT347sgOdvMFPnQyy5fksr+hyaG1/cz+ONEYwMDfjnM/o4t1fO+0vfl
9tO6tm32ZZccdoYvEAMvcDzhPEKZ/AvOJC+EN8kvyDnIlTkrnO9n4EzyRXiT
vIT2M7wX8PL3jpPkHJyriQsLPf/JXiuwtfNeEA85sw70fBmXczuuS0wckCJW
f+xnOOPCgXAhbX28R+w7ecegVH52kPts4+dfcUxgDbDnT1PYIPdenNG4PyWm
TXeZe1T8fXoqf7tFk6uTy3JHyT0ic+b8WLqDne5+iJPkVMT/NSn+h4NvJpwx
b07B+/Nd5k6Wb6wT3E4ecY3nW8d7+KY5ghyllLNQPtN7R97DGYkz9BXeC2LW
etfZO/KeHTzOeGPGrifaruDEq90OJrByFv7Ja8S8fvAcwPlOiv/n2M82hT3V
tM3OTGWemWk7J9+ZZWys02z3ybrO8doS15/1b5caB/eyNxvPPOOfZQzMY76f
vdll2rln5r6d3IF7Hf5HpJVteYbtmblxV8+z3Idzh8/5i/tt7vZP8x4tcJ8T
XGZM7r35FsCzl9nO8QPyYnID4gZ8ks0pi6WPqIg7/iw9OUcMaiu9KUf8oI9X
U/jSznpmrtrfULkNMThHPCA3gSuIbz+r7Zoc+XRDPd8yRx767xS5FTGovdo+
yeFzW6Svy7G+raU35si58QPu5q71mm30urE2G7w+I/Tshhy5APzzsTmItvVu
314YZuWYA9w4xXkg3zu+tQ+1IB/Mcf+LLX1sG2vOsznuozmjLUuR45NbEkOJ
n8yH34ir5A5L3CdxYLHXnFhPzC+dOZ5wH3up7+dyfKf8RvrsHPN7OkWuwTO9
WO/sbzbS5+RYjy9ScBf3wN+pjX/aIh/l/MHZBE54LgXvgfn5FDkOGJ5Kkb/s
731davvHF8hXWIP9tFaH5DhbE5+I1fh4M2wkx7cEbAhf5r0/qO3UHDFlFGuf
ww9ZJ+wFe+ysPofliKFvpojFtGNzr6fI+7HxD2znrCXxDl+8y3uGL/ykPibk
WFPmt9bzxob+mSLOsd//8Pze8HiMhc8RI4gPYP1Piu/YYCUmEg97COc7Oe5W
8af37FPv2m/xWdaM/GxrHNPza3Lk+C+nsHXsoh3rlyMX2IzP5bChZnr+lBzx
tKXKb+e4C+8g/VkOvqyu9nk5xmBfN6U4a1RW+4wc45ArXZ8jXzpBem2Ou4kz
pE/PMVf2fJ3trpKen672v6fIb+AbuGa5bQJ7GK7fv8jx7ZF8h7PNHXqmQ0XE
hc62O/IhciH+UWBIjr3j/pi8kxysrdoH5+BG/Jh8lxyPvj90/+TH3/g9ctWv
/S779pr3jlyvjvM9bGSV7eRrtZ2Vwy5WSx+e4161kca9Ncd4J+dYa9Z5X+mF
OfAdmsO+se3bsVOP3SlHzCJetZe+J8cZ4AWez/G9+Jgca8E61HCeQ17aQm13
5cj7aSMHIpc+2fYN5ppu5707JQdVxP9MHSJ9b478fFCOtWPdmHddc+0q6cY5
vhevlG6U477uRen9c3xTruTnGXepdM+K+EZa12tI+2C1PZkjP36Mtoq4Gxia
wz/xzYE5fKC717+e331c+viKOOu/is3myB85Wxzi88X9autUEd9aB0j/Jcf5
oZ/KfSvi/w6WuU75CcnAisgHj8vhS/jRcpX7V8Q3kD45/AQfWaRym4r4Dk8e
RW5KToXdc2Yj7yJe9nTM5GzDeYx7BrilXw5+6eg5gB+fO8l+11p9353jXAS/
dcvBccQaYijxk/hNjD7A8eYZx5zv9eylOWLoj9JX5vCt2Y5NPIP/E5eJyT30
++s57u2Ix9/ZXogZ3R03WuWwb2y7i/QrOe6jOSPjx5wtVjDXHP/b8Lz0Uzn+
52F1insOnmmsed2Rg/OO8fvw9S2OWcQrsBxlPLzHWQXugi9Xu58v9fvoHHGR
HGGAYwI2Si6Ln8LtvXPw+9azbwpO+UptZ+aI8f8H8PI7Gg==
            "]], Polygon3DBox[CompressedData["
1:eJwtlnf8iFUYxd/7vNlCe1rJSErGhyREkT2TdijtpT20o/VpSLtkRiFEVkVW
hJSSUaiMhqwo2fQ9n/P743zec977jnvv8zznuRV73t75tsiybCo4DGxEXAl6
pSz7C70c3gpUQi9GV8yz7G70KPQm8Cv8QlAB3h18AS8PavFsJdCO5yugm8CL
cf0KfA6mo8eBoxm/Dj2Yd38CM+Dlwu8eA6bDy4Z5EbAOfglox7M9wTG8fwN6
CHwV+BZ+BbgKvpDnF8HPBAO0Pu7Nh58V/vcQUIH370R/qPWCefCa4TG9U57x
O9AfMLYRrNS3QW/4VsaPYvxa9CD0j6Aeeiq6FGiL/pTrxdzrBy8Drwa+BD14
tyc4g7Fh6H8Z3wWqwueC7pmfOZ3xB9AfMbYT/AyvDTYzdjm6MXyB9iTzvcrw
BmAT/GpwQXhPtBdlk5+dDbplfkexaag5ZY5RW/43Dp1AUbAGdAXNeXdp5th+
Eo6lYryQ67lgGTzjmVPhs7TmzP+oBJ+pb2S+VwU+Jzw3rXEJvG54btXBOfBv
FO/kb34Pr6ecQJ+uPYbXAHsZa6qcCc9B/9Yc98H7gU/hn4NjWc9W9DD4anAS
+m/0+/AN4D54He7tgY8Bx8G3cW+49hqsh58HdmSuiSMYH4BeBF8O9sIfB5Ph
n4GD8IfBRNUCaBleg+auGmoRXrPWqpo5BH8STIHPBMX5/mvaA+Uy6IiehC4O
VqkG0C+rjhj7GrRCv41eAe8P2ii/ubcbPgusQJ8CNvBuI9UIvKPWBF/EvZxn
X0TPR3cAJdHPKR/g34HLC3JAse+EbsT4GPQhzQ3URo9QPLRW0DrsGfKKeugS
jD+teocvSd7L+uEx7alieVn424rppfDVyll4e+51C89Zc22Drsn3pqAPl++g
m6KnwUuDzuhaXCuCFsk5rbVfHH5Xe7BWtQ72J3uIanMCulC4Rn+Rt4DGyR7S
gPFR6AMFz7cPe4Bqv4n2Q7kM+iTXXPOwR8mblLMaO1s5kfxMab73unIC/kNy
rjcLe5Nyvg3jQ9Db4EVUx/KRcOzmq2bCHi1v1jdb8Px4dIBc+4I+g+t7yf/Q
WuqE56o1bQh7iLxDHtYp7OHybuXEfuUqGJgcM+1lD9A3eU8Vmy7h2lOM3oFv
AUPRa+TJBXPWXPXOQPi9YDR8MxgejqFipxx9MOyB8r7x4FZ5Afp3+AhwU7gm
VYuq4Zbwi7g3NzlmHXL3AHm/aqRX2JPlxeop16CPRK9M9ujrwz1HvUY948aw
R8gbtIYT4f+E57IedEU/hP44OceOR//HdRJ6LWgC3wk+gY8Fe7Q3YFyyBxXj
+fPRE5Jr+qLcniOvUY8onPsbeleeorXvQI9M3oOb4aeBX5I9qRrjAeapfsD9
8hLFMLlH9A/XtGp5AXgh7BnyCtV4Z+Va7rE5yblSFL04OWeeCdesanUGeDXs
SfIiPfN82CPkDZqDcqUQemFyzmjtpdBLk/fgjXDOK9d17xb0yejfkj24em5P
lherBzbPHQPtvXL6CXACel2yR/YpiIH2Xh77SNhz5bWKgfa6DOPLkvf8lbBn
y6s1x/fDniWvkuc/FfZgee9U0FB7h56dXPOPhfdcey2PVyyqorcnx+QlxUc5
k+zJXeBV1GOSPWpQuKeql27VHodrXLW9Bf1B2GPkLfIkxbI1unBBTIeGzwDq
/frnXeEzi84qOoNprvXR+5LnPDJ8BtHZQ/feRVfO/e8/wVvoGsrh5J6huVbK
PRfN+Z7wGU9nO9WsYrU9XIuK2cRwz1Gv0Rwnh3uUelMJ+GD5MLpkgYcpdrvh
05JjqL3aFd5r7VnfcM9Wr9Yzj4Z7qnqpakxzPRDORc25Se4cVu6qBz0bamLu
FepZOsyWQ/+RXEO3h/dAa9cZrnf4TKeznM58mmun3HPXnMeq1lUj4TOQar8x
4weTPWB0uAeq9+neR+EepN6Twevm7sHqveqJb4Y9Wt6snJR3Ncv9rDxM/+qW
+2yof/4PCct75Q==
            "]]},
          Annotation[#, "Charting`Private`Tag$5322#1"]& ]],
        Lighting->{{"Ambient", 
           RGBColor[0.30100577, 0.22414668499999998`, 0.090484535]}, {
          "Directional", 
           RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
           ImageScaled[{0, 2, 2}]}, {"Directional", 
           RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
           ImageScaled[{2, 2, 2}]}, {"Directional", 
           RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
           ImageScaled[{2, 0, 2}]}}]}, {}, {}, {}, {}}, {
      {GrayLevel[0], 
       Line3DBox[{374, 1, 340, 216, 15, 29, 43, 57, 71, 85, 699}], 
       Line3DBox[{3, 2, 266, 374}], Line3DBox[{3, 4, 5, 6, 7, 540}], 
       Line3DBox[{9, 8, 472, 786}], 
       Line3DBox[{9, 10, 11, 12, 13, 267, 368, 14, 375, 218, 28, 42, 56, 70, 
        84, 98, 552}], 
       Line3DBox[{477, 99, 113, 127, 141, 155, 169, 263, 384, 183, 372, 279, 
        184, 185, 186, 187, 188, 189, 700}], Line3DBox[{126, 112, 487, 798}], 
       Line3DBox[{126, 140, 154, 168, 182, 280, 373, 196, 385, 265, 195, 194, 
        193, 192, 191, 190, 492, 669}], Line3DBox[{477, 667}]}, {}, {}, {}}},
    VertexNormals->CompressedData["
1:eJx1ugk0l93XPi4qRUVEUppEqUiDRMNBRBGlVBolpJSSsQmVImkkU2UIIfM8
20TGDCGzzPPwSWWIyu/etz7f///1ft+1nrXOcj3btfe+ztn77HNrhe4VTX1W
FhaWo2wsLNR/LKkewp7vf3yEfysxX3tI0ZCTQbSOdD117ikALp3zylI8uSSN
/aC5IwwQzYGGb9qnS2FXh8p5ad1c4irSLFyrM0BO5HWqK3mUg3rMvrkzDXJI
eUYa7+PBfuJvZb2/rbUS1vkYpWZ5ZZHKTevCTtzoJ3uWD7ltL6uBI4nRGo/v
phGFiD9fvnP2k72y5cKZTXUgNeRivq8+grxTthE8ktpHYqJOr0TcMGgUcXDZ
XEPjU3iAyaOR3HsI/ZZkv06h/MK8Cz9D0G/8b4YqxvngiT/GCVlNUgswzil5
ATMvw/0bLVCHDcaXVCgdgPtnqAXqMEU3YOo262fR55yxLGg8zim/UyOXfDt1
8mIzN4O0SlwbTDmaD0dWvSqiVjJm5Np+MHGAfO7/VbNgWinUWWlMtwotIOMn
rk+rlh8gzcPcMp++lcN+E973+q4FpDPbdtZISD/x2Gn1iV+qGoZUnKv5pfLI
hcdDqaYTfeRUZMbcGTL1sPTc39nhpR/IhR8/e8W1+kjQyFD6JrFG8N1RUbYi
J5aU99y+bVnRSySLx5IRdz0eWE7hUJLmbo34D+0ODuTR6jfloHgg8HtAH/I0
uoWXoV/VnIdVlF8otklIQb+1e/p3YZyWp3cEU3HCLHjGjnEmBvIVYl7fVUdm
UHmB6bLjbJjX1SGDHNSBN/FkCa7SegmdqMMU3YCp20OpUieZZZmgMsqovTea
S57yuXQsXsUgb0iXabF7DqRG8z/KFiokG2ZXiJz6MEB+qT931ukoAiFHYS9q
JdzLm8/zbxkg4e92Sep6lYPTL9dtpedKyEu2wONnjfvJlqG9a+4K1cBex/Pj
hsLFpPZOQMsn0z4y773VS7eYr6B7vdYi9Gke2V6R5taq30u0tvJv1rvfDANL
JU75zEolQ3+iHow/6pmKAxPfkfz0MfJMi0q3onhgbLTGA3n2GiutRL9ycxJ/
U34hVrK1Ff12CbqswjhNnj+QpeKEmHDLkxjnlLyAmdcMYWkj1OGB2yXUAXis
pERRhym6AVO3YrdCVZn0ZLh3++2Cawa5JF1tgbO2CoNoi2VO6Jp/gJnpvjYL
IgsJx6YDE5odA6Si8tXcD5X5cNixWV5GtJQcUDaysFEZINtKSsdchMtA5Zns
tJfCZaTy0W1hsYP9ZFXECy6Z6TUgsSU8c21WGUmdbR7yvLeXdJt4jlZdaILt
r6WotZR0atrmiEj3EPcq/5cyqa2wxVnhlUxqFglZ3/3tXUwX4bwt5YK4Oveq
1xQOkYZs3xH/KSc5jDx/NXh+UTxQUd6UizyOjHQ29Ls4RTmL8gszzCrD0O+U
OIEZZ5fsnl+ZVF7ZGUYKVF5ww8zYEvO6Odw/jDqIxXejDnDtng+tg4HQoR2o
W3JSHuoGqy8q07qpndpZVjocBR+etM/eO5RNRKLic0dvMcg1jVkZuWzJwNv4
pDuXrYAYPU+eESfGICOHZSfeGmdBQnFnvv3GUlJyxfotcR4guhsW796fVgSz
vz9OcSgvJ7s5cl402faTWKHaM5ZFlTCda5kqtZK2/hIXXv9eMsTVLVCd3AQ3
1D/eMlevJN4qqkVtbV1k2RUuy8TxdnjLkxfso1FEerZKvg6c30Hs5jaZIc4T
oBtK4fB4oagX4r0b3vEjj6x3522KB+r2PC1GnvcZGfvRL3Mtfs7ijn6/r5o7
E+M85NCURsUJblWyrhjn2ocHezCvdRwHC6i84P1yJT/Mq/0+Wxvq8CdTAnWA
1VeUaR3K/V8Mom7eJAF1Ay8hE1o3LhvWk/UX30JUasuSO0IZpK0z46VVEoPU
5EsX93WFwOVb7n5RA9mEJ+32q9P3GcRznvXxmRrxwD86mJTbUkgE0gWF1RYz
yPW0l6Fzuz+A/6NIj7ndZWR/8dYLWC8r45+0J1SUwh+L0gpeUkPM4sXff17f
R6Lar9YMfGqAAi+jcmoly7irXy/m6yK39yeYHtvXCe/DTlkd21dFfsdKx9t6
tBC7upjLiG/JFrahcMh09ElBXMBFtRB5ulYcqcJ1rjSrD/LclGZpRL9+9o++
UH7h9I2/tN9feUHeGCfP2TGME2xSQuk4uxft2YB5jRaeSKbyAs7CZ3ReU3QA
pg4vtdNrUbeSn2moG+TZWNG69fD++HxPxg6GQ8v6DkVHkTxf6TyWPgZxm9+Q
Ihj3FMTkDfTKcxNIT5tpjFsdg/yBP3OLCjxhq/OIckZ6BrFl5FZlxzMIf6nH
jOscwTAmkfXNiiOfNIxu3xt/lEFGk6oPqFB10eZbeTx+XgVZ3H+Hjr9+2lGs
cxAW4h6i6pWEO0XnYZ2G73epMQhohY1rfcqplQSVZyilZTQS/+1jhYire9bW
4cp3bO4hxKfwAJPHXtjdCf2acB1DvzBxKMsQ/U6JE5hxTskLmHmxZcquRh2S
BS6jDnCB6zatg0Gq2mc7SrcygSLUDfyei9O6scQtK0M9VybNLUI8iceaxvc8
z0pGHo4ukSzk6ZinHY084l2X5qHf7uCz29Cv0D3VavR7U4mFjvOezZcJjPNm
wU2V/6InMPU87PlmGHWYY9P2C3Uodxz8iDqwKc3/ino51G75hCtX5bT9qNuv
TZal+HPAvisVqLPdcfXjiE/hIUyeKXoSpp5T4iTMOKfkRZh5xcutEEUdPGA9
6kDOyejSOtieuk7rObFqFupG3FjNaN1K5qnR9b7h9J65eG55vIjrf6n3/5zz
R3cTj2FdbBs/14F1IXH47fL/Uu/ArPfcnL0dWHeP6hqKse406w1CsO7050Mt
1qfrvdhiXAWEOt5gnRbG3LLAul57bqsB1vWYrHEi1nWF/PWriEdd/30J+0Am
d1Ua4p/A4xP+fuxM7zLsGzMVuX2RZ4VKCl3vG/vcS7DP7PCRDv0v9U6Y9d7w
2FYc8xIsKcK8yIqzAiv+S73/p+8d7WavQ932u65A3ciw1Ahd7589hun7qCdK
rleF6qtPz47nYV9NrjqYiX34SHR4IfbhOQeU2LEPc7D4/8W+XXOU6zP27Usd
z32xb895Ni6HfV5wtDUP+7xZyvtn2Oc9fgucxvsgdmTDUVy9bSNe4L3A+/C1
IN4jJxVPX8J7hF+pvATvEeH1IlZ471zX9H+K986c2cpv8N55WDBkjnhn264X
eE9Fdu/wRnxWsDZ9rwm+tL2M95rm7oWfkee59wTef3Ay+LM23oMOq5peol+f
+/1sGKf+k62FeG/mOSxzwTh3bknpxrzUna0wL6Lsdoy+Z8Xn7W9HHchLddSB
5IiXzUQdjjerfkfdcnV5UDcyqziO1m3KvATMeempkDjLOWpO6OhMv4ZzgnT3
dJZD1JyQy8OYg/NSqhGfCs4V7J98zHGu4H9ePY5zCHup8RCuflWrRXAO4dJe
Pw/nFst71Z9wbhlZ3B6Mc8vOpAJ6XtKvsx/Cel1ypYiel/hed9Dz0pP0uGc4
F4lbbx/Euche3pKelwK3uz3HOWpjshY9L6k46NDzkthTPax7MvubON0/rTyO
saJffY5rxTinKTzYE4p+p8RJmHHWW3iM4rwk/tYb8yIbf/nRc2BUj/YIzkuz
m2aa4tzoLatF6zBlXiLMeUlwMf9jnEulXI1KcS4dleLt/C/zPDDn+Rj/RBec
d59eEHXE9Yw5J10v+x3qNuCcvNhISQHn5O8Heeh5XjUV6Hn+r+PEIM7VKxlr
6bl6+pooep4P27HjGs7h83d9o+f5qFwFem53H5Tdg3N7tN0QPbdPwQkT37Qt
j57n95stN8N3QYnuHE/kOSOVQs/zP+Yc+IHviLE3hm3o98FvSXqen8YmpYjv
Du4/LScwzil5EWZeU+Z5wpznp+hGmLpVT3ei303vZhTvxXdTTvXQBXw33bzP
8Q3fV8x1/bWWVnxn2XAD/d5Me54xB99le3k46Pdm1jEf+r35yO+eB77jri07
MhvfcauX8Rbhu+/u5915+O7T5otIw3ffX7kZ8/CdyO3aNQ3fiWZ5MvQ7cYU1
B+C7UvtHVgG+K9+QZ/R7M/gwVwri6vPdCvEd6sETQr83XXrWciKPyvLTrPhu
jc7toXmMr+8tR7+16rK5+M4FdhP6nZsWdItgnAnPQt3xXeyyyIB+FxsU1BZg
XpV6hvPwHf3hSw8r5sWpNpGN+W9f9Anf38ToIlsH6jBFN8LU7dns0/R7/vKG
Vy9wrSkO+G/fQ4D5PUT747ZB/G5gs8vzGH43uJ76cBV+N5izYrEGfme4/nfW
TPzOkLR5Dv2dIT1zgv4e4j9y+T1+l5CJ+kx/D+EflXLH7xiyDZtl8TvGW589
lfgd46Z5Df09JPrvJWP87tEfc5/+7tHRp0d/D2mPKkWc1Hk30vgUHsLkucB2
+TD63bvEOxi/w5h0eoai3/NawmoYZ1SNLsZJgg/Z0XFOyYsw85ryPYQwv4dM
0Y0wdavTK/99RrIbuu2TZGJEs8n0sK4ffHytZNOYxTjiN5/abKdwSPV2HUI8
8lhvd7hhLyiVvRzJVyojcom3Otnt6giHdXwH4mIC1/9QOAxcPf4N8Ye2Ww/5
7/8MT9dFOqZW1sOgl867VJleIp8a0r5/ay4AW4x+smEzOZdSnI99b7WwVk9a
Zjv0GtXUUCvJ+JmewP7yM6m3zv9E4zbkB653Lyt9QnwKDzB51J0LmhHfXO51
CfF7PJfpOWpw5PZP/P2/w+zFuHqn/wTkiTz0vRJ/Zuc07kS/t6VvViA+hYcw
eaqqtY9jXiNyV+wwr8ptHXRe8zVN+lAHt2u+baiD2NYZPajDJcsdtG4WiXY9
qFv1QMt3xKMCb/9BnSOmF6xCnWcFX/iJOs/euYLeF7k5z0RxXzJeLRxG/IaO
RHicfS5cXWAbT62k9sN5+v3bP/yarWn+R7jqLVKRH5lDpKoK8iLmUO/fJdvQ
DpjrfrnZtP2vt1y/Gyn70ldn0B4WSQrmo/1pndqZkus7IODapUM8R5Ng54nt
eRW1HUT8bqKUekQnKCts0TR0Adjy7OlFsdXtRC7Y+KVreCs4F+scVPeqIsTC
Q2e+WgeRmXs0p7qpA0J/fZC+sb+MLNunetD/YhvxW5K459jDHngZv/7QsYcF
YCd1vc/yVRN5cmvkOfKIeXUdonjg6aw/ushjGv81NPpHDeTzOGTgKv/rFv09
oY7vpzufRDPk7gZnaiXeMZbqKuVtZNU+3j2Ofh3w+ehSrnMbvpI/Nets26ua
SJjLZSmVnz3A7VmwTeVnLans121yePCFqBWOP0KeO9UTNJ+ey5fDyOPpsE0c
7VNWVKpR9rD5u943tNfhUBr7El0Nt4rctWQsm2CeYeCFQNsu8kx5cVguWy1s
33Si8MvdVkj1ct0jn9NOMkPHTuuvzQTWo3f8CmdWQGdf69kg/gESevbir1jB
9/CI5WF/5IFSCHrER9/L2kOrN3ItcIG7fJrrHj/PBBsd/3XNkYypOGHi8Xuv
SyJus/ziPrT/Hf5sLeIVWsLWyB9gmIr8pKbTguafx+dwC/HAhxK/0W+n4LO/
eB6o2/cBztNRdtPx3Uz460WTcX4OYtmri7jGwafXcL7m73JORzxA/1TZd78E
yF2/PvW7XxW80s69PezaT5qXl4wg/5MV4+PoNyFdguafEidhxul55/Yl1Ect
80Mk6jNvcPMZ1IfhEdqH/OZ+fCXIH6EQeh35zZbcdM59nw3PuY8aXP9CzUcZ
Fz0Ofu4jG2o30+986HamvwdcWSEXi3FOOSfAPCeny/S24/7W+y4Twv2NchZt
x/3doNR+HHlOxC+9jjoYiYfR74tDORs2o/0tsXUb8fwIuq8ZQvs7nF++4L07
uVZDwpgI/d1VSjRiQSV1TrSdfh7HcxLiqH8Gz0nXxr/78Hze5948qrvhK3y/
UXEPz2fo1ea9WBdykRqyWBdGQZ3dWBdTzidhns+je8eSsB7abS7F/P/r4pvd
YTe6jvIHFLCODjUBXUenRc7Nwro+mr9JDes6+/jXHKzrXccanNE+3d1CCevX
75qwPtpnHEin+0zB60vvcGXkrqLPT5jdabrPWJ/fVY99g+uzMd1nnOfk0f0l
0H8V2hN9pRy6z+wxObjYRTMPMucGhpS9zCFGJw48y+8cILLWi9YhzvHSJRrx
Ud9tTxEfXsZF278wEo6hcNix8DeNvxzQsZOTaQKdrPW8W4Zq4M+WFpVHR7rI
cGr8LtTzxOqfAlS9w+XCoPuo52XBxiTcF7EnXytxXw7O0qPnk+tywpfx/Ezo
+Wjg+RFukfHB8+Nwcf6fhdT74mTAEY73xiUwdmqsTuvbADmyX3OxAIX/yHkl
gHiA6KdaxHnc+FOx3n/reOdivS94aK6E9Z7s77sb45nTNIsV+4/+pYMPMZ7V
AuFPMf4Lyr1zMP7IwOm7Mf6HXWbS2FcTrIZksa+q5a+5gH21uH3FB+yfnL2d
W7B/hom9O4L906nkBK2brLQA6glrOpxofRIlP49jP/96zgr3hfwQS6f3xY7H
tcJZgHp3LJaNbPCvJ2pv9MRZDrQTDhGXPMQjpSWTKRzOTC/egvhCGbUviFtq
jYQgfqRrgwTib1T35SNuY9IfhzxGGh5SiNesinK/VpQAeaUpYiUZDURMXyEO
39FOT9OK2KxKQWb13ugZsV3wXsE2F+to/9p3Y3luNZBRcpmv7FA7GJx8tklv
ZRtxuLKyD+033J8bQdmTfKH5H9H+gIZYLW1vqr8I7SeuRmxD+7m1Q+f8XhSB
06q6yC1yzeDmYRzC2ds9NR5gxsOv6m+P+BGvWZaIpyXw+iJ+eHeVJ/IsnzMr
EXmiedLfIs/fHSNfMJ7g7R4fMf7wt+yhGI/IqRcJiIc1VORhnPdzLcIRn8JP
mPwv+z/qXrMvh8m1FUaXGw0U6XWSKJX5sfg+jB0Lvku9CwnbtMq/+B609a28
h/jk2gqcB9VZAil8Vd/rR/fulkLDLVerVX5tIJr4SPjIjE7CPeARhHgu7yk7
xHelFPAi7vH14hX0qzs/wAD9Wos7daHfHx/35HfH58C/lRypTXpd8WuA/PG1
yUS89p49/f8VV/G8QXyuWTIJCe8Ce3+Ojee9GiBLqbZq+3AdsRWVi5P/1AY3
dDQKcfVMkBD6JVVDWgaMnFhnOcNvR6GnrBc+wsaDrwRXP2IQp0yJArSz0GdJ
pVYivcmHA+1vKVsEu9s0gdKtLxoWE+3wREJXnfd0E6nVdLMevu8HNobZ4dJ8
n4Ffy7PHo3SAmHVmvEF9Zu+ZHoj6uHN3taBulnIPLiNe2ScZhHq+1tFpQ1yq
pSsJ/UrZfMtGv5L2FSvRb9FJAUXMqyGsVIjKi7AnfqrHvKboA/+HPoSpj8th
24sKF/vBj/fMBimHXOK87PjPCJVKcjwrhoH311/n3hTq/iIyNhb0/Xhp4uwT
1Cf7poUCpQ/5alknhPrE8kvdNDDoAF0zdS1qJUe8LWcJCH4gmx361u9x6IfY
bI73EpHlUGgQeSctoIjs3HGkBPkn1yrCJfSHvh/Zgs3CsS+tMQ3Ip/oS0YtN
UMa+JBGlsVpW1RvMdLaEGVnlEjeBm6ukTRjkbamzUJ50H7gd45nVtCwD8u8n
POLgbyCO7H9U8D5ifSOuTt1HRDH+GH0fFewJWoz2QUkXFqF9SGLWM7SXUE80
RB2SrwpLUzrArZlx46iDj1RaMsbDvVyLjuey6WFFjOczp5ov1l1nQGU4VXdE
zNMgCOsuc7nwasz317wfxVS+RFGm+SbmW/fAcyXiF5U0mlAH+QczXBFv771F
ULcvfBFPcL1T/mUr6rZE4TX980/HJfK47o8REUD89sI2TfzZbf3tG6jzYOe9
PYgfGTi3BvnnjBukoN/qmIpXyM/XM2qEeS3+mDwX89K+YDmEeUW0StL7vnql
DR/u++4DZb8Rz7n/Whl1K81XJ6hb6OpZ/ajbtJWxwSIPP4LLorlXjmjlkG1l
1scSqPdXUvM9ZTyHWVsPCuM5jD7XXoDnUMrk/ZajOp3QYqp7Vt6hmfwdllb7
wV9LLmiZxutc6YZQiaSVvT+bSKG53PabfWXEZf2CIMQ1X4htpnAom+2xH/Hw
8kZrqWc10OCsqf69rRmME7LcZUkniV0bXh9woQXWLFbvwvWH6QZ63luXNj9E
hjoncLTrCZ6T2Do2UTwn9R5/xrEPP4hjX0D1YcLv5LUZ+zDLd+ko7D/5bjvM
qf5DpNKKl2H/mVK/hFm/TaEvriM++9G0LqzrvMjwFsR3/tAxwTnsSkjUKmrO
IhxnjvXjfCX8OFoL8RAhdkmcv+5s2VmFODhs5kGc86y0DOI9Qyl/EG9YeX9Y
mcJFyp0UkWdDoU8n4j0um27NvZwBjuutA6vS62FZ3sYWDdW+qfUIzHrcHGU/
wrI0ExpCOS9NC6uBBKed9HeVKf2NMPubYc7W6dMoe7hSZon2DwzXJqO9wsqV
zui3++mTPPRb1TpcjX7J7api7Esb7HzpPpo5bQ839iWLgmZVPA9L5BZyY79l
fKkqwfOg3XghA/f38be4+bi/8vPfK+D+fmj8XI37Mv64UBD3RV3eVxr3RbHr
713cl5rReHvcl9Xx9gtxX5zjOaKRR/KwKH1+TgewaiGP0S5jq7+LcyHsqeuF
OJUcsDnYLCA2NkBOD/8+Zy18HwoHZwQVc6eRmUvkE10LGETgqLs7niuuuwv2
4rl64Z38Es/VnJ313Xie7izprsPVQ98wCc+VsuioPfJfOshH888OEqf5c4f6
fLEuRqX5LLEuNsZa0XUxxZ4w7dOvib1F+7uXlbGOQLqzhLbn+WsmgvUS1nzF
mKoX4Dnsfwbr5bFGxDW8BxfHCZ+l7kGySsSiD+/BulMTH/DeyU28s5u6d0jx
qq1KeO9MOZ+EeT4b7RPXYP88XPAZ6wI0AtpFsC4upO7TtaH0kTT8HUjpA6Zh
W2l9PjksOou4wJJ7IiWUbi0hRvGIL7GeuRbj3DFyzQDr+tuLND2MkyPAku4P
HG21FpjXZu/VdF5T9oUw9+XV/DunsH9mO85Jxv65lCcnAPunXi7HYfwuUW6/
+35qZT2J9A4PxO8Sst5nL+DcyxEG56m5lyiw/fHEuVf10nq6/y/aq8tP9XOy
4Ica3f+Xh3AtQVw4fxEn4mdVJZ4jLnbnjLNb61eoHtDY+MShBd6oHto6MqOd
/H5+Xxv9xrbVPUS/C7e5B6Df5LQdbujXPk9aHf0qeQd6od+navuNZeNi4ZYX
m7X5eBlZGprLqWg6QMy1z6ydoxMFfsmN7nOdyuG0y1+WRL0BEnL95hrEm7sc
wxC/sjbyTwKFZ6co0ftoOPpSEeeHlvHbiriP2we3y6DOJg/1tfE8lEodPIg6
6wekBqF9e0r3Adx33xnv96O9TUdQMPa9xv59eD/CuLoHfT+WfijUxfMfH+CE
+wiWghb0PvZudohGHR7qh61BHbhnW29CHbQ3fT9pcLgM9tXMSfMTayO1pQGk
SqCTpMkuuYT5bsiseoH5pvs9mYX5viBnq4vGHsFSnhdambcyIfWk25uL0Yyp
9sC07xC9el9ghj/MzpvnM82+EOZxvlTslGGQ+SYJp/AdLfOMN4p6R5NU7TD6
HT3lHUSY76DhtwkG6zpyoD8wne2cZA1ZfnJ+U21tH/H86fAb30Hd05rwvUN0
Nbjod5DVjYdnWyUBuJQrjMX3VJBhrRu1iYsGiOe5kQcy6Z4wmyPivEx6Abw9
1/EM/44wBSdM3CbU0llX6CtMV24M3+HwFlrC2qOObe0j230di3RYm8GUX2ux
f1oQJP8ZYXXn6iV6EeaH9HVaoVfszbudMlEQ9FzSYalON0nzzJyhX3MBinyu
6fqyBEDUgQE97l8MYiLF3cq9yxwc1NqijkqFgVTENTOn7wwy02our/uOe8Ab
/NVnnX8cLFN5KHmghUHqEi/VIO7mVYM4qa+9Q+NTeAiTZ4pfwvQb2NNBfzfT
5sneT72viZqKCv3dbFH2fTr+Vd5anlT8pMVHiY5/MPY5na9NtygHlS/hlmNj
w3xFWm7T+gSctfaj9CGLbXppfSyLZRUTY/vh5rZj+omxRTDf8gCrnFsZ4U8K
CAnMuw5f975YPOtHLDwYybx3so1BHs6KPBebHwYrT4hfVT5aCcJh93Ub+vvJ
yvWz1iDeLX8YcWJVkETjU3gIk2dlcOEe9LvMRmkb5ZdwPuplQ7+lYVfKS6hz
+7XvLp5bMtx1kz637kFb1hxVeguffgfKsj6pAHJc1gj/DsUz2BE9nuoCNadP
H6699wnU1j+JvCDJIH+/vJCwiowCnr+az8p+foWMly5u9L8LOn+aVVz/A6xV
SD1m9Zd6Bys/Eca5cejHxLAlZS9wtQDtSfIBFnfafob+h/WU/fC40XHKnpQK
rhZBez3DhN4jVDy7N6djPERgwQk6nvhzm7ZiPHlnr2I8xLfRl45n3UOH4fv6
SXD1+qm3q+a0AveB9RuP23WTY8suJlluewW1e2pmq7J9JsZB2xvkKwfI0xM+
Mh5ClnC898Ja86eJECTqmLaglkEGa7+tE/S8CurXq8tYEmJg0yLl956dDCJk
uHoX8kxs60QeeMw4TPNMGLJko99XXWnol5y0DaP9DjzwSfjW0gdPnd/VD8ln
wcmbTVKmn2pI3MfMTE7xPtgRkD5tjng98MJzT3XbHJLEMVaM+Nh4ZgGneD0p
MFwegDhn0pFE5InqE8ujeMibzfe2Is/HTgfJjucdEBbLeNFOrTP1HGp37Ywm
SWPrHXdwlYNJxuXUWtc+cFcNS8E5qp3nfRLaOa55NYv6PfKp1FuGUPanrkoK
o/0ffYtCyp5EsE/koL0i6LMvExkAkbymPSBQQaK8Z3Js3p1OHtquEZ2ZYQtz
U0UU5xoC+LJeCajKZJCo2j+MHw8ewqu4LcLv0rLBz95mjYAzg7w/lXWAygdK
7/8aoPIj707w22NepX61W95Q+v/gP4v6E8kY6/+mP2Hqz+owx+CVrSmMfFpj
Gv4tjnRKBLNlNzNI0M4f5z0o/OWK9YhDw4xwGvfN3M6F+qZESdB673lqp4t+
h1o3rWKn4v/oLITxE/Ysg/8WP2HGf0dTf/4ZBzvQSFlhojmSSZw0tpTeCmeQ
sEzlL1feGoL64YiWV2sjic6NOcGvGVQ8zxz5T1H2fCLiaA8VV1Ro+7eSaz9b
UvZ6MqFoD1zHZtL2XxL8QoqM60GGl/3XAeIDTpkqC13e9ZG0C23JFqONYPVS
W1zjQAA8qBxLMovsJT5cJW/2CLfAqMGJsp0zwsCoWk1zQq2HiNc7NsYktYHD
4fa2mKRYUOLee+vwri6yMGZ//g+Dq6ArdHLzJc8g4Il/YG01TL1bPaaNVSbp
QajLyMCblW+hs9Lg0JcxBtELfHnwt/gtaL3o1JX2OgqMnNfs0+9jkOXk7KOR
TY9AfveSkOFNKXCnmvGhs5RBYgTtXXWO2UKcrjnLC7tEcNS9T+9jcmP0rppl
wTAwt9y2ZlkNpCt2ZL49109Gv3BNRzxq7wjiZHYg9wfEBRcud9GleB73GiIP
KZU0p3mm+CVMv2/D3i6ZoOJ8zGKPcRK3D0vpOL1CQ80GqXzb889gvqT35iM6
34s+x3/VUvlyCg1jvuSenB6db4rGMP33EUXbMzsNXYBYf8ih/z6yPOg1radR
3YlaSk/i0nyK1vNXay2tf8zPiymU/iRi4hStv8H1Pnq/uD/Ir6D2i3z5PC0Z
9+vdsyB6f310VAeo/SWNfvvp/Q19vfg6Z1APeJwIPvY5KgFKXbUKzpg1Ezeu
KNuqsS6IVzSVK1wbTd7zXJzD+NpKTvi70riKvLIGhUPEPC0aD2rn3PTAohc6
vgqQBxYpIL28KGyEq4moKIyNOVRfhS2yxg4zXCNgZWdrwqFv1Hw+X0gLv1Ov
K7p4Ct+7vlWsefjOfXG/u+Eohffv/qhL4cTS7mQh4mvY+6ocKZ6G4xeRhyT9
bqR59NoHv5RFmMF+n++jdYuiYWG1tpJeL4OcXL1l2hfrS/Drk7uOUkkUdLbU
bRCk9iXTO620lrKX+tmB9qReQYm2316zeJVTVx9cncPRLlEQBX+UB9lm8NUR
y8dKsw7uGoAY+/IdXC3JsH/VXZmgonJSwfg08senH06oiIadcIqD0BRBtpDn
VcT1cJFbY80APH/s4K8Wnge6AfWrJc7kkjZ7Obo/Lgw0ovvlte05i7DvuSy+
O76U6m9fNhx5SvU3EFq28O8mqr8J7NzDwxo9ACpv2ZT3OWaSDVJL5uX5lRBR
njZP5P953VGP4ifvIjavRf6BVJ5RjOcP98nnVDxkoYImHY8qlxq9v7q2G5Wo
/SXsB8zp/eW3P65R+lEXLJ/+kND7/Z7MuzbjjttPBlkle+WK7VV9yBhkPxF6
I4yINCpXnKXmFv1mTXp/hTqVV1P7S876D9P7ayUnT+tm8uZuGaUb0dBcMB11
uxV4W62a4g99xUB++JbFQvNzDe948qasG/hkt/FZB8XC353PNRoTW8iYwBka
L/s4OJ3CyeCfYBrnf3WE/ruDv1jdQZyL4i9/pv/ukLvv0fLBlHbovW/E3ygR
CMdtdvaJmnSSndUpKeMHOsGqJ+Hb1ehQEH6/sLetqp348In0r1jVBUFrEwP4
BSJBhDVs1L6rjTCEBj4NCvXBGeeq7OI/YTDnLuu7x4e+knfG6+aj/mpzWAwp
/WFzzOgc1J9tZQl9Huq+j8+nzgMJlq2nz0N/NUsR8hS2rg+neEh5HD/Nc9j0
QTJ+/7XIPVHCZlVK7izcnIrv2RcHWwvN27uhp9DHonZ6LinUYr+n3d5MZp1i
NDTEUfXY6xCbXPuB6G177fZ3rIlI2mtn4vf8X68Z22/sLwPj4z+08Hv+km4O
Qzm3TvB/fkRtT2o+qL3NWKXo30ZEVbrs6ky6wKVASGNdbiacdxKVjl3bRs7q
RB+t0OiG+dbV8cLRX0jdN9XtJ9SaSJnz/Fk3uHvh5+8n6goDxSSrlWv1d5Ov
ZPCuqpvahV7YZny5urL/I6lUjvVYLtpI9PzNfv9cRPEYXk60LC8jnCuyuldf
bybclTbBGj7dIJPdepxNtJg0xnl+bvdqJq0VzXrSOvXwSOuWhs3qa6TnT09J
bHgfCVLcHX4nrxHi2RcHsZq+JdaeQ2JqGb3kzeDwJafpLTAtPUAjTi+IVLof
1so26CGnm7Zfm/W4DQijofbY1xTCN8ieF6/cRYyWnHG5+aITFqnnHnrMBqRW
02K92752si3KPcB7dy9wKnWZdBdnklU6H7lcRJvIR8k7E3YR/aAUD1G7phWR
+PDUjVv/lpG7Jpznx9dbwem7NRuvewWTQ0FmV92HGERTLmjt3Qxq/u8rUuvf
EU36SaJpUQ+DOIa9PcPv4UiW+H75sOl7CmyCgsZjxdS9kHDKS+7tc0jf95Yo
hkQDr+QGudEuBjnyca1oetg9uLZrWbD70vdw9Pu+Uz+puvgbUlsTPMsBxrt4
02PM/MDK42KpHfUu0BFh2D1j0yeFVvPFRTjCwTruhXn9IIM4jF+RfPjsKBnZ
cGXY7nYY3J23R0aPqtONApfFVUqtoPHMgtUcvBkgKKxZ9jed8Z98907mC4n/
8u0SmbTvnLQnTHv92787WeLaYKVlcMetihBYed/ufJZWF0mN487kpu6dAJON
amklkbBa7GBmkHIPERGbqFrxtxE8t+a9jlQLgvgbGaUnQnvJKcO/TUWOPbCi
Nyl44nw8seXZHHctsJnwOl1OnxCwh8PKr7xmSyeQs0HWqkkN1H2druzn4PkO
jHZyrFbxzSYrK/ZBsRODmLVeHJV5HAZaQ0vewopqklIzw8/NpZ9w//IzELnV
AfMmV/KnumsmtZdEr+Trh4HyVPgVlCe0OqsFlk7fsTw5pJtsLeoYi9N+QVjq
1ExFFfKh+4hpl/Mpam5PyCsrdbUnIopnHL4rxkO4wtb7Bk0MMnChWqo6z5E8
4r2673hXAmzk3+VrXccgLXX6y7o4u+HWKaVFNxKjYdPG21VHc1uJx+514nU5
XXD4buHSOiov3bU1Dwo42v6jg8ikDsDU4aHjpA4akzqA7j8dLIwm/T6e9EuY
fhNafL9fH3OCiCvb3r1sLYTPf5VCjslS88mTArMNv9xh9t1Zq6VWfoITS2zt
xKUYZGHHpP3bSXtS9s++Z0g9ba1UJ3S/md+gVRYCy0vtip4Nt5MQw1/XVO5e
gG7vuRkWEEvCNj6uYm1nkLaPRzYdl31G1F4nuBuwVJJgM8VKL84BIr/lxvdX
DjngfJWt+bFAFxwKUBueta9tqv6Eqb/CP3uXSXui+c/e9N/+ak/uLzD31zdn
0u++Sb/A9OtS3BDWcToG7myztlFsLoVDS7J/unwcIJGip06wKvXD7MzfZ8oV
ouFkyLvHxyxqSMKg2r4llv2Q2HXvNtvrNHLq9j4H9aoqsvKfbiyTupGT/3Sz
z1jhbPnnMVmiNvb65vIMIuyjUPsljUFyHhW8fhI1AEG1F4VC9xZDj8Mu87Ty
LFIdwHKn274PnFUuX78QXUdWcOR7Gc/PJDK9V7asvVwFB0Ic5j3x6CN1w1Em
59xL/8PjN8lDmDzxi3lrawcHwHNj0j3lx5mQqjVs/MGqkIT/y4t1Mi9i8C+v
JStCTVkz+2DT018S2b8joYn1q8SVrDqye/bWK7tVB6Am9NIr3535xFn3HW/F
/tL/8PtM8pOUf/xT4gRmnDX/8no5mRcw8+p9ea9jXHAAJoLSujqPJkC5hljA
0vaK/+gcM6kzMHV2/rdf9yf3i2j+2y+mzksndQamztlrixb3tr2GzZuKpTcZ
p5Bwxb23nxQxiMuq8vXs39SJc2pPZ5ZWMsgpOLI9rPj/7MUm7YFpfzTMcFcC
ex90j/ls/NkWQ84eMV0YafX1P7qJT+pGWv/pJn54Vwa7dQMcE+u81s/6AtTP
rro4oNdHfhOPJWmCjZCTU2EgKugC6quWN/gO9RK3Bd9Yd71rgqpQvpbHfW4Q
8NL1FTnYS+bm8hjx+TXDop7ghyljnsAuE6c/LbKHNHy6w+E/1gLXJmovWDzz
AeM7R1QOpHeT9755LJcl2iD/r7mxVONbiJMX2SRf3EWi91bwSQxqg+GtYteO
Mx6wL/aBwfU/DNKtPlf7Vqs+dJmvXcL13Rfqd1sPMqh3BC//2VYtZzPo5fb+
vFo1BJbMWeZDqPtFKKjyJYu/MSQlq0oUnXpH1npWai0bZZDIacdmbTh3Fqpm
LW79ftuLXFtvra79m0HqNiVzb3mlBbULrTNB0JVcfZhyl+8v5fdf3+id7BuE
2TfUT/CE8ha2w+q2z5/X7QgialvF7KbrdpLgf3l9nMyLMPOaogNh6jBFN8LU
bYrOhKnzlH0hzH2R+J/7SJj7eHK+WI6f9QAs3NvvdKo2FT58X7O8dVoZ8R7M
ztcuvwCHpnOscZ8ZCivYho3DfjBI40NFPcXZeiDDabVzwccgKJ/YKqhLveO+
/k+cMPET//gFJvlJ9j/+yq/LRG8IvQS5buPz10ZKofr40wi+mgGy+KFHl+3V
Z8BhcdPzmHkRtDWMp7IJM8is9vhqj8X2MLCi6x1rWw5cWfhjwPAmg9zWCjFq
jgwA23I72XNfa+Gbwh8XFrZ+oq34TPfb7UTQsnjIzxHdDgfVfh1w0OwksYW6
Iz2bomFfH++6c49awCTwp17CWDc5YH7DxlvCBxaGSzqdKqkkLjpc74Oa+//D
bzfJT5j8U3gIk4cZ/+zJ+Mn/ET9hxi//nfXGUVV90NBRVDR2iQJ9kqjwlnqX
LbRdYJ9x/iwotqWKseiEw6vjoiaPqTnHOGdrUdiHTpA4YL1o04F2sLnKkWIm
HU2Wae+2Xne4FeoP5tywk+mGYyIX1AfmphMu0a+/n38sAKXIs8q9W/rhQpzK
dSHLSsKb7ag34dwBPJMr+eF9yKSqNZJ0yt1bJaFQDYukj4pFG/ST/i8fX0ls
T53ql9j+85s/66o8+9Ic4JSZzqdzupewT7C3/9rdONUvYfrNWJuqun4+A5xL
7sjvmVZI8rTXe1csTyNPvo7u2McwAeWsA9Ul9xNBu8q4jNQyyOXZ/YxQSUvI
iv69e9HjNFjL3TIkmM8gCv9TN/J/6EaYujH5NSb5CZPf+H/yEyb/bJ2tiirf
jkAyz8jCcrlAolawYOzhCIMULjU52+inDXZ3u+RWfgqC7V6Hj+pQ53zXg4eO
M++Ykst6l2+xqIfBn0hX9RvU/Hl/TLSuTE4fWutLzqUHu0Cx7XnGfqpvfG8/
m/aMvQtezXlUcnNTHCka+LBWeqSN2odaq/tJ9dBU+HD6yRBvcnzOr1OrXfpI
fa6B6sEbPRDqEjxo8ycIzsXuO/a9o5lsHXy2oc2kG0xTGmpzYv2J0O7tf/1P
tpIJ/4gwgYwukGtMs7q8yQ84j/ufvU7aptoD0z75qXDAVX8dWKOW5F/c6g8v
uefqi1Hz9hScMPGIhdXmez/2gVL78ZX2XsGgISl0+smXOlLaxh42LDEA301c
F5kHxED02QoN/fAKkjx749wFX/pBoWnX3dwDYbDj3LKT5fWVxHdf6KaHMxjw
2764x9nnA1w65b5IdF/+/3nOi2ecvJdvUwcRuz98fBrUB9x1IndNndL+c65e
Tp4ryPl3rtIYewMVhgZAXzM57fPJBDIrxudKlXTxf/yOTfolV//5TfkX5/7J
OMm2f3FG2rNmHF3XC54J5SfzuUKIWe7XrqNlTaTu377ETe4L0fu3L+LvUra/
unQIOsbUPJ97+5M5Q2lOxyjd+BdZb/d83QsTfZV/f0RGkQL78hlvZjT9R0/V
ST0JU0+lbcELdnraAPsidfYzHCEQH0aiNKn7q65o0PSaTzs8btBpfGIWSn6F
r2Ck2XWS+eM6XI8Wd4B22u99/os94cnMGQYzlnUSxfKq0+XjHfA36f7u/Sd9
IWWUbYvEzg4SZtjjx3mwD6Ke2j856O8Pt2X/nuqPbviPbsaTusH0f7ox93dg
cn9J7L/9DfnHEzDJQ+z/8cTemuduJs8GgnOvXV3x2IRYutak900wyHsF94Zr
XvUwzaiEM0P/CnRYPNkj7029f5PD+nxZmkDPRLHqi4IZ2Tb3St5EXC/ZkxK4
3HJzCwSOOlaf9LhJnpu9dnY/2ENm/HhuFdraBnovdlcsSbtHhi9ER+/c2UX4
SCOp954Lgl73xh31LclzVa+8Bsqv4TS7gV0mi+DbTFsBoVxb8umH45skCh/9
3e5q7r0G3G5npV+Z50g2hrduO0Lhrtm3r6sfXQz75v/Unet5B2RbFjpEU7jY
IRWeZDMuWMb6pTBB2wp2RVcwailca5Xsu4hENvhlxdvdUWkCclaBizHft2MV
3DNsWiComidmXfItUN/DGI9a0kPW7BTnE9nVBMVWL7+MjpmB7DbOW0te9BKj
1tqnA6X1cD3t9qw3dVfg5M9mBZcXfSRZIifdoEAMDDQWG7N9dSSa6zRuq1L8
B8/8GOjI6oVPKfFGCc6eYKSRcnNbTiNZIx65LmRnO8hkvA90GL4HGi3Wy+4P
dJK4FLeuWcKbYfXxiZUbrZ+TZOXgliKqL03BgYkbcxT+erS3Cy5rd6zaO/EE
bh/hXnqnoo2oqLKd/LvZGKyVPc/tfp9AMlMEmxrqGeT5T39Zt6UPgccl/03j
2gIim1j154QmgxyWeCE/qv8aAnNv9vzYUElcOTYbvGYZIBwSElLulP2jB4D2
UBhRSNuXebEpFQjcgPGq+YpRfzJg2tN1TkcSGORFpqncJwpnvzAPcaIuKkLj
P//eSqL5D15AfhjkFaT5p8QJzDhnCCj4OD0bgDPLn/9WWRlKVmzkannvXUby
khc6ftq+D+6yfrg0styX2KofNLowziCcIzvfaHwZgA6R+LylsyPhfJ5iBdu7
UmK3Yme9/2gvcOwsPhEm/hpaC5bM9p7dSF4vHdvVbcKAa12+by8sSicbdQW5
+E58IKyp5nKIL80/s5PCQXJ8hMZX+Az+KTzbDwxzqXcD8Ba6w4O8/HfVkPyo
W5HtOrtAgy91i0eRG2H9PG9JPjX3hrQR95PbTkHEpUEbg2lhxKfMKaKCunce
OZ1fFWoaAyaPf4PR7jYyfJ2hER7QRQTWjaaO3v4ESyYEN+8J74cmIUOWI9Ll
xJ9T/0cIZb/fVCWDsgetQtUDaC/Mtm6t89FjcLS5LGRzRDAsWbNFKWyI0m2W
/EaNz3Kg1JC8vXq/B4lu0DpsQ8XDE7JBYiu/Jjx6odl/aFMArD/qmz1KzdUO
Oe/X7qFwG96DiBN9Pm8aFzy2PfMXFU9G8ugqKh7ywkl+RIuK5/N297gU8XMw
Z8MvonQzCiyWxzbUUvd7wJvxZ6+pfTl0KAv3BfSyDtH7Uu3/2U21YjdsOPpu
17TzryHms1R2NTW3N6e103q+ilRMpfQkc6570Xp+GpgIKaT4+YZ+ID/hePme
5v+7v/bEVx1WML27n31Y2gTeBo5Y9lP1tYhV7vAJjbmwaX90gIStJXC8fHwD
+4n6slaLxZaLgFUZ4qR/24Kz4N6GBApneX0vIX1CFMLXWy1Ik3xIzAwDNM+i
fV1ZelTmQlhoxh52S9qWXP3psyudwtsYmaoZgZxwWnW30ZXXFmTbt+mcTRT+
revbno8fd8LX2OPmMw67EZbb3+80/vlf+RJmvl6Zc6IYQibwnG3DopsxSWAv
KsPvWMkg6bcCA/p+P4aRnZvcQvWKYJ/G4TsSqxiEISU/lj8/HKTZTtjIPmkm
JofiU2So94WC+qksDbH70MC7VZD9XC5RCfz5Jsj8f/ETJn9NZMEE1l3+WsGZ
Q1Tdmbx03Yh19/FLjXweVac7E21ORlN1Wny9+C7WaaP4nW6de0chN/q2nbpc
MFiIjhfMoOaoyypD+nc01eCW4edLrmxvIeutd2Ef9Y5bJJi8Detds9YKecAg
KJPm4WxutEe/BT7r0S/hc4qg/Xb8qS/ewM6AwbrnJvPzi0A//ERguEoMcbON
bZN50wEmLjGe26jV9NnpJT8f+JKQXa+ELq9PAouavfqVizphdXdKv3JvO/Ex
uVaAPDkjG2MpHqKrYl2GPG9K3Ef3mlJ1HfH7UPnKTGJgljegp5BBSmpt9Rau
PAmm9/bMPGwWCh5f1+Ufot5N7uFJ8z6NXQT/dne/n9/i4IMjd2xJM4PIjt5y
HKHO/w2hHwZ4/p23xG7E8//squ3AAUqffDZb1Idw8v2l9WEPsTE0ofQZ6qT1
IVz3fWh9bM3nrt9F1Vfr6eC+w1R9CQ4MZ2F9fessEcd6vLj0PeIwMW+Uxnmi
2XyxDxh9KzuKfcBKrns1+p0SP2HG31zyjaOUir/WzRXjJx82zqXjrz9WGZ5F
1VGgtXLaHqqO7q25VIt1VDNDRP6XvQroGsv9eX7ahxxSdFUvoer0wUaO91h3
Ic2KaA+fdM/T9jJZdq2m1DzQHi535oP6FdA+rLgU5wHdrb+Obl7WBO/W/eK9
Qr3j0wJ09sv795IDF8y3TNduAceQ1eOvFt0CKx2/QAvpHvLrlRDrhvnt4HXo
womza+3g87H1EbF8XUR5Z4vbUoN5UBAZ5dHw2RKSbTod6qn66pdvvP1mtyCM
bHrvJih6B/qjQy3jKXwf53URvI/clnYtaKbuo9MxUj14HxmXMdbivbZ0/XfE
SXGKPI3fsfWwbHy8C5YscJ4/r9GNmj4YtR+pOtWT5zPI8xeDe5tbkk4UOJJP
b5bcV6P487J52ndTfkt30H6JxsdJv1PiJMw4d0VvSfopwgYfot3slWxNiOTd
mXU4V1wpnczXyuDuISpfku8ymW/hzUl9fLLHBil9SOONSX2+yE3qaX+gm5PS
kwQmTOoZ7SWn3zWzB45fErm7dcCZXLGx/6T+qoWkVBjf0XzSC7kf/hz2FvIE
9rYfzx6SJpKwUIG2L7l534KyhxEnB9reVMJutaBNF2w2/147pPyMNC7yOa/4
so202Cj/bKTmE1bP49u2BnqCedlOJzlqPrG9U/ZEaGgdrAi1HeKVdIL4Y+zq
MlRe+fZC8Xgf6Qd4GV2i7qNSW8nsMOo+4sjzuIS4hDX3JQon5WPJNM7LKf8l
5Oc6CGS7gzyEK3WSR+R4zidRshlg7uEo9kfUPLP44fJP1DwjMtPPXF53H4je
87K1E/cFtyezwnXH/5c9YdpfyGC8XebRB8vuC/h1nfEmhS+2J816V0+CdnrQ
uBrXc38KB2t952TEMy5x3liyuR84o7L1y3/4guaxPQac/LUk5fEa868LB2Dw
c/BspSWBpC1ynKvg+ReirvjZDPGgR+85KRziZGvnI75veEI1/fkAmIlPPzk3
OARMLvGVB3uWkUKjutsnn/aDqpwKy9cIP+CWnFmveq6aeNwSvmMgwQDXsKfl
13/GkGvBawIqxwvIw7gYW8Q/ipdWUzgkpiqEIu7gOTOhwZAB1U66MYodyRDk
WOpx+Fo2aZ0xIxv73vs3+qt5qL533sjLB/ue8XVPQLwjecZFCoetMzILEV81
5wzdT22F3tH9dWbwxCvsq9ovLw1jn3xwrM6F6pOQ1BbUj32yTsGVjtP/go8/
xnP69yM6zoKbojSe090UjPEHcL2j4+ypWhhhQM1dvErm4UvNI8jczAWP2d+X
knIQSMT4pzfsOEvFT/ax3PPE+Lntd9E6N7PqdCtSejZf5eRGPf12dtI6u6bq
9FI4iR7rpnUWudhF6/mg1LS7IcKPnO/ipvW03nT1JqdLHaz1/LHHLbkPcpOT
o78eSSAphwv7OSjcSc3yIoUTIf06WcQXSRu6r94sB1u4NEXjK9yJ+kLFBW5U
H1BpeE3f16KdW9JZqfvaMqwpC+/rtbuG6POTuHuuI56fmbzy9LniWLKQPj9r
XUfVqfND3uUdoM/PFB5g8iRwF7gcpfy6NR9Av5DyQoH2u1vzclQrVaeHcn89
qvztDH+t9cwOUnX65twVGn9hEXOTwsnlX/o0/kVtvQHPwi7Y9266I6fkY6J5
P/LH0Lx26j1ifbTfqwOuGdgf/ZXuQB4p6jVZ+HYQjR2fvIZIO7yZKfFOk/c+
eIqeEb3c10lE+k7S9vfvhaI9XJd6QNu3LQjlEVjQBYkTqSVtyU/AxFbZTJan
nYgcqHnjQL0vQqZr3pvN/xTiVsj33KXeFz7Zd9ybR3qhOEk/lCvwFWSJ9n2q
mtNIary/huN5+E38eqjzAJcrhpzwPETuXaOG9RIdqrmOqheyekScrhfDFC9a
57ai+4+wfpPa3ek65Xd4QPOLsUg6U/zE4+ogzf//ALmhUB8=
     "]], {}},
  Axes->True,
  AxesLabel->{None, None, None},
  AxesOrigin->{Automatic, Automatic, Automatic},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGrids->None,
  FaceGridsStyle->Automatic,
  ImageSize->{411.5522461893506, 322.22222222222223`},
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "RotationControl" -> 
    "Globe"},
  PlotRange->{Full, Full, All},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{-2.9459031935116764`, -1.4363582445071648`, 0.8417418653566022},
  ViewVertical->{0.22359535808930045`, 0.10902022738984042`, 
   0.9685657984157737}]], "Output",
 CellChangeTimes->{
  3.9499009461175575`*^9, 3.9499010042024136`*^9, {3.9499011195222187`*^9, 
   3.9499011236717553`*^9}, {3.949901205962259*^9, 3.949901225748378*^9}, 
   3.9499012753987417`*^9, 3.949901501221053*^9, 3.9499015510574102`*^9, 
   3.950258105501433*^9, 3.950258283167303*^9, 3.9502584774393425`*^9, 
   3.9502586409726076`*^9, 3.9502590001922493`*^9, {3.9502592761640997`*^9, 
   3.9502593020701036`*^9}, 3.9502599196693573`*^9, 3.9502602785442033`*^9, 
   3.9502603724360156`*^9, 3.9502604423001165`*^9, 3.9502605525935135`*^9, 
   3.9502606065871153`*^9, 3.9502607792773438`*^9, 3.9502608312411685`*^9, 
   3.950758960520996*^9, 3.950759214549924*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"75ed8125-52a9-4a8f-bb5c-a926d21e1993"],

Cell[BoxData["\<\"Right-Above Discontinuous\"\>"], "Output",
 CellChangeTimes->{
  3.9499009461175575`*^9, 3.9499010042024136`*^9, {3.9499011195222187`*^9, 
   3.9499011236717553`*^9}, {3.949901205962259*^9, 3.949901225748378*^9}, 
   3.9499012753987417`*^9, 3.949901501221053*^9, 3.9499015510574102`*^9, 
   3.950258105501433*^9, 3.950258283167303*^9, 3.9502584774393425`*^9, 
   3.9502586409726076`*^9, 3.9502590001922493`*^9, {3.9502592761640997`*^9, 
   3.9502593020701036`*^9}, 3.9502599196693573`*^9, 3.9502602785442033`*^9, 
   3.9502603724360156`*^9, 3.9502604423001165`*^9, 3.9502605525935135`*^9, 
   3.9502606065871153`*^9, 3.9502607792773438`*^9, 3.9502608312411685`*^9, 
   3.950758960520996*^9, 3.9507592145971103`*^9},
 CellLabel->
  "Out[104]=",ExpressionUUID->"7b5e77df-c2af-4c51-9809-8ea058b2353c"],

Cell[BoxData["\<\"Left-Above Discontinuous\"\>"], "Output",
 CellChangeTimes->{
  3.9499009461175575`*^9, 3.9499010042024136`*^9, {3.9499011195222187`*^9, 
   3.9499011236717553`*^9}, {3.949901205962259*^9, 3.949901225748378*^9}, 
   3.9499012753987417`*^9, 3.949901501221053*^9, 3.9499015510574102`*^9, 
   3.950258105501433*^9, 3.950258283167303*^9, 3.9502584774393425`*^9, 
   3.9502586409726076`*^9, 3.9502590001922493`*^9, {3.9502592761640997`*^9, 
   3.9502593020701036`*^9}, 3.9502599196693573`*^9, 3.9502602785442033`*^9, 
   3.9502603724360156`*^9, 3.9502604423001165`*^9, 3.9502605525935135`*^9, 
   3.9502606065871153`*^9, 3.9502607792773438`*^9, 3.9502608312411685`*^9, 
   3.950758960520996*^9, 3.9507592146011295`*^9},
 CellLabel->
  "Out[105]=",ExpressionUUID->"15b457ee-0e87-4632-9255-20f8652e437c"],

Cell[BoxData["\<\"Left-Below Discontinuous\"\>"], "Output",
 CellChangeTimes->{
  3.9499009461175575`*^9, 3.9499010042024136`*^9, {3.9499011195222187`*^9, 
   3.9499011236717553`*^9}, {3.949901205962259*^9, 3.949901225748378*^9}, 
   3.9499012753987417`*^9, 3.949901501221053*^9, 3.9499015510574102`*^9, 
   3.950258105501433*^9, 3.950258283167303*^9, 3.9502584774393425`*^9, 
   3.9502586409726076`*^9, 3.9502590001922493`*^9, {3.9502592761640997`*^9, 
   3.9502593020701036`*^9}, 3.9502599196693573`*^9, 3.9502602785442033`*^9, 
   3.9502603724360156`*^9, 3.9502604423001165`*^9, 3.9502605525935135`*^9, 
   3.9502606065871153`*^9, 3.9502607792773438`*^9, 3.9502608312411685`*^9, 
   3.950758960520996*^9, 3.9507592146327972`*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"6e749da2-e029-4644-acc1-7b50affb8d7d"],

Cell[BoxData["\<\"Right-Below Discontinuous\"\>"], "Output",
 CellChangeTimes->{
  3.9499009461175575`*^9, 3.9499010042024136`*^9, {3.9499011195222187`*^9, 
   3.9499011236717553`*^9}, {3.949901205962259*^9, 3.949901225748378*^9}, 
   3.9499012753987417`*^9, 3.949901501221053*^9, 3.9499015510574102`*^9, 
   3.950258105501433*^9, 3.950258283167303*^9, 3.9502584774393425`*^9, 
   3.9502586409726076`*^9, 3.9502590001922493`*^9, {3.9502592761640997`*^9, 
   3.9502593020701036`*^9}, 3.9502599196693573`*^9, 3.9502602785442033`*^9, 
   3.9502603724360156`*^9, 3.9502604423001165`*^9, 3.9502605525935135`*^9, 
   3.9502606065871153`*^9, 3.9502607792773438`*^9, 3.9502608312411685`*^9, 
   3.950758960520996*^9, 3.9507592146348057`*^9},
 CellLabel->
  "Out[107]=",ExpressionUUID->"18a7e23d-01de-41c8-ac4d-f327594c8281"],

Cell[BoxData["\<\"Right-Above limit = Left-Above limit\"\>"], "Output",
 CellChangeTimes->{
  3.9499009461175575`*^9, 3.9499010042024136`*^9, {3.9499011195222187`*^9, 
   3.9499011236717553`*^9}, {3.949901205962259*^9, 3.949901225748378*^9}, 
   3.9499012753987417`*^9, 3.949901501221053*^9, 3.9499015510574102`*^9, 
   3.950258105501433*^9, 3.950258283167303*^9, 3.9502584774393425`*^9, 
   3.9502586409726076`*^9, 3.9502590001922493`*^9, {3.9502592761640997`*^9, 
   3.9502593020701036`*^9}, 3.9502599196693573`*^9, 3.9502602785442033`*^9, 
   3.9502603724360156`*^9, 3.9502604423001165`*^9, 3.9502605525935135`*^9, 
   3.9502606065871153`*^9, 3.9502607792773438`*^9, 3.9502608312411685`*^9, 
   3.950758960520996*^9, 3.9507592146722045`*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"53be6fb9-3b0a-4fd8-9965-7806cb8e61ec"],

Cell[BoxData["\<\"Right-Above limit = Left-Below limit\"\>"], "Output",
 CellChangeTimes->{
  3.9499009461175575`*^9, 3.9499010042024136`*^9, {3.9499011195222187`*^9, 
   3.9499011236717553`*^9}, {3.949901205962259*^9, 3.949901225748378*^9}, 
   3.9499012753987417`*^9, 3.949901501221053*^9, 3.9499015510574102`*^9, 
   3.950258105501433*^9, 3.950258283167303*^9, 3.9502584774393425`*^9, 
   3.9502586409726076`*^9, 3.9502590001922493`*^9, {3.9502592761640997`*^9, 
   3.9502593020701036`*^9}, 3.9502599196693573`*^9, 3.9502602785442033`*^9, 
   3.9502603724360156`*^9, 3.9502604423001165`*^9, 3.9502605525935135`*^9, 
   3.9502606065871153`*^9, 3.9502607792773438`*^9, 3.9502608312411685`*^9, 
   3.950758960520996*^9, 3.950759214703931*^9},
 CellLabel->
  "Out[109]=",ExpressionUUID->"db462abf-67c0-40e9-97eb-c8c9ec70a6e4"],

Cell[BoxData["\<\"Right-Above limit = Right-Below limit\"\>"], "Output",
 CellChangeTimes->{
  3.9499009461175575`*^9, 3.9499010042024136`*^9, {3.9499011195222187`*^9, 
   3.9499011236717553`*^9}, {3.949901205962259*^9, 3.949901225748378*^9}, 
   3.9499012753987417`*^9, 3.949901501221053*^9, 3.9499015510574102`*^9, 
   3.950258105501433*^9, 3.950258283167303*^9, 3.9502584774393425`*^9, 
   3.9502586409726076`*^9, 3.9502590001922493`*^9, {3.9502592761640997`*^9, 
   3.9502593020701036`*^9}, 3.9502599196693573`*^9, 3.9502602785442033`*^9, 
   3.9502603724360156`*^9, 3.9502604423001165`*^9, 3.9502605525935135`*^9, 
   3.9502606065871153`*^9, 3.9502607792773438`*^9, 3.9502608312411685`*^9, 
   3.950758960520996*^9, 3.9507592147390766`*^9},
 CellLabel->
  "Out[110]=",ExpressionUUID->"f4d79f58-1ef8-46b0-8673-3e73d4ea7898"],

Cell[BoxData["\<\"Left-Above limit = Left-Below limit\"\>"], "Output",
 CellChangeTimes->{
  3.9499009461175575`*^9, 3.9499010042024136`*^9, {3.9499011195222187`*^9, 
   3.9499011236717553`*^9}, {3.949901205962259*^9, 3.949901225748378*^9}, 
   3.9499012753987417`*^9, 3.949901501221053*^9, 3.9499015510574102`*^9, 
   3.950258105501433*^9, 3.950258283167303*^9, 3.9502584774393425`*^9, 
   3.9502586409726076`*^9, 3.9502590001922493`*^9, {3.9502592761640997`*^9, 
   3.9502593020701036`*^9}, 3.9502599196693573`*^9, 3.9502602785442033`*^9, 
   3.9502603724360156`*^9, 3.9502604423001165`*^9, 3.9502605525935135`*^9, 
   3.9502606065871153`*^9, 3.9502607792773438`*^9, 3.9502608312411685`*^9, 
   3.950758960520996*^9, 3.950759214784878*^9},
 CellLabel->
  "Out[111]=",ExpressionUUID->"6a88fc76-7ee7-4333-9545-4498ac3eb7a7"],

Cell[BoxData["\<\"Left-Above limit = Right-Below limit\"\>"], "Output",
 CellChangeTimes->{
  3.9499009461175575`*^9, 3.9499010042024136`*^9, {3.9499011195222187`*^9, 
   3.9499011236717553`*^9}, {3.949901205962259*^9, 3.949901225748378*^9}, 
   3.9499012753987417`*^9, 3.949901501221053*^9, 3.9499015510574102`*^9, 
   3.950258105501433*^9, 3.950258283167303*^9, 3.9502584774393425`*^9, 
   3.9502586409726076`*^9, 3.9502590001922493`*^9, {3.9502592761640997`*^9, 
   3.9502593020701036`*^9}, 3.9502599196693573`*^9, 3.9502602785442033`*^9, 
   3.9502603724360156`*^9, 3.9502604423001165`*^9, 3.9502605525935135`*^9, 
   3.9502606065871153`*^9, 3.9502607792773438`*^9, 3.9502608312411685`*^9, 
   3.950758960520996*^9, 3.950759214805402*^9},
 CellLabel->
  "Out[112]=",ExpressionUUID->"b7e5dd2c-33b6-4033-a637-63b74ee39a3e"],

Cell[BoxData["\<\"Left-Below limit = Right-Below limit\"\>"], "Output",
 CellChangeTimes->{
  3.9499009461175575`*^9, 3.9499010042024136`*^9, {3.9499011195222187`*^9, 
   3.9499011236717553`*^9}, {3.949901205962259*^9, 3.949901225748378*^9}, 
   3.9499012753987417`*^9, 3.949901501221053*^9, 3.9499015510574102`*^9, 
   3.950258105501433*^9, 3.950258283167303*^9, 3.9502584774393425`*^9, 
   3.9502586409726076`*^9, 3.9502590001922493`*^9, {3.9502592761640997`*^9, 
   3.9502593020701036`*^9}, 3.9502599196693573`*^9, 3.9502602785442033`*^9, 
   3.9502603724360156`*^9, 3.9502604423001165`*^9, 3.9502605525935135`*^9, 
   3.9502606065871153`*^9, 3.9502607792773438`*^9, 3.9502608312411685`*^9, 
   3.950758960520996*^9, 3.950759214847375*^9},
 CellLabel->
  "Out[113]=",ExpressionUUID->"59828534-581e-4660-be7c-ac73ca8bda8f"],

Cell[BoxData["\<\"Discontinuous\"\>"], "Output",
 CellChangeTimes->{
  3.9499009461175575`*^9, 3.9499010042024136`*^9, {3.9499011195222187`*^9, 
   3.9499011236717553`*^9}, {3.949901205962259*^9, 3.949901225748378*^9}, 
   3.9499012753987417`*^9, 3.949901501221053*^9, 3.9499015510574102`*^9, 
   3.950258105501433*^9, 3.950258283167303*^9, 3.9502584774393425`*^9, 
   3.9502586409726076`*^9, 3.9502590001922493`*^9, {3.9502592761640997`*^9, 
   3.9502593020701036`*^9}, 3.9502599196693573`*^9, 3.9502602785442033`*^9, 
   3.9502603724360156`*^9, 3.9502604423001165`*^9, 3.9502605525935135`*^9, 
   3.9502606065871153`*^9, 3.9502607792773438`*^9, 3.9502608312411685`*^9, 
   3.950758960520996*^9, 3.9507592148984385`*^9},
 CellLabel->
  "Out[114]=",ExpressionUUID->"291609cf-b692-4322-a06a-8d2a42e5120d"]
}, Open  ]]
},
WindowSize->{1518, 754},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>0.9 Inherited,
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 4076, 106, 266, "Input",ExpressionUUID->"e520702a-010a-4aa2-9da2-864c432567cd"],
Cell[4659, 130, 833, 16, 38, "Message",ExpressionUUID->"e28de77d-588d-44e5-89e6-5083bda7abf1"],
Cell[5495, 148, 868, 17, 24, "Message",ExpressionUUID->"a113198e-ef9b-4e67-983a-241109cc539d"],
Cell[6366, 167, 647, 9, 30, "Output",ExpressionUUID->"f5a40276-dff1-43be-b425-7cbefe598377"],
Cell[7016, 178, 831, 16, 38, "Message",ExpressionUUID->"75f78b38-5eba-4d04-aa0a-076caf22c097"],
Cell[7850, 196, 866, 17, 24, "Message",ExpressionUUID->"5f32db5b-6093-4421-8733-42a0466e39ba"],
Cell[8719, 215, 648, 9, 30, "Output",ExpressionUUID->"04563921-c25a-4d1a-bb88-ecb7d37e0c4c"],
Cell[9370, 226, 655, 9, 30, "Output",ExpressionUUID->"2f7f378e-9dad-4ae9-9fd2-9b5f5a07c363"],
Cell[10028, 237, 833, 16, 38, "Message",ExpressionUUID->"a2929363-33c4-4585-a750-64b4fc55e1ca"],
Cell[10864, 255, 866, 17, 24, "Message",ExpressionUUID->"1d616563-51ca-4b96-a84e-ac8fba3d5636"],
Cell[11733, 274, 642, 9, 30, "Output",ExpressionUUID->"c5fea2df-9752-4f02-bd17-643404eacdca"],
Cell[12378, 285, 835, 16, 38, "Message",ExpressionUUID->"92adacc4-80b4-4062-82f7-f3414e35917e"],
Cell[13216, 303, 870, 17, 24, "Message",ExpressionUUID->"1ac383d3-8391-4054-9219-d039b5e68ab3"],
Cell[14089, 322, 5408, 123, 221, "Output",ExpressionUUID->"347bde5e-b4b3-4e31-bd4e-5e0ccba883bb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19534, 450, 4286, 113, 261, "Input",ExpressionUUID->"bdce8a1e-38b8-43cd-b9a8-6ec9876bd6df"],
Cell[23823, 565, 3123, 72, 217, "Output",ExpressionUUID->"6dddfd83-4572-4fae-a8ea-08f8cbbc06d4"],
Cell[26949, 639, 575, 8, 30, "Output",ExpressionUUID->"174428fd-4252-498f-ab97-8cb1a9a8cfab"],
Cell[27527, 649, 574, 8, 30, "Output",ExpressionUUID->"2d0b90ca-ff81-4b79-83b2-282545cc87e4"],
Cell[28104, 659, 588, 8, 30, "Output",ExpressionUUID->"52ee8062-d35e-4fea-b262-6b099e99398c"],
Cell[28695, 669, 570, 8, 30, "Output",ExpressionUUID->"c4b10e60-c6a3-4d71-9fbc-caaa07915d47"],
Cell[29268, 679, 7031, 151, 217, "Output",ExpressionUUID->"58ccf492-1597-4b2e-938b-8c96497741ff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36336, 835, 11993, 338, 677, "Input",ExpressionUUID->"7b187cdf-e71a-4e18-a016-610601c19c6b"],
Cell[48332, 1175, 712, 9, 30, "Output",ExpressionUUID->"eb1457ee-afa4-440e-8a26-7ff5ff1e68e1"],
Cell[49047, 1186, 713, 9, 30, "Output",ExpressionUUID->"d3065dcb-f433-4154-a54a-d277e0a7b736"],
Cell[49763, 1197, 721, 9, 30, "Output",ExpressionUUID->"a8428426-3792-4108-8389-5972d4926a8b"],
Cell[50487, 1208, 705, 9, 30, "Output",ExpressionUUID->"456a8bb9-63a2-491c-85a7-4671225f987d"],
Cell[51195, 1219, 707, 9, 30, "Output",ExpressionUUID->"b79f9f2a-4db9-43e3-a555-6606a4783dd3"],
Cell[51905, 1230, 707, 9, 30, "Output",ExpressionUUID->"6f521a18-9b63-4c70-90a5-303d56efd54e"],
Cell[52615, 1241, 713, 9, 30, "Output",ExpressionUUID->"ee78cdaa-c4e2-40a9-b76a-8b8333e7537c"],
Cell[53331, 1252, 713, 9, 30, "Output",ExpressionUUID->"41bb9f42-9b69-407f-b935-40a5a0324f0c"],
Cell[54047, 1263, 709, 9, 30, "Output",ExpressionUUID->"2b89637d-3f63-48d9-969c-56d93d796355"],
Cell[54759, 1274, 7065, 142, 217, "Output",ExpressionUUID->"fd4896fe-0ac0-4fe0-977d-bc62582c8661"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61861, 1421, 9969, 294, 605, "Input",ExpressionUUID->"270e9561-f621-4077-a738-efb9554dcce2"],
Cell[71833, 1717, 823, 15, 24, "Message",ExpressionUUID->"80d34d65-7d33-446b-bb54-a6c820b5bc8a"],
Cell[72659, 1734, 528, 7, 30, "Output",ExpressionUUID->"bafc9287-d14a-4c91-8880-2f6591423887"],
Cell[73190, 1743, 528, 7, 30, "Output",ExpressionUUID->"f1737569-c078-47e1-a265-ce4369756c52"],
Cell[73721, 1752, 514, 7, 30, "Output",ExpressionUUID->"de9bd127-9f21-4fa1-9c90-1a2b063a3925"],
Cell[74238, 1761, 531, 8, 30, "Output",ExpressionUUID->"b952c04e-0333-4fba-b894-e0fc8c0f57ce"],
Cell[74772, 1771, 514, 7, 30, "Output",ExpressionUUID->"7aea4a65-b77e-4894-ba92-7153165b4cc8"],
Cell[75289, 1780, 516, 7, 30, "Output",ExpressionUUID->"51b7af27-bf30-434a-9c90-cdad30828d57"],
Cell[75808, 1789, 514, 7, 30, "Output",ExpressionUUID->"290babb6-5dfb-48b6-b7ed-066f7921195e"],
Cell[76325, 1798, 10422, 199, 221, "Output",ExpressionUUID->"d1557b9e-aeb6-477a-a3c4-3e8680388c66"]
}, Open  ]],
Cell[CellGroupData[{
Cell[86784, 2002, 7447, 217, 369, "Input",ExpressionUUID->"0b1aa79d-82fe-4f12-96a5-bbf68465ef9a"],
Cell[94234, 2221, 11548, 206, 224, "Output",ExpressionUUID->"5c4a4a6e-d8fb-4161-afba-1506c36ee4e2"],
Cell[105785, 2429, 3479, 73, 224, "Output",ExpressionUUID->"a8485496-0b92-47db-be70-f16b56414c91"],
Cell[109267, 2504, 9144, 167, 224, "Output",ExpressionUUID->"fad178c7-eaf4-4aea-a7cd-8ca494192a6a"],
Cell[118414, 2673, 20304, 356, 224, "Output",ExpressionUUID->"bf4a7510-625a-4f06-a60b-e797158d20e8"],
Cell[138721, 3031, 603, 8, 30, "Output",ExpressionUUID->"265fd61d-5667-4f0d-932e-cf1d42f58a26"],
Cell[139327, 3041, 604, 8, 30, "Output",ExpressionUUID->"46bead67-f5b9-4813-a249-22498e62b91a"],
Cell[139934, 3051, 612, 8, 30, "Output",ExpressionUUID->"0c1e3f28-2ab5-4a91-9a28-8264a9d3f3a9"],
Cell[140549, 3061, 600, 8, 30, "Output",ExpressionUUID->"b626474c-6254-45f9-a136-affd362bfe1d"],
Cell[141152, 3071, 604, 8, 30, "Output",ExpressionUUID->"be8b6029-1256-4163-a9d9-d6ab7e7cecd6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[141793, 3084, 7385, 214, 369, "Input",ExpressionUUID->"96018844-2241-412d-b73d-8034888ec8d9"],
Cell[149181, 3300, 11560, 207, 224, "Output",ExpressionUUID->"4563c8b4-2011-4837-9162-41752db0f297"],
Cell[160744, 3509, 2963, 66, 224, "Output",ExpressionUUID->"25da86be-7186-437f-bc71-5197e5f27858"],
Cell[163710, 3577, 9484, 174, 224, "Output",ExpressionUUID->"5104c918-4233-4877-a627-31effd35eec8"],
Cell[173197, 3753, 20115, 354, 224, "Output",ExpressionUUID->"57e38e2a-b05c-49a6-966b-ea1cce261ec2"],
Cell[193315, 4109, 615, 9, 30, "Output",ExpressionUUID->"be4284d1-c724-432b-a050-af5c51cc31c4"],
Cell[193933, 4120, 619, 9, 30, "Output",ExpressionUUID->"1f5f1369-f12f-4c2d-a406-267a0d3d39f7"],
Cell[194555, 4131, 634, 9, 30, "Output",ExpressionUUID->"68c188a0-5525-42d3-a10a-3462a7a777a8"],
Cell[195192, 4142, 613, 9, 30, "Output",ExpressionUUID->"1914582a-dabd-457f-84ad-2dc340910114"],
Cell[195808, 4153, 618, 9, 30, "Output",ExpressionUUID->"33cfa6a0-7331-48e1-8f3e-aff47dd02a49"]
}, Open  ]],
Cell[CellGroupData[{
Cell[196463, 4167, 7485, 218, 369, "Input",ExpressionUUID->"4da75882-1513-4ae7-9247-5733169c32fa"],
Cell[203951, 4387, 11652, 207, 224, "Output",ExpressionUUID->"6aa6a933-8851-4c6a-a262-aa5ba28db3c4"],
Cell[215606, 4596, 3248, 69, 224, "Output",ExpressionUUID->"eb9b5ef5-0854-4ca9-9593-3f00118257b4"],
Cell[218857, 4667, 9732, 176, 224, "Output",ExpressionUUID->"19b62ef4-26d0-4774-9c08-1bd67cf58726"],
Cell[228592, 4845, 25458, 440, 224, 19903, 350, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"4b185796-3b25-4b03-b171-ac9885906f27"],
Cell[254053, 5287, 707, 9, 30, "Output",ExpressionUUID->"af487f36-6fd9-444e-bf5d-6fd310199a61"],
Cell[254763, 5298, 706, 9, 30, "Output",ExpressionUUID->"e267e008-c1fc-46eb-988d-2936d491c824"],
Cell[255472, 5309, 716, 9, 30, "Output",ExpressionUUID->"ba21f018-b19d-4178-acfe-830ec5d00b05"],
Cell[256191, 5320, 700, 9, 30, "Output",ExpressionUUID->"e77a146b-6ee5-4e29-be84-392dc7a9ff55"],
Cell[256894, 5331, 708, 9, 30, "Output",ExpressionUUID->"d8d6a6e7-7a07-4166-8f21-faeca59b862c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[257639, 5345, 10009, 275, 446, "Input",ExpressionUUID->"ff3a366e-d955-4f45-9acb-d012fb15a63a"],
Cell[267651, 5622, 41421, 694, 306, "Output",ExpressionUUID->"75ed8125-52a9-4a8f-bb5c-a926d21e1993"],
Cell[309075, 6318, 816, 12, 30, "Output",ExpressionUUID->"7b5e77df-c2af-4c51-9809-8ea058b2353c"],
Cell[309894, 6332, 815, 12, 30, "Output",ExpressionUUID->"15b457ee-0e87-4632-9255-20f8652e437c"],
Cell[310712, 6346, 815, 12, 30, "Output",ExpressionUUID->"6e749da2-e029-4644-acc1-7b50affb8d7d"],
Cell[311530, 6360, 816, 12, 30, "Output",ExpressionUUID->"18a7e23d-01de-41c8-ac4d-f327594c8281"],
Cell[312349, 6374, 827, 12, 30, "Output",ExpressionUUID->"53be6fb9-3b0a-4fd8-9965-7806cb8e61ec"],
Cell[313179, 6388, 825, 12, 30, "Output",ExpressionUUID->"db462abf-67c0-40e9-97eb-c8c9ec70a6e4"],
Cell[314007, 6402, 828, 12, 30, "Output",ExpressionUUID->"f4d79f58-1ef8-46b0-8673-3e73d4ea7898"],
Cell[314838, 6416, 824, 12, 30, "Output",ExpressionUUID->"6a88fc76-7ee7-4333-9545-4498ac3eb7a7"],
Cell[315665, 6430, 825, 12, 30, "Output",ExpressionUUID->"b7e5dd2c-33b6-4033-a637-63b74ee39a3e"],
Cell[316493, 6444, 825, 12, 30, "Output",ExpressionUUID->"59828534-581e-4660-be7c-ac73ca8bda8f"],
Cell[317321, 6458, 804, 12, 63, "Output",ExpressionUUID->"291609cf-b692-4322-a06a-8d2a42e5120d"]
}, Open  ]]
}
]
*)