(* 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[    141335,       3108]
NotebookOptionsPosition[    137462,       3039]
NotebookOutlinePosition[    137824,       3055]
CellTagsIndexPosition[    137781,       3052]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.889104537246646*^9, 3.8891045516248693`*^9}, {
   3.88910472825602*^9, 3.889104729415251*^9}, 
   3.889118788593347*^9},ExpressionUUID->"f2d7bf67-519b-4366-9a10-\
f19376de6bb8"],

Cell["\<\
Here, I will use an example ridge that I have made and tested in XF to \
demonstrate how the curved part of the ridges slope in.
Here is a figure that represents one of these ridges. We are viewing it \
directly at the edge of the ridge, so the blue line actually represents the \
side. The purple curve should lie directly aligned with the blue line but \
doesn\[CloseCurlyQuote]t. The same goes for the green line and orange/red \
lines (which do lie in the same plane, but that plane isn\[CloseCurlyQuote]t \
aligned with the other side) below, which is the other side of the ridge.\
\>", "Text",
 CellChangeTimes->{{3.889118836397954*^9, 
  3.889119017191614*^9}},ExpressionUUID->"0859e4b4-741b-4eea-b2b6-\
e446b9af7816"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x0", "=", "4"}], ";", " ", 
  RowBox[{"y0", "=", "4"}], ";", 
  RowBox[{"z0", "=", "0"}], ";", " ", 
  RowBox[{"yf", "=", "6"}], ";", " ", 
  RowBox[{"H", "=", "30"}], ";", " ", 
  RowBox[{"zf", "=", "30"}], ";", " ", 
  RowBox[{"xf", "=", "zf"}], ";", " ", 
  RowBox[{"\[Beta]", "=", "2"}], ";", 
  RowBox[{"\[Tau]", "=", "0.26"}], ";"}]], "Input",
 CellChangeTimes->{{3.8891047313587914`*^9, 3.889104784350019*^9}, {
  3.889105008478373*^9, 3.889105011515078*^9}, {3.889106004732277*^9, 
  3.88910602661027*^9}, {3.889112979624475*^9, 3.889112979661337*^9}, {
  3.8891130240801353`*^9, 3.889113037799301*^9}},
 CellLabel->
  "In[433]:=",ExpressionUUID->"fb3dee39-fae9-47d5-bb54-52d21df6980e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParametricPlot3D", "[", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{"y0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"zf", "-", "z0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"-", "y0"}], "-", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"zf", "-", "z0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"xf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", "y0", ",", "z0"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"xf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{"-", "y0"}], ",", "z0"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xf", "+", 
        RowBox[{
         RowBox[{"xf", "/", "\[Tau]"}], "*", "t"}]}], ",", "yf", ",", "zf"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xf", "+", 
        RowBox[{
         RowBox[{"xf", "/", "\[Tau]"}], "*", "t"}]}], ",", 
       RowBox[{"-", "yf"}], ",", "zf"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xf", "+", 
        RowBox[{
         RowBox[{"zf", "/", "\[Tau]"}], "*", "t"}]}], ",", 
       RowBox[{"y0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"zf", "/", "\[Tau]"}], "*", "t"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xf", "+", 
        RowBox[{
         RowBox[{"zf", "/", "\[Tau]"}], "*", "t"}]}], ",", 
       RowBox[{
        RowBox[{"-", "y0"}], "-", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"zf", "/", "\[Tau]"}], "*", "t"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{"y0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{"\[Beta]", "*", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"t", "/", "\[Tau]"}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Exp", "[", 
              RowBox[{"zf", "/", "\[Beta]"}], "]"}], "-", "1"}], ")"}]}], "+",
           "1"}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"-", "y0"}], "-", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{"\[Beta]", "*", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"t", "/", "\[Tau]"}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Exp", "[", 
              RowBox[{"zf", "/", "\[Beta]"}], "]"}], "-", "1"}], ")"}]}], "+",
           "1"}], "]"}]}]}], "}"}]}], "\[IndentingNewLine]", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Tau]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.889104789299713*^9, 3.889105080982005*^9}, {
   3.88910513362922*^9, 3.889105134787335*^9}, {3.889105176753415*^9, 
   3.889105183526766*^9}, {3.889105234070648*^9, 3.8891053106544733`*^9}, {
   3.8891053894877863`*^9, 3.889105467143161*^9}, {3.889105814148295*^9, 
   3.889105946276293*^9}, 3.88911016079349*^9, 3.889111844551866*^9},
 CellLabel->
  "In[434]:=",ExpressionUUID->"a2747aaf-59c9-498b-a918-186b6556d2ae"],

Cell[BoxData[
 Graphics3DBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwVjHk41Isexh1ahha/2fyQiIZkG2Mf/JrXcitCi4RzSUI8t1G3EUqbJCod
RyqpQ9f2KGSo64QkmpTUTWWP0mI5kVD2/c75432+z/t5Pu9Xc+/BHUGyMjIy
rtLISePx7o+1MjIEVK0qZf++4511NZyEnA0FF57G6NEINETP1GdIedNN5aN2
bTGCX2yHPu8kCFyo4/9h9wsBsF/vVW5LFohv2mfkrSEw/et90zOyBCK25bfK
tWUJlgT2qbnbEXh3oihwyWIC9EEyear1nqB00EIpN4ZA6pPMZ8sVCHx86HZw
tFUiUFnUQHNZTIfS1rgLKiwCGzn9H360Ngg+GNEGrykwQN+3lWGqS2Cq1fLq
cOsXgc6zO10cOxaCzj6S1LoTkDjcynmbNSKoD35xUmeHEmaXilYfPU5g1cfy
3r0Gc4KJNxkptV7KOC/apLE7hwBT6Je/1EEOn44VvfNNUMXh+qnHOa8JJPE2
Vrh50KDHs5SEpKoh87fhlbRJAq2pxtU/iBUw051oDnmrDv0NNbP/W0tHQs6p
17IqdPiNWJouil6DOy3ll5660UFe6Tp/OZ2JplZjt8RYTRxsGHnTHkFH/E6n
DQ3jbOh9eDrP+I8WkqoU7m7PoiOMn+lXF6MMcTAp25C7FqOK+2x6XtDhODQd
daBLFaMeT5/syePAdXOX8M5POmJst/urWq2GapDiqv7H2lgkogTNqxmwEV8v
OVmlgQNT7KeFtTqYm++oUN3IgHDyR/TzFZrIEZctEnatw84Tnu8eH2JgUp/o
NPTQwvXaUtnpKV1kdo2mp6UxYF1wJyMlZS0eBYW5S+bWg1fYsvxKDQNDDOc9
uyQc1HBe8s+S+lAPuar2fYiBLxf37BIt1cFUyEdRjLoB3OJSW/YqM7FpKNKp
x2IdiPrf7aJsDNFx9QjP2pGJbwG0sJJTuuhNSau3czfC7t+iTP9xkAlHDikb
L1mPge4gsYMXF5yv1R+F15ggXukkFg/poS+vh57BN8Zms26DcQkTq84VbbOw
MMBo9nh4RaUxxF1bOGnfmLimzyeYwYb49Nq8fIOAB4VjzZJwJgsvVO3MRy4Z
wXa5w6aqlzzUyNnK3t3AgrWaJInbwgU3QTz/3s0E1UO932jBLCjKZR32jzFG
supXmcn3JlB9dSBCksyCxmkNW28dHlo6tn6JCjHFv5KVbxdVsrBc2+f+jloe
/vuR/f1GvylmHyyJLe9hgUepFEX6mmBhJM++LNIMA01vZbTpbIR3Mp44y5ii
yzntsWjGDOo7Pq8r5LPxc+Sih1OqKW41PtS4etwcm0oZ4yH+bDhzn91wMjRD
h7DgeQnNAq9WaAbFXWRDMmIzM1FvhlubJ28cSrBASm3YyeoSNkQGJu1vg8zR
ZcYs01exxENRtpXPJzbsBwObvOUtUBZwcT4m3RLap8l0lrwSnDnKriuyLCCs
MeXYa1ghNrLwtgxPCUbRF45ILC2RZJ53Zb7ACvBb4+HmowTjIH6VdrslXPqO
G3lx+RDktxaUxSpB+CgktuSQFY4WqjOLKvlI692fHVushNqMpsAfbD7isgdb
Qp2sMaigZR/boYS52wsT3FI+9N6r1dS9tMaZZLWEDDkSQu0C+Ruu1hBoq8xq
edsgYtnoYXUuiRm9yxb3hq0xUBzmq/LBBgV/KcqXe5KQ5Mx8HjtngyMHZtMj
d9uipcDVMf4UiUDHtbBRt0W4rfv6xn5b+PmHrCnNJ6EdGl9uVG0LeVda58tQ
CnpRtblyjSQ0FIR3XT0pzP0uFLP+TWFvsGZqqZSLHU5EDXtTGGx4c9JXRCF1
57Hz+5tI2JxIdLjsQ6HR67rGUASFJVyusLGZhOdwcXObP4X0QD1/RjSFL10p
vOw2EoktY1MBQgq84y7dXskUrrvue2jfSWI+65R91GkKvxYk9ffcp0DTXNxw
uo9Ep83lxtwCCi6Dow+MyikIVvo9Me8nsT88J81JLO0874TICgoRM2UlfVI+
Lf4zaKCYgnappoF8NYXuZuG17QMklLXaJnjSv0OSe6EGdRSqLzT5aA6R2Epb
rVYp9c60Nw2LOihEjmb/VT1KoqopN7CxWfp3Nf9xxQcK4s9zbYfHSLitLDOM
aKMQsif90qJPFHrqPV/ojpPo2FQ3rizdu/YGmaR0U3DPW1aYNEFi4sG3c7ul
HvlzPKz8OwWj3WGiPdMkjDKNC/v6KSiY/9NRdpjCvi2vAlgzJCrb7SIuSr3Z
yCrWlp8U0qzWeTyXcmeWu4Ar9T7Pxf/5fly6Y3ZYGs+R2Bcf/vbwGIUmDJzV
nqJgJ2O+vlvKx6rjbpCTFJ6d2bbrwAyFI98TVVPnScRMXwt4ME2h9FmJTukc
haL2r8tcFkgomuUZ+Ep7vrzKxMIChd5a+7kFKb8Z+mDs7/5/SZ4y2A==
       "]]},
     Annotation[#, "Charting`Private`Tag$112685#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwVjHk81Psexh1UQ4vfbH7IEs1ItjH2YX7Nx3IrQouEc0mWKa/bpNvYSpsk
CseRCjl0bS8lGdV1siXfJpG6qewRkuVEQtmX4c754/njeb/ez6MdcPIAX1ZG
RsZVGjlpPD7+sVVGBgM16xopxtBsb2MdI7FgR3HCyxh9EgbN0UtNOVLeekfl
jF1nDO8X7kT/QQyDhEbOH3a/YAjo7wJUOlN5ojv2OUVbMFj89YnZZVkMRey7
3yHXmcdbGzSi7m6HwcfzpUFr12CIPI6nLnQ85pWPWyoXxmCQ8SK3foMihvqe
up2c7hDzVOWbSS5ryKC8Ny5BlYahnYzRnh8dzbweY9J4uiIFyEf3Usz0MLTQ
YXVrsuMLT7f+wQDDjgb8K8/EDe4YEjvcLfiQN8VrOvb6gu4BZVheJ9Q4cw5D
m/sqhwMMJby59zlpDV4qcE24S+twAYaoAr/76xzk4PPZ0o++iWoQ1rTwvOAd
hlLYO6vdPEigz7YSB2eoQ+5vk5tI8xjqyDBBP7CNYK431xb8QRMMdtQt/28r
GSUWXHwnq0oGvykrM/noLfCgvfL6Szcywm8OXLuRTYXWDhO35FhtONk89b4r
goziDzrtaJ6lg37PyxXKf3QgpVbx0f48Mgrl5Po1xqiA6Bgu21y4FaaVjtoO
vSYjx4nFqJABNZj2ePniSBEDXHcPCB78JKMY7n5/NWsNUOMrbR59zgR5IcFr
06AgW9Htsgu1WhCyQH9Z0qALkpXuarWdFCSY/xH9aqM2FIgq5AUD2+Dgec+P
z09R0LwB1mvkoQO3G8plFxf0IHdgOjsri4Jsih/kpKVthWf8UHexZDuwS9o3
3KyjoAmK85FDYgbUMd5wruAGoBl8S/37BAV9STpySLhOFxaC+4QxmobgFpfR
HqBCRbsmIp2GLLcB1vS7XZStEXTfOs22caSib4Gk0LKLejCcltVk524Mh3+L
MvvHSSpyZOCy8eLtMDbIFzl4sYDxFfUJ0qkIe6ub/HBCH0aKhsg5HBPYbT5o
OCumos1XS/dZWhrCdP5seHWNCYgG9jCyvlFRugEHox4zgs/vLCp38NigeLZN
HE6loddqdhZT142Bu8FhV+0bNtTJcWUf7aAhG3VxCqudBaxE0conN1NAE8Pf
SMdoSEkuL8w/xgRS1b7KzH8yBbW3IRHiVBrSuqTF9dZlQ3v33i9RwWbwr1SV
e6U1NLSB6fPkQAMb/ttH/545agbLVWtjK4doiE2olkb6msLqVJF9RaQ5jLV+
kGGS6Si8l/LCWcYMBpyznguXzEHzQP+2Eg4d/ZxK8nDKMIO7LU+1bp2zgF3l
lNlgfzpyZtVnOhmZQ7eg+FUZyRLebtTmxyXRkXjKdmmuyRzu7p7PPJVoCWkN
oRdQGR0JDU27PvAtYMCcWmGgagVPhfnWPp/pyH48qNVbwRIqApNWYrKtgHkJ
z6YpKCNnhorrxjxLENSZMey1rCE2suSeDFsZGUcnnBZbWUGKRdHNlWJrAL8t
Hm4+ysiEz6lldlmBy8g5Yy8WB3j3O4orYpWR4FlwbNkpazhTokktreFA1vDx
/NiHyqghpzXoB50Dcfnj7SecbGBcUcc+tlsZSe6tzrHKOaD/Sb2u8Y0NXE5V
T8yRw5GAWayQ6WoDPKbqso63LUSsnw7TZOFoSf+G5eNJGxh7GOqr2mMLxX8p
KVR64khcsNQ/c9UWTocsZ0ce5kJ7satj/EUcBTluBVtNLoRz3be3jHLBzz94
S/l9HDFPxFcaIy4ouJJ635wgQD+qoVCuBUdaioJHrp4ESH4XiGj/JiDgmHZG
uZSLHM5HTXoTMN78/oKvkICMg2evHW/Fke35ZIcbPgS0eN3WmoggYC2LJWhp
w5Hn5MO2Tn8CsoP0/SnRBHwZSGPnd+IouX1mIVBAAPucy6BXKgG3XY8+te/F
0UreRfuoSwT8WpwyOvSEAJL2muZLIzjqtb3RUlhMgMv4dJVxJQG8TX4vLEZx
dDy8IMtJJO1s78TIagIilirKRqR8UfQnf+whAcxybUMFRMBgmyB9/xiOVHQ6
59jS3wnx4xOGjQSghFYf7Qkc7SVpqNdIvctdrZPCbgIip/P/QtM4qm0tDGpp
k/5qcJ5X9xAg6pd0hs3gyG1ThVFEJwHBR7Kvy38mYKjJ87XeLI66dzXOqkj3
rsN807RBAtyL1pekzOForurb1cNSD/85G1r5nQDjw6HCI4s4Ms41KRkZJUDR
4p+OspMEHN3zNpC2hKOaLruIJKm3HFlL2/OTgCzrbR6vpNyZ5s5jSb1+Sfyf
n2alO2q3lYkER0fjwz+EzRDQCmNXmAsE2MlYbB+U8hkUl4nPE1B/ed+hkCUC
Tn9PVstYwVHMYnpg1SIB5fVluuUSAkq7vq53WcWRknmRoa+031dQnVtdJWC4
wV6yKuV3TlTN/N3/D9Q0WVg=
       "]]},
     Annotation[#, "Charting`Private`Tag$112685#2"]& ], 
    TagBox[
     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJxTTMoPSmViYGAwAWJmIA69OVuZgUHAgQEMYDQDgyTLJQ4fVkEM8bt6HO+m
cwlhiKsdW/NYxVEEQ/xc+qk6tSAxDPHvFxZMOx4hgSH+oHr9zdhuKQxxLUPz
QxkzZDDETTS+X824KIchHv/Z3JilQQFD/Mp1A7++FkVM8+8e/Sc0XwlDfF26
ONOlZcoY4l9Cjx5OWKmCIS6Vyi/96qAqhnjeT9Gja4+rYYgvWbeDJeexOob4
zOPbmX791MAQ35daHHzoryaG+BGV05at4toY4j8z7hc1yelgiAuc63esstbF
EH82bc45x2A9DPE3T1LXOUfoY4i/XPlUcIGlAYb4l8XfSnfvxRR/cN50p529
IYa4DY+z+/7TmOL63ev+3fEzwhCfJPWC4ccdTPFrt/0fVWUYY4hvvi/6dtYr
TPH/n1c67Sg3wRB/7DXnYNFvTPHll/fIT60xxRC/nbP6xBYOM0z1Hj9mFXZj
ij82Ed6hLWmOIb4juedf01xM8ZwjxipO8hYY4hNMV075txpT3OdljV6EviWG
eOVaOeH1ezHF2xa/u5braYUhrnVH5sjJ05ji9qqSf5QirTHE32wojpW8iyle
kfdnbnmcDYZ4qU2w5uVXmOKcvhz3TufaYohHrZ7w6uk2TPFVnJLf///HFAcA
j5/Naw==
       "]]},
     Annotation[#, "Charting`Private`Tag$112685#3"]& ], 
    TagBox[
     {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJxTTMoPSmViYGAwAWJmIA69OVuZgUHAgQEMBA4wQIEkyyUOH1ZBDPG7ehzv
pnMJYYirHVvzWMVRBEP8XPqpOrUgMQzx7xcWTDseIYEh/qB6/c3YbikMcS1D
80MZM2QwxE00vl/NuCiHIR7/2dyYpUEBQ/zKdQO/vhZFTPPvHv0nNF8JQ3xd
ujjTpWXKGOJfQo8eTlipgiEulcov/eqgKoZ43k/Ro2uPq2GIL1m3gyXnsTqG
+Mzj25l+/dTAEN+XWhx86K8mhvgRldOWreLaGOI/M+4XNcnpYIgLnOt3rLLW
xRB/Nm3OOcdgPQzxN09S1zlH6GOIv1z5VHCBpQGG+JfF30p378UUf3DedKed
vSGGuA2Ps/v+05ji+t3r/t3xM8IQnyT1guHHHUzxa7f9H1VlGGOIb74v+nbW
K0zx/59XOu0oN8EQf+w152DRb0zx5Zf3yE+tMcUQv52z+sQWDjNM9R4/ZhV2
Y4o/NhHeoS1pjiG+I7nnX9NcTPGcI8YqTvIWGOITTFdO+bcaU9znZY1ehL4l
hnjlWjnh9XsxxdsWv7uW62mFIa51R+bIydOY4vaqkn+UIq0xxN9sKI6VvIsp
XpH3Z255nA2GeKlNsOblV5jinL4c907n2mKIR62e8OrpNkzxVZyS3///xxQH
AKVQ52s=
       "]]},
     Annotation[#, "Charting`Private`Tag$112685#4"]& ], 
    TagBox[
     {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJxTTMoPSmViYGAwAWJmIE6a5MrFwGDnwAAGElDazmHiivLj8d6Y4gf2rWzZ
Pw1T3KbES0rXyh5D/NPcbL1jlzDFD35bWmVg4oAhLpm85XVIK6Z4LyezDP9F
TPGJX95HKig7Yog3F9kUbirGFJ+oddL91j5McT31L9qRAk4Y4i9i48/nxmCK
T1DX8mFejil+3HTytfffMcWl62wUipydMcT/cbWUe0/FFD+npb1i6VNM8T0t
QjOmGrhgiFsoz5h6pxFT/NLv2KCdZzHFf0scknkr74ohLniy9cDCAkxxl82d
ym92Y4qzP9Ke0svrhiH+zIvvyJFITPFNbgFna5ZgivO1Gzzp/oop3sEYuMvA
0R1DfMIB/nk6kzHF24T0olc+xhSfMa/n+m49Dwxxq/zORNUGTPGflcdWqZzB
FF8qnnx2iZgnhvjDn3P/VqdjiluKSb59sQlTXLHc6NUaFi8McVWhnmVsgZji
4g6uNg9nY4rP2DTnvtBbTHGzeBOnWxbeGOIpAVmbfnRhitdd+f97+m1M8W2T
rrKcVfPBVD/VUzqyAlM88dLfD1VHMMWNFgkukOX3xRCftO1wjHgCprgA67Yb
y1Zjir+fezLz8lVM8fNmd3/9/48pDgBV/+Lg
       "]]},
     Annotation[#, "Charting`Private`Tag$112685#5"]& ], 
    TagBox[
     {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJxTTMoPSmViYGAwAWJmIE6a5MrFwGDnwAAGEgcgtJ3DxBXlx+O9McUP7FvZ
sn8aprhNiZeUrpU9hvinudl6xy5hih/8trTKwMQBQ1wyecvrkFZM8V5OZhn+
i5jiE7+8j1RQdsQQby6yKdxUjCk+Ueuk+619mOJ66l+0IwWcMMRfxMafz43B
FJ+gruXDvBxT/Ljp5Gvvv2OKS9fZKBQ5O2OI/+NqKfeeiil+Tkt7xdKnmOJ7
WoRmTDVwwRC3UJ4x9U4jpvil37FBO89iiv+WOCTzVt4VQ1zwZOuBhQWY4i6b
O5Xf7MYUZ3+kPaWX1w1D/JkX35EjkZjim9wCztYswRTnazd40v0VU7yDMXCX
gaM7hviEA/zzdCZjircJ6UWvfIwpPmNez/Xdeh4Y4lb5nYmqDZjiPyuPrVI5
gym+VDz57BIxTwzxhz/n/q1OxxS3FJN8+2ITprhiudGrNSxeGOKqQj3L2AIx
xcUdXG0ezsYUn7Fpzn2ht5jiZvEmTrcsvDHEUwKyNv3owhSvu/L/9/TbmOLb
Jl1lOavmg6l+qqd0ZAWmeOKlvx+qjmCKGy0SXCDL74shPmnb4RjxBExxAdZt
N5atxhR/P/dk5uWrmOLnze7++v8fUxwAa7D84A==
       "]]},
     Annotation[#, "Charting`Private`Tag$112685#6"]& ], 
    TagBox[
     {RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwdyGs4lIkCB3BRuVTMjXdISYhFxiC5vTP/GYMMryitx1m5K6em7SRRuipR
Uo8Isy1OpFYRkqPoNk02q7N0CDPLpotqK0Tlrsnx7Iffl59p9M4NcepqamrU
HI050TleOmpqPBi53J1rGsb7WprMT5XxWGYcrR/Ueeg4MtN2Ye47i9n7BMqj
/F9vsBfWz+chs8X1Z8E8GqD/JJqtzOFbdQ3Mk2jzMP2Pesdj6jQkBV5VaChL
+R+JnCkFg4c/DlbHLlxAA/3vqOWnFPW9q7bgQfqw5NFiHRqe3wnYOaqQ88+W
JzdH+PFgsD4905BFg7f5h2efFB182b0raffzeaBvWc9wtKJhSrE2b0Txiu+R
KDZa7cZH3PF78uaNNMg9fylrL/3C/1y03e5RBx9fNROW7TtAw9LnDW+jbVX8
B+OXUuydgJMJPibhZTQwJRFXNT01YBhTNxB8HEhsm3pQ9oSGbK737YBNWjit
rWGs1w6UnB7R1ZqkQSG1l32iLcHZ0eHQFWYC2PCavv5uRsepssNP1A3pOJbg
sat2twCV3Q1nfw2ggzjXfzK3iImz1i0+PfcE2Nnx5X89SXRkBPvyOsb1YWc5
ahNKEyL7vs71oFI6druWRLQcZePd5ognO8KEGNXb4v7mMR2i4emUH/uNkG1p
7a/xixDUun5J5Wc6jnoERRm5LEPzmtzu4Qkh5ieQ/K5lDLhX/VR36L4Jlh7y
WJHg6QnVt97bRt4MSCY/HfltiSm+6aQl++V5IvhgyB8PdjEwaUPrW71pJdqs
bcovvfFESf9oUWEhA24VlRfy881wJ40hzbMXgXute/G5JgaGGeLI7+XmcDGT
5v2ZKsLy+DzjoWEGXmVFfp+guQodM5s3NLSKEJAu7Y5mM+EznOz7xtkSM2y5
8ZCJF3rz9nLdREwMxGjtrjtsBXrLcVnJv7wQfjrF0WsnEyJzQj1D/h1EN06a
Dd72gvk72XNJARO01lVnaoatofnK5tzpJd5Y5/TadlzOxNIT1YHOzrZ4K9Zt
agr1RlW/n3nhABMFNq405tbVqPUObD1Q5g2d/V3yPUwWHhsJ1nw5awfdDPvX
p8a80aThoX6dx4KbsTyb083BiXlBjfYCH8iG3w5obWVBT6M0MeqoPbJlesW2
uT4wav0xSZ7DgkmqiUfoKi7SGXY/XOn3wbYcdnn1XRYWW4TVb2jmQlqcpbht
tw5fGxemNbxhgUsaVidvdoDbzpNRFkfWYbCzXc2Cro89fYyHYjVHTO17dNX8
93VYvuGl5TVXfXz+krXJV+qIS0RMa5mBL3xuMsbjo/Qh5jw677vaCS+nilT7
t/qidYlpXHqWPuRf3Gcm2pzgamA49K7WF/nNuw/J6vSRYOvQ0x63BqbJDh8q
54txJ+GiS9gLfQg/xnaGajvDgpF1eWGQGBapRBFL2wBicza1pNQZBLw8Xv4s
RlrytXI1rgHsjmTula9dC2lt4XPGkBiIWLEpIMwA9nGu9y161sI5wknY4+IH
/lVFxa00A0juxafV7XJBbOC22slMPxS+3X4xrcYAzRc6Yz/pu+JQ5+xMQa8f
PuqsFKb1GkBVPjvBuemK+pyu+a2r/HEsx/jUBQ0CEosK7fOUGw7l+S4N3euP
pEWjics5BGasc51rR9wQ1aEaSWnyR8VfetoNIQTkZTMvx064w6GUfmGZHoXu
CkqUcZhArMgM7ss9kFP/MIyIpBARFb/i5lUCFjsyGuxkHqAtqFderqBgndJ8
WeMpARMdyXUqhISihEdOVlKI3moqvTn3VZ4HU0ZCSRTzmkt8qyhIg/ef3N5J
wP3gGc/cMBK2e5XbBmsoLORwJE+7CISM1HQpo0j4DEx/5dZTeNWfz72oJHCm
e2wqRkLicDvf9K6Mwk/UljvCPgLfSg8LU1JJDBe1/PNpFwUt0wUdqe8J9Lnn
Pr1cQaLebUObuYICXzfi4ZoPBLbvKSv0rSJxUNHjkKSkkDRzq+793E9X/Sdu
sIbEYvrgDLuXwusuSUHQIAH2SuUEt56EVZrumfAXFGSZnWGmwwTWay0zvisj
EbltY+37DxSSRy/+JRslcL/zcuzTLhKWmn8auA9SqHqpUiaOEQjQvbU6SUni
48XY/VlDFN60hTy2GifQ69Myzu4lceDZHhFnhMLGK4uuZU8QmGgcOBH+gkRB
oLQ7cYyCXfjuhMhpAnYl9tfefyARPrTC/dE4hS1+rTGsGQJ3ewRJWUMkLDKv
/JuYpFDoYrnpt7kXszbyOSMkbjxsjG+cpqDD7F1rryKwJWNPe+IYiZRIz9ZF
XykI1NZ893rux2Tp54lJEgLVf7mbVRT2Dp0xkn4jcHS6IKZxmoTW+eD8qm8U
qnveLfKfJaDndMV2s4rEE+dn07OzFN42C1Wzc1+8o3FsdpbE/wHgeS9W
       "]]},
     Annotation[#, "Charting`Private`Tag$112685#7"]& ], 
    TagBox[
     {RGBColor[1, 0.75, 0], AbsoluteThickness[2], Line3DBox[CompressedData["
1:eJwdyGs4lIkeAHBRuVTMjXeIJMQijPvtnfm7Z3hFaT3Oyl05NW0niVIqJUrq
EWG2xYnUuoXkKEr+DcvqLB3XmWXTRbUVonJncjz74fflpxNxaGe0rIyMDLVC
bkVElruSjAwXNOyaVpqGM8MdrXqXSrgsXTOFH2S50HNmsevGyvcVso87S87y
fr3HXlu/mgvpHfY/O6+iIag+i2BLsniG/aOrBIpcWPhHveU5WRrG+5WL5STF
vE9E1ryYwYU/kqqj1q6hIf3vqOUlFgy/r9bngrClqG29Eg1fPPI9NCUW8a6W
JrSHenNBbUdqujqLhh56H59/Fvfw8HFZSnMuF+h7dzAsDWk4L7bNmRS/5jnF
8TW2OfAg+vxjUfsuGopcfynpLv7K+1JwwLSthwdL8rFax0/ScOOLhncRJlLe
k5lbieZWABdjPbVDSmjIFISWy7vKgXpk3WjAeYC4rvknJc9omMnxeOi7WwEu
K8ppqnQDFF2eVFaYo6FYaI6faRvg6tRE0GZdZzDmti79rkvHSyWnn8mq0+Fc
rNPh2iPOUDnQcPVXXzoS10YuZhcw4apRh+fgY2c41PP1f4PxdEwL8OL2zKiC
qcGUcRDNBTKble76F9PxiH1RaMdZNrzfE/rsYLALTKnsdXz7lI5uEwuJP45o
QKaBkY/cLy5AbR8RVH6h41kn/3ANOy1ot84emJh1gdWxJK9fi4GOVT/VnWrW
ho2nnDbHurqC9NvQQw0PBgrmPp/5bYMOfFNKSfDOcYWApMA/nhxm4JwxbXjb
7i3QZWRceuutKxSNTBXk5zPQoaLyRm6uLjxKYQhzzN2Ac2dg/bVWBk4w+GHf
i/TATleY82eyG2yKydEcn2Dg64yw72Plt0LP4p6dDZ1u4JsqHIhgM9FzIsHr
rY0BLLJFmuPa7jCUc4zj4MbE0UiFI3WnDYHecR6L/uUOIZcTLd0PMdFNj5BN
E30Hbvcu6o49dAe99/hCkMdEWufWKzUTRiD/2vja5Q0esN3qjcmMiIkbL1T7
2diYwDu+cmtrkAdUjXjr5Y8yMc/Ynsbctw1qPfw6T5Z4gNKJftFRJgufajhb
f71qCspp5m8uTXtAq5yT7F0uCx00RZlmA2ZwYZV/o7mzJ+DEu1GFfSxUkSuO
Cz9rDpmoUmiS7QkanT/Gi7JYqJ2s7RS0lQOpDNMfykY8YX8Wu7S6iYXr9YPr
d7ZzQFiYIX5ouh2WGtemNLxlIYdUr07YYwEOhy6G65/ZDmN93TL6dFU8Osxo
4ctYwvzxtnK937fDpp2vDO7Yq+KXrxm7vYSWcIuI7CxR8wLP+4yZmHBV5Ju1
XffaZgWv5gukJ/Z5QecGnejUDFUUfXVcnO2yAns19fH3tV6Q237kFNapYqyJ
xWB3tDXoJFh8rFzNh0exN+2CX6qiy6eoviBFG9BnZNxe688H/WSigKWohnw9
NrWh2AYIcHd69TMfUhLulMpw1ND0TPoxka0tCGvzXzDG+QChm3f7BquhebR9
s/6gLdiEWrkM2nkDr1xc8SBFDQWPY1LqDttBlN/+2rl0b8h/d+BmSo0att/o
i/qsag+n+pYX84a84ZPSFpeUITWUli7Pmt23h/qs/tWdW33gXJbmpRtyBAr0
KxSvUw5wKsdrY9AxH4hfNxW3yYzARaNsm9pJBwjvkU4mtvpAxV8qig2BBIpK
Fl9NX3AEi2L6DS0VCgYqKLe00wRGuemC4yYnyKpvCSbCKAgNj9l8v5xA/YNp
DaboBLQ19ZLbFRQYJbbfluslUFtJcJcKJEFcxCXnKimI2KcjvL/yVa5JiZNB
JBRy24u8qigQBpy4eKCPQMekK67ZwSSYHJPsH6uhYK2ZmaC3n8DAyZp+STgJ
nqMLS5x6Cl6P5HJuSgi8MjA9Hykg4XQ3T6cJKfiJ2vvIZZjAb8WnXRKTSZgo
6Phnbz8FCjprepI/EDjsmN17u4KEeoedXXpiCnjKoS3WHwk8cLQk36uKhCTx
oEW8hIL4xQd1H1Z+oeo/0WM1JKynjy2yhyh40y/I8x8jkL1FMsupJ8EwRflK
yEsKML0vWGeCwB0KWppNSELY/l21Hz5SkDB18y+cIrC573ZUbz8JBvJ/qjmO
UVD1SiqJmybQV/nBtngJCZ9uRp3IGKfgbVfgU8MZAoc8O2bYQyScfH7UzWyS
gl1l6+5kzhI42zh6IeQlCXl+woG4aQpMQ47Ehi0QaFpkfufDRxJCxjc7ts1Q
sNe7M5K1SGDToHN8xjgJ+ull/ybmKMi3M9j928rzWbt4ZpMk3GtpjGlcoECJ
OWRrLiVwb9rR7rhpEhLDXDvXLVHgLGP93ZuVn8bU68QcCc7S/3L2SCk4Nn5F
Q/iNwLMLeZGNCyQoXA/IrfpGQfXg+3U+ywSqWJWZ7JGS8Mzm+cLyMgXv2l2k
yytfeLBxenmZhP8Dax5V1g==
       "]]},
     Annotation[#, "Charting`Private`Tag$112685#8"]& ], 
    TagBox[
     {RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwV1Hk81GkcB/Ax1CLVb2bM/JDImdzMOGd++bBdtlKRZbdUlGNLWlQUtRVS
tKXZQsVml4pkrI7Fotx0Ua6KknJsJDpGzmF/+8fzel7P+/V9Pcf3+309On57
3P2ZDAbDjx7y9PB8cUmPwSCgYV/G/H82DFk1lHCi3Ck3oeaYsSKBpiOTDRm0
93v6tbleMYGcaPjNRoJAwn2HS85yBAL4xzqP7zSH1wc151/UCLiwIwPf0t4s
7+xRo2AJye8uGTmLCEz8+Dc/hkngp103axRSLaGwPnim2YjAzUzpjJ48gQWH
hTcoZSv8KJe8ZdqSjhu0flRN+9Hc0hXiQCvM3tGv6eFM4MWh/B2zZxGYpz8T
/2zCCpu5nOhDrgTO1n6wvEa7mif3mp6dNW7WijqubSDgOt9UtnI2AeJU4QBn
tzW2Lkm6MOVLoDgj+/zJbwgw2XOf73xgjcIhW97VYwRSq/6oVVEmsMSnh3HL
h4+5Gdv2PUkgsF6lS5xH+82AAElpNB/bNyS0TIgJKHpqbXWbQyAk6wXJuMgH
cfuVeF0mgYi+i6NnVAjs+liv86mRj6ADsfPHqwh4KZ0z4swn8KnmN3tXMwHU
FZoU18xigbfueIK6KoFbv6JVXC7AnjuTgfvnsvA4pfr7f2g/d2CcsfGJADUB
BnUZXBbiuph6m7gE/Ajf6rTXAoTdj4wbMWBhJPSXkjQeAVsfo6CuKQEenNZm
Xl7BQsu5yEFtdfq9Xmh9am2DKPXdk5/iWfitfaeboRaB5en1R4yTbPDKXHEo
RZkNVsA6Np+uj/M7v2d79WzhWNGpE8Zh47Quy/8N7cNbGAfnmdoixeOO5xpN
NlReNxWeWUKg93l6WYzAFu6RfmUMczZme3/vM2hM59+3r3nWclvUVpSe+mkD
G1OuPtlXzAhMRluPxO2wRf7GUBNhKht9ZruWqvEJ+PZFvV/6uy2OHWwP6jTg
oGTk+E4ZRcBT92aWjZwdDGtvdOs7q8I/7m5lnQcBMyIve88lOzQEPjhs6M7D
1DdhCw9E0/2SYJulE2CP0ScZyXXeajgZtlJ7SxbdJyOSSwek9uiKyn/hk6iB
vQ3jFVmNBDaxHNfoBTvA2MquMihVE3/8+nGe4hgBp4lnM7p1DhAYjbYGPdWC
ydLqqUd6LGzTLTLz1nDE1i92fIUji3CjrfhsjRsLMylB8ZJtjmh5Zul2OlYH
e5q+PGnfz4KT/5/bz190hPGrmmn2ZV0k3VMu2PAnC5fNbO6WNzlCEkgym67q
QTo/QNj7gIVSiTxvMVMIqWdN1bYcfaxd1R184zMLp/ULZH+bCqHhP3/BQIUB
FMIop9aFbAwOXKmy9RIiZJxbk1dnCNl0R4nGCjaMG0LF76OEyJIUKQR3L8bG
Q14vKkLZeKQXWfQpQ4gLdYXMiXEj/NEtTU9LY2NRSBnrZaUQd/3DPSplS2CV
16ZyrpqN7KPxd853CVGt/9AhjjSBVtB5zQ/DdL+8zQ2dmhZiPOh12DEtU7gd
T23zU+PACWenn6qLQDSccT4oNEPH+Ugrx2UcDLf7h+6wEaEvOa3B2cMcW349
yF++hwPDtiRLcp0Igz3+km+9LaD/rvx1cAoHxV2KO6T+IvTn9LIyHCyxStBj
+rWSA5NwdmDWIRGkmV/3lZTR/033av209xyIdU1SGsUidDXaFC91soJyVGvl
Po4qvpue2HTvqggilW9X3ntohWp5EbNgqSpeXWWuPVEigkWiZPqlmzXKh/ve
KwaqQq8mx8q6QQSxxjvG2EtraDwO2V8pVsUcp3bd/DcitHWse3swiI+dYrXs
/DJVXFPJ+6IlFeHWa+6HiwN8TP0zO7a4VxUjGxoXlilQmPmS41IUIcBgy1OG
AYuLvaFV10x4FLq/S6sImxRAy/3N4jwHLj67h4kHDShcay7VPh9tg5WF7K9B
vlwMpHwx6hdQ6AjOrb+taIvHc3X8j5/iIlS6QK5gGR2/auxiaKItkuvCD5ff
5iLj6CxjmTu9v4BTZKJuh9KwTPvNXVwYecu1qPhRKNp+avpYuh0MjpLpqko8
jGrXnyzeQyG4mq/vom2P2Ii8bIYVD7zdBhb3oykk2eScm861B7Yu8nTbzINv
UYFWcgKFNf3R5t4WDnC6/iy3KJaHW1qSG3opFA7kaXHyyxyQ1rcrM/YvHi5z
LX0Dsygczxxq2+3qiCFlXZfYDh5+fxt+V72AgvFLzer7Dx0RI9ZMzJAn4TrM
bbxeSsHJQH1K9wch9s+R7tWyIFH4Z0HO+3oKg3+F+6i/EiL33/lKxV4kTttt
GlNvoRAZMpUesYWuT+7aZfG/kLj+jSCtpZPCPpHHkuYBEbb6Bi0qvE7C+mp7
l/0ABaW1ip0Pd9PnH6y7Kt9M4mfBiaYMKQXZmWCJ6s8U/AJ1Ugtp5zuFNTbQ
PtT05LBPGIXUjVEnd7WQaLEV1k/R3ux9QXt4P4XZFhbBza0kTnUH53mPUEjf
YezLPkLhbXeyVeZzEvH/bl9BfKVgFb2mx1tM4cLagFKXThK9qctvHR6l8GNu
0kDv3xQUdWY1He0nsWDVyCHvCTrPQ9J/zIvpfMzbWmUzQIJXbTQWR7uT1Q+J
ESUU9k8W3e6nPTfGPeQW7QaFOqZK5RR6WoNTNgySOJyb6DZvksJw5c3dpvcp
lCe0bNYZJqGald1ZRXtMe8vHsA4KEdLMf8ulJESPTJeay+h9FzpUlLyiIHkj
e753hMQzTY3ITbQHbUs/q9BFobfB64HRVxJRbCXJCdrX9vlbJ/dQ8MiZk5c0
SiLr7tDcbtrJz1/Diz9QMN8SHrZtgsTeR4PpKdMUlG02LWN+pBCw+vF21UkS
GWMThdW0T0XcU139mUKa/WLPetoTg4iGT7S/kcXfeUnnT5nTYWcpIxH62mNo
9QyFFgzGGYxTcGbYLOmhvWt1zFgk7bUx678Pod8X+eG0Ruo0idHa0ukrtBfW
3jYspO+V3/5uzpoZEuNMOblm2q8rqY/O0HNfnYtshnZZwfqZ/9f/ARWrAu8=

       "]]},
     Annotation[#, "Charting`Private`Tag$112685#9"]& ], 
    TagBox[
     {RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwV1Hk41NsbAPCxVEj5zvpFImuyjxljmfnm5ba5lULiVioKU0nXqChakaKk
uVkqSpFIxtWGUMeujbJVlJTlRqJlZB1+398f73Oe83nO857zvuc8R9dvn7u/
PIVC8SNDgQzPd1f0KRQMNO3KScaQUfCqobjTyDEvruakiRIGTccnGzJI7/f0
a3O5aQpyguFPGzAM4p7aX3GSw1AA52Tnqd0W4PVN3emYOgbOtPDAz6Q3Kzh5
1ChageSqc0buIgwmNj3kRMljaNeeuzWKqVaguD5optkYg7uZ0hl9BQwtOMq/
Q6iwYZNc8tZpKwx2DVq/qCb9RF7ZCnEgG2bv7NfycMLg3ZGCnbNnYWi+wUzs
mwk2bGHSI4+4YHCh9pvVLdLVPZm39G2t4W6toOOWGwYuamaylbMxhJ0tGqDv
tYZtSxIvTfliUJKRk3RmDobkafPe7n5mDUVDPFb2SQxSq67XqqpgaIlPD+We
DwfmZWw/8CoOg/WqXeJ80u8GBEjKIjmwwy2uZUKMgZKn9jbXuRgKznqHUy5z
ALv/QbwuE4Owvsuj51UxtOd7ve6PRg4ID0WrjVdh4KV80ZiuhqEfNf/YuZhz
QUOxSWnNLCqw1p2K02Bg6N45aBUjLux7MBl4cB4VXqZUb3xE+sVD45QNr7hQ
E2BYl8GkQkyXvP5mJob8MN/qtI9cED0NjxkxpMJIyLHSNBaGeD7Gwq4pLjxL
0JG/toIKLRfDB3U0yHq9oPW1tQ1EaOyd/BFLhX/ad7saaWNoeXr9cZNEG/hg
oTSUokIDasA6GscYQ05f/N7s1+eBQ0WnrohOgwQ9qv8n0oe3Ug7PN+NBiscD
zzVaNFD92FR0fgmGet+ml0dxeeAe7ldOsaDBbO+NPoMmZP99+5pnLedBbUXZ
2V1uNJhy8cm5aY6hyUjrkZidPCjYEGLKT6VBn/mepeocDPn2RXxdepUHJw+3
CzsN6VA6cmq3jMCQp97dLBs5WzCqvdNt4MQA/5jHlXUeGDLH8nP2XbGFhsBn
R43cWTA1R7TwUCSG3sXxsnQD7GD0VUZynbc6nBGt1NmaRb6TEcmVQ1I76Ioo
eOcTrwn7G8YrshoxtJnqsEY/yB5M2LaVwlQtuH7u+3ylMQw5TryZ0auzB67x
aKvwtTaYLq2eeqFPRdv1is29NR1g2y9bjuLxRXCnreRCjSsVzaQIYyXbHaDl
jZVrQrQu7Gv69ar9IBU5+t/YkXTZAUw+1EzTrulB4hOVQrcbVHTN3OYxanIA
SSAu35StD1K1AH7vMyoqkyiwFsvzQepZU7U91wDWruoOuvOTihIMCmUPzfig
6a+2YKDCEBRFhGPrQhoaHLhZxfPiQ/A4sya/zghk0x2lmitoyKQhRPw1gg9Z
kmLFoO7FsOGI17uKEBp6oR9e/CODD5fqiuQnxo3herc0PS2NhhYFl1PfV/Lh
sX+oR6VsCbDz21QvVtNQzonYB0ldfKg2eG4fg5uCtjBJ69swDVE/54VMTfNh
XPhRdFLbDFxPpbb5qdORI1yYfq0hAKzhvNNhvjl0JIWzHZbR0XC7f8hOGwH0
Jac1OHlYwNZzhznL99GRUVuiFb5OAIM9/pI/vC3B4Av6GJRCRyVdSjul/gLo
z+2lZthbwSpuj9nvSjoyDaUFZh0RgDTz94HScvK/6V5tkPaVjsR6pimNYgF0
NdqULHVkg0pEa+UBOgP9OT2x+Um2AASqf6x88pwN1QoC+cKlDPQhW37t6VIB
WMZLpt+7WgMa7vuqFMhA+jW5bOsGAYg1v1DG3luD5svgg5ViBprr2K5X8EkA
bR3rPh8WcmC3WD2noJyBbqnm/9KWCuDeR+a3ywMcmHo0O7qkl4FG3BoXlisS
MPMr17k4jAuDLa8phlQm2h9SdcuURUD3n2kVokkuaLt/Wpxvz0Q/3UXiQUMC
bjWX6SRF2sDKItpvoS8TDaT8Mu7nEtARlFd/X4kHL+fp+p86y0Qh0gVyhcvI
9avGLofE8yC5LvQous9EGSdmmcjcyfxcerGphi2UiTLttnQxkbG3XIuqHwHF
O85On0y3BcMTeDpDmYVGderPlOwjIKiaY+CsYwfRYfk5FDYLsfYaWj6NJCDR
JvfidJ4dwLZFnq5bWMi3uFA7OY6ANf2RFt6W9uB4+01ecTQL3dOW3NFPIeBQ
vja9oNwe0vr2ZEb/y0LXmFa+gVkEnMocatvr4gBDKnrO0R0sdPVz6GONQgJM
3mtVP33uAFFirfgMBRy5DDMbb5cR4GioMaX3Fx8OzpXu17bEUdGNwtyv9QQM
/hvqo/GBD3n/qSmXeOEowXbzmEYLAeHBU+lhW8n7yVu7LPYYjm7P4aa1dBJw
QOCxpHlAANt8hYuKbuPIOru9y26AAOW1Sp3P95L7H67LVmjG0d/c000ZUgJk
54MkjL8J8AvUTS0ineMoamwgfajp1VEfEQGpGyLO7GnBUQuPXz9FerP3JZ3h
gwTMtrQMam7F0dnuoHzvEQLSd5r40o4T8Lk7mZ35Fkex/+1Ygf0mgB25psdb
TMCltQFlzp046k1dfu/oKAGb8hIHeh8SoKQ7q+lEP44WrBo54j1B9nlI+sii
hOzH/G1VNgM4YlUbj8WQ7sj+Kz6slICDk8X3+0nPi3IPvke6YZGumTIioKc1
KMVtEEdH8+Jd508SMFx5d6/ZUwJQXMsW3WEcMbJyOqtIj2pv+S7qICBMmvkf
kuJI8MJsqYWMzLvQvqL0AwGST7K3+0dw9EZLM3wz6cLt6RcUuwjobfB6Zvwb
RxE0Zclp0tf2+Vsn9xDgkTs3P3EUR1mPh+Z1k47//B1a8o0Ai62hou0TONr/
YjA9ZZoAFZvNy+S/ExCw+uUOxiSOMsYmiqpJnwp7wlj9k4A0u8We9aTHC7GG
H6R/ksU+eE/2T4XeYWslw1HIR4+h1TMEtMBgjOE4AU4UmyU9pHetjhoLJ702
av3GYLK+8G8JmqnTOBqtLZu+SXpR7X2jIvJcBe1f5q6ZwdG4vJxcM+m3lTVG
Z8ixr85ZNkO6rHD9zP/n/wOnyzPv
       "]]},
     Annotation[#, "Charting`Private`Tag$112685#10"]& ]}, {}},
  Axes->True,
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImagePadding->Automatic,
  ImageSize->{633.6776446975974, 147.10653614841002`},
  ImageSizeRaw->Automatic,
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}},
  PlotRange->{{Automatic, Automatic}, {Automatic, Automatic}, {
    Automatic, Automatic}},
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{1.401613733366869, 0.28185762012142623`, 3.06692602199937},
  ViewVertical->{0.053958480548481624`, 0.9755162563691273, 
   0.21320533749524737`}]], "Output",
 CellChangeTimes->{{3.889111844987507*^9, 3.889111851061882*^9}, 
   3.889112982358574*^9, 3.889113026976982*^9, 3.889113078657707*^9},
 CellLabel->
  "Out[434]=",ExpressionUUID->"e3d31eff-fa78-4a3d-b32b-cb4941e6cb3e"]
}, Open  ]],

Cell["\<\
To check if our assumption that the curve lies in a single plane at all, we \
need to check the torsion. See here: \
https://en.wikipedia.org/wiki/Torsion_of_a_curve#:~:text=In%20the%\
20differential%20geometry%20of,curvature%20of%20a%20plane%20curve. \
\[LineSeparator]\[LineSeparator]The important thing to check is that the \
numerator gives zero (but without the cross section being zero). Here, I show \
that the numerator is indeed zero (and it\[CloseCurlyQuote]s clear why by \
differentiating r and r\[CloseCurlyQuote] twice). \
\>", "Text",
 CellChangeTimes->{{3.88911902124361*^9, 3.889119091618492*^9}, {
  3.889119157062516*^9, 3.88911916405976*^9}, {3.889119201170123*^9, 
  3.889119246218914*^9}},ExpressionUUID->"4f909b03-d913-443c-a4a6-\
f3494bf7bc30"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"zf", "=."}], ";", 
  RowBox[{"\[Beta]", "=."}], ";", 
  RowBox[{"\[Tau]", "=."}], ";", 
  RowBox[{"x0", "=."}], ";", " ", 
  RowBox[{"y0", "=."}], ";", 
  RowBox[{"yf", "=."}], ";", 
  RowBox[{"xf", "=."}], ";", 
  RowBox[{"z0", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"x", "[", 
    RowBox[{"t_", ",", "x0_", ",", "xf_", ",", "\[Tau]_"}], "]"}], "=", 
   RowBox[{"x0", "+", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"xf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"y", "[", 
    RowBox[{"t_", ",", "y0_", ",", "yf_", ",", "\[Tau]_"}], "]"}], "=", 
   RowBox[{"y0", "+", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"t_", ",", "z0_", ",", "zf_", ",", "\[Beta]_", ",", "\[Tau]_"}], 
    "]"}], "=", 
   RowBox[{"\[Beta]", "*", 
    RowBox[{"Log", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"t", "/", "\[Tau]"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{"zf", "/", "\[Beta]"}], "]"}], "-", "1"}], ")"}]}], "+", 
      "1"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"r", "[", 
    RowBox[{
    "t_", ",", "x0_", ",", "y0_", ",", "z0_", ",", "xf_", ",", "yf_", ",", 
     "zf_", ",", "\[Beta]_", ",", "\[Tau]_"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "[", 
      RowBox[{"t", ",", "x0", ",", "xf", ",", "\[Tau]"}], "]"}], ",", 
     RowBox[{"y", "[", 
      RowBox[{"t", ",", "y0", ",", "yf", ",", "\[Tau]"}], "]"}], ",", 
     RowBox[{"z", "[", 
      RowBox[{"t", ",", "z0", ",", "zf", ",", "\[Beta]", ",", "\[Tau]"}], 
      "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rp", "[", 
   RowBox[{
   "t_", ",", "x0_", ",", "y0_", ",", "z0_", ",", "xf_", ",", "yf_", ",", 
    "zf_", ",", "\[Beta]_", ",", "\[Tau]_"}], "]"}], "=", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"r", "[", 
      RowBox[{
      "t", ",", "x0", ",", "y0", ",", "z0", ",", "xf", ",", "yf", ",", "zf", 
       ",", "\[Beta]", ",", "\[Tau]"}], "]"}], ",", "t"}], "]"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rp2", "[", 
   RowBox[{
   "t_", ",", "x0_", ",", "y0_", ",", "z0_", ",", "xf_", ",", "yf_", ",", 
    "zf_", ",", "\[Beta]_", ",", "\[Tau]_"}], "]"}], "=", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"rp", "[", 
      RowBox[{
      "t", ",", "x0", ",", "y0", ",", "z0", ",", "xf", ",", "yf", ",", "zf", 
       ",", "\[Beta]", ",", "\[Tau]"}], "]"}], ",", "t"}], "]"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rp3", "[", 
    RowBox[{
    "t_", ",", "x0_", ",", "y0_", ",", "z0_", ",", "xf_", ",", "yf_", ",", 
     "zf_", ",", "\[Beta]_", ",", "\[Tau]_"}], "]"}], "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"rp2", "[", 
       RowBox[{
       "t", ",", "x0", ",", "y0", ",", "z0", ",", "xf", ",", "yf", ",", "zf", 
        ",", "\[Beta]", ",", "\[Tau]"}], "]"}], ",", "t"}], "]"}], "]"}]}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Get", " ", "the", " ", "cross", " ", "product", " ", "of", " ", 
    RowBox[{"r", "'"}], " ", "and", " ", 
    RowBox[{"r", "''"}], " ", "and", " ", "dot", " ", "it", " ", "with", " ", 
    
    RowBox[{"r", "'''"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cross", "[", 
   RowBox[{
    RowBox[{"rp", "[", 
     RowBox[{
     "t", ",", "x0", ",", "y0", ",", "z0", ",", "xf", ",", "yf", ",", "zf", 
      ",", "\[Beta]", ",", "\[Tau]"}], "]"}], ",", 
    RowBox[{"rp2", "[", 
     RowBox[{
     "t", ",", "x0", ",", "y0", ",", "z0", ",", "xf", ",", "yf", ",", "zf", 
      ",", "\[Beta]", ",", "\[Tau]"}], "]"}]}], "]"}], ".", 
  RowBox[{"rp3", "[", 
   RowBox[{
   "t", ",", "x0", ",", "y0", ",", "z0", ",", "xf", ",", "yf", ",", "zf", ",",
     "\[Beta]", ",", "\[Tau]"}], "]"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.889108624300653*^9, 3.8891086553832207`*^9}, {
   3.889110172138942*^9, 3.88911043362757*^9}, {3.889110491864748*^9, 
   3.889110554057122*^9}, {3.8891106313690357`*^9, 3.889110850288307*^9}, {
   3.889110894932289*^9, 3.889111043550412*^9}, 3.889111330072647*^9, {
   3.8891116698651257`*^9, 3.88911169722511*^9}, {3.889111732589147*^9, 
   3.889111807036396*^9}, {3.889119259357255*^9, 3.8891193106601686`*^9}},
 CellLabel->
  "In[574]:=",ExpressionUUID->"11989f93-be16-48a1-a569-51c9c6fedfc0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"-", "x0"}], "+", "xf"}], "\[Tau]"], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"-", "y0"}], "+", "yf"}], "\[Tau]"], ",", 
   FractionBox["\[Beta]", 
    RowBox[{"t", "+", 
     FractionBox["\[Tau]", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"zf", "/", "\[Beta]"}]]}]]}]]}], "}"}]], "Output",
 CellChangeTimes->{{3.889110635526217*^9, 3.889110707993945*^9}, 
   3.889110740976185*^9, {3.889110813396665*^9, 3.88911085167799*^9}, {
   3.889110933899878*^9, 3.889110992639285*^9}, {3.889111030937236*^9, 
   3.88911104412341*^9}, 3.889111330627522*^9, {3.889111675929386*^9, 
   3.8891116975260057`*^9}, {3.8891117367111387`*^9, 3.88911176144597*^9}, 
   3.8891119144874687`*^9, 3.8891131859243937`*^9, {3.889119300505164*^9, 
   3.889119311147913*^9}},
 CellLabel->
  "Out[579]=",ExpressionUUID->"cc6aeaa5-bd21-40df-a73c-0bcdddca2e74"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   RowBox[{"-", 
    FractionBox["\[Beta]", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"t", "+", 
        FractionBox["\[Tau]", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"zf", "/", "\[Beta]"}]]}]]}], ")"}], "2"]]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.889110635526217*^9, 3.889110707993945*^9}, 
   3.889110740976185*^9, {3.889110813396665*^9, 3.88911085167799*^9}, {
   3.889110933899878*^9, 3.889110992639285*^9}, {3.889111030937236*^9, 
   3.88911104412341*^9}, 3.889111330627522*^9, {3.889111675929386*^9, 
   3.8891116975260057`*^9}, {3.8891117367111387`*^9, 3.88911176144597*^9}, 
   3.8891119144874687`*^9, 3.8891131859243937`*^9, {3.889119300505164*^9, 
   3.889119311193511*^9}},
 CellLabel->
  "Out[580]=",ExpressionUUID->"16627d68-aafc-46e2-95ea-aaf1e7eebc8d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   FractionBox[
    RowBox[{"2", " ", "\[Beta]"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"t", "+", 
       FractionBox["\[Tau]", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"zf", "/", "\[Beta]"}]]}]]}], ")"}], "3"]]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.889110635526217*^9, 3.889110707993945*^9}, 
   3.889110740976185*^9, {3.889110813396665*^9, 3.88911085167799*^9}, {
   3.889110933899878*^9, 3.889110992639285*^9}, {3.889111030937236*^9, 
   3.88911104412341*^9}, 3.889111330627522*^9, {3.889111675929386*^9, 
   3.8891116975260057`*^9}, {3.8891117367111387`*^9, 3.88911176144597*^9}, 
   3.8891119144874687`*^9, 3.8891131859243937`*^9, {3.889119300505164*^9, 
   3.8891193112454157`*^9}},
 CellLabel->
  "Out[581]=",ExpressionUUID->"12883af7-1ba5-4948-ad7f-848461617d5a"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.889110635526217*^9, 3.889110707993945*^9}, 
   3.889110740976185*^9, {3.889110813396665*^9, 3.88911085167799*^9}, {
   3.889110933899878*^9, 3.889110992639285*^9}, {3.889111030937236*^9, 
   3.88911104412341*^9}, 3.889111330627522*^9, {3.889111675929386*^9, 
   3.8891116975260057`*^9}, {3.8891117367111387`*^9, 3.88911176144597*^9}, 
   3.8891119144874687`*^9, 3.8891131859243937`*^9, {3.889119300505164*^9, 
   3.889119311248642*^9}},
 CellLabel->
  "Out[582]=",ExpressionUUID->"022399d2-cc62-4be7-8f15-7c5cf34586f4"]
}, Open  ]],

