Spline'snb.nb

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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     78155,       1959]
NotebookOptionsPosition[     75354,       1859]
NotebookOutlinePosition[     75726,       1875]
CellTagsIndexPosition[     75683,       1872]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Construcci\[OAcute]n de Spline\[CloseCurlyQuote]s", "Section",
 CellChangeTimes->{{3.6116663702403107`*^9, 3.611666372043414*^9}, {
  3.611671950541339*^9, 3.611671953806525*^9}, {3.611672028428794*^9, 
  3.6116720299168787`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"datos", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"834.676`", ",", "1291.97`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"884.756`", ",", "1308.67`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"916.057`", ",", "1337.88`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"953.617`", ",", "1415.09`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"970.311`", ",", "1523.6`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1003.7`", ",", "1607.06`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1035.`", ",", "1652.97`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1097.6`", ",", "1694.71`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1164.37`", ",", "1711.4`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1247.84`", ",", "1713.49`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1322.96`", ",", "1698.88`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1385.56`", ",", "1673.84`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1427.3`", ",", "1634.19`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1485.72`", ",", "1506.9`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1460.68`", ",", "1565.33`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1525.37`", ",", "1452.65`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1579.62`", ",", "1415.09`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1673.53`", ",", "1415.09`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1744.47`", ",", "1431.78`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1819.59`", ",", "1450.56`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1907.23`", ",", "1477.69`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1976.1`", ",", "1519.42`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2017.83`", ",", "1573.68`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2038.7`", ",", "1642.54`"}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.611935852463822*^9, {3.611935944009058*^9, 3.6119359443140755`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "datos", "]"}]], "Input",
 CellChangeTimes->{{3.6116718878237514`*^9, 3.6116718915649652`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"24", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.611671891962988*^9, 3.6116867125141935`*^9, 
  3.611935733162998*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "datos", "]"}]], "Input",
 CellChangeTimes->{{3.6116719329143305`*^9, 3.6116719386056557`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQAGIQfVRhQ1GGaJdDtcg694f6UxxM43Z58izrdvB4WCWy
rmiKw6+6rD0lC3oc3gTukGt9PsWBT3fT3Pdneh36D33ViJGZ5lCcMfFtTVCf
QxoInJvuMGsmEMT2O3BdX1xgKzPTgQEEdCZAzL88E6JObaLDkgJbrutVsxxA
wlWGkyD69s6CmFs/2UEzBsg6OguibvUUiP3dsyDmLpsKUac+y8EYBHynOXzT
AGromAmxxwzqju7pDvKtrwN3XJrmANT9OrB0BsS+q1D5TdMg/HUz4P4BKZdT
mwXng81znA0Rj58GEc+bA3HHqmkOQSCDz8yF2C82HeK/B/Mg4bd3OsTe9vkQ
d0yb4XD2DBDcmu8A8p7GqpkOAF3tuIk=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{834.676, 1291.97},
  Method->{},
  PlotRange->{{834.676, 2038.7}, {1291.97, 1713.49}},
  PlotRangeClipping->True,
  PlotRangePadding->{{24.080479999999998`, 24.080479999999998`}, {8.4304, 
   8.4304}}]], "Output",
 CellChangeTimes->{3.611671938957676*^9, 3.6116867144443035`*^9, 
  3.6119357332320023`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datos", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "2"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.611672085571062*^9, 3.611672110473486*^9}}],

Cell[BoxData["1291.97`"], "Output",
 CellChangeTimes->{3.611672110863508*^9, 3.611686716983449*^9, 
  3.611935733293006*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "[", "n_", "]"}], ":=", 
  RowBox[{"datos", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"n", "+", "1"}], ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.611672033311073*^9, 3.6116720596265783`*^9}, {
  3.6116721218931394`*^9, 3.611672127090437*^9}, {3.611672184619727*^9, 
  3.61167218956501*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "[", "0", "]"}]], "Input",
 CellChangeTimes->{{3.611672192731191*^9, 3.6116721942562785`*^9}}],

Cell[BoxData["1291.97`"], "Output",
 CellChangeTimes->{3.6116721944682903`*^9, 3.611686720937675*^9, 
  3.61193573336801*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "[", "n_", "]"}], ":=", 
  RowBox[{"datos", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.611672396694857*^9, 3.6116724002820625`*^9}, {
  3.6116725018708725`*^9, 3.611672522224037*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "[", "0", "]"}]], "Input",
 CellChangeTimes->{{3.611672525448221*^9, 3.6116725266762915`*^9}}],

Cell[BoxData["834.676`"], "Output",
 CellChangeTimes->{3.611672526924306*^9, 3.61168672522092*^9, 
  3.6119357334410143`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "h", "]"}]], "Input",
 CellChangeTimes->{{3.6116867409658203`*^9, 3.611686743452963*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"h", "[", "j_", "]"}], ":=", 
   RowBox[{
    RowBox[{"x", "[", 
     RowBox[{"j", "+", "1"}], "]"}], "-", 
    RowBox[{"x", "[", "j", "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.611672578302244*^9, 3.611672583316531*^9}, {
  3.611672628877137*^9, 3.6116726466441536`*^9}, {3.611672680138069*^9, 
  3.6116727193583126`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h", "[", "0", "]"}]], "Input",
 CellChangeTimes->{{3.611672684978346*^9, 3.6116726880805235`*^9}}],

Cell[BoxData["50.07999999999993`"], "Output",
 CellChangeTimes->{
  3.611672688925572*^9, 3.611672721284423*^9, {3.6116867344084454`*^9, 
   3.611686747389188*^9}, 3.6119357335330195`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "[", "0", "]"}]], "Input",
 CellChangeTimes->{{3.6116727559204035`*^9, 3.6116727572124777`*^9}}],

Cell[BoxData["834.676`"], "Output",
 CellChangeTimes->{3.611672757448491*^9, 3.611686751723436*^9, 
  3.611935733590023*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "[", "1", "]"}], "-", 
  RowBox[{"x", "[", "0", "]"}]}]], "Input",
 CellChangeTimes->{{3.6116727585965567`*^9, 3.6116727651309304`*^9}}],

