TLTAdiscrete.nb

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

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

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    138239,       2629]
NotebookOptionsPosition[    134767,       2569]
NotebookOutlinePosition[    135121,       2585]
CellTagsIndexPosition[    135078,       2582]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["The discrete-time Selection-Recombination model", "Title",
 CellChangeTimes->{{3.76961155003321*^9, 3.7696115576952972`*^9}, {
  3.769838577019224*^9, 
  3.7698385809515953`*^9}},ExpressionUUID->"0076b2a0-89d4-4d5e-b432-\
c834ab667302"],

Cell["\<\
Main aim of code: produce plots/animations for the discrete-time model (the \
animation became part of the ICDEA 2019 talk)\
\>", "Text",
 CellChangeTimes->{{3.76961156024691*^9, 3.769611606077366*^9}, {
  3.769838555166814*^9, 3.769838560662224*^9}, {3.769845185090892*^9, 
  3.769845187255365*^9}, {3.769937365506826*^9, 3.76993742257633*^9}, {
  3.7706575627511463`*^9, 3.7706575729786797`*^9}, {3.771066591574647*^9, 
  3.771066622370244*^9}},ExpressionUUID->"bfa890bc-8651-4f7f-8957-\
efccbb55d737"],

Cell[CellGroupData[{

Cell["1. Main code", "Section",
 CellChangeTimes->{{3.769770575764393*^9, 
  3.769770577466976*^9}},ExpressionUUID->"790d2514-088a-4686-90d5-\
a711d2434532"],

Cell["\<\
You should get:
1) A list of steady states in (u,v,q) coordinates
2) An animation showing the effect of the graph transform on each step
2) A plot of the approximate invariant manifold\
\>", "Text",
 CellChangeTimes->{{3.769937278367711*^9, 
  3.769937345120454*^9}},ExpressionUUID->"33a87ac4-c653-4a37-8c00-\
0dfeda27beae"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"starttime", "=", 
    RowBox[{"SessionTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Main", " ", "code", " ", "starts", " ", 
    RowBox[{"here", ".", " ", "Assign"}], " ", "fitnesses", " ", "and", " ", 
    "recombination", " ", "rate", " ", "here"}], "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"bb", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"A11", "\[Rule]", ".1"}], ",", 
     RowBox[{"A22", "\[Rule]", "1"}], ",", 
     RowBox[{"A33", "\[Rule]", "1"}], ",", 
     RowBox[{"A44", "\[Rule]", "1"}], ",", 
     RowBox[{"A12", "\[Rule]", "0.3"}], ",", 
     RowBox[{"A13", "\[Rule]", "4"}], ",", 
     RowBox[{"A42", "\[Rule]", "4"}], ",", 
     RowBox[{"A43", "\[Rule]", "2"}], ",", " ", 
     RowBox[{"\[Theta]", "\[Rule]", "1"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"r", "=", 
    RowBox[{"10.", "/", "32"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"A", "=", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A11", ",", "A12", ",", "A13", ",", "\[Theta]"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"A12", ",", "A22", ",", "\[Theta]", ",", "A42"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"A13", ",", "\[Theta]", ",", "A33", ",", "A43"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"\[Theta]", ",", "A42", ",", "A43", ",", "A44"}], "}"}]}], 
      "}"}], "/.", "bb"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<Fitness matrix:\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "A", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xx", "=", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "z", ",", "w"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rr", "=", 
   RowBox[{"{", 
    RowBox[{"w", "\[Rule]", 
     RowBox[{"1", "-", "x", "-", "y", "-", "z"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"wbar", "=", 
    RowBox[{"xx", ".", "A", ".", "xx"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F0", "=", 
   RowBox[{
    RowBox[{"x", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"A", ".", "xx"}], ")"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "+", 
    RowBox[{"r", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"y", " ", "z"}], " ", "-", 
       RowBox[{"x", " ", "w"}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G0", "=", 
   RowBox[{
    RowBox[{"y", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"A", ".", "xx"}], ")"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], "-", 
    RowBox[{"r", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"y", " ", "z"}], " ", "-", 
       RowBox[{"x", " ", "w"}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H0", "=", 
   RowBox[{
    RowBox[{"z", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"A", ".", "xx"}], ")"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], "-", 
    RowBox[{"r", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"y", " ", "z"}], " ", "-", 
       RowBox[{"x", " ", "w"}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"I0", "=", 
    RowBox[{
     RowBox[{"w", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"A", ".", "xx"}], ")"}], "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "+", 
     RowBox[{"r", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"y", " ", "z"}], " ", "-", 
        RowBox[{"x", " ", "w"}]}], ")"}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F1", "=", 
   RowBox[{"F0", "/", "wbar"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G1", "=", 
   RowBox[{"G0", "/", "wbar"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H1", "=", 
   RowBox[{"H0", "/", "wbar"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"I1", "=", 
    RowBox[{"I0", "/", "wbar"}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "Transform", " ", "to", " ", "new", " ", "coordinates", " ", "u"}], "=", 
     
     RowBox[{"x", "+", "y"}]}], ",", " ", 
    RowBox[{"v", "=", 
     RowBox[{"x", "+", "z"}]}], ",", " ", 
    RowBox[{"q", "=", 
     RowBox[{"x", "+", "w"}]}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"trans", "=", 
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"u", "\[Equal]", 
        RowBox[{"x", "+", "y"}]}], ",", 
       RowBox[{"v", "\[Equal]", 
        RowBox[{"x", "+", "z"}]}], ",", 
       RowBox[{"q", "\[Equal]", 
        RowBox[{"x", "+", "w"}]}], ",", 
       RowBox[{"1", "\[Equal]", 
        RowBox[{"x", "+", "y", "+", "z", "+", "w"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z", ",", "w"}], "}"}]}], "]"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"TT", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x", " ", "w"}], " ", "-", " ", 
     RowBox[{"y", " ", "z"}]}], " ", "/.", "trans"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"wright", "=", 
  RowBox[{"Flatten", "[", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"TT", "\[Equal]", "0"}], ",", "q"}], "]"}], "]"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"check", "[", 
    RowBox[{"{", 
     RowBox[{"x_", ",", "y_", ",", "z_", ",", "w_"}], "}"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"NonNegative", "[", "x", "]"}], "&&", 
    RowBox[{"NonNegative", "[", "y", "]"}], "&&", 
    RowBox[{"NonNegative", "[", "z", "]"}], "&&", 
    RowBox[{"NonNegative", "[", "w", "]"}]}]}], ";"}], "\[IndentingNewLine]", 

 RowBox[{
  RowBox[{
   RowBox[{"checku", "[", 
    RowBox[{"{", 
     RowBox[{"u_", ",", "v_", ",", "q_"}], "}"}], "]"}], ":=", 
   RowBox[{"check", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "q", "+", "u", "+", "v"}], ")"}], ",", 
      RowBox[{"(", 
       RowBox[{"1", "-", "q", "+", "u", "-", "v"}], ")"}], ",", 
      RowBox[{"(", 
       RowBox[{"1", "-", "q", "-", "u", "+", "v"}], ")"}], ",", 
      RowBox[{"(", 
       RowBox[{"1", "+", "q", "-", "u", "-", "v"}], ")"}]}], "}"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"w1", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"F1", "+", "G1"}], ")"}], "/.", "trans"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"w2", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"F1", "+", "H1"}], ")"}], "/.", "trans"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"w3", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"F1", "+", "I1"}], ")"}], "/.", "trans"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Steady", " ", "states", " ", "in", " ", "u"}], "-", 
     "coordinates"}], "..."}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"aa2", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"w1", "\[Equal]", "u"}], ",", 
       RowBox[{"w2", "\[Equal]", "v"}], ",", 
       RowBox[{"w3", "\[Equal]", "q"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "v", ",", "q"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tt2", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u", ",", "v", ",", "q"}], "}"}], "/.", "aa2"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"uc", "=", 
   RowBox[{"Select", "[", 
    RowBox[{"tt2", ",", 
     RowBox[{
      RowBox[{"checku", "[", 
       RowBox[{"Chop", "[", "#", "]"}], "]"}], "&"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<Steady states in (u,v,q):\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", "uc", "]"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Discrete", "-", 
     RowBox[{"time", " ", "map", " ", "in", "  ", 
      RowBox[{"(", 
       RowBox[{"u", ",", "v", ",", "q"}], ")"}]}], "-", "space"}], "..."}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"map", "[", 
     RowBox[{"{", 
      RowBox[{"u_", ",", "v_", ",", "q_"}], "}"}], "]"}], "=", 
    RowBox[{"{", 
     RowBox[{"w1", ",", "w2", ",", "w3"}], "}"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Plots", " ", "the", " ", "simplex", " ", "in"}], " ", "-", 
     "space"}], "..."}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tetra", "=", 
    RowBox[{"Plot3D", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{"u", "+", "v", "-", "1"}], "]"}], ",", 
        RowBox[{"(", " ", 
         RowBox[{"1", "-", 
          RowBox[{"Abs", "[", 
           RowBox[{"u", "-", "v"}], "]"}]}], ")"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"v", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<u\>\"", ",", "\"\<v\>\"", ",", "\"\<h\>\""}], "}"}]}], 
      ",", 
      RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Directive", "[", 
          RowBox[{"LightBlue", ",", 
           RowBox[{"Opacity", "[", "0.3", "]"}]}], "]"}], ",", 
         RowBox[{"Directive", "[", 
          RowBox[{"LightBlue", ",", 
           RowBox[{"Opacity", "[", "0.3", "]"}]}], "]"}]}], "}"}]}]}], 
     "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Algorithm", " ", "to", " ", "compute", " ", "a", " ", "sequence", " ", 
     "of", " ", "manifolds", " ", "by", " ", "graph", " ", "transform"}], ",",
     " ", 
    RowBox[{"starting", " ", "from", " ", "Wright", " ", 
     RowBox[{"manifold", ".", " ", "Treat"}], " ", "the", " ", "last", " ", 
     "manifold", " ", "an", " ", "an", " ", "approximation", " ", "of", " ", 
     "the", " ", "invariant", " ", "manifold"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalSigma]old", "=", 
   RowBox[{"{", 
    RowBox[{"u", ",", "v", ",", 
     RowBox[{"q", "/.", 
      RowBox[{"Expand", "[", "wright", "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plotold", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{"\[CapitalSigma]old", ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "False"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Green", ",", 
        RowBox[{"Opacity", "[", "0.99", "]"}]}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<u\>\"", ",", "\"\<v\>\"", ",", "\"\<q\>\""}], "}"}]}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"frames", "=", 
   RowBox[{"{", 
    RowBox[{"Show", "[", 
     RowBox[{"plotold", ",", "tetra"}], "]"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"steps", "=", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<-----\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalSigma]new", "=", 
      RowBox[{"map", "[", "\[CapitalSigma]old", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"plotnew", "=", 
      RowBox[{"ParametricPlot3D", "[", 
       RowBox[{"\[CapitalSigma]new", ",", 
        RowBox[{"{", 
         RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"v", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}]}], ",", 
        RowBox[{"Mesh", "\[Rule]", "False"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Green", ",", 
           RowBox[{"Opacity", "[", "0.99", "]"}]}], "}"}]}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<u\>\"", ",", "\"\<v\>\"", ",", "\"\<q\>\""}], 
          "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"AppendTo", "[", 
      RowBox[{"frames", ",", 
       RowBox[{"Show", "[", 
        RowBox[{"plotnew", ",", "tetra"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"\[CapitalSigma]old", "=", "\[CapitalSigma]new"}], ";"}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "steps"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"animation", "=", 
   RowBox[{"Animate", "[", 
    RowBox[{
     RowBox[{"frames", "[", 
      RowBox[{"[", "iterations", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"iterations", ",", "1", ",", 
       RowBox[{"steps", "+", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"AnimationDirection", "\[Rule]", "Forward"}]}], "]"}]}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Static", " ", "photo", " ", "of", " ", "approximate", " ", "invariant", 
    " ", 
    RowBox[{"manifold", "."}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g1", "=", 
   RowBox[{"frames", "[", 
    RowBox[{"[", 
     RowBox[{"steps", "+", "1"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g2", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PointSize", "[", "0.04", "]"}], ",", " ", "Black", " ", ",", 
      " ", 
      RowBox[{"Point", "[", "uc", "]"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"g1", ",", "g2", ",", "tetra"}], "}"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}], "\[IndentingNewLine]",
   "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Calculate", " ", "time", " ", "taken", " ", "to", " ", "run", " ", "the",
      " ", "code"}], ";", " ", 
    RowBox[{
    "this", " ", "will", " ", "vary", " ", "depending", " ", "on", " ", "the",
      " ", "model", " ", "of", " ", "your", " ", "computer", " ", "and", " ", 
     "how", " ", "many", " ", "times", " ", "you", " ", "iterate", " ", "the",
      " ", "graph", " ", "transform"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"endtime", "=", 
   RowBox[{"SessionTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"timetaken", "=", 
   RowBox[{"UnitConvert", "[", 
    RowBox[{
     RowBox[{"Quantity", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"endtime", "-", "starttime"}], ")"}], ",", 
       "\"\<Seconds\>\""}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"MixedUnit", "[", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Hours\>\"", ",", "\"\<Minutes\>\"", ",", "\"\<Seconds\>\""}], 
       "}"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Time taken to run code:\>\"", ",", "timetaken"}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{
  3.7696104938656063`*^9, {3.769610861698374*^9, 3.769610909932581*^9}, {
   3.76961125230621*^9, 3.769611290312046*^9}, {3.76961132215127*^9, 
   3.769611496420086*^9}, {3.769611535059908*^9, 3.7696115435158653`*^9}, {
   3.769611644089143*^9, 3.769611930297613*^9}, {3.769612117669353*^9, 
   3.7696121287468224`*^9}, {3.769612369692134*^9, 3.769612385234992*^9}, {
   3.769612446759404*^9, 3.769612574898946*^9}, {3.769612744560998*^9, 
   3.769612771441228*^9}, {3.769612882422914*^9, 3.769612887599752*^9}, {
   3.769612938019166*^9, 3.769612971684884*^9}, {3.769613244246422*^9, 
   3.769613260687903*^9}, {3.7697669556150093`*^9, 3.769766963193025*^9}, 
   3.769767845982162*^9, {3.7697680528650093`*^9, 3.7697680619879923`*^9}, {
   3.769768094699815*^9, 3.7697681329684973`*^9}, {3.769768218231063*^9, 
   3.769768219236916*^9}, {3.769768443030807*^9, 3.769768443170307*^9}, {
   3.769769160278964*^9, 3.769769191135024*^9}, {3.769769556276737*^9, 
   3.7697695640370417`*^9}, {3.7697702400157423`*^9, 3.769770240481922*^9}, {
   3.769770302131619*^9, 3.769770305108492*^9}, {3.769770374105331*^9, 
   3.769770395391386*^9}, {3.769770468131198*^9, 3.7697704776660624`*^9}, {
   3.7697705273185062`*^9, 3.7697705308497667`*^9}, {3.769770627751265*^9, 
   3.769770658623479*^9}, {3.7697706937688828`*^9, 3.769770735705873*^9}, 
   3.769770929587369*^9, {3.7697712836721*^9, 3.769771286236383*^9}, 
   3.769771336877623*^9, {3.769771387963829*^9, 3.769771395896408*^9}, {
   3.7697714384541616`*^9, 3.769771442246086*^9}, {3.769771481438158*^9, 
   3.769771520856474*^9}, {3.7697715932990913`*^9, 3.769771593980762*^9}, {
   3.769771630185565*^9, 3.769771641075677*^9}, {3.769771713146646*^9, 
   3.769771740411425*^9}, {3.769771786477395*^9, 3.769771868060831*^9}, {
   3.769771975901041*^9, 3.769772005220051*^9}, {3.7697884170842047`*^9, 
   3.769788593976289*^9}, {3.769788742885973*^9, 3.769788756246516*^9}, {
   3.769788793542164*^9, 3.769788797440667*^9}, {3.7697982330471*^9, 
   3.769798264648261*^9}, {3.769838878326768*^9, 3.7698390009157257`*^9}, {
   3.769839056648095*^9, 3.769839057784666*^9}, {3.7698394516353397`*^9, 
   3.7698394801935663`*^9}, {3.769840489161261*^9, 3.7698404930870523`*^9}, {
   3.769843764241013*^9, 3.7698437957103863`*^9}, {3.769843914989922*^9, 
   3.76984392195322*^9}, {3.769844131535657*^9, 3.76984414146939*^9}, {
   3.769844324484776*^9, 3.769844361291278*^9}, {3.769844414595499*^9, 
   3.769844498816133*^9}, {3.769844547505393*^9, 3.769844553833468*^9}, 
   3.769850811967207*^9, {3.7698563748971043`*^9, 3.769856382542214*^9}, 
   3.769926647934156*^9, 3.769926849816177*^9, {3.7699270892928534`*^9, 
   3.769927095135541*^9}, {3.769927934488577*^9, 3.769928012151074*^9}, {
   3.769930622025874*^9, 3.769930665076782*^9}, {3.769936252675829*^9, 
   3.769936255694378*^9}, {3.7699367922958307`*^9, 3.7699368339295397`*^9}, {
   3.7699368890408382`*^9, 3.769936889882947*^9}, {3.7705695676313953`*^9, 
   3.7705696189606256`*^9}, {3.770571668477016*^9, 3.7705716945004168`*^9}, {
   3.770657457691215*^9, 3.770657469198831*^9}, {3.7706575060152073`*^9, 
   3.770657508340198*^9}, {3.7706587445923862`*^9, 3.770658744835897*^9}, {
   3.7706592018083887`*^9, 3.7706592021967497`*^9}, {3.7706592542664547`*^9, 
   3.770659254338257*^9}, {3.770660803658773*^9, 3.770660804071413*^9}, {
   3.770660843497706*^9, 3.770660843851686*^9}},
 CellLabel->
  "In[327]:=",ExpressionUUID->"65628d83-3699-46b0-b930-8136690b609f"],

Cell[BoxData["\<\"Fitness matrix:\"\>"], "Print",
 CellChangeTimes->{{3.769610884278255*^9, 3.769610902149043*^9}, 
   3.769611007476955*^9, {3.76961125467271*^9, 3.76961126049739*^9}, 
   3.7696112911013403`*^9, {3.76961134452953*^9, 3.7696113784722223`*^9}, {
   3.769611418038559*^9, 3.769611508316125*^9}, 3.769611680777663*^9, {
   3.769611714624568*^9, 3.7696117536123533`*^9}, 3.769611819703445*^9, 
   3.769611875091782*^9, 3.769611930998238*^9, {3.7696129245308113`*^9, 
   3.7696129721379223`*^9}, {3.769613266109866*^9, 3.769613294879171*^9}, 
   3.769615388690165*^9, 3.7696155077504187`*^9, 3.7697682200215807`*^9, 
   3.769768322501145*^9, 3.769768443869575*^9, {3.769769151799203*^9, 
   3.769769191574085*^9}, 3.769769304983344*^9, 3.769769497274194*^9, 
   3.7697695662247047`*^9, 3.7697702180438137`*^9, 3.769770305904195*^9, {
   3.769770384240458*^9, 3.769770412172988*^9}, 3.7697704783625174`*^9, 
   3.769770635205255*^9, 3.769770743712674*^9, 3.769770932337737*^9, 
   3.769771449227955*^9, {3.769771501937922*^9, 3.7697715217713633`*^9}, 
   3.769771595298382*^9, 3.769771644155024*^9, {3.769771745540741*^9, 
   3.769771769794709*^9}, 3.7697718094628897`*^9, 3.769772006969969*^9, 
   3.769788464234715*^9, {3.769788503838456*^9, 3.769788520795187*^9}, {
   3.769788555894444*^9, 3.769788607605876*^9}, 3.769788758542556*^9, 
   3.769788798605879*^9, 3.769839058725963*^9, 3.7698434708147163`*^9, 
   3.769843797495934*^9, 3.769843923740646*^9, 3.76984414290872*^9, 
   3.769844375939171*^9, 3.769844441779171*^9, 3.769844556159148*^9, 
   3.769850725805522*^9, 3.7698508131608143`*^9, 3.769926657078067*^9, 
   3.769926854897748*^9, 3.769926932010447*^9, 3.769927065910178*^9, 
   3.7699270967302*^9, 3.7699273308252296`*^9, {3.7699279915855083`*^9, 
   3.7699280152531652`*^9}, 3.769936259115839*^9, {3.769936876586629*^9, 
   3.769936890635107*^9}, 3.770571722598213*^9, 3.770657596903338*^9, 
   3.7706587469775*^9, {3.770659203253008*^9, 3.770659214139328*^9}, 
   3.770659254939788*^9, 3.770660805086727*^9, 3.770660844807023*^9},
 CellLabel->
  "During evaluation of \
In[327]:=",ExpressionUUID->"de3897d1-5ff6-4a2b-a7d7-7faa69a21fb7"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.1`", "0.3`", "4", "1"},
     {"0.3`", "1", "1", "4"},
     {"4", "1", "1", "2"},
     {"1", "4", "2", "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.769610482185649*^9, 3.76961049429167*^9}, {
   3.7696108842582083`*^9, 3.769610902136992*^9}, 3.769611007464491*^9, {
   3.769611254653537*^9, 3.769611260485339*^9}, 3.769611291086486*^9, {
   3.769611344514842*^9, 3.769611378452552*^9}, {3.769611418019332*^9, 
   3.7696115082173977`*^9}, 3.769611680791401*^9, {3.769611714641925*^9, 
   3.769611753626018*^9}, 3.7696118197177687`*^9, 3.7696118751068172`*^9, 
   3.769611931015222*^9, {3.769612924544671*^9, 3.769612972153158*^9}, {
   3.76961326612324*^9, 3.769613294893321*^9}, 3.7696153887036657`*^9, 
   3.769615507764349*^9, 3.769768220037033*^9, 3.769768322514546*^9, 
   3.769768443886237*^9, {3.7697691518138723`*^9, 3.769769191592083*^9}, 
   3.769769304997093*^9, 3.769769497288464*^9, 3.7697695662393312`*^9, 
   3.769770218057741*^9, 3.769770305917598*^9, {3.7697703842555017`*^9, 
   3.769770412187455*^9}, 3.769770478377432*^9, 3.769770635222354*^9, 
   3.769770743732688*^9, 3.769770932351142*^9, 3.769771449239458*^9, {
   3.7697715019544077`*^9, 3.769771521783918*^9}, 3.769771595315233*^9, 
   3.769771644172195*^9, {3.7697717455587273`*^9, 3.769771769808907*^9}, 
   3.769771809475296*^9, 3.769772006984654*^9, 3.769788464248267*^9, {
   3.769788503850765*^9, 3.7697885208077183`*^9}, {3.7697885559066753`*^9, 
   3.769788607618744*^9}, 3.7697887585550413`*^9, 3.769788798618286*^9, 
   3.769839058738522*^9, 3.769843470828989*^9, 3.769843797506847*^9, 
   3.7698439237537193`*^9, 3.769844142925078*^9, 3.7698443759557467`*^9, 
   3.769844441795269*^9, 3.7698445561711273`*^9, 3.769850725819697*^9, 
   3.769850813174182*^9, 3.769926657091179*^9, 3.769926854911813*^9, 
   3.7699269320240717`*^9, 3.7699270659235764`*^9, 3.7699270967468576`*^9, 
   3.769927330838863*^9, {3.76992799160221*^9, 3.769928015265448*^9}, 
   3.769936259132332*^9, {3.769936876603318*^9, 3.769936890647644*^9}, 
   3.770571722612286*^9, 3.7706575969168377`*^9, 3.770658746989071*^9, {
   3.7706592032684298`*^9, 3.770659214151276*^9}, 3.770659254951563*^9, 
   3.770660805103094*^9, 3.770660844822877*^9},
 CellLabel->
  "Out[332]//MatrixForm=",ExpressionUUID->"6acc418d-44d6-4e29-80eb-\
18260539474a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "q", "+", "u", "+", "v"}], ")"}]}]}], ",", 
   RowBox[{"y", "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "q", "+", "u", "-", "v"}], ")"}]}]}], ",", 
   RowBox[{"z", "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "q", "-", "u", "+", "v"}], ")"}]}]}], ",", 
   RowBox[{"w", "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "q", "-", "u", "-", "v"}], ")"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.769610482185649*^9, 3.76961049429167*^9}, {
   3.7696108842582083`*^9, 3.769610902136992*^9}, 3.769611007464491*^9, {
   3.769611254653537*^9, 3.769611260485339*^9}, 3.769611291086486*^9, {
   3.769611344514842*^9, 3.769611378452552*^9}, {3.769611418019332*^9, 
   3.7696115082173977`*^9}, 3.769611680791401*^9, {3.769611714641925*^9, 
   3.769611753626018*^9}, 3.7696118197177687`*^9, 3.7696118751068172`*^9, 
   3.769611931015222*^9, {3.769612924544671*^9, 3.769612972153158*^9}, {
   3.76961326612324*^9, 3.769613294893321*^9}, 3.7696153887036657`*^9, 
   3.769615507764349*^9, 3.769768220037033*^9, 3.769768322514546*^9, 
   3.769768443886237*^9, {3.7697691518138723`*^9, 3.769769191592083*^9}, 
   3.769769304997093*^9, 3.769769497288464*^9, 3.7697695662393312`*^9, 
   3.769770218057741*^9, 3.769770305917598*^9, {3.7697703842555017`*^9, 
   3.769770412187455*^9}, 3.769770478377432*^9, 3.769770635222354*^9, 
   3.769770743732688*^9, 3.769770932351142*^9, 3.769771449239458*^9, {
   3.7697715019544077`*^9, 3.769771521783918*^9}, 3.769771595315233*^9, 
   3.769771644172195*^9, {3.7697717455587273`*^9, 3.769771769808907*^9}, 
   3.769771809475296*^9, 3.769772006984654*^9, 3.769788464248267*^9, {
   3.769788503850765*^9, 3.7697885208077183`*^9}, {3.7697885559066753`*^9, 
   3.769788607618744*^9}, 3.7697887585550413`*^9, 3.769788798618286*^9, 
   3.769839058738522*^9, 3.769843470828989*^9, 3.769843797506847*^9, 
   3.7698439237537193`*^9, 3.769844142925078*^9, 3.7698443759557467`*^9, 
   3.769844441795269*^9, 3.7698445561711273`*^9, 3.769850725819697*^9, 
   3.769850813174182*^9, 3.769926657091179*^9, 3.769926854911813*^9, 
   3.7699269320240717`*^9, 3.7699270659235764`*^9, 3.7699270967468576`*^9, 
   3.769927330838863*^9, {3.76992799160221*^9, 3.769928015265448*^9}, 
   3.769936259132332*^9, {3.769936876603318*^9, 3.769936890647644*^9}, 
   3.770571722612286*^9, 3.7706575969168377`*^9, 3.770658746989071*^9, {
   3.7706592032684298`*^9, 3.770659214151276*^9}, 3.770659254951563*^9, 
   3.770660805103094*^9, 3.77066084483633*^9},
 CellLabel->
  "Out[344]=",ExpressionUUID->"eace170c-d0c4-4305-b938-5b794d1222c5"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "q", "+", "u", "+", "v", "-", 
    RowBox[{"2", " ", "u", " ", "v"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.769610482185649*^9, 3.76961049429167*^9}, {
   3.7696108842582083`*^9, 3.769610902136992*^9}, 3.769611007464491*^9, {
   3.769611254653537*^9, 3.769611260485339*^9}, 3.769611291086486*^9, {
   3.769611344514842*^9, 3.769611378452552*^9}, {3.769611418019332*^9, 
   3.7696115082173977`*^9}, 3.769611680791401*^9, {3.769611714641925*^9, 
   3.769611753626018*^9}, 3.7696118197177687`*^9, 3.7696118751068172`*^9, 
   3.769611931015222*^9, {3.769612924544671*^9, 3.769612972153158*^9}, {
   3.76961326612324*^9, 3.769613294893321*^9}, 3.7696153887036657`*^9, 
   3.769615507764349*^9, 3.769768220037033*^9, 3.769768322514546*^9, 
   3.769768443886237*^9, {3.7697691518138723`*^9, 3.769769191592083*^9}, 
   3.769769304997093*^9, 3.769769497288464*^9, 3.7697695662393312`*^9, 
   3.769770218057741*^9, 3.769770305917598*^9, {3.7697703842555017`*^9, 
   3.769770412187455*^9}, 3.769770478377432*^9, 3.769770635222354*^9, 
   3.769770743732688*^9, 3.769770932351142*^9, 3.769771449239458*^9, {
   3.7697715019544077`*^9, 3.769771521783918*^9}, 3.769771595315233*^9, 
   3.769771644172195*^9, {3.7697717455587273`*^9, 3.769771769808907*^9}, 
   3.769771809475296*^9, 3.769772006984654*^9, 3.769788464248267*^9, {
   3.769788503850765*^9, 3.7697885208077183`*^9}, {3.7697885559066753`*^9, 
   3.769788607618744*^9}, 3.7697887585550413`*^9, 3.769788798618286*^9, 
   3.769839058738522*^9, 3.769843470828989*^9, 3.769843797506847*^9, 
   3.7698439237537193`*^9, 3.769844142925078*^9, 3.7698443759557467`*^9, 
   3.769844441795269*^9, 3.7698445561711273`*^9, 3.769850725819697*^9, 
   3.769850813174182*^9, 3.769926657091179*^9, 3.769926854911813*^9, 
   3.7699269320240717`*^9, 3.7699270659235764`*^9, 3.7699270967468576`*^9, 
   3.769927330838863*^9, {3.76992799160221*^9, 3.769928015265448*^9}, 
   3.769936259132332*^9, {3.769936876603318*^9, 3.769936890647644*^9}, 
   3.770571722612286*^9, 3.7706575969168377`*^9, 3.770658746989071*^9, {
   3.7706592032684298`*^9, 3.770659214151276*^9}, 3.770659254951563*^9, 
   3.770660805103094*^9, 3.770660844846816*^9},
 CellLabel->
  "Out[345]=",ExpressionUUID->"29bc2c4c-fa39-48db-bec7-2692bcc449d6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"q", "\[Rule]", 
   RowBox[{"1", "-", "v", "+", 
    RowBox[{"u", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "v"}]}], ")"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.769610482185649*^9, 3.76961049429167*^9}, {
   3.7696108842582083`*^9, 3.769610902136992*^9}, 3.769611007464491*^9, {
   3.769611254653537*^9, 3.769611260485339*^9}, 3.769611291086486*^9, {
   3.769611344514842*^9, 3.769611378452552*^9}, {3.769611418019332*^9, 
   3.7696115082173977`*^9}, 3.769611680791401*^9, {3.769611714641925*^9, 
   3.769611753626018*^9}, 3.7696118197177687`*^9, 3.7696118751068172`*^9, 
   3.769611931015222*^9, {3.769612924544671*^9, 3.769612972153158*^9}, {
   3.76961326612324*^9, 3.769613294893321*^9}, 3.7696153887036657`*^9, 
   3.769615507764349*^9, 3.769768220037033*^9, 3.769768322514546*^9, 
   3.769768443886237*^9, {3.7697691518138723`*^9, 3.769769191592083*^9}, 
   3.769769304997093*^9, 3.769769497288464*^9, 3.7697695662393312`*^9, 
   3.769770218057741*^9, 3.769770305917598*^9, {3.7697703842555017`*^9, 
   3.769770412187455*^9}, 3.769770478377432*^9, 3.769770635222354*^9, 
   3.769770743732688*^9, 3.769770932351142*^9, 3.769771449239458*^9, {
   3.7697715019544077`*^9, 3.769771521783918*^9}, 3.769771595315233*^9, 
   3.769771644172195*^9, {3.7697717455587273`*^9, 3.769771769808907*^9}, 
   3.769771809475296*^9, 3.769772006984654*^9, 3.769788464248267*^9, {
   3.769788503850765*^9, 3.7697885208077183`*^9}, {3.7697885559066753`*^9, 
   3.769788607618744*^9}, 3.7697887585550413`*^9, 3.769788798618286*^9, 
   3.769839058738522*^9, 3.769843470828989*^9, 3.769843797506847*^9, 
   3.7698439237537193`*^9, 3.769844142925078*^9, 3.7698443759557467`*^9, 
   3.769844441795269*^9, 3.7698445561711273`*^9, 3.769850725819697*^9, 
   3.769850813174182*^9, 3.769926657091179*^9, 3.769926854911813*^9, 
   3.7699269320240717`*^9, 3.7699270659235764`*^9, 3.7699270967468576`*^9, 
   3.769927330838863*^9, {3.76992799160221*^9, 3.769928015265448*^9}, 
   3.769936259132332*^9, {3.769936876603318*^9, 3.769936890647644*^9}, 
   3.770571722612286*^9, 3.7706575969168377`*^9, 3.770658746989071*^9, {
   3.7706592032684298`*^9, 3.770659214151276*^9}, 3.770659254951563*^9, 
   3.770660805103094*^9, 3.770660844857397*^9},
 CellLabel->
  "Out[346]=",ExpressionUUID->"78f1ef4d-d1e6-4f53-82c5-eb1b4f6c5c25"],

Cell[BoxData[
 TemplateBox[{
  "Solve","ratnz",
   "\"Solve was unable to solve the system with inexact coefficients. The \
answer was obtained by solving a corresponding exact system and numericizing \
the result.\"",2,352,11,16739279320582496162,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.769843470961308*^9, 3.76984379762619*^9, 3.7698439238373127`*^9, 
   3.7698441430127983`*^9, 3.7698443760424547`*^9, 3.7698444418697777`*^9, 
   3.769844556270811*^9, 3.7698507259086*^9, 3.7698508132516193`*^9, 
   3.769926657173318*^9, 3.769926854920679*^9, 3.7699269321038*^9, 
   3.769927065989779*^9, 3.7699270968261147`*^9, 3.76992733091333*^9, {
   3.769927991696094*^9, 3.7699280153590603`*^9}, 3.7699362593078213`*^9, {
   3.769936876834614*^9, 3.769936890857954*^9}, 3.7705717228355494`*^9, 
   3.770657597136154*^9, 3.770658747195945*^9, {3.7706592034823933`*^9, 
   3.770659214332344*^9}, 3.770659255177512*^9, 3.77066080531777*^9, 
   3.770660845033115*^9},
 CellLabel->
  "During evaluation of \
In[327]:=",ExpressionUUID->"6f6f81cf-f70a-4ba6-8dd3-3766151edeb3"],

Cell[BoxData["\<\"Steady states in (u,v,q):\"\>"], "Print",
 CellChangeTimes->{{3.769610884278255*^9, 3.769610902149043*^9}, 
   3.769611007476955*^9, {3.76961125467271*^9, 3.76961126049739*^9}, 
   3.7696112911013403`*^9, {3.76961134452953*^9, 3.7696113784722223`*^9}, {
   3.769611418038559*^9, 3.769611508316125*^9}, 3.769611680777663*^9, {
   3.769611714624568*^9, 3.7696117536123533`*^9}, 3.769611819703445*^9, 
   3.769611875091782*^9, 3.769611930998238*^9, {3.7696129245308113`*^9, 
   3.7696129721379223`*^9}, {3.769613266109866*^9, 3.769613294879171*^9}, 
   3.769615388690165*^9, 3.7696155077504187`*^9, 3.7697682200215807`*^9, 
   3.769768322501145*^9, 3.769768443869575*^9, {3.769769151799203*^9, 
   3.769769191574085*^9}, 3.769769304983344*^9, 3.769769497274194*^9, 
   3.7697695662247047`*^9, 3.7697702180438137`*^9, 3.769770305904195*^9, {
   3.769770384240458*^9, 3.769770412172988*^9}, 3.7697704783625174`*^9, 
   3.769770635205255*^9, 3.769770743712674*^9, 3.769770932337737*^9, 
   3.769771449227955*^9, {3.769771501937922*^9, 3.7697715217713633`*^9}, 
   3.769771595298382*^9, 3.769771644155024*^9, {3.769771745540741*^9, 
   3.769771769794709*^9}, 3.7697718094628897`*^9, 3.769772006969969*^9, 
   3.769788464234715*^9, {3.769788503838456*^9, 3.769788520795187*^9}, {
   3.769788555894444*^9, 3.769788607605876*^9}, 3.769788758542556*^9, 
   3.769788798605879*^9, 3.769839058725963*^9, 3.7698434708147163`*^9, 
   3.769843797495934*^9, 3.769843923740646*^9, 3.76984414290872*^9, 
   3.769844375939171*^9, 3.769844441779171*^9, 3.769844556159148*^9, 
   3.769850725805522*^9, 3.7698508131608143`*^9, 3.769926657078067*^9, 
   3.769926854897748*^9, 3.769926932010447*^9, 3.769927065910178*^9, 
   3.7699270967302*^9, 3.7699273308252296`*^9, {3.7699279915855083`*^9, 
   3.7699280152531652`*^9}, 3.769936259115839*^9, {3.769936876586629*^9, 
   3.769936890635107*^9}, 3.770571722598213*^9, 3.770657596903338*^9, 
   3.7706587469775*^9, {3.770659203253008*^9, 3.770659214139328*^9}, 
   3.770659254939788*^9, 3.770660805086727*^9, 3.770660845043125*^9},
 CellLabel->
  "During evaluation of \
In[327]:=",ExpressionUUID->"57346945-b597-490e-9e90-2b3f16e68ed7"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.`", "0.`", "1.`"},
     {"0.5`", "0.`", "0.5`"},
     {"1.`", "0.`", "0.`"},
     {"0.`", "0.5`", "0.5`"},
     {"0.3239316516624887`", "0.5304924397723944`", "0.48560323659431776`"},
     {"0.`", "1.`", "0.`"},
     {"0.43478260869565216`", "1.`", "0.43478260869565216`"},
     {"1.`", "1.`", "1.`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.769610482185649*^9, 3.76961049429167*^9}, {
   3.7696108842582083`*^9, 3.769610902136992*^9}, 3.769611007464491*^9, {
   3.769611254653537*^9, 3.769611260485339*^9}, 3.769611291086486*^9, {
   3.769611344514842*^9, 3.769611378452552*^9}, {3.769611418019332*^9, 
   3.7696115082173977`*^9}, 3.769611680791401*^9, {3.769611714641925*^9, 
   3.769611753626018*^9}, 3.7696118197177687`*^9, 3.7696118751068172`*^9, 
   3.769611931015222*^9, {3.769612924544671*^9, 3.769612972153158*^9}, {
   3.76961326612324*^9, 3.769613294893321*^9}, 3.7696153887036657`*^9, 
   3.769615507764349*^9, 3.769768220037033*^9, 3.769768322514546*^9, 
   3.769768443886237*^9, {3.7697691518138723`*^9, 3.769769191592083*^9}, 
   3.769769304997093*^9, 3.769769497288464*^9, 3.7697695662393312`*^9, 
   3.769770218057741*^9, 3.769770305917598*^9, {3.7697703842555017`*^9, 
   3.769770412187455*^9}, 3.769770478377432*^9, 3.769770635222354*^9, 
   3.769770743732688*^9, 3.769770932351142*^9, 3.769771449239458*^9, {
   3.7697715019544077`*^9, 3.769771521783918*^9}, 3.769771595315233*^9, 
   3.769771644172195*^9, {3.7697717455587273`*^9, 3.769771769808907*^9}, 
   3.769771809475296*^9, 3.769772006984654*^9, 3.769788464248267*^9, {
   3.769788503850765*^9, 3.7697885208077183`*^9}, {3.7697885559066753`*^9, 
   3.769788607618744*^9}, 3.7697887585550413`*^9, 3.769788798618286*^9, 
   3.769839058738522*^9, 3.769843470828989*^9, 3.769843797506847*^9, 
   3.7698439237537193`*^9, 3.769844142925078*^9, 3.7698443759557467`*^9, 
   3.769844441795269*^9, 3.7698445561711273`*^9, 3.769850725819697*^9, 
   3.769850813174182*^9, 3.769926657091179*^9, 3.769926854911813*^9, 
   3.7699269320240717`*^9, 3.7699270659235764`*^9, 3.7699270967468576`*^9, 
   3.769927330838863*^9, {3.76992799160221*^9, 3.769928015265448*^9}, 
   3.769936259132332*^9, {3.769936876603318*^9, 3.769936890647644*^9}, 
   3.770571722612286*^9, 3.7706575969168377`*^9, 3.770658746989071*^9, {
   3.7706592032684298`*^9, 3.770659214151276*^9}, 3.770659254951563*^9, 
   3.770660805103094*^9, 3.7706608450523243`*^9},
 CellLabel->
  "Out[356]//MatrixForm=",ExpressionUUID->"5d5e8281-0dc7-4812-90b2-\
c387efa3b626"],

Cell[BoxData["\<\"-----\"\>"], "Print",
 CellChangeTimes->{{3.769610884278255*^9, 3.769610902149043*^9}, 
   3.769611007476955*^9, {3.76961125467271*^9, 3.76961126049739*^9}, 
   3.7696112911013403`*^9, {3.76961134452953*^9, 3.7696113784722223`*^9}, {
   3.769611418038559*^9, 3.769611508316125*^9}, 3.769611680777663*^9, {
   3.769611714624568*^9, 3.7696117536123533`*^9}, 3.769611819703445*^9, 
   3.769611875091782*^9, 3.769611930998238*^9, {3.7696129245308113`*^9, 
   3.7696129721379223`*^9}, {3.769613266109866*^9, 3.769613294879171*^9}, 
   3.769615388690165*^9, 3.7696155077504187`*^9, 3.7697682200215807`*^9, 
   3.769768322501145*^9, 3.769768443869575*^9, {3.769769151799203*^9, 
   3.769769191574085*^9}, 3.769769304983344*^9, 3.769769497274194*^9, 
   3.7697695662247047`*^9, 3.7697702180438137`*^9, 3.769770305904195*^9, {
   3.769770384240458*^9, 3.769770412172988*^9}, 3.7697704783625174`*^9, 
   3.769770635205255*^9, 3.769770743712674*^9, 3.769770932337737*^9, 
   3.769771449227955*^9, {3.769771501937922*^9, 3.7697715217713633`*^9}, 
   3.769771595298382*^9, 3.769771644155024*^9, {3.769771745540741*^9, 
   3.769771769794709*^9}, 3.7697718094628897`*^9, 3.769772006969969*^9, 
   3.769788464234715*^9, {3.769788503838456*^9, 3.769788520795187*^9}, {
   3.769788555894444*^9, 3.769788607605876*^9}, 3.769788758542556*^9, 
   3.769788798605879*^9, 3.769839058725963*^9, 3.7698434708147163`*^9, 
   3.769843797495934*^9, 3.769843923740646*^9, 3.76984414290872*^9, 
   3.769844375939171*^9, 3.769844441779171*^9, 3.769844556159148*^9, 
   3.769850725805522*^9, 3.7698508131608143`*^9, 3.769926657078067*^9, 
   3.769926854897748*^9, 3.769926932010447*^9, 3.769927065910178*^9, 
   3.7699270967302*^9, 3.7699273308252296`*^9, {3.7699279915855083`*^9, 
   3.7699280152531652`*^9}, 3.769936259115839*^9, {3.769936876586629*^9, 
   3.769936890635107*^9}, 3.770571722598213*^9, 3.770657596903338*^9, 
   3.7706587469775*^9, {3.770659203253008*^9, 3.770659214139328*^9}, 
   3.770659254939788*^9, 3.770660805086727*^9, 3.770660845148624*^9},
 CellLabel->
  "During evaluation of \
In[327]:=",ExpressionUUID->"fdee78d6-595f-4abf-a328-d862bed32b36"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`iterations$$ = 5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`iterations$$], 1, 6, 1}}, Typeset`size$$ = {
    360., {200., 205.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`iterations$33925$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`iterations$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`iterations$$, $CellContext`iterations$33925$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Part[$CellContext`frames, $CellContext`iterations$$], 
      "Specifications" :> {{$CellContext`iterations$$, 1, 6, 1, 
         AnimationDirection -> Forward, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{405., {237., 243.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.769610482185649*^9, 3.76961049429167*^9}, {
   3.7696108842582083`*^9, 3.769610902136992*^9}, 3.769611007464491*^9, {
   3.769611254653537*^9, 3.769611260485339*^9}, 3.769611291086486*^9, {
   3.769611344514842*^9, 3.769611378452552*^9}, {3.769611418019332*^9, 
   3.7696115082173977`*^9}, 3.769611680791401*^9, {3.769611714641925*^9, 
   3.769611753626018*^9}, 3.7696118197177687`*^9, 3.7696118751068172`*^9, 
   3.769611931015222*^9, {3.769612924544671*^9, 3.769612972153158*^9}, {
   3.76961326612324*^9, 3.769613294893321*^9}, 3.7696153887036657`*^9, 
   3.769615507764349*^9, 3.769768220037033*^9, 3.769768322514546*^9, 
   3.769768443886237*^9, {3.7697691518138723`*^9, 3.769769191592083*^9}, 
   3.769769304997093*^9, 3.769769497288464*^9, 3.7697695662393312`*^9, 
   3.769770218057741*^9, 3.769770305917598*^9, {3.7697703842555017`*^9, 
   3.769770412187455*^9}, 3.769770478377432*^9, 3.769770635222354*^9, 
   3.769770743732688*^9, 3.769770932351142*^9, 3.769771449239458*^9, {
   3.7697715019544077`*^9, 3.769771521783918*^9}, 3.769771595315233*^9, 
   3.769771644172195*^9, {3.7697717455587273`*^9, 3.769771769808907*^9}, 
   3.769771809475296*^9, 3.769772006984654*^9, 3.769788464248267*^9, {
   3.769788503850765*^9, 3.7697885208077183`*^9}, {3.7697885559066753`*^9, 
   3.769788607618744*^9}, 3.7697887585550413`*^9, 3.769788798618286*^9, 
   3.769839058738522*^9, 3.769843470828989*^9, 3.769843797506847*^9, 
   3.7698439237537193`*^9, 3.769844142925078*^9, 3.7698443759557467`*^9, 
   3.769844441795269*^9, 3.7698445561711273`*^9, 3.769850725819697*^9, 
   3.769850813174182*^9, 3.769926657091179*^9, 3.769926854911813*^9, 
   3.7699269320240717`*^9, 3.7699270659235764`*^9, 3.7699270967468576`*^9, 
   3.769927330838863*^9, {3.76992799160221*^9, 3.769928015265448*^9}, 
   3.769936259132332*^9, {3.769936876603318*^9, 3.769936890647644*^9}, 
   3.770571722612286*^9, 3.7706575969168377`*^9, 3.770658746989071*^9, {
   3.7706592032684298`*^9, 3.770659214151276*^9}, 3.770659254951563*^9, 
   3.770660805103094*^9, 3.770661039949538*^9},
 CellLabel->
  "Out[365]=",ExpressionUUID->"8c67716f-44a8-454d-b31a-d9da417d4500"],

Cell[BoxData[
 Graphics3DBox[{{GraphicsComplex3DBox[CompressedData["
1:eJwlWnc81f/3L6NFKrNEiErRMNPgmVWikD5RCSGjpG2EClGJIioplEIRmRFl
h4a97r73bWW70iDz9/b9/eM+znm/7mucc17P83zeNzmH8xZOPPPmzdtH/uEl
P6/+WmSVrSSCsG2SawuVKnR63vtT7Ge58HL5KLTiIAecd8rHLU9Y6ni9t7vg
dYyAWejSLv84DlJM3U/lRe7Vya/rDoEKAS9eM83cUg50Fl8fk72srWM6tL0j
SYbAVPOvedfbOGjSyfScNdHQ2UF9NV0qSqDGYDV/yA8OamaS1vbobtN5xOTz
+yhIICji2bu2XxyYr8hlX4zbqLNV7eFr0QUE1pnsnp6d5SArU6n23z0FnVO9
18jdE2Ca0JPmngsLa1+JTZLV2TvOzJ77vmDBUZ+5+da5ce+Izkrq5EgoLplb
7+6R/sm59Z02+33pyhfTub5Nd+Hc/mZeGRFz+33r9SiTIblCp8ipQGfuPN5n
3W/Pna9Wp68zIXuxzlTzi5G58w/d2Xd2Lh5vAkrl7ovP1/k0tmbDXLwOftvy
0pmM37yxmwve0Xu0x+In5IrI+EpLPGrXdmzX2fJjidnFo1Q8pBqw85s7cbVs
vX5COgsTIXbWtw7EYIuApVt/JIE4j2nzwc9svFhZPLTpZwiaFjO3plgQ6MWf
ysltHJzvS9snsjoA8xcsc2zSJNBtkr5cxZ0Dfvnf8dN8V5H7mjdcfj2B72zx
L3jEgcgDe8aqI5fhVmribilJQGVDfN2mHPJ8ovs5u5jnEMbgCEwvJ5C5Y+bp
6+8cbGqFtobUaSQIPZ5lLCJwdeJuo2c7B2oDbsnlL09BY3bId918Am07NySk
/eXgup6PV8nUSUgZ3xTeN0rGYegLTwmZF/39D/unSqwR3HJzXyeHA3fn69xM
Mv4xOVkKRkqWyFSUDxqv5kDPKsh750YCx+7IVjm1mkMufqIr9yUHsUyxqRf/
EXDz6fv3zWovlvQssZ8244BK6/RwIePMKSzapPZIEbd7pHWfCqnARH9Y/tvN
ep2K2xFvhy8zYOt0R5NnbwfE5WInmakMxOiWKL5Y/Q6Vtv/i7SoJ7Mz5sFP5
FQtdxqw80SUvcH155LF7ngQuV2/R+ezKxr3atIL34Y9w73D4ut+HCOiwowKZ
rWwER0mZS/JEwG3KYfubXQR+njAvVZLmQDkhge4pFoKqy5tTB5QIRDr85ytz
iIOgnPAPZ4yDoDDpHh5P1hlzfbGloQ8HsjXbr9UX+sP8fEXuBjECWsWeFS5k
fSUsn1QUZfpC8NnsxUAB0u+8yby5iIPXxPXnYru84PPEbUcrGf93nsOnHrA5
8Hp2ujdL4zJ+e50q0RvmwIhy83QH+VxyQ8V09qLzyPkm8si7mYMIoZnPsqsJ
qF5wNnAtdcHIyqWT+m85kLpSa95pQsD+/BnP1kt2kNS4+V3hCAfvCt8quZJx
dl2oLVr8cScUvvNPvrgKgLdLz6q4XIe1/1pj+hgTe7fsfbEuqB2E3YmXSTo0
rP/TllrP+xG+b/UlD/YSyCOeufBIMuHS86P/5sd3kPjcYxsVQ9ahyp20h0Ys
uPAsaH9mmoRAt3UF8hcIyKgeEd/wi4WDxfVCfze8wK6bEhr3jhBwCJBri3Rk
49Tv6YDm4hgY1FyRNNMjEN+xNy/kPRsNPmnjRXKPsHKzeNVqNQLfTodkiv9l
Q//mwDur1w+wzUhny2byXnjwBCTeVOaAb/mCm5Ol96BOPEyyJu+Fmf/yTxk2
HCj2F3gdIfM4m8+6myVE4PCxjV5f7nHwKFBEx+lnELpi//wW5yHXrRRWGS3j
IKw1qstBMAClarsnQrs5GJhJ8Zt7rh703P6Hmg+Ce7wfbizgIPtx3xb53QRW
mrWtLtO5iN9/Z+//JNcbkv2TMhfnnWHRUiljhlD17RY0+88IT5kJLySfFOjU
8JuU7hxjQW6ZZexJvnbIX5YV1fVpg5/q5WX9rysxq2VzYzWXgGaK6Wn2Qjpk
T82vs9v6EdXWC8zzsgk4qq/YYZfAwKLX6uqPv+Xg93bWZaswAjny/MbGUUy8
HZf6UPv3HXprxOvNLhJoNeB/kL6dhWia6s7Y3Smwlj7q/uQEgS8RWlekslnw
49dYmiWWhLANepufkHXzPGhmy7gIG9uX3w3/wE7A54EdeWXkOVd57jXRcmHD
dTHtlppPPLb+SX48uYVA1IkChWfZbOR4SX6+NRIDk7z7kyZyBF4H89i3TrKR
7DGxpar+EbrCDlLuChOgdPctj9rPgb5zy8zK5ge43XjMq4XE/+A0mTv1rzko
atleJ3MiFBfyLbc/qOdAPlBBZnINAZ4L5n5nPgegIcaSUnuWg+WleZVzcVaa
0G+22WYOo5ZPF7RsD2HjJK/WvjM5OrJ3cvdwP7JxsPHEroUvSVwN+Ef/ntCM
9VbOR+4aNKDxak5p+TcCL5WHhA87UyB7xqzt9dFqWIpL/FN5R2BC89yBRD0a
Bmvl/CMtynE28KCS7mMCfEh+du4CHZcGpSbNpYrR7Fe2Pz6QQNgjixD7/QwY
bI4C9XQBdtwa8OOQ8d9VopLxfZSBwUlN7ulv72F7MFdr1IHEkxVbuMQNJqhx
uUset2Zjgi23ioe8F4q1V/j3TzHxnlm0Sf1AJmwSDD6b7yMgFHZD+MwFFtbY
t8SGLkiD5vPNwYI7SNzzLB+r6WRB0N7xsln2a1xOWtm+gsRfcc7DV1fs2PBq
9DVJOfEKS3Xc4mxIXKqaZn3qGGWj+snodIFHHPTkEuUvkDj/nSp5Ur2GA8rZ
ba/YLyJxomFU/1EwB4v/mKjPxbnvTLJVdawlWCP2KVbfrbDs+dcrdUczdUJ/
zZucdeRAOmHJtdmDZB/ZtDD1/p5GJHesDHdcR8E5GSbvLjIOtYL+lYlxLTgf
/1lM1K0ZumJCDw+7k306nyr95b82dKgl9rp0N6Br+/nRNFcCJ8OFV4z5UBCa
sr/h1VAtRI+vvrbwFAHLGBmXBTZUhPOlXekv/gZKr0XoHjsCJmuEt1RK0tBe
+X2e4GQ1tm3eVrz2OIHTZc8k11XS0J8qnxPjVQn6pxKD02Qfyv43muzgQsc8
84OXi8UqUHyt9UMGuf/GKHsHzhIGAj4pOoR+LMUqm4/HDhsSGApIa44pYODh
D/2F1s8/gV/n+1uVnQQumXVQRAOYCBex8dVzy0fyWaMDvJsIGF4N2lLozcKZ
vjLnCw+y8O4wjugvI8evM7kQxWLjwof9p3iRhBPN4s3jJG4rbqCfm+MbXzet
3p1UaIuW2AWHJgfsYFWzwexG0zudjonZ2TnedH3m/z8FukaTCd4G3BVP7dRY
wMGO82YmpWRfKE9suFj4rQmlH29bbf7NgvWnBwKbSP4Tv7KAmbWiBf9+qCUS
Q0yUlLnUBxZykEeffmrAbsF3kZVZ+j8YKBNVUPvykYM7BYUnPnq2otL5Fm11
Ex0dVHe9kyQ+TvfIWuaOtSJ6ZqG3UTIZVz7rh5rfOHh5Q0Dx94U2aGlJ67CO
UCF6P4SnpZXkY2tOOtgMt0FmwUlehYY22KTv+DHeycGW4wY/T/hRoKIVuGx0
ugVW5lZ+hr9J3nmW3sSrTEW1mopdZlETZlzw7yuJv1vd7NPfrKLhqtNl7PpY
j8WBr3JFlhC4l3nKOMiXjh88tW7BSl+gZDQ+mr2YgFI0VftCHRObWjb8kdD4
BLfxfqOLJJ4ceSd8xYGM85T3aO/DpFNIml6q6qPrBI2t9w7N1bOj/w2eeaYE
/hb0888/xYFuW0bVIuMG+G36WpPh3Yn0EeHTSS/ZqLAxtoobbILV90a/XM8u
2O391RVpw8aDZQ2efmScT3Xl1DXNdkFnm5z/fC027t+1mEkraIFnqsXBY6bd
iLx/RvGTHBuhAsdLLRXJeB7NLOq40o1rJsLBBmJsfNd9mKrr1QqpQz+NH1zt
RsrTGuPry9noXnvCi57dipm+TnXCuhsZy/NoA8JspNxVcg7taIXMqr2Ch8S6
8SCH7y+k2Xg10St4W7AN9e2mcguiu1B1+NCbWypsDPtHbA3e0YYezE9+Wd4J
tZZX4ezDbFj8d21B+LU2jDlYxIVZdUDOc1E2bxgbUg/qJTtWUlB26OzPWl8O
RNOiLrT9YIM/9HLtEykabg4EnPpCtKAnMfmhhR3Je2ruqx0n49wmq48t39xg
2JMUn3/2LLQohzv2kvhskpNkt4jE5VLLvSE/SZx+lKV4aFdLIwzu7ewV/fcD
AkaN48sjWdhFROyiP2mBcXVA/3/feqG/bnNChhaLZM9rU4+1tuJryaXw3so+
rP/tsa9uETneeTR/fngbCi46ylk69WOZlNQuZj8Tqe39WdJLKIhufWQ90dCP
UKZY12wbE++a3+xpPknB7kXWk8qSAwhg978jvjIRt2Rv9NrnFHivyI8rNhpA
bjz7KF85yY94dXPavlHg3nNrfJ7dAGKcoxn8JUyo+b+jb/5Bwb68ygWGxwcw
FmdodK2MSeZj21PvERLHNN/Frtk2gGUzFXJB35l40WVoebKbAkoy1Jor+uGb
aKsd38HEQVFnE+IjBXzehtEJhX1IXT45MS7OwqpBAWZQGAVdx1WrLtr9gFx7
lWv5GxaSRnynjMg4N5bIT9hOXEJD90yuqcVlXJdf2ruK5Bs73enPHUieMdR8
uFqH5B0tr12c3/C1wMY1WP1jTR82z55Yp1HFhHXRBy3zt2048Gi65vDrASgP
PBipJHGtMtpot0wjBeft7qXYhA6C+x/vDu5JJkY/pc8s9KHiufbFjZdEhsC7
dMLzzkEmnjnHK1f2Usl69p957j4ErQsGbj17mMhvlxCv1KQhjf/+78K0IVCn
HDYe0WKi536AWtN5GrYmHhHKow2h7rNx3n1VJnorOv16Y2g4rvD6Dnd8CPt1
2i/zbmXi2C1E9ebTsMmqnPZTYBi+flXVTzeT+GtGkTn+jYan2h9lfVYM47+9
+5Z+3kL21xIplTd1NGQ/vCqlwDuMH5FvTabVmGCsmXcgsZAGjScth02+DcHm
2DuFNXpM6K4q5BU8RcONnnsmWUODkC6/faXuAjnPCvrVtWScFd5LvjQt88GX
g9oSfBt8IdUp7WFJ8ueanboSG0ne/CLgckkuyaO/dmxznTJtg5itjO/bqQHc
dD5g9QRMXDsan1xExk14QwXD3GMIH67I0x3WMKH38KLwjxM0jFDWS/CuHIbt
2a7xB8uYGNH0vuJBp8GUdsl925Vh1AnmF61ZyEThmZTbK5To6OJXjyjJGIbL
1cVT7+czYen9tmS/Ix3LAp/Za9KGQal0+CU4w8DEty2eN8NInIw/J3NobBh7
rruFhk0yENa9S/bRWzpeMWhi/ku50D/qumf4HwM874T8RSvoUC5r67gqTeqz
4Bu2UqRf48HmN0otdGQ5/936fgMXPGs/8KqQ/gVBLpses+k4IpnGv0SJC4ug
53ufTTCwPOPQOnEOHXkrkj+JreWCdiXItIrcT96m7h2Tn+mYqEoSuzwyjDFF
W+PjgkwU8PuKFs9wYehjOVjBHwRqkXhq274ghK5n8H4h9WCY+/bURaQOlKwb
jpwkdaFQisDT485UWL1Uehj8dgghCdOu0sMM+AtYaWt20vBSdv7nohfDmDaT
DKvtJ/s34/T8Wx5kPxuRHG7nIXn6tcWOPr0MROc5TgaT+wmo0NuVq0Xuv/Xj
7AjZDzeVh+pf+kvHC0WB4pHjXIQeLPTp6mZgmeOxzVMrGeiTMJF9fYmLH0ON
1cqkP26/xQ9jVQboQqd9ft/kYt6ihVJ5XQyMsT813TEkeftymvyfCC5WZ3gv
ukr6GbT/5Lz+Y6BWrXDg21Mu1ul+KfEm/Z57VI4JnGSgfd33pqkELrzu5CpV
k363M1mnY13J/VpPqvgkc3Hzu4n/I3JdFv9oZ5g7Axmv7u4ZJ/0Chho3r/Qw
4NR8cvnFMwy8C6w/ZhZLxnX0+pnWQQakKRv3WE5z4dn9tTavOwKP58lHPF75
AF1FedW7HNt1OP5Xj1Y3d+LfoSv6EUepGNrPVzx/Gx1GJkbbNSeG4fZrQPlh
KQO3F3mnh/yio5x59MgOdy4y182zX9PAwF7D4cBruxhYOTIZuyqGi0WfBU4P
tDCwJtps5JU9Aw9an/0qzuQirnFCUI3CQPMRH6XgqwzMl41cmVbChfihR7wh
VDL+ha3UsRAGHM1Szk595SLnb8+d8zQGdgeIP+N/zMBMG5/P7UYurMy4Qmvo
DHSaCvHpPGeAe3meASjkeS/dW5pN+le+1vwVmMxAk8zw0hQGF78d+vn3MMjx
1PBD1mkM+IkrswQ4XDxde2CYSfpXueevFM9iQDvx26BvOxcuSVd0U5kMPPfP
WlCfy8AAv8Sagg4u7BuP8/1jMWBfbcGWyif3k54RI0eOr9uhIbOknTzPY8eW
jp9cZMXq7g59/gqGgVu8dma8Qnj0hStvlUTg7rVCY3KOj9BTFyyuFIH15bZ1
KqkMCLhxRmZJf6/Scu05O3iXvce+cgZ6XlaMzfkj22kBc3bgofiYZ9/I+2Rw
ZGLO722k8HLO/iLSmdZZx0CE3/vJOf/Pu2Y5c7bR5jUBtxsZUDkbNTXnP2a6
49acnedKXDvazIBvk/L0nD+lQzhwzl67vzsum8xbrW7c//wT1u4Jc3ZKhvCK
qlYG+H+M/s//snWl6JxtLzBYk9lGzp+sMTPnf3svrH7OtjCzfn2XzHPB6On/
+YU93qbM2UIataPnyTyXZjz4nz+awv49Z6f6q8XEkHmu2Pr2f/69Hquezdmi
r50CaGR+Nvm8/p+/9LHezTl7aF1GrvQPkrctOXd9ivRX6CnxrCbtt37Tp/89
JHCnovm8ReEmHBIICEYLG/GBg3969tCRWlAU/fNTNszsDxy/K9SOggKb+VIP
CHzoURfONDfBvCTBM4ZtbHiks661d7SB02oZMGZYhsf3mv3rVNpR+GJQ8ncI
gd2xL94fWHQSnollP3bR2Wjx9yjfebcZ+QoOTgl7vmFXkNKlfKV2YExnsMKP
QLHv85HHNy+gKnVZhkc7G2Ehq11LgxoQ8OaljeiyJjQrmdsXTRIwvtlY1epI
wCc/eLbqkT+2lhwcMBxm4+0XicrTFjU4baz4R/AIBZjS8h5LInDf4u8ZJVUC
1MX9zrb6D7BkIFIhgY8Dqc0WR4NCv2L5mCXNroGJtu69HXlqBG5M2Y2dvk7H
GkaWmJ9OJYbbV2fFKxP49DZJQjKUgd8bT9y8xSwFp/CCxBNZAmtknOML7pO6
ofuh3eWaV9DzeSl7YyMH4bViJ7cu/wqLTUc5DPKcJ2+Gqos5cfCxx3fn/d9t
eN3ocWgfiYuZ7/LfyDhw8J9wtuj+VgqcluuYe4qROlFWtiHhEQeju5aE+IXS
gOL2zT1vGjDhE20q/JmDpXYHI+4lsrC6yn30YnMhegeVxPcd5uBTMPdNC+0b
6kqk09uJThKnL7hFOLDxRDxN7Y4IBYcEr08qJ3Vi84247ctU2TAfT7+6c5yG
xkkhG3pGC3wmuJw6Xg7qvBafOhVch08nLk7c8PoBmZeVlc2kfmvl+xd/aCsV
xyhF76q/kbxUbM+I+1UWnO/eHY8qaoS/Olt1fU8vyRduMO7nM/GP3bfgQRsN
npI0aUmzIQRXaIyesWVih4h6TP79FpRn1nJuKA+ghEf0+Kp1TDz12LXQhdSb
89arSZqsJ/F8uJeStIAJK/qVq9RLFPglnvgdZjCEJPXnESfLGBjZyXz1NZKB
91qT8z4XcMGkjts+HyDvuaRb0SYNOh72dOdYkH35vIdZiBKJm6mytL2x5L23
pr/sziJxKEAxVMKbxKUv3j+v/3ZioSbl8FFN/seo6fWjSFcRkJl6f49K4lmk
25Oi+3dfw/fAF8qjYQLvXCc50z0jOludk9ZmOrWgKynLflFtN3ZNnJpWeExg
berfoak949rphjz8ec1sxDxIEJr7XVf/UrdOUIIEpiNDG+7ZrYOQqabi0SgC
5okzCivEASnXH4IirWxkXKw4wMplobyu7mzlhVikbEy90naDwDHX+q/XHlHR
Hhdlr32sEH49ya6K69rhe2e1nPB9AuviR/kmAo9gvcnpbz8pbOyT/bWgcynJ
1wathYtU00nev0Ly2BsCX/P+i7JWacWgyeMHk68qEW3r67ZMvR0ju5UqbYNI
nJieDJ3c5gJFu+XjFqQ+v13SwnN+mIZo+fllH6sLkPey7u5VMj6yE8P9hWON
2PLZMF1IvB4zjA/SLSvboV7Ud/7wJQIBxVNtdHsv7Kg/ZjVG6iMZQVpTiXcd
NPkNbZantGB3H61XupVAJ6+1nrsZgbZO87DxT7cR19J4nTvGxkovkdtKKd8w
63/dOlCIjjRn1u4X5wl81plfZb2QQOr2y09K82NQqPu8VlCMg+s2j5bb8XxF
RN/1gbn3A8eq3qhI9pL38eZ28/JUGk5FC2xaPf0F655tMY9QISB6cdjLfBkd
C2xKV0ZsqcaGMIuPb7YS2GPWKy54tg2/lu2jvh9hocC3Z63LDg7KDmY8uzJJ
R7eGRknbugqIxIRwujcQcPFa6x31hAqpLoGk+06NSD19VLV5AYF+g7Cg7jwa
rBV+7t6oVQP3YamW5wJkXWkGmybOZ4Enqe9u6Np8WDZ3LXIgdb1u7sbDC8m+
f+xlOavhWgUylRrWJc8jcNsvyF6mho3SjolnKnUZEDg4se/uHg7Sjljcrcj8
ivHl66WPhXTAxmLs6aoONmb2Ci81TiHx+YTO1eFsJkJKdJIOHeBAb2RCgf0f
Babpa3JyrGn4V2j964sPB9QtCbkZrDbcCPpjrkPvwebFKxWdbrBQ5rLRr/s2
FQdv/k5w0W7BH0vTHItMDmKytPd5cNoQRbgq7X/yA9KnX2beKWBhUqjH45YE
A1PJYV+7rb5gf5iirUgRB5dDUir+VFGwLTNEuUOZAZmokw+Z8hxUujZmhJC8
eNXpm3ndUdU4vDW6cf5BDn7MZgxp+NXgZMQmjaxt3XA4n9F5so8F2ia13b59
bVgYRQta79UN49kRE+N+Fhyk8pPPpVOw3Wp3R+BlAqMpQgWfn7Ih8SvIxyGZ
is+pQfK/Sgfg17wrayCNiU014cIBZ6nINZgsqXxOwMMh6s6oJRsFLUrhjy80
gLJheqdPbg/OvRQICxVmwSMiNeynPRXmW0Kv5YT0o2I6c1K7h9S/3cpypkNU
KCvzqt6e7Qeza+3DyC8kvmUW3Wz80AaNhX5b/vIMQib61o1saybWSxqsH5Jp
hlWb4l3tZf24euNzuZ0rE8XVku40SzqkBjOT1gQMw/378nBTGSa256/236ZG
R9wn6z2zWsOIFv1vWyGp+0LSxq0c7tFBjcrv1gwcxls+PZoeiZ9bSja8lIqk
4riT9uGHr4dwLMFzYS+Jnx+Jc2G8PG0oHQvgD9IZxMDna7R7QyRvaRoTf76N
AZPTsqrf3bi4t7r+qOwvBnZt/7qjdAMD4m9Dfspac3EqPv7FjXGS3/jcWP/h
BAOnbpR/qg3kwmQx/4dnf8h8XmKOrFxOhyjDqW97wzAczl7RWUryE7rBa0Vh
BhUxb42lXLSH0dYQWrDyBTn/thCVvU9IHps7HGNL8tjI17FV6zoZ6FJjXWRE
k+s0pWY2V3IROLpa6jXJ5xeEX/X4McHF51z1+ufLniDx87YwQ7MneJL7PjM+
j4FygR25dJLHvrjxJMKDHG/0i+47sJvk3f4Dp0ffkLg7qK+8muwXFe9bO6d8
yf0L0Lr+xwN/mwpNk/Yq38jKCRLPxT+nDm8gcVw16tFuLonr0X8PJX1P4sJj
VPvTqkv5OHcm/pagQR7ShfZNVrLJdX39/se7Ig4dmJ6zf6740/aexHvtzrsO
/8446XRG7uFbR/aDePUwwqqA1LUinm4rMhNhHXhpj2c6AVXxlRnvAuho5snZ
vO1BLigrNPd70wjEuHZMVnZRsOKmuVc5ya8SfRT5N4yQfefCX4XHdRQwj8/w
7BxuhqGggxl3iuQVB/57627Zhlu/ZcQs1ndC643d/Dtn2SjjOX5Hk6zDhpzR
MK897dhLQdPGXDYmNfZ73XpGQYCKYZF8XC9496etkDVh4fvQZwOOcitmpu2z
No31ozZh/odVvkxUnB5b/sCRgm7/gS3j7YMYHz/zx2YFE4u+PVl/9AgNIifu
nlSzGQa/QJlqJcmTW6vKOBmkToxy0YuQC+Yi+eydSMkcBvRCM603qjNhN78m
7Hr2J4T/F2QlK0aA+fpd6kp2G1Z9kjopYdUD0Y2uI1HRLNz+Qr87MkrAsUpE
f8+trVCtrzxstZIN/rQGh16yjjZ9UrG0L+bC3ynXbw+X1O81xzS2k/qG8lV0
sfE4F3qHz+VOkHUldET666NfBPbVF+/VcBXGNl3RgxbkPA9UxUU/MWioahQ/
vcQhD01SJ0u//iFwKFvplf7fNugJqs5+Ti3HL7GzL3wE2jFR3mW0V4IGcbPH
V9VnG6C5kU++tI+DwKrMX1sG23Be5uK1+d0s5DuNt51fzUHs4vogd3VSB0es
2pSqUIWvNoEtBR0czDRRymNEqRCoD9S1yCX5ntndstGzHKzONjldqUee4/Fb
RtWBr5BPuG7OIvnlp1LuCqVECj7vvNG704YN39jUYgMGG10VWhOJOyiQl0uV
M1fpQdK/az7pUSxsPnKtcbabghYnYdyTaUem2WleNTc2jPyeX9PNoULDMWKN
Cd8A5BuKpIRqmThSdiKh0JXMF6X99S73YcwymKOyG5iQPGQjlUnq5UK99Rdd
A7iwFU1XfkLiddEqwafqJRTYrWlW9GsewgtBr8IMYwaokUti0ysYuHB5yXlj
Ug9KeIbTT/YyYChQ/XOHPqmXU+iKw4nv0HTMYGf74Xas5/76U0fm5ejPP69E
pUe1j/qNiziQeWH/fFh1J7oNySNNw38fdYHvqIJwyRo2DGROZXUWtOFNZrPq
Bs9ObOdEKW84QOoR1eolLfNJPF+mV7GvsA9f4sqo0StYyNxxOkF40TCcjwZd
Timpg3bC/En3ZV+REtH3JZqc36XVjI/WRvKnXbW67fFsdJyK9NrdxEQwTe6z
WWoU9ulWULZKtmMX70/q3PsIvrzvX8K2LETlIttc4uMaJAjGHbg8RsXalMFg
7YM1mFfos0iX1BERnNcKiqY0/J55l6CV+Q2fzVu0MkgdMrhDaXP4kjYcdz+j
7kTlIN9qB92RrBNZ2GaqarXBTr3qV84/NiYGfjM2kzri69Zpv6MTNFSY+eh4
xtTgJ71T6BuXA95QtaCoWSaslf9+6lxQhItfOO8dEzjoPblV724b2cf3ivR2
evViP6uk2daeBfuIkL4bjDYo20p9D9LsxUFhr/Zf7iwQ4uvXfZtHgaXbPqfY
b+2Q3/ozjRHCRs4x/nLJvTSIyhvc9G9shddjw4jHWzno97Oaf7GXihcmOn0a
LwcRLaV3WOU6E9+3sRR0G6iYZ5xuZGMxCAXel7+PhjPRaGO41o5Owfp8x+fX
FvQgN9PwgEsAC4O/CwjqWTpuqt3YXZ41DOGUA5URwkxwnEr5njnTMf7li2VI
wjA+2VNtt0gw4a+YUGUzn44e44wQp31cfLeWSN2mxICs4EaenHZSJ5w/52jQ
+Rbbu6eteJ6+xZhRMftEB3mPGKr/w2cZXsH2Obv/TmPrHA/vqbbnq9dQQ/u+
X95xf7fjg2nQ2B0SX+1F1y6uCTfC8Rs5YptWkXxLuu/y3Pu+kC1tQa+9dSGc
6LL2cJs+MkdjynMHCPCM7k5UKD+OoMs+9Oer2VBUoFTPjS/zrcgo6DOGzmk9
4QzDg1DjjzJ27yDwXHxj2u5rZ8Bz9fKzDlk2DthsjpkbH69+ZXD7jsOgFdwI
2e3yHyLyrLpDGgjQE96rCzKvwrJ0mcMCJTYuTm4Omtv/fyKb5V+5HcfZ5LEz
e55Z41rgqM2HNAKu+g79g+p38USz2rNGm40PxxY2nCLHa++aP72lyR73NBZ7
bDzrAIZ42/o6OwLl9muWvV8ZhzXyFcl+dmyMbOxZZkeOD5VeNyY77ILXoecs
K8Nckad20uqhFQeLt265njuVDWmFiW//PWSjqW+h2uG5/6vyru7MV7mAo0I8
9KLgC+glcmoOKjLhc6hWeeZfLYx3CHh1JrExrPrpyw5yPLH+TvrAaU9ETU0X
e1V7kn1s25b4YSpW/WV1qgx3ook/p3k8hYUU4yNa0zNcLH1/pIql5o/9N8qs
Ks/6I+jiRg0ROg3jWe3XDVMHcXHgpfkObybu7B18t58cX7hJ+txfjxDwuEnU
ba0KQQPVdHGRGAPK614W+4tysW/ij767EBOHH2rUmO1o0zm0Xnr/JV06Xo+b
2GpzOuDI+q4ead8KkctB/C+cy7FA07vmeXA7HpuYPvjzk9R3JtSPxrt0sHxy
4ZYYEq/O8Jfq/vlSrbPpvb1ioikTbnlcwxRqO4LNW1M+yTdi66kZx4a3NThb
99Zb1LMdy13W1gSROvJiyZi17Q0LpDNdmXKSbPxcIyIde7dYJ/RH7tuP5D15
99rwjgzasYA4d+jrxe/YkRrI9ljYjNAuYymB3e0Imq+YWt9D4D934Yfzhx2g
3P4wtlaaDSe3MYUynjyd3yavI+7bsmFm5Lg1n6ynAMvCDF37KrQYBQvQ9lPw
R/1MbTL5/Ye2QUZ/6QQs4oKC2FcvQSBMzWbjOjY+92zwsYjK0nnc1u5lKcxB
xDv9382eBF4dqYl/IVkBa5330vqaDHBN67Ie3CQg0rd9VVMZqZ84pnuWGARC
drhpZJ4aG63av6OOGWXoTAv8i3ifTdaRu/bfxPUE2D1Lld49KUPz5TLbvcNs
BFrH2DeLEwgVXnOr4x4Byidb/gM7oxDdvsDmAInz3zOyLs3N03fl5vYk8vup
a4NF8sj5zAgtnudNZWiV3s36Z9yOuGuJM3dIvXNf+vtny1UEigKtb3gOJuM7
ZcONf15sVCQ+3TN3rrClyz63kOdZEe8tcZQ8n9E9Z8X1xRUorSm7JbCxEzbn
rK5tIPumOY+RiOYCNkLWnVrQ9bgULgY16lvT2IiekUwuJeNsZZqW/4GMr6Dz
joQHZLy1dn3JizerxtUPy90G5bvRzGtcKRHBwsXC42Ym0nSoP1/4JlqRjhSm
KYN2mI3pVRGCz8i8B3iu27SWzPeFZ1e4pWT+KSk8Q37eNdi5ZzCh72APQm48
nX1VzoSm6xK+ZjEa6tLs7jl79mHrzg/epb+Z8HzaO/WLrEPb33UD6WT97Tku
eyWdrMeQw++UZiMaIdtxy+5nXh86FvGxXwsycf/a0u6ZSDpClkrry+0dRuK8
J66zqkycK9OkHCTvRV/nBcZe8j781XbRDybvh8DbmM514a3YwZt9a9RpEKMf
E4Y2XGOgff/VqN5yCiaDO/a2Cxei/Ypw9AOyzncnj5tIX2JCPoCnccwpCX9O
Lf2Y+ZlA77afJ4pLp3RktXsjAy/UoyUlQvyNfC+uh5hdf6vKwLW48IefNmbi
UznPDV6CwIcd3e5RZ2novfa9wN0rD5GaA57LVrejp/+w7OZNzWCl7+P1elmN
nUZ6QueD2uFU/e9B9CcKon9uvJ1wshhCnr/CypXbYaa/u/r2BSoiHp+fMXMr
wq0j2/kK+drxjStAP7u4DbcbRSeqzlbAjCfdYI96Oy7fEnbnTaqDgeBpTmBR
A16G5lM1bdoh57X1C8e6BZ1vw2oo/dW4nS99ZLtKO6ZK2/3fXGnFVdoO0+8S
1chWOZaYt6gdggJPdT4WNUHglxs9LrEGkoOn70fJt8O77sLaHZlf8Ej0yIH9
Gq148f5Skq1oO6jRXS/8Q6m4Fquh99CyAUwZ3u2/pAjE5lxXWEDy5N0Rj44Z
6tOghJsWas854P9qK0qRa8MHmW0vvHZ2QfxjWVnEHrIfnRr/+J81HXUQOXrH
kNTXzr7fXMl5GLavYmmk/t17zl3JD82oSxw3O8rkwNlvTP5YE8mrvcs2zTSW
YuF9kUXXBQmoMDp9M3/SEf1+uZVWfyVW60Yan11A4LdW18n0Xgocszs2Uda2
4q7Q9/nBNRxUPyjz4Ittg850aegtkq/o8FUEnZ5gY4DnvD7Hsw3sweHiDT+7
UawymC/RxQKT/4Bc+kkKKk4cOP99FwM59Pv7d+lxsN7KPFuklYLUk7u36Nv2
42l9AKEyxgT1Q7TRtt006PLM33BwrAlHWnIM7kRy0OrCnbVxoGDZ/X1HpG6z
YPeHvfwAHwejl/f9En1ExeLsOPfSwFaUBQin3AvgoCcmnE9cj46O9SUldXkN
oI2/yfrixsHluFshGgR5D1ZvmjL4UIZt59cGnz5C8rV1a/XzJukw/fCk9a5D
PQQK99j1q3GQeGT2zzJSXK1yNDwvYt6L2kS66thJFm66XPG4SPpbG7oFvqp1
Izu5ctiR1AfPRLFOT52KuDHTAD1WP07IH2x1ZjChe/Je+Mc4Gv4U8PVLBA8h
5Imj+N1DTHw+JPRVLo+CUNdw+RjdLmyYNQla95uFQsEmhtMKGpxPvnufm0aH
xqWcjE0FJI5ya+Kz5agYpw189W3vxJbOy7bJPSzUNHQvrBSkwf09BZxzg3A9
p9BKDWHiv6JIBZ0UGiT7sxYu1xnCE/YBL097Jr448KsEXqOi+a6u7iXlPkRs
3BndIcHCpJ+20Tkn8j5maAwrWA1CWsIg/E0oE6Za9DMSy+g4eVhB4/W2YQRW
m/AbbWGi+ZpY9iSFjv3pjnzLRbiIu6V1x4KXiaqNj7UWDNGx7tZ/1Takf14K
7/6HC5k4c6V749cddFSNa/RYzh/GCO1S7VFtUm/WrJ7c20THCdW2okvEMGz0
ntgniTAx7+ztlztH2xDMZzzLnz2ITZp/7qfyMCGrrOGuZ9SK53eSpH7lDWDF
SimVdnL+D2cviilfa8Z3ueSdE/wDOBDSn8IuZkCmr7FIbjUVi+bbtdwLH4Km
SfY8MRYDLT919nkbMnBT/MOBXZdJvvbi9DziD6n/JYwT7vgz4LI+e5djOhce
VmyVSwMMmO6N+XHfh8Sx7tbHaQlc/Frm8GKK1KcxT8a2WqmRdXtRT3j46DDG
got9aKUMvPKvET+lSEXq0fvnP5QPoUH0rKFrBgOLRfPtUrXo4PDHXr26jAvh
2J92T9IY0HDwzrN8w0B6sXHJ+iYuND0TbWa7GPjgPhBSL8/AOZ2Z+jnee7h1
tG3OHjwaVyydRgHrw9JhZ90+KOjHHYrZzEKSuiQnnNSPXPHZ73bHf+DsPJHF
F/JZaJYWLLEnec0uqZW+Ysuv6DwZGZ5XT+o0xRWxMeu5TPAY8cu8mEqEXh1V
suQhAaGLhnk95LmF3bTSO5EObdsmQdVcAmId2vNjVjGQn8UXW5+TheWN5Q8n
6wnE73ulsVOIgbWttR/84nKgHPf4k3cBqY/c/Y2ks2i4slM/Zse/ApzpWeZb
2kKgea85Rf8hiYdpt/LvvSxGyZKF27cPEbj8MF5Bw58GrtHAuIlbPdoOCOhu
HeYg2qNLfhGZf95lQfbiPuV4WhG/8BmJS9ysYYfbpD7yf5HKSMrrgBiDn53i
ykbeNVZLjB4V9BiFleIJdJx6o8OTsYhD1tvtySs/KOg0vV+Z/r4XJ7tFHZx0
WIhM6rbOJ/sX/1Ndaw7Zt/Ztj06yu1iPyaPHnZ+uYGDY8FiIutU7LNp6jvFu
loB3k91A5D1yXQlVNQuPEpwSZ0Uf8W+HacDumiDZJoRl7SqT2vINCiuOUQuu
tyNjmV7jgekaGLeu/LL2RyP87dyTQw+240HIN8LJpxqVjYpZgXpt0Jq6Xhs+
Q+Du4/2iPUGfEfpaR6/WiIbPMWECK/IJlPX6aEbKlcN06p5ytDgLlSsDwkYO
EpDb77X5y/UyTPYm9gyfJBBoFKx+r4gDyaTDYkRkOUamqB8jt3fAN2vXT08G
Gyyrj1GjFpXQP+d9+4NcFyL8n9NOT7Fw3G9P957sr7jC68AaVvmBOlZX7doN
LOxcqpum9rwengGnFldd7YXEwUMtw45MDDr5hMt/JHUo23D+yopB7Dn01le4
jYGM+pknbQEtID5JK0zlDODoWCBxKJaB51Kn/p7LYeLB2c/BQ0U5+MXVitPY
TaCke5Gr9EkG1tf13fsjXIKC5vxwjT0EfH+XnXF0oEPrmfgIzfkzons/9SzR
IWD0yoZfUagNcUdGzT90t+NHi4Qb4z0bG/U2JG08RcMtpx9KFxbXwdXgzqN1
AgQenHm1bXEjG96Towg/8hLWp9Y/tyT7o6TkvMJ0MTburhQ7JxOWBr1vQ5T0
UQ5iTjXEKu9kITR7vqKyfi7OdItpiS0hUO3zrCBQjgL10MGVGw/TMRXygy59
jgPNK6VCayaoyLy8IOXR0CBCBH9Q355looPzw1lomOx3h7K0zpO4pPL7IKO1
hQnRpSn9X9ZTEVChO7u+uBXzqT6H9V9xkDW29uDDwxRsFJ5I3DG/D8ICvoVN
IHlmmyrbeRcdnjzb1W+K1OL+arqnRhXZH63c1wZ3tEHO3JEdKfEDv5WGpF/V
s6DyNXO/txEFh38KnxrZ34HrTRN9v+zZ8OKkUru0afj6PTxrcmYQB2NTndTI
fQqHywT03KZiaplD0Iu9A+DxvPcm8jMTs1M1h1+r0vCfcOz8dwcHEajVmHgi
nAmLotgz0ol0tJV8r44lcTtZ/sOSDgEmaDErD7tk0eEh/PTAhpphfGXf/8Qj
xsT7W4upPSoMiJkYM4krXLzrl11VMMyAdqR4CIfkh+m58StuXeLi4ioztWMj
DLgef7fzkACJ381foouNuTh0wypKcZyBhDsVtV3bGYi1/zv4/Tipy7Pru39O
MTBv381LmndpoKT7XDiRO4w9/vESJ6MYOO/TVXIzmYGJ+pNOZTVc5OX7U7f1
MkALD1yjT/IX18QDRUedb4DtMX1W6AipAxt/iM7cYSPTcIVUpdZtnDgtpJtG
6okuA8Ya8ycs7O6TjvpaHI2jP/KnZxMJ8AxpHxKeR0NjwuK3p97l4m3EmGy3
Szs+Jlvon1/Ewl0P1X0eXi9wkjfvlMV7AvWuVw580CT5jvwz1TWqyYgQenJx
TRuBhRf44z2OULCoSiXxpX0lUm1vbSv9RkB3Y+PC64tbEc35e9+m8BsieMym
NToJnDgyZX78bzMMHWvmbeWpgcCGmS+YJOB+qdVw/AQFapRaZ3GPPiyY2vzy
4EYWPH1V/WcDmuCeeSJX+0Q/OKVNr93J/rJkenvUozsUYMnjahf5IdzNGF4a
R+ZlydNsDGpSEP5V9c7w9CCmRQ41SJLjHY2FlM5/Z4Atcy267xcXfsaa1SeY
DGxL8bn/rYaBZSEniOuk3/indc1fss9m7owNvVDBwB+NS29k+7k4pmng3UIw
sFGeKR+SyIaHgMHhRerX0Gdhxp4XSMC8902AmyUdtqnzrv9dnoVXix18Q9a3
Y1fTkxTNP1Q8u3BO+UTjIN6PmOjdvMyExHWdew2eVAR+8RQ4s2AQOYZpORvj
mUhbFx92cXUrlCZeKITVDmCPzKXXluQ++x/zrmfc4ODZiasZjQqmOlus/F2E
SZxxnFBId5TmYKSj8N/eXxcROHU/9o8lgWBPvlzlDCpWyTt8PJ5ViutXals3
1BLIv5uft0qAgpe/bP2Tt1ZC2UD9mBaDwP8B7FPhJw==
     "], {
      {RGBColor[0, 1, 0], Opacity[0.99], EdgeForm[None], 
       StyleBox[GraphicsGroup3DBox[
         TagBox[Polygon3DBox[CompressedData["
1:eJxNmgn4l1MWx9/3LWlEWintqdCifU/902anGmOELGUZyZ5STabISMQwoiyl
DCNLGCWMhBBJ9j1Sg7EPacbIMucz9/M+/57nd5577rnbuds533PfX4uTzhpx
ZpFlWduqWVYl0gGR6RRUJc+yulmSRVHWsUh8naB6ynYI2i2oWtCOQfWVkf97
tB8WtDn43S2vHtQw6FdBOwXtYVojqIHllDUO2jlol6AmpjWDjor+dgzaFPyR
QUOChtImT3q1CNozS3qjY2t1QsdWysi3UYZeezs2eu2ljPw+ytCxrWmjoHam
6Dg/xp0R9I/g2ytD39+G7ICgj4LvrF4tmVOe+E72UcN5tnRd0buLeebRTb2Z
R1/HZpwezgF9e5oyj16m6N7bFN0H21f3oD7K6GtQUFfLjg7dDgz6JPibI70k
6OPgK9SXeQw0Rcf9Tbu6D93Va6gpeg23DXUPVCfGP0BdyR+krK99tHZuC2P8
S4P+Gfww+6NNzziHPYI+pX6kAyI9LOgIdWW8EY7J/H7t/NFxpDLyh2epbYVz
2NO1Rs+j2cOg3zifYeYPsHxx6HVZ0GfWPdB5fB50aNCxQaPVi3GOU07+1KCj
7O94y9H9RNcL3U8yRd8TLKdsrPPh7Ncrkn4nB52irkdJw9S1YZH0Oy3oS/Ua
FzRendDxDOXkz1SGXmc7NnqdpYz8OcrQ8VzTMchjPc7Ok457RPqVejUIfvc8
6Tki0q9dgzuDvyLoX8E3yZOOE+1rpPP8Rn0nB02RR9+ppsyjRbRtGHR+8NOc
A/peZMo8/mCK7tNN0f28aHdu0HnBN461ein4lkGzHY9xWoT82JC1CWoW/KhI
WwXdHTQnaGvUuXw7Hf8tPyvoCvv4fdCuebpHnLkrlaHvPOvSx5/Ub0bQ1epN
fmK0vSDoYtuNd54jQ7YndzX4q5wzbVqGnqeHvC3lwR8fabug/zrWDUHzHZO5
3qSu6HWjMvJLo83VQd8HP0d9GeP2kF0e9EXwN9uO8gXqge6HRfk2x7rVuV0T
tH/oMzCoSdCUqDM56M8hbx35ccF3DFpqXwuDHoj8NUE/BH9v0C2W3enaMY/O
eeL/GnSXc2BOd5ui4z2mtL/PvtHrftNFQX+3DXWXoVfQj8F3i7Rr0G3BHx7p
T5HeEdQ2dN4n6IHge+Rp/IdYp+B/H7Q4+BXqhb4Pmy4JelRdGe8xx2R+j2dp
/ui4Uhn5R2x3l+l854lPxm/gP1bZjjnhw/HZtYN/3vaM+VXodUTQL8H3zZO+
zwQ9q+7ou8YUfcdGnQFBWdBzyuirf+T3C3oy+BdcO+ax1nHIv+gcmNN6U3R8
yfSJoO+ij+FBedDAPOnyetAHtqHuW+rE+G+qK/m3lTG/FdF2btDPwb+jDF3e
2G5+7ypD3/dM1wW9r66Mt1+sWb+gl4M/NfrbIU9Y6JSgwUFF0Abb0aZ35HsF
/S1LmKie+wEOqm8e/4LfwSeBccAXJSYiBYuAexpaRht8ET6pxEmULczS3eIu
VbMdY4AhwB5gCjAXeKh5lvBFI9vXtT+wRYmrGntukLWwr9aOjV7gijaW4+s7
Z5V4qMRHpHtnldiorXq1sS/GaG9ZA+vSb4mZ0KN6rPdNofON4iPG6aS+XR2b
vsAHJSbqZhk4C1zVMUu4kP7AijtGn/NCfkOedOlh+xIz9VAncEcfx6vIkn3+
VbRdEO1uyRPmwJfiUz+2fnvnSTswDLgJ+94/q8RJFVklThqovoM9ByVOKnHT
EMt6Os7Qsl/HxmZhX69yzIMsow1+cqR6gyXAGOAjsNGh6nGEZSVG7JlVYkTy
O0XdRaH/reKtg5wneg+3PTqBMY5UJ/BLiTWOsmyQupT4a4Tth9gOXYfGWMOK
tFYlfmI8dAWDHKuu4I0SQ422DD1OsKzESSVuOtEy2oMNxqnLGOuBl8aqB7qC
TU5Wp7HWAy+d6tzwbaep319jXe7IE4bi7uEvFqrTeMdDJ/DGmeoCxigx1NmW
lZiJsufyhJl2Fzedqw4NxE7gmRfyhKXATC/mCT+Ble4KWpInfAR+mqiuzBkM
Mlm9wAolVppqGXt1qvMfrb4lnphmmxIz4etHi33AOWCl6c5h9yLhJ7AXGOzb
LOGTY8RQW+wDe8W5PU7c9J39IpujruAQcMm9UX5PnjAU+oJBZqvTlean2Y78
dPeDMcBH8DMsw9fj+08QB/0n+OZFwkytg04UE32fVeJC9L0/ZPeJlSaKr65R
PzDGDeo73/wVjnOjet3i2Fd7RkpMtMCy2dadn1XiVOb0F/BFnmIIsBFnjHFb
iZPaBz2InxFXnSRWAheBtcBAd9gv+KDER6Tgj72KhEvAMYxf4ogSG92tfvea
L/HTXc4DXAEOKTETeTAOPNgJTAeWgx+TJ8wEdgIvgY2WZ5UYqMREpA+pxyOW
MSbYocRHj1qGTo9Zho4rzaPT4+bBYqu202+VZeA0fDR4o27wjwT/MPcqT/77
Z/dnqX2Dj8BGT6sf2OGZrBIbPZtVYpoX1Q+88Zz6rjWPri+YR9d15lfabl1W
iYfW2y/4BsyyNU8YKxNnUQf9Lwp+kHjpGeuCl4aLn15Tx7fsa4pn7nL1e9uy
iliHakGP5kkPME2JiUjfVcf3LXvY9mvU9QPL1loXzAVu+sD5gKPAShuD/3Wk
1fPknx+PdGXQTkEXB9XIExaobor/rmbdmq7jO+r9RMhX2fapoCeDdrEPfDN+
uU6e3gbwJ08Hv9o6z7JeQbWCaurn8HF/DL62+d208djRNdalr51jLvUsmxVp
3Tz5rtqm+K963l38D+X4D3zH7ODrm8fmYtvxO4208xOCXg3+EG0mdbHp2PPG
2v4Lgq4MvpllNUOf5trJXYqkN74Au/614zRXNtmxsM/4lHV56pexzo+0qTZ5
gv1j59+M9PWgvYJeDjrY9jWKtL7M8+1IrwraO2gfdZnlXvNG1zT4DyOdGtQB
Oxv0XtChQe8EXWjbjdht6+xapL6wvfuaYm//Efy1QZ1YR8YP6hnURVuI3atV
pDbkP4p0s/VrF6keMdunkV4X1J19Y8/lN3n+OHvto/71wfeh/yLFAFWD9g3+
yEgrWFf2wTodQn5ypP2CJrlm+Jr9vaPcxy2sn3X6F6kP7sZvgobIdy7SOMQa
3YLvWqQ31NPy9O7JnXgs6Mw8xSSkQ60/iH0J+jJPd/kxbQzvk9Xdi2Pda7AC
75PcoeZZwsjwzbJ0/7hL3KMFnv/9svQeiLxD8DO9P9y3H/IUa7QI/qc84XBw
9ELr9At+W57qUQb2AyeDVcH73Mt9g/85T+0p432PccGHvLNxxw7O0lnmnHM3
P/OOcb8+985z33mXQD4qS/eZttxNfCv385gs4VzqH5Kl+4ycO/uFd497B95j
rNMZM/SpXyScBoHPuEcHmYfnLYu2v8vSOyrzIh5hjViHvt572nL3n89Te7DT
V95P+mkU4+xRJIzXoEj4r3FeibHAV7xRUX+Cdx18yH0fZV1sBfvcxL1enyfs
iAzb0Uw5GBIbcWGW3rKQT8rSPUaO3eDOt1A34kT2mvcEbAIYj3envEi2A4yI
HQPjzQx5r5A3LRJ+yopkayhb63wudk32cC6v5MnOUH+d/SP/XZ5sI5iNdyzu
16VZepvCfvwx+LfyhFPJv64u1Hk30tds+0aeMCjtwZnYmcuyZGPgZ1kfrMh7
FO9O2KS5WbJbYMXrgq9SJNtFfkOe7BnYbFPQ+/LYI/AYGOeDPGFN+pqnHJu2
TRsHD+aEvz74qkWymWC7NkXCedixZaZ/yRIOxKbdniW71sUx+0b9PkV64wHn
gcF4l/jEPPxm5bxlgX+wYbzh7F0k3IY9/Ni50GaFsgezNJ8ejtU76j+UJzvc
rkhj9JJ62+cTWcrDL7cteGqT80OHca4ha/tP26Lnf/KE3SkD/4CFeJMBk4HN
wD7gOGzq6iy9I8FTzni0YXxs8yDrvKScfv6dJyyFncau88b1Spbsen915s2n
QjnjDbT/1+TBXWfkyY6Xb0PY843enYM959wb3mW4Oyvlsb3gF94vsBUPOS/W
6cc82U3K+B6HnecbHfiFtwZs4y95spvkuU/YE+4p94dxuZu8AXN3uI/j8xSb
kX/O+rx7j/UMPOWZPGy783uY55O1GWsd/NgRrgP7eXh59pSjf4VryrrhA8Gm
rBlx49mO+7ltl2vHiG2xXWAHMMQm13i4Yw2wT/AwdpL64J3q1sfHDXYv2Iez
8uQ3d9VG4f+we2BI/N9HrvNv3QvW82j3Yrr9fJglDImc72LV7BPdMr8FoDN2
Fx5MdYjrvEU7zLjgKzDVcfKt5NmXlta/RJtJfHqtdm+kcuwZ9g2b9rY8OA1M
xR0Bb4CRsBXEg2AqbM737sUprkk75dy1trbF1nW0LfcR24Ad4A5+Kk8c941n
gPXnPnGv2Nt+8tyvPzgW+w5GATvVylIsgx7cu6rKqzjv8c6x8JsFa8K8mX9r
z+vp8lX8lsE6YMePd+7jrU8/7M9p7ntVvykw3//mCTPl1uF8cNZKLFXFPT/D
fcfu0La9fY9Xl7Ge4TGm53iewVHENmAp9vd895oy3k04+9PlZ5ieJ/+8/Hnu
yyTntd5+OGNvKJ/peZjgGWgmz9nm/YN3kGtMJ8q/Io8twlde6Bq2k+ecYPN5
H+CbBXH8FPlF5uE3KOfMELvx7RtMiI+b6jrjbyd7hjsq50zSnveCRaaMxXeT
HYpkh1/V3nKGuMfY5Ys8Y/fbhvrghwtcN/aLuzpEXdAJDIs9A8Njr8CAxHhg
SLAr37XBpaTkS4w2Uzl1L7X+pbYFSxL38c0XbEksxrdL8BJ4c5byy+TBp8R9
fCMDE4INZ8tfLg/epA/6ApcRh/NWXcs9vdL++QZFzMIdJE7iexyYBKxD/AX+
QfYn97GG68C+dFBO/TnW58wQS/FNDSxBeq17xDiMh6/v7rjwc11P3klI57q2
nWxLP/Q9R324A8TpxBTMaZ48MRrvV+Acym9Ujg2f794hIzYgLuA9GrwOVn9K
OXYbTM694y7OsG1T536ze8reLdxur292TYjr6Ze4hreBWxyrpvXZ6zqO+6nn
Z7F7yj7e6X4RNxBXEH/cJn+M+3v7dudhsWeprnL2nTj6NufF28IdtiUl9jjd
s3GnZ4YYf4lysDnYnXhoiTwYfjfbEtMwpwXO8Vn5TzwDd3uumslv9fwsde/A
oeBRcDHxOG+h4GTi6OV5wpzvWJ/zBnYGTxM33Gfb6z1XD3j2PpTnjLH/D9oP
Z22Z56eL8jJ+X+aZZ0xw5rIs2VfOEv8p+kI5+LeasTJy3vXAhfgj4uGHbbtF
Od89eT+5x3W7R/2ZI28CKzznc+U5/118J+Nugt1WOhbp4/I7KW9uHfQB7+1o
W+rgZ4jh4/d/3ZerP9+/Vnm2iduIAYlDiSPBiGCSA+SpQ/qUPLHyGvf6JuW0
w+5+6JqDccA96Mi3rdWeB9qCKfs71mrvAueFc1NL2dPWf0Y5PN+M1nhHwJJg
SuJhMA/xJvPgGwH2GluNf8PPgVWx38jxR+fYFt9HLEjMO8E+n1feWDk4kbh4
nXVGOBb+kXS9PJjqJeucrxy9kNMWbHa082LeYA98K773QNeEOfKfEGJdsDz/
/XjVtvwnhDgT/843BXzetdpA8Bl3CqxAffz1aOXYbPww/hicDoahH3wx6Zv2
if+kzz/b9i3rXChPP8dZnz6Qcye5j+A7/DG+mPiNOA5cx/9AiGPBFfT9rv2D
c96zPnED871E/hX3iP+TUB8MttSx0IEYbYP9THVcfA46bMwr/c9GdeNbBvqA
BabYFnzVyP1inR/w3HZQ903qD1YF76IvPge8y9kGrxLTYitOUo5fAreCX7tb
/pF1+J/JJsclvt5s/4z1sboRCxOLgoGX2ZY+r7NP+plmfdaYmJX62A3Sz+SJ
b4hzuONgEmLLJ7372K+eln9hnd6+4WGvVtgP+tdVju0ivqcNcRPx1lfydYz7
qcMb5tfq0N9xMTrgd3B8qcs3ytH/a3Xby1gerEXs/onrwFjf2n8/eeIy3j+J
vcFpJ3gmOA+8l261f2wX8SxvgOiDnFiA2O47+wHrEZODAzfYT3k2v/fcYj/B
8UPti3fFFlmKr+GxvT84VnPt3o+Oz30BQ3MftymnDvEZ8SGYmrtPTM075E/y
HbUVv1jOvLe4Do/I99uuDe+fO8vT9mfbwhPHYGuwM8QuxDNg8EnKZ2qviC2x
Y6PkiScmqCc4f5JzKe8+/WAfiFeIecDd3fy+Q7yFb8HHgK3wRfgkcBl4A/wB
ZpinHD8FlgBzgDeoX005fgH/gW3E9uMDwFI32T/+CFwDvgEX1bN/sE0d5WCe
JfYPhunr2zV3gTMOz9qCJcAf5fscPD4afAKOBGNwj1s733q+047Vp+Pjy7dM
eHz932y7zb2r61j8H4D2/DfgS+XgBvwzuKd8Y4MHt6x2HcBZi1wH/CDj0w9v
vPjC+vL4PnwhfpA3a/5nwH8M8Gn4M/wUb6V89yVeW2t9fCX+EbxLf+usjz8E
IzQUJ5CS5z2EtJE8NhUf9q2+Ejl++WXl+MNbszTuIu0nNvH//iJPOqEPtr+l
55bYHJ+Hv8O/NfN8vqYcHzHOfWnvGuzmvoyyPj6U/wE2tR/uID4V38d939N7
gU1uZT9T5Bd7j1o61uu2beOdoi22gjMP5uFMbnZenTxffbWV2GpsPTZ2jDy2
DtvHt+T7tUvEqLx5YKuwd9x33qKwcdg3bCR2E1+wyrZPZOldhPrYxmnWoW9s
LTYaO0zdttZvJ0+dIZEOLtJ/+PgW1M27DK4kD7bkP358N+LtgvrkUamr8tr6
ZWwC/n2rOvMW09n61IEYhzd+3mbAu2Ddao7LmHxf4T9F/B+H/+/wLae743RV
N74pd5G/3jnig1ifds6L+cHjW7gz/FeJvvmG1Vs7wLno5dnAVyJf5nwHOEe+
L/MtjXct9hK/iB/kfNKW8/u5cvrkuzTfpzdmqR3tX1a2n3LWpb/yPp4T2uJv
BrjOZRvektmfIerTSZ515L8Q+6s/WG6gPHi6p7aCNWTu/V2DnvJNbM99ZC1Z
09IGV7i23V1/vqPhd4balnViHUs7Omi79USfJuqH3lUcd5j7+D+5F7hc
           "]],
          Annotation[#, "Charting`Private`Tag$33913#1"]& ]],
        Lighting->Automatic]}, {}, {}, {}, {}},
     VertexNormals->CompressedData["
1:eJwlWHdczf//DSERSkhFEyWREAqH0lKRSLJCtAeFBqGh0KdSKUVLKQrtPbzb
u7T3uqt97w2RBv3efX//3OfjvP94ve/7uc45L7Ebtnq3FnNwcKiTP0vIqDmy
NSbeiYpmjyadaDL67cjqX8CNH0M0Dq2mQ+2/NM9b0b0onlK6uoDbZHdtr95G
x1FFXj6qUC9Msu/tW8DXNuz+YLWXDgVxlwiX1h5c9JZOWcCD6jWRZw/T8UNv
2aobMT3o45j7sIBdGYH1mSp0nApzvujk1IPCNZGtC7gYZWv9T9Ix09S875xe
Dxjn/mxYwHtDpMRcz9Ahv8LwofWOHhw3+LBtAY/ncXJuMKTD6qjxard/3XgX
1Mu1gPN9bcQW36AjyyT80M3qbjhOxG5dwLG5coW3rOmgSApn7/Tqxk7FipIF
PDVi6u/hQkfzg36ZT9u6kXDi8qsFfKncXO1wCB0aBu9il7l3If5upsYCNnyh
ShdvpcPot2YZz2wHNk+1MhZw4Ofu5Foyf3/NOG0uO1EJljjzf/g/XitKyUoK
FuuWbzDcRsNMyxZpYzJeUDoSIHiFhrcW76XNRroR4Ki94aIuA47v5w1Ol9KQ
cVZ7G624G0OPB2v9/tLxM5mWsJZNg7IufXNPUjdMyjbd0emmQ4gZU32Ui6xL
4Cn/2QgyD4xjigWVdKyYMb+wT5COOxtZ4Sq+3bi1VEWGnU/mWW7DmWYpOhIv
bPYaeNiN7cq6bU/S6ZiTSyd+76fj5pxYZbJ5N+7EnWhdlUhHxeGguVRlMq9+
9y7V63Vjnr74vFQ8HVyr/sT0naYjxYsnfe3+bvDMz9iuiKMj98tt9UdXyXNK
3r1jc5Pnn68IdoilI8JqwPbebTpKswUGpKq6IPmlNWcreU7HI+EDUS/o6CpM
vMQ804XCLK4Qlww6giixpamFdDB58i+0S3ZCfva4xO8eOpL4f5ktIfPKt6Of
O5vMs0RauoGiMxU8epf4V6wYgICeSXPbKxoyDRezKGR0vKRO3VlAgXrA7rQf
dh3Yu1pVxil+CJfze9IzaqmIFAof+TrTgafcHm57kgahHD3yJUOZhqNKzm1L
bnTCcYt/hdCuQcTcf9Q05kmDk6qIQOzHTmhmN44E9jIwOdAcHZBBg4e0VAp3
Tyc4RN0tTr5nwM9o4olRJw158iFqJku6MDhcZh7qwMApi6bZfVM0+Bha/2oR
64L6OlFzfz0GvHraB4N46Ujwf29cc6ALG0JGOKblGWjwbhlbuoPsr+J66w8q
Xbgurd6zUoCBF6819rYfJ+t4um7lreNd6M+1Ok5dxMB4jWXs4ktk3nwFO7Sk
uhCgsmnHpe90yGXzegs50/G50Wf840AnOtzcnmmM0PFxbPiZTzIdj6V2NlAX
dSLWoOGk7RQdWrd+fh9xoIId+u6PgjOVWPTKsKyFzPO+D9oJ+z6Q889RHnSK
hw7B7+8FrpCx4WhthYJ7Ly73tiacM2vGhPN9zstJo/gpZvw3u3QA/w7X73z1
ogVOm1Zkth4dwT5u4WvPqykQcBc+eiC0Fdpsvytpp4ZRJ+TGu9OCip9ZslFM
szbIVPApPIsbAuWpvKJjBxXXzGR2Zq9qR/2G5VI/tw2Bqp+h3yJDQ8ASqWNL
AtuhF6f4rp4YRLWt74u1tjQ8ucDrv4mzA55B1x8/MxuEzohjV+sHGpid3K40
4w4krkq7Eyc8CDdne5PrZL3ErH6P7kzrQKar8475TgZC1i7TXr6MDjzgCZec
6IBs4IoLsZEMBFb6z9jI0XFuR6Ts5vWdMPA9u0zbmoGfW56EhV4h56aOYf5y
bSceNydK5KowkLDWzOlfOB0cS6z71X07YEObux0pQ9ZxQqhN4z4VXvpJlj/I
PCs9pG7IfUAFZ7FVztplXbC51J/P/5mO/VqHt0iTcWL7K1V/3jasabYXEFKu
g9AbkWUbxZkQFH+l+fJUN9InDfbXrfgG96uCDjGUMShc9Si47dGHsJX67gO1
DYhprYwV7hgFR53qH2/DAUhf+++yz69GPP/9zv0Yxyi+1lEO9Wyn4NLbK97y
00341pE8/fXkCJozRtceJeslvVyHQ6y/GZP3JYYffh4G/8ealdq6VHh81HMS
SmyBy0fmmOaWYUhzzjwliql4HKbIp2vRiseHAg2pb4ewo//U8QRy/8k9sWuw
WN+G5Ra9VislhqCz10fo4WMafo0ayKxOaoPXvLZRdOogTptHrMpuoOGeBHuR
y752TB8+pB2uOYiEUzZpB0Tp2LMtMIvvbTt0+Q7EBw8y4CHZ4W3wiA4H9WiH
+Jh2lHALbVP+jwEfD8sH2fZUUN+PcQo+pBLSZpv7xVyoUMu+4/Jmbwu+Osq1
WjoyUFRyrdaLjB6qBb2LReoRHPdp94GRcnyPi4st8WehQ/POocr1LVg1mdP+
q6McHNckqPbtTOjOPW9b9qEdRS99flw0qYRSX3ytmCATX5MvT/+63gUkmWfz
H63G0lgMSJqNQ1hlVczTtz0YWWYaJypRi+xiRVFDYgxmu43HBt360LXlbXjQ
inro/T2dXC00hjfEMfbEpgGcaN+/v+j7N4gf6Or/5jSKuw8+JN7vH4Bl4UCV
MrsBOTrLSl62jWDVyn8PCoMpkAjNUFMaacQmt+ayTXIjSDZ/FF6kTEXUoRah
saEmmDms3EHzGIYSh1qc/yAV/Wbnr9HGm/H3LRHk0zQE5kRh3S8vco/5VpgJ
/WmBhoiZ3Gr+IVTlRgWvUaCj+81GmcyhVihsk7tbpzyIrOv+J2xtqciuczq/
8hGV6NCL+XH/McmD9OkRs5xyHDfV9H12YhAcA56vP5HxNbdC3O79xaBEbmsv
yCjB89nDvDOabOh0fjo2waqC6sQpMdmeIkzNDZge42Tj7Y5DS373fUPoJ9am
l91FqGY7TuETCzkyj/Y9M28C35JC3+8WxUhvkm8O12bBo56/pDy8Bdy7Xy0q
Ui6B053FHvnDTHxrMQ39/qUNlpesL148XYoVCvIxp1yY2KHx609GcgfCHjvV
vfUtQ+PhAeOuZUzo8U7NOWZ2IeI/lTWLlldAiXqsZ+rJOEJkGrsra3pgw2E9
mlpWid/pHmUbB8dQ3jW0pG62Dy3c24ziBqrx0bRwqd+uMeRrlK6RTBhAotfE
FppLHVa4ypj+0RnFel/O40G/KNBZ/FbG9XYDXidSBU1lR1Ds80h4/x0aVg0c
Fi1PaoKMr/uLlTFDEPPVKm4ypWLRlLeYpyuV8DrfOufnTsUeY/cdE8vdj14P
0DLyjhqEJT3aOoWMkvFJbpY5SXgiQ+2yqSvGizWUyIOv2fhyq/bThEcOTFZO
vNzHIkAttCweDGbjYEiZ2j63Qqz8R7uPxgJoPDnZbOjOhqdpVdC36hI0HvR7
MNOWD578E5+TzNhQ03xWaUPOya2Q0o/GNvnImZnNlNVgQ0CkLODvmmq4DidF
J5nlQ2WYkZYmyoa5sd1eJdM6HF4ZO2iQm48EQy2OYjYL94g62QzvBny1xv5b
VgVoKlvTdTKFhfONvwpZH5qwftRob03YVyQ9NdxSfJWF4dAkrWbpVohv7LxS
oloIsbzovMRxJmq+jL+LP9kBnbCiHBVKEWQcrg9vPEE+twhfe47UnZtebOJ2
KC+FhVXjDP/ucVi+H4rYoEJBwuI4JcvMatySiE6KFRyFDE+A4j1DKk7VLbm8
9RmV8L56Y8cebypUGTpfTXLKCa7yRVEL/XzVCvEL/eyvv01TVPwFkT6hcMDq
fQmsk4eTtCLYyKQKCdEE7bCj55haX3wh+jKeqO7LZcMvVJf9TMUf2+dzuf3y
vsKL4+3fVyVsrPkbN5krE46kDIFYhc0FKNwRv961go3ue/tmLbvf48T2q5IJ
g3mYe3WA93IlG7nNSpq/Rj7BqvDSqlZKLq4Ka2++V87GY7fRCteNqYjaqVGX
/jsHZ86xnGSK2OBq28DfyZ8Fke3PVT2EcqC58rbDTCYbCdli+3NVCyDiwtke
eCYbQeZaR2bek/WS1Aq2jiqG6hp6nXxCFgRyRl8YPGWDEDSJeSJaCQcHI1eP
K1mQfL1M6/xJsq9GmCNBhg1YehiRvHLZSLcuWqdczYL9o7qzUlEdUBVOvvqc
VoA6g81FL7WZ4BC5sjrsMBU7eXXmXYOoxBej49uPvyFxnmxE6N4WItjfjr2w
n3M2xQwu7Oe06LG7f9SzCHcn4aPKCuWIdvI5efQ6G418e6N8mJnEll9JM69T
SjD+t89WwoWNkblJQ8HvmYR/K4NVV1wMj28eqfs82bBdn/roi2cm0bD71An6
nmKwdHz4Mv9joyTRWDHweQZRNne7tDerCCsf/nL6FshG/Zk7B5wZacS7QKFz
yxWLsJ+/uPZ+GJn/lhbDW24pxOzsjMnthEIEZAZRRuPYyL/O35Dk8pnojBnS
3TtPYNQ3/vlUKhvJt08/F2iIIU4/FP5TduMrdHhPtQ0TbFQfF8xP83pJbCs/
d83IOh9JCnz7VWrJutgHqhrp+qG+6+zw08W5eHGQpRnbwkbARseW+dxkiN4J
4On5kQlqAQO2dWx83CWSoGtYDv/qnyf/vk6D0NzB28XmbLjvvvqW+o+CG9u+
3phNoRJjCQ3s3BwqujR/cZF6g4iYielY0BvKIosUF/TGtYbgI8sjKogNt78c
vrOpBp2lTRznMllYf9TDWrCvkrCLelMue7UKRVunw+W/slDmVaD0sbuKkLDp
V5BZUYW0V2ddnDJYMMugjXEbVhM1+X7BcbRKCC0LachKZqFL4uYo06ia+Hdr
bdDz5Eo8s1CLZ6aycGiL7q3Z31XElfLkQPdLlTi1Rk6pOJ8FmXnOFsrmKmJx
w7Fby7oqcJXLVe1yPQsKx3xTHtZXENki0eu7JSoQL5q6IW6IPF960/0Df8uI
2xtoq73kyiExWflZnYuNBuqNbzyvSojpyvjcRZOleBJWebF0Nxv7szltbl8o
JN4c1Qx9dbYExnNbtyhdZcPSTrHi6+9MIqenmbP5byGUN4wL7SL3JPuNKd/r
aTfCYP5gzs2POcjRra6+1cbGg6D7y4TsKPDSNqq/8p1KcM/zjBb9o2LCl8FP
6mfi47hxyoJ+jlmqsm9BP1/4E8KU9WsmHBdrBytGNmJM+1dv7Q4mXu+132zw
roVIV/uv7qxcI3a7u8WuWcVEwqjt9t9qrUTcn9xATqVG0B/UtbwYH8d0vY9b
ll8r4fBVrMvnWCMYmzPoSn3jMF3R4XvCv5U4v/ln2J7djfBlbTJ4NjAOvnu+
9+LPtxLDTjdebFjSiBLq2I/x7+OoSQpeto3eQqhFnPU1yG3A1nd8nwx4mThv
/oq5T7GFSFpjkcbWa8C6CWbE5BEmPKUHTAiDZuLa20NRy4O+oW4RZb7sPhNt
rdN/vik2EbsG9t//qFSPk32v/3rlMrFb5GX+n84GItlbwTTOqxZr4g6GC65g
oaA8Vf/l7zrCs27F+2jpagxsLqIZW7DgLQ57fctyYmJi5W/b52W4bxRql8nN
Rl3J1g4NoQGoFmx7n/eERkhYX6ZNhdJAh20914oBQvj28okFP5gYFsNNJWO/
0mTI9Rc9xLmRt86qXO2gaE7zPT80Cr9/Mt8fJfYS0UqaVuuG2vByj0PBWfYI
buw9KHldrI+Ij2j7sWSsDaGObceP1Y0g78IiOcb+PuIp18Hp5I42bH3KMaRb
M4Lxw5EGTav6iMOVPIdNSH2hbZ7q1jwwgpK75q52ab3E6Tb2liHzNlg/rvgj
v2IU2ru0xTN39RLLtbKN168mn0/5+a9XHkWclL264JMeIl7wN5OT9EcVTQGS
089H8cAzqGhffDdh/3M8ZHwFqasT9ucv7R9FrOhwwpGkLqJL2Ftd7noL4u9r
RvMeHcNY5I6yvLedhN3LixGfIpoxas0RKRkzBi77zKwR0w7iWmmekCqpKy5S
H6y9yTuOsnWSmtx6bcSPTPuYTlYD8hJf9V0uG4cdF0+8hmgn5q6OdIum0QlK
01KjmjHS56vHhpWspBBSljf2L9xvLBPLU1+435ARhmnNIIUQc1hsc6K0G5fX
+f0pCh2ET3SYbYEqlYjsfmEm87EbpZxnnvzVH4To2uDpiWtUwkl/hV+2fzek
LX5ufK02CH3Hpcu+G1GJ3NHXc5k23UjhOC66X28Qu8TLcu7oUInXz1c9v3y0
G0lrIxLEbg/i6aVU7ZmdVKL6uJ3DDo5uhI9sXS8ZPoibm9juT+YphOwT5sCf
1C4cyzmiItoxiHNDFYREGYWQ87SN1dLvAgcHt6CP6BC0zt1Ij31EIY7xvuI/
MtiJrNDN3ivvDcH0j65m2G4K8Vhi4u1G006sKaTQPRpJfyrxVuk0ZYAwlR63
0+rpgF2AxG8b2WH0jilH34weIH5Ptp5oO9GBRaefG00/GkaAmXihpeUAuf+/
xoXptmPm73vr6L5hrIoYC76qkYIlTKstG/cPEirZ6RF7JwaxMvx/93XEzOz/
39d9mM/8332dAdfZfywqjeA0arXUedaHKdGoA2wqDRc/LIqp/kEjVHv1JQX3
96HY+GADifHyvEKC4wyNaL2tfObmqj5Yf13aQmJkajX+KJynEYOXfMMVJ3rh
lPZbuGieBo/KkE5BTrLe4opHWR292NuetEyIk46d0UO/JLjoRO2Gg8FHSnqh
oHJOSpKLDtO2iAdKq+jE0uND5Tu+9GJd92gGiUk/WPg3bS2diPJuKJx81Yv0
0GLl9LV0rDC2yPi+nk7crItwtXPsReAPaa4f6+nI/724LECYTgw+Tvstd64X
s/emtwcK07HknlVh9VY6cZ/LrNJErBdztLC9NVvpEFjPu+/pPjohvKpW2OBb
DyobVqWSGNMqd0r79OhE3MMHU8/Ee1CQDuV+PTo2nZ1Pth4g8xOyxFklqI8Q
bTT0vzdAA1NvzwXaJgaU7V4efTHThmtZdkt7xBlYl/Hcw5n0v7Yzu9zsUrog
s/QKZXLREEZ8fihrzdOhouj1RtusHRw5xkFKIgy0NC/ScojoBZetENPToA31
XBpvN68bxbjpM55j5Nxk6mv2zD9oR7ggz7NoWQYywubjXy1rw9Gk1SyppEbI
/PlQ+TtzHPZVSuU7O0ieWH5ScvJAOxyKgrbxnWWgQsBr3IBSh7Ff6yaFgmox
+CbSuEKDBSmnTyNPC8j6jP/8K/e4DQGPg4d4Ihhojbkjk2lUDK9fG9svtlXC
PXrXWA0PGyaqZZ4DT+mIKwp5aMTZijqPSvUXcoNoe7r4CwcjBYImTw9XX6xA
3JIDNMEbbPy9suay7EQ3VJLM7ovLlKNnxfHgm8fG8V5g1kxkTT+UPO137/xb
ibJMff421TH0lRQWXWDSUPdgNjJJugnvFddya+kP4bzDs3J5/ttwiYl8d9q1
AotmaMyou2zcsl3+aeO7Bry1jjXPz8mFU4PaDdVsFjZuXCGso9mC0H+SFmZD
+RDJfJajJ85C1d+d3psXdWHsgEHzYZ0i1BI7xdmj49hh4Kbpu5kKndhKTmmL
aiSyuZfQn4+AUumudlkumdBnu4xukqhC56fcm0Wn2bjQ93b+7YZqjBuL8lhd
ywD1j3xdowIb4QeW7Hr+twtmawp5DMQKMFhSky9VNQ6/1b+ErwoVE6ctxjRC
gmuRHrlvpVcPC3newUqzotX4K2+mbXM5Bbu8hYWPHGPD4j8dj+qheiI9hT94
q1ojuOp5LvxsZkJIfIVDhJcZLFxCPS+dzsLWSsFyVi8b3OlyIdes2omLJ45K
XH7diu82Nf94isYQ+/iPxOnnlcQo5XfByaIyLN2VOP2WReoc7Y+mvx72E0k5
+TF3DnZBkYfV3v5qGNfDpllHvnYS5T4wqFNoQohCSplrxxhEP/urRRZTiYTt
6xSSsntxg252hH6EAeoIvfywH6lXrmpu/zfdgfb99vW1FNKvZ5hlCDjQILbq
eoGZXS+Yp6+t2pVKx76itpfq5VRIV4yZqav3gL45XvdGFgNNiVesgyIp0Gxf
eXqWSvrU1Qk3l9KoiLihoxkiw8CTpadSzELa8M7W5OQCZjXt+WpL7jMdu5X9
nuSeMzsmLz9P4pErm3dZrmTgWUlw8p8j7ZCp3rSoawsDgsvlPlVI0ODGv/fY
nyddOFv49G3iJAMlF/VSvO4PoGbDdfvRzx0YFhC0DXMbxr2qZXLVk+Tcvzvm
GvKwHbpPrD8sl2SA/+bcyosGFKybz5/ScGzDU7uJrzq2wxhL9jtoQOlE1QnL
pHPMZiQ5/jCp9RiDidIXn78UOlgNI/+N3WrHbkGuVz2HGQjLGK5cFdmDrIdu
x0/qN8KjhKNTXn0MbitS4v+dbcKbK66VI/7fUH991Ox6FBMxgyVX39XScf3a
wZNPmeTcH5NSNrZjQCugMW1dfQXqndNHTIyqYaJRWChK6moRer1HyQc6ni11
XPqB0grPmE1xM10MPIoXlrBk58J1g/q9oZ4KNPPoXhBQZqN/Vf+zHh06Ko0/
mjg3NMPpYdqRN/GDyJVeeXxrcjQaPXd9lEcFpGdiDinYscEpdK9eV7sTehrr
xygHSqHiuTGQmBxHQMqpDZP+Xfhsc8DxhXAZnoTqSO14Nw7rjRuiVGdqEHvI
6uC/nhys0f2v8ddqNnrM733MseqF7lyYBNftCvANhgc9rR/D/vp06f3v2jCc
EyMr8qcQHcKWDfbvmLgYfKfzx/4uJM7/W71sUwmGpBzqe2rHIWe+/03QfQrc
W2wys43rcEeNK5FSNYIl1jzr5uX7Mcx9xv6JTAVe/gl5oK4/hhV6XW5lKjR0
uIftPz3+DW+qXpZRVIdJXr1UnBkZTqzTatM+seBT3WVEv5A+6C2fVfoR23r4
bVvSYi+Xi1/O2/W/DbNI0SLI56LZhDlfZ1v/gDzwxBYq5ziyULqHkdSbmYap
yxlq6M2C2L+QlQzSpztyj83KV7RhpGjkStsKApv11bXocUzcFIi6aXmOwC/J
h5//aWXCTUSgiCeGDd8IxUfCBn04GXz5Sf39UlyVFdm0NmMMXrZFRR+SmqEn
OX/oaUcOjv6ne65ZjQX5cAuOy4cHsIKT89IJtVLwd4kGLxYaA0N10z/JzzkE
bXPik+iQaryrLwucE2dDpvbIe63JEqxZ9HCOIyYDy2r1pWUescH8IxeTy2zE
oahPn9jOmTC9fTpr2WsWuFortlhqvEKDSt2fGy7ZWK54Obyhgw2HPUI3vsmR
OrJFf0xvKh1LyiZE4o6xIBn7n0jl+koitF++SU/hG/jVD3ETd1jo/MerGTGV
htmrYXOSQ+l4dOezxNsaNg67iISsfZ4Dyzqbu45nUvHSrV6Gu5iNgc92fe8q
vhEh0fseBOTVgTEjITC1kYXUY6+WHNRsJt4b32r/qdWMiJkjxSY/xqGpWZui
pl9EdNqWXXS8WYL4/mK9jfrknlRoLqnyzSIsTF4913lTiEUSozP5r9ngr3it
4BKeRfz5tFTPppPAxLqTJtvCSX9twz4QltFBRG61F/zC2QLnl9lqW8vGkCHY
ckv4TTdxrpmi1TbdjturTJtTVUaxUWb5M1//JqIgaop/NWc90h9ZDUUmM/Fh
4mFaTnoDseahuMgPkxq8E9WTXyfCwrWWYKHts03E4fz1rLN1tRC3Icp3pDGR
/eXFnPKbAWLxhtYNkj6dmJ0avPBcbhjPXax0vc0phEj0PFfXNlK3GHan5vUM
Ikfczyfdq4e4yf0yfcsqkpcTy112vR+FYUBXd1l9NyH1VH715KEWvDNzVN79
dxRp72bvWLuSvMLxWk4jkEE0yN2Syf/JwJx86OLI6X5i0qjiQHt/K56nrLwY
6jgCMfMmTt0DNCLO7uYUz/FecBy3M8r7R0dDYMXcsjoaUbm0ZOL6dB/Gttuo
L6+jofqOsBy5z4kllEjLhX2+Ru+o68I+fzUWZhl2t5749uaDwQZxBjF2Xmyn
bfUgPsn8Nn15n04oXa/+7aLbjSj560MkRlvKmob1bBoeflSqjtPoQ3CT+Y8F
/MTgPHskg4ot17flr7XtwtF/fDpDBoMIM1Q5wDAdQNwJivdZrjacE9s1oicz
gl3l3t+1Wjsh1fTVs7CnAUvlW9VdVozjv/s7vtzsbMZY9FPVE/cJHMqvd0rb
wUJznIXhXtEyzP4qfDpxJws/h031CSs2Vmxs5vjTVYPL6oY3Tj3Pwim+jsDN
AuT+zFhstf5kHtzzpVK4ZDJQZpgSIJRB6gEikF0zUE9kS81lVubUY/f38QvL
yL69m7m4tpm7g3j2mOvYmuMtOHzBPTyqfwyt6rRM/pMDhK0B/y6lqE5EdM0L
1l8fxmq3ViHhdTQibGslRfIaqXuH20Y6+Bl4y043vX97AK1fx5Zkjlfj53tD
wbbwUZxLCHts1JONn69ezBryZWHavTelMouN3LQzPjseMnD56TwzboT0d1dE
qld4MrDSrmnGWK+LOCg+qJ/n3wjn5j0PbjaMIeRUvF/AaxpxVurw3YC1ndC6
XbIvfYaBUcnPzKsBDFRu8+BROtEMm6VcenZBDCxRmR61cxvAfYrbi+6D7bgZ
zSc20TKMi60Fzfv/dMJMRNhui0gT8p/vFBkm9/wfrx0CVo86YKGjd1V/TxGM
1ypqMcAE9X3/n9XrG7BFhP/qX+UcJImeON/yjYW3i9WkLwb1oTZEKTXtXRka
XQUXpwaNYX75VRt9yVbY/bfznM6efMSZX7HTnmeiif9AO72iD5RTwns395Yg
pfBMyUjYGDjefqH/8m4Cp1OBZcevLPCE2qUxnFkQjooVUPQphAAP728OzQxo
FN4JDo9go3x7J7fi3iZI3rh7yds4A0lZFtF0Pxb2bvnt6s2RjlTpviRhmXSQ
lGVlUcfGh5znyyxdcojBG4mOMkQh5E1C/nm8ZGPMSyhbe28TsfRhTNgBq2ps
iEpO8f7FBCQOW7UmU4gtt0uLblT34oxhh+vcZlJHhe2X2Vc7QDzWm+N+ndGK
exoGST9nhtH8SAWrA6h4/azXIyinF+bU8voNZgxMCglqfSL1u89+xZkSahNO
SFP/h9tTvkydLC+BVILBk8KATGx86at10YWNs6VxHOmFFSTPXHU3upiJrk/F
Rv1n2Aj8NcA//DUT/1YYxcpsyYCwSXWUP8lf1YWUNVO0DoJvKc8uEXsaUXVm
xDBg+yBSdnxv86FUwV7q4PMCsyxc1vnvILGXnIsUjzv7bGn40zujKZHUh/qY
8Yf2qnQ82PZhNJLUa/yi5cO3Sf2WXPdijk7iq/7K2jtJH5Vnv05crrYYRzTV
7oU+YuKrvH59v2AHJpzP5z66WwL+dZ7d9CNMBJa62C7rrkCDtdHhuogccC+/
NfhGjY03J6aWdtVVQc12v05uUg5SF+Xwh8qycebrSK/Trm4Enml5UjJWjPLF
x4vGX43j2lpt3ZtOFPywpI2Vk7r+1cNTr3w5RuGz3eHS8swPYPSu4BC4kYOV
e+5a19aT/Lhxr5bfeCK8vu/bHB6Tjd1n8+y+V7Phx8ozHNpeh57dkXu9gzJB
fuBkx3I2rnI6rs5Z3ImUrSNvd+XmI7w/JFzvMBMX8mI/DRm/Jy7f2iXL61uA
Ox8uqSeSfGe5u2iyxdyP6FhxtmrqVB6ixDqTNRvYUNH8tCs2phxSL08E1b9L
hf/12skyMzaGz4UsExeqIE5wVItsDSxHeDa7s+U3yY9BZjNf0koJnUSK1qVD
ZfgbPpqsIMZGZcCisENraMSV/5KFxOb78EXTe1+9Kx2fUydi5T+nEbIzLaWT
SwYJ7U/bN+RtHILusTGjXRF0QnLg2csfV7pQf97qB4nxtF/glrsjFQ+2/+7/
Ttbx3O1VLk+cqZg44PVX4gLpi2uPsvsbWtBypUhOyp6BO7N6J3c7UPHJ7lnf
C2cqwbezz0TpARXuHxW1okhd3E0ciJ862QrNT87/ud5m4MgJhfnt96g47n3d
4O4DKsHrpBJ74SEVxNFFnB1byU3h6xIva9yKl1GaP6afMMAeP1jSe4eKR/RN
mRMPqUQKd1KP5CMqtstGcYmtZqAm2px1i6cVO0Knjyl9YZC+ek2EvBUVCfo9
8k8fUwmNHxMRCq5UXPHdOts7TPpcm+mYxwItyMnk7o/kHgQzWGd303UqBExM
WBoeVOJL9Eh4iSf5/0vNO9386Oi6vzzs6domfJmTlRmqGcQh77AHkTpUqKfW
N0b6UAn3xJhZU38qOhI6DZse0DDGt/6B881a1Ftd6lUzGkbtvFBJsQQV8n0+
dxe9oxIreX9rcX2g4lavEf3o3gHI5b7kFJgvxC19HT6TE2N4GXmuRKOCgjJB
jdJTNVTitGD+pFkrFYxFqfQaiWZ47J97UxqRjNCGz/em77PgYzl81Zk5gH8V
909l7qARCjfiZlsP0/Dm46ejjOYUTEuWiUQ5pCB0tEhlmtR1i7l2qdF8etH1
Zu2uj/M0IpI5R9GUpENmVtL/xKlS4gqVupIVXAymRqqlBulbeX6G1dm8GIDj
FwvDvKs0bKgp+1RGxlFaJJ5sH0DGg8ZKpnA3Qj5+cL7MOwyorvaikHvrx/7C
5mtWLQjoNiUinBkYv6mZEPmrD1nUsbl8Uk88LYh3riIjlzw9KquyE+1zt9Z9
fNGOuyZ7nF83juKg7CKx55oM2AysPGEs2ArHD7KimbYMnJqZGBRf1YOvFoeK
08/Tcci2eLSMjM663365JDThQtZHsf9ozVDV2HeshNSNf08wjMblGLDVi71o
RfbVxMYJrfl7DNR/rNzhb98Oey1XfOZh4EJ1tk4pGVstf7cp+VTifIHs/f1b
G3H5im61vwILH5Z1h0YIMqApJx0+o96KvuKaV9kkXx69scf9nGwDHHrD9O/S
SV9b1CH0iowVSaeiv/fnwXr2rpfMlm/InVnuvriDhePaT14GkjrrhPjS4NWf
W7Bzz+qqN80MxGdeO1bimgXBoyUDfM8GcUxkROIgGVETubhQJwb2CXHflvyo
g+uiW2afN7BhdEbyq1EFHbqHLtrXHG9G7pSCUrzhIFZdUHz71TWL8DG7O7pw
TrnxG9mFcxSIv9u+ukQQ4fy71lBc6uGT59BuvZaN6+INvftl6VjrLvboplkD
Bm9cjvS5MwTrkV6vs7INRMfTZquF7+qIWbN34bsc3g1Vu27KJbS2CXoM3WjA
eAj3jbJiFgiBscLNx6joXD3yUne8HCZ2Mi67PoxAeUjq1kv7dsLTZOmlhTyL
ihwxX8jzEcemODtmBVGdafLwhkcT6TfzXN5zkz4ibyXnRasuRKW5/Gl9mIXr
PGP3VebHofTisRpZd2KdKaV3oe4DIRbLyskocj1jRse1ieByogYyPrQiQnVn
V8eHcSx+OygqcqICxJvBB1skviDai6+Uy4INb5sHQmQfErsLmwUKyP5rL/QP
XujD6VdCuyWTOwmZB49F3E524mpvh2P/7VEUp5XE+UrHElaV2VeuCefAb5ny
8L1GNrjeLn1GzgWRLy7msDAXw2YPqxbmIowz9NE7+QEisFCgsNi5Bw9VRpmD
MUN4krfV9p4zBa1P9yhx+PSgkTs0ZC5pELuf8lbtqqLicQTxqFCnG1JfnUp3
cg6iS1/ggv8cBb6LxSg/M6kIdE+N/ktGbwNhg7ctFOwqOGLz9FEn6uz8Tofr
DkH0wMGqChkKgtNXS67I74SFe0aRfcEQvg1XZqoe6MWx27XPR8w7Ef2M6+Yd
5xHku+gI8V/oh2j+aY/Vz9vRevKQMVVrBH+6GMMf03sh5rwy+v6nFnybdDgS
cHMU1JE79nWV3fCaTW7JFm3Fw+z9ucZNo7h3xMFMam8bTgd0ZP6LbYVgfvic
9r8xsLeH5Cb9aIcTJ8XgTFkTQiYjC8e3jWM88tkjQ/E2REw+ck34/A2KXuWu
hr/H8WSp7b+VW1tgsVVTwCGpATY9q3y995F6oDgtpi6hHm9oFosEjJqwhX//
zaYv5HP9awqz3G1wUb991sm5CDLDTcTfbCaCVy/2vHOhAambnWpVmHmwCjq+
4WsBC2bvx84JPiqEtlewrPNUFmanhS/YkD7xpTpzq3lfNzy432pekC9D89v2
+RTdcZyQvYyg021YlHetLX9FIfaIV2vI5TDRldZyzJBjAJVn1tODf1fC84ev
PzfHGHh0hbj3lPWi5LVau0lPGfZEiR7yqhnD3TNSv1MetiBVXVSv3ukrbOwc
RizXseAwJdybFFcL3ceXdvrnZ0Pmiq9APRcb1/YI3FyrmY8Ase+MjS5ZkB/f
18D3iY3pLte572pkHldPv1mungu5Yc8ziS4sch9IX33aEY2WjLvMpwHZiDvw
Y1NoCxvLl3tHf+bvBDNDK/HkGAEZ4Y2GB2SYuO4ze1G4vxEdEduiNrdlY2+f
+td+fxbOWO76Kfm9DY+pPVMe+QUwNZwelnzPROn98V0t63pw+uyO8/99L8TZ
bOsA5Tvj+PhSSbVBnYJTD0/M3bpagRaezc8/nRxFbejP64kTvVi+dfTsP40i
pM9JO2v9HMPiIS5DVmoW6vx6Aw/fzUTUjMyQcAEbsZfnVD9lVCB0Y9F0nW06
GpXU1r4zYEOmq/MwZeY9AlYtGUv7lAU3WY8f/1rZsFE+3EU3SiRiU3dXtfp+
RYuzhhUjkw3P+jU9h63r0Fvrfb/DNg0Dvb9fq69iYy17ZoNwWjtWjwQob/XM
xsVBsVM8/kwkMhsrst40IGz7Sh6+gFSUL417KNnIwq2UhryPozdxbslyLrfD
OeDziFTlI3lziNhzzHvwGRFcV3TARzcH9868yjnSzobCV9Z5F+0S6ChxEV+0
U2DElyZn7seG3ftZhasz8ShLSJdadCEdH4TFe1272ZD3v9x35kc+0WSz1/Hn
7mK4ztgM1zmwQemkzkG0hhArtE5KN6qEx6934i6fSd6RfcZrplBJXFlmlHZR
rByrTvHTbVgsqFFH/Apz4ohagabX56XzoH6+Yf37KjYadNftHFpXTHSf9myQ
ji+GhnjCZwd9NgxOvnmybaiTkBNfX5E21Yp5W/6lWiJj6LY4Y3DMi9x7wr+u
m1S1Ye9/u6oKuMfwNXSbX7ZULyEa8Ghg71wXLupZh1ltIH3366LZLJk+ooPJ
4fk5oAObQm/Pz5iOYHDnBdveDU1E/SObyPvPaiH73ond2kX6tcdaLQNSHcQ/
3/GA30QjeDG9KkF1HKZbXmywMW4jOsW/DW7TbgDjkJ69Xec42oOWcyxnDRDQ
jm8wpXZBstm6WixkCCeV99NWRAwQb7/rBR9U6sa7dJth+6whyN5dsizxGpV4
biuvsrygBx31lcm3hxjwMu825p3oJdT2f5bdLN+KnCP+qj8PjmJv7KEnlxJp
xKSi0PTRV/0ouH24n8SIk1jadOVeBnTcGsV+8GYiVPPGmF8pG0c3xnCppJeA
u7/ml3ZFOrbZWibNu7FxCLsOLKqgYW2+hZiQQD/Oex60XMC7D/blvjWhYs2l
LPPkzA44a3ZbxfMPgf5KXP+6PwVbOXduPEfqjsmOon1ruIehId96cmYzBReC
jqpHa7RDZcPdhDmTYejPywgpjvSjxfKjUySzGT8fXexdRxtBzdX31yfFepHH
28G00msC1cuHWT4zCvXkBw6ead0wM9bkjBFqwh6TnHVZxmOIqSaVaEknPIy0
+fZOFWF7pV+1KqmLar6HitB0B5DkxJC6H1gBB2sx3nzaKJjvxmKKD1Vjgqn2
J+hGJmqsV6ptk2cj5IL3mhGDVqx7cSrkv5gcaG7NUdMn/fjyrU02Z/8S+OnX
7/GnNA3LX2ktFf/ARvdskDTJX4TFQ+epBf6qk1yVs8Bfh/PKfrXrUfEvss87
7EU3/Id8Wm+cG8TjihbDOx0D2Bzk3dPZ2402njP+V68OYdZD7Yj8s26sVtq6
6I1LBy7Wc3ROSo8iIexU4gWLFtSfPjd982sLGDzrMxmPxxH587Vn4PMaJJ7Z
s/xldiNMInrWU6aYeOho4B47X4w9hhL8dIUGSBeUxzGCWTDKZopyuqeiJ7TI
f8upevS4OlxesoiNWx6i9opOt7Hrxd+DoYvrseoPkxUiROrnkAB+g8Bk4uc4
n8VG02/Ij16dOfyThSrXCYfdisVEO4dkIuNMI04EN076ObDQfOxnt8S+euKN
IS3+03Qzsp1/nafZMbG31eTfrfVtRKOK6vsAx3bwJ3ErRseOoas55N5waC9x
9wrLdLVYJ7LOhWSuuD2C60vUJvd86yPOReWLShV3o/T7btEQ0l+MHLGSJZIG
cKUl7HfB82/oenjA6JTkKIyK+j5m9ffiL1Oxu6ysCteTWtd7+o7Bs0rq7V3x
bnS6f1hsZl8Ot53rFettxtFz99rIR6Ey8KwpVHRyy8a40M5DyeZs9LAkL/Yo
dKKlSlXu/J1irFJSL7q4igmrH832r8xpeHAsq/9+YTOm3PsfJJK6UWcHn/PS
z1SsFynvdXZpRKbBztwOx2HIS6ikV6dSsCpKIIpvwzdoNu+9EfpkBA8khZ5s
tWpEglTkPk7BPGQtzj5b8oYFu8eTtkZtqYT2077aEyRv8zRZHNSNZSNoTbZe
6cxVQjv2+IntmnmQ3aa7SI/UY+Le5vLa91px0KnS9HF7AQ74amh5jDLxRZEi
x0dJhusHv18qUVnoeWlWLV7Dxs/uKzu2L+rB8z7quQOxxTghtUqq8eY46pae
26v+vghZyoXz675ngO7OOX49kI3OfwX0Zfr14NOW5u+KzsC5fUIfHv1hwXyQ
9yFnQgzhcSy8vX0sH9vlA/Icy9jgXPur5lBHHKac/aMFazNRkvBCUIXki+cN
g1GRrlHQdPjtWXAuE/Y0zcTHPaTPujupwztaQZTezlrUVFmOf83nnb1HWdA6
v1xxyqKYOBn3WtbpZAmMxauXyWmzsdV3tYOHZwtx4dqa8kjTBiwbvT1PyDLB
5+YpWZ3UTFxKiT1uHfkNIx/Kwx6YMvE8Xm16R2ED0VAQaeewthZXOsx4c0gd
otBu3Pxi1zciWd8xM0CqCvIOogMGN1mYLXmSqSNKJVz0by6dmOlB4P7LFa+5
BlH4RZ2He6qHMDpc1/9sYwuW3fuoeD5jFKcejHIKj9PwSVklksjsAa/Uunlf
Dzo2FXU/aKuk4YDXWvvgiR40iGrmXQyg4z8FY0UXGxqCWu25xiJ7MNI/O+e4
hIHpyxsrX/FQUbOe3ccj04vwrnmdjeR7WV3vQi5L0hCgyHvGc2kPdH8orz1E
+sokixPvL9VQofY5u820tBtJyhdPr+9lQCxNk9fneiu+Hz60pSS/ClVepn+C
HJhIspz8l3u7CYVVuifEYqtA/dn2ZOo3E63vvqkO3m1Cx3let6nxGqh9W3Iv
upWJ10Nqn1RkP+CuRoGlVm42QuysO46T/WY416XdYddNqMW6UXmlu/A7WSDq
VsUIZlLKvvJs6CFCoDl3/mQ7Oh5lbTtL6qJ7O+7Qgyg9RKrBEWVPmQ5UOLA2
PO8fQWqF2jamN5U45ug2dYz0PTvdeTXfPRhE8UP1AttAKjEbt4tPb64TvCdz
V80FDaLxV2nXhScUguf2i+Bf6h0grrb6BlKGUFswHfq3i4bZZ7FK5S96UcxP
VQjQpON3g0jGqcNU1N6fnUs82AN/kQCZG3KDuKv98L+qH1+I6l+6LqVmBFRG
jptPp7GRrevQt8EnkmAzRF9e3FMA3ZtpUbHlbLDFLKI+Xe8hXlnfXXYanWjN
SHm9uGgEi8uXK+3bTMfkK4uOPN1eDKqc0VrA7jkZR/j+0nDNXSXw4I5e7AC/
33ItOkKkidboFZ2Qebt1bqazDodOe9AXu4xD2vwrz9lvrSi2Lz96/WoNlmoZ
xjZrMfF/Sa1lgA==
      "]], GraphicsComplex3DBox[CompressedData["
1:eJx12n+MpVdZwPFrxaJtYzRoFIwK9HaF2BCgagwB3pCY0qmVqH+gKESsiouz
UyepiPCHGoyGKOpyS2yJkK472DRUyGaAu1uqcXOBTda2ZDrblu7ebdnZ6f7o
djsdkZAxRsede9/P8+Z57u6mycn5vuc+5znf95zznvedvur2P/zV37uq1+u9
4rt7vUv/9f7p1x84+NEb73yr8lVP/9IXtrdfbP7gdW/95A1zyw3+ldf82a7x
8IXmX84f3+7PjYK/748OfHK48HzT//IP3XRw4eHg33t47bpB/7nm61/7qS/0
51aDf/bal/35wvhs89ev+9ojC+Mng9/2a7/wX7cMnm1uvvv2s8OFcfCN/R94
X3/udPNdvZ1/p4K/cpLnN5vf+uLXP7ZzHf/dST7j5t92f/rlc5fi4fdP+n2y
+bEf33PfTv/4xUn81eZDj73ppp188fdO4jzcfOMvv+/wzvjw85P2o+Zn3/TU
bTs+8FMTvtx8fOO+4zv+8F77T51XPtWVfPKM88kzzifPOJ8843zyjPPJM84n
zzifPON88ozzyTPOJ884nzzjU5sH3swzvtm255k/PrXD+VRX8skzzifPOJ88
43zyjPPJM84nzzifPON88ozzyTPOJ884nzwHX8rzGd9s4/PME58843z6Pc6n
upJPnnE+ecb55Bnnk2ecT55xPnnG+eQZ55NnnE+egy/l+YxvtfF5xne3+fDM
B58843zyjPMpLs6nupJPnnE+ecb55Bnnk2ecT55xPnnG+eQ5+FKez/hW2Z/x
xTYfnvHNNn+ejZtPnnE+ecb55BnnU384n+pKPnnG+eQZ55NnnE+ecT55Dr6U
5zO+VfZnnE+e8W+3+fMc+2I7Xp6Nj0+ecT55xvnkGeeTZ5xPeeB8qiv55Bnn
k2ecT56DL+X5jG+V/RlfLOcNnE+e8QPteHnGd7d+eDYOPnnG+eQZ55NnnE+e
cT55xvmUH86nupJPnoMv5fmMb5X9GV8s5w2cT55xPnnG97R+eI7nSeuTZ/ny
yTPOJ884nzzjfPKM88kzzifPOJ/yDr6U57Nyq+zP+GI5b+B88ozzyTPOJ8/4
a1qfPOOb7f7As7z45Bnnk2ecT55xPnnG+eQZ55Pn4Et5PuNbZX/GF8t5Q8kn
zzifPON88ozzyTP+rdYnz/g72ucdz/rnk2ecT55xPnnG+eQZ55Pn4Et5PuNb
ZX/GF8t5A+fTOPED5X1QySfPOJ8843zyjP9y65PnOKe35zee9cMnzzifPON8
8ozzyXPwpTyf8a2yP+OL5byB88kzfqC8D+J8Gj/Op7qST55xPnnGP9/65Bm/
pn0f4Vk8PnnG+eQZ55Pn4Et5PuNbZX/GF8t5A+eTZ/xAeR/E+eQZ55NnnE9e
cD7VlXzyjF/X+uQZ392+X/Psd3zyjPPJc/ClPJ/xrbI/44vlvIHzyTN+oLwP
4nzyjPPJM84nzzifPON88oXzqR7fOVqfPONH2u9FPLvea//xjG+W+Zx5tz/j
u8t5I7fvzs/xPaC8D+Y43Tkv3mvL97ocv3su4p5HPOd+u30Et955zvl03nE+
1ZWvbr9//s4nmrsWxhvNmQevfmTX3P6Yt1efWrx6bnCxWdv+k0cOLjwU/P6f
3v+h/tyFZvevfPDld4yPBL/1g8cubm+faxZ/8F27er2V4BdHL3nveHimufHD
32nmBo8H/7vv/7ljw4X15vzpu9416B8P/vrf+P2bB/215jO/+IY7x8Ong6u7
jvu9eLj+9I/LT7648Rgfbvx84HzxV7nyK2U+49/6yNk9O78TF6/fA/GVCd8f
7a0DXB75O+3+uN9xf5dy+7i/7b5k/Hj9nobrV3vrD5e/9q9cyvnH/Gn7dT/w
+t0JF1976xuP/TrF7/KM+dn2a37g9fsMLr729g88zhMpfpdnzP+2X/MVr98x
cPG1tz/h8szxuzxjfbX9Wj94fd/Hxdfe/ofHe0WK3+UZ67ftV11Z34tx8dVd
x+WZ43d5xv7Q9is/vL4/4uJrrx9cHjl+l2fsP22/7gde37Nw8bXnFZdnjt/l
Gftb26/5h9f3EVx87c0jPL7TpfhdnrF/tv1ab3g9t+Pia2/d4PLM8bs8Y39u
+7W/4PV8i4uvvX0Cj+/pKX6XZ+z/bb/2U7yeA3Hxtbcv4vLM8bs84/mylONn
3sWP81LLPQ+091xQVzonqIvz7fY5Jb54nl/ax9+tyj6f/87S7cP57wXdPpm/
e3f7WP5+2+0z+Ttktw/k72ndOs3fhbp1lL9vdPM8v6d38zC/b3bzJL83dffR
ffcc5Jc/nj/8tjuHw4UXmxMrd7/htXODOPfedu7axf7cRvPuv3nb9qGFB+K8
8RN/+5nXDvovNLvuHi/fMR4G33jjW9a3t59v3vEz197Z6x0OfvipJz61ML7Q
XPPp+z82N/hq8L1/esc7x8PnmiPfc/N9g/7R4Lf3X/oDc4PzzUfuWP/38fDR
4G/8j3uPDhfONffOH94z6D8W/CWLP/8X/bmzzf/+5N//93DhWPDHf/ixNw/6
Z5rffPw9fzUePhH8vofe/53t7fXmwY/e+LJe76ngf/zbVx1YGJ9ufuQt/3Nv
f+5E8Fte+o/vHw/Xmg/859Eb5wYng//o5266fm5wqjn2z/c8uDB+Jri667jf
i4frT/+4/OSLG4/x4cbPB84Xfzi/fOPuh/uDu3/uJ+5+u/+4+WG+4OaT+YWb
f+ajeaiez5mDmK95/+m40r6hXczztr24+hFfXWm9aC/ONa9/xd6d6+Jrf13L
tfM77bXzO+17l/232QwuJdWPv9P3epfcLuys7ykfBT+5gy/tB5PL8XfTXm9u
0vC5tv1q8IM7zS7tN5Pm8XesXu+GyQ+ebU5MLwS/a/L7083/be/8+2bweC9t
r+PPtL+/vo2Hf7nt70tt//g/tPm9vc0Xf7Ydz/F2fPin2vHPtz7w+5OvzSt4
7fV4zT6Xi+/N8Fzb84zzzzPOP884/zzj/POM888zzj/POP884/zzjPN/PI1j
ueF/vnjiv87TvWW+8neyxMXrfB6UuNlzbb/a1PjZ86i5tR1n9jxqDrVesudR
s6v1mD2Pmk+09ex51FzV+s+eR82ptr/sedT8a5tf9jxq7mnHM198nE/ruZuP
e8v65ymv9+Xwd7L0h9f5PL5sf6sz7Xmu8XnG+ecZ559nnH+ecf55xvnnGeef
Z5z/+TJu/uu8O1n2Uz6s3zyfV4v/UfC6P+OXn89dHnk+d+3zfO7i5/m8Gv7z
fF4N/3k+r4b/PJ9Xw3+ez6vhP8/n1fA/X8bHf51fedy9nnHfkPJbDh/Z/yi4
8fKM1/0Zr/N5WPLjubbnucbnuebDM84/zzj/POP884zzP1/GwX+dR3l8vZ7x
3ZXmx3KMO/sfBZc/z/itZX7gdX/G63w+UfLmubbnucbnuebDc82fZ5x/nnH+
50u+/Nf5Us9PxuF5zTOe/Y+Cy4dnXP4847eWeYPX/Rmv8zmf7zbDc23Pc43P
c82H55o/z3W88yUv/uu8qOdR+Tr/8Ixn/6Pg4vOM70rzfzW4/HnG63kDr/sz
Xufzx8s4ea7tea7xea758Fzzny/9G2+9//V8Ly/nSZ7x7H8U3HrhGeefZ1w+
POPy5xmv5w287s94nc/Xl/HzXNvzXOPzXPOZL/3Iv97n+r6kf+dznvHsfxTc
/s8zzj/POP884/zzjNfzM17PG3jdn/E6n79UvPBc2/Nc48+XePKp97O+f+rH
+w7PePY/Cu48wzPOP884/zzj/POM888zXs/PeD1v4HV/xut8fnvxxXNtP19+
J369b/V9Xjzvjzzj2f8ouPM5zzj/POP884zzzzPOP894fR/E6/kZr+cNvO7P
eJ3Px4vH+XJd+3p/6vcRv/M9hGc8++++o3jf5Bnnn2ecf55x/nnG+ecZ559n
vL4P4vX8jNfzBl73Z7zO5/nit96H+r0pt+u+K+F7k/9R4aOZ923vmzzj6jzj
6vXcXM95eD1/4PW5WJ9LdV+u+0hd93UeV+/Va/Wdx70/Snzq7aEos48jUeZ4
K6XcbCZhB49Hid8y6fB4lPieSYdPR5nbr0WZ78N6lDnOmSjz/TkXZZ4vF6LE
Xz3J+2KU2cNGlNVnr/13MF03f/c3B8vv8XvK/Mb3lvvkd7m99/qNZl+5nzXf
mvflea+37wrzQz7T+fFilDnvQZR5nvAwmPldjZd/7zvc7PWcZxd3X8nzSv3k
8c7mva/Uc7+z+e1LeTwU/vL3qP1x/fLfybt5ktfpcpk/R2biqLtevwO7Lk7O
c9TkebsyEyev/5WZ75yuXz7Ph4PnfWGlPH9X4nr9jud6zdN13P5S46i7Xr9T
uV7zdB23T9U46q7X7zCu1zxdz3xtJk7ud23mO4PrNU/XcftmjaPuen2Pdr3m
6Xru98xMHHXX63ui6zVP13H7eI2j7np9D3K95uk67nlQ46i7Xs/5rtc8Xcc9
V2ocddfrOdb1mqfr9fkizp42jvowjb87f7le83T98vvGctmvlmf2mWl/wyjz
8+fIzP6jXveT6Xr8apT5+bIys8+o131j6vXRKMWx3ut+ol73h2n8Y1GKY13X
fUO97gOTabL9jSjFsX7r/qBe1/t0nZyMMuezNrMPqNd1PR3nqSjFsR7res/f
jdfLeE9Hmcd1ZmZdq9d1Os3vTJTiWF91/ebvpeeKt3NR5nPNhZl1ql7X3TS/
56IUx3qp61G9rq9pfs9HmdfFRvnuslH+HrERfJpfV+bzzgNxbsnz9oEoa3vr
ND9nD1+R53Iz6tZpvo9Hr8iVed4ejXVq3JOf9x8LfrBwpTjq1qn20+E8cUWu
FEfdOs3z/8QVuVIcdes0z9tnrsiV4qhbp3lfXwt+qHBlXo9rZb2an+vBDxWu
zOtxPdapONN5eTb4ocKVeT2ejXUqznT9nA9+qHBlXo/nY52K88VJeSH4ocKV
4qhbp+LcPBnPC8EPFa4UR906FWc6/7xv+/+FLsZ6s37rOdz7Qf474JF4Dotj
vYlXz9v6z98bV+I53E/nkUcjXj1X618cfBr/4cjHesvP4RfKd4GViIN7Dotj
veV43TlZ/+Lg0zyfjDjWm3j1PKz/nM9aPIez51MR7/Ln3qfL3w3X4zmc7/vp
iFfPt/rP4zoTz2Fx8jo8PXOO1X/+O9q5eA6LY72JV8+r+hcH9xwWx3oTTxzP
Rf2Lg3sO35DaPR/x8rrozsUn0rrYKH9HuhjrUDxx/h96gt5g
     "], {{
       {RGBColor[0.87, 0.94, 1], Opacity[0.3], EdgeForm[None], 
        StyleBox[GraphicsGroup3DBox[
          TagBox[Polygon3DBox[CompressedData["
1:eJxNmHv81/MVx9/vJN3QRfekq/p1Uyqhi9KNLkql+qn8VK65jmXMZbnNZsp9
FtmYuWxzmWFmyjBjc5mxMcwwMTMxZMwlnKf38/P49sf5vc/7/T6fc17v2zmv
37fH0uNmH9sopXRR/Nkq2ndD6LcOaZvKWOOQXjmlnULWht4xpGlIs5A22mPX
IWQb59qFbB3SJGQHfdBv7xh2nfTRPKSnvojZJaRFSMuQ3UP6hdSFdNaWuU0h
74dsF9I9pJWYe9jia5/A+2G0r4Jf32DpbQvGPrbg6usaOhqzoxjrbInf3xaM
H4f8P6RryNSI9Wm0G0I+CukWMihkZ33jd5eQncQ7VKyse7iYwLKrY+AdZsvc
COfxN0QfPYzNPm0bMtI1gH03bem3CGzzoj005LBU9Pkhn4UMDBkVspf48D3a
cfBPFB/xx4YM1m6C+Jgb73rAPk4f9Pd2DLtJ+gDXfvoi5laBrVEu5zw92hTy
WjSTtWVNOcb2jHbfkGniBeOMkDH6mpqKDXMz9Q2WWbZg3N8WXHNcA+ubawvG
phFrm1ziz4q2eci/Qm8S7T7uW71YiHmgLbhm6xu/i1iPGA9yzeBaIg5sGxwD
48G2zC11HoyL9cH3n4dsTuUOzg4824e8wdlH2zKXdewX7dYhr4d+uHgXhFwb
cnHIJSFHiw/fR7oe1tEmvmudS/yjQhZqd7z4wH6s6wH7Mfqgf5xj2M0NHzuE
/Dv0U/VFzK+HHJLKPQTLmSFnhbTKZfzEkJNSuaNgPznkCDF+M2S5vr7hPHOn
6Rssp9uC8QxbcM0L/51C3gy9XbQnbBH7BOOebQvGc2xXhJxrC65v2xK/Q/hp
n8venOcYeM8XK+vuGvNdcsHyPcfAe4EteBfEfLeQ/4T+3ZBT/H5Fqr3Xi0JW
irlzLvqFIetDbgm51b1Y4Fle5hrA/oOQ7+j7csdYB7l8dbRXh3zfMdZxYC65
/q3Qr3Q9YF+jD/o9Yr57Luv4YSp+wHNjyBXGvEbcnPOl7i+YfqQtcz9O5T4y
/xNxg/F6W3Bd5zxzN+kbLDtH/D65YFwUbb+QjaHfnEqNutq9uVqMt9oS/zZb
MP7Clvdxuy24fmlL/N7WvZ+H3OEYeH8VcoPrrgubn0V7T8iA0PvngvegaAeF
vB36b1Kxwc+d+rjePTjLPVrnGsB+r7b0F+ay75zLfa6HddzvGsD+gC3YH7QF
Lzma/EZe+p1jxB8S/nbJZR0HR7tryDuhD47219E+EvK0vvjuD6mMs8ZHXQ8Y
qeXUN+rcE6ncSzD+UVvs/uTYb0P+LG7wPmVLjCedZ25pYBge8t/Qnw15WDzw
DOo49f15Y4Dl7yGPhTwe8pxYmXvJ2Pj+h/joD3M/yNcv+h1zL+gPX38zJr5e
1gfY30uFJ8E5GokFzgHH2UF8r2jL+uA97Zx7zD3jnKfE+kbmssdN3D/sePPk
mRXiWueeDstlH54xdvdU+ETFaeAKcBD4B/UbfgQ/2DbVuBHfTMuFu2wQe0/n
4AvUXOo0HAuOA9fZNxe+BY+quFHFlfr6XUtj8U3Fmfq5F72MUfGt3qnGpepc
A5xisEI9H+MaqPOj/B4uMdTvh3uGPRwbYjx4RMWDRrqe5sbrZPwRfl9xLPxu
9lvwzMil1r7mfg0RH7KX+Jrpr6Pz45zDF3cKntHUefYJXgPf2lO84/2GnA2v
2FdccBDeanvrBvWLep7lH43kJiONB3/4ilvkwqVeFx9jM9w7uEnFj6Yaa4zz
01ONJ80UC5jmuw54CJykQSzHphqXmpVq/Amusn8u/Am+BG9qIu/cRm4yydj1
xqj4U7044BoLxQ6nWCymBvsVT2ow/hL7YFxqv6X8BTxzcuFGb7jWxcaAN7WQ
c7BOuMRhxoZfLBffEc6B70j7fH+0dvP8jjo9wZizxco+VfzoGL+ZnwtveFPc
x7unB+TCveBL8KZWchTwwUNONMYK+2CCb5wkppPtgxvucIr4TrVfcZdzxXGa
cxVPOt3vz9MOrtROnlHxKr4BE3XqzFTjSWenGk86J9W41FnigDPAP3iHk70D
xKC2Xy4O+MX5qcaN6HeRXxC7PhcuBUeCK3WWu4APHnGhmC62T+xL7IPlUvvg
u8z+uca/zD06fwuscIwr7K+xz/yV9lvL+7hv3eUgYKZ2UZOpx9R5eAP1G6xw
D7gI9XZoyENigmNcK+5rUuElxIM73OgarnXuCsduEDf8oeJH1+mr4k/M9ZGD
rEk1fgM2uFJv+Qr1nPpGnVucC6/amGr86eZU40y3phpnui3VeNUtqcaZbhfL
HfbBcaf9/nIN1tCQC0+CF8GP6uQcYIIvwBvYu3vtg2OdfeKtt89e4PMusdzn
HBjv90yIDX95MNV40v2pxpMe8Fwe0s9tfoevtcYGC/xosDV4SS78Cb7U0bvJ
W9pbfbVYqfeP6gve8YS4H3duWdjvJs9Z7/zj4oIXPCVWuETFj57UV8WfmIMr
wQ/+qg+4zoueKzzmWfcRLPCihx17xj5c6jkxwaVeEMeL9h917Hljv2QMsLxs
Hxyv2P9fKnyB32f2zEXnN5EPUuEdcIVRuejU+U9SqbdwgtG56NSrL1KpaV/V
9Vz8s+Yx1jrq1VhrDvl4O/MoNaCZuZ/as5c6OXWcNuSzxn5LbrrHveA9jDdP
rwxpq368c8+5pzvKxy8wFnXugND7eq95ez19T+SIEZ4zZzTRce77UMe5fwO9
U9zpSfrhXUx2nHM7LPQ9cuGg/O7Enu4YsjyXuffcSzgHewhXxLa1+/++9pzJ
Js/ofee6qm/S5pBcfkerzvNDz5Ez/UgbvuF3sC6eI/oA24/VN6hXtp941vzm
88kWNp96HxD8D7L91FisBx4Fr4GzwdP20Bf9Ou/MZsdf06a/9+0zY1Vrhhvz
m8kX2m/2e+4bdZh6vCz0CZ71Wu8cfAwu00jeNcVv6Fe/WcHb9vCONdKGO7v1
FlyusXyOcfzgY5bj2I+RR6FXvIp7zjfcN+rpaPkhsZjDfr7zTb2T6M3kYbPV
D9BnUzHwXXNjjZUjYcObQYeD8L5auict5Vfo1e9Qcx3Hjjc4V72ygXtV/rbX
f/UN/Il32kp7vqfWUmd5r230yXtk/GvOt9lCb2ttPsHzO9H7wlsYkGoci/l5
2vMtOaGd+spU9DNT8QUXh6eRE+Ae30olH3QwFrmecXgItaC9NrT0z9BfJ/0z
3kGbBdqgYwfvgfNUXGe1Y/CfVanknC7qxOzmt+QIaug92mNHXjpQfZU+u4oH
/OBhrdSsnbThfqNT/+E25K8r1fn94apUxrqr8yZ6GIs30nuLcX5Hwt8i/TCO
L3jJGlv4xk9TyYd16hcYD07F7yd9HSdf7pxrPhi/yXE4DbmUPjwDjgGWfsbF
to9+WF8v10u+xf7uVPIMeY38xu8hAx0nBw8wFnkZrnCXcbBhjLwMN3jEcxhk
rIrfcD7k88H6JOfj5/ep1ANqN7WYHD9En4wN1wbbIer8NjJUHX+76pMaMcxx
/DAOLmoLfohzaC6cY4T3FW4Hj6O27p5LfX3a/lO+HfIm+fhIbZjjN4RRvil+
H2DfyM/UGWoTv4vwfzS5ibyU1cnf/L8zzrdAziHHkQ9nqk8RM7yImsj/leQj
ckUL9Xnu/wDXzlsnd5Bb5qgv890Ri/fO/1/jfS+d1Vd6Tybk2t3f23cHx5vs
fi7U5ir3fFKuvbmJ3r3F6px7gzZ3e46TPQtq4DT37fBcauv2qWBkX8hPR+Wy
1/w+tMn9ZW+pgVPVP1Df4J3F5lXPaprj5LzpxqLGolMPOYcZ6tSi/Twj6h56
VYtm5loNmuk49WGW443VqSGfe974oZ7s73mR42ercyacDXWgmeNV3ZjjeZGb
56qP1Q/+4R/7uMY27hX3Zzvt2bd6z453TW6bpw25dr7nTq4l55ILxztOLiSH
LfR8u2mDPbmTHEo+w3d9ruXRemNN8Nu3zEOL9MP5cw/eNm8t9m701Ia81Vac
YJiozUZzxkHa9xLDKvNQg/eqrzb4h1PBcbr47g/WhpyxxDtMDliqPlSdd3ZE
LjnhL6nkhWWOs9+HeD8ZO1Sbo3Phmdmcg3/yDbyT8Xe1x+9u2i7Xfop3mxxy
jPo/zS1HqROXtwHXHOha3tGGb3bXJzjINfxuym+Q/Lb3JTLOR90=
            "]],
           Annotation[#, "Charting`Private`Tag$33792#1"]& ]],
         Lighting->Automatic]}, 
       {RGBColor[0.87, 0.94, 1], Opacity[0.3], EdgeForm[None], 
        StyleBox[GraphicsGroup3DBox[
          TagBox[Polygon3DBox[CompressedData["
1:eJxNmQnY1lMaxr/3vJbSrlIxluzGNhoMw5gZxjYYY1/GLMzYyRKyFlGUJZIW
7ZuU0o5S0UJEKtmiRCKVlEolqXl+zu9/va7ru6+zP+c+53+e59zv+ZpedsPZ
zVNVVVWdclVV/FUtjcJTgS2lqqp3Ir01cGagReDGqGsdeDDQMnB74CHTOwL3
BW4K3BxoY9oisCHl+nsDbQO3Bm4LtDPF1gOBW2xrr707A520dX/gurDzn8C/
A3MCzwZuCXwYuC9wduAJeTCmgzbuYo6U5+8YmBv5OwJ/DzypbebflPLYx61r
IafOtsP9KVO49ww8Eng00M29gHt3U+bv6n7R9rR1Dwf6lTJX1jcv5n0ucHvg
rpTn7xP4yfX0DfS3L3wHygkuzwV6yGWQdV0Cz5h2NW0nj2flCsfBtlMeYh0c
h2mvV+CD4PB84O7AAOdn7i/gHXgPRNs9gbMCrVPmOyLwbmBqYFpgtGvAxhhT
1jHR+YYH5sfYUXynwDjXwzpeMIXvWMfRNiEw1D142RRbL7lO1vRx2GobOCfw
urZeDJTjsI+K9NVAk8jvHDgURyjnbzMy8Fop82DM/SnXveJ6xshlqmujPEPb
zD/d9nHWDZbTm4Hxcp9pCvftYt4pkc4JLIi5xgYeCCwMtA+cG3jb/ZrEt0yZ
++zA+3JlfXNL2c5Uv880ubxnSr8P7Avf+XKCy8Mpz7+IfbPurcAnpm+bviyP
RdH/xcBDgQW2zwp8FuVHA+cFqpczp88Cn8uPc/FR4A3n5jv083ycHmOODfwh
sNi+rOO0KB9j29Iof6iNr01ZR81ynmN14Dvnw8Zy18M6VpjCd5njaPsCXwuc
H+iYMt9VjI/8hMAjgTXa4+z/qK1vAusCSwJfBtYHvipljo1izPaBaoFN8mDM
Wm0wZqNrgMsGx1HerO2VgR9sX24d3BcyX9idRLwIfGXcviCwbeB7uZRS3gu4
J9fA/MR76quirpxyHevYQa6sb7uUbcCLNWyUS/WUU/rVSLkvfL/mTAY6BxoE
tpHLskD3wIWBrinPWYfYm/K32hqolzJXOO5Yzvm65K2DY0PtwWsnU/a3Zsrz
/+Q3eN8zvsRzT7mx36G65+jAwEGBXVJeAzZ+ZVorsI/zMc++pnzPbwK9AhcF
eshx98CKwLRAt8Begfruwd6m2Gqa8jpZ037ag1efwB4px58DAk0COwd+bbqL
dXDn+6wK9AtcHNhfG01cD2vY1fXtYrlxOc/9m8C3gdcDPeFUznyYu1lgT7n/
1hTuR8sJLke6F3D/nSnzH+F+0XaUdYxZExgU+Efg99qA17FyPTjwXeDNQN/A
ADn+MXC8nOByinbhcoJ1hwf+YnqE6d7yOEmucDzRdsonW4etU7UHr7+aci4u
dd4/u/fsN+eDc7ZBf10X+bcDA1MuV7P9XylrpXtKWTehmVqVsr7h7uUOLjQT
ZTQRegNdUmgmyugldBZ6Cz2E3kB/FJqJ8i3WoVPQSu21iw10AroBnYTeQP+g
k9AqcOM+RysNdz76ojnQSh20hT5CMz1WyjoLrfSo8z3pHOiljvJvYVsbeXW2
X6GZKDM/uqKHXNEdXUsVzdTNfSk0C1yetg2O3BFoC3QSduCD7kAz9S5lvdTH
tcCvv2OYG80wwLnRCUPlNci2QjMNco+72A4n7u1CKw22H5yG2AaXYdpFJ5Hv
5foHyAN9ijZ6vpS1HlqJPuiNEa6LO5v7bq480A5jHY/GGFWq6KfRzsk9/LJr
GGtboYcmlCr6aZxc0SYvun7ax7umF+2H9sLmcMegF9ANaCg00ORS1k7ooJFy
Qm+gRdBu6KxJ8ptq21htFLppmm3M97pzMP8My3BCF7zhOtAcaBH8DX2ANkAv
zXZedBLag3nRTWilWdriHiD+o6HQTO84H3XvyY/9niOveX6DQjPNkwca40N5
zbeMtlnk2EInoSXgssDyxFJFN820nfGFZoInGgqttFAu6JbP5LHYMnoKffZp
KZ/pUe7/f6PuEmMmXL9wDOvjLlxSquikpc69zDJ20QCrHbPGcqGTlruObyx/
bB3j0UropG9LWXetkjNaCQ21Ui5rtYsN7mi0AvoIXfG9nDZYJo5yl3EvrrDv
JtewTlvMjfYodNNGx6OBsL9Sjpvsh25jbvYWrYQ+QiegldAfW5wbLYG2KHQS
+oP50B2U2Rfq0C7wpi/6Bo41vCfgwT2ArUInFdqP9upyrOmdglZCE9VybjQC
WgGthE6qnbIWquO8aLatfq+fdVKq6CbSunLCRv1U0UkNvZ8aWUaf1XQfPvQb
fOV5X+J3g2sTvwd39bHej4VOQlt0M18rVXTSPs6zn2W0Ejppt5T1xu7yRCuh
oXZNFZ20l1z3sVzfuj3lsb92G/tbDd1S6KQD5HSg5R1sYw1oJTTWIZYP0FZP
17ar6zjI8cyHBjgsZa2EzjrYPW7qvIVOaibXwy0zN1ri6FTRSUc631GW97Xu
CLkcbRtaCQ10nDyO0VZf9x8OaCX0FDHw+sBlKWsW5kYbHa899M0pqaKTTnC+
Ey3vkyq6CU5oo0I3nWS/o7RxcqropFPldZrlZs6JXqrhN2Dfi9+3xEu4n+4Y
dBPx6ozA7MBtKWuml1KOg8TnTyJtl/JdMi4wJuWY/m7gzpS1yLDA0JTv0SGB
wdZ/FGiTsr4ZHRipnRGB4dZ/GuigzemBqSmfxc8Dj6Uci18OjE85ll0VuDbw
z8DywNMp+y2cX7D/5MDElOPLkkAnx64M9Nb+lMArjn0/0Er+MwKvpXzOVgf6
m7/audGVswJvuXdXBv5nfm3gmZTPxDtyvCH28IqUzwXf5fKUtSA6kJQ3NN6g
mtnnMNPLzF+i/TOc+yq/0Q0pv8Fh78aUzx/zzAy8IYfm8vtbynfTldq7VjvN
Szm92jzt19j/Gvszbtvw8W3K+c7uIG843ySHuyO/NdItKeuqK+RzqTaauwY0
J9oXrch5Q5ejya93DX/S3k3uy3WuE/ucKTQ8Wpxzih308/pIv7dtvTbZ8x9S
1s30533yNueifmPKevpy52A979ofjX2m/bHPGb9dzkMdh87mfN9pPZqTPr1c
y81+v3n2webmSH9MWR9zzlrZH92ITkXjcQ7R0Ohn2u+2z2brmRcNgy5EX32g
HfqPdO/Rr/jcvdrEB9G7aF38rY31+DU6Eg0533r6JH7vl7O+HC5fdDwx4AHn
JQbQju5ET1E/y7Ft5YCft7P/Vjlg52bPBt8af8VviTML7A8f6jlraEriQ3v7
cA7bOy/xAR2GBqtWzvnZaiT0HBqDmNJBbo2iz07lfPcQVx6xzzfqkpXa2b6c
td159qMPsaOTfWpE+w7lrLeIMaToLWIJGmarfdBk6NHF2vlUzYU24q7H3uPa
/FL76Dfi1RPmF8mftdcOm7XKeQ5i4cPap/4pOdSLfN1y1ivERrQLuoWYx/3K
3Up8pR0dQ3zsIp+vzaPBuH+72f9p8+iKCy2TR3t0Nk9cRVugK4idaAy0BXy6
uydd7M9cDaK+fjn3W6FNeB4kT+5W+vSS50WuAT7fmmcu4hzfE/2xVP6sid8+
3DecQXxipGebeI7+QHtwHvrJk/fmQdohbhLDudN5D+lvf/rwNo0muNh6eHKX
8luI+Ez8x85x2hionXWWqed9njhS/O+DuNbauMhve+IJtvtqv6X9iSEt7N/K
eDjE/BDHtjIO8ZuWuPGsfYhV3Fdw57fJMPs8ZkwbZh5/524mnvB/HMp9jE+8
UxA37rKePiOsJz/afWefn9cO8eZj93+EcYs+k4xXo+3Puzox5RV9F+2x0LjC
b0j8d5x54sNzcj7LOtrO1cY4+xA/iCP4Dj70UKq8h1NPrLjfMZPVRX39XvwO
5Tcdv5ur6+/4Gu8zvLPwxsIbNX64yPjBby18mZiA/sB/J5m/wL7oGOLABPPn
m06wnnjAGHxksnns8J6MXXwc/yfW4Kf4Jdodv8C3+A2DP04xv8UzMMezwXsp
/o9PLdMOvvmqYy60bopjp2sf3+zqWPJF7IMbddOtn2Yef0Wro6XwlZ6WD7aO
PP7L2ynxYnfTGani1+gY/K6P5UP8Pm/6jWaaP8SUMr6LvuGsc87RX+gw7nN8
Eb2Ln84yjz/2cO7drJv1Cxuz7HOrdtAV5GenikaY7d4OcAz9u7u/7O0a+R9q
f77Fzxoo5TuMewbdgf4oNAX5x9QA3PH4H/cnPtlHTYK2wNfRBcSUjvrFvF+M
RU/01h8/MH+P9fjOcG3ip9y9aILJ6gd0A76Jv843D09iFvGqrf3PkdtH2qEe
ny90CGPxe/x0gfZH2oexQ+V/lhzog99zzxMXiAnsFX47W19GE+DXxIlF5ttb
X9z51OPz3L3cwfjoC9op7nb2v/DHxea5e/HtRea5j/FT7ljuGHy5k/WFj39p
foycz7U/frvKu54++PdE64u7F5tb9MGvzY+XA/MOds85G9z54+XZxf74Pfvw
kuviLuXuL/xxhXnuOvyt8DXy+CZ3LHGBmDDV/EXaYSwxBn/l3sVHepvvaX6l
9dhfrU38iDsPX8A3uUfx0/7m8WNiLzqTdzPuxrX2768d+uM3+A9+Pcg8fvSM
9gdav9Y+veQDf+5Kfhfwbk/KbwP8F+3Pb4DW5nnfJ56TbrT+JsuMbWn9vd59
aPjH9QXstLRuk/WbLOOPpJvN82b+k314M+StmXdmfjNR39d2yn2MM+tdB3Vb
rW9tmf73Wd/avaxyP6vU8CP0dzjAvbtno4jzy8zTN9l/R7UZ54HffLwv865b
9jcg/ohGruabL75ZTc1M+7b2wR+39Tfjg7ZhZzs1NmMZQ36ONrczP9d7d473
HbqXdzbuHe5i3jZJa3gvE3OSv1lqqpNX2ad6ufL/7prm8esaanj61rY/+ZrO
NUWucMaXa6u9eXusYx/e+tgv3gO5H+uaJ63n+2AdNTl59r+e+pyz2kANzH5j
h7e4olzXtIHfgveuhtY39LcMvtxYXYpfcFdSv4dpo+KNr5x5wK2pY/bQZxv5
mwgb1PM/vwGWyfM+wD16pjYbOnaUZ4Lzhg/urDb+P9lCDAo=
            "]],
           Annotation[#, "Charting`Private`Tag$33792#2"]& ]],
         Lighting->Automatic]}, {}, {}, {}, {}, {}}, {
       {GrayLevel[0], 
        Line3DBox[{364, 1, 362, 241, 16, 31, 46, 61, 76, 91, 106, 121, 136, 
         151, 166, 181, 196, 310, 360, 211, 357, 309, 212, 213, 214, 215, 216,
          217, 218, 219, 220, 221, 222, 223, 224, 312, 365, 225, 363, 327, 
         210, 195, 180, 165, 150, 135, 120, 105, 90, 75, 60, 45, 30, 246, 359,
          15, 356, 245, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 313, 
         364}]}, 
       {GrayLevel[0], 
        Line3DBox[{619, 366, 617, 606, 381, 396, 411, 426, 441, 456, 471, 486,
          501, 516, 531, 546, 561, 610, 626, 576, 624, 614, 577, 578, 579, 
         580, 581, 582, 583, 584, 585, 586, 587, 588, 589, 612, 622, 590, 618,
          611, 575, 560, 545, 530, 515, 500, 485, 470, 455, 440, 425, 410, 
         395, 608, 625, 380, 623, 613, 379, 378, 377, 376, 375, 374, 373, 372,
          371, 370, 369, 368, 757, 367, 605, 619}]}}},
     VertexNormals->CompressedData["
1:eJzt1MEJwlAMxvGgWwgenMEBPHUBRxA8e3YLt3AMd3GSei4UfO0j+ZL+QQh8
pHl5vxZPt8f1vjOzw97s97Pj+TW8n98LtWv9TGr0PtnrnCfOPp44+3ji7OO5
Necoz6rOap7ZndXcsjur+WR3VnPI7qx23+zOavdSy/GMdVbbk5ycXOf/IapG
7c+5nMu5nMu5fc/ttWfUHHJy8rz5XN1a//Q58nV5q7va/lny1ufx93HGP9YZ
/1hn/LX2qO6vskd1f5U9qvur7FHdX82nqr+aQ1V/tfuq5b381e6VJW/1V9s/
e071rf9+z63vc+l7X7tPr++ql0M2H/rpp59++pnDHOaozFnaxxzmMMd/Djk5
uUM+AkBnL88=
      "]]}, 
   {GrayLevel[0], PointSize[0.04], 
    Point3DBox[{{0., 0., 1.}, {0.5, 0., 0.5}, {1., 0., 0.}, {0., 0.5, 0.5}, {
     0.3239316516624887, 0.5304924397723944, 0.48560323659431776`}, {0., 1., 
     0.}, {0.43478260869565216`, 1., 0.43478260869565216`}, {1., 1., 1.}}]}, 
   GraphicsComplex3DBox[CompressedData["
1:eJx12n+MpVdZwPFrxaJtYzRoFIwK9HaF2BCgagwB3pCY0qmVqH+gKESsiouz
UyepiPCHGoyGKOpyS2yJkK472DRUyGaAu1uqcXOBTda2ZDrblu7ebdnZ6f7o
djsdkZAxRsede9/P8+Z57u6mycn5vuc+5znf95zznvedvur2P/zV37uq1+u9
4rt7vUv/9f7p1x84+NEb73yr8lVP/9IXtrdfbP7gdW/95A1zyw3+ldf82a7x
8IXmX84f3+7PjYK/748OfHK48HzT//IP3XRw4eHg33t47bpB/7nm61/7qS/0
51aDf/bal/35wvhs89ev+9ojC+Mng9/2a7/wX7cMnm1uvvv2s8OFcfCN/R94
X3/udPNdvZ1/p4K/cpLnN5vf+uLXP7ZzHf/dST7j5t92f/rlc5fi4fdP+n2y
+bEf33PfTv/4xUn81eZDj73ppp188fdO4jzcfOMvv+/wzvjw85P2o+Zn3/TU
bTs+8FMTvtx8fOO+4zv+8F77T51XPtWVfPKM88kzzifPOJ8843zyjPPJM84n
zzifPON88ozzyTPOJ884nzzjU5sH3swzvtm255k/PrXD+VRX8skzzifPOJ88
43zyjPPJM84nzzifPON88ozzyTPOJ884nzwHX8rzGd9s4/PME58843z6Pc6n
upJPnnE+ecb55Bnnk2ecT55xPnnG+eQZ55NnnE+egy/l+YxvtfF5xne3+fDM
B58843zyjPMpLs6nupJPnnE+ecb55Bnnk2ecT55xPnnG+eQ5+FKez/hW2Z/x
xTYfnvHNNn+ejZtPnnE+ecb55BnnU384n+pKPnnG+eQZ55NnnE+ecT55Dr6U
5zO+VfZnnE+e8W+3+fMc+2I7Xp6Nj0+ecT55xvnkGeeTZ5xPeeB8qiv55Bnn
k2ecT56DL+X5jG+V/RlfLOcNnE+e8QPteHnGd7d+eDYOPnnG+eQZ55NnnE+e
cT55xvmUH86nupJPnoMv5fmMb5X9GV8s5w2cT55xPnnG97R+eI7nSeuTZ/ny
yTPOJ884nzzjfPKM88kzzifPOJ/yDr6U57Nyq+zP+GI5b+B88ozzyTPOJ8/4
a1qfPOOb7f7As7z45Bnnk2ecT55xPnnG+eQZ55Pn4Et5PuNbZX/GF8t5Q8kn
zzifPON88ozzyTP+rdYnz/g72ucdz/rnk2ecT55xPnnG+eQZ55Pn4Et5PuNb
ZX/GF8t5A+fTOPED5X1QySfPOJ8843zyjP9y65PnOKe35zee9cMnzzifPON8
8ozzyXPwpTyf8a2yP+OL5byB88kzfqC8D+J8Gj/Op7qST55xPnnGP9/65Bm/
pn0f4Vk8PnnG+eQZ55Pn4Et5PuNbZX/GF8t5A+eTZ/xAeR/E+eQZ55NnnE9e
cD7VlXzyjF/X+uQZ392+X/Psd3zyjPPJc/ClPJ/xrbI/44vlvIHzyTN+oLwP
4nzyjPPJM84nzzifPON88oXzqR7fOVqfPONH2u9FPLvea//xjG+W+Zx5tz/j
u8t5I7fvzs/xPaC8D+Y43Tkv3mvL97ocv3su4p5HPOd+u30Et955zvl03nE+
1ZWvbr9//s4nmrsWxhvNmQevfmTX3P6Yt1efWrx6bnCxWdv+k0cOLjwU/P6f
3v+h/tyFZvevfPDld4yPBL/1g8cubm+faxZ/8F27er2V4BdHL3nveHimufHD
32nmBo8H/7vv/7ljw4X15vzpu9416B8P/vrf+P2bB/215jO/+IY7x8Ong6u7
jvu9eLj+9I/LT7648Rgfbvx84HzxV7nyK2U+49/6yNk9O78TF6/fA/GVCd8f
7a0DXB75O+3+uN9xf5dy+7i/7b5k/Hj9nobrV3vrD5e/9q9cyvnH/Gn7dT/w
+t0JF1976xuP/TrF7/KM+dn2a37g9fsMLr729g88zhMpfpdnzP+2X/MVr98x
cPG1tz/h8szxuzxjfbX9Wj94fd/Hxdfe/ofHe0WK3+UZ67ftV11Z34tx8dVd
x+WZ43d5xv7Q9is/vL4/4uJrrx9cHjl+l2fsP22/7gde37Nw8bXnFZdnjt/l
Gftb26/5h9f3EVx87c0jPL7TpfhdnrF/tv1ab3g9t+Pia2/d4PLM8bs8Y39u
+7W/4PV8i4uvvX0Cj+/pKX6XZ+z/bb/2U7yeA3Hxtbcv4vLM8bs84/mylONn
3sWP81LLPQ+091xQVzonqIvz7fY5Jb54nl/ax9+tyj6f/87S7cP57wXdPpm/
e3f7WP5+2+0z+Ttktw/k72ndOs3fhbp1lL9vdPM8v6d38zC/b3bzJL83dffR
ffcc5Jc/nj/8tjuHw4UXmxMrd7/htXODOPfedu7axf7cRvPuv3nb9qGFB+K8
8RN/+5nXDvovNLvuHi/fMR4G33jjW9a3t59v3vEz197Z6x0OfvipJz61ML7Q
XPPp+z82N/hq8L1/esc7x8PnmiPfc/N9g/7R4Lf3X/oDc4PzzUfuWP/38fDR
4G/8j3uPDhfONffOH94z6D8W/CWLP/8X/bmzzf/+5N//93DhWPDHf/ixNw/6
Z5rffPw9fzUePhH8vofe/53t7fXmwY/e+LJe76ngf/zbVx1YGJ9ufuQt/3Nv
f+5E8Fte+o/vHw/Xmg/859Eb5wYng//o5266fm5wqjn2z/c8uDB+Jri667jf
i4frT/+4/OSLG4/x4cbPB84Xfzi/fOPuh/uDu3/uJ+5+u/+4+WG+4OaT+YWb
f+ajeaiez5mDmK95/+m40r6hXczztr24+hFfXWm9aC/ONa9/xd6d6+Jrf13L
tfM77bXzO+17l/232QwuJdWPv9P3epfcLuys7ykfBT+5gy/tB5PL8XfTXm9u
0vC5tv1q8IM7zS7tN5Pm8XesXu+GyQ+ebU5MLwS/a/L7083/be/8+2bweC9t
r+PPtL+/vo2Hf7nt70tt//g/tPm9vc0Xf7Ydz/F2fPin2vHPtz7w+5OvzSt4
7fV4zT6Xi+/N8Fzb84zzzzPOP884/zzj/POM888zzj/POP884/zzjPN/PI1j
ueF/vnjiv87TvWW+8neyxMXrfB6UuNlzbb/a1PjZ86i5tR1n9jxqDrVesudR
s6v1mD2Pmk+09ex51FzV+s+eR82ptr/sedT8a5tf9jxq7mnHM198nE/ruZuP
e8v65ymv9+Xwd7L0h9f5PL5sf6sz7Xmu8XnG+ecZ559nnH+ecf55xvnnGeef
Z5z/+TJu/uu8O1n2Uz6s3zyfV4v/UfC6P+OXn89dHnk+d+3zfO7i5/m8Gv7z
fF4N/3k+r4b/PJ9Xw3+ez6vhP8/n1fA/X8bHf51fedy9nnHfkPJbDh/Z/yi4
8fKM1/0Zr/N5WPLjubbnucbnuebDM84/zzj/POP884zzP1/GwX+dR3l8vZ7x
3ZXmx3KMO/sfBZc/z/itZX7gdX/G63w+UfLmubbnucbnuebDc82fZ5x/nnH+
50u+/Nf5Us9PxuF5zTOe/Y+Cy4dnXP4847eWeYPX/Rmv8zmf7zbDc23Pc43P
c82H55o/z3W88yUv/uu8qOdR+Tr/8Ixn/6Pg4vOM70rzfzW4/HnG63kDr/sz
Xufzx8s4ea7tea7xea758Fzzny/9G2+9//V8Ly/nSZ7x7H8U3HrhGeefZ1w+
POPy5xmv5w287s94nc/Xl/HzXNvzXOPzXPOZL/3Iv97n+r6kf+dznvHsfxTc
/s8zzj/POP884/zzjNfzM17PG3jdn/E6n79UvPBc2/Nc48+XePKp97O+f+rH
+w7PePY/Cu48wzPOP884/zzj/POM888zXs/PeD1v4HV/xut8fnvxxXNtP19+
J369b/V9Xjzvjzzj2f8ouPM5zzj/POP884zzzzPOP894fR/E6/kZr+cNvO7P
eJ3Px4vH+XJd+3p/6vcRv/M9hGc8++++o3jf5Bnnn2ecf55x/nnG+ecZ559n
vL4P4vX8jNfzBl73Z7zO5/nit96H+r0pt+u+K+F7k/9R4aOZ923vmzzj6jzj
6vXcXM95eD1/4PW5WJ9LdV+u+0hd93UeV+/Va/Wdx70/Snzq7aEos48jUeZ4
K6XcbCZhB49Hid8y6fB4lPieSYdPR5nbr0WZ78N6lDnOmSjz/TkXZZ4vF6LE
Xz3J+2KU2cNGlNVnr/13MF03f/c3B8vv8XvK/Mb3lvvkd7m99/qNZl+5nzXf
mvflea+37wrzQz7T+fFilDnvQZR5nvAwmPldjZd/7zvc7PWcZxd3X8nzSv3k
8c7mva/Uc7+z+e1LeTwU/vL3qP1x/fLfybt5ktfpcpk/R2biqLtevwO7Lk7O
c9TkebsyEyev/5WZ75yuXz7Ph4PnfWGlPH9X4nr9jud6zdN13P5S46i7Xr9T
uV7zdB23T9U46q7X7zCu1zxdz3xtJk7ud23mO4PrNU/XcftmjaPuen2Pdr3m
6Xru98xMHHXX63ui6zVP13H7eI2j7np9D3K95uk67nlQ46i7Xs/5rtc8Xcc9
V2ocddfrOdb1mqfr9fkizp42jvowjb87f7le83T98vvGctmvlmf2mWl/wyjz
8+fIzP6jXveT6Xr8apT5+bIys8+o131j6vXRKMWx3ut+ol73h2n8Y1GKY13X
fUO97gOTabL9jSjFsX7r/qBe1/t0nZyMMuezNrMPqNd1PR3nqSjFsR7res/f
jdfLeE9Hmcd1ZmZdq9d1Os3vTJTiWF91/ebvpeeKt3NR5nPNhZl1ql7X3TS/
56IUx3qp61G9rq9pfs9HmdfFRvnuslH+HrERfJpfV+bzzgNxbsnz9oEoa3vr
ND9nD1+R53Iz6tZpvo9Hr8iVed4ejXVq3JOf9x8LfrBwpTjq1qn20+E8cUWu
FEfdOs3z/8QVuVIcdes0z9tnrsiV4qhbp3lfXwt+qHBlXo9rZb2an+vBDxWu
zOtxPdapONN5eTb4ocKVeT2ejXUqznT9nA9+qHBlXo/nY52K88VJeSH4ocKV
4qhbp+LcPBnPC8EPFa4UR906FWc6/7xv+/+FLsZ6s37rOdz7Qf474JF4Dotj
vYlXz9v6z98bV+I53E/nkUcjXj1X618cfBr/4cjHesvP4RfKd4GViIN7Dotj
veV43TlZ/+Lg0zyfjDjWm3j1PKz/nM9aPIez51MR7/Ln3qfL3w3X4zmc7/vp
iFfPt/rP4zoTz2Fx8jo8PXOO1X/+O9q5eA6LY72JV8+r+hcH9xwWx3oTTxzP
Rf2Lg3sO35DaPR/x8rrozsUn0rrYKH9HuhjrUDxx/h96gt5g
    "], {{
      {RGBColor[0.87, 0.94, 1], Opacity[0.3], EdgeForm[None], 
       StyleBox[GraphicsGroup3DBox[
         TagBox[Polygon3DBox[CompressedData["
1:eJxNmHv81/MVx9/vJN3QRfekq/p1Uyqhi9KNLkql+qn8VK65jmXMZbnNZsp9
FtmYuWxzmWFmyjBjc5mxMcwwMTMxZMwlnKf38/P49sf5vc/7/T6fc17v2zmv
37fH0uNmH9sopXRR/Nkq2ndD6LcOaZvKWOOQXjmlnULWht4xpGlIs5A22mPX
IWQb59qFbB3SJGQHfdBv7xh2nfTRPKSnvojZJaRFSMuQ3UP6hdSFdNaWuU0h
74dsF9I9pJWYe9jia5/A+2G0r4Jf32DpbQvGPrbg6usaOhqzoxjrbInf3xaM
H4f8P6RryNSI9Wm0G0I+CukWMihkZ33jd5eQncQ7VKyse7iYwLKrY+AdZsvc
COfxN0QfPYzNPm0bMtI1gH03bem3CGzzoj005LBU9Pkhn4UMDBkVspf48D3a
cfBPFB/xx4YM1m6C+Jgb73rAPk4f9Pd2DLtJ+gDXfvoi5laBrVEu5zw92hTy
WjSTtWVNOcb2jHbfkGniBeOMkDH6mpqKDXMz9Q2WWbZg3N8WXHNcA+ubawvG
phFrm1ziz4q2eci/Qm8S7T7uW71YiHmgLbhm6xu/i1iPGA9yzeBaIg5sGxwD
48G2zC11HoyL9cH3n4dsTuUOzg4824e8wdlH2zKXdewX7dYhr4d+uHgXhFwb
cnHIJSFHiw/fR7oe1tEmvmudS/yjQhZqd7z4wH6s6wH7Mfqgf5xj2M0NHzuE
/Dv0U/VFzK+HHJLKPQTLmSFnhbTKZfzEkJNSuaNgPznkCDF+M2S5vr7hPHOn
6Rssp9uC8QxbcM0L/51C3gy9XbQnbBH7BOOebQvGc2xXhJxrC65v2xK/Q/hp
n8venOcYeM8XK+vuGvNdcsHyPcfAe4EteBfEfLeQ/4T+3ZBT/H5Fqr3Xi0JW
irlzLvqFIetDbgm51b1Y4Fle5hrA/oOQ7+j7csdYB7l8dbRXh3zfMdZxYC65
/q3Qr3Q9YF+jD/o9Yr57Luv4YSp+wHNjyBXGvEbcnPOl7i+YfqQtcz9O5T4y
/xNxg/F6W3Bd5zxzN+kbLDtH/D65YFwUbb+QjaHfnEqNutq9uVqMt9oS/zZb
MP7Clvdxuy24fmlL/N7WvZ+H3OEYeH8VcoPrrgubn0V7T8iA0PvngvegaAeF
vB36b1Kxwc+d+rjePTjLPVrnGsB+r7b0F+ay75zLfa6HddzvGsD+gC3YH7QF
Lzma/EZe+p1jxB8S/nbJZR0HR7tryDuhD47219E+EvK0vvjuD6mMs8ZHXQ8Y
qeXUN+rcE6ncSzD+UVvs/uTYb0P+LG7wPmVLjCedZ25pYBge8t/Qnw15WDzw
DOo49f15Y4Dl7yGPhTwe8pxYmXvJ2Pj+h/joD3M/yNcv+h1zL+gPX38zJr5e
1gfY30uFJ8E5GokFzgHH2UF8r2jL+uA97Zx7zD3jnKfE+kbmssdN3D/sePPk
mRXiWueeDstlH54xdvdU+ETFaeAKcBD4B/UbfgQ/2DbVuBHfTMuFu2wQe0/n
4AvUXOo0HAuOA9fZNxe+BY+quFHFlfr6XUtj8U3Fmfq5F72MUfGt3qnGpepc
A5xisEI9H+MaqPOj/B4uMdTvh3uGPRwbYjx4RMWDRrqe5sbrZPwRfl9xLPxu
9lvwzMil1r7mfg0RH7KX+Jrpr6Pz45zDF3cKntHUefYJXgPf2lO84/2GnA2v
2FdccBDeanvrBvWLep7lH43kJiONB3/4ilvkwqVeFx9jM9w7uEnFj6Yaa4zz
01ONJ80UC5jmuw54CJykQSzHphqXmpVq/Amusn8u/Am+BG9qIu/cRm4yydj1
xqj4U7044BoLxQ6nWCymBvsVT2ow/hL7YFxqv6X8BTxzcuFGb7jWxcaAN7WQ
c7BOuMRhxoZfLBffEc6B70j7fH+0dvP8jjo9wZizxco+VfzoGL+ZnwtveFPc
x7unB+TCveBL8KZWchTwwUNONMYK+2CCb5wkppPtgxvucIr4TrVfcZdzxXGa
cxVPOt3vz9MOrtROnlHxKr4BE3XqzFTjSWenGk86J9W41FnigDPAP3iHk70D
xKC2Xy4O+MX5qcaN6HeRXxC7PhcuBUeCK3WWu4APHnGhmC62T+xL7IPlUvvg
u8z+uca/zD06fwuscIwr7K+xz/yV9lvL+7hv3eUgYKZ2UZOpx9R5eAP1G6xw
D7gI9XZoyENigmNcK+5rUuElxIM73OgarnXuCsduEDf8oeJH1+mr4k/M9ZGD
rEk1fgM2uFJv+Qr1nPpGnVucC6/amGr86eZU40y3phpnui3VeNUtqcaZbhfL
HfbBcaf9/nIN1tCQC0+CF8GP6uQcYIIvwBvYu3vtg2OdfeKtt89e4PMusdzn
HBjv90yIDX95MNV40v2pxpMe8Fwe0s9tfoevtcYGC/xosDV4SS78Cb7U0bvJ
W9pbfbVYqfeP6gve8YS4H3duWdjvJs9Z7/zj4oIXPCVWuETFj57UV8WfmIMr
wQ/+qg+4zoueKzzmWfcRLPCihx17xj5c6jkxwaVeEMeL9h917Hljv2QMsLxs
Hxyv2P9fKnyB32f2zEXnN5EPUuEdcIVRuejU+U9SqbdwgtG56NSrL1KpaV/V
9Vz8s+Yx1jrq1VhrDvl4O/MoNaCZuZ/as5c6OXWcNuSzxn5LbrrHveA9jDdP
rwxpq368c8+5pzvKxy8wFnXugND7eq95ez19T+SIEZ4zZzTRce77UMe5fwO9
U9zpSfrhXUx2nHM7LPQ9cuGg/O7Enu4YsjyXuffcSzgHewhXxLa1+/++9pzJ
Js/ofee6qm/S5pBcfkerzvNDz5Ez/UgbvuF3sC6eI/oA24/VN6hXtp941vzm
88kWNp96HxD8D7L91FisBx4Fr4GzwdP20Bf9Ou/MZsdf06a/9+0zY1Vrhhvz
m8kX2m/2e+4bdZh6vCz0CZ71Wu8cfAwu00jeNcVv6Fe/WcHb9vCONdKGO7v1
FlyusXyOcfzgY5bj2I+RR6FXvIp7zjfcN+rpaPkhsZjDfr7zTb2T6M3kYbPV
D9BnUzHwXXNjjZUjYcObQYeD8L5auict5Vfo1e9Qcx3Hjjc4V72ygXtV/rbX
f/UN/Il32kp7vqfWUmd5r230yXtk/GvOt9lCb2ttPsHzO9H7wlsYkGoci/l5
2vMtOaGd+spU9DNT8QUXh6eRE+Ae30olH3QwFrmecXgItaC9NrT0z9BfJ/0z
3kGbBdqgYwfvgfNUXGe1Y/CfVanknC7qxOzmt+QIaug92mNHXjpQfZU+u4oH
/OBhrdSsnbThfqNT/+E25K8r1fn94apUxrqr8yZ6GIs30nuLcX5Hwt8i/TCO
L3jJGlv4xk9TyYd16hcYD07F7yd9HSdf7pxrPhi/yXE4DbmUPjwDjgGWfsbF
to9+WF8v10u+xf7uVPIMeY38xu8hAx0nBw8wFnkZrnCXcbBhjLwMN3jEcxhk
rIrfcD7k88H6JOfj5/ep1ANqN7WYHD9En4wN1wbbIer8NjJUHX+76pMaMcxx
/DAOLmoLfohzaC6cY4T3FW4Hj6O27p5LfX3a/lO+HfIm+fhIbZjjN4RRvil+
H2DfyM/UGWoTv4vwfzS5ibyU1cnf/L8zzrdAziHHkQ9nqk8RM7yImsj/leQj
ckUL9Xnu/wDXzlsnd5Bb5qgv890Ri/fO/1/jfS+d1Vd6Tybk2t3f23cHx5vs
fi7U5ir3fFKuvbmJ3r3F6px7gzZ3e46TPQtq4DT37fBcauv2qWBkX8hPR+Wy
1/w+tMn9ZW+pgVPVP1Df4J3F5lXPaprj5LzpxqLGolMPOYcZ6tSi/Twj6h56
VYtm5loNmuk49WGW443VqSGfe974oZ7s73mR42ercyacDXWgmeNV3ZjjeZGb
56qP1Q/+4R/7uMY27hX3Zzvt2bd6z453TW6bpw25dr7nTq4l55ILxztOLiSH
LfR8u2mDPbmTHEo+w3d9ruXRemNN8Nu3zEOL9MP5cw/eNm8t9m701Ia81Vac
YJiozUZzxkHa9xLDKvNQg/eqrzb4h1PBcbr47g/WhpyxxDtMDliqPlSdd3ZE
LjnhL6nkhWWOs9+HeD8ZO1Sbo3Phmdmcg3/yDbyT8Xe1x+9u2i7Xfop3mxxy
jPo/zS1HqROXtwHXHOha3tGGb3bXJzjINfxuym+Q/Lb3JTLOR90=
           "]],
          Annotation[#, "Charting`Private`Tag$33792#1"]& ]],
        Lighting->Automatic]}, 
      {RGBColor[0.87, 0.94, 1], Opacity[0.3], EdgeForm[None], 
       StyleBox[GraphicsGroup3DBox[
         TagBox[Polygon3DBox[CompressedData["
1:eJxNmQnY1lMaxr/3vJbSrlIxluzGNhoMw5gZxjYYY1/GLMzYyRKyFlGUJZIW
7ZuU0o5S0UJEKtmiRCKVlEolqXl+zu9/va7ru6+zP+c+53+e59zv+ZpedsPZ
zVNVVVWdclVV/FUtjcJTgS2lqqp3Ir01cGagReDGqGsdeDDQMnB74CHTOwL3
BW4K3BxoY9oisCHl+nsDbQO3Bm4LtDPF1gOBW2xrr707A520dX/gurDzn8C/
A3MCzwZuCXwYuC9wduAJeTCmgzbuYo6U5+8YmBv5OwJ/DzypbebflPLYx61r
IafOtsP9KVO49ww8Eng00M29gHt3U+bv6n7R9rR1Dwf6lTJX1jcv5n0ucHvg
rpTn7xP4yfX0DfS3L3wHygkuzwV6yGWQdV0Cz5h2NW0nj2flCsfBtlMeYh0c
h2mvV+CD4PB84O7AAOdn7i/gHXgPRNs9gbMCrVPmOyLwbmBqYFpgtGvAxhhT
1jHR+YYH5sfYUXynwDjXwzpeMIXvWMfRNiEw1D142RRbL7lO1vRx2GobOCfw
urZeDJTjsI+K9NVAk8jvHDgURyjnbzMy8Fop82DM/SnXveJ6xshlqmujPEPb
zD/d9nHWDZbTm4Hxcp9pCvftYt4pkc4JLIi5xgYeCCwMtA+cG3jb/ZrEt0yZ
++zA+3JlfXNL2c5Uv880ubxnSr8P7Avf+XKCy8Mpz7+IfbPurcAnpm+bviyP
RdH/xcBDgQW2zwp8FuVHA+cFqpczp88Cn8uPc/FR4A3n5jv083ycHmOODfwh
sNi+rOO0KB9j29Iof6iNr01ZR81ynmN14Dvnw8Zy18M6VpjCd5njaPsCXwuc
H+iYMt9VjI/8hMAjgTXa4+z/qK1vAusCSwJfBtYHvipljo1izPaBaoFN8mDM
Wm0wZqNrgMsGx1HerO2VgR9sX24d3BcyX9idRLwIfGXcviCwbeB7uZRS3gu4
J9fA/MR76quirpxyHevYQa6sb7uUbcCLNWyUS/WUU/rVSLkvfL/mTAY6BxoE
tpHLskD3wIWBrinPWYfYm/K32hqolzJXOO5Yzvm65K2DY0PtwWsnU/a3Zsrz
/+Q3eN8zvsRzT7mx36G65+jAwEGBXVJeAzZ+ZVorsI/zMc++pnzPbwK9AhcF
eshx98CKwLRAt8Begfruwd6m2Gqa8jpZ037ag1efwB4px58DAk0COwd+bbqL
dXDn+6wK9AtcHNhfG01cD2vY1fXtYrlxOc/9m8C3gdcDPeFUznyYu1lgT7n/
1hTuR8sJLke6F3D/nSnzH+F+0XaUdYxZExgU+Efg99qA17FyPTjwXeDNQN/A
ADn+MXC8nOByinbhcoJ1hwf+YnqE6d7yOEmucDzRdsonW4etU7UHr7+aci4u
dd4/u/fsN+eDc7ZBf10X+bcDA1MuV7P9XylrpXtKWTehmVqVsr7h7uUOLjQT
ZTQRegNdUmgmyugldBZ6Cz2E3kB/FJqJ8i3WoVPQSu21iw10AroBnYTeQP+g
k9AqcOM+RysNdz76ojnQSh20hT5CMz1WyjoLrfSo8z3pHOiljvJvYVsbeXW2
X6GZKDM/uqKHXNEdXUsVzdTNfSk0C1yetg2O3BFoC3QSduCD7kAz9S5lvdTH
tcCvv2OYG80wwLnRCUPlNci2QjMNco+72A4n7u1CKw22H5yG2AaXYdpFJ5Hv
5foHyAN9ijZ6vpS1HlqJPuiNEa6LO5v7bq480A5jHY/GGFWq6KfRzsk9/LJr
GGtboYcmlCr6aZxc0SYvun7ax7umF+2H9sLmcMegF9ANaCg00ORS1k7ooJFy
Qm+gRdBu6KxJ8ptq21htFLppmm3M97pzMP8My3BCF7zhOtAcaBH8DX2ANkAv
zXZedBLag3nRTWilWdriHiD+o6HQTO84H3XvyY/9niOveX6DQjPNkwca40N5
zbeMtlnk2EInoSXgssDyxFJFN820nfGFZoInGgqttFAu6JbP5LHYMnoKffZp
KZ/pUe7/f6PuEmMmXL9wDOvjLlxSquikpc69zDJ20QCrHbPGcqGTlruObyx/
bB3j0UropG9LWXetkjNaCQ21Ui5rtYsN7mi0AvoIXfG9nDZYJo5yl3EvrrDv
JtewTlvMjfYodNNGx6OBsL9Sjpvsh25jbvYWrYQ+QiegldAfW5wbLYG2KHQS
+oP50B2U2Rfq0C7wpi/6Bo41vCfgwT2ArUInFdqP9upyrOmdglZCE9VybjQC
WgGthE6qnbIWquO8aLatfq+fdVKq6CbSunLCRv1U0UkNvZ8aWUaf1XQfPvQb
fOV5X+J3g2sTvwd39bHej4VOQlt0M18rVXTSPs6zn2W0Ejppt5T1xu7yRCuh
oXZNFZ20l1z3sVzfuj3lsb92G/tbDd1S6KQD5HSg5R1sYw1oJTTWIZYP0FZP
17ar6zjI8cyHBjgsZa2EzjrYPW7qvIVOaibXwy0zN1ri6FTRSUc631GW97Xu
CLkcbRtaCQ10nDyO0VZf9x8OaCX0FDHw+sBlKWsW5kYbHa899M0pqaKTTnC+
Ey3vkyq6CU5oo0I3nWS/o7RxcqropFPldZrlZs6JXqrhN2Dfi9+3xEu4n+4Y
dBPx6ozA7MBtKWuml1KOg8TnTyJtl/JdMi4wJuWY/m7gzpS1yLDA0JTv0SGB
wdZ/FGiTsr4ZHRipnRGB4dZ/GuigzemBqSmfxc8Dj6Uci18OjE85ll0VuDbw
z8DywNMp+y2cX7D/5MDElOPLkkAnx64M9Nb+lMArjn0/0Er+MwKvpXzOVgf6
m7/audGVswJvuXdXBv5nfm3gmZTPxDtyvCH28IqUzwXf5fKUtSA6kJQ3NN6g
mtnnMNPLzF+i/TOc+yq/0Q0pv8Fh78aUzx/zzAy8IYfm8vtbynfTldq7VjvN
Szm92jzt19j/Gvszbtvw8W3K+c7uIG843ySHuyO/NdItKeuqK+RzqTaauwY0
J9oXrch5Q5ejya93DX/S3k3uy3WuE/ucKTQ8Wpxzih308/pIv7dtvTbZ8x9S
1s30533yNueifmPKevpy52A979ofjX2m/bHPGb9dzkMdh87mfN9pPZqTPr1c
y81+v3n2webmSH9MWR9zzlrZH92ITkXjcQ7R0Ohn2u+2z2brmRcNgy5EX32g
HfqPdO/Rr/jcvdrEB9G7aF38rY31+DU6Eg0533r6JH7vl7O+HC5fdDwx4AHn
JQbQju5ET1E/y7Ft5YCft7P/Vjlg52bPBt8af8VviTML7A8f6jlraEriQ3v7
cA7bOy/xAR2GBqtWzvnZaiT0HBqDmNJBbo2iz07lfPcQVx6xzzfqkpXa2b6c
td159qMPsaOTfWpE+w7lrLeIMaToLWIJGmarfdBk6NHF2vlUzYU24q7H3uPa
/FL76Dfi1RPmF8mftdcOm7XKeQ5i4cPap/4pOdSLfN1y1ivERrQLuoWYx/3K
3Up8pR0dQ3zsIp+vzaPBuH+72f9p8+iKCy2TR3t0Nk9cRVugK4idaAy0BXy6
uydd7M9cDaK+fjn3W6FNeB4kT+5W+vSS50WuAT7fmmcu4hzfE/2xVP6sid8+
3DecQXxipGebeI7+QHtwHvrJk/fmQdohbhLDudN5D+lvf/rwNo0muNh6eHKX
8luI+Ez8x85x2hionXWWqed9njhS/O+DuNbauMhve+IJtvtqv6X9iSEt7N/K
eDjE/BDHtjIO8ZuWuPGsfYhV3Fdw57fJMPs8ZkwbZh5/524mnvB/HMp9jE+8
UxA37rKePiOsJz/afWefn9cO8eZj93+EcYs+k4xXo+3Puzox5RV9F+2x0LjC
b0j8d5x54sNzcj7LOtrO1cY4+xA/iCP4Dj70UKq8h1NPrLjfMZPVRX39XvwO
5Tcdv5ur6+/4Gu8zvLPwxsIbNX64yPjBby18mZiA/sB/J5m/wL7oGOLABPPn
m06wnnjAGHxksnns8J6MXXwc/yfW4Kf4Jdodv8C3+A2DP04xv8UzMMezwXsp
/o9PLdMOvvmqYy60bopjp2sf3+zqWPJF7IMbddOtn2Yef0Wro6XwlZ6WD7aO
PP7L2ynxYnfTGani1+gY/K6P5UP8Pm/6jWaaP8SUMr6LvuGsc87RX+gw7nN8
Eb2Ln84yjz/2cO7drJv1Cxuz7HOrdtAV5GenikaY7d4OcAz9u7u/7O0a+R9q
f77Fzxoo5TuMewbdgf4oNAX5x9QA3PH4H/cnPtlHTYK2wNfRBcSUjvrFvF+M
RU/01h8/MH+P9fjOcG3ip9y9aILJ6gd0A76Jv843D09iFvGqrf3PkdtH2qEe
ny90CGPxe/x0gfZH2oexQ+V/lhzog99zzxMXiAnsFX47W19GE+DXxIlF5ttb
X9z51OPz3L3cwfjoC9op7nb2v/DHxea5e/HtRea5j/FT7ljuGHy5k/WFj39p
foycz7U/frvKu54++PdE64u7F5tb9MGvzY+XA/MOds85G9z54+XZxf74Pfvw
kuviLuXuL/xxhXnuOvyt8DXy+CZ3LHGBmDDV/EXaYSwxBn/l3sVHepvvaX6l
9dhfrU38iDsPX8A3uUfx0/7m8WNiLzqTdzPuxrX2768d+uM3+A9+Pcg8fvSM
9gdav9Y+veQDf+5Kfhfwbk/KbwP8F+3Pb4DW5nnfJ56TbrT+JsuMbWn9vd59
aPjH9QXstLRuk/WbLOOPpJvN82b+k314M+StmXdmfjNR39d2yn2MM+tdB3Vb
rW9tmf73Wd/avaxyP6vU8CP0dzjAvbtno4jzy8zTN9l/R7UZ54HffLwv865b
9jcg/ohGruabL75ZTc1M+7b2wR+39Tfjg7ZhZzs1NmMZQ36ONrczP9d7d473
HbqXdzbuHe5i3jZJa3gvE3OSv1lqqpNX2ad6ufL/7prm8esaanj61rY/+ZrO
NUWucMaXa6u9eXusYx/e+tgv3gO5H+uaJ63n+2AdNTl59r+e+pyz2kANzH5j
h7e4olzXtIHfgveuhtY39LcMvtxYXYpfcFdSv4dpo+KNr5x5wK2pY/bQZxv5
mwgb1PM/vwGWyfM+wD16pjYbOnaUZ4Lzhg/urDb+P9lCDAo=
           "]],
          Annotation[#, "Charting`Private`Tag$33792#2"]& ]],
        Lighting->Automatic]}, {}, {}, {}, {}, {}}, {
      {GrayLevel[0], 
       Line3DBox[{364, 1, 362, 241, 16, 31, 46, 61, 76, 91, 106, 121, 136, 
        151, 166, 181, 196, 310, 360, 211, 357, 309, 212, 213, 214, 215, 216, 
        217, 218, 219, 220, 221, 222, 223, 224, 312, 365, 225, 363, 327, 210, 
        195, 180, 165, 150, 135, 120, 105, 90, 75, 60, 45, 30, 246, 359, 15, 
        356, 245, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 313, 364}]}, 
      {GrayLevel[0], 
       Line3DBox[{619, 366, 617, 606, 381, 396, 411, 426, 441, 456, 471, 486, 
        501, 516, 531, 546, 561, 610, 626, 576, 624, 614, 577, 578, 579, 580, 
        581, 582, 583, 584, 585, 586, 587, 588, 589, 612, 622, 590, 618, 611, 
        575, 560, 545, 530, 515, 500, 485, 470, 455, 440, 425, 410, 395, 608, 
        625, 380, 623, 613, 379, 378, 377, 376, 375, 374, 373, 372, 371, 370, 
        369, 368, 757, 367, 605, 619}]}}},
    VertexNormals->CompressedData["
1:eJzt1MEJwlAMxvGgWwgenMEBPHUBRxA8e3YLt3AMd3GSei4UfO0j+ZL+QQh8
pHl5vxZPt8f1vjOzw97s97Pj+TW8n98LtWv9TGr0PtnrnCfOPp44+3ji7OO5
Necoz6rOap7ZndXcsjur+WR3VnPI7qx23+zOavdSy/GMdVbbk5ycXOf/IapG
7c+5nMu5nMu5fc/ttWfUHHJy8rz5XN1a//Q58nV5q7va/lny1ufx93HGP9YZ
/1hn/LX2qO6vskd1f5U9qvur7FHdX82nqr+aQ1V/tfuq5b381e6VJW/1V9s/
e071rf9+z63vc+l7X7tPr++ql0M2H/rpp59++pnDHOaozFnaxxzmMMd/Djk5
uUM+AkBnL88=
     "]]},
  Axes->True,
  AxesLabel->{
    FormBox["\"u\"", TraditionalForm], 
    FormBox["\"v\"", TraditionalForm], 
    FormBox["\"q\"", TraditionalForm]},
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImageSize->Large,
  Method->{},
  PlotRange->{{0, 1}, {0, 1}, {0, 1}},
  PlotRangePadding->{Automatic, Automatic, Automatic},
  Ticks->{Automatic, Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.769610482185649*^9, 3.76961049429167*^9}, {
   3.7696108842582083`*^9, 3.769610902136992*^9}, 3.769611007464491*^9, {
   3.769611254653537*^9, 3.769611260485339*^9}, 3.769611291086486*^9, {
   3.769611344514842*^9, 3.769611378452552*^9}, {3.769611418019332*^9, 
   3.7696115082173977`*^9}, 3.769611680791401*^9, {3.769611714641925*^9, 
   3.769611753626018*^9}, 3.7696118197177687`*^9, 3.7696118751068172`*^9, 
   3.769611931015222*^9, {3.769612924544671*^9, 3.769612972153158*^9}, {
   3.76961326612324*^9, 3.769613294893321*^9}, 3.7696153887036657`*^9, 
   3.769615507764349*^9, 3.769768220037033*^9, 3.769768322514546*^9, 
   3.769768443886237*^9, {3.7697691518138723`*^9, 3.769769191592083*^9}, 
   3.769769304997093*^9, 3.769769497288464*^9, 3.7697695662393312`*^9, 
   3.769770218057741*^9, 3.769770305917598*^9, {3.7697703842555017`*^9, 
   3.769770412187455*^9}, 3.769770478377432*^9, 3.769770635222354*^9, 
   3.769770743732688*^9, 3.769770932351142*^9, 3.769771449239458*^9, {
   3.7697715019544077`*^9, 3.769771521783918*^9}, 3.769771595315233*^9, 
   3.769771644172195*^9, {3.7697717455587273`*^9, 3.769771769808907*^9}, 
   3.769771809475296*^9, 3.769772006984654*^9, 3.769788464248267*^9, {
   3.769788503850765*^9, 3.7697885208077183`*^9}, {3.7697885559066753`*^9, 
   3.769788607618744*^9}, 3.7697887585550413`*^9, 3.769788798618286*^9, 
   3.769839058738522*^9, 3.769843470828989*^9, 3.769843797506847*^9, 
   3.7698439237537193`*^9, 3.769844142925078*^9, 3.7698443759557467`*^9, 
   3.769844441795269*^9, 3.7698445561711273`*^9, 3.769850725819697*^9, 
   3.769850813174182*^9, 3.769926657091179*^9, 3.769926854911813*^9, 
   3.7699269320240717`*^9, 3.7699270659235764`*^9, 3.7699270967468576`*^9, 
   3.769927330838863*^9, {3.76992799160221*^9, 3.769928015265448*^9}, 
   3.769936259132332*^9, {3.769936876603318*^9, 3.769936890647644*^9}, 
   3.770571722612286*^9, 3.7706575969168377`*^9, 3.770658746989071*^9, {
   3.7706592032684298`*^9, 3.770659214151276*^9}, 3.770659254951563*^9, 
   3.770660805103094*^9, 3.770661039958918*^9},
 CellLabel->
  "Out[368]=",ExpressionUUID->"6776ed18-033b-4862-bb9f-b5ef275631c0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Time taken to run code:\"\>", "\[InvisibleSpace]", 
   TemplateBox[{
    "0","3","15.1792370000000000009`7.331764939680138",
     RowBox[{"\[ThinSpace]", "\"h\""}],RowBox[{"\[ThinSpace]", "\"min\""}],
     RowBox[{"\[ThinSpace]", "\"s\""}],"hours,minutes,seconds",RowBox[{"{", 
       RowBox[{"\"Hours\"", ",", "\"Minutes\"", ",", "\"Seconds\""}], "}"}]},
    "QuantityMixedUnit3"]}],
  SequenceForm["Time taken to run code:", 
   Quantity[
    MixedMagnitude[{0, 3, 15.1792370000000000009`7.331764939680138}], 
    MixedUnit[{"Hours", "Minutes", "Seconds"}]]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.769610884278255*^9, 3.769610902149043*^9}, 
   3.769611007476955*^9, {3.76961125467271*^9, 3.76961126049739*^9}, 
   3.7696112911013403`*^9, {3.76961134452953*^9, 3.7696113784722223`*^9}, {
   3.769611418038559*^9, 3.769611508316125*^9}, 3.769611680777663*^9, {
   3.769611714624568*^9, 3.7696117536123533`*^9}, 3.769611819703445*^9, 
   3.769611875091782*^9, 3.769611930998238*^9, {3.7696129245308113`*^9, 
   3.7696129721379223`*^9}, {3.769613266109866*^9, 3.769613294879171*^9}, 
   3.769615388690165*^9, 3.7696155077504187`*^9, 3.7697682200215807`*^9, 
   3.769768322501145*^9, 3.769768443869575*^9, {3.769769151799203*^9, 
   3.769769191574085*^9}, 3.769769304983344*^9, 3.769769497274194*^9, 
   3.7697695662247047`*^9, 3.7697702180438137`*^9, 3.769770305904195*^9, {
   3.769770384240458*^9, 3.769770412172988*^9}, 3.7697704783625174`*^9, 
   3.769770635205255*^9, 3.769770743712674*^9, 3.769770932337737*^9, 
   3.769771449227955*^9, {3.769771501937922*^9, 3.7697715217713633`*^9}, 
   3.769771595298382*^9, 3.769771644155024*^9, {3.769771745540741*^9, 
   3.769771769794709*^9}, 3.7697718094628897`*^9, 3.769772006969969*^9, 
   3.769788464234715*^9, {3.769788503838456*^9, 3.769788520795187*^9}, {
   3.769788555894444*^9, 3.769788607605876*^9}, 3.769788758542556*^9, 
   3.769788798605879*^9, 3.769839058725963*^9, 3.7698434708147163`*^9, 
   3.769843797495934*^9, 3.769843923740646*^9, 3.76984414290872*^9, 
   3.769844375939171*^9, 3.769844441779171*^9, 3.769844556159148*^9, 
   3.769850725805522*^9, 3.7698508131608143`*^9, 3.769926657078067*^9, 
   3.769926854897748*^9, 3.769926932010447*^9, 3.769927065910178*^9, 
   3.7699270967302*^9, 3.7699273308252296`*^9, {3.7699279915855083`*^9, 
   3.7699280152531652`*^9}, 3.769936259115839*^9, {3.769936876586629*^9, 
   3.769936890635107*^9}, 3.770571722598213*^9, 3.770657596903338*^9, 
   3.7706587469775*^9, {3.770659203253008*^9, 3.770659214139328*^9}, 
   3.770659254939788*^9, 3.770660805086727*^9, 3.770661040112158*^9},
 CellLabel->
  "During evaluation of \
In[327]:=",ExpressionUUID->"1feb7b71-f53b-4bf3-9ba4-d6e37c05af27"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["2. Exporting the animation as a GIF", "Section",
 CellChangeTimes->{{3.769936914241845*^9, 
  3.769936923278475*^9}},ExpressionUUID->"9819ef37-3827-4f85-9e6c-\
98c2fcb0d11c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<graph_transform.gif\>\"", ",", "frames", ",", 
   RowBox[{"\"\<DisplayDurations\>\"", "\[Rule]", "1."}], ",", 
   RowBox[{"AnimationRepetitions", "\[Rule]", "Infinity"}]}], "]"}]], "Input",\

 CellChangeTimes->{3.769936993520891*^9},
 CellLabel->
  "In[1256]:=",ExpressionUUID->"a8edc94e-411f-4040-ab17-6fd85d249825"],

Cell[BoxData["\<\"graph_transform.gif\"\>"], "Output",
 CellChangeTimes->{3.769936998134726*^9},
 CellLabel->
  "Out[1256]=",ExpressionUUID->"360c114f-e512-4260-a2b1-610d2783894e"]
}, Open  ]],

Cell["\<\
Note: Apple users are advised to use \"Quick Look\" to view the GIF as an \
animation, rather than a mere collection of pictures.\
\>", "Text",
 CellChangeTimes->{{3.769937059651505*^9, 
  3.769937105741392*^9}},ExpressionUUID->"4091706d-d010-45a3-bea9-\
3e1d0045c801"],

Cell[BoxData[
 RowBox[{"SystemOpen", "[", "\"\<graph_transform.gif\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.77106665766644*^9, 
  3.771066659458446*^9}},ExpressionUUID->"d5dce88f-ad7b-4c43-a3db-\
5541eb460db6"]
}, Open  ]],

Cell[CellGroupData[{

Cell["A. Steady-state seeker, Version X", "Section",
 CellChangeTimes->{{3.769770542468265*^9, 3.76977056241153*^9}, {
  3.769770974237509*^9, 3.769770975914606*^9}, {3.769927235236492*^9, 
  3.7699272366747503`*^9}, {3.769936189138691*^9, 3.769936189605933*^9}, {
  3.769936841267207*^9, 
  3.769936854161104*^9}},ExpressionUUID->"dd95de5f-f78d-46d8-900f-\
3670677dbc6e"],

Cell["\<\
Finds steady states in the original (x,y,z,w) coordinates, then maps them to \
(u,v,q).

Version U, which is in the main code, directly finds the steady states in \
(u,v,q), requiring one less line of code.\
\>", "Text",
 CellChangeTimes->{{3.7699371149667473`*^9, 3.769937144241221*^9}, {
  3.769937218175271*^9, 
  3.769937259708053*^9}},ExpressionUUID->"25723c39-89ca-4741-94c4-\
33545e86ea19"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"aa", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"F1", "==", "x"}], ",", 
       RowBox[{"G1", "\[Equal]", "y"}], ",", 
       RowBox[{"H1", "\[Equal]", "z"}], ",", 
       RowBox[{"I1", "\[Equal]", "w"}], ",", 
       RowBox[{
        RowBox[{"x", "+", "y", "+", "z", "+", "w"}], "\[Equal]", "1"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z", ",", "w"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tt", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"xx", "/.", "aa"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xc", "=", 
   RowBox[{"Select", "[", 
    RowBox[{"tt", ",", 
     RowBox[{
      RowBox[{"AllTrue", "[", 
       RowBox[{
        RowBox[{"Chop", "[", "#", "]"}], ",", "NonNegative"}], "]"}], "&"}]}],
     "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<Steady states in original coordinates:\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "xc", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tc", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", "+", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", "+", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "4", "]"}], "]"}]}]}], "}"}], " ", "&"}], ",", "xc"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.76993685535334*^9, 3.769936863745921*^9}, 
   3.770570056991231*^9, {3.770570362039751*^9, 
   3.7705703628318453`*^9}},ExpressionUUID->"f5631585-f120-4d6e-b7cc-\
46d8c692a08e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"check", "[", "x_", "]"}], ":=", 
  RowBox[{"AllTrue", "[", 
   RowBox[{
    RowBox[{"Chop", "[", "x", "]"}], ",", "NonNegative"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"check", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2"}], "}"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"check", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "5", ",", "3", ",", "2", ",", "80"}], "}"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"check", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", 
    RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.770570376886388*^9, 3.7705703988125353`*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"995ecc75-65e6-4d09-8728-09d41091bf35"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.770570399319821*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"bc1b9ae9-bcf9-4759-8e41-68f273b2fccb"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.770570399323648*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"1916fca5-9085-4473-a235-09eb0134932a"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.7705703993272467`*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"06e0553d-b16d-4177-a407-d6de32d5d0d0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["B. Other parameter values to try", "Section",
 CellChangeTimes->{{3.770657544222548*^9, 
  3.7706575557487297`*^9}},ExpressionUUID->"5fb36d69-f568-4c4f-9086-\
a0cfb7d0ecf7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"bb", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"A11", "\[Rule]", ".2"}], ",", 
     RowBox[{"A22", "\[Rule]", ".9"}], ",", 
     RowBox[{"A33", "\[Rule]", "1.5"}], ",", 
     RowBox[{"A44", "\[Rule]", ".3"}], ",", 
     RowBox[{"A12", "\[Rule]", ".3"}], ",", 
     RowBox[{"A13", "\[Rule]", "0.75"}], ",", 
     RowBox[{"A42", "\[Rule]", "1.7"}], ",", 
     RowBox[{"A43", "\[Rule]", "1.8"}], ",", " ", 
     RowBox[{"\[Theta]", "\[Rule]", "1."}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r", "=", "0.1"}], ";"}]}], "Input",ExpressionUUID->"6f5d3359-1ef0-\
46ae-af39-a5a51f036327"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{762, 808},
WindowMargins->{{36, Automatic}, {Automatic, 19}},
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 242, 4, 160, "Title",ExpressionUUID->"0076b2a0-89d4-4d5e-b432-c834ab667302"],
Cell[825, 28, 514, 9, 58, "Text",ExpressionUUID->"bfa890bc-8651-4f7f-8957-efccbb55d737"],
Cell[CellGroupData[{
Cell[1364, 41, 157, 3, 67, "Section",ExpressionUUID->"790d2514-088a-4686-90d5-a711d2434532"],
Cell[1524, 46, 334, 8, 104, "Text",ExpressionUUID->"33a87ac4-c653-4a37-8c00-0dfeda27beae"],
Cell[CellGroupData[{
Cell[1883, 58, 19362, 517, 1858, "Input",ExpressionUUID->"65628d83-3699-46b0-b930-8136690b609f"],
Cell[21248, 577, 2167, 31, 24, "Print",ExpressionUUID->"de3897d1-5ff6-4a2b-a7d7-7faa69a21fb7"],
Cell[23418, 610, 2840, 51, 94, "Output",ExpressionUUID->"6acc418d-44d6-4e29-80eb-18260539474a"],
Cell[26261, 663, 2884, 55, 50, "Output",ExpressionUUID->"eace170c-d0c4-4305-b938-5b794d1222c5"],
Cell[29148, 720, 2361, 37, 50, "Output",ExpressionUUID->"29bc2c4c-fa39-48db-bec7-2692bcc449d6"],
Cell[31512, 759, 2400, 39, 34, "Output",ExpressionUUID->"78f1ef4d-d1e6-4f53-82c5-eb1b4f6c5c25"],
Cell[33915, 800, 1098, 20, 42, "Message",ExpressionUUID->"6f6f81cf-f70a-4ba6-8dd3-3766151edeb3"],
Cell[35016, 822, 2177, 31, 24, "Print",ExpressionUUID->"57346945-b597-490e-9e90-2b3f16e68ed7"],
Cell[37196, 855, 3036, 55, 162, "Output",ExpressionUUID->"5d5e8281-0dc7-4812-90b2-c387efa3b626"],
Cell[40235, 912, 2157, 31, 24, "Print",ExpressionUUID->"fdee78d6-595f-4abf-a328-d862bed32b36"],
Cell[42395, 945, 4142, 70, 499, "Output",ExpressionUUID->"8c67716f-44a8-454d-b31a-d9da417d4500"],
Cell[46540, 1017, 79182, 1314, 659, "Output",ExpressionUUID->"6776ed18-033b-4862-bb9f-b5ef275631c0"],
Cell[125725, 2333, 2758, 44, 25, "Print",ExpressionUUID->"1feb7b71-f53b-4bf3-9ba4-d6e37c05af27"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[128532, 2383, 180, 3, 67, "Section",ExpressionUUID->"9819ef37-3827-4f85-9e6c-98c2fcb0d11c"],
Cell[CellGroupData[{
Cell[128737, 2390, 371, 8, 52, "Input",ExpressionUUID->"a8edc94e-411f-4040-ab17-6fd85d249825"],
Cell[129111, 2400, 180, 3, 34, "Output",ExpressionUUID->"360c114f-e512-4260-a2b1-610d2783894e"]
}, Open  ]],
Cell[129306, 2406, 279, 6, 58, "Text",ExpressionUUID->"4091706d-d010-45a3-bea9-3e1d0045c801"],
Cell[129588, 2414, 214, 4, 30, "Input",ExpressionUUID->"d5dce88f-ad7b-4c43-a3db-5541eb460db6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[129839, 2423, 372, 6, 67, "Section",ExpressionUUID->"dd95de5f-f78d-46d8-900f-3670677dbc6e"],
Cell[130214, 2431, 407, 10, 104, "Text",ExpressionUUID->"25723c39-89ca-4741-94c4-33545e86ea19"],
Cell[130624, 2443, 2023, 59, 136, "Input",ExpressionUUID->"f5631585-f120-4d6e-b7cc-46d8c692a08e"],
Cell[CellGroupData[{
Cell[132672, 2506, 719, 19, 94, "Input",ExpressionUUID->"995ecc75-65e6-4d09-8728-09d41091bf35"],
Cell[133394, 2527, 152, 2, 34, "Output",ExpressionUUID->"bc1b9ae9-bcf9-4759-8e41-68f273b2fccb"],
Cell[133549, 2531, 152, 2, 34, "Output",ExpressionUUID->"1916fca5-9085-4473-a235-09eb0134932a"],
Cell[133704, 2535, 155, 2, 34, "Output",ExpressionUUID->"06e0553d-b16d-4177-a407-d6de32d5d0d0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[133908, 2543, 179, 3, 67, "Section",ExpressionUUID->"5fb36d69-f568-4c4f-9086-a0cfb7d0ecf7"],
Cell[134090, 2548, 649, 17, 73, "Input",ExpressionUUID->"6f5d3359-1ef0-46ae-af39-a5a51f036327"]
}, Open  ]]
}, Open  ]]
}
]
*)