Cell["\<\
Anything below is just me playing around trying other functions or tests of \
the curvature.\
\>", "Text",
 CellChangeTimes->{{3.8891193161244717`*^9, 
  3.889119333497003*^9}},ExpressionUUID->"f793f32c-92e9-4351-8473-\
a2dae6cc6203"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.889111974094297*^9, 
  3.8891119756619997`*^9}},ExpressionUUID->"4cd1f983-1d3f-4c40-a304-\
a94297c27f3d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParametricPlot3D", "[", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{"y0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"zf", "-", "z0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"-", "y0"}], "-", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"zf", "-", "z0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"xf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", "y0", ",", "z0"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"xf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{"-", "y0"}], ",", "z0"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xf", "+", 
        RowBox[{
         RowBox[{"xf", "/", "\[Tau]"}], "*", "t"}]}], ",", "yf", ",", "zf"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xf", "+", 
        RowBox[{
         RowBox[{"xf", "/", "\[Tau]"}], "*", "t"}]}], ",", 
       RowBox[{"-", "yf"}], ",", "zf"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xf", "+", 
        RowBox[{
         RowBox[{"zf", "/", "\[Tau]"}], "*", "t"}]}], ",", 
       RowBox[{"y0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"zf", "/", "\[Tau]"}], "*", "t"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xf", "+", 
        RowBox[{
         RowBox[{"zf", "/", "\[Tau]"}], "*", "t"}]}], ",", 
       RowBox[{
        RowBox[{"-", "y0"}], "-", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"zf", "/", "\[Tau]"}], "*", "t"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{"y0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"Sqrt", "[", "zf", "]"}], "*", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"z0", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"zf", "-", "z0"}], ")"}], "*", 
           RowBox[{"t", "/", "\[Tau]"}]}]}], "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"-", "y0"}], "-", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"Sqrt", "[", "zf", "]"}], "*", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"z0", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"zf", "-", "z0"}], ")"}], "*", 
           RowBox[{"t", "/", "\[Tau]"}]}]}], "]"}]}]}], "}"}]}], 
    "\[IndentingNewLine]", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Tau]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.889105637448182*^9, 3.889105661433014*^9}, 
   3.889106124201721*^9, {3.889106171427004*^9, 3.889106294117361*^9}},
 CellLabel->
  "In[176]:=",ExpressionUUID->"f22d796e-8c26-40e2-a559-5ca656291d70"],