Cell[BoxData["50.07999999999993`"], "Output",
 CellChangeTimes->{3.6116727654289474`*^9, 3.6116867546606035`*^9, 
  3.611935733645026*^9}]
}, Open  ]],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{{3.611685669699548*^9, 3.611685683323327*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"m", "=", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"h", "[", "0", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "0", "]"}], "+", 
          RowBox[{"h", "[", "1", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "1", "]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
      {"0", 
       RowBox[{"h", "[", "1", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "1", "]"}], "+", 
          RowBox[{"h", "[", "2", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "2", "]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
      {"0", "0", 
       RowBox[{"h", "[", "2", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "2", "]"}], "+", 
          RowBox[{"h", "[", "3", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "3", "]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
      {"0", "0", "0", 
       RowBox[{"h", "[", "3", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "3", "]"}], "+", 
          RowBox[{"h", "[", "4", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "4", "]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
      {"0", "0", "0", "0", 
       RowBox[{"h", "[", "4", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "4", "]"}], "+", 
          RowBox[{"h", "[", "5", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "5", "]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0", "0", "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", 
       RowBox[{"h", "[", "5", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "5", "]"}], "+", 
          RowBox[{"h", "[", "6", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "6", "]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0", "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", 
       RowBox[{"h", "[", "6", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "6", "]"}], "+", 
          RowBox[{"h", "[", "7", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "7", "]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", 
       RowBox[{"h", "[", "7", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "7", "]"}], "+", 
          RowBox[{"h", "[", "8", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "8", "]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", 
       RowBox[{"h", "[", "8", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "8", "]"}], "+", 
          RowBox[{"h", "[", "9", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "9", "]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
       RowBox[{"h", "[", "9", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "9", "]"}], "+", 
          RowBox[{"h", "[", "10", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "10", "]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       RowBox[{"h", "[", "10", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "10", "]"}], "+", 
          RowBox[{"h", "[", "11", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "11", "]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       RowBox[{"h", "[", "11", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "11", "]"}], "+", 
          RowBox[{"h", "[", "12", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "12", "]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       RowBox[{"h", "[", "12", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "12", "]"}], "+", 
          RowBox[{"h", "[", "13", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "13", "]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
       "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       RowBox[{"h", "[", "13", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "13", "]"}], "+", 
          RowBox[{"h", "[", "14", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "14", "]"}], "0", "0", "0", "0", "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       RowBox[{"h", "[", "14", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "14", "]"}], "+", 
          RowBox[{"h", "[", "15", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "15", "]"}], "0", "0", "0", "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", 
       RowBox[{"h", "[", "15", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "15", "]"}], "+", 
          RowBox[{"h", "[", "16", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "16", "]"}], "0", "0", "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", 
       RowBox[{"h", "[", "16", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "16", "]"}], "+", 
          RowBox[{"h", "[", "17", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "17", "]"}], "0", "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", 
       RowBox[{"h", "[", "17", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "17", "]"}], "+", 
          RowBox[{"h", "[", "18", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "18", "]"}], "0", "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0", 
       RowBox[{"h", "[", "18", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "18", "]"}], "+", 
          RowBox[{"h", "[", "19", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "19", "]"}], "0", "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0", "0", 
       RowBox[{"h", "[", "19", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "19", "]"}], "+", 
          RowBox[{"h", "[", "20", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "20", "]"}], "0", "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0", "0", "0", 
       RowBox[{"h", "[", "20", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "20", "]"}], "+", 
          RowBox[{"h", "[", "21", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "21", "]"}], "0"},
      {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
       "0", "0", "0", "0", "0", "0", "0", 
       RowBox[{"h", "[", "21", "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", "21", "]"}], "+", 
          RowBox[{"h", "[", "22", "]"}]}], ")"}]}], 
       RowBox[{"h", "[", "22", "]"}]}
     }], "\[NoBreak]", ")"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.611686074149681*^9, {3.611686120304321*^9, 3.6116864377994804`*^9}, {
   3.611686468773252*^9, 3.61168667696716*^9}, {3.6119355080051203`*^9, 
   3.611935513108412*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h", "[", "0", "]"}]], "Input",
 CellChangeTimes->{{3.6116866918710127`*^9, 3.6116866934561033`*^9}}],

Cell[BoxData["50.07999999999993`"], "Output",
 CellChangeTimes->{3.611686693668115*^9, 3.6116867588218417`*^9, 
  3.6119357337390313`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h", "[", "22", "]"}]], "Input",
 CellChangeTimes->{{3.611686695573224*^9, 3.611686697514335*^9}}],

Cell[BoxData["20.87000000000012`"], "Output",
 CellChangeTimes->{3.611686697700346*^9, 3.611686760774954*^9, 
  3.6119357338160353`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"m", "//", "Dimensions"}]], "Input",
 CellChangeTimes->{{3.611935517601669*^9, 3.611935519734791*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"22", ",", "24"}], "}"}]], "Output",
 CellChangeTimes->{3.6119355202278194`*^9, 3.61193573389104*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"r", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       FractionBox["3", 
        RowBox[{"h", "[", 
         RowBox[{"j", "-", "1"}], "]"}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"j", "-", "1"}], "]"}], "-", 
         RowBox[{"a", "[", "j", "]"}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["3", 
        RowBox[{"h", "[", "j", "]"}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"j", "+", "1"}], "]"}], "-", 
         RowBox[{"a", "[", "j", "]"}]}], ")"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "22"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6119304476906867`*^9, 3.6119305700356846`*^9}, {
  3.6119306208215895`*^9, 3.611930621055602*^9}, {3.6119355506195574`*^9, 
  3.6119355559508624`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"results", "=", 
  RowBox[{"LinearSolve", "[", 
   RowBox[{"m", ",", "r"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6119355584210033`*^9, 3.6119355885767283`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.01065376849164662`", ",", "0.011611965675663291`", ",", 
   RowBox[{"-", "0.019946192677815472`"}], ",", "0.15311249335277893`", ",", 
   RowBox[{"-", "0.15166311515372222`"}], ",", "0.019002791618724854`", ",", 
   RowBox[{"-", "0.01575785332203071`"}], ",", 
   RowBox[{"-", "0.0005664939902350272`"}], ",", 
   RowBox[{"-", "0.0017585074392725275`"}], ",", 
   RowBox[{"-", "0.0013004641977999512`"}], ",", 
   RowBox[{"-", "0.0013221433958199003`"}], ",", 
   RowBox[{"-", "0.002470790716334067`"}], ",", 
   RowBox[{"-", "0.025189592626476933`"}], ",", "0.02503017953224662`", ",", 
   "0.02648589675329438`", ",", "0.004657385479462256`", ",", 
   "0.006031612299314864`", ",", "0.00039506093547483564`", ",", 
   "0.00012866398904975984`", ",", 
   RowBox[{"-", "0.00028512609267421565`"}], ",", "0.0029876145430234383`", 
   ",", 
   RowBox[{"-", "0.00030648424777162363`"}], ",", "0.046610483703432445`", 
   ",", "0.008374940725666287`"}], "}"}]], "Output",
 CellChangeTimes->{{3.611935565155389*^9, 3.6119355893987756`*^9}, {
  3.611935733983045*^9, 3.611935751565051*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c", "[", "0", "]"}]], "Input",
 CellChangeTimes->{{3.6119355916409035`*^9, 3.6119355927199655`*^9}}],

Cell[BoxData["0.01065376849164662`"], "Output",
 CellChangeTimes->{
  3.611935592902976*^9, {3.6119357340590496`*^9, 3.6119357538521814`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d", "[", "0", "]"}]], "Input",
 CellChangeTimes->{{3.6119357708241525`*^9, 3.611935772056223*^9}}],

Cell[BoxData["6.377776783923537`*^-6"], "Output",
 CellChangeTimes->{3.6119357722452335`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d", "[", "22", "]"}]], "Input",
 CellChangeTimes->{{3.6119357830528517`*^9, 3.611935784754949*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.0006106938664393218`"}]], "Output",
 CellChangeTimes->{3.6119357854449887`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"b", "[", "0", "]"}]], "Input",
 CellChangeTimes->{{3.611935805029109*^9, 3.6119358060561676`*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.2160697773793908`"}]], "Output",
 CellChangeTimes->{{3.611935789647229*^9, 3.6119358062511787`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "t_", "]"}], ":=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "[", "i", "]"}], "+", 
        RowBox[{
         RowBox[{"b", "[", "i", "]"}], 
         RowBox[{"(", 
          RowBox[{"t", "-", 
           RowBox[{"x", "[", "i", "]"}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"c", "[", "i", "]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"t", "-", 
            RowBox[{"x", "[", "i", "]"}]}], ")"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"d", "[", "i", "]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"t", "-", 
            RowBox[{"x", "[", "i", "]"}]}], ")"}], "3"]}]}], ",", 
       RowBox[{
        RowBox[{"x", "[", "i", "]"}], "<", "t", "<", 
        RowBox[{"x", "[", 
         RowBox[{"i", "+", "1"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "22"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6119317832500763`*^9, 3.6119317924416018`*^9}, {
  3.6119323100372066`*^9, 3.611932378376116*^9}, {3.611932933416862*^9, 
  3.6119329415213256`*^9}, {3.61193303408762*^9, 3.61193303443764*^9}, {
  3.6119356260388713`*^9, 3.6119356281579924`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.611935629774085*^9, 3.611935631507184*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        RowBox[{"1291.97`", "\[VeryThinSpace]", "-", 
         RowBox[{"0.2160697773793908`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "834.676`"}], "+", "t"}], ")"}]}], "+", 
         RowBox[{"0.01065376849164662`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "834.676`"}], "+", "t"}], ")"}], "2"]}], "+", 
         RowBox[{"6.377776783923537`*^-6", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "834.676`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"834.676`", "<", "t", "<", "884.756`"}]},
       {
        RowBox[{"1308.67`", "\[VeryThinSpace]", "+", 
         RowBox[{"0.8989981897194892`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "884.756`"}], "+", "t"}], ")"}]}], "+", 
         RowBox[{"0.011611965675663291`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "884.756`"}], "+", "t"}], ")"}], "2"]}], "-", 
         RowBox[{"0.0003360718864517504`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "884.756`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"884.756`", "<", "t", "<", "916.057`"}]},
       {
        RowBox[{"1337.88`", "\[VeryThinSpace]", "+", 
         RowBox[{"0.6381285503251215`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "916.057`"}], "+", "t"}], ")"}]}], "-", 
         RowBox[{"0.019946192677815472`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "916.057`"}], "+", "t"}], ")"}], "2"]}], "+", 
         RowBox[{"0.001535842084048586`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "916.057`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"916.057`", "<", "t", "<", "953.617`"}]},
       {
        RowBox[{"1415.09`", "\[VeryThinSpace]", "+", 
         RowBox[{"5.63985480367674`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "953.617`"}], "+", "t"}], ")"}]}], "+", 
         RowBox[{"0.15311249335277893`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "953.617`"}], "+", "t"}], ")"}], "2"]}], "-", 
         RowBox[{"0.006085531897817575`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "953.617`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"953.617`", "<", "t", "<", "970.311`"}]},
       {
        RowBox[{"1523.6`", "\[VeryThinSpace]", "+", 
         RowBox[{"5.664050723331793`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "970.311`"}], "+", "t"}], ")"}]}], "-", 
         RowBox[{"0.15166311515372222`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "970.311`"}], "+", "t"}], ")"}], "2"]}], "+", 
         RowBox[{"0.0017038136988473953`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "970.311`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"970.311`", "<", "t", "<", "1003.7`"}]},
       {
        RowBox[{"1607.06`", "\[VeryThinSpace]", "+", 
         RowBox[{"1.234655180821764`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1003.7`"}], "+", "t"}], ")"}]}], "+", 
         RowBox[{"0.019002791618724854`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1003.7`"}], "+", "t"}], ")"}], "2"]}], "-", 
         RowBox[{"0.0003701879120421258`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1003.7`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"1003.7`", "<", "t", "<", "1035.`"}]},
       {
        RowBox[{"1652.97`", "\[VeryThinSpace]", "+", 
         RowBox[{"1.336221749508283`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1035.`"}], "+", "t"}], ")"}]}], "-", 
         RowBox[{"0.01575785332203071`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1035.`"}], "+", "t"}], ")"}], "2"]}], "+", 
         RowBox[{"0.00008089115725130834`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1035.`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"1035.`", "<", "t", "<", "1097.6`"}]},
       {
        RowBox[{"1694.71`", "\[VeryThinSpace]", "+", 
         RowBox[{"0.3143176077604506`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1097.6`"}], "+", "t"}], ")"}]}], "-", 
         RowBox[{"0.0005664939902350272`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1097.6`"}], "+", "t"}], ")"}], "2"]}], "-", 
         RowBox[{"5.950843437858822`*^-6", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1097.6`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"1097.6`", "<", "t", "<", "1164.37`"}]},
       {
        RowBox[{"1711.4`", "\[VeryThinSpace]", "+", 
         RowBox[{"0.1590772623122276`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1164.37`"}], "+", "t"}], ")"}]}], "-", 
         RowBox[{"0.0017585074392725275`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1164.37`"}], "+", "t"}], ")"}], "2"]}], "+", 
         RowBox[{"1.8291731219702733`*^-6", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1164.37`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"1164.37`", "<", "t", "<", "1247.84`"}]},
       {
        RowBox[{"1713.49`", "\[VeryThinSpace]", "-", 
         RowBox[{"0.09625510023422014`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1247.84`"}], "+", "t"}], ")"}]}], "-", 
         RowBox[{"0.0013004641977999512`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1247.84`"}], "+", "t"}], ")"}], "2"]}], "-", 
         RowBox[{"9.619807428092417`*^-8", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1247.84`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"1247.84`", "<", "t", "<", "1322.96`"}]},
       {
        RowBox[{"1698.88`", "\[VeryThinSpace]", "-", 
         RowBox[{"0.29326538266694907`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1322.96`"}], "+", "t"}], ")"}]}], "-", 
         RowBox[{"0.0013221433958199003`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1322.96`"}], "+", "t"}], ")"}], "2"]}], "-", 
         RowBox[{"6.1163329100860945`*^-6", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1322.96`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"1322.96`", "<", "t", "<", "1385.56`"}]},
       {
        RowBox[{"1673.84`", "\[VeryThinSpace]", "-", 
         RowBox[{"0.5307030580877894`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1385.56`"}], "+", "t"}], ")"}]}], "-", 
         RowBox[{"0.002470790716334067`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1385.56`"}], "+", "t"}], ")"}], "2"]}], "-", 
         RowBox[{"0.00018143109655121276`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1385.56`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"1385.56`", "<", "t", "<", "1427.3`"}]},
       {
        RowBox[{"1634.19`", "\[VeryThinSpace]", "-", 
         RowBox[{"1.6852474588167188`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1427.3`"}], "+", "t"}], ")"}]}], "-", 
         RowBox[{"0.025189592626476933`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1427.3`"}], "+", "t"}], ")"}], "2"]}], "+", 
         RowBox[{"0.0002865444035074945`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1427.3`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"1427.3`", "<", "t", "<", "1485.72`"}]},
       {
        RowBox[{"1565.33`", "\[VeryThinSpace]", "-", 
         RowBox[{"2.9845229219715974`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1460.68`"}], "+", "t"}], ")"}]}], "+", 
         RowBox[{"0.02648589675329438`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1460.68`"}], "+", "t"}], ")"}], "2"]}], "-", 
         RowBox[{"0.00011247751467940528`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1460.68`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"1460.68`", "<", "t", "<", "1525.37`"}]},
       {
        RowBox[{"1452.65`", "\[VeryThinSpace]", "-", 
         RowBox[{"0.9698639943345785`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1525.37`"}], "+", "t"}], ")"}]}], "+", 
         RowBox[{"0.004657385479462256`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1525.37`"}], "+", "t"}], ")"}], "2"]}], "+", 
         RowBox[{"8.44378998373338`*^-6", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1525.37`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"1525.37`", "<", "t", "<", "1579.62`"}]},
       {
        RowBox[{"1415.09`", "\[VeryThinSpace]", "-", 
         RowBox[{"0.3899858648359202`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1579.62`"}], "+", "t"}], ")"}]}], "+", 
         RowBox[{"0.006031612299314864`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1579.62`"}], "+", "t"}], ")"}], "2"]}], "-", 
         RowBox[{"0.00002000692636155192`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1579.62`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"1579.62`", "<", "t", "<", "1673.53`"}]},
       {
        RowBox[{"1415.09`", "\[VeryThinSpace]", "+", 
         RowBox[{"0.21354301864317776`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1673.53`"}], "+", "t"}], ")"}]}], "+", 
         RowBox[{"0.00039506093547483564`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1673.53`"}], "+", "t"}], ")"}], "2"]}], "-", 
         RowBox[{"1.2517477042809679`*^-6", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1673.53`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"1673.53`", "<", "t", "<", "1744.47`"}]},
       {
        RowBox[{"1431.78`", "\[VeryThinSpace]", "+", 
         RowBox[{"0.2506960647889504`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1744.47`"}], "+", "t"}], ")"}]}], "+", 
         RowBox[{"0.00012866398904975984`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1744.47`"}], "+", "t"}], ")"}], "2"]}], "-", 
         RowBox[{"1.8361292231273346`*^-6", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1744.47`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"1744.47`", "<", "t", "<", "1819.59`"}]},
       {
        RowBox[{"1450.56`", "\[VeryThinSpace]", "+", 
         RowBox[{"0.2389426315646801`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1819.59`"}], "+", "t"}], ")"}]}], "-", 
         RowBox[{"0.00028512609267421565`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1819.59`"}], "+", "t"}], ")"}], "2"]}], "+", 
         RowBox[{"0.00001244766710671554`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1819.59`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"1819.59`", "<", "t", "<", "1907.23`"}]},
       {
        RowBox[{"1477.69`", "\[VeryThinSpace]", "+", 
         RowBox[{"0.4757887193532874`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1907.23`"}], "+", "t"}], ")"}]}], "+", 
         RowBox[{"0.0029876145430234383`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1907.23`"}], "+", "t"}], ")"}], "2"]}], "-", 
         RowBox[{"0.000015943559318498946`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1907.23`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"1907.23`", "<", "t", "<", "1976.1`"}]},
       {
        RowBox[{"1519.42`", "\[VeryThinSpace]", "+", 
         RowBox[{"0.6604381627872802`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1976.1`"}], "+", "t"}], ")"}]}], "-", 
         RowBox[{"0.00030648424777162363`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1976.1`"}], "+", "t"}], ")"}], "2"]}], "+", 
         RowBox[{"0.0003747660991389412`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1976.1`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"1976.1`", "<", "t", "<", "2017.83`"}]},
       {
        RowBox[{"1573.68`", "\[VeryThinSpace]", "+", 
         RowBox[{"2.592704060072005`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2017.83`"}], "+", "t"}], ")"}]}], "+", 
         RowBox[{"0.046610483703432445`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2017.83`"}], "+", "t"}], ")"}], "2"]}], "-", 
         RowBox[{"0.0006106938664393218`", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2017.83`"}], "+", "t"}], ")"}], "3"]}]}], 
        RowBox[{"2017.83`", "<", "t", "<", "2038.7`"}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}},
      Selectable->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.6119357341870565`*^9, 3.611935816503765*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6119356427048244`*^9, 3.611935644686938*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"funcion", "[", "t_", "]"}], ":=", 
  TagBox[GridBox[{
     {"\[Piecewise]", GridBox[{
        {
         RowBox[{"1291.97`", "\[VeryThinSpace]", "-", 
          RowBox[{"0.2160697773793908`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "834.676`"}], "+", "t"}], ")"}]}], "+", 
          RowBox[{"0.01065376849164662`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "834.676`"}], "+", "t"}], ")"}], "2"]}], "+", 
          RowBox[{"6.377776783923537`*^-6", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "834.676`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"834.676`", "<", "t", "<", "884.756`"}]},
        {
         RowBox[{"1308.67`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.8989981897194892`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "884.756`"}], "+", "t"}], ")"}]}], "+", 
          RowBox[{"0.011611965675663291`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "884.756`"}], "+", "t"}], ")"}], "2"]}], "-", 
          RowBox[{"0.0003360718864517504`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "884.756`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"884.756`", "<", "t", "<", "916.057`"}]},
        {
         RowBox[{"1337.88`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.6381285503251215`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "916.057`"}], "+", "t"}], ")"}]}], "-", 
          RowBox[{"0.019946192677815472`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "916.057`"}], "+", "t"}], ")"}], "2"]}], "+", 
          RowBox[{"0.001535842084048586`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "916.057`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"916.057`", "<", "t", "<", "953.617`"}]},
        {
         RowBox[{"1415.09`", "\[VeryThinSpace]", "+", 
          RowBox[{"5.63985480367674`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "953.617`"}], "+", "t"}], ")"}]}], "+", 
          RowBox[{"0.15311249335277893`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "953.617`"}], "+", "t"}], ")"}], "2"]}], "-", 
          RowBox[{"0.006085531897817575`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "953.617`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"953.617`", "<", "t", "<", "970.311`"}]},
        {
         RowBox[{"1523.6`", "\[VeryThinSpace]", "+", 
          RowBox[{"5.664050723331793`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "970.311`"}], "+", "t"}], ")"}]}], "-", 
          RowBox[{"0.15166311515372222`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "970.311`"}], "+", "t"}], ")"}], "2"]}], "+", 
          RowBox[{"0.0017038136988473953`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "970.311`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"970.311`", "<", "t", "<", "1003.7`"}]},
        {
         RowBox[{"1607.06`", "\[VeryThinSpace]", "+", 
          RowBox[{"1.234655180821764`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1003.7`"}], "+", "t"}], ")"}]}], "+", 
          RowBox[{"0.019002791618724854`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1003.7`"}], "+", "t"}], ")"}], "2"]}], "-", 
          RowBox[{"0.0003701879120421258`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1003.7`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"1003.7`", "<", "t", "<", "1035.`"}]},
        {
         RowBox[{"1652.97`", "\[VeryThinSpace]", "+", 
          RowBox[{"1.336221749508283`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1035.`"}], "+", "t"}], ")"}]}], "-", 
          RowBox[{"0.01575785332203071`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1035.`"}], "+", "t"}], ")"}], "2"]}], "+", 
          RowBox[{"0.00008089115725130834`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1035.`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"1035.`", "<", "t", "<", "1097.6`"}]},
        {
         RowBox[{"1694.71`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.3143176077604506`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1097.6`"}], "+", "t"}], ")"}]}], "-", 
          RowBox[{"0.0005664939902350272`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1097.6`"}], "+", "t"}], ")"}], "2"]}], "-", 
          RowBox[{"5.950843437858822`*^-6", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1097.6`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"1097.6`", "<", "t", "<", "1164.37`"}]},
        {
         RowBox[{"1711.4`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.1590772623122276`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1164.37`"}], "+", "t"}], ")"}]}], "-", 
          RowBox[{"0.0017585074392725275`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1164.37`"}], "+", "t"}], ")"}], "2"]}], "+", 
          RowBox[{"1.8291731219702733`*^-6", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1164.37`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"1164.37`", "<", "t", "<", "1247.84`"}]},
        {
         RowBox[{"1713.49`", "\[VeryThinSpace]", "-", 
          RowBox[{"0.09625510023422014`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1247.84`"}], "+", "t"}], ")"}]}], "-", 
          RowBox[{"0.0013004641977999512`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1247.84`"}], "+", "t"}], ")"}], "2"]}], "-", 
          RowBox[{"9.619807428092417`*^-8", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1247.84`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"1247.84`", "<", "t", "<", "1322.96`"}]},
        {
         RowBox[{"1698.88`", "\[VeryThinSpace]", "-", 
          RowBox[{"0.29326538266694907`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1322.96`"}], "+", "t"}], ")"}]}], "-", 
          RowBox[{"0.0013221433958199003`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1322.96`"}], "+", "t"}], ")"}], "2"]}], "-", 
          RowBox[{"6.1163329100860945`*^-6", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1322.96`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"1322.96`", "<", "t", "<", "1385.56`"}]},
        {
         RowBox[{"1673.84`", "\[VeryThinSpace]", "-", 
          RowBox[{"0.5307030580877894`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1385.56`"}], "+", "t"}], ")"}]}], "-", 
          RowBox[{"0.002470790716334067`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1385.56`"}], "+", "t"}], ")"}], "2"]}], "-", 
          RowBox[{"0.00018143109655121276`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1385.56`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"1385.56`", "<", "t", "<", "1427.3`"}]},
        {
         RowBox[{"1634.19`", "\[VeryThinSpace]", "-", 
          RowBox[{"1.6852474588167188`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1427.3`"}], "+", "t"}], ")"}]}], "-", 
          RowBox[{"0.025189592626476933`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1427.3`"}], "+", "t"}], ")"}], "2"]}], "+", 
          RowBox[{"0.0002865444035074945`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1427.3`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"1427.3`", "<", "t", "<", "1485.72`"}]},
        {
         RowBox[{"1565.33`", "\[VeryThinSpace]", "-", 
          RowBox[{"2.9845229219715974`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1460.68`"}], "+", "t"}], ")"}]}], "+", 
          RowBox[{"0.02648589675329438`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1460.68`"}], "+", "t"}], ")"}], "2"]}], "-", 
          RowBox[{"0.00011247751467940528`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1460.68`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"1460.68`", "<", "t", "<", "1525.37`"}]},
        {
         RowBox[{"1452.65`", "\[VeryThinSpace]", "-", 
          RowBox[{"0.9698639943345785`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1525.37`"}], "+", "t"}], ")"}]}], "+", 
          RowBox[{"0.004657385479462256`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1525.37`"}], "+", "t"}], ")"}], "2"]}], "+", 
          RowBox[{"8.44378998373338`*^-6", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1525.37`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"1525.37`", "<", "t", "<", "1579.62`"}]},
        {
         RowBox[{"1415.09`", "\[VeryThinSpace]", "-", 
          RowBox[{"0.3899858648359202`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1579.62`"}], "+", "t"}], ")"}]}], "+", 
          RowBox[{"0.006031612299314864`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1579.62`"}], "+", "t"}], ")"}], "2"]}], "-", 
          RowBox[{"0.00002000692636155192`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1579.62`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"1579.62`", "<", "t", "<", "1673.53`"}]},
        {
         RowBox[{"1415.09`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.21354301864317776`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1673.53`"}], "+", "t"}], ")"}]}], "+", 
          RowBox[{"0.00039506093547483564`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1673.53`"}], "+", "t"}], ")"}], "2"]}], "-", 
          RowBox[{"1.2517477042809679`*^-6", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1673.53`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"1673.53`", "<", "t", "<", "1744.47`"}]},
        {
         RowBox[{"1431.78`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.2506960647889504`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1744.47`"}], "+", "t"}], ")"}]}], "+", 
          RowBox[{"0.00012866398904975984`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1744.47`"}], "+", "t"}], ")"}], "2"]}], "-", 
          RowBox[{"1.8361292231273346`*^-6", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1744.47`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"1744.47`", "<", "t", "<", "1819.59`"}]},
        {
         RowBox[{"1450.56`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.2389426315646801`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1819.59`"}], "+", "t"}], ")"}]}], "-", 
          RowBox[{"0.00028512609267421565`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1819.59`"}], "+", "t"}], ")"}], "2"]}], "+", 
          RowBox[{"0.00001244766710671554`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1819.59`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"1819.59`", "<", "t", "<", "1907.23`"}]},
        {
         RowBox[{"1477.69`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.4757887193532874`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1907.23`"}], "+", "t"}], ")"}]}], "+", 
          RowBox[{"0.0029876145430234383`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1907.23`"}], "+", "t"}], ")"}], "2"]}], "-", 
          RowBox[{"0.000015943559318498946`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1907.23`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"1907.23`", "<", "t", "<", "1976.1`"}]},
        {
         RowBox[{"1519.42`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.6604381627872802`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1976.1`"}], "+", "t"}], ")"}]}], "-", 
          RowBox[{"0.00030648424777162363`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1976.1`"}], "+", "t"}], ")"}], "2"]}], "+", 
          RowBox[{"0.0003747660991389412`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1976.1`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"1976.1`", "<", "t", "<", "2017.83`"}]},
        {
         RowBox[{"1573.68`", "\[VeryThinSpace]", "+", 
          RowBox[{"2.592704060072005`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2017.83`"}], "+", "t"}], ")"}]}], "+", 
          RowBox[{"0.046610483703432445`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2017.83`"}], "+", "t"}], ")"}], "2"]}], "-", 
          RowBox[{"0.0006106938664393218`", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2017.83`"}], "+", "t"}], ")"}], "3"]}]}], 
         RowBox[{"2017.83`", "<", "t", "<", "2038.7`"}]},
        {"0", 
         TagBox["True",
          "PiecewiseDefault",
          AutoDelete->True]}
       },
       AllowedDimensions->{2, Automatic},
       Editable->True,
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.84]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}},
       Selectable->True]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxItemSize->{
     "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.35]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   "Piecewise",
   DeleteWithContents->True,
   Editable->False,
   SelectWithContents->True,
   Selectable->False]}]], "Input",
 CellChangeTimes->{{3.6119356470830746`*^9, 3.611935655527558*^9}, 
   3.6119358316896334`*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6119357109907303`*^9, 3.611935712618823*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"funcion", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"x", "[", "0", "]"}], ",", 
     RowBox[{"x", "[", "22", "]"}]}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"Map", "[", 
     RowBox[{"Point", ",", "datos"}], "]"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"800", ",", "1250"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6119356783798647`*^9, 3.6119357028642654`*^9}, {
  3.6119358920650873`*^9, 3.6119358966763506`*^9}, {3.611935984484373*^9, 
  3.611936013179014*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV03s81XcYB/BUGqa0F22GjTNSE6IjYujR5TTldGSdHAm5Xzq5nKIWYik7
nl9k+oZu1pFL0rrodaZpmkjqvFprjojSzWt1KiRhyLKnP57X9/X+5/nj+/k8
vLAEv8ipU6ZM8aP58E57K8mImYMQNywSPFnIwH72QKXIGEHue1FaQJbY/XjH
2RRhS+GsbQLymWglT5uHIKkp4tXaM2jf67O61xJBOFCn2kbWKu2Rqa0RHmoa
xHzyhgefXFPYIpR3hhhetmOQOXaqV74Qodm1X5BFPv0pzElchLDBanXwWnIb
v8PDfzHtE/YHmJEnfeOjPJcglMSI3fpsGdjEax+Y+w3CUpvxyQbyeu5Yrb4n
wlyBf3UR+VSzSuf+cgS2aa5SSG59GurYKEDQ/YMzsiNPTI4GVHkjFK05FGhA
tv4if0++D8LiX3/HoQUM1rnNq94hQuioSSt9QE7zv6IO9kOQDYtOtpArtosn
VooR/nO8kKsk3/mp18pOgiA1Mw2rII+fzRIaBSIoY3R4R8hWt0xS3gUh3FK9
VeWTRS8ulDzdjFAx4r8ZybtmeLfcDEdwO3HuSTa5zPLx6/NRCOmpyaIPvg07
jItjEcLdrU7LyaNBs7wypAhPC50Hc8lfpZbHRiUgvPacN7+QLCx2LxDKEDI0
iT4K8k6lus4pmfJclRdyjlzaGtdjuhNh0mA8tIF867WW/rRUhHvD9uvbyCP6
h51epiN8/Eul8yuyhY1D0N+ZCPjioa42/deaVS37LmUh+ISIbvPIKRHBZ3/O
RhA0btvrRT7xw3B7dg5C/PXrthFkVcn+ya37ES6ZN7XkkIcuW84XH0Aw2dMj
riF/2Vnn616AkKMo7egme4+s+97yEMKYY6pQn/LfbvhCoVeMEPb8ea0HucQh
U/XmCEJtcvhnMvJg3FnThhMIE71JtT1kM/nKFZUnEdo9xkctqH+C8gfSvArK
zyXNMZR89JHelU1nqH9D/jkvydcnFM+Wn0OItKis4lO/Bz53NVhQg3D8Wldj
BnnF+ujNY7UIJwVdTywcGMQnvZc/rkMI2n9Uk0w+nHfoQks9QpaJ7cs/yf03
mqYWNiE8e1T+KNuRQZGHRfmivxC666MVZnwGj3WifCWtCNoCyb0Csk1b9bv0
u5QXhDB9Jwb1cS5+N+8jJPXySvQWM+gpWjsZokHIbTio6+jCwDacnd73CiEz
dd2uJnKKfZe4uh/hboxOcsASBrrNkWdGhhDOu6n18l0ZLBxMC8jV4iA0cOTG
PHfqQ33j9IvTOVB4Fx1pJzfKdc7f+4gDsY3RO7kHA7E5m2E1iwNzS8Mto54M
Un2qL9aZcLC1YKnx1GUMWio6Z2r4HDTHmjtc/ZbBbJn5bzNdOPi64caSKm8G
Gz0iI/huHPByDLvYagZ96oG63cBBW+t7TYoPA0MtnZg5Qg7S/lnpHeXLICTQ
uXFZFAeVuuHHBiV0v9ZpW2NiOXBVSXcabaR831w1zpNysDu9e8Q1kME+uTCh
U8aBvVlk94EgBtXKCLPEDA4kXdZh0WEM/jU4mHK8mIOyQC91s5SBk7K3Pvco
B8lV/D69eAaJGwXau0s4UHfcdvsugYGmbOxgcBkHbwcmZH1JDBz0PWcalnMw
DTJdPWUM/gdXklpm
      "]], LineBox[CompressedData["
1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAA2jlgsR+wi0DJysmxR3eUQL5jLeyh
x4tA/Ek1zn6ClECGt8dhpvaLQOlk9iVAmpRAwlwhqZb5i0D67B3/w5uUQP8B
e/CG/ItATBztJEidlEB4TC5/ZwKMQJ+Vt+1QoJRAauGUnCgOjEDE9XCWYaaU
QE4LYteqJYxAoIEVWGiylEAVX/xMr1SMQJ90JjlUyZRAVHqd0pBXjECSaFwf
qMqUQJKVPlhyWoxAcn74KfnLlEAOzIBjNWCMQIUmpEmSzpRABjkFertrjEDb
BZH/ndOUQERUpv+cboxAE6e/VdjUlECCb0eFfnGMQFOX1goP1pRA/6WJkEF3
jEB4e/4ucdiUQPgSDqfHgoxAMvD9qwXdlEA2Lq8sqYWMQIanNkYg3pRAdElQ
soqIjED92tl5Nt+UQPB/kr1NjoxA4MygSlXhlEDp7BbU05mMQFh6+N5Z5ZRA
82IMxkifjEA1v8P5JOeUQMAGsoI=
      "]], LineBox[CompressedData["
1:eJwVkH9Q03Ucxjego+PYyeiHwm2azLjy4semBE47HieoKw4dkRBI8kM4pE5P
6RKKX42aBN/PwfD7RkspA1HMSoyDhL5gA2L4g0BQZNDZ5DjAOZSQ40eItP54
7vnree55PWuTD0WlOolEomCH/vehzjViax2HoLLIG9l2HqtGfjeY6jk4H60x
RUzy2LOU5F7dyEEVd3yf/BGP/g1nV6YJHFLVWe81PeZx88xr/nYzByF5W8HE
NA834Vp993UO4X4Bbg1PeOy8m7HpUjeHY2+p2/QzPDokP4Ud6ecw+O50vmKW
R8unyvj5exwSYs1FhgUeT6nParnvyOuKh9L/5aG+nJn22yiHTZYZ665FHo3j
DYfzbBxszS49fks8Zpxi5vZNcnjqG3Hy1Wc8VKvnc7ZOcejYnm9RLPP4OVpd
5DLLQd5pNwSJCfZDw5KxeQ4uIddua50I60tyjpsXOWj1dxLSnAnnTa3fFosZ
vukwjTY9Rzjjv63BQ8IgFnfK7roRns2VtwR6MEgvGgJi3QnxppE/dr/A0LLO
QzEuIbwcrR8o82Ko0xXYA6WETHnfvToZw96M9BG7J6F3bO147xqGg3LZwpUX
CSXZpjkPXwYmf9BVuIowoZGKlK8zLPc4VxV6E7a7Jz2ve4Ohatw+TDKC6DuR
l1HFECr1++XJK4RPOkLV0lBHnyWr9ux6wm1WqlFqGCbgvXOHH0EZ8/fbunAG
3+rSLlGgg/9BXrzxHcden4WLzUEEbf2fKZcjGbJrHvkLIYRzOas/uqVj6Jhs
7hvYTEha0ZojjWXo/3pIeF9DaB2UfKmMZ1hMDlC0hxNkVQlM9wFDrpBg26El
DGxcqjTuZ4h5qB2u2U2IiNtyVXqYYao907U9kfCDgjMrP3bsPVW7cWUqwXVy
uEd3lMFyUtCUHCC05X9mNeYyhPV+sfXOEUJwTbPYs5hhVrjwlegYgT/o5qZi
jvyuh7kpHGE6OM4zqozhQKW032Yk/Hh9wae8wvH/myus6ZUEn6mQMM9qBi/b
/TBVIyG/qShCdY4hcHSvqEsg/KUfjI66wJAY0Hba0E448VJWavklB29h5JWC
WwT3zb8aPAUGQ93n6qzHhAwX11LVVYax1uSW/XMEc/eeE1FtDP/Ub/g+b5mg
T5w9X97FMCSrvbHFowL+BoP3hzcZilOc1o17V+A/CSmnBQ==
      "]], 
     LineBox[{{954.6341728383549, 1420.9787190536952`}, {954.9987441983913, 
      1423.1591076998209`}, {955.3633155584275, 1425.373491730463}, {
      956.0924582785001, 1429.8971688111142`}, {957.5507437186454, 
      1439.274619110594}, {960.4673145989359, 1458.9535847479078`}, {
      960.8318859589722, 1461.4655855207673`}, {961.1964573190085, 
      1463.983273141405}, {961.9256000390811, 1469.0286317918317`}, {
      963.3838854792264, 1479.1097427899924`}, {966.3004563595169, 
      1498.8372200612027`}, {966.6650277195533, 1501.2278963729748`}, {
      967.0295990795896, 1503.5959509957852`}, {967.7587417996622, 
      1508.25711804034}, {969.2170272398075, 1517.2301433858922`}, {
      969.5815985998438, 1519.3903062466857`}, {969.9461699598801, 
      1521.513693150149}, {970.1810481030675, 1522.861398009081}}], 
     LineBox[CompressedData["
1:eJwBIQLe/SFib1JlAgAAACEAAAACAAAAxZdVCmdVjkDLvJDhktaXQAYl5JsR
YY5As55hHbj1l0BWyEdA/GOOQEHuT0kf/ZdApmur5OZmjkAPyL43YASYQEey
ci28bI5AnU+KY3ESmECIPwG/ZniOQP4izirfLJhA2OJkY1F7jkD/OLaeIjOY
QCmGyAc8fo5AsEP340M5mEDKzI9QEYSOQEps8OkhRZhAC1oe4ruPjkDxfrQX
WluYQHqrMAnlko5AJZ+2dAlhmEDq/EIwDpaOQJxwVH2VZphAyp9nfmCcjkCU
tn8mRnGYQIjlsBoFqY5Aablc7BuFmED4NsNBLqyOQHtOBLrCiZhAZ4jVaFev
jkBRs4BdS46YQEYr+raptY5AkHsUuwSXmEAEcUNTTsKOQCXxb+Qpp5hAdMJV
enfFjkAw74V08aqYQOMTaKGgyI5Ag9upBKCumEDCtozv8s6OQEUOOLq0tZhA
gPzVi5fbjkAOxzWOzsKYQPBN6LLA3o5ALSKDMuDFmEBfn/rZ6eGOQBmKFwHe
yJhAPkIfKDzojkCZDzKyoM6YQPyHaMTg9I5ABtz1d1TZmEBs2XrrCfiOQFiI
Q4LZ25hA2yqNEjP7jkD5XxHhT96YQLrNsWCFAY9AcSBKMRPjmEB4E/v8KQ6P
QPXQ9y8G7JhA9J6NNXMnj0DBRoNELvyYQOy1sqYFWo9AhDhVvAsamUDIb+wl
oVyPQB/22VikG5lAiHYCoA==
      "]], LineBox[CompressedData["
1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAAzkRmcTpgj0AH8TLk3h2ZQLHTGTxv
Zo9A7oNM1MghmUB28YDR2HKPQNqkuV/dKZlAAC1P/KuLj0Dpo8Rn6zqZQBOk
61FSvY9A+xzkXq1fmUCEa0W3bMCPQCWrQBoOYplA9jKfHIfDj0Asymx2cGSZ
QNjBUue7yY9Ay1BHiTlpmUCc37l8JdaPQHWajmHZcplAJhuIp/juj0A38K4g
MoaZQB1Jkn5PEJBAfyt9+1msmUDQGUn/wRGQQGJUxhGFrplAgur/fzQTkEBU
KZTirbCZQOaLbYEZFpBAa1RsRfi0mUCuzkiE4xuQQIwa1AttvZlAPlT/iXcn
kECjv6x5vs2ZQPAktgrqKJBAEVCzSrjPmUCi9WyLXCqQQKKA+Byu0ZlAibVh
owYrkEAyGj4gk9KZQNC0lKg=
      "]], LineBox[CompressedData["
1:eJwVkXlI02EAhqeWGBMhu1zKOkynUG46a0WH75bmmalNopo5R5qlTXNt2ehA
Mjsw9/0War9PvCZBppCi0oQEKc0DyhTNVEQI082lmYaFWbb+eHl4/nx4d6iy
ElIdORyOj33/6Vw6WijdQ4DCkjOPhlj0jbQYuGKClN7TJt44C2VyZnHlEYLV
BUu62sbCXeS92R0EK27pXoJZFh2c0ZJ8KUHyBZt1bI6Fnyn8ycVQAq8lnu3A
Aov5yZ1l4iiC4WeDAd2/WORdGqnqSiRIjW10EK+lMGmP1X/LJLi/ULQm05Pi
fLlcnacm0FyJ3NXnReHbqRJtyCbI0FmYAD5F7cbbzfs0BPM6ov28naKh6eWr
m9cJvNe/2LvNl6Ltu987bgGBS7UiYVFIcYsnMZTfI9gUppnhB1JAGhYvfEAw
yFFGhwdRdJCUoYRCgl7v3IKiYIpeIR1njQTajz3mn/spPl3mzgkqCZ5/8es6
KKWgxbyG1iqC5e7mAomMQtEmyIk2EVQkujwUHaWYcA1dUj8lkPW91m8No5iq
u/G3pY5g0rF+7H0ExaJ11i3UTKBS3ZW3n6BwS/sgVPYT+Lc6ff19lqJHbwkZ
HiDoNEYKaxQU+QZOXOwgQa5cMBWRRLFsFmUfGrb3pdV3Gc5RTHOZBo9xAkmZ
1cU1haK9MT6w30Lw1qN05U0qhebPQJCMw6Da/CMjSU0R4G6TtTowsAV6hkzY
fcbX6aTIiYFRZjmuzKJQxok1fGcG06vXJMpsipiax03LXAbrOvTWUzn2PyLl
wU1bGPgfvirdraPo1kVVKHwYxPBrtXf0FP8ALGYTKA==
      "]], LineBox[CompressedData["
1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAA2JTVNSQvkUC7o9SWk32aQJRkEeWT
MJFAiZ4OIwZ+mkBQNE2UAzKRQAme64V4fppAyNPE8uI0kUBA9tLNXH+aQLgS
tK+hOpFAiBk1WiOBmkCYkJIpH0aRQGObNwSohJpAWIxPHRpdkUBMC7mUjIua
QNmDyQQQi5FAG5TJY6qYmkCkqlz1noyRQH0ser0XmZpAcNHv5S2OkUCwXMjF
hJmaQAgfFsdLkZFAcsQG4F2amkA2umKJh5eRQAdxjCsMnJpAkvD7Df+jkUA9
O8GiWJ+aQExdLhfuvJFA5nkAMq2lmkAYhMEHfb6RQP4E30wPpppA46pU+AvA
kUBvJ6UEcaaaQHr4etkpw5FATHKxSDOnmkCpk8ebZcmRQIvfShOzqJpABspg
IN3VkUDeFIc2n6uaQMA2kynM7pFA8dBU1SWxmkCFSjBoQPCRQFtoQ9R0sZpA
Sl7NprTxkUBqzodtw7GaQNSFBySd9JFAwJpFbV+ymkDp1HsebvqRQCxC/pSS
s5pAEnNkExAGkkBDO6wg5bWaQGOvNf1THZJAMlA+Azi6mkAow9I7yB6SQAaO
4m15uppA7tZvejwgkkCsPHlkurqaQHj+qfckI5JAtICx8zq7mkCMTR7y9SiS
QKCxto02vJpAGARWgi4wkkDAgbCJZL2aQF9Y7LE=
      "]], LineBox[CompressedData["
1:eJwV1Xs41XcYAHDkGnWKYz3Oiq2LbirM/bLeqDSXozShKMRZpuWkNaW0Sdty
6fZ+k/oVoY4ixXLIkuO2WUnnHJXlkpohEYstrLD2nj9+z+/5PM/3eb/v+7zv
7/19HB7jF6mhpqa2ix7VW/pKuzfDBmF8k5/3LBkH2otalO1eCL9ouc84VMNB
Ozauj/FB+NCaf0tKLp6sVmr4Imzb3tHUTw56lK9c7IdQwzeI8K/loPDQAWVc
IAK35+77eXUcbGg2VRpFIpw3X+py5RcOzMFo/RURQvT8C/bN5HcFOkqnHQiH
F/6er/ErB5e/G1KERSPkJgT9s4U8urRWUbQbAZakmunWc3DhcKTC6xCCRoqu
psdvHOweDPJ9/i2CzrbFiTvJawOFithEhCLH7rhT5NfL7BXnjiBMgacPW8lu
rbqK3hSEwA117hF3Ofhg9aTwQBrCHH4ufk9+dWNYPv04gjQ4KTiPfPpIm9z2
FIK4Sj38Bbl3RaE8KQPhdmq7Q+g9Du5w2cJZ5+g+1zsRCeSTWunyAg5BMqIz
jSM7tSfImzIR8m6dftRETvvBV252mepbvdvVuYGDsGF3YYkEwa43Y8PnZLtg
B/naKwhvedi1k/zc6mP5VwWUn01p4gWydcffDyqKEX788fK1EbLuFP1Bj5sI
o7r6flPvc9CxaJ7B4xKEFT4BB03JR7/e6DlQhlB21StkDfmZvrR+diWCW5yP
/zGy1Kqx56qM4relmmWRkwO6NW2rERyNtWJukG0u8d196hCGs/yyHpBTnPZW
JdxDSLk/xV27kYPQ0GPP9O4jpFfUOhuRbX+QTKY3Imw5N7PCjPxHU7PzDQWC
8qqe0J5cNja42akJ4bmZbrgbOXWOdnz9Q4TtvFWT3mS7KLvyZ80IqX8aNISS
DU4In3z5BOG4/sh4FLlTKhodbUGota8tjVXFaztknNSG0KZ3cSyenKaWYcN7
ipA4v6zmMDncvGjj+Q6EqCXW/BSyg/dvsQuf0zzJXF+fJHdljBWv/BNhn+DG
ykxyeSVPeb+L+rFoR2ku+XjXwtcBPQg5wmDpFXKEHkzvfoEgsix1KSQ7rQhc
Jn6JYCPOFBaTZ/iLvSf6ECqKV/aXkHvij0YffYVQcLqed4t8Ozs7hT+I8JMs
uOpn8sn68vzsvxASmizeVpBFA8q7FkMIspiwykqys2Ffb/kwwnyXBQZVqvgO
6jpr/kEIbs3tUflFiIl50xuEWf2antXkO0lWa0JGETRnfuOo8qn8zyL6xhCa
hj6Sqs6LFGFJe98iLLewvC0ju4zsz1UfR2iIlHup7jP8EGuOTSB8DuZRqnx6
oeAPk/8Q4reGG6ryvSOqfS95jzAYft2jjIxpbabW6gw2D1npqerdcfNvV5kG
g9h8QUAR2bVlaoinJoNuS7S6por/39yDv2sxCFlcdzaP/HKe8/lwHQYnbFvS
csiyzzbe/kuXgfm/49MukFlMdGv8VAaPjYJmn1HFT0/6V9uAwdqlgvIT5E8r
zs9i0xhYdEZ1HiXzO0vszHgM7FpizyaS+7Qb/a/NYDCzZFvHfvJpvwlWZ8Tg
bdaJmap52h5pqm5rzOCdqUmOat6s98GuvA8YVI68eRBAVmYeWZdswoA/uUxt
DflicV7pOwEDcaBSy5m8q+7u3J2zGQhCffMtVfPaZzApNGPQd++rBgG5fXz5
l9UfUf6b/NbxyAXTNzyxmsuA68mMmEJeZ5P+E38B1bP1zb5++r6OfDtH1LaE
wYThF3wpeSOufORlweCilneyhDxXEgaVyxg4SAozz5CrGySCbEsGLRAtiSNP
GC9XRNoxuAp5Nrbkrws/dRhexUBkskmcRfvCvSpUEu7OoLdz6WAy2fDhYcPH
qxng9Tz9veTisfqBMg8GQ5eMl3uSB9x8cw76MLi2PcdgiPZXROu2qbpBDAZ7
bgqXkD8ZSIzbv5lBcu/0UR5Z4/2l7v4tDL5zc1w1Qvsye/5L2YOtDIw2J9XJ
yE9jxHtYBAOJqPSAD9lfO/GpqZiBR+GjliDazzbidylFu6k/IoGRPdmwbY8j
7GFwc92BLiOy8rroTNg31G91F49G+h94+nuvv3yQgfzXNDMH8kT+8MPWBAY8
4+YaAfl/Z+Jlmg==
      "]], LineBox[CompressedData["
1:eJwVzmssFWAAxnFJ53Ay6awydJmsYr6Uc1J94emiFSmVKJnbOJZs5jZTHaya
XHLb+wrvGcNxOxy3CnES5RKybC6VIrdsYmiJmVx6+/Dsv9+3x8w3+Jq/tpaW
liXf/9oWGrVZJhB4Z2dbr7Ux7DVID21MJBAk6432cf+NFJk5PiWYddIxV3G/
clyXB6USSBbSQly4JYsTJ6oyCLpr2y2KWxkszlSWSwsIdj7OWD/+jkGgPuLe
riQo6leYCbindufruhYR+PcKRwbfMhT8JP6RpQSHHglNwrn3pUcdaKwkeD/u
py5vYRCPnSN2GoIH6tSjwmaGNfm3ew4DBIc3ZcXBGoaBAc/IlkGCeN3odhtu
tdVEmM1ngsEYScJ6I4PH0HTQwa8Ec1ahGwncTdJlz9VRAqdCvbzcBoboWcOz
ZbMEPgGrTXX1DJs3z28XbaWIb61wK3jB8KWqSxirQ+HNZgSe3NUCJ53lbRS7
5AnuxtzeL6+vj+tS9A5Nzac8Z2jZ4bPQYEDRYvLjQ0QNQ2zH/f47JhTm+s43
rKsYtKU1iq5jFLWnqrNkZQwz40lDnhKKRsdwM0PuvlSZ0R8phcrey7ZBxZA/
a0r2n6T47ZonFXFDGZcYZksxWZckLilhkIs9ovY5Uiyq5tJ7ChlWfgncQvwo
RA6GKR25DGO541Qgo9BkiTJ9uTsvve5TBFDUr32XbOQwZJaGXO4IpLAL1LeU
ctt4D9ubhlCcVtpsUSgYwnprpO1y/re7UuaSxTBf4SE2zqSoGPZaikhn+LTn
9kJxFoU7VuIE3M0xt3qkjKK0Vlj9LI0h7aprnHMO95uHnbWpDNZLV1afKCmm
1SrxQjJDt2by4kgZxfDA3Qsfkxj+AWwFR2c=
      "]], LineBox[CompressedData["
1:eJwBwQE+/iFib1JlAgAAABsAAAACAAAAdjxD4vavlEB8LgMIToqaQP/KKbLU
yJRAyiFGGruCmkAQ6PZRkPqUQNo/4rQycppA8j3/fAP8lED8XLqsr3GaQNST
B6h2/ZRABGcqMCxxmkCYPxj+XACVQDEg/dcjcJpAIJc5qikGlUD0O5meDW6a
QDBGfALDEZVAncAMocppmkBQpAGz9SiVQIE65kXnYJpAMvoJ3mgqlUB0sH/N
VGCaQBRQEgncK5VAqgYI0sFfmkDY+yJfwi6VQEUyEFCaXppAYFNEC480lUAw
myoTRVyaQHACh2MoQJVAVFvoToFXmkCRYAwUW1eVQObQjGeRTZpAgg1sgO1Y
lUDlM1PZ30yaQHS6y+x/WpVArlTAny1MmkBYFIvFpF2VQBjoOCjHSppAHsgJ
d+5jlUBdAUoX8keaQKovB9qBcJVAT1Yh6yZCmkDE/gGgqImVQGtPT1MINppA
tqthDDuLlUCiQlE4QDWaQKdYwXjNjJVALbdKX3c0mkCKsoBR8o+VQK48znDj
MppAUWb/AjyWlUByZL6Rsi+aQN7N/GXPopVAtH94SCwpmkBuSvJjl6WVQGXW
bTe0J5pAZWnDdw==
      "]], LineBox[CompressedData["
1:eJwBMQLO/SFib1JlAgAAACIAAAACAAAA+Jz3K/a7lUDpV2SzbBuaQOM2YeZt
vZVAQEcXbpQamkDO0Mqg5b6VQINLqJu6GZpApASeFdXBlUAfUwEXAhiaQFFs
RP+zx5VAHqHYA3wUmkCqO5HScdOVQE5LZmAPDZpAldX6jOnUlUCUE1mtFwya
QIBvZEdh1pVAIvKcix0LmkBWoze8UNmVQG6ytMMhCZpAAgvepS/flUAwgm2X
CgWaQFvaKnnt6pVAc3FOd1H8mUBGdJQzZeyVQIAosT0s+5lAMg7+7dztlUAy
99ezA/qZQAhC0WLM8JVA4psOd6j3mUC0qXdMq/aVQMxEac7H8plADHnEH2kC
lkDuJx5rUeiZQPcSLtrgA5ZAm+MgkvDmmUDirJeUWAWWQEy4WoeL5ZlAuOBq
CUgIlkASbRCktOKZQGVIEfMmDpZAikbNG9LcmUC+F17G5BmWQFTM1q4t0JlA
qmzrH1UblkB7yI+Ki86ZQJbBeHnFHJZAiL++heTMmUBua5Msph+WQAsyXaWH
yZlAHr/IkmcllkDeMrIVkcKZQH1mM1/qMJZAnPRsG6WzmUBou8C4WjKWQAjv
mrSusZlAVBBOEsszlkBDM7mYsq+ZQCy6aMWrNpZA6yylDKmrmUDcDZ4rbTyW
QBnvUC9Po5lAPLUI+O9HlkDd/6fAdJGZQCgKllFgSZZAUOfvzhyPmUAUXyOr
0EqWQIBnolO+jJlAgHMwIkpMlkB7bicASoqZQByWBAo=
      "]], LineBox[CompressedData["
1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAAnFxzxHJTlkAhmFQS/X2ZQPsD3pD1
XpZAuk8uCfJomUC6UrMp+3WWQFjLRnPGOplAtv6XxIp3lkCSoBPueDeZQLGq
fF8aeZZA2Q05ZCY0mUCoAkaVOXyWQNKMsK1yLZlAlrLYAHiClkC8Ikaj0x+Z
QHMS/tf0jpZAIuCriM4DmUAs0kiG7qeWQEYvY7ljyZhAnVHe4uHZlkDAjo2a
51CYQJLqzMtW25ZAR/Q8pGtNmECIg7u0y9yWQNI+ayLxSZhAcrWYhrXflkCp
u1XTAEOYQEYZUyqJ5ZZA7eDaaDU1mEDu4MdxMPGWQLs+am4GGphAPnCxAH8I
l0A/b8BB4OWXQDMJoOnzCZdAe+ejB73il0Aooo7SaAuXQAUKkPqd35dAEtRr
pFIOl0CvhpO+bNmXQOY3JkgmFJdA+eq/IEDNl0CO/5qPzR+XQF7EclnRtZdA
8+XyNUQ2l0DyNoZdpIyXQIzbsHQ=
      "]], LineBox[CompressedData["
1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAA4n7KSLA4l0CVyVnzYoKXQOduEHNE
OpdAVo+Ds3h/l0DwTpzHbD2XQP6IWCa1eZdAAw+0cL1Dl0AUfXWlcG6XQCiP
48JeUJdA46nlhOhYl0Byj0JnoWmXQBgi8aOPMZdAdn+IkTVrl0ApaKQxQS+X
QHtvzrvJbJdAwlLuF/csl0CET1oQ8m+XQAxpw8JvKJdAlw9yuUJ2l0Ai4t9g
kx+XQLyPoQvkgpdA4kdMOpoOl0AFkACwJpyXQMvtRD1a75ZACjtqebOdl0CM
AJpjiu2WQBDm00JAn5dAEb74ar3rlkAaPKfVWaKXQJSEp/Mr6JZAMOhN+4yo
l0B2TZjMKeGWQFxAm0bztJdA/j43m5/TlkC08DXdv82XQBIj7p4rupZAupuf
pkzPl0DG9Ez1o7iWQL9GCXDZ0JdAbcpX4x23lkDKnNwC89OXQLrMRV0WtJZA
4ms496LUl0AhL3o4a7OWQNSorq4=
      "]], LineBox[CompressedData["
1:eJxlj11IkwEYhTdBEdFwMmaBtOZP/uRvWrnQcVozTAr5VlYWWmwzlJAsVwwt
ckWYaclqvL5kNBLFkTozwsiwrizUoqYta+TyItSB4U9mdbP6uu7icHhuDs9R
GU7rK4IkEkmsmH89U3glabO3Dd/SnnnXuwjh99/Vtsy2Ie5Ia66xg2AUToWV
/mlDR9A+b1QLweD3qcYljC7ZZ5f7OuGEVa/OD2J4xpI9tiZC+YC6UhXMGN3d
sEHRSDgqC33pD2N0Xuu+lX6ZoHd3WusUjIVYYdJhIewSfL/a0xhrL+4tN54k
wC9Erstg+ANfcs5WEDTWkcSGTMZg0uJ0mYmQN9B7yJTNWNH9NqoNhFxZ/eNU
NaP5Y5EgLSdkuqNrhnWM8KySfE8JQSkIc75jjPo39ue2PYR0xKCmjPF1srqG
CsS9jDmWHmcMTTz13dWJvhEXi+INjNrm6e8uLcE+6uyrqhT9up4o5jWEUK3E
vGpm1FW8X3btICiyxl9fPc/Y3+Qee7udkLCJEqItjKmF8OqVbQRtYMuUup4x
rzsTmZ9DuDB0eOclK2P4xwH/XCZhaWu/JOwmwwwH2VMIAVVdaXur+GfNbJxI
JkTICh6l2hjO7IMhUSKnLHqNxXbGiNzgpkSCqSfklf0OoyRDeXswnvAprvyG
spsh782zFCsJ81HJsw+djL1VjuCejYQ16apG+4AxsfrhXKjI8pmmJVMfo7/w
p3Q05n/+C5sC+lE=
      "]], LineBox[CompressedData["
1:eJwV1Xs0VWkYBvDjRIg6k1tScgmNS0QhMs3rkkQoGRmMUKSpNCTXqCGkMVGT
vfZLRQy5JOl00sX15DalREjlUjEoNRFpTGJef+y112+tvfdaz/ft9/nU/A65
+HM5HM4huubuTucFO4r4LETZqbX4KDEglFuoZFzDwjKTiq438gzcH31VU1zL
Qn5krPIBclvzzb3q91jIOezx6YMcA69P+Ah4DSz87m3sPi3LAPcTf9vbByzE
P3OuXiXDwILWk599HrIwireCby5mQKbkp4tPH7Gw6NZgkS1Z3V/8XV0rC5Mv
A4v3f8OAVYdHUtZTFl5c7bnduIgB+zIDfYVnLKhr2Yf7kV1+F+1Iec6CW86q
0pmFDPhtuqoe1cOCbozUyQ3kOIFIlWs/vZ/gzG+QojzpBROSH1gw109l1CQp
T3BM5vFRFhRqlayeSFAeRxerz2Ms+FwOck4kvxabTh2YYKHTclPyqDjlCXPW
rf6PhdLwRKeO+ZTHRaPNeJoFh0Ore86QZfSnIq58ZSHN167Wmaw+mNOAHIRK
yWvxLWKUx23SN3Q+woShSkOvKOUxeiAxIo5g07SxI4/ssii71FcSIYYTuzqI
7New5auTNIKjjiGfS44zucBqyyBU61kPm89j4JRMyPfZsgh3MtfLS5PP/mM7
qCCP0LdjKraXy0BO/uhaUUUEOHydm0S+p2DT0quM0GTanTUowkBziYW8kwrC
H9flQUhutzH2rFRF0Gt5L5pFHgzRGspcSdYrnvQkf5BUWS2liVAnVahqQf43
e8nhKC2E3x6E7VMmL2iRmHXXRuDp8Lf3cxiQDRDZ1KSDML3X/J9G8vKvU6dM
9RCi64S5JWR93REFBQOE9CUSrkfJpsJ+r4Q1CD4lPQ7+ZPixO2fCEEEt+283
Z/L2pIf6T9Yh/P28MluL7LGiIdTKBEFRmN8tS/YTVN0pM0XItRnX5JL3by3n
qJkhrLhuED02mw6h/aW2aeb0PY/h56/IMVEFKbMbEGxTCq2fkBMXX2oL+g5B
k53l15NTC1CxdyOC28Mwndtk9vuz3o6AEBKdmVdCvtR56s8KSwSZj1Mrc8lF
B+Pf6lojPDq+4k8k80WPrsm0QdgYnq5xhlyRGRq2wJbWQ2MkN5lcb3SwInIz
QvazYtV48qO//Llv7BCEA7sxhtzp423nbo/wJT1LOpLc99ntdKMDwoDFSMQR
8vBp53YTRwR57SfdIeRRTTulfCeEb4v6TYLJUxXgI78Ngc8rTPiFzHU1yz+x
HWF7YWnjnKVGDN+NuyBgQ/yXuefl4nSMdrsiaJSXqYSSlZeujGj7gfb3fr1R
OFnr2rIqy50IAdu2ro0mG2yWEy1zR3BiW1WOk9f3StureiB0j72aTCBbHhFL
S/VEKLgiWZ5Ctpee6ZjxQrBX7PA+R96RO7ksyBvB68Tjd+fJXuYffHt2IRyB
k7vyyXtahy5v9UUwOH9ScI18MPDl+7t+COpDP72/Sw6b7Vqruwdh8JdzYk3k
WKY1MsMfQS751nQ7Oa1OKBYZSPuT+9+vc/uPnncdhvchyNoYLhSh/yPnI//M
zv0IL8sSgxeTb6jmKZsEIVgbVVevI1eWX9iddwhBcuBO/mZygxNTKBeMMJM9
39eT3HU0yXj8MMLTqOotCeQvXfscr0XSfPvx7r0myzXebt8YjRC23M1xhqwn
kPR6eBRhKgaFSjQvXmcKf357jL5fUhTgRq7a8iZJIxHh+JCYbxe509SMx09C
MFtoyfsyN3+ayYxlMgLn3iVcQfOsytXO806hfnEJ3BBIjrsTKGTPIqgYLD0m
Rn2QUXBry6pzCMEiac/1yXxGolWQjtDj8MO8H8kDIQV9bSyCVOUuQSnZVnd4
WjoL4bVF/N4A6psF5/ea/lqM8EI2ds9n6i/1U+VVvBKEJI7VTT3qtw0R4rYX
ryL4G+eX+5EPuF52vVuGUDvSX/uY/Eh6KPhTOcKycuuaG9SfZ2MCruyrQxBo
L6rPoP5dustfzaUHwTwZP7ZSX+uYV0/W9yKMdca1yFG/W8gvbTZ7ibC6u3Kx
O9nnQXOYWj9Ch5l6TR+5wHRd8+gwrW9UaMY4j4H138wLT51AOjdqxnXpvHGv
zW5ulsqA07LiJe0K1D8TfaqimhkgxUvoUlnOwP+QxTqL
      "]], 
     LineBox[{{1678.5697931668014`, 1416.176086768298}, {1703.7628332476581`, 
      1421.8725155097602`}, {1727.2874257631324`, 1427.5167332358556`}, {
      1744.1778956850176`, 1431.7067816071701`}}], 
     LineBox[{{1750.3508707132246`, 1433.258387496844}, {1775.3677680979345`, 
      1439.5946200524806`}, {1798.7162179172622`, 1445.4648295495886`}, {
      1819.2487046355022`, 1450.4784168482538`}}], LineBox[CompressedData["
1:eJwVz11IU3EcxvEl06nRYlPTIl0mgbSMCCJmaY9ZU8HIxLLIrZra6IUZNVHK
ptsiIUmj6H+Qzg9dhr1AYytkE7yQkmbLypcxsiB0rTAMp1PJZlSni4cvn8sn
XVdTWh0lEok2CPvf2XUprfImHsqR7YVGO0NRZrCh5guPkGb8aMMrhvr9j3MD
QR5x9yddHwV36wyiw994vE/WHlR5GMS0ZM3+zsOXdU75U3C/bFVLdIhH79pP
ztrXDDuXd7Tfi/BItGUPmoYYNr1r7vHICD9mcnjPKEPZdHFddgIhyev2bx1j
sMTKVU8TCRpLlZ4JntjL991OJrgVMW2nfQy8y/FSk0rozKiTrfQzJNjGR+Yz
CaUi1fPqcYYVRuWMAoTUVvO0foIBUwVzzjzCnc1G81fBpoqqhfx8QqjR21E5
yRDZRxG9miCvOXH5VIBhIWm1xFFMkCYcGawMMky5wgocI2yR+4atUwzDy72H
Tl4ktIf+flbNMUgv+MvClwjr06LeegUfCIbLr9USisZKzlSEGbxDSu2jehJ+
3nKa5xkGiM7Omgh51z023yKDe4/Z2tRCGJCcj6cIQ4e1sKfzASFud2NBv5iD
P2iISekmpHf9iddGc5Cq75a3PSSIb+iafws2xQZ+XX1CyFp6Zt8l4aC9eSX3
uIOwLcc4+iKOQxpn9yT1ETZ26dWLUg6GUKbzwxtCsiUjGms4/AN6T/lR
      "]], 
     LineBox[{{1908.8855975369584`, 1478.4858313410668`}, {
      1920.6142535331664`, 1484.555046084421}, {1920.973568602339, 
      1484.75196360857}, {1921.3328836715114`, 1484.9494828374661`}, {
      1922.051513809856, 1485.346308658501}, {1923.4887740865456`, 
      1486.1469854965435`}, {1926.363294639925, 1487.7754459005353`}, {
      1932.1123357466836`, 1491.1328411722623`}, {1943.6104179602005`, 
      1498.1859099876415`}, {1968.5600348218525`, 1514.4297295797548`}, {
      1968.9238030921065`, 1514.670674508985}, {1969.2875713623607`, 
      1514.9116291664238`}, {1970.0151079028692`, 1515.3935492467176`}, {
      1971.4701809838862`, 1516.35730353451}, {1974.3803271459199`, 
      1518.2834371432261`}, {1975.9369922818203`, 1519.3123354073914`}}], 
     LineBox[CompressedData["
1:eJwVTmss1WEcPmF2EBm66INEyJxcytzlOWVYq7XEKbksd1YhmopRGQpbazje
Vzi/tVrZaJJqp1iq6ZBLU4lcSlchK8MI59C/D8+eD891a0xqcLyWSCRyEPCf
bZ44p/ZMK+DblXiWdzAkbB75LZ1RoOBSo5P8FUNt1uWUR7MKbDKbcSzrZJB4
fzpF8wpw64GMsm4G15aSk6fVClTsqXep7WXY+3Qseb2Y0Owaech7kCHfonSi
SI+gfCBShQ0xqHJ9k1f0CTqJPDB7mGGfX3nST0OCrtL6W/tHhuBn0sTHpgS3
GJuK4q8M0S+q4yK3EOQlDa2vpxgcTchNYyn4b07ah/xmWIq+Ia6xIlSW21WN
/mEoX3O7fsSGYJB5xVlvlqEDDXPhEoIGxufqFhnk1xpVyzsIhR75J+KXGWI+
N/EqJ8L4RMsNWw2D+oLSZ3gnwXgy8kyriMOp9Xn+MU/CZMoV7YNiDrVRm2zJ
i+Divz8qUJ+jI0q1/boPQbuJuQet5YhZ6ewe9CM49dzWjjPmqPDtMwsLEPa0
eoPF5hya5rFbRw4Lf8YVMlsJR6fBROZCCOFeeuDmx46CP/xXEJMRjoRq3slc
OJyX/0z1hxGS5OntTW4ccV6LrrLjhOx1d1cXpBwuxcu689GE4dTJtjF/jpVB
zQd5LOGn+G/zl0AOfl4r530CYSgk/qP6AEeX0uBlyCmCQ+z93d3HBF1sxOZS
CKOs6ptllNB/1Di5PI0w/X3jfF600LdgZtiXQTD1qFuTlsSx090i9HAWwfNN
gs5MJsdqoaXdbDbhx4BJ4qMsju5+q8XSHMKdfrOMolyOhEy7mrcXCVKJeltE
IcculX1qeh5Bz/uteUQxh2iDRGqST2htHA09cVXIxzua3i8gHJ2qFhWXclQ+
dP5x6DKhNyBPqqzg+AeD/U4f
      "]]}, {}}, {{}, {}, {}}},
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{800, 1250},
  Epilog->{
    PointBox[{834.676, 1291.97}], 
    PointBox[{884.756, 1308.67}], 
    PointBox[{916.057, 1337.88}], 
    PointBox[{953.617, 1415.09}], 
    PointBox[{970.311, 1523.6}], 
    PointBox[{1003.7, 1607.06}], 
    PointBox[{1035., 1652.97}], 
    PointBox[{1097.6, 1694.71}], 
    PointBox[{1164.37, 1711.4}], 
    PointBox[{1247.84, 1713.49}], 
    PointBox[{1322.96, 1698.88}], 
    PointBox[{1385.56, 1673.84}], 
    PointBox[{1427.3, 1634.19}], 
    PointBox[{1485.72, 1506.9}], 
    PointBox[{1460.68, 1565.33}], 
    PointBox[{1525.37, 1452.65}], 
    PointBox[{1579.62, 1415.09}], 
    PointBox[{1673.53, 1415.09}], 
    PointBox[{1744.47, 1431.78}], 
    PointBox[{1819.59, 1450.56}], 
    PointBox[{1907.23, 1477.69}], 
    PointBox[{1976.1, 1519.42}], 
    PointBox[{2017.83, 1573.68}], 
    PointBox[{2038.7, 1642.54}]},
  ImageSize->{539., Automatic},
  Method->{},
  PlotRange->{{800, 2017.83}, {1250, 1715.1877823608281`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.611935704121337*^9, 3.6119357348160925`*^9}, 
   3.6119358352128353`*^9, {3.6119358928991346`*^9, 3.6119358973923917`*^9}, {
   3.6119359989732018`*^9, 3.611936013947058*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{942, 987},
WindowMargins->{{330, Automatic}, {Automatic, 0}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 236, 3, 79, "Section"],
Cell[818, 27, 2031, 54, 132, "Input"],
Cell[CellGroupData[{
Cell[2874, 85, 137, 2, 31, "Input"],
Cell[3014, 89, 165, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3216, 98, 135, 2, 31, "Input"],
Cell[3354, 102, 946, 21, 239, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4337, 128, 171, 4, 31, "Input"],
Cell[4511, 134, 124, 2, 31, "Output"]
}, Open  ]],
Cell[4650, 139, 353, 9, 31, "Input"],
Cell[CellGroupData[{
Cell[5028, 152, 122, 2, 31, "Input"],
Cell[5153, 156, 125, 2, 31, "Output"]
}, Open  ]],
Cell[5293, 161, 305, 8, 31, "Input"],
Cell[CellGroupData[{
Cell[5623, 173, 122, 2, 31, "Input"],
Cell[5748, 177, 125, 2, 31, "Output"]
}, Open  ]],
Cell[5888, 182, 126, 2, 31, "Input"],
Cell[6017, 186, 376, 10, 31, "Input"],
Cell[CellGroupData[{
Cell[6418, 200, 122, 2, 31, "Input"],
Cell[6543, 204, 188, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6768, 212, 124, 2, 31, "Input"],
Cell[6895, 216, 124, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7056, 223, 175, 4, 31, "Input"],
Cell[7234, 229, 138, 2, 31, "Output"]
}, Open  ]],
Cell[7387, 234, 93, 1, 31, "Input"],
Cell[7483, 237, 8302, 204, 342, "Input"],
Cell[CellGroupData[{
Cell[15810, 445, 124, 2, 31, "Input"],
Cell[15937, 449, 138, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16112, 456, 121, 2, 31, "Input"],
Cell[16236, 460, 136, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16409, 467, 125, 2, 31, "Input"],
Cell[16537, 471, 140, 3, 31, "Output"]
}, Open  ]],
Cell[16692, 477, 899, 27, 48, "Input"],
Cell[CellGroupData[{
Cell[17616, 508, 187, 4, 31, "Input"],
Cell[17806, 514, 1126, 20, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18969, 539, 124, 2, 31, "Input"],
Cell[19096, 543, 142, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19275, 550, 122, 2, 31, "Input"],
Cell[19400, 554, 93, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19530, 560, 123, 2, 31, "Input"],
Cell[19656, 564, 110, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19803, 571, 122, 2, 31, "Input"],
Cell[19928, 575, 131, 2, 31, "Output"]
}, Open  ]],
Cell[20074, 580, 1316, 36, 33, "Input"],
Cell[CellGroupData[{
Cell[21415, 620, 120, 2, 31, "Input"],
Cell[21538, 624, 16032, 417, 424, "Output"]
}, Open  ]],
Cell[37585, 1044, 94, 1, 31, "Input"],
Cell[37682, 1047, 16535, 420, 963, InheritFromParent],
Cell[54220, 1469, 94, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[54339, 1474, 683, 17, 52, "Input"],
Cell[55025, 1493, 20301, 362, 228, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)