Cell[BoxData[
 Graphics3DBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwVjHk41Isexh1ahha/2fyQiIZkG2Mf/JrXcitCi4RzSUI8t1G3EUqbJCod
RyqpQ9f2KGSo64QkmpTUTWWP0mI5kVD2/c75432+z/t5Pu9Xc+/BHUGyMjIy
rtLISePx7o+1MjIEVK0qZf++4511NZyEnA0FF57G6NEINETP1GdIedNN5aN2
bTGCX2yHPu8kCFyo4/9h9wsBsF/vVW5LFohv2mfkrSEw/et90zOyBCK25bfK
tWUJlgT2qbnbEXh3oihwyWIC9EEyear1nqB00EIpN4ZA6pPMZ8sVCHx86HZw
tFUiUFnUQHNZTIfS1rgLKiwCGzn9H360Ngg+GNEGrykwQN+3lWGqS2Cq1fLq
cOsXgc6zO10cOxaCzj6S1LoTkDjcynmbNSKoD35xUmeHEmaXilYfPU5g1cfy
3r0Gc4KJNxkptV7KOC/apLE7hwBT6Je/1EEOn44VvfNNUMXh+qnHOa8JJPE2
Vrh50KDHs5SEpKoh87fhlbRJAq2pxtU/iBUw051oDnmrDv0NNbP/W0tHQs6p
17IqdPiNWJouil6DOy3ll5660UFe6Tp/OZ2JplZjt8RYTRxsGHnTHkFH/E6n
DQ3jbOh9eDrP+I8WkqoU7m7PoiOMn+lXF6MMcTAp25C7FqOK+2x6XtDhODQd
daBLFaMeT5/syePAdXOX8M5POmJst/urWq2GapDiqv7H2lgkogTNqxmwEV8v
OVmlgQNT7KeFtTqYm++oUN3IgHDyR/TzFZrIEZctEnatw84Tnu8eH2JgUp/o
NPTQwvXaUtnpKV1kdo2mp6UxYF1wJyMlZS0eBYW5S+bWg1fYsvxKDQNDDOc9
uyQc1HBe8s+S+lAPuar2fYiBLxf37BIt1cFUyEdRjLoB3OJSW/YqM7FpKNKp
x2IdiPrf7aJsDNFx9QjP2pGJbwG0sJJTuuhNSau3czfC7t+iTP9xkAlHDikb
L1mPge4gsYMXF5yv1R+F15ggXukkFg/poS+vh57BN8Zms26DcQkTq84VbbOw
MMBo9nh4RaUxxF1bOGnfmLimzyeYwYb49Nq8fIOAB4VjzZJwJgsvVO3MRy4Z
wXa5w6aqlzzUyNnK3t3AgrWaJInbwgU3QTz/3s0E1UO932jBLCjKZR32jzFG
supXmcn3JlB9dSBCksyCxmkNW28dHlo6tn6JCjHFv5KVbxdVsrBc2+f+jloe
/vuR/f1GvylmHyyJLe9hgUepFEX6mmBhJM++LNIMA01vZbTpbIR3Mp44y5ii
yzntsWjGDOo7Pq8r5LPxc+Sih1OqKW41PtS4etwcm0oZ4yH+bDhzn91wMjRD
h7DgeQnNAq9WaAbFXWRDMmIzM1FvhlubJ28cSrBASm3YyeoSNkQGJu1vg8zR
ZcYs01exxENRtpXPJzbsBwObvOUtUBZwcT4m3RLap8l0lrwSnDnKriuyLCCs
MeXYa1ghNrLwtgxPCUbRF45ILC2RZJ53Zb7ACvBb4+HmowTjIH6VdrslXPqO
G3lx+RDktxaUxSpB+CgktuSQFY4WqjOLKvlI692fHVushNqMpsAfbD7isgdb
Qp2sMaigZR/boYS52wsT3FI+9N6r1dS9tMaZZLWEDDkSQu0C+Ruu1hBoq8xq
edsgYtnoYXUuiRm9yxb3hq0xUBzmq/LBBgV/KcqXe5KQ5Mx8HjtngyMHZtMj
d9uipcDVMf4UiUDHtbBRt0W4rfv6xn5b+PmHrCnNJ6EdGl9uVG0LeVda58tQ
CnpRtblyjSQ0FIR3XT0pzP0uFLP+TWFvsGZqqZSLHU5EDXtTGGx4c9JXRCF1
57Hz+5tI2JxIdLjsQ6HR67rGUASFJVyusLGZhOdwcXObP4X0QD1/RjSFL10p
vOw2EoktY1MBQgq84y7dXskUrrvue2jfSWI+65R91GkKvxYk9ffcp0DTXNxw
uo9Ep83lxtwCCi6Dow+MyikIVvo9Me8nsT88J81JLO0874TICgoRM2UlfVI+
Lf4zaKCYgnappoF8NYXuZuG17QMklLXaJnjSv0OSe6EGdRSqLzT5aA6R2Epb
rVYp9c60Nw2LOihEjmb/VT1KoqopN7CxWfp3Nf9xxQcK4s9zbYfHSLitLDOM
aKMQsif90qJPFHrqPV/ojpPo2FQ3rizdu/YGmaR0U3DPW1aYNEFi4sG3c7ul
HvlzPKz8OwWj3WGiPdMkjDKNC/v6KSiY/9NRdpjCvi2vAlgzJCrb7SIuSr3Z
yCrWlp8U0qzWeTyXcmeWu4Ar9T7Pxf/5fly6Y3ZYGs+R2Bcf/vbwGIUmDJzV
nqJgJ2O+vlvKx6rjbpCTFJ6d2bbrwAyFI98TVVPnScRMXwt4ME2h9FmJTukc
haL2r8tcFkgomuUZ+Ep7vrzKxMIChd5a+7kFKb8Z+mDs7/5/SZ4y2A==
       "]]},
     Annotation[#, "Charting`Private`Tag$59923#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwVjHk81Psexh1UQ4vfbH7IEs1ItjH2YX7Nx3IrQouEc0mWKa/bpNvYSpsk
CseRCjl0bS8lGdV1siXfJpG6qewRkuVEQtmX4c754/njeb/ez6MdcPIAX1ZG
RsZVGjlpPD7+sVVGBgM16xopxtBsb2MdI7FgR3HCyxh9EgbN0UtNOVLeekfl
jF1nDO8X7kT/QQyDhEbOH3a/YAjo7wJUOlN5ojv2OUVbMFj89YnZZVkMRey7
3yHXmcdbGzSi7m6HwcfzpUFr12CIPI6nLnQ85pWPWyoXxmCQ8SK3foMihvqe
up2c7hDzVOWbSS5ryKC8Ny5BlYahnYzRnh8dzbweY9J4uiIFyEf3Usz0MLTQ
YXVrsuMLT7f+wQDDjgb8K8/EDe4YEjvcLfiQN8VrOvb6gu4BZVheJ9Q4cw5D
m/sqhwMMJby59zlpDV4qcE24S+twAYaoAr/76xzk4PPZ0o++iWoQ1rTwvOAd
hlLYO6vdPEigz7YSB2eoQ+5vk5tI8xjqyDBBP7CNYK431xb8QRMMdtQt/28r
GSUWXHwnq0oGvykrM/noLfCgvfL6Szcywm8OXLuRTYXWDhO35FhtONk89b4r
goziDzrtaJ6lg37PyxXKf3QgpVbx0f48Mgrl5Po1xqiA6Bgu21y4FaaVjtoO
vSYjx4nFqJABNZj2ePniSBEDXHcPCB78JKMY7n5/NWsNUOMrbR59zgR5IcFr
06AgW9Htsgu1WhCyQH9Z0qALkpXuarWdFCSY/xH9aqM2FIgq5AUD2+Dgec+P
z09R0LwB1mvkoQO3G8plFxf0IHdgOjsri4Jsih/kpKVthWf8UHexZDuwS9o3
3KyjoAmK85FDYgbUMd5wruAGoBl8S/37BAV9STpySLhOFxaC+4QxmobgFpfR
HqBCRbsmIp2GLLcB1vS7XZStEXTfOs22caSib4Gk0LKLejCcltVk524Mh3+L
MvvHSSpyZOCy8eLtMDbIFzl4sYDxFfUJ0qkIe6ub/HBCH0aKhsg5HBPYbT5o
OCumos1XS/dZWhrCdP5seHWNCYgG9jCyvlFRugEHox4zgs/vLCp38NigeLZN
HE6loddqdhZT142Bu8FhV+0bNtTJcWUf7aAhG3VxCqudBaxE0conN1NAE8Pf
SMdoSEkuL8w/xgRS1b7KzH8yBbW3IRHiVBrSuqTF9dZlQ3v33i9RwWbwr1SV
e6U1NLSB6fPkQAMb/ttH/545agbLVWtjK4doiE2olkb6msLqVJF9RaQ5jLV+
kGGS6Si8l/LCWcYMBpyznguXzEHzQP+2Eg4d/ZxK8nDKMIO7LU+1bp2zgF3l
lNlgfzpyZtVnOhmZQ7eg+FUZyRLebtTmxyXRkXjKdmmuyRzu7p7PPJVoCWkN
oRdQGR0JDU27PvAtYMCcWmGgagVPhfnWPp/pyH48qNVbwRIqApNWYrKtgHkJ
z6YpKCNnhorrxjxLENSZMey1rCE2suSeDFsZGUcnnBZbWUGKRdHNlWJrAL8t
Hm4+ysiEz6lldlmBy8g5Yy8WB3j3O4orYpWR4FlwbNkpazhTokktreFA1vDx
/NiHyqghpzXoB50Dcfnj7SecbGBcUcc+tlsZSe6tzrHKOaD/Sb2u8Y0NXE5V
T8yRw5GAWayQ6WoDPKbqso63LUSsnw7TZOFoSf+G5eNJGxh7GOqr2mMLxX8p
KVR64khcsNQ/c9UWTocsZ0ce5kJ7satj/EUcBTluBVtNLoRz3be3jHLBzz94
S/l9HDFPxFcaIy4ouJJ635wgQD+qoVCuBUdaioJHrp4ESH4XiGj/JiDgmHZG
uZSLHM5HTXoTMN78/oKvkICMg2evHW/Fke35ZIcbPgS0eN3WmoggYC2LJWhp
w5Hn5MO2Tn8CsoP0/SnRBHwZSGPnd+IouX1mIVBAAPucy6BXKgG3XY8+te/F
0UreRfuoSwT8WpwyOvSEAJL2muZLIzjqtb3RUlhMgMv4dJVxJQG8TX4vLEZx
dDy8IMtJJO1s78TIagIilirKRqR8UfQnf+whAcxybUMFRMBgmyB9/xiOVHQ6
59jS3wnx4xOGjQSghFYf7Qkc7SVpqNdIvctdrZPCbgIip/P/QtM4qm0tDGpp
k/5qcJ5X9xAg6pd0hs3gyG1ThVFEJwHBR7Kvy38mYKjJ87XeLI66dzXOqkj3
rsN807RBAtyL1pekzOForurb1cNSD/85G1r5nQDjw6HCI4s4Ms41KRkZJUDR
4p+OspMEHN3zNpC2hKOaLruIJKm3HFlL2/OTgCzrbR6vpNyZ5s5jSb1+Sfyf
n2alO2q3lYkER0fjwz+EzRDQCmNXmAsE2MlYbB+U8hkUl4nPE1B/ed+hkCUC
Tn9PVstYwVHMYnpg1SIB5fVluuUSAkq7vq53WcWRknmRoa+031dQnVtdJWC4
wV6yKuV3TlTN/N3/D9Q0WVg=
       "]]},
     Annotation[#, "Charting`Private`Tag$59923#2"]& ], 
    TagBox[
     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJxTTMoPSmViYGAwAWJmIA69OVuZgUHAgQEMYDQDgyTLJQ4fVkEM8bt6HO+m
cwlhiKsdW/NYxVEEQ/xc+qk6tSAxDPHvFxZMOx4hgSH+oHr9zdhuKQxxLUPz
QxkzZDDETTS+X824KIchHv/Z3JilQQFD/Mp1A7++FkVM8+8e/Sc0XwlDfF26
ONOlZcoY4l9Cjx5OWKmCIS6Vyi/96qAqhnjeT9Gja4+rYYgvWbeDJeexOob4
zOPbmX791MAQ35daHHzoryaG+BGV05at4toY4j8z7hc1yelgiAuc63esstbF
EH82bc45x2A9DPE3T1LXOUfoY4i/XPlUcIGlAYb4l8XfSnfvxRR/cN50p529
IYa4DY+z+/7TmOL63ev+3fEzwhCfJPWC4ccdTPFrt/0fVWUYY4hvvi/6dtYr
TPH/n1c67Sg3wRB/7DXnYNFvTPHll/fIT60xxRC/nbP6xBYOM0z1Hj9mFXZj
ij82Ed6hLWmOIb4juedf01xM8ZwjxipO8hYY4hNMV075txpT3OdljV6EviWG
eOVaOeH1ezHF2xa/u5braYUhrnVH5sjJ05ji9qqSf5QirTHE32wojpW8iyle
kfdnbnmcDYZ4qU2w5uVXmOKcvhz3TufaYohHrZ7w6uk2TPFVnJLf///HFAcA
j5/Naw==
       "]]},
     Annotation[#, "Charting`Private`Tag$59923#3"]& ], 
    TagBox[
     {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJxTTMoPSmViYGAwAWJmIA69OVuZgUHAgQEMBA4wQIEkyyUOH1ZBDPG7ehzv
pnMJYYirHVvzWMVRBEP8XPqpOrUgMQzx7xcWTDseIYEh/qB6/c3YbikMcS1D
80MZM2QwxE00vl/NuCiHIR7/2dyYpUEBQ/zKdQO/vhZFTPPvHv0nNF8JQ3xd
ujjTpWXKGOJfQo8eTlipgiEulcov/eqgKoZ43k/Ro2uPq2GIL1m3gyXnsTqG
+Mzj25l+/dTAEN+XWhx86K8mhvgRldOWreLaGOI/M+4XNcnpYIgLnOt3rLLW
xRB/Nm3OOcdgPQzxN09S1zlH6GOIv1z5VHCBpQGG+JfF30p378UUf3DedKed
vSGGuA2Ps/v+05ji+t3r/t3xM8IQnyT1guHHHUzxa7f9H1VlGGOIb74v+nbW
K0zx/59XOu0oN8EQf+w152DRb0zx5Zf3yE+tMcUQv52z+sQWDjNM9R4/ZhV2
Y4o/NhHeoS1pjiG+I7nnX9NcTPGcI8YqTvIWGOITTFdO+bcaU9znZY1ehL4l
hnjlWjnh9XsxxdsWv7uW62mFIa51R+bIydOY4vaqkn+UIq0xxN9sKI6VvIsp
XpH3Z255nA2GeKlNsOblV5jinL4c907n2mKIR62e8OrpNkzxVZyS3///xxQH
AKVQ52s=
       "]]},
     Annotation[#, "Charting`Private`Tag$59923#4"]& ], 
    TagBox[
     {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJxTTMoPSmViYGAwAWJmIE6a5MrFwGDnwAAGElDazmHiivLj8d6Y4gf2rWzZ
Pw1T3KbES0rXyh5D/NPcbL1jlzDFD35bWmVg4oAhLpm85XVIK6Z4LyezDP9F
TPGJX95HKig7Yog3F9kUbirGFJ+oddL91j5McT31L9qRAk4Y4i9i48/nxmCK
T1DX8mFejil+3HTytfffMcWl62wUipydMcT/cbWUe0/FFD+npb1i6VNM8T0t
QjOmGrhgiFsoz5h6pxFT/NLv2KCdZzHFf0scknkr74ohLniy9cDCAkxxl82d
ym92Y4qzP9Ke0svrhiH+zIvvyJFITPFNbgFna5ZgivO1Gzzp/oop3sEYuMvA
0R1DfMIB/nk6kzHF24T0olc+xhSfMa/n+m49Dwxxq/zORNUGTPGflcdWqZzB
FF8qnnx2iZgnhvjDn3P/VqdjiluKSb59sQlTXLHc6NUaFi8McVWhnmVsgZji
4g6uNg9nY4rP2DTnvtBbTHGzeBOnWxbeGOIpAVmbfnRhitdd+f97+m1M8W2T
rrKcVfPBVD/VUzqyAlM88dLfD1VHMMWNFgkukOX3xRCftO1wjHgCprgA67Yb
y1Zjir+fezLz8lVM8fNmd3/9/48pDgBV/+Lg
       "]]},
     Annotation[#, "Charting`Private`Tag$59923#5"]& ], 
    TagBox[
     {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJxTTMoPSmViYGAwAWJmIE6a5MrFwGDnwAAGEgcgtJ3DxBXlx+O9McUP7FvZ
sn8aprhNiZeUrpU9hvinudl6xy5hih/8trTKwMQBQ1wyecvrkFZM8V5OZhn+
i5jiE7+8j1RQdsQQby6yKdxUjCk+Ueuk+619mOJ66l+0IwWcMMRfxMafz43B
FJ+gruXDvBxT/Ljp5Gvvv2OKS9fZKBQ5O2OI/+NqKfeeiil+Tkt7xdKnmOJ7
WoRmTDVwwRC3UJ4x9U4jpvil37FBO89iiv+WOCTzVt4VQ1zwZOuBhQWY4i6b
O5Xf7MYUZ3+kPaWX1w1D/JkX35EjkZjim9wCztYswRTnazd40v0VU7yDMXCX
gaM7hviEA/zzdCZjircJ6UWvfIwpPmNez/Xdeh4Y4lb5nYmqDZjiPyuPrVI5
gym+VDz57BIxTwzxhz/n/q1OxxS3FJN8+2ITprhiudGrNSxeGOKqQj3L2AIx
xcUdXG0ezsYUn7Fpzn2ht5jiZvEmTrcsvDHEUwKyNv3owhSvu/L/9/TbmOLb
Jl1lOavmg6l+qqd0ZAWmeOKlvx+qjmCKGy0SXCDL74shPmnb4RjxBExxAdZt
N5atxhR/P/dk5uWrmOLnze7++v8fUxwAa7D84A==
       "]]},
     Annotation[#, "Charting`Private`Tag$59923#6"]& ], 
    TagBox[
     {RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwdyGs4lIkCB3BRuVTMjXdISYhFxiC5vTP/GYMMryitx1m5K6em7SRRuipR
Uo8Isy1OpFYRkqPoNk02q7N0CDPLpotqK0Tlrsnx7Iffl59p9M4NcepqamrU
HI050TleOmpqPBi53J1rGsb7WprMT5XxWGYcrR/Ueeg4MtN2Ye47i9n7BMqj
/F9vsBfWz+chs8X1Z8E8GqD/JJqtzOFbdQ3Mk2jzMP2Pesdj6jQkBV5VaChL
+R+JnCkFg4c/DlbHLlxAA/3vqOWnFPW9q7bgQfqw5NFiHRqe3wnYOaqQ88+W
JzdH+PFgsD4905BFg7f5h2efFB182b0raffzeaBvWc9wtKJhSrE2b0Txiu+R
KDZa7cZH3PF78uaNNMg9fylrL/3C/1y03e5RBx9fNROW7TtAw9LnDW+jbVX8
B+OXUuydgJMJPibhZTQwJRFXNT01YBhTNxB8HEhsm3pQ9oSGbK737YBNWjit
rWGs1w6UnB7R1ZqkQSG1l32iLcHZ0eHQFWYC2PCavv5uRsepssNP1A3pOJbg
sat2twCV3Q1nfw2ggzjXfzK3iImz1i0+PfcE2Nnx5X89SXRkBPvyOsb1YWc5
ahNKEyL7vs71oFI6druWRLQcZePd5ognO8KEGNXb4v7mMR2i4emUH/uNkG1p
7a/xixDUun5J5Wc6jnoERRm5LEPzmtzu4Qkh5ieQ/K5lDLhX/VR36L4Jlh7y
WJHg6QnVt97bRt4MSCY/HfltiSm+6aQl++V5IvhgyB8PdjEwaUPrW71pJdqs
bcovvfFESf9oUWEhA24VlRfy881wJ40hzbMXgXute/G5JgaGGeLI7+XmcDGT
5v2ZKsLy+DzjoWEGXmVFfp+guQodM5s3NLSKEJAu7Y5mM+EznOz7xtkSM2y5
8ZCJF3rz9nLdREwMxGjtrjtsBXrLcVnJv7wQfjrF0WsnEyJzQj1D/h1EN06a
Dd72gvk72XNJARO01lVnaoatofnK5tzpJd5Y5/TadlzOxNIT1YHOzrZ4K9Zt
agr1RlW/n3nhABMFNq405tbVqPUObD1Q5g2d/V3yPUwWHhsJ1nw5awfdDPvX
p8a80aThoX6dx4KbsTyb083BiXlBjfYCH8iG3w5obWVBT6M0MeqoPbJlesW2
uT4wav0xSZ7DgkmqiUfoKi7SGXY/XOn3wbYcdnn1XRYWW4TVb2jmQlqcpbht
tw5fGxemNbxhgUsaVidvdoDbzpNRFkfWYbCzXc2Cro89fYyHYjVHTO17dNX8
93VYvuGl5TVXfXz+krXJV+qIS0RMa5mBL3xuMsbjo/Qh5jw677vaCS+nilT7
t/qidYlpXHqWPuRf3Gcm2pzgamA49K7WF/nNuw/J6vSRYOvQ0x63BqbJDh8q
54txJ+GiS9gLfQg/xnaGajvDgpF1eWGQGBapRBFL2wBicza1pNQZBLw8Xv4s
RlrytXI1rgHsjmTula9dC2lt4XPGkBiIWLEpIMwA9nGu9y161sI5wknY4+IH
/lVFxa00A0juxafV7XJBbOC22slMPxS+3X4xrcYAzRc6Yz/pu+JQ5+xMQa8f
PuqsFKb1GkBVPjvBuemK+pyu+a2r/HEsx/jUBQ0CEosK7fOUGw7l+S4N3euP
pEWjics5BGasc51rR9wQ1aEaSWnyR8VfetoNIQTkZTMvx064w6GUfmGZHoXu
CkqUcZhArMgM7ss9kFP/MIyIpBARFb/i5lUCFjsyGuxkHqAtqFderqBgndJ8
WeMpARMdyXUqhISihEdOVlKI3moqvTn3VZ4HU0ZCSRTzmkt8qyhIg/ef3N5J
wP3gGc/cMBK2e5XbBmsoLORwJE+7CISM1HQpo0j4DEx/5dZTeNWfz72oJHCm
e2wqRkLicDvf9K6Mwk/UljvCPgLfSg8LU1JJDBe1/PNpFwUt0wUdqe8J9Lnn
Pr1cQaLebUObuYICXzfi4ZoPBLbvKSv0rSJxUNHjkKSkkDRzq+793E9X/Sdu
sIbEYvrgDLuXwusuSUHQIAH2SuUEt56EVZrumfAXFGSZnWGmwwTWay0zvisj
EbltY+37DxSSRy/+JRslcL/zcuzTLhKWmn8auA9SqHqpUiaOEQjQvbU6SUni
48XY/VlDFN60hTy2GifQ69Myzu4lceDZHhFnhMLGK4uuZU8QmGgcOBH+gkRB
oLQ7cYyCXfjuhMhpAnYl9tfefyARPrTC/dE4hS1+rTGsGQJ3ewRJWUMkLDKv
/JuYpFDoYrnpt7kXszbyOSMkbjxsjG+cpqDD7F1rryKwJWNPe+IYiZRIz9ZF
XykI1NZ893rux2Tp54lJEgLVf7mbVRT2Dp0xkn4jcHS6IKZxmoTW+eD8qm8U
qnveLfKfJaDndMV2s4rEE+dn07OzFN42C1Wzc1+8o3FsdpbE/wHgeS9W
       "]]},
     Annotation[#, "Charting`Private`Tag$59923#7"]& ], 
    TagBox[
     {RGBColor[1, 0.75, 0], AbsoluteThickness[2], Line3DBox[CompressedData["
1:eJwdyGs4lIkeAHBRuVTMjXeIJMQijPvtnfm7Z3hFaT3Oyl05NW0niVIqJUrq
EWG2xYnUuoXkKEr+DcvqLB3XmWXTRbUVonJncjz74fflpxNxaGe0rIyMDLVC
bkVElruSjAwXNOyaVpqGM8MdrXqXSrgsXTOFH2S50HNmsevGyvcVso87S87y
fr3HXlu/mgvpHfY/O6+iIag+i2BLsniG/aOrBIpcWPhHveU5WRrG+5WL5STF
vE9E1ryYwYU/kqqj1q6hIf3vqOUlFgy/r9bngrClqG29Eg1fPPI9NCUW8a6W
JrSHenNBbUdqujqLhh56H59/Fvfw8HFZSnMuF+h7dzAsDWk4L7bNmRS/5jnF
8TW2OfAg+vxjUfsuGopcfynpLv7K+1JwwLSthwdL8rFax0/ScOOLhncRJlLe
k5lbieZWABdjPbVDSmjIFISWy7vKgXpk3WjAeYC4rvknJc9omMnxeOi7WwEu
K8ppqnQDFF2eVFaYo6FYaI6faRvg6tRE0GZdZzDmti79rkvHSyWnn8mq0+Fc
rNPh2iPOUDnQcPVXXzoS10YuZhcw4apRh+fgY2c41PP1f4PxdEwL8OL2zKiC
qcGUcRDNBTKble76F9PxiH1RaMdZNrzfE/rsYLALTKnsdXz7lI5uEwuJP45o
QKaBkY/cLy5AbR8RVH6h41kn/3ANOy1ot84emJh1gdWxJK9fi4GOVT/VnWrW
ho2nnDbHurqC9NvQQw0PBgrmPp/5bYMOfFNKSfDOcYWApMA/nhxm4JwxbXjb
7i3QZWRceuutKxSNTBXk5zPQoaLyRm6uLjxKYQhzzN2Ac2dg/bVWBk4w+GHf
i/TATleY82eyG2yKydEcn2Dg64yw72Plt0LP4p6dDZ1u4JsqHIhgM9FzIsHr
rY0BLLJFmuPa7jCUc4zj4MbE0UiFI3WnDYHecR6L/uUOIZcTLd0PMdFNj5BN
E30Hbvcu6o49dAe99/hCkMdEWufWKzUTRiD/2vja5Q0esN3qjcmMiIkbL1T7
2diYwDu+cmtrkAdUjXjr5Y8yMc/Ynsbctw1qPfw6T5Z4gNKJftFRJgufajhb
f71qCspp5m8uTXtAq5yT7F0uCx00RZlmA2ZwYZV/o7mzJ+DEu1GFfSxUkSuO
Cz9rDpmoUmiS7QkanT/Gi7JYqJ2s7RS0lQOpDNMfykY8YX8Wu7S6iYXr9YPr
d7ZzQFiYIX5ouh2WGtemNLxlIYdUr07YYwEOhy6G65/ZDmN93TL6dFU8Osxo
4ctYwvzxtnK937fDpp2vDO7Yq+KXrxm7vYSWcIuI7CxR8wLP+4yZmHBV5Ju1
XffaZgWv5gukJ/Z5QecGnejUDFUUfXVcnO2yAns19fH3tV6Q237kFNapYqyJ
xWB3tDXoJFh8rFzNh0exN+2CX6qiy6eoviBFG9BnZNxe688H/WSigKWohnw9
NrWh2AYIcHd69TMfUhLulMpw1ND0TPoxka0tCGvzXzDG+QChm3f7BquhebR9
s/6gLdiEWrkM2nkDr1xc8SBFDQWPY1LqDttBlN/+2rl0b8h/d+BmSo0att/o
i/qsag+n+pYX84a84ZPSFpeUITWUli7Pmt23h/qs/tWdW33gXJbmpRtyBAr0
KxSvUw5wKsdrY9AxH4hfNxW3yYzARaNsm9pJBwjvkU4mtvpAxV8qig2BBIpK
Fl9NX3AEi2L6DS0VCgYqKLe00wRGuemC4yYnyKpvCSbCKAgNj9l8v5xA/YNp
DaboBLQ19ZLbFRQYJbbfluslUFtJcJcKJEFcxCXnKimI2KcjvL/yVa5JiZNB
JBRy24u8qigQBpy4eKCPQMekK67ZwSSYHJPsH6uhYK2ZmaC3n8DAyZp+STgJ
nqMLS5x6Cl6P5HJuSgi8MjA9Hykg4XQ3T6cJKfiJ2vvIZZjAb8WnXRKTSZgo
6Phnbz8FCjprepI/EDjsmN17u4KEeoedXXpiCnjKoS3WHwk8cLQk36uKhCTx
oEW8hIL4xQd1H1Z+oeo/0WM1JKynjy2yhyh40y/I8x8jkL1FMsupJ8EwRflK
yEsKML0vWGeCwB0KWppNSELY/l21Hz5SkDB18y+cIrC573ZUbz8JBvJ/qjmO
UVD1SiqJmybQV/nBtngJCZ9uRp3IGKfgbVfgU8MZAoc8O2bYQyScfH7UzWyS
gl1l6+5kzhI42zh6IeQlCXl+woG4aQpMQ47Ehi0QaFpkfufDRxJCxjc7ts1Q
sNe7M5K1SGDToHN8xjgJ+ull/ybmKMi3M9j928rzWbt4ZpMk3GtpjGlcoECJ
OWRrLiVwb9rR7rhpEhLDXDvXLVHgLGP93ZuVn8bU68QcCc7S/3L2SCk4Nn5F
Q/iNwLMLeZGNCyQoXA/IrfpGQfXg+3U+ywSqWJWZ7JGS8Mzm+cLyMgXv2l2k
yytfeLBxenmZhP8Dax5V1g==
       "]]},
     Annotation[#, "Charting`Private`Tag$59923#8"]& ], 
    TagBox[
     {RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwVkXk4lfkbxk+HZM17FudFEoUsZd+d17mpppoQodRYSraEJgppHaSJRjJE
pcb8NE0SqiEkhSxTsmSrSFlKZSxNHQrn8Hvnj+d6rudzf7/Pdd/Xo+m/b0sg
k8Fg+NMlQZfny0srGAwCqtZVzP/6uuMrC979sl9QkFwfry9NoP3EbEsuza8u
FWcptfULFvAnBjwIAsmPbS45LCCQn/ZUsanhvWDbmLLDcWUCjuzY4EGaH90z
aH1PfUxQdMUxN1+DwMyOu2YJTALeOY0qM62fBJKuYfMdugTu5AnnV0gQaK7Z
IyNq+izYseC875wxgT2jpk/raM7bnuvumCUUSAV8VHN3IPDyaHGA1EIC8kGz
V8oavgq8lThHjm4kcK5hzPhPmhuuzEyYsJoW3Gng9/7pRmCj4irxeina5+41
t3QyZwR+emkXRLsIVORezzy9iICv0HX7DXWxoGzcknctnkD2o98b5GUJFFmY
2X5pZUAhd+fBtmQCrvL96YU0j3j+vj/EYwF2uyV3zqQTkPZU93ORo/0/WCC5
qGsBiJK+9M15BGKGL349K0/njc4emmxiIuRQouL0IwLbZDJ0OYoEEvvG7/Kz
JKEi2S7ttJAF3uakZBUugbTf6mrvNCzCvtLZ4GgFFpqz6rbeo7l3Z40FW1sa
9UHajblKLJzsZ674QYmAXhTfSSpeGpGPY09OarMwuf94ZQ6PzlWcND5iJYMn
qcuYv33HQmdG7OgyFQL2u4O3Lc+UxWGV8Nl/T7Hwa0+oi446gVn+3l3X1BXQ
Zyg9niXLBitoM9uMvk9OgXP8v60EbGtea0Zy2EhdzgocoPn4i3UCeyGBLPdS
Tyc1NuTftJed1SMQepr6QCmzsCXWv4phyIaU11afUX2ajz2O9vFjoaHm/pk9
bmyINvpc/2M1gS+xgy3OIywUe+w3sMtmY3j1XntlMwIrk16/dhSyER/XE/Ja
m4PKyaRQMUVgU++//lf6udBpuDmk5cBF4MkHtY3uBDgSpfW+65TREvzkmM4W
HkSLIpceOkLgyd+yOJC5FF/bcs83einjdOT6Zb5XCQirolwPzGug/3DxS58U
VRxoma65Suf8673u+CvVFdA3saoNyVbD7798Wiz9jb57vOOlgAEtmOt+7Qp5
pg4D+zrR0xUsVJudmh34Qwd+X6zMJE9o4GZ3xbl6FxYSJBSWaDrqovO5sUtq
oib2tX9p64lmIbUvvjmwQA/6ffVz7N+WI+2h7G23/7Egufl0/NhSAxQFk8z2
aysgVAyye/eEBWO39SVtQasg9Kx/tDNfC84bhsJufmahVVXxWMCl1VANVFwy
UqMNyUhK0LWUjeaFFeEZrwwRMa1UX9ioA/Fcb6Xqd2y8X/Ot/R+REa4WlUuG
Da2Ex9FtL2v2s2Gazn1kkWmMC41lzJlpXfw+JLyck8OGw4drMgZaJngQGOVe
K9aDSWG3fEYdG+dqvStD/zBBnVaTzUnSAOohmWpjE2x4+HfuSFltiumQN5Hx
6qvgkpTd7a/MgbZI+LNqvimIlrMOcXar0ZsZa2K7lgP9FvbpOAMzDJ/PaXFw
N4TvL3Fm6/ZxYFMfMWhy3QyjbwOL1ngZQetD9ZuwLA6CZ3gpz1TM8TH/HSvX
xhgbzN+umqrloHVyYSmVbg5h3tTByipjFA1t0sr5h4PrUhI3KIYF+lstKuwF
JpA93FV7kMOFRZvI6tMeC/Dl16x/2ETnkOAzb9tzUVb3Y7lXjwWMUormXrmY
onpi+B/pYC42NC18Yu9giXTVD4xvr0yh2hwRXZvOBTm15GZpkSW6ezcPxoWY
ITRd+XpxFRe5P3ttNVe2wl9vlMYujphBdE8qseIdF67VTvfHY60w/yXfsTzG
HKOdzxjaLCWMXD2XpNJvhaHvc2oiZ82hvmVgZaGNEirH1E/22lvjz477yzKP
WGB9GXsqZJcSlM6sS/e5aI3esIK/S6Qt0aygGZh0RgkbjnQqG4ro9xu+Xdyf
YonzjVHHqkuUIFf7olltqw2GzDnlBipWuB+ZZ+3dr4QTrLs/Wt21QfnuM3Px
l62g/RN5mSvDg3hTz4OSxbYIqzPTclxmjcSYwusMEx6IVucZzwBbpFnkZ8wV
WAN+Gp4u3jxclHggxay2hdPHI4ZeRjYQ3HheUJ7Iw4hg57dYrh0OFapziqts
kDO8Ny/xFg8eA7WhvRF2SMob7w7faItx2eWOib087ByrlolrsIP+K7W6x022
SEhXS8mVICFz7HaFgORDoK0iWr7dDtFywgPqRiSmpMIcn4XzMXorykelzw4F
7xVlKraRSFqv+7Ksio/YCNHlGF8+uguc1546ToLBXjxlKUfhIN9dr2OED79d
IRplN0hcUVdmB/hSkHGWft0UTkE/rvGaRAcJDbvRz4YFFMRnw4q4P1LwD9bM
LqN5eKsHN/EmhfH2tmM+kRSyPQ6f3ttJ4lhkmM7LQgodXheWTURTkDIyCuvo
IvGd1m21hFsULgfo72KfoDA4dN4k7wWJ2ueP3bpLKZgccXrrlU7hgnPQfcfX
NJeS7D9UTWFHQdrIu7sUpDUXtv/0kQT76ZuLpV0UnMaF9wwrKAgW+z2yGCHx
0E6jW/o5PZtsT4mppBA9W17ykeb1Xa5M7xcUtMs0V8nQ+952hWW5jZJQTk1e
zeylMFF7J3zVYwrVyZ3emhMkMpZktzr3U0jo6fwUSesxwrz31UISlb/2rBkc
ofcutamp7KNQNCB+cWCSvssPCmfNRymE7Lx8TpL+965l2xPdKRLfG7o2JY1R
cB4OND3/loJ7vlxh2lcSBQMKpMEnCuTnqagKWjf0jYrcOUPidm3ubOQkBVmL
H9YyaT1oU/Nu7iyJULOU1ropCqKYh9xNnynkWK/0/JvmzdGZGbxvFAbEp0pf
0bosp9fKWEz7dGV9rpih0InRk9rTFBwYFnpvaf6wIylZTkShIcF1a8Qshdix
VNXsORKBTC2uj5hCWUOJThndi3s+yDnNk+h+NpJaNEfhhozK1/l5CsONjuJ5
mrda9s38N/8f4hH/5Q==
       "]]},
     Annotation[#, "Charting`Private`Tag$59923#9"]& ], 
    TagBox[
     {RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwV0Xk8lOsXAPBpSNa8s75IE4UsZRtjndcc2m+IUCpLyZZQjUJar60bJblE
pdJPm4TqEpJ6TJZKlmwVKUupZOnWUJjhvr8/zuf5PN/zPOdzzudo++/ZGEil
UCj+ZMiQ4fn24hIKBQMN6yqSMbTq2NKCT6f3CQqSa+MM5TFoPT7dlEv6tYXS
LFZLr2AOf6zPA8Mg+bnNRYc5GMpPe6naUPdZsHlEzeGYGgaO9JjgftKP7Oq3
fsgZERRddszN18JgausDbjwVQ9459epTzd8Fsq5hs236GNzPE88ukcFQY/Uu
BUnDD8HWOed8Z0wx2DVs/rKGdPaWXHfHLLFALuCrprsDBm+PFAfIzcWQctD0
5bK6XwJvFuPwkXUYnK0bMb1JuvHSzPgxq0nB/Tp+9003DNapLpOukSP73Lni
rl7mlMDPIO28ZAcGFbm3Mk/Ow5Cv2HXLbY5UUDZqyb4Rh0H206t1yooYKuJx
bX82U0Ald/uBlmQMXJV70wtJj3j9uTfEYw7sdEtun0rHQN6T4+eiRPb/eI7s
vI45gJX0pG/IwyB68MKvM8rkvFHZA+MNVAg5mKA6+RSDzQoZ+gxVDCX0jD7g
Z8mCumyrvNNcGrA3JCWrMzGUdqVGdL9uHuwpnQ6OUqFBY1bNpoeke7dX8+i6
8lAbpFufy6JBYi91yTYWhgwi+U5ycfIgfB6TOK5Lg/F9xypz2ORcxUmjQ1YK
8CJ1EfXKahq0Z8QML1LHkP3O4M2LMxXhkHr49L8naPB3V6iLHgdD0/zdO25w
VKDHWH40S5EOtKANdK4+hnIKnOP+bcbAtvq9tpBBh9TFtMA+0kffrBLYizHI
ci/1dNKkg/KH1rIzBhgKPUl8IdRosDHGv4piTAc5r00+w4akjzyP8vGjQV31
o1O73OggWedz6/pyDP2M6W9yHqJBscc+I7tsOgwu322vxsXQ0qT37x3FdIiL
7Qp5r8uAyvGkUCmBofXd//pf7mWCXt2dAR0HJgQmPhbVu2OIIVNa67tKDZqC
XxzV28gGyTzhwoOHMfTimSLsz1wIv1pyz9V7qcFJ4ZpFvtcwJK6KdN0/qwW9
h4rf+qRowP6myeprzRj657P+6DuNJWBoZiUKydaEq6e/z5f/Te49zvFiQJ8O
WOj/6gh5xQEj+xrJyyU0hLgnpvuu64HfTyuu7HEtuNNZcbbWhYbiZVQWaDvq
Q/trU5fUBG3Y0/qzpSuKhlJ74hoDCwzAsKd2hn5lMaQ9Ubzn9j8akt1wMm5k
oREUBePU1htLQKwaZPfpBQ2Zuq0paQlaBmLP2qfb83XAee1A2J0fNNSsoXo0
4OJy0AhUXTBUrQuyQkLQsZCOGudWhGe8M4aISVZtYb0eSGe6KzVW09HnFb9b
v0lM4FpRuWzYwFLwOLL5bfU+OjJPZz7lZZrC+foy6tSkPlwdEF/KyaEjhy83
FIx0zOBxYKS7SGoAZoWdyhk1dHRW5F0Zet0ManQabBJxI+CEZGqOjNGRh3/7
1pTl5jAZ8kEYx1kGLknZnf5qDKQrEf+lkW8OWNMZh1i75dCdGWNmu5KBDJvo
J2ONuDB4LqfJwd0YfE/HclftYSCb2oh+s1tcGP4YWLTCywR0vqAPYVkMFDzF
TnmlbgFf8z/Rcm1MYa3Fx2UTIgZqHp9bSqRbgDhv4kBllSkUDazXyfnGQLfk
ZG4TFB70NvMq7AVmoHioQ3SAwUS8FonV91084CuvWPOkgZxDhk+9Z89EZTV7
y726eGCSUjTzzsUc0NjgN/lgJlrbMPeFvYMlpGt8ofx+Zw4ajRFRonQmwicW
3CktsoTO7g39sSFcCE1Xu1VcxUS5f3ltslCzgn8+sEYuDHFB8lAuoeITE7ki
p0ejMVYw+zPfsTzaAobbX1F0aSw0dO1sknqvFQz8kVMtnLYAzsa+pYU2LFQ5
wknstreGm22PFmUe5sGaMvpEyA4WYp1ale5zwRq6wwqelchbQqOKdmDSKRZa
e7hdzVhCvl/7+8K+FEs4Vx95FJWwkJLoTaPmJhsYsGCUG6lbwSNhnrV3Lwsd
pz3Ya/XABsp3npqJu2QFun/il5gKbCRd3/W4ZL4thNVwdRwXWUNCdOEtihkb
Yc3OU54BtpDGy8+YKbAG8NPydPFmowsyj+WoyBacvh429jKxAcHt1wXlCWw0
JNj+O4ZpBwcLOYziKhvIGdydl3CXjTz6RKHdEXaQlDfaGb7OFkYVFzsmdLPR
9hGkEFtnB4bvNGueN9hCfLpmSq4MjhSO3qsQ4HwQ6KpLFm+xgygl8X6OCY4m
5MIcX4XzYfhupI96jx0UfFZVqNiMo6Q1+m/LqvgQEyG5FO3Lh84C55UnjuGI
Qp8/YalEwAG+u0HbEB/8doRold3G0WWOGj3AlwAFZ/n3DeEEGMbW35Bpw5GW
3fAP4wICpGfCiph7CfAP1s4uIz282YOZcIeA0daWoz5CArI9Dp3c3Y6jo8Iw
vbeFBLR5nV80FkWAnIlJWFsHjlbr3NOMv0vApQDDHfTjBPQPnDPLe4Mj0evn
bp2lBJgddvrolU7AeeegR47vSZeT7T2ICNhakDb06QEB8tpzW//8iiP6yw8X
SjsIcBoVPzSuIEAw3+8pbwhHT+y0OuVfk3ezLSnRlQRETZeXfCW9tsOV6v2G
AN0y7WUKZL2PHWFZbsM4UktNXk7tJmBMdD982XMCUHK7t/YYjjIWZDc79xIQ
39X+XUjmo8V5n5EYR5V/d63oHyLrLrSpruwhoKhP+mb/OLmXbSpnLIYJCNl+
6aws+e9T0+YX+hM4+sPYtSFphADnwUDzcx8JcM9XKkz7haOCPhXc6DsB+I+J
yAoyb+wbKdw+haN7otxp4TgBirxtK6lkPmh9407mNI5CuSnNNRMESKKfMNf/
ICDHeqnnM9IbozIz2L8J6JOeKH1H5hUZ3VamUrJPV9qPiikC2mE4UXeSAAcK
z+Aj6U/akpKVJATUxbtuipgmIGYkVSN7BkeBVB2mj5SAsroSvTLyLO76ouQ0
i6POV0OpRTME3FZQ/zU7S8BgvaN0lvRmy56p/9//A3RAMPQ=
       "]]},
     Annotation[#, "Charting`Private`Tag$59923#10"]& ]}, {}},
  Axes->True,
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImagePadding->Automatic,
  ImageSize->{503.3103110482356, 602.3427793527766},
  ImageSizeRaw->Automatic,
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}},
  PlotRange->{{Automatic, Automatic}, {Automatic, Automatic}, {
    Automatic, Automatic}},
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{-0.061327220051492104`, -2.3812375130779806`, 
   2.4033199700395595`},
  ViewVertical->{-0.5379623877209619, 0.3522752869232198, 
   0.7658319604330472}]], "Output",
 CellChangeTimes->{{3.889105641060481*^9, 3.8891056616932287`*^9}, 
   3.889106158436042*^9, {3.889106224130526*^9, 3.889106296442524*^9}},
 CellLabel->
  "Out[176]=",ExpressionUUID->"52e4d4d2-530f-4fa6-9eed-3323f6a48cbc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParametricPlot3D", "[", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{"y0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"zf", "-", "z0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"-", "y0"}], "-", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"zf", "-", "z0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"xf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", "y0", ",", "z0"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"xf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{"-", "y0"}], ",", "z0"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xf", "+", 
        RowBox[{
         RowBox[{"xf", "/", "\[Tau]"}], "*", "t"}]}], ",", "yf", ",", "zf"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xf", "+", 
        RowBox[{
         RowBox[{"xf", "/", "\[Tau]"}], "*", "t"}]}], ",", 
       RowBox[{"-", "yf"}], ",", "zf"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xf", "+", 
        RowBox[{
         RowBox[{"zf", "/", "\[Tau]"}], "*", "t"}]}], ",", 
       RowBox[{"y0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"zf", "/", "\[Tau]"}], "*", "t"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xf", "+", 
        RowBox[{
         RowBox[{"zf", "/", "\[Tau]"}], "*", "t"}]}], ",", 
       RowBox[{
        RowBox[{"-", "y0"}], "-", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"zf", "/", "\[Tau]"}], "*", "t"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"x0", "+", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
         ",", 
         RowBox[{"y0", "+", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
         ",", 
         RowBox[{
          RowBox[{"zf", "^", 
           RowBox[{"(", 
            RowBox[{"5", "/", "6"}], ")"}]}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"z0", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"zf", "-", "z0"}], ")"}], "*", 
              RowBox[{"t", "/", "\[Tau]"}]}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"1", "/", "6"}], ")"}]}]}]}], "}"}], ","}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"-", "y0"}], "-", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"zf", "^", 
         RowBox[{"(", 
          RowBox[{"5", "/", "6"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"z0", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"zf", "-", "z0"}], ")"}], "*", 
            RowBox[{"t", "/", "\[Tau]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"1", "/", "6"}], ")"}]}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"xf", "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "2"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x0", "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"xf", "-", "x0"}], ")"}], "*", 
             RowBox[{"t", "/", "\[Tau]"}]}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "2"}], ")"}]}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"xf", "*", "x0"}], "]"}], "-", "x0"}], ")"}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"t", "-", "\[Tau]"}], ")"}], "/", "\[Tau]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"yf", "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "2"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"y0", "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"yf", "-", "y0"}], ")"}], "*", 
             RowBox[{"t", "/", "\[Tau]"}]}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "2"}], ")"}]}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"yf", "*", "y0"}], "]"}], "-", "y0"}], ")"}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"t", "-", "\[Tau]"}], ")"}], "/", "\[Tau]"}]}]}], ",", 
       RowBox[{
        RowBox[{"zf", "^", 
         RowBox[{"(", 
          RowBox[{"1", "/", "2"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"z0", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"zf", "-", "z0"}], ")"}], "*", 
            RowBox[{"t", "/", "\[Tau]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"1", "/", "2"}], ")"}]}]}]}], "}"}]}], 
    "\[IndentingNewLine]", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Tau]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.889106337408866*^9, 3.8891064205021*^9}, {
  3.8891067323599777`*^9, 3.889106734952828*^9}, {3.8891067835765657`*^9, 
  3.889106861782181*^9}, {3.889106894198844*^9, 3.8891069157955713`*^9}, {
  3.8891069712125053`*^9, 3.8891070358529463`*^9}, {3.889107202640419*^9, 
  3.889107246107922*^9}, {3.889107313226948*^9, 3.889107325027001*^9}, {
  3.889107619328129*^9, 3.8891076709187*^9}, {3.889107813053668*^9, 
  3.889107874662537*^9}, {3.889107997553537*^9, 3.889108041842368*^9}, {
  3.889108144330236*^9, 3.8891081503008623`*^9}},
 CellLabel->
  "In[209]:=",ExpressionUUID->"10526195-ea54-4a0e-8820-82ea8749f184"],

Cell[BoxData[
 Graphics3DBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwVjHk41Isexh1ahha/2fyQiIZkG2Mf/JrXcitCi4RzSUI8t1G3EUqbJCod
RyqpQ9f2KGSo64QkmpTUTWWP0mI5kVD2/c75432+z/t5Pu9Xc+/BHUGyMjIy
rtLISePx7o+1MjIEVK0qZf++4511NZyEnA0FF57G6NEINETP1GdIedNN5aN2
bTGCX2yHPu8kCFyo4/9h9wsBsF/vVW5LFohv2mfkrSEw/et90zOyBCK25bfK
tWUJlgT2qbnbEXh3oihwyWIC9EEyear1nqB00EIpN4ZA6pPMZ8sVCHx86HZw
tFUiUFnUQHNZTIfS1rgLKiwCGzn9H360Ngg+GNEGrykwQN+3lWGqS2Cq1fLq
cOsXgc6zO10cOxaCzj6S1LoTkDjcynmbNSKoD35xUmeHEmaXilYfPU5g1cfy
3r0Gc4KJNxkptV7KOC/apLE7hwBT6Je/1EEOn44VvfNNUMXh+qnHOa8JJPE2
Vrh50KDHs5SEpKoh87fhlbRJAq2pxtU/iBUw051oDnmrDv0NNbP/W0tHQs6p
17IqdPiNWJouil6DOy3ll5660UFe6Tp/OZ2JplZjt8RYTRxsGHnTHkFH/E6n
DQ3jbOh9eDrP+I8WkqoU7m7PoiOMn+lXF6MMcTAp25C7FqOK+2x6XtDhODQd
daBLFaMeT5/syePAdXOX8M5POmJst/urWq2GapDiqv7H2lgkogTNqxmwEV8v
OVmlgQNT7KeFtTqYm++oUN3IgHDyR/TzFZrIEZctEnatw84Tnu8eH2JgUp/o
NPTQwvXaUtnpKV1kdo2mp6UxYF1wJyMlZS0eBYW5S+bWg1fYsvxKDQNDDOc9
uyQc1HBe8s+S+lAPuar2fYiBLxf37BIt1cFUyEdRjLoB3OJSW/YqM7FpKNKp
x2IdiPrf7aJsDNFx9QjP2pGJbwG0sJJTuuhNSau3czfC7t+iTP9xkAlHDikb
L1mPge4gsYMXF5yv1R+F15ggXukkFg/poS+vh57BN8Zms26DcQkTq84VbbOw
MMBo9nh4RaUxxF1bOGnfmLimzyeYwYb49Nq8fIOAB4VjzZJwJgsvVO3MRy4Z
wXa5w6aqlzzUyNnK3t3AgrWaJInbwgU3QTz/3s0E1UO932jBLCjKZR32jzFG
supXmcn3JlB9dSBCksyCxmkNW28dHlo6tn6JCjHFv5KVbxdVsrBc2+f+jloe
/vuR/f1GvylmHyyJLe9hgUepFEX6mmBhJM++LNIMA01vZbTpbIR3Mp44y5ii
yzntsWjGDOo7Pq8r5LPxc+Sih1OqKW41PtS4etwcm0oZ4yH+bDhzn91wMjRD
h7DgeQnNAq9WaAbFXWRDMmIzM1FvhlubJ28cSrBASm3YyeoSNkQGJu1vg8zR
ZcYs01exxENRtpXPJzbsBwObvOUtUBZwcT4m3RLap8l0lrwSnDnKriuyLCCs
MeXYa1ghNrLwtgxPCUbRF45ILC2RZJ53Zb7ACvBb4+HmowTjIH6VdrslXPqO
G3lx+RDktxaUxSpB+CgktuSQFY4WqjOLKvlI692fHVushNqMpsAfbD7isgdb
Qp2sMaigZR/boYS52wsT3FI+9N6r1dS9tMaZZLWEDDkSQu0C+Ruu1hBoq8xq
edsgYtnoYXUuiRm9yxb3hq0xUBzmq/LBBgV/KcqXe5KQ5Mx8HjtngyMHZtMj
d9uipcDVMf4UiUDHtbBRt0W4rfv6xn5b+PmHrCnNJ6EdGl9uVG0LeVda58tQ
CnpRtblyjSQ0FIR3XT0pzP0uFLP+TWFvsGZqqZSLHU5EDXtTGGx4c9JXRCF1
57Hz+5tI2JxIdLjsQ6HR67rGUASFJVyusLGZhOdwcXObP4X0QD1/RjSFL10p
vOw2EoktY1MBQgq84y7dXskUrrvue2jfSWI+65R91GkKvxYk9ffcp0DTXNxw
uo9Ep83lxtwCCi6Dow+MyikIVvo9Me8nsT88J81JLO0874TICgoRM2UlfVI+
Lf4zaKCYgnappoF8NYXuZuG17QMklLXaJnjSv0OSe6EGdRSqLzT5aA6R2Epb
rVYp9c60Nw2LOihEjmb/VT1KoqopN7CxWfp3Nf9xxQcK4s9zbYfHSLitLDOM
aKMQsif90qJPFHrqPV/ojpPo2FQ3rizdu/YGmaR0U3DPW1aYNEFi4sG3c7ul
HvlzPKz8OwWj3WGiPdMkjDKNC/v6KSiY/9NRdpjCvi2vAlgzJCrb7SIuSr3Z
yCrWlp8U0qzWeTyXcmeWu4Ar9T7Pxf/5fly6Y3ZYGs+R2Bcf/vbwGIUmDJzV
nqJgJ2O+vlvKx6rjbpCTFJ6d2bbrwAyFI98TVVPnScRMXwt4ME2h9FmJTukc
haL2r8tcFkgomuUZ+Ep7vrzKxMIChd5a+7kFKb8Z+mDs7/5/SZ4y2A==
       "]]},
     Annotation[#, "Charting`Private`Tag$72551#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwVjHk81Psexh1UQ4vfbH7IEs1ItjH2YX7Nx3IrQouEc0mWKa/bpNvYSpsk
CseRCjl0bS8lGdV1siXfJpG6qewRkuVEQtmX4c754/njeb/ez6MdcPIAX1ZG
RsZVGjlpPD7+sVVGBgM16xopxtBsb2MdI7FgR3HCyxh9EgbN0UtNOVLeekfl
jF1nDO8X7kT/QQyDhEbOH3a/YAjo7wJUOlN5ojv2OUVbMFj89YnZZVkMRey7
3yHXmcdbGzSi7m6HwcfzpUFr12CIPI6nLnQ85pWPWyoXxmCQ8SK3foMihvqe
up2c7hDzVOWbSS5ryKC8Ny5BlYahnYzRnh8dzbweY9J4uiIFyEf3Usz0MLTQ
YXVrsuMLT7f+wQDDjgb8K8/EDe4YEjvcLfiQN8VrOvb6gu4BZVheJ9Q4cw5D
m/sqhwMMJby59zlpDV4qcE24S+twAYaoAr/76xzk4PPZ0o++iWoQ1rTwvOAd
hlLYO6vdPEigz7YSB2eoQ+5vk5tI8xjqyDBBP7CNYK431xb8QRMMdtQt/28r
GSUWXHwnq0oGvykrM/noLfCgvfL6Szcywm8OXLuRTYXWDhO35FhtONk89b4r
goziDzrtaJ6lg37PyxXKf3QgpVbx0f48Mgrl5Po1xqiA6Bgu21y4FaaVjtoO
vSYjx4nFqJABNZj2ePniSBEDXHcPCB78JKMY7n5/NWsNUOMrbR59zgR5IcFr
06AgW9Htsgu1WhCyQH9Z0qALkpXuarWdFCSY/xH9aqM2FIgq5AUD2+Dgec+P
z09R0LwB1mvkoQO3G8plFxf0IHdgOjsri4Jsih/kpKVthWf8UHexZDuwS9o3
3KyjoAmK85FDYgbUMd5wruAGoBl8S/37BAV9STpySLhOFxaC+4QxmobgFpfR
HqBCRbsmIp2GLLcB1vS7XZStEXTfOs22caSib4Gk0LKLejCcltVk524Mh3+L
MvvHSSpyZOCy8eLtMDbIFzl4sYDxFfUJ0qkIe6ub/HBCH0aKhsg5HBPYbT5o
OCumos1XS/dZWhrCdP5seHWNCYgG9jCyvlFRugEHox4zgs/vLCp38NigeLZN
HE6loddqdhZT142Bu8FhV+0bNtTJcWUf7aAhG3VxCqudBaxE0conN1NAE8Pf
SMdoSEkuL8w/xgRS1b7KzH8yBbW3IRHiVBrSuqTF9dZlQ3v33i9RwWbwr1SV
e6U1NLSB6fPkQAMb/ttH/545agbLVWtjK4doiE2olkb6msLqVJF9RaQ5jLV+
kGGS6Si8l/LCWcYMBpyznguXzEHzQP+2Eg4d/ZxK8nDKMIO7LU+1bp2zgF3l
lNlgfzpyZtVnOhmZQ7eg+FUZyRLebtTmxyXRkXjKdmmuyRzu7p7PPJVoCWkN
oRdQGR0JDU27PvAtYMCcWmGgagVPhfnWPp/pyH48qNVbwRIqApNWYrKtgHkJ
z6YpKCNnhorrxjxLENSZMey1rCE2suSeDFsZGUcnnBZbWUGKRdHNlWJrAL8t
Hm4+ysiEz6lldlmBy8g5Yy8WB3j3O4orYpWR4FlwbNkpazhTokktreFA1vDx
/NiHyqghpzXoB50Dcfnj7SecbGBcUcc+tlsZSe6tzrHKOaD/Sb2u8Y0NXE5V
T8yRw5GAWayQ6WoDPKbqso63LUSsnw7TZOFoSf+G5eNJGxh7GOqr2mMLxX8p
KVR64khcsNQ/c9UWTocsZ0ce5kJ7satj/EUcBTluBVtNLoRz3be3jHLBzz94
S/l9HDFPxFcaIy4ouJJ635wgQD+qoVCuBUdaioJHrp4ESH4XiGj/JiDgmHZG
uZSLHM5HTXoTMN78/oKvkICMg2evHW/Fke35ZIcbPgS0eN3WmoggYC2LJWhp
w5Hn5MO2Tn8CsoP0/SnRBHwZSGPnd+IouX1mIVBAAPucy6BXKgG3XY8+te/F
0UreRfuoSwT8WpwyOvSEAJL2muZLIzjqtb3RUlhMgMv4dJVxJQG8TX4vLEZx
dDy8IMtJJO1s78TIagIilirKRqR8UfQnf+whAcxybUMFRMBgmyB9/xiOVHQ6
59jS3wnx4xOGjQSghFYf7Qkc7SVpqNdIvctdrZPCbgIip/P/QtM4qm0tDGpp
k/5qcJ5X9xAg6pd0hs3gyG1ThVFEJwHBR7Kvy38mYKjJ87XeLI66dzXOqkj3
rsN807RBAtyL1pekzOForurb1cNSD/85G1r5nQDjw6HCI4s4Ms41KRkZJUDR
4p+OspMEHN3zNpC2hKOaLruIJKm3HFlL2/OTgCzrbR6vpNyZ5s5jSb1+Sfyf
n2alO2q3lYkER0fjwz+EzRDQCmNXmAsE2MlYbB+U8hkUl4nPE1B/ed+hkCUC
Tn9PVstYwVHMYnpg1SIB5fVluuUSAkq7vq53WcWRknmRoa+031dQnVtdJWC4
wV6yKuV3TlTN/N3/D9Q0WVg=
       "]]},
     Annotation[#, "Charting`Private`Tag$72551#2"]& ], 
    TagBox[
     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJxTTMoPSmViYGAwAWJmIA69OVuZgUHAgQEMYDQDgyTLJQ4fVkEM8bt6HO+m
cwlhiKsdW/NYxVEEQ/xc+qk6tSAxDPHvFxZMOx4hgSH+oHr9zdhuKQxxLUPz
QxkzZDDETTS+X824KIchHv/Z3JilQQFD/Mp1A7++FkVM8+8e/Sc0XwlDfF26
ONOlZcoY4l9Cjx5OWKmCIS6Vyi/96qAqhnjeT9Gja4+rYYgvWbeDJeexOob4
zOPbmX791MAQ35daHHzoryaG+BGV05at4toY4j8z7hc1yelgiAuc63esstbF
EH82bc45x2A9DPE3T1LXOUfoY4i/XPlUcIGlAYb4l8XfSnfvxRR/cN50p529
IYa4DY+z+/7TmOL63ev+3fEzwhCfJPWC4ccdTPFrt/0fVWUYY4hvvi/6dtYr
TPH/n1c67Sg3wRB/7DXnYNFvTPHll/fIT60xxRC/nbP6xBYOM0z1Hj9mFXZj
ij82Ed6hLWmOIb4juedf01xM8ZwjxipO8hYY4hNMV075txpT3OdljV6EviWG
eOVaOeH1ezHF2xa/u5braYUhrnVH5sjJ05ji9qqSf5QirTHE32wojpW8iyle
kfdnbnmcDYZ4qU2w5uVXmOKcvhz3TufaYohHrZ7w6uk2TPFVnJLf///HFAcA
j5/Naw==
       "]]},
     Annotation[#, "Charting`Private`Tag$72551#3"]& ], 
    TagBox[
     {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJxTTMoPSmViYGAwAWJmIA69OVuZgUHAgQEMBA4wQIEkyyUOH1ZBDPG7ehzv
pnMJYYirHVvzWMVRBEP8XPqpOrUgMQzx7xcWTDseIYEh/qB6/c3YbikMcS1D
80MZM2QwxE00vl/NuCiHIR7/2dyYpUEBQ/zKdQO/vhZFTPPvHv0nNF8JQ3xd
ujjTpWXKGOJfQo8eTlipgiEulcov/eqgKoZ43k/Ro2uPq2GIL1m3gyXnsTqG
+Mzj25l+/dTAEN+XWhx86K8mhvgRldOWreLaGOI/M+4XNcnpYIgLnOt3rLLW
xRB/Nm3OOcdgPQzxN09S1zlH6GOIv1z5VHCBpQGG+JfF30p378UUf3DedKed
vSGGuA2Ps/v+05ji+t3r/t3xM8IQnyT1guHHHUzxa7f9H1VlGGOIb74v+nbW
K0zx/59XOu0oN8EQf+w152DRb0zx5Zf3yE+tMcUQv52z+sQWDjNM9R4/ZhV2
Y4o/NhHeoS1pjiG+I7nnX9NcTPGcI8YqTvIWGOITTFdO+bcaU9znZY1ehL4l
hnjlWjnh9XsxxdsWv7uW62mFIa51R+bIydOY4vaqkn+UIq0xxN9sKI6VvIsp
XpH3Z255nA2GeKlNsOblV5jinL4c907n2mKIR62e8OrpNkzxVZyS3///xxQH
AKVQ52s=
       "]]},
     Annotation[#, "Charting`Private`Tag$72551#4"]& ], 
    TagBox[
     {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJxTTMoPSmViYGAwAWJmIE6a5MrFwGDnwAAGElDazmHiivLj8d6Y4gf2rWzZ
Pw1T3KbES0rXyh5D/NPcbL1jlzDFD35bWmVg4oAhLpm85XVIK6Z4LyezDP9F
TPGJX95HKig7Yog3F9kUbirGFJ+oddL91j5McT31L9qRAk4Y4i9i48/nxmCK
T1DX8mFejil+3HTytfffMcWl62wUipydMcT/cbWUe0/FFD+npb1i6VNM8T0t
QjOmGrhgiFsoz5h6pxFT/NLv2KCdZzHFf0scknkr74ohLniy9cDCAkxxl82d
ym92Y4qzP9Ke0svrhiH+zIvvyJFITPFNbgFna5ZgivO1Gzzp/oop3sEYuMvA
0R1DfMIB/nk6kzHF24T0olc+xhSfMa/n+m49Dwxxq/zORNUGTPGflcdWqZzB
FF8qnnx2iZgnhvjDn3P/VqdjiluKSb59sQlTXLHc6NUaFi8McVWhnmVsgZji
4g6uNg9nY4rP2DTnvtBbTHGzeBOnWxbeGOIpAVmbfnRhitdd+f97+m1M8W2T
rrKcVfPBVD/VUzqyAlM88dLfD1VHMMWNFgkukOX3xRCftO1wjHgCprgA67Yb
y1Zjir+fezLz8lVM8fNmd3/9/48pDgBV/+Lg
       "]]},
     Annotation[#, "Charting`Private`Tag$72551#5"]& ], 
    TagBox[
     {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJxTTMoPSmViYGAwAWJmIE6a5MrFwGDnwAAGEgcgtJ3DxBXlx+O9McUP7FvZ
sn8aprhNiZeUrpU9hvinudl6xy5hih/8trTKwMQBQ1wyecvrkFZM8V5OZhn+
i5jiE7+8j1RQdsQQby6yKdxUjCk+Ueuk+619mOJ66l+0IwWcMMRfxMafz43B
FJ+gruXDvBxT/Ljp5Gvvv2OKS9fZKBQ5O2OI/+NqKfeeiil+Tkt7xdKnmOJ7
WoRmTDVwwRC3UJ4x9U4jpvil37FBO89iiv+WOCTzVt4VQ1zwZOuBhQWY4i6b
O5Xf7MYUZ3+kPaWX1w1D/JkX35EjkZjim9wCztYswRTnazd40v0VU7yDMXCX
gaM7hviEA/zzdCZjircJ6UWvfIwpPmNez/Xdeh4Y4lb5nYmqDZjiPyuPrVI5
gym+VDz57BIxTwzxhz/n/q1OxxS3FJN8+2ITprhiudGrNSxeGOKqQj3L2AIx
xcUdXG0ezsYUn7Fpzn2ht5jiZvEmTrcsvDHEUwKyNv3owhSvu/L/9/TbmOLb
Jl1lOavmg6l+qqd0ZAWmeOKlvx+qjmCKGy0SXCDL74shPmnb4RjxBExxAdZt
N5atxhR/P/dk5uWrmOLnze7++v8fUxwAa7D84A==
       "]]},
     Annotation[#, "Charting`Private`Tag$72551#6"]& ], 
    TagBox[
     {RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwdyGs4lIkCB3BRuVTMjXdISYhFxiC5vTP/GYMMryitx1m5K6em7SRRuipR
Uo8Isy1OpFYRkqPoNk02q7N0CDPLpotqK0Tlrsnx7Iffl59p9M4NcepqamrU
HI050TleOmpqPBi53J1rGsb7WprMT5XxWGYcrR/Ueeg4MtN2Ye47i9n7BMqj
/F9vsBfWz+chs8X1Z8E8GqD/JJqtzOFbdQ3Mk2jzMP2Pesdj6jQkBV5VaChL
+R+JnCkFg4c/DlbHLlxAA/3vqOWnFPW9q7bgQfqw5NFiHRqe3wnYOaqQ88+W
JzdH+PFgsD4905BFg7f5h2efFB182b0raffzeaBvWc9wtKJhSrE2b0Txiu+R
KDZa7cZH3PF78uaNNMg9fylrL/3C/1y03e5RBx9fNROW7TtAw9LnDW+jbVX8
B+OXUuydgJMJPibhZTQwJRFXNT01YBhTNxB8HEhsm3pQ9oSGbK737YBNWjit
rWGs1w6UnB7R1ZqkQSG1l32iLcHZ0eHQFWYC2PCavv5uRsepssNP1A3pOJbg
sat2twCV3Q1nfw2ggzjXfzK3iImz1i0+PfcE2Nnx5X89SXRkBPvyOsb1YWc5
ahNKEyL7vs71oFI6druWRLQcZePd5ognO8KEGNXb4v7mMR2i4emUH/uNkG1p
7a/xixDUun5J5Wc6jnoERRm5LEPzmtzu4Qkh5ieQ/K5lDLhX/VR36L4Jlh7y
WJHg6QnVt97bRt4MSCY/HfltiSm+6aQl++V5IvhgyB8PdjEwaUPrW71pJdqs
bcovvfFESf9oUWEhA24VlRfy881wJ40hzbMXgXute/G5JgaGGeLI7+XmcDGT
5v2ZKsLy+DzjoWEGXmVFfp+guQodM5s3NLSKEJAu7Y5mM+EznOz7xtkSM2y5
8ZCJF3rz9nLdREwMxGjtrjtsBXrLcVnJv7wQfjrF0WsnEyJzQj1D/h1EN06a
Dd72gvk72XNJARO01lVnaoatofnK5tzpJd5Y5/TadlzOxNIT1YHOzrZ4K9Zt
agr1RlW/n3nhABMFNq405tbVqPUObD1Q5g2d/V3yPUwWHhsJ1nw5awfdDPvX
p8a80aThoX6dx4KbsTyb083BiXlBjfYCH8iG3w5obWVBT6M0MeqoPbJlesW2
uT4wav0xSZ7DgkmqiUfoKi7SGXY/XOn3wbYcdnn1XRYWW4TVb2jmQlqcpbht
tw5fGxemNbxhgUsaVidvdoDbzpNRFkfWYbCzXc2Cro89fYyHYjVHTO17dNX8
93VYvuGl5TVXfXz+krXJV+qIS0RMa5mBL3xuMsbjo/Qh5jw677vaCS+nilT7
t/qidYlpXHqWPuRf3Gcm2pzgamA49K7WF/nNuw/J6vSRYOvQ0x63BqbJDh8q
54txJ+GiS9gLfQg/xnaGajvDgpF1eWGQGBapRBFL2wBicza1pNQZBLw8Xv4s
RlrytXI1rgHsjmTula9dC2lt4XPGkBiIWLEpIMwA9nGu9y161sI5wknY4+IH
/lVFxa00A0juxafV7XJBbOC22slMPxS+3X4xrcYAzRc6Yz/pu+JQ5+xMQa8f
PuqsFKb1GkBVPjvBuemK+pyu+a2r/HEsx/jUBQ0CEosK7fOUGw7l+S4N3euP
pEWjics5BGasc51rR9wQ1aEaSWnyR8VfetoNIQTkZTMvx064w6GUfmGZHoXu
CkqUcZhArMgM7ss9kFP/MIyIpBARFb/i5lUCFjsyGuxkHqAtqFderqBgndJ8
WeMpARMdyXUqhISihEdOVlKI3moqvTn3VZ4HU0ZCSRTzmkt8qyhIg/ef3N5J
wP3gGc/cMBK2e5XbBmsoLORwJE+7CISM1HQpo0j4DEx/5dZTeNWfz72oJHCm
e2wqRkLicDvf9K6Mwk/UljvCPgLfSg8LU1JJDBe1/PNpFwUt0wUdqe8J9Lnn
Pr1cQaLebUObuYICXzfi4ZoPBLbvKSv0rSJxUNHjkKSkkDRzq+793E9X/Sdu
sIbEYvrgDLuXwusuSUHQIAH2SuUEt56EVZrumfAXFGSZnWGmwwTWay0zvisj
EbltY+37DxSSRy/+JRslcL/zcuzTLhKWmn8auA9SqHqpUiaOEQjQvbU6SUni
48XY/VlDFN60hTy2GifQ69Myzu4lceDZHhFnhMLGK4uuZU8QmGgcOBH+gkRB
oLQ7cYyCXfjuhMhpAnYl9tfefyARPrTC/dE4hS1+rTGsGQJ3ewRJWUMkLDKv
/JuYpFDoYrnpt7kXszbyOSMkbjxsjG+cpqDD7F1rryKwJWNPe+IYiZRIz9ZF
XykI1NZ893rux2Tp54lJEgLVf7mbVRT2Dp0xkn4jcHS6IKZxmoTW+eD8qm8U
qnveLfKfJaDndMV2s4rEE+dn07OzFN42C1Wzc1+8o3FsdpbE/wHgeS9W
       "]]},
     Annotation[#, "Charting`Private`Tag$72551#7"]& ], 
    TagBox[
     {RGBColor[1, 0.75, 0], AbsoluteThickness[2], Line3DBox[CompressedData["
1:eJwdyGs4lIkeAHBRuVTMjXeIJMQijPvtnfm7Z3hFaT3Oyl05NW0niVIqJUrq
EWG2xYnUuoXkKEr+DcvqLB3XmWXTRbUVonJncjz74fflpxNxaGe0rIyMDLVC
bkVElruSjAwXNOyaVpqGM8MdrXqXSrgsXTOFH2S50HNmsevGyvcVso87S87y
fr3HXlu/mgvpHfY/O6+iIag+i2BLsniG/aOrBIpcWPhHveU5WRrG+5WL5STF
vE9E1ryYwYU/kqqj1q6hIf3vqOUlFgy/r9bngrClqG29Eg1fPPI9NCUW8a6W
JrSHenNBbUdqujqLhh56H59/Fvfw8HFZSnMuF+h7dzAsDWk4L7bNmRS/5jnF
8TW2OfAg+vxjUfsuGopcfynpLv7K+1JwwLSthwdL8rFax0/ScOOLhncRJlLe
k5lbieZWABdjPbVDSmjIFISWy7vKgXpk3WjAeYC4rvknJc9omMnxeOi7WwEu
K8ppqnQDFF2eVFaYo6FYaI6faRvg6tRE0GZdZzDmti79rkvHSyWnn8mq0+Fc
rNPh2iPOUDnQcPVXXzoS10YuZhcw4apRh+fgY2c41PP1f4PxdEwL8OL2zKiC
qcGUcRDNBTKble76F9PxiH1RaMdZNrzfE/rsYLALTKnsdXz7lI5uEwuJP45o
QKaBkY/cLy5AbR8RVH6h41kn/3ANOy1ot84emJh1gdWxJK9fi4GOVT/VnWrW
ho2nnDbHurqC9NvQQw0PBgrmPp/5bYMOfFNKSfDOcYWApMA/nhxm4JwxbXjb
7i3QZWRceuutKxSNTBXk5zPQoaLyRm6uLjxKYQhzzN2Ac2dg/bVWBk4w+GHf
i/TATleY82eyG2yKydEcn2Dg64yw72Plt0LP4p6dDZ1u4JsqHIhgM9FzIsHr
rY0BLLJFmuPa7jCUc4zj4MbE0UiFI3WnDYHecR6L/uUOIZcTLd0PMdFNj5BN
E30Hbvcu6o49dAe99/hCkMdEWufWKzUTRiD/2vja5Q0esN3qjcmMiIkbL1T7
2diYwDu+cmtrkAdUjXjr5Y8yMc/Ynsbctw1qPfw6T5Z4gNKJftFRJgufajhb
f71qCspp5m8uTXtAq5yT7F0uCx00RZlmA2ZwYZV/o7mzJ+DEu1GFfSxUkSuO
Cz9rDpmoUmiS7QkanT/Gi7JYqJ2s7RS0lQOpDNMfykY8YX8Wu7S6iYXr9YPr
d7ZzQFiYIX5ouh2WGtemNLxlIYdUr07YYwEOhy6G65/ZDmN93TL6dFU8Osxo
4ctYwvzxtnK937fDpp2vDO7Yq+KXrxm7vYSWcIuI7CxR8wLP+4yZmHBV5Ju1
XffaZgWv5gukJ/Z5QecGnejUDFUUfXVcnO2yAns19fH3tV6Q237kFNapYqyJ
xWB3tDXoJFh8rFzNh0exN+2CX6qiy6eoviBFG9BnZNxe688H/WSigKWohnw9
NrWh2AYIcHd69TMfUhLulMpw1ND0TPoxka0tCGvzXzDG+QChm3f7BquhebR9
s/6gLdiEWrkM2nkDr1xc8SBFDQWPY1LqDttBlN/+2rl0b8h/d+BmSo0att/o
i/qsag+n+pYX84a84ZPSFpeUITWUli7Pmt23h/qs/tWdW33gXJbmpRtyBAr0
KxSvUw5wKsdrY9AxH4hfNxW3yYzARaNsm9pJBwjvkU4mtvpAxV8qig2BBIpK
Fl9NX3AEi2L6DS0VCgYqKLe00wRGuemC4yYnyKpvCSbCKAgNj9l8v5xA/YNp
DaboBLQ19ZLbFRQYJbbfluslUFtJcJcKJEFcxCXnKimI2KcjvL/yVa5JiZNB
JBRy24u8qigQBpy4eKCPQMekK67ZwSSYHJPsH6uhYK2ZmaC3n8DAyZp+STgJ
nqMLS5x6Cl6P5HJuSgi8MjA9Hykg4XQ3T6cJKfiJ2vvIZZjAb8WnXRKTSZgo
6Phnbz8FCjprepI/EDjsmN17u4KEeoedXXpiCnjKoS3WHwk8cLQk36uKhCTx
oEW8hIL4xQd1H1Z+oeo/0WM1JKynjy2yhyh40y/I8x8jkL1FMsupJ8EwRflK
yEsKML0vWGeCwB0KWppNSELY/l21Hz5SkDB18y+cIrC573ZUbz8JBvJ/qjmO
UVD1SiqJmybQV/nBtngJCZ9uRp3IGKfgbVfgU8MZAoc8O2bYQyScfH7UzWyS
gl1l6+5kzhI42zh6IeQlCXl+woG4aQpMQ47Ehi0QaFpkfufDRxJCxjc7ts1Q
sNe7M5K1SGDToHN8xjgJ+ull/ybmKMi3M9j928rzWbt4ZpMk3GtpjGlcoECJ
OWRrLiVwb9rR7rhpEhLDXDvXLVHgLGP93ZuVn8bU68QcCc7S/3L2SCk4Nn5F
Q/iNwLMLeZGNCyQoXA/IrfpGQfXg+3U+ywSqWJWZ7JGS8Mzm+cLyMgXv2l2k
yytfeLBxenmZhP8Dax5V1g==
       "]]},
     Annotation[#, "Charting`Private`Tag$72551#8"]& ], 
    TagBox[
     {RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwV0nk01dsXAHCZ3jWU7x2/rueRMfMsLvfLpl7ykiFEJaQMlQZkKMoQKhqk
kkT09EsSCoVUDhmeREL3JZVZJUPDRYbL+/7+2Ous81nr7L32PlvJ79AWf2Eh
ISE/MkTIcO+5riIkhIGc+VOSMWQVN+N5G5+zLkppTNCiYNAZt9CeR7qxxzbv
ck1FWMGdGnDDMEhp4Vy3WYGhn9Hoq+NxJfCYkLWJlcXAlhYVOEh6aHlN0pZH
ylBywzavcDUG89sfGZ8UxpB16RiReVMFRJ2Dl7s0MCjL5y+riGBoNrNPRNRX
FbavyPBeMsBg77jRywbSAUx/fBdSA/E9X+RdbTDoOV66R1wMQ7q9MhhFQh28
mPSY4/YYXGyaMCgg3WqGFfQ+Sh3Kmri9BS4Y2MvoCOzEMRQmOD3R+FEdfDTT
ri3uwqA6786VM79hKL+gfMPeS2ugcnIt63YCBpnPbzZJS2KoSDt8gFejASvz
fMM7UjBwlu5PLyb9NF6Pqy5qwG6XlO75dAwo7go+jlIYkiqQNdvJ0QSs4kO6
Uz4GkaNZsxekMVQV7f2yrkgTgo4mysw9x8BD4rIGXQZDNhEu7okRWsAW7aQ4
iFGB5ZScwmZgKG4Ty8z6uTYcergQGLGSCm1XG7Y+Jl1SdPjwi0/a0Big1pzH
pEJSv7DKDiaGVH3E3IOldCC0JSppWo0K0yGxNdksDG0u83ir6qwDL84rCudu
oEL35ahxRTaGfuwYr07t0IFo9oGF76eocOndPkd1BQzNnPYfU67QhQ96lMmr
kjSgBjjRjDUw9Jo9QMvR1AeLuo9KoXQanFem+g+QPmH2+ty8tT5cdX3o7iBP
A+m+zsoLmhhaVg6Uk9iqD1ui/J4K6dFA3HPrznEtch+c7lfZxutDU92Ts3td
aLBov/PO/3QxVFtlkbm7Wx9K3UK0LTNpMKq730rWGEMiv17JHDUzgIRj74I+
qtGhZjp5n4Ag56n8WXhPrQGoN90bUrVhgH/Ss/pmV/LfQT5XKdsQ2gNfnFDf
woLF30L/OBqDodFom7M3XhnBbEdeRrOnLJwJtVP0voWhB9ov81ZUGEN/dGnP
zlQ5ONI+V3frFYZiZ5ryvGJMQMvQrD4oUx5unvu2ivILQwkXz/RS5EzBRGP2
TdBrBdC2alh8qUJFB5vtDm4vMQWfn2bGonGr4R6v+mKjIxW9vlXeN6q3Frr/
NXA8n6gEhzp/dryLoKLYDe4e/Ky1oPWhcYmWqwxptZIPXP6mopKXhUtPxMyg
JBAX7rytAnyZAMuRF1R0/8TUo127zIDv3vjct1AVNm8cCr73g4qstPQqBivM
QM5f5vexOjUQDSWs3/xBQ90hNjkHJMzh4ByzsbhZHQRLvTVyG2hoPKlFsMfV
HG6VVIkGD60Bt+MePXUhNFSXt6939IY5XGuuFJ6f04CbQ/yc7GwaKhO89u4b
Nodn/mGu9QJNMCzmSV9uoKG27BYOT5kDDaqtnCRcGxSCrshPTNHQae3x8Dd+
HJgL6gtNUNABx+RMnp8sHfEyFst7rnMAa79gc8xSF3qvRBlarKejX13PHvJ5
HBjNyG63cdUD73PHjP88REfnA0wNk1dZwPiwf8k6T31Q/Yz6gq/SkX3cJc4O
sIAvhSPUPI4BbDQZ1pmpp6PeWmfC94gF8PNnwmueGkDJ0CbV7K909MlS1cck
3wL6X5lWW1kbgmT0m/pwOgNtSpU/nfXKArjS6+xqWw2hQYQr/MCKgVjtD1SM
lyxAP7Vk6b2jEaCp0a+UQAb6K7vUxUnDEtLlPgv9em8Ecm0HI+rTGajwymzr
OTdL4PU6DR4LMoZ96bJ3Sp8ykKuXyo2iE5ZQ3secyBozhsXH4onVIwz0mTfq
0nPLEpZ/FtpWRZrAePdrITUqE5UPmj5WaLOEob+y60IXTEBhy8CaYg4TMT73
0B59t4SCrieKV2JMwa6SNhO0i4lk4wPZZQwu9AYX/VNBWQttK5X8k88yUZME
40clhwsFG39lhaSuhYzmsBOogom0On7XOLCDC0Mm9Cptthk8Cc039+pnoqq4
wm65WC5U7T67lJBjBmrxeA5DgoXaOlpP3c7lQnCDsaqtojkkRhbfETJkoZAk
vkLfMy6kmRZeXioyB/BZ7e7oxUIPms8ZrOjngsOXGD1PfQ5Y3/23qCqRhYrl
Df7+c4kLR4sV6KVPOZA9uj8/8T4LbeSfQrsVCEjOn+QdsLeASUll28ReFjqM
2HbrCAK03ss3tLRawMl0+dQ8ERyt8z/Ci91GgLUae1F5myVESPGPKOjjqOTD
iN2pSALG74ftZH+whKJPMhLVHjhS2XGtnHKJgKiDizmR3lzgFW1efyoWR8z+
i4+SigkI57pqdo1xwWdX0OrKuziacog5VttCgMRmysfWA2T9Y823Rbpw1EKZ
i88dIkBwIbiEcZgAv0ClzErS5Vf5rqINEzDZ2XFiZygBmW7RZ/Z340j9rUl6
IuldntcUpyIIENfXD+56gyM3b924vSME5OzR2kWLI2BwKMMw/y2O+rPip40+
EWAY4zDsmU7Atc0BT2w/4oj26duGhjECtheljY08IoCiJNYZ/wVHzu13zvd/
J8Bhkv9Yr5qcxyqf56ZjOOpUOi615Qd5N9yWGllDQMRCVcUX0nWLv8Y+J12t
UklHAhEw/Cb4qss4jsIGs51u/yRgqr7sgA7ZN0rp9lKawhFnOjxl/zQBJ991
fwvtJSCSn/8J8XG0X9r4EP8XmfcPTl3NBwJKBgRvj0zjaF7OMcB/joAg35yL
ov0EjLR7vNCYwdEQk+3OI33zqL9RBjkP10Kp4rRZHIkZNbCr5gnAf8yEVU8Q
oOcdFuo7j6O0a5etoxcJkDTdsV74GwEBm9p2MxbIfvPd+F9JX4ysZWwi+8g2
X+P+D+mmrq/yvAQEDAhOPXw/Q76j95oZCHAkujjXTywR0A3jSWpkfRshU81h
0n1y7x0pIb3ppPPWgwvkXkycl8tcwlEjoSikuExAZVOFeiWZr/TdZymHZRxl
abuevED6XQn27DJ5jjbbCpZJn3xiv/T/+3/tUzPk
       "]]},
     Annotation[#, "Charting`Private`Tag$72551#9"]& ], 
    TagBox[
     {RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwVknk8lWkUx681u/euL1nTZt+undf9UZppEYnSVDRSSmk0SdQMRaRMDYao
JC0kokxpMrJEyNx0VUQoS2lhkF3WeeeP8/l9zvf5nOf8zvOcRX4/eewSZzAY
fnRI0NF153s7BoOA+oXP4v+rS+TyvJ6zBwVJLZVrtikS2DtZWJFL8xsas6nc
hk6BeohUdNFCAhq3fvvFS4zArYRnysKaT4L6Y/Y98roEtjwNs2KIE/h1b7fN
35r9gh/1zh7ytSRgcyh0IJfm29JrVadEXwXiM1qmd50JNNbE3PCSIFD/eK/s
jHBYMPOIpzHnRgCd2d4MSQK8LZkbnVNHBf+U5SckBhJob9Es8ZIioLB7OuOv
mgnBkEmsWvMRArrDh/cypAkYL0+JHrT+Joj8Zt6hGkMg2qWDm0fzWztX3F2W
MiXwkNmumnqFQITSlz0MGQI+o+5bcjVnBXGJuUnBjQSKvdoncuUIFFjy7UZE
DIgVDWpkdhG4t+/peS95AgeaP3Xu8RTD2UNBw88GCORer+UzFGj/ZWKSC5rE
EM7iRmrKMuHRPx/gRb/fttC092NCcRjJpPtcpZiwYm4tnlcmcPLtwAOHVEmc
i/rYuzybidCOxvmNXAIJV55U/lmzAF41c6OG95jQzmQcn6P5tsbHlqylMogx
WhlgUsHESXenuRweAb1DDuuko2SgNFQZb9jKRMKI2NgsSc91J3ag11oWrDYF
GRklFkICooU36X9z3BmwWSdFDsXD1/1cDrNgujhTfVqLwLTDvh+zNRWhlZH1
pseJDV1HWfdMfQLpea5RQyICr/qkv9x2Y8O2xanH24DAQIuLwHGUwD8xMUYH
t7PxUxQVxjQkEHia+kypMHG4eIHPUBgbSmkRqVFGNO+vC93uy0QP60VKwx02
5EsNSvxNCYyEdT937WWiXFxWU0GDA9e4Dam6VgSWx7575zzKQhB/pUTMGAcf
TGqvFzgRWNs25JfRycFqj/Sr3Rk8ONUZc+97E2BLFFX7uKhgfESUkZCpijX+
Hz0uRtP+nsohJEUDbiHufr8eUUeOftPD+HwCo6WH3EPmtbGJV/L4W7AWTrj9
XdrbSv/zJ92B9oWLMZnw05sLxCK8Fqy+sESKiQNRzpf8u5bAu+bEvuyjOlip
O29Ta85EBf/UdFfWMhCfSrTtGhdD97VURgg9Z7SEotoiZ11cil86k660FH73
reclTzNx7m1U/a48PbgKsloub12GU7h/arKICUm301H9GgbI+VIhXRi/HB9+
v2f7qoMJ0w3f3W/YbQgdT2brlzu6OPJxWPGxDAuihcoR/peMIB00mP3hox4y
Zi1KFSxZqJcqDkpuN0bAQemblRIGGN+nM7jKh4VPKyZf9s2YIPjPCsKAb4jq
xavTWs+wYJ7EqbJMMYXtk56m4c1G+EE5pe/4AxacPmfLGiwxg3mDS2SFvzGM
Os59Ve9gIbFyW0lglhna//YIGo42gclBWQ9FeTY8/Rp/iDcyx1kfLwFnlSmu
de3gTPDZWDozGrfwljnqjOssBK/oPqYlCmY72NB/zjp91ICP4wqT9SNbzeDi
vEJ4Ip7er+oD3WY5fBSd3xPY/cYMbYxj11/eYyNgihf/QtUCO4Osoqt2mMNj
xKLtQAcbojGpIirJAonuKd1Wb81BKEZeUZLhIEdaIpdiWGLphqvlPV58NP7h
xnxmwoFlw4z1172WOKH8sCGgmY/uwS3rG37g4K8nwQ+9Wy3BkdNrmV1vAb+2
Sct3URx8L5T6x9HJCn8qZZSuElng6WFfLZMCDshxtdtFBVYIWTd+fnCtJV6K
Ak0ut3CQGee9yULFGuqjjurq5Za48bT634UMLtwr1j0aCLNGVsFVlXY7KxC7
8h2a9bnovZEYq9ppjaq8Dd2b8q1w6e5Ot2wPLkr6NWPaHG3wQRQXnKluDc5L
uaK0cC64v7kkbb9oA2PqvadvsjWWrdUKr77Oxfe/NKoYz9jg5dRtI2MJG1Bk
Z4SckAv5ypZ69U22eJ4dkLfpqA0IMeXA2DEujjMfBFs/sMXpuHL5ks82yIwO
Oa6hwcPs2tay+0p28FAKj9D3tIV5nmlr6woeCJHrlJe/HRJYw9eaa21RJgzn
CYN4uChRJi1eYQeDtOgRKb4dJl45F7Yl89Ar2DEZxrHHGq/Hkluy7ZDcGPdO
rZwHz67KwLYD9kie7F1VxbNHj5aw6sRnHnb0V8gerbEHK5t7qT/CHqThV11F
ZRKyEYXFAtIBULU/rjNoD55rm+0TGxLj0vudXwQ54NHmCF3rzQ4wCMzbf92X
ROx3um/+KnXARrWP5689ckBYyZH0/BgSDJbSuJU8hZBOSTWGPgVV1oqqjgIS
GZoqLH8fCpHrk2qCf6cwo633xLGJhLb9v8PGeRTqvgr3WCRSKFzdPvyF5kEi
T87J2xS4xxLnJ5IobDpmp53ymkTEz/uXvcmnoJdeLRd5nkKD5WRoXzOJVUsK
1aPvUuhyn0j97TKFpPyjnLRWEpXNdRteF1E4WXjrXBbd515TjvJQB82lJTvD
KyjcWBc7/ryWgqQte8G1XhKsZx0Xi5ooYO6ZYWIdhcEbK+Vd+0iU22u/lmmm
cKusbvNGIYXdUzpKkzSvbnIX39ZCoepKb3zzcwoPL39UXt9PQuXcGSPxNgp/
YGB/B32fw554ialBEslqaSLXTgoLSC12/3sKBmreeRvGSJT80bqiu5dC4yq/
lIIeCmJavhdnaC67VfF3i38p2NkEKwR/on1Os+NujpNYY+wujO2nMBo91DJM
12kdOeU7O0Eir0uRNPhK4WZ+ft/EEIU+rdS5nCkShZWZ0z+PUahoDeQUj1C4
GKP0fuM0iUB+vOjJOAUz+Vmzo/T5DjuLmjma14emJPMmKWxPylo7Q+uFZ2fi
PGdpn+7M4eIpuj607LtSWh/WlgTM07z8VewZ+RkK/PBCmwha17pecsmdI7FL
fAln+ywF185ITcEchaX79XS85km8ftF7roDOXwzpf5ufp/eEv3t2nuYiq7dT
/+f/AWpF+nA=
       "]]},
     Annotation[#, "Charting`Private`Tag$72551#10"]& ]}, {}},
  Axes->True,
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImagePadding->Automatic,
  ImageSize->{248.45692630846756`, 749.0777778393839},
  ImageSizeRaw->Automatic,
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}},
  PlotRange->{{Automatic, Automatic}, {Automatic, Automatic}, {
    Automatic, Automatic}},
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{-2.6759029631305937`, -0.015073364419639348`, \
-2.0710664223037343`},
  ViewVertical->{-0.7382972405018414, 0.4640169165413603, 
   0.4894951336130057}]], "Output",
 CellChangeTimes->{{3.889106360196598*^9, 3.889106420925864*^9}, 
   3.8891067354418*^9, 3.889106785673258*^9, {3.889106844081366*^9, 
   3.889106862490477*^9}, {3.8891068970695047`*^9, 3.889106916274973*^9}, {
   3.889106975177526*^9, 3.889107036226392*^9}, {3.8891072038487043`*^9, 
   3.889107246548012*^9}, {3.8891073203849087`*^9, 3.8891073253934383`*^9}, {
   3.889107628134709*^9, 3.889107641513235*^9}, 3.8891076721096277`*^9, {
   3.8891078381705093`*^9, 3.889107875118286*^9}, 3.889108010963447*^9, 
   3.8891080427843847`*^9, {3.88910814489852*^9, 3.889108151121529*^9}},
 CellLabel->
  "Out[209]=",ExpressionUUID->"e332b4fb-2fe5-4215-a29e-0ac87e3fe9d0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], "=", "x"}]], "Input",
 CellChangeTimes->{{3.8891105658243303`*^9, 3.889110569152989*^9}},
 CellLabel->
  "In[243]:=",ExpressionUUID->"82f13c29-55b1-4b4c-b18c-321d96623694"],

Cell[BoxData["x"], "Output",
 CellChangeTimes->{3.889110569526004*^9},
 CellLabel->
  "Out[243]=",ExpressionUUID->"bbc28aa7-ee86-4255-bc63-c5a8fc8f102a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "[", "t_", "]"}], "=", 
  RowBox[{"x0", "+", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", 
    "t"}]}]}]], "Input",
 CellChangeTimes->{{3.889110570509161*^9, 3.889110623594658*^9}},
 CellLabel->
  "In[247]:=",ExpressionUUID->"6d63e23e-e231-491d-9253-f39bce039fde"],

Cell[BoxData[
 RowBox[{"4", "+", 
  RowBox[{"99.99999999999999`", " ", "t"}]}]], "Output",
 CellChangeTimes->{3.889110624024304*^9},
 CellLabel->
  "Out[247]=",ExpressionUUID->"720c5d38-a2c9-49eb-92e5-38b0b3135e60"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"x", "[", "t", "]"}], ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.889110578691597*^9, 3.889110581812928*^9}},
 CellLabel->
  "In[246]:=",ExpressionUUID->"8bff6ec2-d4d2-492f-93aa-8f7e53dbfb55"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.889110582112021*^9, 3.889110609172085*^9}},
 CellLabel->
  "Out[246]=",ExpressionUUID->"be20c864-4919-466f-b9a6-dc465e5fecbb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"B", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x0", "+", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], ",", 
     RowBox[{"y0", "+", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"zf", "-", "z0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x0", "+", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"xf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], ",",
      "y0", ",", "z0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x0", "+", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], ",", 
     RowBox[{"y0", "+", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"zf", "-", "z0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n1", "=", 
   RowBox[{"Cross", "[", 
    RowBox[{"B", ",", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n2", "=", 
   RowBox[{"Cross", "[", 
    RowBox[{"i", ",", "L"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"n1", "-", "n2"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8891131434220057`*^9, 3.8891132250233297`*^9}, {
  3.8891132653551283`*^9, 3.889113289916857*^9}, {3.8891133348626003`*^9, 
  3.8891133355435*^9}},
 CellLabel->
  "In[463]:=",ExpressionUUID->"319a0b8d-63cb-4ad8-a6e5-7b0fb35656dd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "y0", " ", "z0"}], "+", 
    FractionBox[
     RowBox[{"2", " ", "t", " ", "yf", " ", "z0"}], "\[Tau]"], "-", 
    FractionBox[
     RowBox[{"2", " ", "t", " ", "y0", " ", "zf"}], "\[Tau]"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", "x0", " ", "z0"}], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["t", "2"], " ", "x0", " ", "z0"}], 
     SuperscriptBox["\[Tau]", "2"]], "-", 
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["t", "2"], " ", "xf", " ", "z0"}], 
     SuperscriptBox["\[Tau]", "2"]], "-", 
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["t", "2"], " ", "x0", " ", "zf"}], 
     SuperscriptBox["\[Tau]", "2"]], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["t", "2"], " ", "xf", " ", "zf"}], 
     SuperscriptBox["\[Tau]", "2"]], "+", 
    FractionBox[
     RowBox[{"2", " ", "t", " ", "x0", " ", "zf"}], "\[Tau]"], "-", 
    FractionBox[
     RowBox[{"2", " ", "t", " ", "z0", " ", "zf"}], "\[Tau]"]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["t", "2"], " ", "x0", " ", "y0"}], 
      SuperscriptBox["\[Tau]", "2"]]}], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["t", "2"], " ", "xf", " ", "y0"}], 
     SuperscriptBox["\[Tau]", "2"]], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["t", "2"], " ", "x0", " ", "yf"}], 
     SuperscriptBox["\[Tau]", "2"]], "-", 
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["t", "2"], " ", "xf", " ", "yf"}], 
     SuperscriptBox["\[Tau]", "2"]], "+", 
    FractionBox[
     RowBox[{"2", " ", "t", " ", "x0", " ", "y0"}], "\[Tau]"], "-", 
    FractionBox[
     RowBox[{"2", " ", "t", " ", "xf", " ", "y0"}], "\[Tau]"], "-", 
    FractionBox[
     RowBox[{"2", " ", "t", " ", "x0", " ", "yf"}], "\[Tau]"], "+", 
    FractionBox[
     RowBox[{"2", " ", "t", " ", "y0", " ", "zf"}], "\[Tau]"]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.889113175007992*^9, 3.889113189983447*^9}, {
   3.889113279771707*^9, 3.889113287616886*^9}, 3.889113335898961*^9},
 CellLabel->
  "Out[468]=",ExpressionUUID->"425dc098-5291-4f85-a3e3-5b5f60ce9991"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.889114390781539*^9, 
  3.889114392542964*^9}},ExpressionUUID->"79a5e65d-f6f1-4c25-be79-\
35c82791bc9c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"x0", "=", "4"}], ";", " ", 
  RowBox[{"y0", "=", "4"}], ";", 
  RowBox[{"z0", "=", "0"}], ";", " ", 
  RowBox[{"yf", "=", "6"}], ";", " ", 
  RowBox[{"H", "=", "30"}], ";", " ", 
  RowBox[{"zf", "=", "30"}], ";", " ", 
  RowBox[{"xf", "=", "zf"}], ";", " ", 
  RowBox[{"\[Beta]", "=", "2"}], ";", 
  RowBox[{"\[Tau]", "=", "0.26"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "=."}], ";", 
  RowBox[{"B", "=."}], ";", 
  RowBox[{"L", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x0", "+", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], ",", 
     RowBox[{"y0", "+", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"zf", "-", "z0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x0", "+", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"xf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], ",",
      "y0", ",", "z0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "t_", "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x0", "+", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], ",", 
     RowBox[{"y0", "+", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], ",", 
     RowBox[{"\[Beta]", "*", 
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"t", "/", "\[Tau]"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Exp", "[", 
            RowBox[{"zf", "/", "\[Beta]"}], "]"}], "-", "1"}], ")"}]}], "+", 
        "1"}], "]"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Lnew", "=", 
  RowBox[{
   RowBox[{"L", "[", "t", "]"}], "+", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Cross", "[", 
      RowBox[{"B", ",", "i"}], "]"}], "+", 
     RowBox[{"Cross", "[", 
      RowBox[{"i", ",", 
       RowBox[{"L", "[", "t", "]"}]}], "]"}]}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"ParametricPlot3D", "[", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{"y0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"zf", "-", "z0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"-", "y0"}], "-", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"zf", "-", "z0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"xf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", "y0", ",", "z0"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"xf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{"-", "y0"}], ",", "z0"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xf", "+", 
        RowBox[{
         RowBox[{"xf", "/", "\[Tau]"}], "*", "t"}]}], ",", "yf", ",", "zf"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xf", "+", 
        RowBox[{
         RowBox[{"xf", "/", "\[Tau]"}], "*", "t"}]}], ",", 
       RowBox[{"-", "yf"}], ",", "zf"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xf", "+", 
        RowBox[{
         RowBox[{"zf", "/", "\[Tau]"}], "*", "t"}]}], ",", 
       RowBox[{"y0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"zf", "/", "\[Tau]"}], "*", "t"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xf", "+", 
        RowBox[{
         RowBox[{"zf", "/", "\[Tau]"}], "*", "t"}]}], ",", 
       RowBox[{
        RowBox[{"-", "y0"}], "-", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"zf", "/", "\[Tau]"}], "*", "t"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{"y0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{"\[Beta]", "*", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"t", "/", "\[Tau]"}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Exp", "[", 
              RowBox[{"zf", "/", "\[Beta]"}], "]"}], "-", "1"}], ")"}]}], "+",
           "1"}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zf", "-", "x0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{
        RowBox[{"-", "y0"}], "-", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"yf", "-", "y0"}], ")"}], "/", "\[Tau]"}], "*", "t"}]}], 
       ",", 
       RowBox[{"\[Beta]", "*", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"t", "/", "\[Tau]"}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Exp", "[", 
              RowBox[{"zf", "/", "\[Beta]"}], "]"}], "-", "1"}], ")"}]}], "+",
           "1"}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", "Lnew"}], 
    "\[IndentingNewLine]", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Tau]"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.889114405133287*^9, {3.8891145389332*^9, 3.889114656771394*^9}, {
   3.88911469371239*^9, 3.889114801914332*^9}},
 CellLabel->
  "In[558]:=",ExpressionUUID->"e856a64e-3067-4763-b7ca-2695b2709fbe"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"4.`", "\[VeryThinSpace]", "+", 
    RowBox[{"99.99999999999999`", " ", "t"}], "-", 
    RowBox[{"887.5739644970413`", " ", 
     SuperscriptBox["t", "2"]}], "+", 
    RowBox[{"8", " ", 
     RowBox[{"Log", "[", 
      RowBox[{"1", "+", 
       RowBox[{"1.2573139894123502`*^7", " ", "t"}]}], "]"}]}], "+", 
    RowBox[{"15.384615384615383`", " ", "t", " ", 
     RowBox[{"Log", "[", 
      RowBox[{"1", "+", 
       RowBox[{"1.2573139894123502`*^7", " ", "t"}]}], "]"}]}]}], ",", 
   RowBox[{"4.`", "\[VeryThinSpace]", "+", 
    RowBox[{"7.692307692307692`", " ", "t"}], "-", 
    RowBox[{"8", " ", 
     RowBox[{"Log", "[", 
      RowBox[{"1", "+", 
       RowBox[{"1.2573139894123502`*^7", " ", "t"}]}], "]"}]}], "-", 
    RowBox[{"199.99999999999997`", " ", "t", " ", 
     RowBox[{"Log", "[", 
      RowBox[{"1", "+", 
       RowBox[{"1.2573139894123502`*^7", " ", "t"}]}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"30.769230769230774`", " ", "t"}], "+", 
    RowBox[{"769.230769230769`", " ", 
     SuperscriptBox["t", "2"]}], "+", 
    RowBox[{"2", " ", 
     RowBox[{"Log", "[", 
      RowBox[{"1", "+", 
       RowBox[{"1.2573139894123502`*^7", " ", "t"}]}], "]"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.889114554067729*^9, 3.8891145704998837`*^9}, 
   3.889114615775378*^9, 3.889114658290503*^9, {3.889114704656608*^9, 
   3.8891148026027193`*^9}},
 CellLabel->
  "Out[563]=",ExpressionUUID->"30816b23-9991-4021-942b-daa7703bff22"],

Cell[BoxData[
 Graphics3DBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwVjHk41Isexh1ahha/2fyQiIZkG2Mf/JrXcitCi4RzSUI8t1G3EUqbJCod
RyqpQ9f2KGSo64QkmpTUTWWP0mI5kVD2/c75432+z/t5Pu9Xc+/BHUGyMjIy
rtLISePx7o+1MjIEVK0qZf++4511NZyEnA0FF57G6NEINETP1GdIedNN5aN2
bTGCX2yHPu8kCFyo4/9h9wsBsF/vVW5LFohv2mfkrSEw/et90zOyBCK25bfK
tWUJlgT2qbnbEXh3oihwyWIC9EEyear1nqB00EIpN4ZA6pPMZ8sVCHx86HZw
tFUiUFnUQHNZTIfS1rgLKiwCGzn9H360Ngg+GNEGrykwQN+3lWGqS2Cq1fLq
cOsXgc6zO10cOxaCzj6S1LoTkDjcynmbNSKoD35xUmeHEmaXilYfPU5g1cfy
3r0Gc4KJNxkptV7KOC/apLE7hwBT6Je/1EEOn44VvfNNUMXh+qnHOa8JJPE2
Vrh50KDHs5SEpKoh87fhlbRJAq2pxtU/iBUw051oDnmrDv0NNbP/W0tHQs6p
17IqdPiNWJouil6DOy3ll5660UFe6Tp/OZ2JplZjt8RYTRxsGHnTHkFH/E6n
DQ3jbOh9eDrP+I8WkqoU7m7PoiOMn+lXF6MMcTAp25C7FqOK+2x6XtDhODQd
daBLFaMeT5/syePAdXOX8M5POmJst/urWq2GapDiqv7H2lgkogTNqxmwEV8v
OVmlgQNT7KeFtTqYm++oUN3IgHDyR/TzFZrIEZctEnatw84Tnu8eH2JgUp/o
NPTQwvXaUtnpKV1kdo2mp6UxYF1wJyMlZS0eBYW5S+bWg1fYsvxKDQNDDOc9
uyQc1HBe8s+S+lAPuar2fYiBLxf37BIt1cFUyEdRjLoB3OJSW/YqM7FpKNKp
x2IdiPrf7aJsDNFx9QjP2pGJbwG0sJJTuuhNSau3czfC7t+iTP9xkAlHDikb
L1mPge4gsYMXF5yv1R+F15ggXukkFg/poS+vh57BN8Zms26DcQkTq84VbbOw
MMBo9nh4RaUxxF1bOGnfmLimzyeYwYb49Nq8fIOAB4VjzZJwJgsvVO3MRy4Z
wXa5w6aqlzzUyNnK3t3AgrWaJInbwgU3QTz/3s0E1UO932jBLCjKZR32jzFG
supXmcn3JlB9dSBCksyCxmkNW28dHlo6tn6JCjHFv5KVbxdVsrBc2+f+jloe
/vuR/f1GvylmHyyJLe9hgUepFEX6mmBhJM++LNIMA01vZbTpbIR3Mp44y5ii
yzntsWjGDOo7Pq8r5LPxc+Sih1OqKW41PtS4etwcm0oZ4yH+bDhzn91wMjRD
h7DgeQnNAq9WaAbFXWRDMmIzM1FvhlubJ28cSrBASm3YyeoSNkQGJu1vg8zR
ZcYs01exxENRtpXPJzbsBwObvOUtUBZwcT4m3RLap8l0lrwSnDnKriuyLCCs
MeXYa1ghNrLwtgxPCUbRF45ILC2RZJ53Zb7ACvBb4+HmowTjIH6VdrslXPqO
G3lx+RDktxaUxSpB+CgktuSQFY4WqjOLKvlI692fHVushNqMpsAfbD7isgdb
Qp2sMaigZR/boYS52wsT3FI+9N6r1dS9tMaZZLWEDDkSQu0C+Ruu1hBoq8xq
edsgYtnoYXUuiRm9yxb3hq0xUBzmq/LBBgV/KcqXe5KQ5Mx8HjtngyMHZtMj
d9uipcDVMf4UiUDHtbBRt0W4rfv6xn5b+PmHrCnNJ6EdGl9uVG0LeVda58tQ
CnpRtblyjSQ0FIR3XT0pzP0uFLP+TWFvsGZqqZSLHU5EDXtTGGx4c9JXRCF1
57Hz+5tI2JxIdLjsQ6HR67rGUASFJVyusLGZhOdwcXObP4X0QD1/RjSFL10p
vOw2EoktY1MBQgq84y7dXskUrrvue2jfSWI+65R91GkKvxYk9ffcp0DTXNxw
uo9Ep83lxtwCCi6Dow+MyikIVvo9Me8nsT88J81JLO0874TICgoRM2UlfVI+
Lf4zaKCYgnappoF8NYXuZuG17QMklLXaJnjSv0OSe6EGdRSqLzT5aA6R2Epb
rVYp9c60Nw2LOihEjmb/VT1KoqopN7CxWfp3Nf9xxQcK4s9zbYfHSLitLDOM
aKMQsif90qJPFHrqPV/ojpPo2FQ3rizdu/YGmaR0U3DPW1aYNEFi4sG3c7ul
HvlzPKz8OwWj3WGiPdMkjDKNC/v6KSiY/9NRdpjCvi2vAlgzJCrb7SIuSr3Z
yCrWlp8U0qzWeTyXcmeWu4Ar9T7Pxf/5fly6Y3ZYGs+R2Bcf/vbwGIUmDJzV
nqJgJ2O+vlvKx6rjbpCTFJ6d2bbrwAyFI98TVVPnScRMXwt4ME2h9FmJTukc
haL2r8tcFkgomuUZ+Ep7vrzKxMIChd5a+7kFKb8Z+mDs7/5/SZ4y2A==
       "]]},
     Annotation[#, "Charting`Private`Tag$122211#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwVjHk81Psexh1UQ4vfbH7IEs1ItjH2YX7Nx3IrQouEc0mWKa/bpNvYSpsk
CseRCjl0bS8lGdV1siXfJpG6qewRkuVEQtmX4c754/njeb/ez6MdcPIAX1ZG
RsZVGjlpPD7+sVVGBgM16xopxtBsb2MdI7FgR3HCyxh9EgbN0UtNOVLeekfl
jF1nDO8X7kT/QQyDhEbOH3a/YAjo7wJUOlN5ojv2OUVbMFj89YnZZVkMRey7
3yHXmcdbGzSi7m6HwcfzpUFr12CIPI6nLnQ85pWPWyoXxmCQ8SK3foMihvqe
up2c7hDzVOWbSS5ryKC8Ny5BlYahnYzRnh8dzbweY9J4uiIFyEf3Usz0MLTQ
YXVrsuMLT7f+wQDDjgb8K8/EDe4YEjvcLfiQN8VrOvb6gu4BZVheJ9Q4cw5D
m/sqhwMMJby59zlpDV4qcE24S+twAYaoAr/76xzk4PPZ0o++iWoQ1rTwvOAd
hlLYO6vdPEigz7YSB2eoQ+5vk5tI8xjqyDBBP7CNYK431xb8QRMMdtQt/28r
GSUWXHwnq0oGvykrM/noLfCgvfL6Szcywm8OXLuRTYXWDhO35FhtONk89b4r
goziDzrtaJ6lg37PyxXKf3QgpVbx0f48Mgrl5Po1xqiA6Bgu21y4FaaVjtoO
vSYjx4nFqJABNZj2ePniSBEDXHcPCB78JKMY7n5/NWsNUOMrbR59zgR5IcFr
06AgW9Htsgu1WhCyQH9Z0qALkpXuarWdFCSY/xH9aqM2FIgq5AUD2+Dgec+P
z09R0LwB1mvkoQO3G8plFxf0IHdgOjsri4Jsih/kpKVthWf8UHexZDuwS9o3
3KyjoAmK85FDYgbUMd5wruAGoBl8S/37BAV9STpySLhOFxaC+4QxmobgFpfR
HqBCRbsmIp2GLLcB1vS7XZStEXTfOs22caSib4Gk0LKLejCcltVk524Mh3+L
MvvHSSpyZOCy8eLtMDbIFzl4sYDxFfUJ0qkIe6ub/HBCH0aKhsg5HBPYbT5o
OCumos1XS/dZWhrCdP5seHWNCYgG9jCyvlFRugEHox4zgs/vLCp38NigeLZN
HE6loddqdhZT142Bu8FhV+0bNtTJcWUf7aAhG3VxCqudBaxE0conN1NAE8Pf
SMdoSEkuL8w/xgRS1b7KzH8yBbW3IRHiVBrSuqTF9dZlQ3v33i9RwWbwr1SV
e6U1NLSB6fPkQAMb/ttH/545agbLVWtjK4doiE2olkb6msLqVJF9RaQ5jLV+
kGGS6Si8l/LCWcYMBpyznguXzEHzQP+2Eg4d/ZxK8nDKMIO7LU+1bp2zgF3l
lNlgfzpyZtVnOhmZQ7eg+FUZyRLebtTmxyXRkXjKdmmuyRzu7p7PPJVoCWkN
oRdQGR0JDU27PvAtYMCcWmGgagVPhfnWPp/pyH48qNVbwRIqApNWYrKtgHkJ
z6YpKCNnhorrxjxLENSZMey1rCE2suSeDFsZGUcnnBZbWUGKRdHNlWJrAL8t
Hm4+ysiEz6lldlmBy8g5Yy8WB3j3O4orYpWR4FlwbNkpazhTokktreFA1vDx
/NiHyqghpzXoB50Dcfnj7SecbGBcUcc+tlsZSe6tzrHKOaD/Sb2u8Y0NXE5V
T8yRw5GAWayQ6WoDPKbqso63LUSsnw7TZOFoSf+G5eNJGxh7GOqr2mMLxX8p
KVR64khcsNQ/c9UWTocsZ0ce5kJ7satj/EUcBTluBVtNLoRz3be3jHLBzz94
S/l9HDFPxFcaIy4ouJJ635wgQD+qoVCuBUdaioJHrp4ESH4XiGj/JiDgmHZG
uZSLHM5HTXoTMN78/oKvkICMg2evHW/Fke35ZIcbPgS0eN3WmoggYC2LJWhp
w5Hn5MO2Tn8CsoP0/SnRBHwZSGPnd+IouX1mIVBAAPucy6BXKgG3XY8+te/F
0UreRfuoSwT8WpwyOvSEAJL2muZLIzjqtb3RUlhMgMv4dJVxJQG8TX4vLEZx
dDy8IMtJJO1s78TIagIilirKRqR8UfQnf+whAcxybUMFRMBgmyB9/xiOVHQ6
59jS3wnx4xOGjQSghFYf7Qkc7SVpqNdIvctdrZPCbgIip/P/QtM4qm0tDGpp
k/5qcJ5X9xAg6pd0hs3gyG1ThVFEJwHBR7Kvy38mYKjJ87XeLI66dzXOqkj3
rsN807RBAtyL1pekzOForurb1cNSD/85G1r5nQDjw6HCI4s4Ms41KRkZJUDR
4p+OspMEHN3zNpC2hKOaLruIJKm3HFlL2/OTgCzrbR6vpNyZ5s5jSb1+Sfyf
n2alO2q3lYkER0fjwz+EzRDQCmNXmAsE2MlYbB+U8hkUl4nPE1B/ed+hkCUC
Tn9PVstYwVHMYnpg1SIB5fVluuUSAkq7vq53WcWRknmRoa+031dQnVtdJWC4
wV6yKuV3TlTN/N3/D9Q0WVg=
       "]]},
     Annotation[#, "Charting`Private`Tag$122211#2"]& ], 
    TagBox[
     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJxTTMoPSmViYGAwAWJmIA69OVuZgUHAgQEMYDQDgyTLJQ4fVkEM8bt6HO+m
cwlhiKsdW/NYxVEEQ/xc+qk6tSAxDPHvFxZMOx4hgSH+oHr9zdhuKQxxLUPz
QxkzZDDETTS+X824KIchHv/Z3JilQQFD/Mp1A7++FkVM8+8e/Sc0XwlDfF26
ONOlZcoY4l9Cjx5OWKmCIS6Vyi/96qAqhnjeT9Gja4+rYYgvWbeDJeexOob4
zOPbmX791MAQ35daHHzoryaG+BGV05at4toY4j8z7hc1yelgiAuc63esstbF
EH82bc45x2A9DPE3T1LXOUfoY4i/XPlUcIGlAYb4l8XfSnfvxRR/cN50p529
IYa4DY+z+/7TmOL63ev+3fEzwhCfJPWC4ccdTPFrt/0fVWUYY4hvvi/6dtYr
TPH/n1c67Sg3wRB/7DXnYNFvTPHll/fIT60xxRC/nbP6xBYOM0z1Hj9mFXZj
ij82Ed6hLWmOIb4juedf01xM8ZwjxipO8hYY4hNMV075txpT3OdljV6EviWG
eOVaOeH1ezHF2xa/u5braYUhrnVH5sjJ05ji9qqSf5QirTHE32wojpW8iyle
kfdnbnmcDYZ4qU2w5uVXmOKcvhz3TufaYohHrZ7w6uk2TPFVnJLf///HFAcA
j5/Naw==
       "]]},
     Annotation[#, "Charting`Private`Tag$122211#3"]& ], 
    TagBox[
     {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJxTTMoPSmViYGAwAWJmIA69OVuZgUHAgQEMBA4wQIEkyyUOH1ZBDPG7ehzv
pnMJYYirHVvzWMVRBEP8XPqpOrUgMQzx7xcWTDseIYEh/qB6/c3YbikMcS1D
80MZM2QwxE00vl/NuCiHIR7/2dyYpUEBQ/zKdQO/vhZFTPPvHv0nNF8JQ3xd
ujjTpWXKGOJfQo8eTlipgiEulcov/eqgKoZ43k/Ro2uPq2GIL1m3gyXnsTqG
+Mzj25l+/dTAEN+XWhx86K8mhvgRldOWreLaGOI/M+4XNcnpYIgLnOt3rLLW
xRB/Nm3OOcdgPQzxN09S1zlH6GOIv1z5VHCBpQGG+JfF30p378UUf3DedKed
vSGGuA2Ps/v+05ji+t3r/t3xM8IQnyT1guHHHUzxa7f9H1VlGGOIb74v+nbW
K0zx/59XOu0oN8EQf+w152DRb0zx5Zf3yE+tMcUQv52z+sQWDjNM9R4/ZhV2
Y4o/NhHeoS1pjiG+I7nnX9NcTPGcI8YqTvIWGOITTFdO+bcaU9znZY1ehL4l
hnjlWjnh9XsxxdsWv7uW62mFIa51R+bIydOY4vaqkn+UIq0xxN9sKI6VvIsp
XpH3Z255nA2GeKlNsOblV5jinL4c907n2mKIR62e8OrpNkzxVZyS3///xxQH
AKVQ52s=
       "]]},
     Annotation[#, "Charting`Private`Tag$122211#4"]& ], 
    TagBox[
     {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJxTTMoPSmViYGAwAWJmIE6a5MrFwGDnwAAGElDazmHiivLj8d6Y4gf2rWzZ
Pw1T3KbES0rXyh5D/NPcbL1jlzDFD35bWmVg4oAhLpm85XVIK6Z4LyezDP9F
TPGJX95HKig7Yog3F9kUbirGFJ+oddL91j5McT31L9qRAk4Y4i9i48/nxmCK
T1DX8mFejil+3HTytfffMcWl62wUipydMcT/cbWUe0/FFD+npb1i6VNM8T0t
QjOmGrhgiFsoz5h6pxFT/NLv2KCdZzHFf0scknkr74ohLniy9cDCAkxxl82d
ym92Y4qzP9Ke0svrhiH+zIvvyJFITPFNbgFna5ZgivO1Gzzp/oop3sEYuMvA
0R1DfMIB/nk6kzHF24T0olc+xhSfMa/n+m49Dwxxq/zORNUGTPGflcdWqZzB
FF8qnnx2iZgnhvjDn3P/VqdjiluKSb59sQlTXLHc6NUaFi8McVWhnmVsgZji
4g6uNg9nY4rP2DTnvtBbTHGzeBOnWxbeGOIpAVmbfnRhitdd+f97+m1M8W2T
rrKcVfPBVD/VUzqyAlM88dLfD1VHMMWNFgkukOX3xRCftO1wjHgCprgA67Yb
y1Zjir+fezLz8lVM8fNmd3/9/48pDgBV/+Lg
       "]]},
     Annotation[#, "Charting`Private`Tag$122211#5"]& ], 
    TagBox[
     {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJxTTMoPSmViYGAwAWJmIE6a5MrFwGDnwAAGEgcgtJ3DxBXlx+O9McUP7FvZ
sn8aprhNiZeUrpU9hvinudl6xy5hih/8trTKwMQBQ1wyecvrkFZM8V5OZhn+
i5jiE7+8j1RQdsQQby6yKdxUjCk+Ueuk+619mOJ66l+0IwWcMMRfxMafz43B
FJ+gruXDvBxT/Ljp5Gvvv2OKS9fZKBQ5O2OI/+NqKfeeiil+Tkt7xdKnmOJ7
WoRmTDVwwRC3UJ4x9U4jpvil37FBO89iiv+WOCTzVt4VQ1zwZOuBhQWY4i6b
O5Xf7MYUZ3+kPaWX1w1D/JkX35EjkZjim9wCztYswRTnazd40v0VU7yDMXCX
gaM7hviEA/zzdCZjircJ6UWvfIwpPmNez/Xdeh4Y4lb5nYmqDZjiPyuPrVI5
gym+VDz57BIxTwzxhz/n/q1OxxS3FJN8+2ITprhiudGrNSxeGOKqQj3L2AIx
xcUdXG0ezsYUn7Fpzn2ht5jiZvEmTrcsvDHEUwKyNv3owhSvu/L/9/TbmOLb
Jl1lOavmg6l+qqd0ZAWmeOKlvx+qjmCKGy0SXCDL74shPmnb4RjxBExxAdZt
N5atxhR/P/dk5uWrmOLnze7++v8fUxwAa7D84A==
       "]]},
     Annotation[#, "Charting`Private`Tag$122211#6"]& ], 
    TagBox[
     {RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwdyGs4lIkCB3BRuVTMjXdISYhFxiC5vTP/GYMMryitx1m5K6em7SRRuipR
Uo8Isy1OpFYRkqPoNk02q7N0CDPLpotqK0Tlrsnx7Iffl59p9M4NcepqamrU
HI050TleOmpqPBi53J1rGsb7WprMT5XxWGYcrR/Ueeg4MtN2Ye47i9n7BMqj
/F9vsBfWz+chs8X1Z8E8GqD/JJqtzOFbdQ3Mk2jzMP2Pesdj6jQkBV5VaChL
+R+JnCkFg4c/DlbHLlxAA/3vqOWnFPW9q7bgQfqw5NFiHRqe3wnYOaqQ88+W
JzdH+PFgsD4905BFg7f5h2efFB182b0raffzeaBvWc9wtKJhSrE2b0Txiu+R
KDZa7cZH3PF78uaNNMg9fylrL/3C/1y03e5RBx9fNROW7TtAw9LnDW+jbVX8
B+OXUuydgJMJPibhZTQwJRFXNT01YBhTNxB8HEhsm3pQ9oSGbK737YBNWjit
rWGs1w6UnB7R1ZqkQSG1l32iLcHZ0eHQFWYC2PCavv5uRsepssNP1A3pOJbg
sat2twCV3Q1nfw2ggzjXfzK3iImz1i0+PfcE2Nnx5X89SXRkBPvyOsb1YWc5
ahNKEyL7vs71oFI6druWRLQcZePd5ognO8KEGNXb4v7mMR2i4emUH/uNkG1p
7a/xixDUun5J5Wc6jnoERRm5LEPzmtzu4Qkh5ieQ/K5lDLhX/VR36L4Jlh7y
WJHg6QnVt97bRt4MSCY/HfltiSm+6aQl++V5IvhgyB8PdjEwaUPrW71pJdqs
bcovvfFESf9oUWEhA24VlRfy881wJ40hzbMXgXute/G5JgaGGeLI7+XmcDGT
5v2ZKsLy+DzjoWEGXmVFfp+guQodM5s3NLSKEJAu7Y5mM+EznOz7xtkSM2y5
8ZCJF3rz9nLdREwMxGjtrjtsBXrLcVnJv7wQfjrF0WsnEyJzQj1D/h1EN06a
Dd72gvk72XNJARO01lVnaoatofnK5tzpJd5Y5/TadlzOxNIT1YHOzrZ4K9Zt
agr1RlW/n3nhABMFNq405tbVqPUObD1Q5g2d/V3yPUwWHhsJ1nw5awfdDPvX
p8a80aThoX6dx4KbsTyb083BiXlBjfYCH8iG3w5obWVBT6M0MeqoPbJlesW2
uT4wav0xSZ7DgkmqiUfoKi7SGXY/XOn3wbYcdnn1XRYWW4TVb2jmQlqcpbht
tw5fGxemNbxhgUsaVidvdoDbzpNRFkfWYbCzXc2Cro89fYyHYjVHTO17dNX8
93VYvuGl5TVXfXz+krXJV+qIS0RMa5mBL3xuMsbjo/Qh5jw677vaCS+nilT7
t/qidYlpXHqWPuRf3Gcm2pzgamA49K7WF/nNuw/J6vSRYOvQ0x63BqbJDh8q
54txJ+GiS9gLfQg/xnaGajvDgpF1eWGQGBapRBFL2wBicza1pNQZBLw8Xv4s
RlrytXI1rgHsjmTula9dC2lt4XPGkBiIWLEpIMwA9nGu9y161sI5wknY4+IH
/lVFxa00A0juxafV7XJBbOC22slMPxS+3X4xrcYAzRc6Yz/pu+JQ5+xMQa8f
PuqsFKb1GkBVPjvBuemK+pyu+a2r/HEsx/jUBQ0CEosK7fOUGw7l+S4N3euP
pEWjics5BGasc51rR9wQ1aEaSWnyR8VfetoNIQTkZTMvx064w6GUfmGZHoXu
CkqUcZhArMgM7ss9kFP/MIyIpBARFb/i5lUCFjsyGuxkHqAtqFderqBgndJ8
WeMpARMdyXUqhISihEdOVlKI3moqvTn3VZ4HU0ZCSRTzmkt8qyhIg/ef3N5J
wP3gGc/cMBK2e5XbBmsoLORwJE+7CISM1HQpo0j4DEx/5dZTeNWfz72oJHCm
e2wqRkLicDvf9K6Mwk/UljvCPgLfSg8LU1JJDBe1/PNpFwUt0wUdqe8J9Lnn
Pr1cQaLebUObuYICXzfi4ZoPBLbvKSv0rSJxUNHjkKSkkDRzq+793E9X/Sdu
sIbEYvrgDLuXwusuSUHQIAH2SuUEt56EVZrumfAXFGSZnWGmwwTWay0zvisj
EbltY+37DxSSRy/+JRslcL/zcuzTLhKWmn8auA9SqHqpUiaOEQjQvbU6SUni
48XY/VlDFN60hTy2GifQ69Myzu4lceDZHhFnhMLGK4uuZU8QmGgcOBH+gkRB
oLQ7cYyCXfjuhMhpAnYl9tfefyARPrTC/dE4hS1+rTGsGQJ3ewRJWUMkLDKv
/JuYpFDoYrnpt7kXszbyOSMkbjxsjG+cpqDD7F1rryKwJWNPe+IYiZRIz9ZF
XykI1NZ893rux2Tp54lJEgLVf7mbVRT2Dp0xkn4jcHS6IKZxmoTW+eD8qm8U
qnveLfKfJaDndMV2s4rEE+dn07OzFN42C1Wzc1+8o3FsdpbE/wHgeS9W
       "]]},
     Annotation[#, "Charting`Private`Tag$122211#7"]& ], 
    TagBox[
     {RGBColor[1, 0.75, 0], AbsoluteThickness[2], Line3DBox[CompressedData["
1:eJwdyGs4lIkeAHBRuVTMjXeIJMQijPvtnfm7Z3hFaT3Oyl05NW0niVIqJUrq
EWG2xYnUuoXkKEr+DcvqLB3XmWXTRbUVonJncjz74fflpxNxaGe0rIyMDLVC
bkVElruSjAwXNOyaVpqGM8MdrXqXSrgsXTOFH2S50HNmsevGyvcVso87S87y
fr3HXlu/mgvpHfY/O6+iIag+i2BLsniG/aOrBIpcWPhHveU5WRrG+5WL5STF
vE9E1ryYwYU/kqqj1q6hIf3vqOUlFgy/r9bngrClqG29Eg1fPPI9NCUW8a6W
JrSHenNBbUdqujqLhh56H59/Fvfw8HFZSnMuF+h7dzAsDWk4L7bNmRS/5jnF
8TW2OfAg+vxjUfsuGopcfynpLv7K+1JwwLSthwdL8rFax0/ScOOLhncRJlLe
k5lbieZWABdjPbVDSmjIFISWy7vKgXpk3WjAeYC4rvknJc9omMnxeOi7WwEu
K8ppqnQDFF2eVFaYo6FYaI6faRvg6tRE0GZdZzDmti79rkvHSyWnn8mq0+Fc
rNPh2iPOUDnQcPVXXzoS10YuZhcw4apRh+fgY2c41PP1f4PxdEwL8OL2zKiC
qcGUcRDNBTKble76F9PxiH1RaMdZNrzfE/rsYLALTKnsdXz7lI5uEwuJP45o
QKaBkY/cLy5AbR8RVH6h41kn/3ANOy1ot84emJh1gdWxJK9fi4GOVT/VnWrW
ho2nnDbHurqC9NvQQw0PBgrmPp/5bYMOfFNKSfDOcYWApMA/nhxm4JwxbXjb
7i3QZWRceuutKxSNTBXk5zPQoaLyRm6uLjxKYQhzzN2Ac2dg/bVWBk4w+GHf
i/TATleY82eyG2yKydEcn2Dg64yw72Plt0LP4p6dDZ1u4JsqHIhgM9FzIsHr
rY0BLLJFmuPa7jCUc4zj4MbE0UiFI3WnDYHecR6L/uUOIZcTLd0PMdFNj5BN
E30Hbvcu6o49dAe99/hCkMdEWufWKzUTRiD/2vja5Q0esN3qjcmMiIkbL1T7
2diYwDu+cmtrkAdUjXjr5Y8yMc/Ynsbctw1qPfw6T5Z4gNKJftFRJgufajhb
f71qCspp5m8uTXtAq5yT7F0uCx00RZlmA2ZwYZV/o7mzJ+DEu1GFfSxUkSuO
Cz9rDpmoUmiS7QkanT/Gi7JYqJ2s7RS0lQOpDNMfykY8YX8Wu7S6iYXr9YPr
d7ZzQFiYIX5ouh2WGtemNLxlIYdUr07YYwEOhy6G65/ZDmN93TL6dFU8Osxo
4ctYwvzxtnK937fDpp2vDO7Yq+KXrxm7vYSWcIuI7CxR8wLP+4yZmHBV5Ju1
XffaZgWv5gukJ/Z5QecGnejUDFUUfXVcnO2yAns19fH3tV6Q237kFNapYqyJ
xWB3tDXoJFh8rFzNh0exN+2CX6qiy6eoviBFG9BnZNxe688H/WSigKWohnw9
NrWh2AYIcHd69TMfUhLulMpw1ND0TPoxka0tCGvzXzDG+QChm3f7BquhebR9
s/6gLdiEWrkM2nkDr1xc8SBFDQWPY1LqDttBlN/+2rl0b8h/d+BmSo0att/o
i/qsag+n+pYX84a84ZPSFpeUITWUli7Pmt23h/qs/tWdW33gXJbmpRtyBAr0
KxSvUw5wKsdrY9AxH4hfNxW3yYzARaNsm9pJBwjvkU4mtvpAxV8qig2BBIpK
Fl9NX3AEi2L6DS0VCgYqKLe00wRGuemC4yYnyKpvCSbCKAgNj9l8v5xA/YNp
DaboBLQ19ZLbFRQYJbbfluslUFtJcJcKJEFcxCXnKimI2KcjvL/yVa5JiZNB
JBRy24u8qigQBpy4eKCPQMekK67ZwSSYHJPsH6uhYK2ZmaC3n8DAyZp+STgJ
nqMLS5x6Cl6P5HJuSgi8MjA9Hykg4XQ3T6cJKfiJ2vvIZZjAb8WnXRKTSZgo
6Phnbz8FCjprepI/EDjsmN17u4KEeoedXXpiCnjKoS3WHwk8cLQk36uKhCTx
oEW8hIL4xQd1H1Z+oeo/0WM1JKynjy2yhyh40y/I8x8jkL1FMsupJ8EwRflK
yEsKML0vWGeCwB0KWppNSELY/l21Hz5SkDB18y+cIrC573ZUbz8JBvJ/qjmO
UVD1SiqJmybQV/nBtngJCZ9uRp3IGKfgbVfgU8MZAoc8O2bYQyScfH7UzWyS
gl1l6+5kzhI42zh6IeQlCXl+woG4aQpMQ47Ehi0QaFpkfufDRxJCxjc7ts1Q
sNe7M5K1SGDToHN8xjgJ+ull/ybmKMi3M9j928rzWbt4ZpMk3GtpjGlcoECJ
OWRrLiVwb9rR7rhpEhLDXDvXLVHgLGP93ZuVn8bU68QcCc7S/3L2SCk4Nn5F
Q/iNwLMLeZGNCyQoXA/IrfpGQfXg+3U+ywSqWJWZ7JGS8Mzm+cLyMgXv2l2k
yytfeLBxenmZhP8Dax5V1g==
       "]]},
     Annotation[#, "Charting`Private`Tag$122211#8"]& ], 
    TagBox[
     {RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwV1Hk81GkcB/Ax1CLVb2bM/JDImdzMOGd++bBdtlKRZbdUlGNLWlQUtRVS
tKXZQsVml4pkrI7Fotx0Ua6KknJsJDpGzmF/+8fzel7P+/V9Pcf3+309On57
3P2ZDAbDjx7y9PB8cUmPwSCgYV/G/H82DFk1lHCi3Ck3oeaYsSKBpiOTDRm0
93v6tbleMYGcaPjNRoJAwn2HS85yBAL4xzqP7zSH1wc151/UCLiwIwPf0t4s
7+xRo2AJye8uGTmLCEz8+Dc/hkngp103axRSLaGwPnim2YjAzUzpjJ48gQWH
hTcoZSv8KJe8ZdqSjhu0flRN+9Hc0hXiQCvM3tGv6eFM4MWh/B2zZxGYpz8T
/2zCCpu5nOhDrgTO1n6wvEa7mif3mp6dNW7WijqubSDgOt9UtnI2AeJU4QBn
tzW2Lkm6MOVLoDgj+/zJbwgw2XOf73xgjcIhW97VYwRSq/6oVVEmsMSnh3HL
h4+5Gdv2PUkgsF6lS5xH+82AAElpNB/bNyS0TIgJKHpqbXWbQyAk6wXJuMgH
cfuVeF0mgYi+i6NnVAjs+liv86mRj6ADsfPHqwh4KZ0z4swn8KnmN3tXMwHU
FZoU18xigbfueIK6KoFbv6JVXC7AnjuTgfvnsvA4pfr7f2g/d2CcsfGJADUB
BnUZXBbiuph6m7gE/Ajf6rTXAoTdj4wbMWBhJPSXkjQeAVsfo6CuKQEenNZm
Xl7BQsu5yEFtdfq9Xmh9am2DKPXdk5/iWfitfaeboRaB5en1R4yTbPDKXHEo
RZkNVsA6Np+uj/M7v2d79WzhWNGpE8Zh47Quy/8N7cNbGAfnmdoixeOO5xpN
NlReNxWeWUKg93l6WYzAFu6RfmUMczZme3/vM2hM59+3r3nWclvUVpSe+mkD
G1OuPtlXzAhMRluPxO2wRf7GUBNhKht9ZruWqvEJ+PZFvV/6uy2OHWwP6jTg
oGTk+E4ZRcBT92aWjZwdDGtvdOs7q8I/7m5lnQcBMyIve88lOzQEPjhs6M7D
1DdhCw9E0/2SYJulE2CP0ScZyXXeajgZtlJ7SxbdJyOSSwek9uiKyn/hk6iB
vQ3jFVmNBDaxHNfoBTvA2MquMihVE3/8+nGe4hgBp4lnM7p1DhAYjbYGPdWC
ydLqqUd6LGzTLTLz1nDE1i92fIUji3CjrfhsjRsLMylB8ZJtjmh5Zul2OlYH
e5q+PGnfz4KT/5/bz190hPGrmmn2ZV0k3VMu2PAnC5fNbO6WNzlCEkgym67q
QTo/QNj7gIVSiTxvMVMIqWdN1bYcfaxd1R184zMLp/ULZH+bCqHhP3/BQIUB
FMIop9aFbAwOXKmy9RIiZJxbk1dnCNl0R4nGCjaMG0LF76OEyJIUKQR3L8bG
Q14vKkLZeKQXWfQpQ4gLdYXMiXEj/NEtTU9LY2NRSBnrZaUQd/3DPSplS2CV
16ZyrpqN7KPxd853CVGt/9AhjjSBVtB5zQ/DdL+8zQ2dmhZiPOh12DEtU7gd
T23zU+PACWenn6qLQDSccT4oNEPH+Ugrx2UcDLf7h+6wEaEvOa3B2cMcW349
yF++hwPDtiRLcp0Igz3+km+9LaD/rvx1cAoHxV2KO6T+IvTn9LIyHCyxStBj
+rWSA5NwdmDWIRGkmV/3lZTR/033av209xyIdU1SGsUidDXaFC91soJyVGvl
Po4qvpue2HTvqggilW9X3ntohWp5EbNgqSpeXWWuPVEigkWiZPqlmzXKh/ve
KwaqQq8mx8q6QQSxxjvG2EtraDwO2V8pVsUcp3bd/DcitHWse3swiI+dYrXs
/DJVXFPJ+6IlFeHWa+6HiwN8TP0zO7a4VxUjGxoXlilQmPmS41IUIcBgy1OG
AYuLvaFV10x4FLq/S6sImxRAy/3N4jwHLj67h4kHDShcay7VPh9tg5WF7K9B
vlwMpHwx6hdQ6AjOrb+taIvHc3X8j5/iIlS6QK5gGR2/auxiaKItkuvCD5ff
5iLj6CxjmTu9v4BTZKJuh9KwTPvNXVwYecu1qPhRKNp+avpYuh0MjpLpqko8
jGrXnyzeQyG4mq/vom2P2Ii8bIYVD7zdBhb3oykk2eScm861B7Yu8nTbzINv
UYFWcgKFNf3R5t4WDnC6/iy3KJaHW1qSG3opFA7kaXHyyxyQ1rcrM/YvHi5z
LX0Dsygczxxq2+3qiCFlXZfYDh5+fxt+V72AgvFLzer7Dx0RI9ZMzJAn4TrM
bbxeSsHJQH1K9wch9s+R7tWyIFH4Z0HO+3oKg3+F+6i/EiL33/lKxV4kTttt
GlNvoRAZMpUesYWuT+7aZfG/kLj+jSCtpZPCPpHHkuYBEbb6Bi0qvE7C+mp7
l/0ABaW1ip0Pd9PnH6y7Kt9M4mfBiaYMKQXZmWCJ6s8U/AJ1Ugtp5zuFNTbQ
PtT05LBPGIXUjVEnd7WQaLEV1k/R3ux9QXt4P4XZFhbBza0kTnUH53mPUEjf
YezLPkLhbXeyVeZzEvH/bl9BfKVgFb2mx1tM4cLagFKXThK9qctvHR6l8GNu
0kDv3xQUdWY1He0nsWDVyCHvCTrPQ9J/zIvpfMzbWmUzQIJXbTQWR7uT1Q+J
ESUU9k8W3e6nPTfGPeQW7QaFOqZK5RR6WoNTNgySOJyb6DZvksJw5c3dpvcp
lCe0bNYZJqGald1ZRXtMe8vHsA4KEdLMf8ulJESPTJeay+h9FzpUlLyiIHkj
e753hMQzTY3ITbQHbUs/q9BFobfB64HRVxJRbCXJCdrX9vlbJ/dQ8MiZk5c0
SiLr7tDcbtrJz1/Diz9QMN8SHrZtgsTeR4PpKdMUlG02LWN+pBCw+vF21UkS
GWMThdW0T0XcU139mUKa/WLPetoTg4iGT7S/kcXfeUnnT5nTYWcpIxH62mNo
9QyFFgzGGYxTcGbYLOmhvWt1zFgk7bUx678Pod8X+eG0Ruo0idHa0ukrtBfW
3jYspO+V3/5uzpoZEuNMOblm2q8rqY/O0HNfnYtshnZZwfqZ/9f/ARWrAu8=

       "]]},
     Annotation[#, "Charting`Private`Tag$122211#9"]& ], 
    TagBox[
     {RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwV1Hk41NsbAPCxVEj5zvpFImuyjxljmfnm5ba5lULiVioKU0nXqChakaKk
uVkqSpFIxtWGUMeujbJVlJTlRqJlZB1+398f73Oe83nO857zvuc8R9dvn7u/
PIVC8SNDgQzPd1f0KRQMNO3KScaQUfCqobjTyDEvruakiRIGTccnGzJI7/f0
a3O5aQpyguFPGzAM4p7aX3GSw1AA52Tnqd0W4PVN3emYOgbOtPDAz6Q3Kzh5
1ChageSqc0buIgwmNj3kRMljaNeeuzWKqVaguD5optkYg7uZ0hl9BQwtOMq/
Q6iwYZNc8tZpKwx2DVq/qCb9RF7ZCnEgG2bv7NfycMLg3ZGCnbNnYWi+wUzs
mwk2bGHSI4+4YHCh9pvVLdLVPZm39G2t4W6toOOWGwYuamaylbMxhJ0tGqDv
tYZtSxIvTfliUJKRk3RmDobkafPe7n5mDUVDPFb2SQxSq67XqqpgaIlPD+We
DwfmZWw/8CoOg/WqXeJ80u8GBEjKIjmwwy2uZUKMgZKn9jbXuRgKznqHUy5z
ALv/QbwuE4Owvsuj51UxtOd7ve6PRg4ID0WrjVdh4KV80ZiuhqEfNf/YuZhz
QUOxSWnNLCqw1p2K02Bg6N45aBUjLux7MBl4cB4VXqZUb3xE+sVD45QNr7hQ
E2BYl8GkQkyXvP5mJob8MN/qtI9cED0NjxkxpMJIyLHSNBaGeD7Gwq4pLjxL
0JG/toIKLRfDB3U0yHq9oPW1tQ1EaOyd/BFLhX/ad7saaWNoeXr9cZNEG/hg
oTSUokIDasA6GscYQ05f/N7s1+eBQ0WnrohOgwQ9qv8n0oe3Ug7PN+NBiscD
zzVaNFD92FR0fgmGet+ml0dxeeAe7ldOsaDBbO+NPoMmZP99+5pnLedBbUXZ
2V1uNJhy8cm5aY6hyUjrkZidPCjYEGLKT6VBn/mepeocDPn2RXxdepUHJw+3
CzsN6VA6cmq3jMCQp97dLBs5WzCqvdNt4MQA/5jHlXUeGDLH8nP2XbGFhsBn
R43cWTA1R7TwUCSG3sXxsnQD7GD0VUZynbc6nBGt1NmaRb6TEcmVQ1I76Ioo
eOcTrwn7G8YrshoxtJnqsEY/yB5M2LaVwlQtuH7u+3ylMQw5TryZ0auzB67x
aKvwtTaYLq2eeqFPRdv1is29NR1g2y9bjuLxRXCnreRCjSsVzaQIYyXbHaDl
jZVrQrQu7Gv69ar9IBU5+t/YkXTZAUw+1EzTrulB4hOVQrcbVHTN3OYxanIA
SSAu35StD1K1AH7vMyoqkyiwFsvzQepZU7U91wDWruoOuvOTihIMCmUPzfig
6a+2YKDCEBRFhGPrQhoaHLhZxfPiQ/A4sya/zghk0x2lmitoyKQhRPw1gg9Z
kmLFoO7FsOGI17uKEBp6oR9e/CODD5fqiuQnxo3herc0PS2NhhYFl1PfV/Lh
sX+oR6VsCbDz21QvVtNQzonYB0ldfKg2eG4fg5uCtjBJ69swDVE/54VMTfNh
XPhRdFLbDFxPpbb5qdORI1yYfq0hAKzhvNNhvjl0JIWzHZbR0XC7f8hOGwH0
Jac1OHlYwNZzhznL99GRUVuiFb5OAIM9/pI/vC3B4Av6GJRCRyVdSjul/gLo
z+2lZthbwSpuj9nvSjoyDaUFZh0RgDTz94HScvK/6V5tkPaVjsR6pimNYgF0
NdqULHVkg0pEa+UBOgP9OT2x+Um2AASqf6x88pwN1QoC+cKlDPQhW37t6VIB
WMZLpt+7WgMa7vuqFMhA+jW5bOsGAYg1v1DG3luD5svgg5ViBprr2K5X8EkA
bR3rPh8WcmC3WD2noJyBbqnm/9KWCuDeR+a3ywMcmHo0O7qkl4FG3BoXlisS
MPMr17k4jAuDLa8phlQm2h9SdcuURUD3n2kVokkuaLt/Wpxvz0Q/3UXiQUMC
bjWX6SRF2sDKItpvoS8TDaT8Mu7nEtARlFd/X4kHL+fp+p86y0Qh0gVyhcvI
9avGLofE8yC5LvQous9EGSdmmcjcyfxcerGphi2UiTLttnQxkbG3XIuqHwHF
O85On0y3BcMTeDpDmYVGderPlOwjIKiaY+CsYwfRYfk5FDYLsfYaWj6NJCDR
JvfidJ4dwLZFnq5bWMi3uFA7OY6ANf2RFt6W9uB4+01ecTQL3dOW3NFPIeBQ
vja9oNwe0vr2ZEb/y0LXmFa+gVkEnMocatvr4gBDKnrO0R0sdPVz6GONQgJM
3mtVP33uAFFirfgMBRy5DDMbb5cR4GioMaX3Fx8OzpXu17bEUdGNwtyv9QQM
/hvqo/GBD3n/qSmXeOEowXbzmEYLAeHBU+lhW8n7yVu7LPYYjm7P4aa1dBJw
QOCxpHlAANt8hYuKbuPIOru9y26AAOW1Sp3P95L7H67LVmjG0d/c000ZUgJk
54MkjL8J8AvUTS0ineMoamwgfajp1VEfEQGpGyLO7GnBUQuPXz9FerP3JZ3h
gwTMtrQMam7F0dnuoHzvEQLSd5r40o4T8Lk7mZ35Fkex/+1Ygf0mgB25psdb
TMCltQFlzp046k1dfu/oKAGb8hIHeh8SoKQ7q+lEP44WrBo54j1B9nlI+sii
hOzH/G1VNgM4YlUbj8WQ7sj+Kz6slICDk8X3+0nPi3IPvke6YZGumTIioKc1
KMVtEEdH8+Jd508SMFx5d6/ZUwJQXMsW3WEcMbJyOqtIj2pv+S7qICBMmvkf
kuJI8MJsqYWMzLvQvqL0AwGST7K3+0dw9EZLM3wz6cLt6RcUuwjobfB6Zvwb
RxE0Zclp0tf2+Vsn9xDgkTs3P3EUR1mPh+Z1k47//B1a8o0Ai62hou0TONr/
YjA9ZZoAFZvNy+S/ExCw+uUOxiSOMsYmiqpJnwp7wlj9k4A0u8We9aTHC7GG
H6R/ksU+eE/2T4XeYWslw1HIR4+h1TMEtMBgjOE4AU4UmyU9pHetjhoLJ702
av3GYLK+8G8JmqnTOBqtLZu+SXpR7X2jIvJcBe1f5q6ZwdG4vJxcM+m3lTVG
Z8ixr85ZNkO6rHD9zP/n/wOnyzPv
       "]]},
     Annotation[#, "Charting`Private`Tag$122211#10"]& ], 
    TagBox[
     {RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[2], 
      Line3DBox[CompressedData["
1:eJwV1mk8lG0XAHBpI0REipKlQrKUJS2ckOzckxlLYWZC1lKyG9maezQl2UJF
iyjVk60i0klIJKX97ZmntJBsKYQs7+3D9eX/4fqd5fqdcymzD9J8hIWEhHKp
M5c6C6IfJCxZIg3/87kNAoEYEHFf7U7w0DQ6ouuFd7E9sPQtXhMV1ujxJk7+
RNF68CE6FkcbOUGcZ11qQIodXk+PvyIerA064q//XD1HgKH+K8moUEds0Qld
cTJPF1zDXFkn5u2GK2MLMwbNCbzY8zDk14weHM9+Xjt4yBl+T35L0f9Lwz9J
RW+X+G2C/B2C+3k/6DAzNmZgLE1Hm18DBcOv9UFGODT5/l86JBed7E7bQEf1
5yPBgV36MMeZ5ugnzgCey1rFSCs6mkNrRMCoPog9qjc4pMUArzi1KEkOHc+N
tGUqyhoAGTB+bGg/A8o2FI9MddJRI+fDlV/2BvCPkEly+HMGaPZ/s0rIZ2B9
qo3XpjIDGA++/9Us2gXmu2teEhl2wYe3C3qanQzhQrvJfu9kF4De0RvDoq5o
pTZ2b7u7IdCHFpayUl1g4EKD1EMlV+RKGQ6k7jOEn35HtgxfdAFFVjfM2Lhi
at/Bta1hhsBUSXuU/dgF1JVVx7QuuKJPMDO7OccQGu6ZBOVKuMJquwpTEUs3
DMsad77w3hDco9Q+6qS4QptpYohwsjuOKffa+NgaQarYth9lzm4wsGRoXEuw
Fz9PtUbGzd8MTTVfhr9Gu4PtWlW/0XgmZlp8tXgsYwzp/t2VRaw90I1Cm49E
sNHdoLAje8AY5ibkV9gZ7YX0Fv/ny9K8MfhzTWlBwxYwcLfg/OreCxN6Ntcs
EnwRxxPqAhO3wjUlmXYyywMyC0Xe+uT5YXMUXNlntw06RpfIT+p5QsPy8hqL
awEYMVldsVZmO8h9HxlqqfaE7/yaF4OZQRgzrcD1b98O7RLF8VXmXrC9Xyy2
suQA5vQFHwu/YAIa0a8Wvan1gnTt1kXfHUIwrkepyM/fFJT12vWz5ZhQPufG
zJT5IYwclRanrQDILxEPsHRigrFyxqXDDoeRmTpnecAJgEP2EkNWSUyY7ujz
z90VinXbxTRrJgAWpA9I3b3LhAVD6td3MI7gvYTo3/fDd8AmKxY37DsTunR/
PzjFDEOZP1cXrRvZAZH9MqJnZVgQz44/FeoWjhvnvdBzPWgGztq+m6ZMWZDA
26E0vj8CL2r9KL81ZgZVFfOfb93PgvJCkVEhn0hUG0roi+WYg3p4+PmwUywI
v5rijBFRuHl9ukm8tAUIFNI7yypZsPm8wzwpbjSa5WqVipdYwLJbDiERr1nw
aEM1pyYxBvd4Za/fsG0nkB+ZK7tHWWCT6qprkBWLVTv//HjzcSeIDQev1VvK
BrcPu5RHszj4mWa0JY9jCa6L/qxQ1mGDesAfj1Xpcfgk5dTq34q7QNmh44O3
DRus8usE6oVHUSUvMEu+fRcEP2vcuYDNBo2LthXrafH4zNqAuTvaCpxYh4lb
UWzIszvnt00QjyXupY2extbwPbLRdjSVDROCkKwZnwQs/d+B/TET1nBB2tRX
9iIb7GXZfx99S0CnDNXDWRU2EGQ4YfWxnA25Z837j4ckonJxl1RTgi0893VR
qnvIhjRzm3ibX4nIqRC5t2+XHUj3HPtU+YwNjUWPd18/lITRQX3wS8IeMvVq
Mib+xwY5oXWayyaTsLZXQvjVD3sw2Nrh8PArG0bti1SCOcmo9HSKN7/OAQLU
h3tS+tnwc6LG5LXoMRy6tqHlxFVHYO+PKhEbZsMzd9V3SieP4cgnOs/Xwgky
N5cMvR1jQ3bA9bvCi7m4imnc0VrpBPwjrkQP5XI3Km02SnHRcCy0s+qOE5RF
3sqYoHyOc8cnljQX08wbVhVVOYGMkDsqjrNB/pW13EM5LvpbF6sm1DrB3sWl
1V6UtyeqFB1V4uIaVjzDuMEJSi6/1fpEeaqamduULhdPdTYzy186QVF1k3zr
BBsSqyPF/u7mYtHxadHHv5xgmqmgZj3JBt6zl6dncrmovX8Go/UIWNDqQtIo
z1kvnbLoHBfFr9y5RWwiQExT5cUeyvHQUKJsPhfDLAqb1A0IMGKx5Q9Q7jpw
Om79JS7+KFYNfruZgI1fz4adptxsJT3LpYSLe6aqzxkCAe8Iu8CXlDtJVEHp
PS52J8VyJx0IcG31trSYYkNs5KmT+z5wkaYvzS0KIiBEQS3WhvL8dSnvDgi4
2LdDKjbxAAGLhzk5TpRPH1m5NvojFyNO2uV5hhAw3Cx8bC/lvSqyT9K+cFH6
dbzjsiMEyD/csyGU8q8uW7XrermY0PnfueMxBCgnXqg5S/nKC0Zhyye5OHCi
6FHkcQJ0byq8eE/50NvM4ReKJHYfljAPvUqAZ8HrFQLKI9zyWKJKJIbbaCTE
lhCQ1N9i+YnyCt/iF6BMYp112sCxGwQUHPXf2TUbv+bbe7fWkKg2AC65pQRc
L0gS/KTcjcstO6lNYpWkAbO+ioDNZ9YY/6Y8JOOhYaMuiZr7y+Xb7hFwqGRB
xAjlzcbCDyY3krhjB0foXS0BZUK83HHKz7llvAs0IlHi2qTHABJAD86MEppm
w6TCgI4NkDgeWuK08gkBBhbbuudQ/krdsS3BjEShxeeSNFoJsOxbazSX8vL/
KoKrLUgsPyr4ZtBGwFOyiTOf8lUO5F11axK7pInNji8IeOgbe2QB5RInRphM
WxIzmpPU974k4Ht/uP1Cyh/F+Erk2JMIcQut/F8ToNCytUiE8ptRjgcX0kic
lJorm/yeAD/RhWtFKeeJP1YzdSYxOiGm/vQHAgIb5XmzHusOgnAGiR/lLQsK
BAR8Pnzo6awPrqnJ+ceVxGur912/+ZGAfdwlv2fdXc/IpcudRPPPHV01nQR4
HBn/O+v6ppXyqzxInCrKIlq+ELCsTKN71hdKbxTQvUiUqbre++4bAaWllypn
3TOotPAki8QST9nb3d0EqHZ7e8/6Cymdg437SGz/0nFztIcAaA4Znc1LqP7m
tikfEiPTvr6e30dA+eOmgFnPMNOSMPAjkXvTZoPsAAGcQdrEbN2qatfdLQwi
sXOPbID+LwL2T6fIznrz1sK0fw+QGBsX7WgxTNV/TFxmtv5bspSClx4iUVHf
wNt5lIDomLFKYcovf16ikxxGomT0DYWwCQKUelhus/1l7uUtrY0gcTrPv+7Y
JAGj4ss/zVDvRLR2cvJ3FInrQjhp2dME2MDhzEnKpYz/e7MvjsRAl5L6KmEa
nHj6b84w5ayjnH/MSRIvj672mllEgzf70PEX5Xc4/16PSSFxMPts7BIJGqSa
jnwfpLw62uhGBZ/E2xoHn6hKUs5zrv9B+QvOp9uqaSRqW6gMWcnQgHdnROoj
5dHzx/rm5pK4Xw4jsxRocLpSbVU95S2rRX40lJB4X1/e30iLBs0qXRJ1lAfv
mFf76waJu33PN5hp00BOVLqzmvLjaoK01bdIlJp5Yu+gSwO1zhK9Mso9HdTM
YytIFD64osdHnwaXNvTF5FNu/GdOy6ZaEk8lFZif2UaDA9tFbs/Oh4aBZubl
NhILlx7hCdvToCI8olaE8uLC8dLknyQ6xUju/htMgys1joaCv2wwfHOx3dGQ
h/mushNhpTSgBZk2dlDuN+bz0nUzD010n77yK6dBYIjP1mbKm06ffc/awkNZ
Sdu3eyppcPcGXVBOeVKEe3+oCQ81Sy7uNquigcOx9j9cyvnaKhtzLHko/eSu
xhKkwc+uIFKT8jfu5bqdDB6+k6uwvdNOg4JNgTJe1Jxf6VkgFBbBwwXZJn6r
Bmmg9WzJIIfaL1K54p8vV/GQbDNb7Ku9GwTSCyWX/WaDyN+X40qWKSjXl7yq
oXo3aN7uy/XvY0NZbtGgZ0sKfutRkeCaOMMCle5sBrUfFR3aN2rYHcezA23r
1j1yhki8J/HxPRukK0I5Ku+P453z5tmv6HT4z8MtMYHav4uXC718uZePzjPn
JZw66ZCqU2hmS3mKx6DWai8+WovV5DV8oUPU8m1fl1Ku2HYpJYjFx4BhPXfj
LjpkODu3FrdRdfOk28735eNPBe0Q1V460Iy1NZ4+ZcODK18GDQ/ycVO/99j4
MB3k5zapSraywbk44n5eAh/Z70aiSkUYEBYRKhf3mMpLVs7fu4iPMlv7zMx1
GeCZ/kPIgnLtpesUyq7ycePnAoW6jQxYkX73qSjl+a9G2qdK+Ki7rWKtsQED
1js7i2Q1sWHe89YdZ27xcSuOv9TZwgCbwAuSJY1sIFSdLVuq+LhqkRhfyYIB
Jd11ns8esUGn61qHbisVf4pvoIgrdX9ipWc65SqmR0s5bXy82qgZwHVnQJPV
PGBQPqEjebqlnY9nThBn53kwoM+/okhQT81VSU9371d8zAp5nDmHzYB3TJd5
vdT/x8myXCJHwMdEjtvXqUAGyD5aI/kP5fgvY863j3x8M2MYzjnAgPpgp78h
lBdFVv7R+8zHxWGRW6ZCGDDvWk3EKLJh9VhuX2sXHzV717lPhTGg+sHkwmrK
gyKUe+V7qL7szL7NiWSA4vqzUTGU521i9fn08tFmp7/5dDQDRLTPPN1Oec6E
68/yfj7uWXZx7lEOA2zFhoSEKPfIE/kzM8jHNd+3j84cZcD/AW2X9JI=
       "]]},
     Annotation[#, "Charting`Private`Tag$122211#11"]& ]}, {}},
  Axes->True,
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImagePadding->Automatic,
  ImageSize->{433.58499251054394`, 433.9992173676366},
  ImageSizeRaw->Automatic,
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}},
  PlotRange->{{Automatic, Automatic}, {Automatic, Automatic}, {
    Automatic, Automatic}},
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{1.5470689914948723`, -0.08994561057079155, 3.008070365316292},
  ViewVertical->{-0.32852615043591255`, 0.5103917972258711, 
   0.7947142768343257}]], "Output",
 CellChangeTimes->{{3.889114554067729*^9, 3.8891145704998837`*^9}, 
   3.889114615775378*^9, 3.889114658290503*^9, {3.889114704656608*^9, 
   3.889114802668639*^9}},
 CellLabel->
  "Out[564]=",ExpressionUUID->"fe77a514-ce0e-4983-9d39-4930d7c930ae"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.889114413626062*^9, 3.889114457532221*^9}, {
  3.88911449377381*^9, 
  3.889114535677754*^9}},ExpressionUUID->"af70589f-d469-41c6-a098-\
534143d75d19"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cross", "[", 
  RowBox[{"B", ",", "I"}], "]"}]], "Input",
 CellChangeTimes->{{3.889114586041894*^9, 3.889114589902878*^9}},
 CellLabel->
  "In[487]:=",ExpressionUUID->"4ee82780-035c-4372-83b1-288a7992b54a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"4", "+", 
     RowBox[{"99.99999999999999`", " ", "t"}]}], ",", "4", ",", "0"}], "}"}], 
  "\[Cross]", "\[ImaginaryI]"}]], "Output",
 CellChangeTimes->{3.8891145902198267`*^9},
 CellLabel->
  "Out[487]=",ExpressionUUID->"3f4f756b-862b-45e1-bee1-b386ade9faab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["I"], "Input",
 CellChangeTimes->{{3.889114597243548*^9, 3.889114602311969*^9}},
 CellLabel->
  "In[489]:=",ExpressionUUID->"84400078-b700-4a96-8cdb-611dd11c6eb2"],

Cell[BoxData["\[ImaginaryI]"], "Output",
 CellChangeTimes->{{3.8891145974508047`*^9, 3.889114602651637*^9}},
 CellLabel->
  "Out[489]=",ExpressionUUID->"58707923-f7e8-41ec-86ef-40aedfff7d1b"]
}, Open  ]]
},
WindowSize->{1920, 948},
WindowMargins->{{0, Automatic}, {0, Automatic}},
Magnification:>2. Inherited,
FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 226, 4, 61, "Input",ExpressionUUID->"f2d7bf67-519b-4366-9a10-f19376de6bb8"],
Cell[787, 26, 735, 12, 254, "Text",ExpressionUUID->"0859e4b4-741b-4eea-b2b6-e446b9af7816"],
Cell[1525, 40, 729, 16, 90, "Input",ExpressionUUID->"fb3dee39-fae9-47d5-bb54-52d21df6980e"],
Cell[CellGroupData[{
Cell[2279, 60, 5166, 159, 575, "Input",ExpressionUUID->"a2747aaf-59c9-498b-a918-186b6556d2ae"],
Cell[7448, 221, 21653, 391, 357, "Output",ExpressionUUID->"e3d31eff-fa78-4a3d-b32b-cb4941e6cb3e"]
}, Open  ]],
Cell[29116, 615, 778, 13, 300, "Text",ExpressionUUID->"4f909b03-d913-443c-a4a6-f3494bf7bc30"],
Cell[CellGroupData[{
Cell[29919, 632, 4722, 128, 575, "Input",ExpressionUUID->"11989f93-be16-48a1-a569-51c9c6fedfc0"],
Cell[34644, 762, 986, 24, 140, "Output",ExpressionUUID->"cc6aeaa5-bd21-40df-a73c-0bcdddca2e74"],
Cell[35633, 788, 931, 22, 146, "Output",ExpressionUUID->"16627d68-aafc-46e2-95ea-aaf1e7eebc8d"],
Cell[36567, 812, 930, 22, 147, "Output",ExpressionUUID->"12883af7-1ba5-4948-ad7f-848461617d5a"],
Cell[37500, 836, 570, 9, 98, "Output",ExpressionUUID->"022399d2-cc62-4be7-8f15-7c5cf34586f4"]
}, Open  ]],
Cell[38085, 848, 244, 6, 70, "Text",ExpressionUUID->"f793f32c-92e9-4351-8473-a2dae6cc6203"],
Cell[38332, 856, 154, 3, 61, "Input",ExpressionUUID->"4cd1f983-1d3f-4c40-a304-a94297c27f3d"],
Cell[CellGroupData[{
Cell[38511, 863, 4841, 154, 575, "Input",ExpressionUUID->"f22d796e-8c26-40e2-a559-5ca656291d70"],
Cell[43355, 1019, 21693, 392, 1268, "Output",ExpressionUUID->"52e4d4d2-530f-4fa6-9eed-3323f6a48cbc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65085, 1416, 7591, 232, 707, "Input",ExpressionUUID->"10526195-ea54-4a0e-8820-82ea8749f184"],
Cell[72679, 1650, 22121, 398, 1594, "Output",ExpressionUUID->"e332b4fb-2fe5-4215-a29e-0ac87e3fe9d0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94837, 2053, 229, 5, 90, "Input",ExpressionUUID->"82f13c29-55b1-4b4c-b18c-321d96623694"],
Cell[95069, 2060, 153, 3, 98, "Output",ExpressionUUID->"bbc28aa7-ee86-4255-bc63-c5a8fc8f102a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95259, 2068, 365, 11, 90, "Input",ExpressionUUID->"6d63e23e-e231-491d-9253-f39bce039fde"],
Cell[95627, 2081, 215, 5, 98, "Output",ExpressionUUID->"720c5d38-a2c9-49eb-92e5-38b0b3135e60"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95879, 2091, 255, 6, 90, "Input",ExpressionUUID->"8bff6ec2-d4d2-492f-93aa-8f7e53dbfb55"],
Cell[96137, 2099, 177, 3, 98, "Output",ExpressionUUID->"be20c864-4919-466f-b9a6-dc465e5fecbb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96351, 2107, 1956, 62, 355, "Input",ExpressionUUID->"319a0b8d-63cb-4ad8-a6e5-7b0fb35656dd"],
Cell[98310, 2171, 2274, 62, 210, "Output",ExpressionUUID->"425dc098-5291-4f85-a3e3-5b5f60ce9991"]
}, Open  ]],
Cell[100599, 2236, 152, 3, 61, "Input",ExpressionUUID->"79a5e65d-f6f1-4c25-be79-35c82791bc9c"],
Cell[CellGroupData[{
Cell[100776, 2243, 7400, 237, 883, "Input",ExpressionUUID->"e856a64e-3067-4763-b7ca-2695b2709fbe"],
Cell[108179, 2482, 1503, 38, 200, "Output",ExpressionUUID->"30816b23-9991-4021-942b-daa7703bff22"],
Cell[109685, 2522, 26557, 474, 964, "Output",ExpressionUUID->"fe77a514-ce0e-4983-9d39-4930d7c930ae"]
}, Open  ]],
Cell[136257, 2999, 200, 4, 61, "Input",ExpressionUUID->"af70589f-d469-41c6-a098-534143d75d19"],
Cell[CellGroupData[{
Cell[136482, 3007, 230, 5, 90, "Input",ExpressionUUID->"4ee82780-035c-4372-83b1-288a7992b54a"],
Cell[136715, 3014, 324, 9, 98, "Output",ExpressionUUID->"3f4f756b-862b-45e1-bee1-b386ade9faab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137076, 3028, 176, 3, 90, "Input",ExpressionUUID->"84400078-b700-4a96-8cdb-611dd11c6eb2"],
Cell[137255, 3033, 191, 3, 98, "Output",ExpressionUUID->"58707923-f7e8-41ec-86ef-40aedfff7d1b"]
}, Open  ]]
}
]
*)