The Dynamics Of Revelation.nb

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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    232415,       5731]
NotebookOptionsPosition[    227118,       5579]
NotebookOutlinePosition[    227580,       5597]
CellTagsIndexPosition[    227537,       5594]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["The Dynamics of Revelation", "Title",
 CellChangeTimes->{{3.4512251887676163`*^9, 3.4512252118315697`*^9}, {
   3.451641627505931*^9, 3.451641631412181*^9}, {3.4517392586387463`*^9, 
   3.4517392617168713`*^9}, {3.5066123061347656`*^9, 3.5066123163554688`*^9}, 
   3.5088437620566406`*^9, 3.5088442638945312`*^9, {3.5163607300039062`*^9, 
   3.5163607394101562`*^9}, {3.517843149220703*^9, 3.5178431620927734`*^9}}],

Cell["\<\
Laurens Bogaardt - 01-07-2011
Bachelor\[CloseCurlyQuote]s Thesis in Social Science at University College \
Utrecht\
\>", "Subsubtitle",
 CellChangeTimes->{{3.5163607461445312`*^9, 3.5163607521289062`*^9}, {
   3.5178431682783203`*^9, 3.5178431990234375`*^9}, {3.5182466543740234`*^9, 
   3.5182466552666016`*^9}, 3.518785013516594*^9}],

Cell[CellGroupData[{

Cell["Introduction", "Subtitle",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{{3.451225222214694*^9, 3.4512252238347073`*^9}, 
   3.4514664013390656`*^9}],

Cell["\<\
This notebook is used to do the calculation for my \
Bachelor\[CloseCurlyQuote]s Thesis in Social Science at University College \
Utrecht, 2011. It examines the dynamics of costly signalling and makes a \
variation on the theme by looking into the dynamics of revelation. These \
concepts are both based on Michael Spence\[CloseCurlyQuote]s job market \
signalling model, as depicted in the graph below. Some of the functions used \
in this notebook were based on a previous notebook by Elliott Wagner, who \
wrote the paper \[OpenCurlyQuote]The Dynamics of Costly Signaling\
\[CloseCurlyQuote].\
\>", "Text",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.518246878551758*^9, 3.5182469792597656`*^9}, {3.5182524792304688`*^9, 
   3.518252497984375*^9}}],

Cell[CellGroupData[{

Cell["LaTeX", "Subsubtitle",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.516368901841797*^9, 3.5163689057216797`*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", ".00301", "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "3"}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1.5", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1.5", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1.5", ",", "2"}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1.5", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "2"}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "3"}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "1.5"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Dotted", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1.5", ",", "2"}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1.5", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1.5", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1.5", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", " ", 
        RowBox[{"Thickness", "[", ".01", "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{".01", ",", ".01"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{".01", ",", ".99"}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1.5", ",", ".76"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1.5", ",", "1.99"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<0\>\"", ",", "18"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".1"}], ",", 
          RowBox[{"-", ".1"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[Rho]\>\"", ",", "18"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".1"}], ",", "2.9"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[Sigma]\>\"", ",", "18"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"2.9", ",", 
          RowBox[{"-", ".1"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<S\>\"", ",", "18"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.5", ",", 
          RowBox[{"-", ".1"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<1\>\"", ",", "18"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".1"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<2\>\"", ",", "18"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".1"}], ",", "2"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<c(1, \[Sigma])\>\"", ",", "18"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"2.25", ",", "2.5"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<c(2, \[Sigma])\>\"", ",", "18"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"2.25", ",", "1.3"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(H\)]\)\>\"", ",", "18"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"2.5", ",", "2.1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(L\)]\)\>\"", ",", "18"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{".5", ",", "1.1"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "500"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.511530929661133*^9, 3.5115309826679688`*^9}, {
   3.5115310245302734`*^9, 3.5115310677128906`*^9}, {3.511531098064453*^9, 
   3.5115311191601562`*^9}, {3.5115313185908203`*^9, 
   3.5115313284990234`*^9}, {3.5115313949970703`*^9, 3.511531427196289*^9}, {
   3.511531512504883*^9, 3.511531519254883*^9}, {3.5115315670078125`*^9, 
   3.511531665198242*^9}, {3.5115317439179688`*^9, 3.511531745661133*^9}, {
   3.511531791614258*^9, 3.511531916541992*^9}, 3.5173315505839844`*^9, {
   3.5177439644814453`*^9, 3.517743990296875*^9}, {3.517744039635742*^9, 
   3.5177444587265625`*^9}, {3.517744506908203*^9, 3.5177446421757812`*^9}, {
   3.5177446758603516`*^9, 3.517744760544922*^9}, {3.5177448020615234`*^9, 
   3.5177448810478516`*^9}, {3.5177449213476562`*^9, 3.517745143017578*^9}, {
   3.517749238350586*^9, 3.517749247288086*^9}, {3.5180251217421875`*^9, 
   3.5180251969716797`*^9}, {3.518025250501953*^9, 3.5180252623271484`*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Initiation", "Subtitle",
 CellChangeTimes->{{3.451225222214694*^9, 3.4512252238347073`*^9}, 
   3.4514664013390656`*^9, 3.5163561804570312`*^9, {3.5163562169648438`*^9, 
   3.5163562182470703`*^9}, {3.5163606831367188`*^9, 3.5163606847460938`*^9}, 
   3.5172175692265625`*^9}],

Cell["\<\
This section defines all the functions of this notebook. In particular, it \
starts with the small 2D functions and moves on to the 3D functions \
afterwards. In short, there is a function to solve for the position of the \
mixed equilibrium. There is a function which sets up the replicator equation. \
This can be solved numerically for various initial conditions or it can be \
used to make a vector plot or stream plot. There is also a function which \
creates the borders of the phase space and, if necessary, maps the Cartesian \
coordinates onto a simplex. There is also a function for the labels and one \
to show the equilibria of the model, both as points and as lines. Finally, \
these things are put together in a plot, where lines and arrows show the \
dynamics of the phase space.\
\>", "Text",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.5182469849765625`*^9, 3.518247033444336*^9}, {3.5182518052441406`*^9, 
   3.5182520502666016`*^9}, {3.5182536908710938`*^9, 
   3.5182536973203125`*^9}, {3.5187757209589767`*^9, 3.518775734829094*^9}}],

Cell[CellGroupData[{

Cell["Initiation 2D", "Subsubtitle",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.516368901841797*^9, 3.5163689057216797`*^9}, {3.5172159677695312`*^9, 
   3.517215970625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"mySmallA", "[", 
    RowBox[{"ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"mySmallA2", "[", 
    RowBox[{
     RowBox[{"1", "-", "ph"}], ",", "ph", ",", "s", ",", "k"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"mySmallB", "[", 
    RowBox[{"ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"mySmallB2", "[", 
    RowBox[{
     RowBox[{"1", "-", "ph"}], ",", "ph", ",", "s", ",", "k"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.5170382676992188`*^9, 3.5170382792685547`*^9}, 
   3.5170395837197266`*^9, {3.5172094022314453`*^9, 3.5172094033916016`*^9}, 
   3.5174131049677734`*^9, {3.5174131411835938`*^9, 3.517413154671875*^9}, {
   3.517413962926758*^9, 3.5174139769746094`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"mySmallSolveA", "[", 
   RowBox[{"ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"mySmallB", "[", 
         RowBox[{"ph", ",", "s", ",", "k"}], "]"}], ".", 
        RowBox[{"{", 
         RowBox[{"x1", ",", 
          RowBox[{"1", "-", "x1"}]}], "}"}]}], ")"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "==", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"mySmallB", "[", 
         RowBox[{"ph", ",", "s", ",", "k"}], "]"}], ".", 
        RowBox[{"{", 
         RowBox[{"x1", ",", 
          RowBox[{"1", "-", "x1"}]}], "}"}]}], ")"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], ",", "x1"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mySmallSolveB", "[", 
   RowBox[{"ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"mySmallA", "[", 
         RowBox[{"ph", ",", "s", ",", "k"}], "]"}], ".", 
        RowBox[{"{", 
         RowBox[{"y1", ",", 
          RowBox[{"1", "-", "y1"}]}], "}"}]}], ")"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "==", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"mySmallA", "[", 
         RowBox[{"ph", ",", "s", ",", "k"}], "]"}], ".", 
        RowBox[{"{", 
         RowBox[{"y1", ",", 
          RowBox[{"1", "-", "y1"}]}], "}"}]}], ")"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], ",", "y1"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.5172937531103516`*^9, 3.5172939140859375`*^9}, {
  3.5173807205810547`*^9, 3.5173807261015625`*^9}, {3.5173935364248047`*^9, 
  3.5173935532597656`*^9}, {3.5173937461660156`*^9, 3.5173937754257812`*^9}, {
  3.517393974368164*^9, 3.5173939856308594`*^9}, {3.517394096790039*^9, 
  3.517394101359375*^9}, {3.5174131412158203`*^9, 3.5174131547646484`*^9}, {
  3.517413962986328*^9, 3.517413977076172*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SmallReplicatorX", "[", 
   RowBox[{"x_", ",", "y_", ",", "i_", ",", "ph_", ",", "s_", ",", "k_"}], 
   "]"}], ":=", 
  RowBox[{
   RowBox[{"x", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"mySmallA", "[", 
         RowBox[{"ph", ",", "s", ",", "k"}], "]"}], ".", "y"}], ")"}], 
      "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "-", 
     RowBox[{"x", ".", 
      RowBox[{"mySmallA", "[", 
       RowBox[{"ph", ",", "s", ",", "k"}], "]"}], ".", "y"}]}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SmallReplicatorY", "[", 
   RowBox[{"x_", ",", "y_", ",", "j_", ",", "ph_", ",", "s_", ",", "k_"}], 
   "]"}], ":=", 
  RowBox[{
   RowBox[{"y", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"mySmallB", "[", 
         RowBox[{"ph", ",", "s", ",", "k"}], "]"}], ".", "x"}], ")"}], 
      "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], "-", 
     RowBox[{"y", ".", 
      RowBox[{"mySmallB", "[", 
       RowBox[{"ph", ",", "s", ",", "k"}], "]"}], ".", "x"}]}], 
    ")"}]}]}]}], "Input",
 CellChangeTimes->{{3.516356985671875*^9, 3.5163570127089844`*^9}, {
   3.5170385848291016`*^9, 3.517038595083008*^9}, {3.517038734852539*^9, 
   3.5170387428828125`*^9}, 3.5170395837353516`*^9, {3.517413141274414*^9, 
   3.517413154857422*^9}, {3.5174139630585938`*^9, 3.517413977182617*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SmallX", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"sx1", "[", "t", "]"}], ",", 
     RowBox[{"sx2", "[", "t", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SmallY", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"sy1", "[", "t", "]"}], ",", 
     RowBox[{"sy2", "[", "t", "]"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.517038596161133*^9, 3.517038620189453*^9}, {
   3.517038820533203*^9, 3.517038823623047*^9}, {3.517039002810547*^9, 
   3.5170390187753906`*^9}, 3.517039583736328*^9, {3.5170500539414062`*^9, 
   3.5170500566132812`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SmalldiffEqsX", "[", 
   RowBox[{"ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
       "SmallX", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", 
       "t"}], "]"}], "\[Equal]", 
     RowBox[{"SmallReplicatorX", "[", 
      RowBox[{
      "SmallX", ",", "SmallY", ",", "i", ",", "ph", ",", "s", ",", "k"}], 
      "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SmalldiffEqsY", "[", 
   RowBox[{"ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
       "SmallY", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], ",", 
       "t"}], "]"}], "\[Equal]", 
     RowBox[{"SmallReplicatorY", "[", 
      RowBox[{
      "SmallX", ",", "SmallY", ",", "j", ",", "ph", ",", "s", ",", "k"}], 
      "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "2"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.5163570220927734`*^9, 3.5163570608876953`*^9}, {
   3.5170385990908203`*^9, 3.5170386131132812`*^9}, {3.5170387595810547`*^9, 
   3.5170387759345703`*^9}, 3.5170388259941406`*^9, 3.517039583739258*^9, {
   3.517413141330078*^9, 3.51741315490625*^9}, {3.5174139631279297`*^9, 
   3.517413977243164*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mySmallSolution2", "[", 
   RowBox[{
   "ph_", ",", "s_", ",", "x10_", ",", "x20_", ",", "y10_", ",", "y20_", ",", 
    "k_"}], "]"}], ":=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"SmalldiffEqsX", "[", 
       RowBox[{"ph", ",", "s", ",", "k"}], "]"}], ",", 
      RowBox[{"SmalldiffEqsY", "[", 
       RowBox[{"ph", ",", "s", ",", "k"}], "]"}], ",", 
      RowBox[{
       RowBox[{"sx1", "[", "0", "]"}], "\[Equal]", "x10"}], ",", 
      RowBox[{
       RowBox[{"sx2", "[", "0", "]"}], "\[Equal]", "x20"}], ",", 
      RowBox[{
       RowBox[{"sy1", "[", "0", "]"}], "\[Equal]", "y10"}], ",", 
      RowBox[{
       RowBox[{"sy2", "[", "0", "]"}], "\[Equal]", "y20"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"sx1", ",", "sx2", ",", "sy1", ",", "sy2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5162923848691406`*^9, 3.5162923924072266`*^9}, {
   3.5162924601992188`*^9, 3.5162924735742188`*^9}, {3.516292510004883*^9, 
   3.5162925155439453`*^9}, {3.5162925862529297`*^9, 3.516292599661133*^9}, {
   3.5162927075683594`*^9, 3.516292764254883*^9}, {3.516307264595828*^9, 
   3.516307298326297*^9}, {3.516353551611328*^9, 3.5163535526103516`*^9}, 
   3.5163536106191406`*^9, 3.5163537846279297`*^9, {3.5163554755214844`*^9, 
   3.5163554790527344`*^9}, {3.516357110416992*^9, 3.5163571469853516`*^9}, {
   3.5163571925146484`*^9, 3.516357250383789*^9}, 3.516357393716797*^9, {
   3.517038628658203*^9, 3.517038658645508*^9}, {3.5170387936953125`*^9, 
   3.517038797067383*^9}, {3.517038832176758*^9, 3.5170388458164062`*^9}, 
   3.517039583741211*^9, {3.5170500680820312`*^9, 3.5170500773945312`*^9}, {
   3.5174131549404297`*^9, 3.517413154961914*^9}, 3.5174132790966797`*^9, {
   3.517413963194336*^9, 3.5174139772998047`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mySmallSolution", "[", 
   RowBox[{"ph_", ",", "s_", ",", "x20_", ",", "y20_", ",", "k_"}], "]"}], ":=", 
  RowBox[{"mySmallSolution2", "[", 
   RowBox[{"ph", ",", "s", ",", 
    RowBox[{"1", "-", "x20"}], ",", "x20", ",", 
    RowBox[{"1", "-", "y20"}], ",", "y20", ",", "k"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5162923848691406`*^9, 3.5162923924072266`*^9}, {
   3.5162924601992188`*^9, 3.5162924735742188`*^9}, {3.516292510004883*^9, 
   3.5162925155439453`*^9}, {3.5162925862529297`*^9, 3.516292599661133*^9}, {
   3.5162927075683594`*^9, 3.516292764254883*^9}, {3.516307264595828*^9, 
   3.516307298326297*^9}, {3.516353551611328*^9, 3.5163535526103516`*^9}, 
   3.5163536106191406`*^9, 3.5163537846279297`*^9, {3.5163554755214844`*^9, 
   3.5163554790527344`*^9}, {3.516357110416992*^9, 3.5163571469853516`*^9}, {
   3.5163571925146484`*^9, 3.516357250383789*^9}, {3.516357393716797*^9, 
   3.5163574433876953`*^9}, {3.5170386649208984`*^9, 3.517038706602539*^9}, {
   3.5170388517841797`*^9, 3.5170388903251953`*^9}, 3.517039583743164*^9, 
   3.517413279033203*^9, 3.517413319138672*^9, {3.5174139632265625`*^9, 
   3.5174139773291016`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SmallfieldEqsX", "[", 
   RowBox[{"ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"SmallReplicatorX", "[", 
    RowBox[{
    "SmallX", ",", "SmallY", ",", "1", ",", "ph", ",", "s", ",", "k"}], "]"}],
    "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"sx2", "[", "t", "]"}], "\[Rule]", 
      RowBox[{"1", "-", 
       RowBox[{"sx1", "[", "t", "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"sy1", "[", "t", "]"}], "\[Rule]", 
      RowBox[{"1", "-", 
       RowBox[{"sy2", "[", "t", "]"}]}]}]}], "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SmallfieldEqsY", "[", 
   RowBox[{"ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"SmallReplicatorY", "[", 
    RowBox[{
    "SmallX", ",", "SmallY", ",", "2", ",", "ph", ",", "s", ",", "k"}], "]"}],
    "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"sx2", "[", "t", "]"}], "\[Rule]", 
      RowBox[{"1", "-", 
       RowBox[{"sx1", "[", "t", "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"sy1", "[", "t", "]"}], "\[Rule]", 
      RowBox[{"1", "-", 
       RowBox[{"sy2", "[", "t", "]"}]}]}]}], "}"}]}]}]}], "Input",
 CellChangeTimes->{{3.5163609622382812`*^9, 3.5163609980390625`*^9}, {
   3.5163611015742188`*^9, 3.5163612247734375`*^9}, {3.516361302125*^9, 
   3.516361322375*^9}, {3.5163614028984375`*^9, 3.5163614246640625`*^9}, {
   3.516361473484375*^9, 3.5163614867890625`*^9}, {3.5163615295390625`*^9, 
   3.5163615317578125`*^9}, {3.5163615641953125`*^9, 
   3.5163616812773438`*^9}, {3.5164343569833984`*^9, 
   3.5164343590146484`*^9}, {3.5170393439609375`*^9, 3.5170393935371094`*^9}, 
   3.517039583770508*^9, {3.5170501476367188`*^9, 3.5170501547148438`*^9}, {
   3.517385097551758*^9, 3.517385111305664*^9}, {3.517385352890625*^9, 
   3.517385379819336*^9}, {3.5173868799003906`*^9, 3.5173868799921875`*^9}, {
   3.517386957631836*^9, 3.5173869578242188`*^9}, {3.517387014676758*^9, 
   3.517387021626953*^9}, 3.5173871603984375`*^9, {3.517387514654297*^9, 
   3.5173875292841797`*^9}, {3.5173887930859375`*^9, 
   3.5173888398720703`*^9}, {3.517388908192383*^9, 3.51738890971875*^9}, {
   3.517390229104492*^9, 3.5173902574033203`*^9}, {3.517390319245117*^9, 
   3.517390324861328*^9}, {3.5173908440507812`*^9, 3.517390853921875*^9}, {
   3.517391034307617*^9, 3.51739104125*^9}, {3.517391241116211*^9, 
   3.5173912430996094`*^9}, {3.5173912942421875`*^9, 3.517391299211914*^9}, {
   3.517391352041992*^9, 3.517391372229492*^9}, {3.517391429015625*^9, 
   3.517391437290039*^9}, {3.5173925981054688`*^9, 3.5173926059609375`*^9}, {
   3.517413141379883*^9, 3.517413155001953*^9}, {3.5174139632597656`*^9, 
   3.517413977385742*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"mySmallBorders2", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "u"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "u"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mySmallBorders", "=", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{"mySmallBorders2", ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "False"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "Thick"}], "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "None"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".25"}], ",", "1.15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".1"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "400"}], "}"}]}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5163579848945312`*^9, 3.5163579977382812`*^9}, 
   3.5163583997929688`*^9, {3.5166154529785156`*^9, 3.5166156214453125`*^9}, {
   3.5166160029277344`*^9, 3.5166160064414062`*^9}, {3.5170391025498047`*^9, 
   3.517039165857422*^9}, 3.5170395837626953`*^9, {3.5170499785390625`*^9, 
   3.5170499797734375`*^9}, 3.5170500239882812`*^9, 3.517068462859375*^9, {
   3.5173256386533203`*^9, 3.5173256563876953`*^9}, {3.5173259637666016`*^9, 
   3.5173259734335938`*^9}, {3.517326014573242*^9, 3.5173260275214844`*^9}, {
   3.517381403850586*^9, 3.51738144153125*^9}, {3.517381481848633*^9, 
   3.5173815341728516`*^9}, 3.5173815949179688`*^9, 3.5173816284384766`*^9, {
   3.5173846961992188`*^9, 3.517384696939453*^9}, {3.517413446305664*^9, 
   3.517413476791992*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mySmallLabels", "[", 
   RowBox[{"ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
  RowBox[{"Graphics", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<Separating\>\"", ",", "18"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{".5", ",", 
         RowBox[{"-", ".06"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<Low\>\"", ",", "18"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{".5", ",", "1.06"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<Split\>\"", ",", "18"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1.08", ",", ".5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"k", "\[Equal]", "0"}], ",", "\"\<Down\>\"", ",", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"k", "\[Equal]", "1"}], ",", "\"\<Up\>\"", ",", 
             "\"\<Average\>\""}], "]"}]}], "]"}], ",", "18"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", ".13"}], ",", ".5"}], "}"}]}], "]"}]}], "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.517247032482422*^9, 3.5172471244785156`*^9}, {
   3.517247179296875*^9, 3.5172472350273438`*^9}, {3.5172473677578125`*^9, 
   3.517247388946289*^9}, {3.517326029828125*^9, 3.5173260677910156`*^9}, {
   3.517326159166992*^9, 3.5173262665371094`*^9}, {3.517379361385742*^9, 
   3.5173794348164062`*^9}, {3.5173810029179688`*^9, 3.517381041239258*^9}, {
   3.5173812891972656`*^9, 3.5173812919804688`*^9}, {3.517381376640625*^9, 
   3.5173813979257812`*^9}, 3.5173815021884766`*^9, {3.517381960286133*^9, 
   3.5173819811347656`*^9}, {3.5173843290410156`*^9, 
   3.5173843338964844`*^9}, {3.5173846737041016`*^9, 
   3.5173846767958984`*^9}, {3.5173965465742188`*^9, 3.5173965511445312`*^9}, 
   3.5174131414140625`*^9, {3.5174133243964844`*^9, 3.5174133280527344`*^9}, 
   3.517413963319336*^9, {3.517915542948242*^9, 3.5179155622070312`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mySmallEquilibria", "[", 
   RowBox[{"ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"SmallfieldEqsX", "[", 
     RowBox[{"ph", ",", "s", ",", "k"}], "]"}], "==", 
    RowBox[{"SmallfieldEqsY", "[", 
     RowBox[{"ph", ",", "s", ",", "k"}], "]"}], "\[Equal]", "0"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5166219790976562`*^9, 3.5166220024658203`*^9}, {
   3.516622096647461*^9, 3.5166221291015625`*^9}, 3.517039583805664*^9, {
   3.517042016022461*^9, 3.517042032928711*^9}, {3.5173019725*^9, 
   3.5173019726083984`*^9}, {3.51730226009375*^9, 3.517302261220703*^9}, {
   3.5174131414316406`*^9, 3.5174131550273438`*^9}, {3.517413963338867*^9, 
   3.5174139774248047`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mySmallPoints", "[", 
   RowBox[{"ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
  RowBox[{"Graphics", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"PointSize", "[", ".04", "]"}], ",", "Gray", ",", 
     RowBox[{"Point", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"sy2", "[", "t", "]"}], ",", 
           RowBox[{"sx1", "[", "t", "]"}]}], "}"}], "/.", 
         RowBox[{"Cases", "[", 
          RowBox[{
           RowBox[{"mySmallEquilibria", "[", 
            RowBox[{"ph", ",", "s", ",", "k"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"_", ",", "_"}], "}"}]}], "]"}]}], "}"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5172367541347656`*^9, 3.5172367618964844`*^9}, {
   3.5172368435625*^9, 3.5172368483339844`*^9}, 3.517385501298828*^9, 
   3.5173910563183594`*^9, {3.5173910999902344`*^9, 3.5173911011123047`*^9}, 
   3.517392609345703*^9, {3.5174131414492188`*^9, 3.5174131550410156`*^9}, {
   3.5174139633583984`*^9, 3.5174139774433594`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mySmallLines", "[", 
   RowBox[{"ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"Evaluate", "[", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Depth", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"sy2", "[", "t", "]"}], ",", 
            RowBox[{"sx1", "[", "t", "]"}]}], "}"}], "/.", 
          RowBox[{"Cases", "[", 
           RowBox[{
            RowBox[{"mySmallEquilibria", "[", 
             RowBox[{"ph", ",", "s", ",", "k"}], "]"}], ",", 
            RowBox[{"{", "_", "}"}]}], "]"}]}], "]"}], "\[Equal]", "4"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"sy2", "[", "t", "]"}], ",", 
          RowBox[{"sx1", "[", "t", "]"}]}], "}"}], "/.", 
        RowBox[{"Cases", "[", 
         RowBox[{
          RowBox[{"mySmallEquilibria", "[", 
           RowBox[{"ph", ",", "s", ",", "k"}], "]"}], ",", 
          RowBox[{"{", "_", "}"}]}], "]"}]}]}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"sy2", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Gray", ",", 
       RowBox[{"Thickness", "[", ".02", "]"}]}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.517302408850586*^9, 3.517302421584961*^9}, {
   3.5173024684189453`*^9, 3.517302470383789*^9}, {3.5173028888164062`*^9, 
   3.517302895895508*^9}, {3.5173029640634766`*^9, 3.517302971671875*^9}, {
   3.5173031478339844`*^9, 3.5173031555126953`*^9}, {3.517303195595703*^9, 
   3.5173032574453125`*^9}, {3.5173855389697266`*^9, 3.517385541788086*^9}, {
   3.517387317533203*^9, 3.517387321053711*^9}, {3.517387550055664*^9, 
   3.5173875569277344`*^9}, {3.51739037584375*^9, 3.5173903818789062`*^9}, {
   3.5173908649257812`*^9, 3.5173908778242188`*^9}, {3.517391044366211*^9, 
   3.5173910461933594`*^9}, {3.5173911035585938`*^9, 3.5173911083359375`*^9}, 
   3.517391173446289*^9, {3.5173926114296875`*^9, 3.517392614881836*^9}, {
   3.517413141466797*^9, 3.5174131550654297`*^9}, {3.5174139633789062`*^9, 
   3.5174139774765625`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mySmallPlot", "[", 
   RowBox[{"ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
  RowBox[{"Show", "[", 
   RowBox[{"mySmallBorders", ",", 
    RowBox[{"mySmallLabels", "[", 
     RowBox[{"ph", ",", "s", ",", "k"}], "]"}], ",", 
    RowBox[{"mySmallPoints", "[", 
     RowBox[{"ph", ",", "s", ",", "k"}], "]"}], ",", 
    RowBox[{"mySmallLines", "[", 
     RowBox[{"ph", ",", "s", ",", "k"}], "]"}], ",", 
    RowBox[{"VectorPlot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"SmallfieldEqsY", "[", 
          RowBox[{"ph", ",", "s", ",", "k"}], "]"}], ",", 
         RowBox[{"SmallfieldEqsX", "[", 
          RowBox[{"ph", ",", "s", ",", "k"}], "]"}]}], "}"}], "//", 
       "Flatten"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"sy2", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"sx1", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"VectorStyle", "\[Rule]", "Black"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5172175853154297`*^9, 3.517217594673828*^9}, {
   3.517247251036133*^9, 3.5172472568476562`*^9}, {3.5172473093271484`*^9, 
   3.517247311198242*^9}, {3.517325694821289*^9, 3.5173257960439453`*^9}, {
   3.5173258544521484`*^9, 3.517325873158203*^9}, 3.5173855453359375`*^9, {
   3.5173873374414062`*^9, 3.517387339301758*^9}, {3.517387558790039*^9, 
   3.5173875598154297`*^9}, {3.517388990821289*^9, 3.51738900509375*^9}, {
   3.5173903843154297`*^9, 3.517390385798828*^9}, {3.5173908804541016`*^9, 
   3.5173908818027344`*^9}, 3.5173910480664062`*^9, {3.517391110131836*^9, 
   3.5173911114414062`*^9}, {3.5173912565615234`*^9, 3.517391258720703*^9}, {
   3.5173913008603516`*^9, 3.517391303069336*^9}, {3.5173914412822266`*^9, 
   3.5173914428496094`*^9}, 3.5173926185371094`*^9, {3.517413141484375*^9, 
   3.517413155095703*^9}, {3.5174139633984375`*^9, 3.517413977515625*^9}, {
   3.5182756287197266`*^9, 3.5182756289160156`*^9}, {3.5182757670117188`*^9, 
   3.518275768383789*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mySmallPlay", "[", 
   RowBox[{"ph_", ",", "s_"}], "]"}], ":=", 
  RowBox[{"ListAnimate", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"mySmallPlot", "[", 
       RowBox[{"ph", ",", "s", ",", "i"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", ".15", ",", ".5", ",", ".85", ",", "1"}], "}"}]}], 
       "}"}]}], "]"}], ",", 
    RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5170407271708984`*^9, 3.517040779578125*^9}, {
   3.5170412543447266`*^9, 3.5170412551191406`*^9}, {3.5170413255253906`*^9, 
   3.5170413284765625`*^9}, 3.5170414500898438`*^9, {3.517041552470703*^9, 
   3.517041595984375*^9}, {3.5170417010595703`*^9, 3.517041793661133*^9}, {
   3.5170418443310547`*^9, 3.5170418539658203`*^9}, {3.5170418959384766`*^9, 
   3.5170419008671875`*^9}, {3.517041950991211*^9, 3.5170419596933594`*^9}, {
   3.517042623026367*^9, 3.517042631953125*^9}, {3.5170501982109375`*^9, 
   3.5170502002109375`*^9}, 3.5170685077890625`*^9, {3.5171237951591797`*^9, 
   3.5171238904277344`*^9}, {3.5171239554072266`*^9, 
   3.5171239948759766`*^9}, {3.5171246934521484`*^9, 3.517124694694336*^9}, 
   3.517130744104492*^9, {3.5172376136445312`*^9, 3.517237618333008*^9}, 
   3.5172472656757812`*^9, 3.517247306864258*^9, 3.5172951040615234`*^9, 
   3.5173855508916016`*^9, {3.5173873415078125`*^9, 3.5173873428007812`*^9}, {
   3.5173875644257812`*^9, 3.5173875660595703`*^9}, {3.517390387234375*^9, 
   3.5173903888085938`*^9}, {3.5173908847353516`*^9, 3.517390889665039*^9}, 
   3.5173910490585938`*^9, {3.5173911134765625`*^9, 3.5173911166240234`*^9}, {
   3.517391357584961*^9, 3.5173913864589844`*^9}, {3.5173914669853516`*^9, 
   3.5173914694628906`*^9}, 3.5173926196884766`*^9, {3.517404529583008*^9, 
   3.5174045313339844`*^9}, {3.5174047052939453`*^9, 3.51740470584375*^9}, {
   3.517404771640625*^9, 3.5174047721884766`*^9}, {3.517413963419922*^9, 
   3.5174139775791016`*^9}, {3.5174699196376953`*^9, 3.5174699253271484`*^9}, 
   3.5174700358291016`*^9, {3.517470085520508*^9, 3.517470092288086*^9}, {
   3.5182756449316406`*^9, 3.518275655048828*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Initiation 3D", "Subsubtitle",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.516368901841797*^9, 3.5163689057216797`*^9}, {3.5172159677695312`*^9, 
   3.517215970625*^9}, {3.5172160030810547`*^9, 3.5172160066552734`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"myA", "[", 
    RowBox[{"ph_", ",", "s_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"myA2", "[", 
     RowBox[{
      RowBox[{"1", "-", "ph"}], ",", "ph", ",", "s"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"k", "\[Rule]", "ph"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"myB", "[", 
    RowBox[{"ph_", ",", "s_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"myB2", "[", 
     RowBox[{
      RowBox[{"1", "-", "ph"}], ",", "ph", ",", "s"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"k", "\[Rule]", "ph"}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.51635667296875*^9, 3.516356742421875*^9}, 
   3.51703958378125*^9, {3.517209894982422*^9, 3.5172098953847656`*^9}, {
   3.517413963439453*^9, 3.5174139776083984`*^9}, {3.5182705017958984`*^9, 
   3.5182705086015625`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ReplicatorX", "[", 
   RowBox[{"x_", ",", "y_", ",", "i_", ",", "ph_", ",", "s_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"x", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"myA", "[", 
         RowBox[{"ph", ",", "s"}], "]"}], ".", "y"}], ")"}], 
      "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "-", 
     RowBox[{"x", ".", 
      RowBox[{"myA", "[", 
       RowBox[{"ph", ",", "s"}], "]"}], ".", "y"}]}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ReplicatorY", "[", 
   RowBox[{"x_", ",", "y_", ",", "j_", ",", "ph_", ",", "s_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"y", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"myB", "[", 
         RowBox[{"ph", ",", "s"}], "]"}], ".", "x"}], ")"}], 
      "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], "-", 
     RowBox[{"y", ".", 
      RowBox[{"myB", "[", 
       RowBox[{"ph", ",", "s"}], "]"}], ".", "x"}]}], ")"}]}]}]}], "Input",
 CellChangeTimes->{{3.516356985671875*^9, 3.5163570127089844`*^9}, 
   3.517039583786133*^9, {3.5174139634785156`*^9, 3.5174139776640625`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"X", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "[", "t", "]"}], ",", 
     RowBox[{"x2", "[", "t", "]"}], ",", 
     RowBox[{"x3", "[", "t", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Y", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y1", "[", "t", "]"}], ",", 
     RowBox[{"y2", "[", "t", "]"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{3.5170395837871094`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"diffEqsX", "[", 
   RowBox[{"ph_", ",", "s_"}], "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"X", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
       ",", "t"}], "]"}], "\[Equal]", 
     RowBox[{"ReplicatorX", "[", 
      RowBox[{"X", ",", "Y", ",", "i", ",", "ph", ",", "s"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"diffEqsY", "[", 
   RowBox[{"ph_", ",", "s_"}], "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"Y", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], 
       ",", "t"}], "]"}], "\[Equal]", 
     RowBox[{"ReplicatorY", "[", 
      RowBox[{"X", ",", "Y", ",", "j", ",", "ph", ",", "s"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "2"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.5163570220927734`*^9, 3.5163570608876953`*^9}, 
   3.517039583790039*^9, {3.5174139635185547`*^9, 3.5174139776972656`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mySolution2", "[", 
   RowBox[{
   "ph_", ",", "s_", ",", "x10_", ",", "x20_", ",", "x30_", ",", "y10_", ",", 
    "y20_"}], "]"}], ":=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"diffEqsX", "[", 
       RowBox[{"ph", ",", "s"}], "]"}], ",", 
      RowBox[{"diffEqsY", "[", 
       RowBox[{"ph", ",", "s"}], "]"}], ",", 
      RowBox[{
       RowBox[{"x1", "[", "0", "]"}], "\[Equal]", "x10"}], ",", 
      RowBox[{
       RowBox[{"x2", "[", "0", "]"}], "\[Equal]", "x20"}], ",", 
      RowBox[{
       RowBox[{"x3", "[", "0", "]"}], "\[Equal]", "x30"}], ",", 
      RowBox[{
       RowBox[{"y1", "[", "0", "]"}], "\[Equal]", "y10"}], ",", 
      RowBox[{
       RowBox[{"y2", "[", "0", "]"}], "\[Equal]", "y20"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5162923848691406`*^9, 3.5162923924072266`*^9}, {
   3.5162924601992188`*^9, 3.5162924735742188`*^9}, {3.516292510004883*^9, 
   3.5162925155439453`*^9}, {3.5162925862529297`*^9, 3.516292599661133*^9}, {
   3.5162927075683594`*^9, 3.516292764254883*^9}, {3.516307264595828*^9, 
   3.516307298326297*^9}, {3.516353551611328*^9, 3.5163535526103516`*^9}, 
   3.5163536106191406`*^9, 3.5163537846279297`*^9, {3.5163554755214844`*^9, 
   3.5163554790527344`*^9}, {3.516357110416992*^9, 3.5163571469853516`*^9}, {
   3.5163571925146484`*^9, 3.516357250383789*^9}, 3.516357393716797*^9, 
   3.517039583791992*^9, {3.5174139635585938`*^9, 3.5174139777304688`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mySolution", "[", 
   RowBox[{"ph_", ",", "s_", ",", "x20_", ",", "x30_", ",", "y20_"}], "]"}], ":=", 
  RowBox[{"mySolution2", "[", 
   RowBox[{"ph", ",", "s", ",", 
    RowBox[{"1", "-", "x20", "-", "x30"}], ",", "x20", ",", "x30", ",", 
    RowBox[{"1", "-", "y20"}], ",", "y20"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5162923848691406`*^9, 3.5162923924072266`*^9}, {
   3.5162924601992188`*^9, 3.5162924735742188`*^9}, {3.516292510004883*^9, 
   3.5162925155439453`*^9}, {3.5162925862529297`*^9, 3.516292599661133*^9}, {
   3.5162927075683594`*^9, 3.516292764254883*^9}, {3.516307264595828*^9, 
   3.516307298326297*^9}, {3.516353551611328*^9, 3.5163535526103516`*^9}, 
   3.5163536106191406`*^9, 3.5163537846279297`*^9, {3.5163554755214844`*^9, 
   3.5163554790527344`*^9}, {3.516357110416992*^9, 3.5163571469853516`*^9}, {
   3.5163571925146484`*^9, 3.516357250383789*^9}, {3.516357393716797*^9, 
   3.5163574433876953`*^9}, 3.5170395837939453`*^9, {3.5174139635771484`*^9, 
   3.517413977748047*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fieldEqsX", "[", 
   RowBox[{"ph_", ",", "s_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ReplicatorX", "[", 
      RowBox[{"X", ",", "Y", ",", "i", ",", "ph", ",", "s"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "2", ",", "3"}], "}"}]}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"x1", "[", "t", "]"}], "\[Rule]", 
      RowBox[{"1", "-", 
       RowBox[{"x2", "[", "t", "]"}], "-", 
       RowBox[{"x3", "[", "t", "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"y1", "[", "t", "]"}], "\[Rule]", 
      RowBox[{"1", "-", 
       RowBox[{"y2", "[", "t", "]"}]}]}]}], "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fieldEqsY", "[", 
   RowBox[{"ph_", ",", "s_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"ReplicatorY", "[", 
    RowBox[{"X", ",", "Y", ",", "2", ",", "ph", ",", "s"}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"x1", "[", "t", "]"}], "\[Rule]", 
      RowBox[{"1", "-", 
       RowBox[{"x2", "[", "t", "]"}], "-", 
       RowBox[{"x3", "[", "t", "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"y1", "[", "t", "]"}], "\[Rule]", 
      RowBox[{"1", "-", 
       RowBox[{"y2", "[", "t", "]"}]}]}]}], "}"}]}]}]}], "Input",
 CellChangeTimes->{{3.5163609622382812`*^9, 3.5163609980390625`*^9}, {
   3.5163611015742188`*^9, 3.5163612247734375`*^9}, {3.516361302125*^9, 
   3.516361322375*^9}, {3.5163614028984375`*^9, 3.5163614246640625`*^9}, {
   3.516361473484375*^9, 3.5163614867890625`*^9}, {3.5163615295390625`*^9, 
   3.5163615317578125`*^9}, {3.5163615641953125`*^9, 
   3.5163616812773438`*^9}, {3.5164343569833984`*^9, 3.5164343590146484`*^9}, 
   3.517039583803711*^9, {3.5174139635996094`*^9, 3.517413977783203*^9}, {
   3.5176709360947266`*^9, 3.5176709932617188`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ConvertToPrism", "[", 
    RowBox[{"{", 
     RowBox[{"aa_", ",", "bb_", ",", "cc_"}], "}"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{"aa", ",", " ", 
     RowBox[{
      RowBox[{"cc", "/", "2"}], "+", "bb"}], ",", 
     RowBox[{
      RowBox[{"Sqrt", "[", "3", "]"}], " ", 
      RowBox[{"cc", " ", "/", "2"}]}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.516435525495117*^9, 3.516435527620117*^9}, 
   3.5170395837978516`*^9, {3.5174132790566406`*^9, 3.517413304314453*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"myBorders3", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "u", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "u"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "u", ",", 
       RowBox[{"1", "-", "u"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "u", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "u"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "u", ",", 
       RowBox[{"1", "-", "u"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"myBorders2", "=", 
   RowBox[{"ConvertToPrism", "/@", "myBorders3"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"myBorders", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{"myBorders2", ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "Thick"}], "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "None"}], ",", 
     RowBox[{"ViewPoint", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", ".8"}], ",", 
        RowBox[{"-", "1.3"}], ",", ".3"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".1"}], ",", "1.1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".1"}], ",", "1.1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".1"}], ",", ".9"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "500"}], "}"}]}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5163579848945312`*^9, 3.5163579977382812`*^9}, 
   3.5163583997929688`*^9, {3.5166154529785156`*^9, 3.5166156214453125`*^9}, {
   3.5166160029277344`*^9, 3.5166160064414062`*^9}, {3.5170391708515625`*^9, 
   3.5170391723046875`*^9}, 3.5170395837998047`*^9, 3.517068450623047*^9, {
   3.5173267898935547`*^9, 3.5173268085585938`*^9}, {3.5173321071904297`*^9, 
   3.5173321085654297`*^9}, {3.5173321547021484`*^9, 
   3.5173321557197266`*^9}, {3.5173321982822266`*^9, 3.5173322119257812`*^9}, 
   3.5173816343027344`*^9, 3.5174142403291016`*^9, 3.5174145508828125`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"myLabels", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Low\>\"", ",", "18"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{".5", ",", 
          RowBox[{"-", ".05"}], ",", 
          RowBox[{"-", ".05"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Separating\>\"", ",", "18"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{".5", ",", "1.05", ",", 
          RowBox[{"-", ".07"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<High\>\"", ",", "18"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{".5", ",", ".5", ",", ".95"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Average\>\"", ",", "18"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".05"}], ",", ".5", ",", ".4"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Split\>\"", ",", "18"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.05", ",", ".5", ",", ".4"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5173263129179688`*^9, 3.517326381772461*^9}, {
   3.517326674979492*^9, 3.517326708166992*^9}, {3.5173323755625*^9, 
   3.5173324649296875`*^9}, {3.517332538571289*^9, 3.5173326056464844`*^9}, {
   3.5173326427490234`*^9, 3.5173326751835938`*^9}, {3.517332706444336*^9, 
   3.517332710495117*^9}, {3.517382461303711*^9, 3.5173824646816406`*^9}, 
   3.5174699741689453`*^9, {3.5179156517695312`*^9, 3.5179156534023438`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"myEquilibria", "[", 
   RowBox[{"ph_", ",", "s_"}], "]"}], ":=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"fieldEqsX", "[", 
       RowBox[{"ph", ",", "s"}], "]"}], ",", 
      RowBox[{"fieldEqsY", "[", 
       RowBox[{"ph", ",", "s"}], "]"}]}], "}"}], "\[Equal]", "0"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5166219790976562`*^9, 3.5166220024658203`*^9}, {
   3.516622096647461*^9, 3.5166221291015625`*^9}, 3.517039583805664*^9, {
   3.517413963638672*^9, 3.517413977810547*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"myPoints", "[", 
   RowBox[{"ph_", ",", "s_"}], "]"}], ":=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"PointSize", "[", ".04", "]"}], ",", "Gray", ",", 
     RowBox[{"Point", "[", 
      RowBox[{
       RowBox[{"ConvertToPrism", "/@", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", "t", "]"}], ",", 
             RowBox[{"x2", "[", "t", "]"}], ",", 
             RowBox[{"x3", "[", "t", "]"}]}], "}"}], "/.", 
           RowBox[{"myEquilibria", "[", 
            RowBox[{"ph", ",", "s"}], "]"}]}], "}"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"x2", "[", "t", "]"}], "\[Rule]", 
          RowBox[{"-", "1"}]}], ",", 
         RowBox[{
          RowBox[{"x3", "[", "t", "]"}], "\[Rule]", 
          RowBox[{"-", "1"}]}], ",", 
         RowBox[{
          RowBox[{"y2", "[", "t", "]"}], "\[Rule]", 
          RowBox[{"-", "1"}]}]}], "}"}]}], "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.516622229970703*^9, 3.516622284448242*^9}, {
   3.516622352790039*^9, 3.5166223647460938`*^9}, 3.5166224585341797`*^9, {
   3.516622590669922*^9, 3.5166225923808594`*^9}, {3.516622636754883*^9, 
   3.516622658319336*^9}, {3.516959244366211*^9, 3.5169592780429688`*^9}, 
   3.5170395838085938`*^9, {3.517217737145508*^9, 3.5172177593183594`*^9}, {
   3.5174139636591797`*^9, 3.517413977830078*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"myLines", "[", 
   RowBox[{"ph_", ",", "s_"}], "]"}], ":=", 
  RowBox[{"ParametricPlot3D", "[", 
   RowBox[{
    RowBox[{"Evaluate", "[", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Depth", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"y2", "[", "t", "]"}], ",", 
            RowBox[{"x2", "[", "t", "]"}], ",", 
            RowBox[{"x3", "[", "t", "]"}]}], "}"}], "/.", 
          RowBox[{"Cases", "[", 
           RowBox[{
            RowBox[{"myEquilibria", "[", 
             RowBox[{"ph", ",", "s"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"_", ",", "_"}], "}"}]}], "]"}]}], "]"}], "\[Equal]", 
        "4"}], ",", 
       RowBox[{
        RowBox[{"ConvertToPrism", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"y2", "[", "t", "]"}], ",", 
           RowBox[{"x2", "[", "t", "]"}], ",", 
           RowBox[{"x3", "[", "t", "]"}]}], "}"}], "]"}], "/.", 
        RowBox[{"Cases", "[", 
         RowBox[{
          RowBox[{"myEquilibria", "[", 
           RowBox[{"ph", ",", "s"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"_", ",", "_"}], "}"}]}], "]"}]}]}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x3", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Gray", ",", 
       RowBox[{"Thickness", "[", ".02", "]"}]}], "]"}]}], ",", 
    RowBox[{"RegionFunction", " ", "\[Rule]", " ", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{
        RowBox[{"z", "/", 
         RowBox[{"Sqrt", "[", "3", "]"}]}], "\[LessEqual]", "y", 
        "\[LessEqual]", 
        RowBox[{"1", "-", 
         RowBox[{"z", "/", 
          RowBox[{"Sqrt", "[", "3", "]"}]}]}]}]}], "]"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.517302408850586*^9, 3.517302421584961*^9}, {
   3.5173024684189453`*^9, 3.517302470383789*^9}, {3.5173028888164062`*^9, 
   3.517302895895508*^9}, {3.5173029640634766`*^9, 3.517302971671875*^9}, {
   3.5173031478339844`*^9, 3.5173031555126953`*^9}, {3.517303195595703*^9, 
   3.5173032574453125`*^9}, {3.517304792883789*^9, 3.5173048784785156`*^9}, {
   3.5173049595683594`*^9, 3.517304960234375*^9}, {3.517305031098633*^9, 
   3.5173050337470703`*^9}, {3.517305069876953*^9, 3.5173050775009766`*^9}, 
   3.517305138430664*^9, {3.5173097218554688`*^9, 3.517309727044922*^9}, {
   3.5173097627382812`*^9, 3.517309765294922*^9}, {3.5173108859521484`*^9, 
   3.517310917413086*^9}, {3.517310973194336*^9, 3.517310980491211*^9}, {
   3.5173110342333984`*^9, 3.517311059010742*^9}, {3.517311102245117*^9, 
   3.517311115260742*^9}, {3.517323569116211*^9, 3.5173236345126953`*^9}, {
   3.517323674524414*^9, 3.5173236805302734`*^9}, {3.51732374115625*^9, 
   3.5173237585439453`*^9}, {3.517413963682617*^9, 3.517413977861328*^9}, {
   3.5178321243398438`*^9, 3.5178321344140625`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"myArrow", "[", 
    RowBox[{
    "ph_", ",", "s_", ",", "x20_", ",", "x30_", ",", "y20_", ",", "t_"}], 
    "]"}], ":=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"Arrow", "[", 
     RowBox[{
      RowBox[{"ConvertToPrism", "/@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"y2", "[", "t", "]"}], ",", 
           RowBox[{"x2", "[", "t", "]"}], ",", 
           RowBox[{"x3", "[", "t", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"y2", "[", 
            RowBox[{"t", "+", ".1"}], "]"}], ",", 
           RowBox[{"x2", "[", 
            RowBox[{"t", "+", ".1"}], "]"}], ",", 
           RowBox[{"x3", "[", 
            RowBox[{"t", "+", ".1"}], "]"}]}], "}"}]}], "}"}]}], "/.", 
      RowBox[{
       RowBox[{"mySolution", "[", 
        RowBox[{"ph", ",", "s", ",", "x20", ",", "x30", ",", "y20"}], "]"}], 
       "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5163580122382812`*^9, 3.5163581146367188`*^9}, 
   3.5170395838095703`*^9, {3.517413963703125*^9, 3.5174139780371094`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"myOrbit", "[", 
    RowBox[{
    "ph_", ",", "s_", ",", "x20_", ",", "x30_", ",", "y20_", ",", "tmax_"}], 
    "]"}], ":=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"ConvertToPrism", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"y2", "[", "t", "]"}], ",", 
          RowBox[{"x2", "[", "t", "]"}], ",", 
          RowBox[{"x3", "[", "t", "]"}]}], "}"}], "]"}], "/.", 
       RowBox[{"mySolution", "[", 
        RowBox[{"ph", ",", "s", ",", "x20", ",", "x30", ",", "y20"}], "]"}]}],
       "/.", 
      RowBox[{"t", "\[Rule]", "tt"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"tt", ",", "0", ",", "tmax"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", 
     RowBox[{"Axes", "\[Rule]", "None"}], ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5163581528632812`*^9, 3.5163581912539062`*^9}, {
   3.51635838334375*^9, 3.516358390078125*^9}, 3.517039583810547*^9, {
   3.517413963723633*^9, 3.5174139780566406`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"myTogether", "[", 
   RowBox[{
   "ph_", ",", "s_", ",", "x20_", ",", "x30_", ",", "y20_", ",", "t_", ",", 
    "tmax_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"myArrow", "[", 
     RowBox[{"ph", ",", "s", ",", "x20", ",", "x30", ",", "y20", ",", "t"}], 
     "]"}], ",", 
    RowBox[{"myOrbit", "[", 
     RowBox[{
     "ph", ",", "s", ",", "x20", ",", "x30", ",", "y20", ",", "tmax"}], 
     "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.5163584218789062`*^9, 3.5163584628164062`*^9}, {
   3.5163585052460938`*^9, 3.5163585136054688`*^9}, 3.5170395838125*^9, {
   3.5174139637441406`*^9, 3.517413978086914*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Replication", "Subtitle",
 CellChangeTimes->{{3.451225222214694*^9, 3.4512252238347073`*^9}, 
   3.4514664013390656`*^9, 3.5163561804570312`*^9, {3.5163562169648438`*^9, 
   3.5163562182470703`*^9}, {3.5163606831367188`*^9, 3.5163606847460938`*^9}}],

Cell[CellGroupData[{

Cell["2D-1", "Subsubtitle",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.5169560139404297`*^9, 3.5169560409414062`*^9}, {3.516956086461914*^9, 
   3.5169565455703125`*^9}, 3.5169566018564453`*^9, {3.516956660966797*^9, 
   3.5169566662265625`*^9}, {3.5169591892265625`*^9, 3.5169591909873047`*^9}, 
   3.5170395837158203`*^9, {3.5170504098759766`*^9, 3.5170504154853516`*^9}, {
   3.5171273889560547`*^9, 3.517127389073242*^9}, 3.517216146725586*^9}],

Cell["\<\
This section plots one boundary face of the three dimensional phase space \
which is examined in my thesis.\
\>", "Text",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.5169560139404297`*^9, 3.5169560409414062`*^9}, {3.516956086461914*^9, 
   3.5169565455703125`*^9}, 3.5169566018564453`*^9, {3.516956660966797*^9, 
   3.5169566662265625`*^9}, 3.5170395837158203`*^9, {3.518252077091797*^9, 
   3.518252099631836*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"mySmallA2", "[", 
    RowBox[{"pl_", ",", "ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "+", "k"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "+", "k", "-", 
        RowBox[{"ph", "*", 
         RowBox[{"s", "/", "2"}]}]}], ",", 
       RowBox[{"1", "+", "ph", "-", 
        RowBox[{"ph", "*", 
         RowBox[{"s", "/", "2"}]}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"mySmallB2", "[", 
    RowBox[{"pl_", ",", "ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "ph"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "k"}], ")"}], "^", "2"}]}], "-", 
         RowBox[{"pl", " ", 
          RowBox[{"k", "^", "2"}]}]}], ",", 
        RowBox[{"-", "ph"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "ph"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "k"}], ")"}], "^", "2"}]}], "-", 
         RowBox[{"pl", " ", 
          RowBox[{"k", "^", "2"}]}]}], ",", "0"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.517037940993164*^9, 3.5170379471308594`*^9}, {
   3.5170380327841797`*^9, 3.517038071899414*^9}, {3.5170381033271484`*^9, 
   3.5170381809658203`*^9}, {3.5170384737402344`*^9, 3.517038481739258*^9}, 
   3.517038527205078*^9, 3.5170395837177734`*^9, {3.5170422895351562`*^9, 
   3.5170422910654297`*^9}, {3.5170423417695312`*^9, 3.517042344041992*^9}, {
   3.5170679623476562`*^9, 3.5170680408164062`*^9}, {3.517209404776367*^9, 
   3.517209405430664*^9}, {3.517385674671875*^9, 3.5173856758935547`*^9}, {
   3.5174131415390625`*^9, 3.5174131415507812`*^9}, {3.517413197873047*^9, 
   3.5174132051054688`*^9}, {3.5174132624179688`*^9, 3.517413262426758*^9}, {
   3.5174139637597656`*^9, 3.517413978111328*^9}}],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"mySmallA", "[", 
   RowBox[{"ph", ",", "s", ",", "k"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"mySmallB", "[", 
    RowBox[{"ph", ",", "s", ",", "k"}], "]"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"mySmallA", "[", 
   RowBox[{".5", ",", ".5", ",", ".5"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"mySmallB", "[", 
    RowBox[{".5", ",", ".5", ",", ".5"}], "]"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.517038286501953*^9, 3.51703829896875*^9}, 
   3.5170395837216797`*^9, {3.5173832209541016`*^9, 3.517383225416992*^9}, {
   3.517385616263672*^9, 3.517385616861328*^9}, {3.5173877109277344`*^9, 
   3.5173877139501953`*^9}, {3.517395809163086*^9, 3.517395814426758*^9}, {
   3.5173964705654297`*^9, 3.517396474102539*^9}, {3.5174131551054688`*^9, 
   3.5174131551132812`*^9}, {3.517413978126953*^9, 3.517413978142578*^9}}],

Cell[BoxData[{
 RowBox[{"mySmallSolveA", "[", 
  RowBox[{
   SubscriptBox["P", "H"], ",", "S", ",", "K"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"mySmallSolveB", "[", 
  RowBox[{
   SubscriptBox["P", "H"], ",", "S", ",", "K"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5173800512226562`*^9, 3.5173800743632812`*^9}, {
  3.5173928868134766`*^9, 3.5173929084970703`*^9}, {3.5173938457177734`*^9, 
  3.517393849588867*^9}, {3.517394132720703*^9, 3.5173941884189453`*^9}, {
  3.517413155120117*^9, 3.5174131551259766`*^9}, {3.5174139781591797`*^9, 
  3.517413978176758*^9}, {3.5174756293203125`*^9, 3.517475648671875*^9}, {
  3.5176710145751953`*^9, 3.5176710251416016`*^9}}],

Cell[BoxData[
 RowBox[{"mySmallPlot", "[", 
  RowBox[{".5", ",", ".5", ",", ".5"}], "]"}]], "Input",
 CellChangeTimes->{{3.5164342760771484`*^9, 3.5164343122021484`*^9}, 
   3.5164344064208984`*^9, 3.5164344630302734`*^9, {3.5164344947177734`*^9, 
   3.5164345138740234`*^9}, {3.5164349995615234`*^9, 
   3.5164350018427734`*^9}, {3.5164350384365234`*^9, 
   3.5164350597177734`*^9}, {3.5164351323427734`*^9, 
   3.5164351795146484`*^9}, {3.5164352764833984`*^9, 
   3.5164353785341797`*^9}, {3.516435419604492*^9, 3.5164354346279297`*^9}, {
   3.5164354680498047`*^9, 3.516435492573242*^9}, {3.5164355560966797`*^9, 
   3.5164355827529297`*^9}, {3.5164356421708984`*^9, 3.516435753057617*^9}, {
   3.5164358011904297`*^9, 3.5164358029248047`*^9}, {3.516435863370117*^9, 
   3.516435866245117*^9}, {3.5164360046904297`*^9, 3.5164360333466797`*^9}, {
   3.516436088838867*^9, 3.516436125241211*^9}, {3.5164361555771484`*^9, 
   3.516436307385742*^9}, {3.5164363570498047`*^9, 3.5164363752841797`*^9}, {
   3.5164364075341797`*^9, 3.5164364143466797`*^9}, {3.5170394094052734`*^9, 
   3.517039467357422*^9}, 3.5170395837753906`*^9, 3.5170397053447266`*^9, {
   3.5170501601367188`*^9, 3.5170501625742188`*^9}, 3.517068518083008*^9, {
   3.517123692466797*^9, 3.517123694618164*^9}, {3.5171237374589844`*^9, 
   3.517123738544922*^9}, {3.517217606432617*^9, 3.5172176112529297`*^9}, {
   3.5172257713808594`*^9, 3.5172257751835938`*^9}, {3.5172365034921875`*^9, 
   3.517236505727539*^9}, {3.5172366384814453`*^9, 3.5172366467734375`*^9}, {
   3.5173809157958984`*^9, 3.5173809359365234`*^9}, {3.517381149091797*^9, 
   3.5173812117695312`*^9}, 3.5173812426660156`*^9, {3.517381305798828*^9, 
   3.5173813149785156`*^9}, {3.5173832102753906`*^9, 3.517383215142578*^9}, 
   3.517387364383789*^9, {3.5173875938916016`*^9, 3.5173876208945312`*^9}, {
   3.517390428357422*^9, 3.5173904311660156`*^9}, {3.5173929214609375`*^9, 
   3.517392945810547*^9}, {3.5173938719697266`*^9, 3.517393897879883*^9}, {
   3.517394029213867*^9, 3.5173940412910156`*^9}, {3.517394110161133*^9, 
   3.517394111361328*^9}, {3.51739417140625*^9, 3.517394198006836*^9}, {
   3.5173959930625*^9, 3.5173959938447266`*^9}, {3.5173961729716797`*^9, 
   3.5173961754316406`*^9}}],

Cell[BoxData[{
 RowBox[{"mySmallPlay", "[", 
  RowBox[{".5", ",", "1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"mySmallPlay", "[", 
  RowBox[{".3", ",", "1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5170407051708984`*^9, 3.5170407064541016`*^9}, {
   3.5170407917539062`*^9, 3.5170408284990234`*^9}, {3.517041014368164*^9, 
   3.5170410298808594`*^9}, {3.5170411333535156`*^9, 
   3.5170411336367188`*^9}, {3.5170412842246094`*^9, 
   3.5170413244404297`*^9}, {3.5171240151728516`*^9, 3.517124202765625*^9}, 
   3.5171242361875*^9, {3.517124286109375*^9, 3.5171243612871094`*^9}, {
   3.517124486504883*^9, 3.51712448903125*^9}, {3.517124521977539*^9, 
   3.517124550491211*^9}, {3.5171245928408203`*^9, 3.517124603600586*^9}, {
   3.5171246921835938`*^9, 3.5171246988427734`*^9}, {3.5176710794492188`*^9, 
   3.5176710811708984`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["2D-2", "Subsubtitle",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.5169560139404297`*^9, 3.5169560409414062`*^9}, {3.516956086461914*^9, 
   3.5169565455703125`*^9}, 3.5169566018564453`*^9, {3.516956660966797*^9, 
   3.5169566662265625`*^9}, {3.5169591892265625`*^9, 3.5169591909873047`*^9}, 
   3.5170395837158203`*^9, {3.5170504098759766`*^9, 3.5170504154853516`*^9}, {
   3.5171247722558594`*^9, 3.5171247723720703`*^9}, 3.5172161479746094`*^9}],

Cell["\<\
This section plots another boundary face of the three dimensional phase space \
which is examined in my thesis.\
\>", "Text",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.5169560139404297`*^9, 3.5169560409414062`*^9}, {3.516956086461914*^9, 
   3.5169565455703125`*^9}, 3.5169566018564453`*^9, {3.516956660966797*^9, 
   3.5169566662265625`*^9}, 3.5170395837158203`*^9, {3.518252125567383*^9, 
   3.518252128176758*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"mySmallA2", "[", 
    RowBox[{"pl_", ",", "ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "+", "k", "-", 
        RowBox[{"ph", "*", 
         RowBox[{"s", "/", "2"}]}], "-", 
        RowBox[{"pl", "*", "s"}]}], ",", 
       RowBox[{"2", "-", 
        RowBox[{"ph", "*", 
         RowBox[{"s", "/", "2"}]}], "-", 
        RowBox[{"pl", "*", "s"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "+", "k", "-", 
        RowBox[{"ph", "*", 
         RowBox[{"s", "/", "2"}]}]}], ",", 
       RowBox[{"1", "+", "ph", "-", 
        RowBox[{"ph", "*", 
         RowBox[{"s", "/", "2"}]}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"mySmallB2", "[", 
    RowBox[{"pl_", ",", "ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "ph"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "k"}], ")"}], "^", "2"}]}], "-", 
         RowBox[{"pl", " ", 
          RowBox[{"k", "^", "2"}]}]}], ",", 
        RowBox[{"-", "pl"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "ph"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "k"}], ")"}], "^", "2"}]}], "-", 
         RowBox[{"pl", " ", 
          RowBox[{"k", "^", "2"}]}]}], ",", "0"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.517037940993164*^9, 3.5170379471308594`*^9}, {
   3.5170380327841797`*^9, 3.517038071899414*^9}, {3.5170381033271484`*^9, 
   3.5170381809658203`*^9}, {3.5170384737402344`*^9, 3.517038481739258*^9}, 
   3.517038527205078*^9, 3.5170395837177734`*^9, {3.5170422895351562`*^9, 
   3.5170422910654297`*^9}, {3.5170423417695312`*^9, 3.517042344041992*^9}, {
   3.5170679623476562`*^9, 3.5170680408164062`*^9}, {3.5171247762060547`*^9, 
   3.517124777274414*^9}, {3.517125046095703*^9, 3.517125050930664*^9}, {
   3.5171250861015625`*^9, 3.517125088415039*^9}, {3.5171251847158203`*^9, 
   3.5171251884101562`*^9}, 3.5171252204296875`*^9, {3.5172093475742188`*^9, 
   3.5172093480898438`*^9}, {3.5172094131152344`*^9, 
   3.5172094136933594`*^9}, {3.5174131415791016`*^9, 3.517413141588867*^9}, {
   3.5174131978984375`*^9, 3.517413205129883*^9}, {3.517413262442383*^9, 
   3.517413262451172*^9}, {3.5174139638007812`*^9, 3.517413978265625*^9}}],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"mySmallA", "[", 
   RowBox[{"ph", ",", "s", ",", "k"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"mySmallB", "[", 
    RowBox[{"ph", ",", "s", ",", "k"}], "]"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"mySmallA", "[", 
   RowBox[{".5", ",", ".5", ",", ".5"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"mySmallB", "[", 
    RowBox[{".5", ",", ".5", ",", ".5"}], "]"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.517038286501953*^9, 3.51703829896875*^9}, 
   3.5170395837216797`*^9, {3.517387961616211*^9, 3.5173879851503906`*^9}, {
   3.5173964409833984`*^9, 3.5173964657109375`*^9}, {3.517413155135742*^9, 
   3.517413155142578*^9}, {3.5174139782802734`*^9, 3.517413978294922*^9}}],

Cell[BoxData[{
 RowBox[{"mySmallSolveA", "[", 
  RowBox[{
   SubscriptBox["P", "H"], ",", "S", ",", "K"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"mySmallSolveB", "[", 
  RowBox[{
   SubscriptBox["P", "H"], ",", "S", ",", "K"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5173942525742188`*^9, 3.517394257397461*^9}, {
   3.5174131551503906`*^9, 3.51741315515625*^9}, {3.5174139783125*^9, 
   3.517413978330078*^9}, 3.517671066055664*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mySmallPlot", "[", 
   RowBox[{".5", ",", ".5", ",", ".5"}], "]"}], "/.", 
  RowBox[{"\"\<Low\>\"", "\[Rule]", "\"\<High\>\""}]}]], "Input",
 CellChangeTimes->{{3.5164342760771484`*^9, 3.5164343122021484`*^9}, 
   3.5164344064208984`*^9, 3.5164344630302734`*^9, {3.5164344947177734`*^9, 
   3.5164345138740234`*^9}, {3.5164349995615234`*^9, 
   3.5164350018427734`*^9}, {3.5164350384365234`*^9, 
   3.5164350597177734`*^9}, {3.5164351323427734`*^9, 
   3.5164351795146484`*^9}, {3.5164352764833984`*^9, 
   3.5164353785341797`*^9}, {3.516435419604492*^9, 3.5164354346279297`*^9}, {
   3.5164354680498047`*^9, 3.516435492573242*^9}, {3.5164355560966797`*^9, 
   3.5164355827529297`*^9}, {3.5164356421708984`*^9, 3.516435753057617*^9}, {
   3.5164358011904297`*^9, 3.5164358029248047`*^9}, {3.516435863370117*^9, 
   3.516435866245117*^9}, {3.5164360046904297`*^9, 3.5164360333466797`*^9}, {
   3.516436088838867*^9, 3.516436125241211*^9}, {3.5164361555771484`*^9, 
   3.516436307385742*^9}, {3.5164363570498047`*^9, 3.5164363752841797`*^9}, {
   3.5164364075341797`*^9, 3.5164364143466797`*^9}, {3.5170394094052734`*^9, 
   3.517039467357422*^9}, 3.5170395837753906`*^9, 3.5170397053447266`*^9, {
   3.5170501601367188`*^9, 3.5170501625742188`*^9}, 3.517068518083008*^9, {
   3.517123692466797*^9, 3.517123694618164*^9}, {3.5171237374589844`*^9, 
   3.517123738544922*^9}, {3.5172176220810547`*^9, 3.517217624348633*^9}, {
   3.517224663973633*^9, 3.5172248957851562`*^9}, {3.5172403822695312`*^9, 
   3.517240395979492*^9}, {3.5172967116064453`*^9, 3.5172967138476562`*^9}, {
   3.5173314133154297`*^9, 3.517331420923828*^9}, {3.5173821530742188`*^9, 
   3.517382169725586*^9}, {3.5173823914814453`*^9, 3.5173824062070312`*^9}, {
   3.517394301305664*^9, 3.517394341748047*^9}, {3.5173944343632812`*^9, 
   3.5173944665664062`*^9}, 3.5173963814648438`*^9, {3.5173966584628906`*^9, 
   3.517396658765625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mySmallPlot", "[", 
   RowBox[{".5", ",", "1.5", ",", ".5"}], "]"}], "/.", 
  RowBox[{"\"\<Low\>\"", "\[Rule]", "\"\<High\>\""}]}]], "Input",
 CellChangeTimes->{3.5182756727490234`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"mySmallPlay", "[", 
   RowBox[{".5", ",", ".5"}], "]"}], "/.", 
  RowBox[{"\"\<Low\>\"", "\[Rule]", "\"\<High\>\""}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mySmallPlay", "[", 
   RowBox[{".3", ",", ".5"}], "]"}], "/.", 
  RowBox[{"\"\<Low\>\"", "\[Rule]", "\"\<High\>\""}]}]}], "Input",
 CellChangeTimes->{{3.5171254219208984`*^9, 3.517125447979492*^9}, 
   3.517125486102539*^9, {3.5171255472958984`*^9, 3.5171255757646484`*^9}, {
   3.5171256723378906`*^9, 3.5171256755253906`*^9}, {3.5171257266347656`*^9, 
   3.5171257318691406`*^9}, {3.5171259183671875`*^9, 
   3.5171259188515625`*^9}, {3.517126040625*^9, 3.51712604925*^9}, {
   3.517209589448242*^9, 3.517209593640625*^9}, 3.517224914857422*^9, {
   3.5173824149296875`*^9, 3.5173824153691406`*^9}, {3.5176710724492188`*^9, 
   3.517671075248047*^9}, 3.5182702401796875`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["3D", "Subsubtitle",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.5169560139404297`*^9, 3.5169560409414062`*^9}, {3.516956086461914*^9, 
   3.5169565455703125`*^9}, 3.5169566018564453`*^9, {3.516956660966797*^9, 
   3.5169566662265625`*^9}, {3.5169591892265625`*^9, 3.5169591909873047`*^9}, 
   3.5170395837158203`*^9, {3.5170504098759766`*^9, 3.5170504244541016`*^9}, {
   3.5172161493779297`*^9, 3.5172161496289062`*^9}}],

Cell["\<\
This section plots the three dimensional phase space which is examined in my \
thesis. It does so by using various plotting methods first, to understand the \
dynamics of the model, and then by creating a simple plot with only a few \
lines and arrows.\
\>", "Text",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.5182521321132812`*^9, 3.518252187053711*^9}, {3.5182538346953125`*^9, 
   3.5182538356972656`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"myA2", "[", 
    RowBox[{"pl_", ",", "ph_", ",", "s_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "+", "k"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "+", "k", "-", 
        RowBox[{"ph", "*", 
         RowBox[{"s", "/", "2"}]}]}], ",", 
       RowBox[{"1", "+", "ph", "-", 
        RowBox[{"ph", "*", 
         RowBox[{"s", "/", "2"}]}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "+", "k", "-", 
        RowBox[{"ph", "*", 
         RowBox[{"s", "/", "2"}]}], "-", 
        RowBox[{"pl", "*", "s"}]}], ",", 
       RowBox[{"2", "-", 
        RowBox[{"pl", "*", "s"}], "-", 
        RowBox[{"ph", "*", 
         RowBox[{"s", "/", "2"}]}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"myB2", "[", 
    RowBox[{"pl_", ",", "ph_", ",", "s_"}], "]"}], ":=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "ph"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "k"}], ")"}], "^", "2"}]}], "-", 
         RowBox[{"pl", " ", 
          RowBox[{"k", "^", "2"}]}]}], ",", 
        RowBox[{"-", "ph"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "ph"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "k"}], ")"}], "^", "2"}]}], "-", 
         RowBox[{"pl", " ", 
          RowBox[{"k", "^", "2"}]}]}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "ph"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "k"}], ")"}], "^", "2"}]}], "-", 
         RowBox[{"pl", " ", 
          RowBox[{"k", "^", "2"}]}]}], ",", 
        RowBox[{"-", "pl"}]}], "}"}]}], "}"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5162873156865234`*^9, 3.5162874566240234`*^9}, {
   3.5162875393583984`*^9, 3.5162875658271484`*^9}, 3.5162879718271484`*^9, {
   3.516356304859375*^9, 3.516356355536133*^9}, {3.5163564133935547`*^9, 
   3.516356416401367*^9}, {3.5163564546220703`*^9, 3.5163564644726562`*^9}, {
   3.516356659493164*^9, 3.5163566792353516`*^9}, {3.516356739239258*^9, 
   3.5163567396367188`*^9}, {3.5170381962304688`*^9, 
   3.5170381963847656`*^9}, {3.5170382529384766`*^9, 3.517038253086914*^9}, 
   3.51703958378125*^9, {3.5172098931757812`*^9, 3.517209894073242*^9}, {
   3.517400725123047*^9, 3.5174007260527344`*^9}, {3.517413963838867*^9, 
   3.517413978416992*^9}, {3.518270520661133*^9, 3.518270540286133*^9}, {
   3.518270585760742*^9, 3.518270658114258*^9}}],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"myA", "[", 
   RowBox[{"ph", ",", "s"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"myB", "[", 
    RowBox[{"ph", ",", "s"}], "]"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"myA", "[", 
   RowBox[{".5", ",", ".5"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"myB", "[", 
    RowBox[{".5", ",", ".5"}], "]"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5163563966591797`*^9, 3.516356449640625*^9}, {
   3.516356480522461*^9, 3.516356485819336*^9}, {3.5163565261191406`*^9, 
   3.5163566304501953`*^9}, {3.516356743510742*^9, 3.5163567476240234`*^9}, 
   3.517039583783203*^9, {3.517397957165039*^9, 3.517397972076172*^9}, {
   3.517413978430664*^9, 3.5174139784492188`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x1", "[", "t", "]"}], ",", 
       RowBox[{"x2", "[", "t", "]"}], ",", 
       RowBox[{"x3", "[", "t", "]"}], ",", 
       RowBox[{"y1", "[", "t", "]"}], ",", 
       RowBox[{"y2", "[", "t", "]"}]}], "}"}], "/.", 
     RowBox[{"mySolution", "[", 
      RowBox[{".5", ",", ".5", ",", ".2", ",", ".6", ",", ".8"}], "]"}]}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "100"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5162926499072266`*^9, 3.51629266740625*^9}, {
   3.5163073178116484`*^9, 3.5163073265987577`*^9}, {3.5163073837843046`*^9, 
   3.5163073932872343`*^9}, {3.516353556611328*^9, 3.516353557415039*^9}, 
   3.516353620198242*^9, {3.516357330741211*^9, 3.5163573549072266`*^9}, {
   3.516357446805664*^9, 3.51635744921875*^9}, {3.516615007416992*^9, 
   3.5166150406259766`*^9}, {3.516621840696289*^9, 3.516621846084961*^9}, 
   3.5170395837958984`*^9, 3.5172327260322266`*^9, {3.5172409823984375`*^9, 
   3.5172409855976562`*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"myBorders", ",", "myLabels", ",", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{"ConvertToPrism", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"y2", "[", "t", "]"}], ",", 
          RowBox[{"x2", "[", "t", "]"}], ",", 
          RowBox[{"x3", "[", "t", "]"}]}], "}"}], "]"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".1", ",", ".1"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".5", ",", ".1"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".9", ",", ".1"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".1", ",", ".5"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".5", ",", ".5"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".9", ",", ".5"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".1", ",", ".9"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".5", ",", ".9"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".9", ",", ".9"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".5", ",", ".1", ",", ".1"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".5", ",", ".5", ",", ".1"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".5", ",", ".1", ",", ".5"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".5", ",", ".5", ",", ".5"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".5", ",", ".1", ",", ".9"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".5", ",", ".5", ",", ".9"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".9", ",", ".1", ",", ".1"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".9", ",", ".1", ",", ".5"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".9", ",", ".1", ",", ".9"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".4", ",", "0", ",", ".6"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".7", ",", "0", ",", ".5"}], "]"}]}], 
        "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ColorFunction", "\[Rule]", 
      RowBox[{"Function", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", "y", ",", "z", ",", "t"}], "}"}], ",", 
        RowBox[{
         RowBox[{"ColorData", "[", "\"\<RoseColors\>\"", "]"}], "[", "t", 
         "]"}]}], "]"}]}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.516307228091922*^9, 3.5163072395323515`*^9}, {
   3.5163074140255156`*^9, 3.5163074720811796`*^9}, {3.5163075504737577`*^9, 
   3.5163077476973906`*^9}, {3.5163078719073515`*^9, 3.516307899975711*^9}, {
   3.5163574696708984`*^9, 3.5163575050898438`*^9}, {3.5163622769570312`*^9, 
   3.5163623470351562`*^9}, {3.5163623812773438`*^9, 
   3.5163624734179688`*^9}, {3.5163692293535156`*^9, 3.516369249923828*^9}, {
   3.516369728756836*^9, 3.5163697554609375`*^9}, {3.5164447477304688`*^9, 
   3.5164447706679688`*^9}, {3.5164448591015625`*^9, 3.5164450371875*^9}, 
   3.51644507303125*^9, {3.516445156*^9, 3.5164452055195312`*^9}, {
   3.5164452532617188`*^9, 3.5164453586171875`*^9}, 3.517039583801758*^9, {
   3.517225797209961*^9, 3.5172258127978516`*^9}, 3.5173269367958984`*^9, 
   3.517332284404297*^9, {3.517381651102539*^9, 3.517381651321289*^9}, {
   3.517382644685547*^9, 3.517382655602539*^9}, {3.5173826903847656`*^9, 
   3.5173826978789062`*^9}, {3.517382734131836*^9, 3.5173828022783203`*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"myBorders", ",", "myLabels", ",", 
   RowBox[{"VectorPlot3D", "[", 
    RowBox[{
     RowBox[{"ConvertToPrism", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"fieldEqsX", "[", 
          RowBox[{".5", ",", ".5"}], "]"}], ",", 
         RowBox[{"fieldEqsY", "[", 
          RowBox[{".5", ",", ".5"}], "]"}]}], "}"}], "//", "Flatten"}], "]"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x2", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x3", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"y2", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"RegionFunction", "\[Rule]", 
      RowBox[{"Function", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"z", "/", 
           RowBox[{"Sqrt", "[", "3", "]"}]}], "-", ".1"}], "\[LessEqual]", 
         "y", "\[LessEqual]", 
         RowBox[{"1.1", "-", 
          RowBox[{"z", "/", 
           RowBox[{"Sqrt", "[", "3", "]"}]}]}]}]}], "]"}]}], ",", 
     RowBox[{"VectorStyle", "\[Rule]", "Black"}], ",", 
     RowBox[{"VectorPoints", "\[Rule]", "5"}], ",", 
     RowBox[{"VectorScale", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{".08", ",", ".5", ",", "None"}], "}"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5164342760771484`*^9, 3.5164343122021484`*^9}, 
   3.5164344064208984`*^9, 3.5164344630302734`*^9, {3.5164344947177734`*^9, 
   3.5164345138740234`*^9}, {3.5164349995615234`*^9, 
   3.5164350018427734`*^9}, {3.5164350384365234`*^9, 
   3.5164350597177734`*^9}, {3.5164351323427734`*^9, 
   3.5164351795146484`*^9}, {3.5164352764833984`*^9, 
   3.5164353785341797`*^9}, {3.516435419604492*^9, 3.5164354346279297`*^9}, {
   3.5164354680498047`*^9, 3.516435492573242*^9}, {3.5164355560966797`*^9, 
   3.5164355827529297`*^9}, {3.5164356421708984`*^9, 3.516435753057617*^9}, {
   3.5164358011904297`*^9, 3.5164358029248047`*^9}, {3.516435863370117*^9, 
   3.516435866245117*^9}, {3.5164360046904297`*^9, 3.5164360333466797`*^9}, {
   3.516436088838867*^9, 3.516436125241211*^9}, {3.5164361555771484`*^9, 
   3.516436307385742*^9}, {3.5164363570498047`*^9, 3.5164363752841797`*^9}, {
   3.5164364075341797`*^9, 3.5164364143466797`*^9}, 3.5170395838046875`*^9, {
   3.5171308331259766`*^9, 3.517130927928711*^9}, {3.5171309611679688`*^9, 
   3.5171309767558594`*^9}, {3.517225882430664*^9, 3.5172258839033203`*^9}, 
   3.5173268194677734`*^9, 3.517332280932617*^9, {3.5173816555058594`*^9, 
   3.5173816561152344`*^9}, {3.5174045545351562`*^9, 
   3.5174045558515625`*^9}, {3.5174047228447266`*^9, 3.517404723395508*^9}, {
   3.517404761826172*^9, 3.517404762078125*^9}, {3.5174050064648438`*^9, 
   3.5174050074277344`*^9}, 3.517405132348633*^9}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"myBorders", ",", "myLabels", ",", 
   RowBox[{"myPoints", "[", 
    RowBox[{".5", ",", ".5"}], "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", "0", ",", "0", ",", ".5", ",", "1", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", "1", ",", "0", ",", ".5", ",", "1", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".0", ",", "1", ",", ".5", ",", "1", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".5", ",", ".5", ",", "0", ",", "1", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".5", ",", "0", ",", "0", ",", "1", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", "0", ",", ".5", ",", "0", ",", "1", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".5", ",", ".5", ",", "1", ",", "1", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", "0", ",", ".5", ",", "1", ",", "1", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".5", ",", "0", ",", "1", ",", "1", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".45", ",", "0", ",", ".2", ",", "15", ",", "20"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".88", ",", "0", ",", ".02", ",", "14", ",", "20"}],
     "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".02", ",", "0", ",", ".91", ",", "14", ",", "20"}],
     "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".55", ",", "0", ",", ".3", ",", "15", ",", "20"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".5", ",", ".5", ",", ".4", ",", "1", ",", "50"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".5", ",", ".5", ",", ".8", ",", "1", ",", "70"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", "0", ",", ".4", ",", ".7", ",", "5", ",", "10"}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.516376235142578*^9, 3.516376593029297*^9}, {
   3.5163766555058594`*^9, 3.5163766624121094`*^9}, {3.5163767108964844`*^9, 
   3.5163767213847656`*^9}, {3.516376820569336*^9, 3.5163768346083984`*^9}, {
   3.5163768780341797`*^9, 3.5163768857373047`*^9}, {3.516376922857422*^9, 
   3.516377001720703*^9}, {3.5163772226591797`*^9, 3.5163772970654297`*^9}, {
   3.5163773385302734`*^9, 3.5163773629208984`*^9}, {3.516377403616211*^9, 
   3.5163774318115234`*^9}, {3.516377504756836*^9, 3.516377527557617*^9}, {
   3.5163775739404297`*^9, 3.516377690354492*^9}, {3.5163777266552734`*^9, 
   3.5163779238378906`*^9}, {3.516377972626953*^9, 3.516377991814453*^9}, {
   3.5163780424121094`*^9, 3.516378069923828*^9}, {3.5163781351191406`*^9, 
   3.5163781635878906`*^9}, {3.516378361216797*^9, 3.5163783723808594`*^9}, 
   3.516378652506836*^9, {3.5163787258740234`*^9, 3.5163787265927734`*^9}, {
   3.516622327373047*^9, 3.5166223337490234`*^9}, 3.5166226908339844`*^9, 
   3.5170395838134766`*^9, 3.5172259400966797`*^9, 3.5172259988935547`*^9, {
   3.5172260883691406`*^9, 3.517226161569336*^9}, {3.5172262104716797`*^9, 
   3.517226224046875*^9}, {3.5172263442001953`*^9, 3.5172264479970703`*^9}, {
   3.517226498411133*^9, 3.5172265115058594`*^9}, {3.517226561854492*^9, 
   3.5172265792060547`*^9}, {3.517226629685547*^9, 3.5172266337998047`*^9}, {
   3.517226683267578*^9, 3.5172267384541016`*^9}, {3.5172267696103516`*^9, 
   3.5172267821933594`*^9}, {3.5172268150234375`*^9, 3.517226824493164*^9}, {
   3.517226879546875*^9, 3.5172268800390625`*^9}, {3.5172269254472656`*^9, 
   3.5172269375820312`*^9}, {3.5172269710166016`*^9, 3.517227004567383*^9}, {
   3.5172270346152344`*^9, 3.517227057040039*^9}, {3.517227126586914*^9, 
   3.517227174251953*^9}, {3.5172272364257812`*^9, 3.5172273087158203`*^9}, {
   3.5172273413085938`*^9, 3.5172273668847656`*^9}, {3.5172274157089844`*^9, 
   3.5172274295908203`*^9}, {3.5172274669277344`*^9, 
   3.5172274733466797`*^9}, {3.5172275289541016`*^9, 3.517227536411133*^9}, {
   3.5172275780439453`*^9, 3.517227588131836*^9}, {3.517227648631836*^9, 
   3.5172276488154297`*^9}, {3.517227680161133*^9, 3.5172276858964844`*^9}, {
   3.517326407873047*^9, 3.517326413383789*^9}, 3.5173265308867188`*^9, 
   3.517326712834961*^9, 3.5173322774804688`*^9, {3.517381659071289*^9, 
   3.517381659294922*^9}, {3.5173828404589844`*^9, 3.517382868522461*^9}, {
   3.5173829233310547`*^9, 3.5173829496503906`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["LaTeX", "Subsubtitle",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.516368901841797*^9, 3.5163689057216797`*^9}, {3.5442837645703125`*^9, 
   3.5442837654296875`*^9}, {3.544283800236328*^9, 3.5442838018095703`*^9}}],

Cell["\<\
Here, the extensive forms of this model is produced, as well as the normal \
form game. These graphs are also used in my thesis.\
\>", "Text",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.5182522029541016`*^9, 3.5182522383896484`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"TableForm", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"TableForm", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\< \>\"", ",", 
           RowBox[{
            RowBox[{"Transpose", "[", 
             RowBox[{"myB2", "[", 
              RowBox[{
              "\"\<\!\(\*SubscriptBox[\(P\), \(L\)]\)\>\"", ",", 
               "\"\<\!\(\*SubscriptBox[\(P\), \(H\)]\)\>\"", ",", 
               "\"\<S\>\""}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"n", ",", "m"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"myA2", "[", 
             RowBox[{
             "\"\<\!\(\*SubscriptBox[\(P\), \(L\)]\)\>\"", ",", 
              "\"\<\!\(\*SubscriptBox[\(P\), \(H\)]\)\>\"", ",", 
              "\"\<S\>\""}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"n", ",", "m"}], "]"}], "]"}], ",", "\"\< \>\""}], 
          "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "1", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"m", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", 
    RowBox[{"TableHeadings", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<Low\>\"", ",", "\"\<Seperating\>\"", ",", "\"\<High\>\""}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Average\>\"", ",", "\"\<Split\>\""}], "}"}]}], "}"}]}], 
    ",", 
    RowBox[{"TableSpacing", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"3", ",", "5"}], "}"}]}], ",", 
    RowBox[{"TableDepth", "\[Rule]", "2"}], ",", ",", 
    RowBox[{"TableAlignments", "\[Rule]", "Right"}]}], "]"}], "/.", 
  RowBox[{"k", "\[Rule]", "K"}]}]], "Input",
 CellChangeTimes->{{3.516966232010742*^9, 3.516966236963867*^9}, {
   3.5169663365507812`*^9, 3.5169664405703125`*^9}, {3.5169667509033203`*^9, 
   3.5169667553271484`*^9}, {3.5169668391845703`*^9, 3.5169668760771484`*^9}, 
   3.516967024196289*^9, {3.5169680410410156`*^9, 3.5169681155527344`*^9}, {
   3.5169681665009766`*^9, 3.51696821396875*^9}, {3.5169682926259766`*^9, 
   3.516968335057617*^9}, {3.517327513620117*^9, 3.517327563654297*^9}, {
   3.517327615126953*^9, 3.517327651548828*^9}, {3.5173277517109375`*^9, 
   3.5173277726123047`*^9}, {3.5173278041259766`*^9, 
   3.5173279122314453`*^9}, {3.5173279984121094`*^9, 
   3.5173280166660156`*^9}, {3.517328245616211*^9, 3.517328253919922*^9}, {
   3.517328330229492*^9, 3.5173283693779297`*^9}, {3.5173284278466797`*^9, 
   3.5173284283339844`*^9}, 3.5173323390625*^9, {3.5174136751640625`*^9, 
   3.517413675189453*^9}, {3.5187758264775314`*^9, 3.5187758285468674`*^9}}],

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "3"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"Dotted", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", 
            RowBox[{"-", "3"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "3"}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", 
            RowBox[{"-", "3"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", 
          RowBox[{"-", "3"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", 
          RowBox[{"-", "5"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", "5"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", 
          RowBox[{"-", "5"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "5"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", ".03", "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PointSize", "[", ".02", "]"}], ",", "White", ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "3"}]}], "}"}], "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "3"}], "}"}], "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", 
          RowBox[{"-", "3"}]}], "}"}], "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "3"}], "}"}], "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"2", ",", 
          RowBox[{"-", "3"}]}], "}"}], "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<N\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{".5", ",", "0"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<L\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{".5", ",", 
         RowBox[{"-", "1.5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<H\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{".5", ",", "1.5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<W\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.1"}], ",", 
         RowBox[{"-", "3.5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<W\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.1"}], ",", "3.5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<E\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1.1", ",", 
         RowBox[{"-", "3.5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<E\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1.1", ",", "3.5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", 
         RowBox[{"-", "3.9"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", 
         RowBox[{"-", "1.3"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", "4.7"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", "2.1"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.35", ",", 
         RowBox[{"-", "3.9"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.35", ",", 
         RowBox[{"-", "1.3"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.35", ",", "4.7"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.35", ",", "2.1"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<[\!\(\*SubscriptBox[\(P\), \(L\)]\)]\>\"", ",", "Italic", ",", 
         "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1.3", ",", 
         RowBox[{"-", "1.5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<[\!\(\*SubscriptBox[\(P\), \(H\)]\)]\>\"", ",", "Italic", ",", 
         "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1.3", ",", "1.5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<1,  0\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5.5"}], ",", 
         RowBox[{"-", "5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<2,  -1\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5.5"}], ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<2,  0\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5.5"}], ",", "5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<1,  -1\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5.5"}], ",", "1"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<1-S,  0\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5.8", ",", 
         RowBox[{"-", "5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<2-S,  -1\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5.8", ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<2-\!\(\*FractionBox[\(1\), \(2\)]\)S,  0\>\"", ",", "Italic", 
         ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5.8", ",", "5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<1-\!\(\*FractionBox[\(1\), \(2\)]\)S,  -1\>\"", ",", "Italic", 
         ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5.8", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "500"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5169569025546875`*^9, 3.516957025734375*^9}, {
   3.5173286497041016`*^9, 3.5173286576376953`*^9}, {3.5173286942128906`*^9, 
   3.517328770459961*^9}, 3.517329721203125*^9, {3.5174136254970703`*^9, 
   3.5174136270859375`*^9}, {3.517413675296875*^9, 3.517413675361328*^9}, {
   3.517413801413086*^9, 3.517413834388672*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"Dotted", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "2"}], ",", 
             RowBox[{"-", "3"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "2"}], ",", "3"}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", 
             RowBox[{"-", "3"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", 
           RowBox[{"-", "3"}]}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "4"}], ",", 
           RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "4"}], ",", 
           RowBox[{"-", "5"}]}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "4"}], ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "4"}], ",", "5"}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", 
           RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", 
           RowBox[{"-", "5"}]}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "5"}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"PointSize", "[", ".03", "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"PointSize", "[", ".02", "]"}], ",", "White", ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"-", "3"}]}], "}"}], "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", 
           RowBox[{"-", "3"}]}], "}"}], "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "3"}], "}"}], "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"2", ",", 
           RowBox[{"-", "3"}]}], "}"}], "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<N\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{".5", ",", "0"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<L\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{".5", ",", 
          RowBox[{"-", "1.5"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<H\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{".5", ",", "1.5"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<W\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1.1"}], ",", 
          RowBox[{"-", "3.5"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<W\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1.1"}], ",", "3.5"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<E\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.1", ",", 
          RowBox[{"-", "3.5"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<E\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.1", ",", "3.5"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3.3"}], ",", 
          RowBox[{"-", "4.8"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<A\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4.5"}], ",", 
          RowBox[{"-", "3"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3.3"}], ",", 
          RowBox[{"-", "1.3"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3.3"}], ",", "4.7"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<A\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4.5"}], ",", "3"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3.3"}], ",", "1.2"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"3.35", ",", 
          RowBox[{"-", "4.8"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<A\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"4.5", ",", 
          RowBox[{"-", "3"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"3.35", ",", 
          RowBox[{"-", "1.3"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"3.35", ",", "4.7"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<A\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"4.5", ",", "3"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"3.35", ",", "1.2"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<[\!\(\*SubscriptBox[\(P\), \(L\)]\)]\>\"", ",", "Italic", ",", 
          "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.3", ",", 
          RowBox[{"-", "1.5"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<[\!\(\*SubscriptBox[\(P\), \(H\)]\)]\>\"", ",", "Italic", ",", 
          "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.3", ",", "1.5"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<1,  0\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5.5"}], ",", 
          RowBox[{"-", "5"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1+K,  -\!\(\*SuperscriptBox[\(K\), \(2\)]\)\>\"", ",", "Italic",
           ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "6.4"}], ",", 
          RowBox[{"-", "3"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<2,  -1\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5.5"}], ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<2,  0\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5.5"}], ",", "5"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1+K,  -(1-K\!\(\*SuperscriptBox[\()\), \(2\)]\)\>\"", ",", 
          "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "6.6"}], ",", "3"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<1,  -1\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5.5"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<1-S,  0\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"5.8", ",", 
          RowBox[{"-", "5"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1+K-S,  -\!\(\*SuperscriptBox[\(K\), \(2\)]\)\>\"", ",", 
          "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6.5", ",", 
          RowBox[{"-", "3"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<2-S,  -1\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"5.8", ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<2-\!\(\*FractionBox[\(1\), \(2\)]\)S,  0\>\"", ",", "Italic", 
          ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"5.8", ",", "5"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1+K-\!\(\*FractionBox[\(1\), \(2\)]\)S,  \
-(1-K\!\(\*SuperscriptBox[\()\), \(2\)]\)\>\"", ",", "Italic", ",", "20"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6.9", ",", "3"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1-\!\(\*FractionBox[\(1\), \(2\)]\)S,  -1\>\"", ",", "Italic", 
          ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"5.8", ",", "1"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", "+", 
        RowBox[{"2", 
         RowBox[{"Sqrt", "[", "2", "]"}], 
         RowBox[{"Cos", "[", "u", "]"}]}]}], ",", 
       RowBox[{"3", "+", 
        RowBox[{"2", 
         RowBox[{"Sqrt", "[", "2", "]"}], 
         RowBox[{"Sin", "[", "u", "]"}]}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", 
       RowBox[{
        RowBox[{"-", "Pi"}], "/", "4"}], ",", 
       RowBox[{"Pi", "/", "4"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], "-", 
        RowBox[{"2", 
         RowBox[{"Sqrt", "[", "2", "]"}], 
         RowBox[{"Cos", "[", "u", "]"}]}]}], ",", 
       RowBox[{"3", "+", 
        RowBox[{"2", 
         RowBox[{"Sqrt", "[", "2", "]"}], 
         RowBox[{"Sin", "[", "u", "]"}]}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", 
       RowBox[{
        RowBox[{"-", "Pi"}], "/", "4"}], ",", 
       RowBox[{"Pi", "/", "4"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", "+", 
        RowBox[{"2", 
         RowBox[{"Sqrt", "[", "2", "]"}], 
         RowBox[{"Cos", "[", "u", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"-", "3"}], "+", 
        RowBox[{"2", 
         RowBox[{"Sqrt", "[", "2", "]"}], 
         RowBox[{"Sin", "[", "u", "]"}]}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", 
       RowBox[{
        RowBox[{"-", "Pi"}], "/", "4"}], ",", 
       RowBox[{"Pi", "/", "4"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], "-", 
        RowBox[{"2", 
         RowBox[{"Sqrt", "[", "2", "]"}], 
         RowBox[{"Cos", "[", "u", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"-", "3"}], "+", 
        RowBox[{"2", 
         RowBox[{"Sqrt", "[", "2", "]"}], 
         RowBox[{"Sin", "[", "u", "]"}]}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", 
       RowBox[{
        RowBox[{"-", "Pi"}], "/", "4"}], ",", 
       RowBox[{"Pi", "/", "4"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "500"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5169569025546875`*^9, 3.516957025734375*^9}, {
   3.5172955398515625`*^9, 3.517295742551758*^9}, {3.517296778854492*^9, 
   3.517296826756836*^9}, 3.5172969518867188`*^9, {3.5172970260341797`*^9, 
   3.517297129845703*^9}, {3.5172971602666016`*^9, 3.5172973095996094`*^9}, {
   3.5173291033720703`*^9, 3.517329284029297*^9}, {3.5173293259726562`*^9, 
   3.517329355091797*^9}, {3.517329426408203*^9, 3.517329433703125*^9}, {
   3.5173294665458984`*^9, 3.5173295872246094`*^9}, {3.517329639756836*^9, 
   3.517329643029297*^9}, {3.517329687510742*^9, 3.517329701734375*^9}, {
   3.5173328880625*^9, 3.517332896270508*^9}, {3.5173795761259766`*^9, 
   3.517379623180664*^9}, {3.5174136273183594`*^9, 3.5174136274023438`*^9}, {
   3.517413674995117*^9, 3.517413675088867*^9}, {3.5174138794716797`*^9, 
   3.5174138960664062`*^9}}],

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "3"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"Dotted", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", 
            RowBox[{"-", "3"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "3"}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", 
            RowBox[{"-", "3"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", 
          RowBox[{"-", "3"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "3"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", 
          RowBox[{"-", "5"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", "5"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", 
          RowBox[{"-", "5"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "5"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", ".03", "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PointSize", "[", ".02", "]"}], ",", "White", ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "3"}]}], "}"}], "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "3"}], "}"}], "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", 
          RowBox[{"-", "3"}]}], "}"}], "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "3"}], "}"}], "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"2", ",", 
          RowBox[{"-", "3"}]}], "}"}], "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<N\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{".5", ",", "0"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<L\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{".5", ",", 
         RowBox[{"-", "1.5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<H\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{".5", ",", "1.5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<W\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.1"}], ",", 
         RowBox[{"-", "3.5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<W\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.1"}], ",", "3.5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<E\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1.1", ",", 
         RowBox[{"-", "3.5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<E\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1.1", ",", "3.5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", 
         RowBox[{"-", "3.9"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<A\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", 
         RowBox[{"-", "2.6"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", 
         RowBox[{"-", "1.3"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", "4.7"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<A\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", "3.4"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", "2.1"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.35", ",", 
         RowBox[{"-", "3.9"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<A\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.35", ",", 
         RowBox[{"-", "2.6"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.35", ",", 
         RowBox[{"-", "1.3"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.35", ",", "4.7"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<A\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.35", ",", "3.4"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.35", ",", "2.1"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<[\!\(\*SubscriptBox[\(P\), \(L\)]\)]\>\"", ",", "Italic", ",", 
         "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1.3", ",", 
         RowBox[{"-", "1.5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<[\!\(\*SubscriptBox[\(P\), \(H\)]\)]\>\"", ",", "Italic", ",", 
         "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1.3", ",", "1.5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<1,  0\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5.5"}], ",", 
         RowBox[{"-", "5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<1+\!\(\*SubscriptBox[\(P\), \(H\)]\),  \
-\!\(\*SuperscriptBox[SubscriptBox[\(P\), \(H\)], \(2\)]\)\>\"", ",", 
         "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5.5"}], ",", 
         RowBox[{"-", "3"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<2,  -1\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5.5"}], ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<2,  0\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5.5"}], ",", "5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<1+\!\(\*SubscriptBox[\(P\), \(H\)]\),  \
-\!\(\*SuperscriptBox[SubscriptBox[\(P\), \(L\)], \(2\)]\)\>\"", ",", 
         "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5.5"}], ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<1,  -1\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5.5"}], ",", "1"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<1-S,  0\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5.8", ",", 
         RowBox[{"-", "5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<1+\!\(\*SubscriptBox[\(P\), \(H\)]\)-S,  \
-\!\(\*SuperscriptBox[SubscriptBox[\(P\), \(H\)], \(2\)]\)\>\"", ",", 
         "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5.8", ",", 
         RowBox[{"-", "3"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<2-S,  -1\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5.8", ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<2-\!\(\*FractionBox[\(1\), \(2\)]\)S,  0\>\"", ",", "Italic", 
         ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5.8", ",", "5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<1+\!\(\*SubscriptBox[\(P\), \(H\)]\)-\!\(\*FractionBox[\(1\), \
\(2\)]\)S,  -\!\(\*SuperscriptBox[SubscriptBox[\(P\), \(L\)], \(2\)]\)\>\"", 
         ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5.8", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<1-\!\(\*FractionBox[\(1\), \(2\)]\)S,  -1\>\"", ",", "Italic", 
         ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5.8", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "500"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.516629327790039*^9, 3.5166293744492188`*^9}, 
   3.5166294727304688`*^9, {3.5166295184140625`*^9, 3.5166298100566406`*^9}, {
   3.5166298686914062`*^9, 3.5166298726884766`*^9}, {3.516629971026367*^9, 
   3.516630025459961*^9}, {3.516630074676758*^9, 3.516630106513672*^9}, {
   3.5166302559023438`*^9, 3.516630267182617*^9}, {3.5166302984697266`*^9, 
   3.516630515330078*^9}, {3.5166307436757812`*^9, 3.5166308775146484`*^9}, {
   3.5166310787109375`*^9, 3.5166311058134766`*^9}, {3.5166311666171875`*^9, 
   3.5166313768271484`*^9}, {3.5166314095410156`*^9, 3.516631412466797*^9}, {
   3.5166314973125*^9, 3.516631524885742*^9}, {3.516633088114258*^9, 
   3.516633115727539*^9}, {3.516633151928711*^9, 3.516633191515625*^9}, {
   3.5166332300273438`*^9, 3.5166332437617188`*^9}, {3.516633282708008*^9, 
   3.516633432928711*^9}, {3.516633496020508*^9, 3.5166335320507812`*^9}, {
   3.516633641748047*^9, 3.516633848024414*^9}, {3.516633973745117*^9, 
   3.5166340048164062`*^9}, {3.5166341938652344`*^9, 
   3.5166342690820312`*^9}, {3.5166356839384766`*^9, 
   3.5166356933046875`*^9}, {3.516635954166992*^9, 3.5166360440898438`*^9}, {
   3.516636083165039*^9, 3.516636095571289*^9}, {3.516636131986328*^9, 
   3.5166361907373047`*^9}, {3.516636222395508*^9, 3.5166362696835938`*^9}, {
   3.516636330671875*^9, 3.5166364945839844`*^9}, {3.5166365336308594`*^9, 
   3.5166367256445312`*^9}, {3.516636896911133*^9, 3.516636904323242*^9}, {
   3.5169569438808594`*^9, 3.5169569443740234`*^9}, {3.517328902260742*^9, 
   3.517328919057617*^9}, {3.51732903965625*^9, 3.517329075*^9}, 
   3.5173297157626953`*^9, {3.5173328747402344`*^9, 3.517332883529297*^9}, {
   3.5174136271875*^9, 3.5174136272646484`*^9}, {3.5174136739472656`*^9, 
   3.5174136749003906`*^9}, {3.5174138544433594`*^9, 3.517413868376953*^9}}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Variation", "Subtitle",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{{3.451225222214694*^9, 3.4512252238347073`*^9}, 
   3.4514664013390656`*^9, {3.5163607052929688`*^9, 3.5163607064804688`*^9}, 
   3.517831573977539*^9, 3.5182466701865234`*^9}],

Cell[CellGroupData[{

Cell["2D-1", "Subsubtitle",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.5169560139404297`*^9, 3.5169560409414062`*^9}, {3.516956086461914*^9, 
   3.5169565455703125`*^9}, 3.5169566018564453`*^9, {3.516956660966797*^9, 
   3.5169566662265625`*^9}, {3.5169591892265625`*^9, 3.5169591909873047`*^9}, 
   3.5170395837158203`*^9, {3.5170504098759766`*^9, 3.5170504154853516`*^9}, {
   3.5171273889560547`*^9, 3.517127389073242*^9}, 3.5172161522558594`*^9}],

Cell["\<\
This section plots one boundary face of the three dimensional phase space of \
the revelation model which is examined in my thesis.\
\>", "Text",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.5169560139404297`*^9, 3.5169560409414062`*^9}, {3.516956086461914*^9, 
   3.5169565455703125`*^9}, 3.5169566018564453`*^9, {3.516956660966797*^9, 
   3.5169566662265625`*^9}, 3.5170395837158203`*^9, {3.518253886169922*^9, 
   3.518253888604492*^9}, {3.518775851879875*^9, 3.518775855101555*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"mySmallA2", "[", 
    RowBox[{"pl_", ",", "ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "+", "k"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "+", "k", "-", 
        RowBox[{"ph", "*", "s"}]}], ",", 
       RowBox[{"1", "+", "ph", "-", 
        RowBox[{"ph", "*", "s"}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"mySmallB2", "[", 
    RowBox[{"pl_", ",", "ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "ph"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "k"}], ")"}], "^", "2"}]}], "-", 
         RowBox[{"pl", " ", 
          RowBox[{"k", "^", "2"}]}]}], ",", 
        RowBox[{"-", "ph"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "ph"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "k"}], ")"}], "^", "2"}]}], "-", 
         RowBox[{"pl", " ", 
          RowBox[{"k", "^", "2"}]}]}], ",", "0"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.517037940993164*^9, 3.5170379471308594`*^9}, {
   3.5170380327841797`*^9, 3.517038071899414*^9}, {3.5170381033271484`*^9, 
   3.5170381809658203`*^9}, {3.5170384737402344`*^9, 3.517038481739258*^9}, 
   3.517038527205078*^9, 3.5170395837177734`*^9, {3.5170422895351562`*^9, 
   3.5170422910654297`*^9}, {3.5170423417695312`*^9, 3.517042344041992*^9}, {
   3.5170679623476562`*^9, 3.5170680408164062`*^9}, {3.517128041401367*^9, 
   3.517128054291992*^9}, {3.517209710301758*^9, 3.517209711154297*^9}, {
   3.517413141665039*^9, 3.517413141676758*^9}, {3.517413197923828*^9, 
   3.517413205154297*^9}, {3.5174132624833984`*^9, 3.5174132625029297`*^9}, {
   3.517413963873047*^9, 3.5174139784746094`*^9}}],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"mySmallA", "[", 
   RowBox[{"ph", ",", "s", ",", "k"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"mySmallB", "[", 
    RowBox[{"ph", ",", "s", ",", "k"}], "]"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"mySmallA", "[", 
   RowBox[{".5", ",", ".5", ",", ".5"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"mySmallB", "[", 
    RowBox[{".5", ",", ".5", ",", ".5"}], "]"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.517038286501953*^9, 3.51703829896875*^9}, 
   3.5170395837216797`*^9, {3.51738351440625*^9, 3.5173835150585938`*^9}, {
   3.5173835950507812`*^9, 3.5173835956240234`*^9}, {3.5173838004541016`*^9, 
   3.517383801341797*^9}, {3.5173971228671875`*^9, 3.517397126821289*^9}, {
   3.517397260243164*^9, 3.5173972677353516`*^9}, {3.517413155165039*^9, 
   3.5174131551728516`*^9}, {3.517413978489258*^9, 3.5174139785039062`*^9}}],

Cell[BoxData[{
 RowBox[{"mySmallSolveA", "[", 
  RowBox[{
   SubscriptBox["P", "H"], ",", "C", ",", "K"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"mySmallSolveB", "[", 
  RowBox[{
   SubscriptBox["P", "H"], ",", "C", ",", "K"}], "]"}]}], "Input",
 CellChangeTimes->{{3.517293931036133*^9, 3.517293942961914*^9}, {
  3.5173967501171875`*^9, 3.517396753036133*^9}, {3.5174131551796875`*^9, 
  3.5174131551865234`*^9}, {3.517413978520508*^9, 3.517413978538086*^9}, {
  3.517671103841797*^9, 3.517671115995117*^9}, {3.518253897379883*^9, 
  3.5182538982783203`*^9}}],

Cell[BoxData[
 RowBox[{"mySmallPlot", "[", 
  RowBox[{".5", ",", ".5", ",", ".5"}], "]"}]], "Input",
 CellChangeTimes->{{3.5164342760771484`*^9, 3.5164343122021484`*^9}, 
   3.5164344064208984`*^9, 3.5164344630302734`*^9, {3.5164344947177734`*^9, 
   3.5164345138740234`*^9}, {3.5164349995615234`*^9, 
   3.5164350018427734`*^9}, {3.5164350384365234`*^9, 
   3.5164350597177734`*^9}, {3.5164351323427734`*^9, 
   3.5164351795146484`*^9}, {3.5164352764833984`*^9, 
   3.5164353785341797`*^9}, {3.516435419604492*^9, 3.5164354346279297`*^9}, {
   3.5164354680498047`*^9, 3.516435492573242*^9}, {3.5164355560966797`*^9, 
   3.5164355827529297`*^9}, {3.5164356421708984`*^9, 3.516435753057617*^9}, {
   3.5164358011904297`*^9, 3.5164358029248047`*^9}, {3.516435863370117*^9, 
   3.516435866245117*^9}, {3.5164360046904297`*^9, 3.5164360333466797`*^9}, {
   3.516436088838867*^9, 3.516436125241211*^9}, {3.5164361555771484`*^9, 
   3.516436307385742*^9}, {3.5164363570498047`*^9, 3.5164363752841797`*^9}, {
   3.5164364075341797`*^9, 3.5164364143466797`*^9}, {3.5170394094052734`*^9, 
   3.517039467357422*^9}, 3.5170395837753906`*^9, 3.5170397053447266`*^9, {
   3.5170501601367188`*^9, 3.5170501625742188`*^9}, 3.517068518083008*^9, {
   3.517123692466797*^9, 3.517123694618164*^9}, {3.5171237374589844`*^9, 
   3.517123738544922*^9}, {3.5172176310566406`*^9, 3.5172176332646484`*^9}, {
   3.5172321561708984`*^9, 3.517232274586914*^9}, {3.517383449897461*^9, 
   3.517383450868164*^9}, 3.5173835105410156`*^9, 3.517383603401367*^9, 
   3.517383804029297*^9, {3.5173971498095703`*^9, 3.5173972298710938`*^9}}],

Cell[BoxData[{
 RowBox[{"mySmallPlay", "[", 
  RowBox[{".5", ",", ".5"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"mySmallPlay", "[", 
  RowBox[{".3", ",", ".5"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5170407051708984`*^9, 3.5170407064541016`*^9}, {
   3.5170407917539062`*^9, 3.5170408284990234`*^9}, {3.517041014368164*^9, 
   3.5170410298808594`*^9}, {3.5170411333535156`*^9, 
   3.5170411336367188`*^9}, {3.5170412842246094`*^9, 
   3.5170413244404297`*^9}, {3.5171240151728516`*^9, 3.517124202765625*^9}, 
   3.5171242361875*^9, {3.517124286109375*^9, 3.5171243612871094`*^9}, {
   3.517124486504883*^9, 3.51712448903125*^9}, {3.517124521977539*^9, 
   3.517124550491211*^9}, {3.5171245928408203`*^9, 3.517124603600586*^9}, {
   3.5171246921835938`*^9, 3.5171246988427734`*^9}, {3.517232297888672*^9, 
   3.5172322991035156`*^9}, {3.5176711067060547`*^9, 3.5176711083916016`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["2D-2", "Subsubtitle",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.5169560139404297`*^9, 3.5169560409414062`*^9}, {3.516956086461914*^9, 
   3.5169565455703125`*^9}, 3.5169566018564453`*^9, {3.516956660966797*^9, 
   3.5169566662265625`*^9}, {3.5169591892265625`*^9, 3.5169591909873047`*^9}, 
   3.5170395837158203`*^9, {3.5170504098759766`*^9, 3.5170504154853516`*^9}, {
   3.5171247722558594`*^9, 3.5171247723720703`*^9}, 3.517216153171875*^9}],

Cell["\<\
This section plots another boundary face of the three dimensional phase space \
of the revelation model which is examined in my thesis.\
\>", "Text",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.5169560139404297`*^9, 3.5169560409414062`*^9}, {3.516956086461914*^9, 
   3.5169565455703125`*^9}, 3.5169566018564453`*^9, {3.516956660966797*^9, 
   3.5169566662265625`*^9}, 3.5170395837158203`*^9, 3.5182539162041016`*^9, {
   3.518775891994133*^9, 3.5187758946230392`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"mySmallA2", "[", 
    RowBox[{"pl_", ",", "ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "+", "k", "-", "s"}], ",", 
       RowBox[{"1", "+", "ph", "-", "s"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "+", "k", "-", 
        RowBox[{"ph", "*", "s"}]}], ",", 
       RowBox[{"1", "+", "ph", "-", 
        RowBox[{"ph", "*", "s"}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"mySmallB2", "[", 
    RowBox[{"pl_", ",", "ph_", ",", "s_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "ph"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "k"}], ")"}], "^", "2"}]}], "-", 
         RowBox[{"pl", " ", 
          RowBox[{"k", "^", "2"}]}]}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "ph"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "k"}], ")"}], "^", "2"}]}], "-", 
         RowBox[{"pl", " ", 
          RowBox[{"k", "^", "2"}]}]}], ",", "0"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.517037940993164*^9, 3.5170379471308594`*^9}, {
   3.5170380327841797`*^9, 3.517038071899414*^9}, {3.5170381033271484`*^9, 
   3.5170381809658203`*^9}, {3.5170384737402344`*^9, 3.517038481739258*^9}, 
   3.517038527205078*^9, 3.5170395837177734`*^9, {3.5170422895351562`*^9, 
   3.5170422910654297`*^9}, {3.5170423417695312`*^9, 3.517042344041992*^9}, {
   3.5170679623476562`*^9, 3.5170680408164062`*^9}, {3.5171247762060547`*^9, 
   3.517124777274414*^9}, {3.517125046095703*^9, 3.517125050930664*^9}, {
   3.5171250861015625`*^9, 3.517125088415039*^9}, {3.5171251847158203`*^9, 
   3.5171251884101562`*^9}, 3.5171252204296875`*^9, {3.517128105245117*^9, 
   3.517128107635742*^9}, {3.517128138635742*^9, 3.517128144260742*^9}, {
   3.5172097724091797`*^9, 3.517209776741211*^9}, {3.517413141701172*^9, 
   3.5174131417128906`*^9}, {3.5174131979472656`*^9, 
   3.5174132051777344`*^9}, {3.517413262334961*^9, 3.5174132623554688`*^9}, {
   3.5174139639101562`*^9, 3.5174139785810547`*^9}, {3.517831733645508*^9, 
   3.5178317515458984`*^9}}],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"mySmallA", "[", 
   RowBox[{"ph", ",", "s", ",", "k"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"mySmallB", "[", 
    RowBox[{"ph", ",", "s", ",", "k"}], "]"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"mySmallA", "[", 
   RowBox[{".5", ",", ".5", ",", ".5"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"mySmallB", "[", 
    RowBox[{".5", ",", ".5", ",", ".5"}], "]"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.517038286501953*^9, 3.51703829896875*^9}, 
   3.5170395837216797`*^9, {3.517124787458008*^9, 3.5171247902929688`*^9}, {
   3.5172155367490234`*^9, 3.517215538635742*^9}, {3.5173838866240234`*^9, 
   3.517383917123047*^9}, {3.517397285352539*^9, 3.517397296682617*^9}, {
   3.5173974167558594`*^9, 3.5173974362529297`*^9}, {3.5174131551953125`*^9, 
   3.5174131552021484`*^9}, {3.517413978595703*^9, 3.5174139786103516`*^9}}],

Cell[BoxData[{
 RowBox[{"mySmallSolveA", "[", 
  RowBox[{
   SubscriptBox["P", "H"], ",", "C", ",", "K"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"mySmallSolveB", "[", 
  RowBox[{
   SubscriptBox["P", "H"], ",", "C", ",", "K"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5173972787285156`*^9, 3.517397281517578*^9}, {
   3.5174131552089844`*^9, 3.5174131552148438`*^9}, {3.517413978626953*^9, 
   3.5174139786445312`*^9}, 3.517671118798828*^9, {3.518253920870117*^9, 
   3.5182539214628906`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mySmallPlot", "[", 
   RowBox[{".5", ",", ".5", ",", ".5"}], "]"}], "/.", 
  RowBox[{"\"\<Low\>\"", "\[Rule]", "\"\<High\>\""}]}]], "Input",
 CellChangeTimes->{{3.5164342760771484`*^9, 3.5164343122021484`*^9}, 
   3.5164344064208984`*^9, 3.5164344630302734`*^9, {3.5164344947177734`*^9, 
   3.5164345138740234`*^9}, {3.5164349995615234`*^9, 
   3.5164350018427734`*^9}, {3.5164350384365234`*^9, 
   3.5164350597177734`*^9}, {3.5164351323427734`*^9, 
   3.5164351795146484`*^9}, {3.5164352764833984`*^9, 
   3.5164353785341797`*^9}, {3.516435419604492*^9, 3.5164354346279297`*^9}, {
   3.5164354680498047`*^9, 3.516435492573242*^9}, {3.5164355560966797`*^9, 
   3.5164355827529297`*^9}, {3.5164356421708984`*^9, 3.516435753057617*^9}, {
   3.5164358011904297`*^9, 3.5164358029248047`*^9}, {3.516435863370117*^9, 
   3.516435866245117*^9}, {3.5164360046904297`*^9, 3.5164360333466797`*^9}, {
   3.516436088838867*^9, 3.516436125241211*^9}, {3.5164361555771484`*^9, 
   3.516436307385742*^9}, {3.5164363570498047`*^9, 3.5164363752841797`*^9}, {
   3.5164364075341797`*^9, 3.5164364143466797`*^9}, {3.5170394094052734`*^9, 
   3.517039467357422*^9}, 3.5170395837753906`*^9, 3.5170397053447266`*^9, {
   3.5170501601367188`*^9, 3.5170501625742188`*^9}, 3.517068518083008*^9, {
   3.517123692466797*^9, 3.517123694618164*^9}, {3.5171237374589844`*^9, 
   3.517123738544922*^9}, {3.517124914546875*^9, 3.517124919455078*^9}, {
   3.517209804010742*^9, 3.5172098091757812`*^9}, {3.5172176391757812`*^9, 
   3.517217641211914*^9}, {3.5172323329960938`*^9, 3.5172323979335938`*^9}, 
   3.5173838260097656`*^9, {3.51738387459375*^9, 3.5173838833046875`*^9}, {
   3.5173973293583984`*^9, 3.517397439209961*^9}, {3.518104812723633*^9, 
   3.518104861463867*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"mySmallPlay", "[", 
   RowBox[{".5", ",", ".5"}], "]"}], "/.", 
  RowBox[{"\"\<Low\>\"", "\[Rule]", "\"\<High\>\""}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mySmallPlay", "[", 
   RowBox[{".3", ",", ".5"}], "]"}], "/.", 
  RowBox[{"\"\<Low\>\"", "\[Rule]", "\"\<High\>\""}]}]}], "Input",
 CellChangeTimes->{{3.5171254219208984`*^9, 3.517125447979492*^9}, 
   3.517125486102539*^9, {3.5171255472958984`*^9, 3.5171255757646484`*^9}, {
   3.5171256723378906`*^9, 3.5171256755253906`*^9}, {3.5171257266347656`*^9, 
   3.5171257318691406`*^9}, {3.5171259183671875`*^9, 
   3.5171259188515625`*^9}, {3.517126040625*^9, 3.51712604925*^9}, {
   3.5172098235898438`*^9, 3.5172098253964844`*^9}, {3.5172323393427734`*^9, 
   3.517232341173828*^9}, {3.517383828979492*^9, 3.5173838293164062`*^9}, {
   3.5176711207695312`*^9, 3.5176711220322266`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["3D", "Subsubtitle",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.5169560139404297`*^9, 3.5169560409414062`*^9}, {3.516956086461914*^9, 
   3.5169565455703125`*^9}, 3.5169566018564453`*^9, {3.516956660966797*^9, 
   3.5169566662265625`*^9}, {3.5169591892265625`*^9, 3.5169591909873047`*^9}, 
   3.5170395837158203`*^9, {3.5170504098759766`*^9, 3.5170504244541016`*^9}, 
   3.5172099425039062`*^9, 3.517216154178711*^9}],

Cell["\<\
This section plots the three dimensional phase space of the revelation model \
which is examined in my thesis. It does so by using various plotting methods \
first, to understand the dynamics of the model, and then by creating a simple \
plot with few lines and arrows.\
\>", "Text",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, 
   3.518252195536133*^9, {3.518775878166008*^9, 3.518775881056633*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"myA2", "[", 
    RowBox[{"pl_", ",", "ph_", ",", "s_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "+", "k"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "+", "k", "-", 
        RowBox[{"ph", "*", "s"}]}], ",", 
       RowBox[{"1", "+", "ph", "-", 
        RowBox[{"ph", "*", "s"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "+", "k", "-", "s"}], ",", 
       RowBox[{"1", "+", "ph", "-", "s"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"myB2", "[", 
    RowBox[{"pl_", ",", "ph_", ",", "s_"}], "]"}], ":=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "ph"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "k"}], ")"}], "^", "2"}]}], "-", 
         RowBox[{"pl", " ", 
          RowBox[{"k", "^", "2"}]}]}], ",", 
        RowBox[{"-", "ph"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "ph"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "k"}], ")"}], "^", "2"}]}], "-", 
         RowBox[{"pl", " ", 
          RowBox[{"k", "^", "2"}]}]}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "ph"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "k"}], ")"}], "^", "2"}]}], "-", 
         RowBox[{"pl", " ", 
          RowBox[{"k", "^", "2"}]}]}], ",", "0"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.5162873156865234`*^9, 3.5162874566240234`*^9}, {
   3.5162875393583984`*^9, 3.5162875658271484`*^9}, 3.5162879718271484`*^9, {
   3.516356304859375*^9, 3.516356355536133*^9}, {3.5163564133935547`*^9, 
   3.516356416401367*^9}, {3.5163564546220703`*^9, 3.5163564644726562`*^9}, {
   3.516356659493164*^9, 3.5163566792353516`*^9}, {3.516356739239258*^9, 
   3.5163567396367188`*^9}, {3.5170381962304688`*^9, 
   3.5170381963847656`*^9}, {3.5170382529384766`*^9, 3.517038253086914*^9}, 
   3.51703958378125*^9, {3.517128175791992*^9, 3.517128264276367*^9}, {
   3.517131459397461*^9, 3.5171314603828125`*^9}, {3.517209909138672*^9, 
   3.517209909970703*^9}, 3.517209942504883*^9, {3.5174131979716797`*^9, 
   3.5174132256289062`*^9}, {3.517413262381836*^9, 3.517413262401367*^9}, {
   3.517413963948242*^9, 3.517413978692383*^9}, 3.517831592908203*^9, {
   3.5182707841416016`*^9, 3.518270785986328*^9}}],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"myA", "[", 
   RowBox[{"ph", ",", "s"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"myB", "[", 
    RowBox[{"ph", ",", "s"}], "]"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"myA", "[", 
   RowBox[{".5", ",", ".5"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"myB", "[", 
    RowBox[{".5", ",", ".5"}], "]"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5163563966591797`*^9, 3.516356449640625*^9}, {
   3.516356480522461*^9, 3.516356485819336*^9}, {3.5163565261191406`*^9, 
   3.5163566304501953`*^9}, {3.516356743510742*^9, 3.5163567476240234`*^9}, 
   3.517039583783203*^9, 3.517209942506836*^9, {3.5173982326171875`*^9, 
   3.517398242026367*^9}, {3.5174139787070312`*^9, 3.517413978725586*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x1", "[", "t", "]"}], ",", 
       RowBox[{"x2", "[", "t", "]"}], ",", 
       RowBox[{"x3", "[", "t", "]"}], ",", 
       RowBox[{"y1", "[", "t", "]"}], ",", 
       RowBox[{"y2", "[", "t", "]"}]}], "}"}], "/.", 
     RowBox[{"mySolution", "[", 
      RowBox[{".5", ",", ".5", ",", ".2", ",", ".6", ",", ".8"}], "]"}]}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "40"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5162926499072266`*^9, 3.51629266740625*^9}, {
   3.5163073178116484`*^9, 3.5163073265987577`*^9}, {3.5163073837843046`*^9, 
   3.5163073932872343`*^9}, {3.516353556611328*^9, 3.516353557415039*^9}, 
   3.516353620198242*^9, {3.516357330741211*^9, 3.5163573549072266`*^9}, {
   3.516357446805664*^9, 3.51635744921875*^9}, {3.516615007416992*^9, 
   3.5166150406259766`*^9}, {3.516621840696289*^9, 3.516621846084961*^9}, 
   3.5170395837958984`*^9, 3.5172099425185547`*^9, 3.5172327313828125`*^9}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"myBorders", ",", "myLabels", ",", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{"ConvertToPrism", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"y2", "[", "t", "]"}], ",", 
          RowBox[{"x2", "[", "t", "]"}], ",", 
          RowBox[{"x3", "[", "t", "]"}]}], "}"}], "]"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".1", ",", ".1"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".5", ",", ".1"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".9", ",", ".1"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".1", ",", ".5"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".5", ",", ".5"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".9", ",", ".5"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".1", ",", ".9"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".5", ",", ".9"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".1", ",", ".9", ",", ".9"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".5", ",", ".1", ",", ".1"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".5", ",", ".5", ",", ".1"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".5", ",", ".1", ",", ".5"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".5", ",", ".5", ",", ".5"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".5", ",", ".1", ",", ".9"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".5", ",", ".5", ",", ".9"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".9", ",", ".1", ",", ".1"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".9", ",", ".1", ",", ".5"}], "]"}], 
         ",", 
         RowBox[{"mySolution", "[", 
          RowBox[{".5", ",", ".5", ",", ".9", ",", ".1", ",", ".9"}], "]"}]}],
         "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ColorFunction", "\[Rule]", 
      RowBox[{"Function", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", "y", ",", "z", ",", "t"}], "}"}], ",", 
        RowBox[{
         RowBox[{"ColorData", "[", "\"\<RoseColors\>\"", "]"}], "[", "t", 
         "]"}]}], "]"}]}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.516307228091922*^9, 3.5163072395323515`*^9}, {
   3.5163074140255156`*^9, 3.5163074720811796`*^9}, {3.5163075504737577`*^9, 
   3.5163077476973906`*^9}, {3.5163078719073515`*^9, 3.516307899975711*^9}, {
   3.5163574696708984`*^9, 3.5163575050898438`*^9}, {3.5163622769570312`*^9, 
   3.5163623470351562`*^9}, {3.5163623812773438`*^9, 
   3.5163624734179688`*^9}, {3.5163692293535156`*^9, 3.516369249923828*^9}, {
   3.516369728756836*^9, 3.5163697554609375`*^9}, {3.5164447477304688`*^9, 
   3.5164447706679688`*^9}, {3.5164448591015625`*^9, 3.5164450371875*^9}, 
   3.51644507303125*^9, {3.516445156*^9, 3.5164452055195312`*^9}, {
   3.5164452532617188`*^9, 3.5164453586171875`*^9}, 3.517039583801758*^9, 
   3.5172099425351562`*^9, {3.5172327334853516`*^9, 3.5172327480625*^9}, 
   3.5173269452333984`*^9, 3.517332264588867*^9, 3.5173816926884766`*^9}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"myBorders", ",", "myLabels", ",", 
   RowBox[{"VectorPlot3D", "[", 
    RowBox[{
     RowBox[{"ConvertToPrism", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"fieldEqsX", "[", 
          RowBox[{".5", ",", ".5"}], "]"}], ",", 
         RowBox[{"fieldEqsY", "[", 
          RowBox[{".5", ",", ".5"}], "]"}]}], "}"}], "//", "Flatten"}], "]"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x2", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x3", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"y2", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"RegionFunction", "\[Rule]", 
      RowBox[{"Function", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"z", "/", 
           RowBox[{"Sqrt", "[", "3", "]"}]}], "-", ".1"}], "\[LessEqual]", 
         "y", "\[LessEqual]", 
         RowBox[{"1.1", "-", 
          RowBox[{"z", "/", 
           RowBox[{"Sqrt", "[", "3", "]"}]}]}]}]}], "]"}]}], ",", 
     RowBox[{"VectorStyle", "\[Rule]", "Black"}], ",", 
     RowBox[{"VectorPoints", "\[Rule]", "5"}], ",", 
     RowBox[{"VectorScale", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{".08", ",", ".5", ",", "None"}], "}"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5164342760771484`*^9, 3.5164343122021484`*^9}, 
   3.5164344064208984`*^9, 3.5164344630302734`*^9, {3.5164344947177734`*^9, 
   3.5164345138740234`*^9}, {3.5164349995615234`*^9, 
   3.5164350018427734`*^9}, {3.5164350384365234`*^9, 
   3.5164350597177734`*^9}, {3.5164351323427734`*^9, 
   3.5164351795146484`*^9}, {3.5164352764833984`*^9, 
   3.5164353785341797`*^9}, {3.516435419604492*^9, 3.5164354346279297`*^9}, {
   3.5164354680498047`*^9, 3.516435492573242*^9}, {3.5164355560966797`*^9, 
   3.5164355827529297`*^9}, {3.5164356421708984`*^9, 3.516435753057617*^9}, {
   3.5164358011904297`*^9, 3.5164358029248047`*^9}, {3.516435863370117*^9, 
   3.516435866245117*^9}, {3.5164360046904297`*^9, 3.5164360333466797`*^9}, {
   3.516436088838867*^9, 3.516436125241211*^9}, {3.5164361555771484`*^9, 
   3.516436307385742*^9}, {3.5164363570498047`*^9, 3.5164363752841797`*^9}, {
   3.5164364075341797`*^9, 3.5164364143466797`*^9}, 3.5170395838046875`*^9, 
   3.517131564754883*^9, 3.5172099425429688`*^9, {3.517232633578125*^9, 
   3.5172326348183594`*^9}, 3.5173269466435547`*^9, 3.5173322596367188`*^9, {
   3.5173816963154297`*^9, 3.5173816965058594`*^9}, {3.517404561317383*^9, 
   3.517404562930664*^9}, {3.5174047309960938`*^9, 3.5174047537695312`*^9}, {
   3.5174049699609375`*^9, 3.517404990548828*^9}, 3.5174051244160156`*^9}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"myBorders", ",", "myLabels", ",", 
   RowBox[{"myPoints", "[", 
    RowBox[{".5", ",", ".5"}], "]"}], ",", 
   RowBox[{"myLines", "[", 
    RowBox[{".5", ",", ".5"}], "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", "0", ",", "0", ",", ".5", ",", "0", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", "1", ",", "0", ",", ".5", ",", "0", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".0", ",", "1", ",", ".5", ",", "0", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".5", ",", ".5", ",", "0", ",", "0", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".5", ",", "0", ",", "0", ",", "0", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", "0", ",", ".5", ",", "0", ",", "0", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".5", ",", ".5", ",", "1", ",", "0", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", "0", ",", ".5", ",", "1", ",", "0", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".5", ",", "0", ",", "1", ",", "0", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".45", ",", "0", ",", ".45", ",", "15", ",", "20"}],
     "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".3", ",", "0", ",", ".7", ",", "14", ",", "20"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".7", ",", "0", ",", ".3", ",", "14", ",", "20"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".55", ",", "0", ",", ".55", ",", "15", ",", "20"}],
     "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".5", ",", ".5", ",", ".3", ",", "10", ",", "50"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".2", ",", ".8", ",", ".5", ",", "10", ",", "70"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", ".35", ",", ".35", ",", "1", ",", "5", ",", "10"}], 
    "]"}], ",", 
   RowBox[{"myTogether", "[", 
    RowBox[{
    ".5", ",", ".5", ",", "0", ",", ".3", ",", ".7", ",", "5", ",", "15"}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.516376235142578*^9, 3.516376593029297*^9}, {
   3.5163766555058594`*^9, 3.5163766624121094`*^9}, {3.5163767108964844`*^9, 
   3.5163767213847656`*^9}, {3.516376820569336*^9, 3.5163768346083984`*^9}, {
   3.5163768780341797`*^9, 3.5163768857373047`*^9}, {3.516376922857422*^9, 
   3.516377001720703*^9}, {3.5163772226591797`*^9, 3.5163772970654297`*^9}, {
   3.5163773385302734`*^9, 3.5163773629208984`*^9}, {3.516377403616211*^9, 
   3.5163774318115234`*^9}, {3.516377504756836*^9, 3.516377527557617*^9}, {
   3.5163775739404297`*^9, 3.516377690354492*^9}, {3.5163777266552734`*^9, 
   3.5163779238378906`*^9}, {3.516377972626953*^9, 3.516377991814453*^9}, {
   3.5163780424121094`*^9, 3.516378069923828*^9}, {3.5163781351191406`*^9, 
   3.5163781635878906`*^9}, {3.516378361216797*^9, 3.5163783723808594`*^9}, 
   3.516378652506836*^9, {3.5163787258740234`*^9, 3.5163787265927734`*^9}, {
   3.516622327373047*^9, 3.5166223337490234`*^9}, 3.5166226908339844`*^9, 
   3.5170395838134766`*^9, 3.5172259400966797`*^9, 3.5172259988935547`*^9, {
   3.5172260883691406`*^9, 3.517226161569336*^9}, {3.5172262104716797`*^9, 
   3.517226224046875*^9}, {3.5172263442001953`*^9, 3.5172264479970703`*^9}, {
   3.517226498411133*^9, 3.5172265115058594`*^9}, {3.517226561854492*^9, 
   3.5172265792060547`*^9}, {3.517226629685547*^9, 3.5172266337998047`*^9}, {
   3.517226683267578*^9, 3.5172267384541016`*^9}, {3.5172267696103516`*^9, 
   3.5172267821933594`*^9}, {3.5172268150234375`*^9, 3.517226824493164*^9}, {
   3.517226879546875*^9, 3.5172268800390625`*^9}, {3.5172269254472656`*^9, 
   3.5172269375820312`*^9}, {3.5172269710166016`*^9, 3.517227004567383*^9}, {
   3.5172270346152344`*^9, 3.517227057040039*^9}, {3.517227126586914*^9, 
   3.517227174251953*^9}, {3.5172272364257812`*^9, 3.5172273087158203`*^9}, {
   3.5172273413085938`*^9, 3.5172273668847656`*^9}, {3.5172274157089844`*^9, 
   3.5172274295908203`*^9}, {3.5172274669277344`*^9, 
   3.5172274733466797`*^9}, {3.5172275289541016`*^9, 3.517227536411133*^9}, {
   3.5172275780439453`*^9, 3.517227588131836*^9}, {3.517227648631836*^9, 
   3.5172276488154297`*^9}, {3.517227680161133*^9, 3.5172276858964844`*^9}, {
   3.517241200798828*^9, 3.5172412243759766`*^9}, {3.517241593413086*^9, 
   3.5172415970927734`*^9}, 3.517244695245117*^9, {3.5172448089921875`*^9, 
   3.517244853213867*^9}, {3.5172450743476562`*^9, 3.5172451010029297`*^9}, 
   3.5172452755595703`*^9, {3.517245356301758*^9, 3.517245357796875*^9}, {
   3.5172454000009766`*^9, 3.517245432419922*^9}, {3.5172454891083984`*^9, 
   3.5172455746054688`*^9}, {3.517311052479492*^9, 3.517311063057617*^9}, {
   3.5173238380634766`*^9, 3.5173238385078125`*^9}, {3.5173238921396484`*^9, 
   3.517323894223633*^9}, {3.517323941834961*^9, 3.5173239503828125`*^9}, {
   3.517323982942383*^9, 3.5173240625117188`*^9}, {3.5173241625654297`*^9, 
   3.5173241773251953`*^9}, {3.517324224064453*^9, 3.517324225274414*^9}, {
   3.5173243106191406`*^9, 3.5173243454677734`*^9}, {3.5173244104257812`*^9, 
   3.517324424120117*^9}, {3.517324505334961*^9, 3.5173245104746094`*^9}, {
   3.517324577147461*^9, 3.5173246034335938`*^9}, 3.5173246737910156`*^9, {
   3.5173247082509766`*^9, 3.5173247174248047`*^9}, {3.5173247654121094`*^9, 
   3.5173247747421875`*^9}, {3.5173248668066406`*^9, 3.517324867220703*^9}, {
   3.5173249834589844`*^9, 3.5173249856259766`*^9}, {3.517325040899414*^9, 
   3.5173250439804688`*^9}, {3.517325160455078*^9, 3.517325183435547*^9}, {
   3.5173252950664062`*^9, 3.5173253148515625`*^9}, {3.517325415260742*^9, 
   3.5173254235722656`*^9}, 3.517326947548828*^9, {3.5173314914228516`*^9, 
   3.5173315017246094`*^9}, 3.5173316247314453`*^9, {3.5173317020429688`*^9, 
   3.5173317645839844`*^9}, {3.5173318562041016`*^9, 3.517331890145508*^9}, 
   3.5173319308632812`*^9, 3.517381700475586*^9, {3.5181049557910156`*^9, 
   3.5181051639941406`*^9}, {3.5181052732070312`*^9, 3.5181053003125*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["LaTeX", "Subsubtitle",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.516368901841797*^9, 3.5163689057216797`*^9}, {3.5442837672402344`*^9, 
   3.544283768209961*^9}, {3.544283803803711*^9, 3.5442838051796875`*^9}}],

Cell["\<\
Here, the extensive form of this model is produced, as well as the normal \
form game. These graphs are also used in my thesis.\
\>", "Text",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.5182522579902344`*^9, 3.5182522713339844`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"TableForm", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"TableForm", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\< \>\"", ",", 
           RowBox[{
            RowBox[{"Transpose", "[", 
             RowBox[{"myB2", "[", 
              RowBox[{
              "\"\<\!\(\*SubscriptBox[\(P\), \(L\)]\)\>\"", ",", 
               "\"\<\!\(\*SubscriptBox[\(P\), \(H\)]\)\>\"", ",", 
               "\"\<C\>\""}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"n", ",", "m"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"myA2", "[", 
             RowBox[{
             "\"\<\!\(\*SubscriptBox[\(P\), \(L\)]\)\>\"", ",", 
              "\"\<\!\(\*SubscriptBox[\(P\), \(H\)]\)\>\"", ",", 
              "\"\<C\>\""}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"n", ",", "m"}], "]"}], "]"}], ",", "\"\< \>\""}], 
          "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "1", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"m", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", 
    RowBox[{"TableHeadings", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<Low\>\"", ",", "\"\<Seperating\>\"", ",", "\"\<High\>\""}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Average\>\"", ",", "\"\<Split\>\""}], "}"}]}], "}"}]}], 
    ",", 
    RowBox[{"TableSpacing", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"3", ",", "5"}], "}"}]}], ",", 
    RowBox[{"TableDepth", "\[Rule]", "2"}], ",", ",", 
    RowBox[{"TableAlignments", "\[Rule]", "Right"}]}], "]"}], "/.", 
  RowBox[{"k", "\[Rule]", "K"}]}]], "Input",
 CellChangeTimes->{{3.516966232010742*^9, 3.516966236963867*^9}, {
   3.5169663365507812`*^9, 3.5169664405703125`*^9}, {3.5169667509033203`*^9, 
   3.5169667553271484`*^9}, {3.5169668391845703`*^9, 3.5169668760771484`*^9}, 
   3.516967024196289*^9, {3.5169680410410156`*^9, 3.5169681155527344`*^9}, {
   3.5169681665009766`*^9, 3.51696821396875*^9}, {3.5169682926259766`*^9, 
   3.516968335057617*^9}, 3.517328468006836*^9, 3.51733232921875*^9, {
   3.5174136751210938`*^9, 3.5174136751464844`*^9}, {3.5183468633125*^9, 
   3.518346877392578*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"Dotted", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "2"}], ",", 
             RowBox[{"-", "3"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "2"}], ",", "3"}], "}"}]}], "}"}], "]"}]}], "}"}], 
      ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", 
           RowBox[{"-", "3"}]}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "4"}], ",", 
           RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "4"}], ",", 
           RowBox[{"-", "5"}]}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "4"}], ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "4"}], ",", "5"}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", 
           RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", 
           RowBox[{"-", "5"}]}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "5"}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"PointSize", "[", ".03", "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"PointSize", "[", ".02", "]"}], ",", "White", ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"-", "3"}]}], "}"}], "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", 
           RowBox[{"-", "3"}]}], "}"}], "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "3"}], "}"}], "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"2", ",", 
           RowBox[{"-", "3"}]}], "}"}], "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<N\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{".5", ",", "0"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<L\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{".5", ",", 
          RowBox[{"-", "1.5"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<H\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{".5", ",", "1.5"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<W\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1.1"}], ",", 
          RowBox[{"-", "3.5"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<W\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1.1"}], ",", "3.5"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<E\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.1", ",", 
          RowBox[{"-", "3.5"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<E\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.1", ",", "3.5"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3.3"}], ",", 
          RowBox[{"-", "4.8"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<A\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4.5"}], ",", 
          RowBox[{"-", "3"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3.3"}], ",", 
          RowBox[{"-", "1.3"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3.3"}], ",", "4.7"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<A\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4.5"}], ",", "3"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3.3"}], ",", "1.2"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"3.35", ",", 
          RowBox[{"-", "4.8"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<A\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"4.5", ",", 
          RowBox[{"-", "3"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"3.35", ",", 
          RowBox[{"-", "1.3"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"3.35", ",", "4.7"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<A\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"4.5", ",", "3"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"3.35", ",", "1.2"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<[\!\(\*SubscriptBox[\(P\), \(L\)]\)]\>\"", ",", "Italic", ",", 
          "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.3", ",", 
          RowBox[{"-", "1.5"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<[\!\(\*SubscriptBox[\(P\), \(H\)]\)]\>\"", ",", "Italic", ",", 
          "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.3", ",", "1.5"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<1,  0\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5.5"}], ",", 
          RowBox[{"-", "5"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1+K,  -\!\(\*SuperscriptBox[\(K\), \(2\)]\)\>\"", ",", "Italic",
           ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "6.4"}], ",", 
          RowBox[{"-", "3"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<2,  -1\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5.5"}], ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<2,  0\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5.5"}], ",", "5"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1+K,  -(1-K\!\(\*SuperscriptBox[\()\), \(2\)]\)\>\"", ",", 
          "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "6.6"}], ",", "3"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<1,  -1\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5.5"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<1-C,  0\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"5.8", ",", 
          RowBox[{"-", "5"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1+K-C,  -\!\(\*SuperscriptBox[\(K\), \(2\)]\)\>\"", ",", 
          "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6.5", ",", 
          RowBox[{"-", "3"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<2-C,  -1\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"5.8", ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<2-C,  0\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"5.8", ",", "5"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1+K-C,  -(1-K\!\(\*SuperscriptBox[\()\), \(2\)]\)\>\"", ",", 
          "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6.9", ",", "3"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<1-C,  -1\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"5.8", ",", "1"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", "+", 
        RowBox[{"2", 
         RowBox[{"Sqrt", "[", "2", "]"}], 
         RowBox[{"Cos", "[", "u", "]"}]}]}], ",", 
       RowBox[{"3", "+", 
        RowBox[{"2", 
         RowBox[{"Sqrt", "[", "2", "]"}], 
         RowBox[{"Sin", "[", "u", "]"}]}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", 
       RowBox[{
        RowBox[{"-", "Pi"}], "/", "4"}], ",", 
       RowBox[{"Pi", "/", "4"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], "-", 
        RowBox[{"2", 
         RowBox[{"Sqrt", "[", "2", "]"}], 
         RowBox[{"Cos", "[", "u", "]"}]}]}], ",", 
       RowBox[{"3", "+", 
        RowBox[{"2", 
         RowBox[{"Sqrt", "[", "2", "]"}], 
         RowBox[{"Sin", "[", "u", "]"}]}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", 
       RowBox[{
        RowBox[{"-", "Pi"}], "/", "4"}], ",", 
       RowBox[{"Pi", "/", "4"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", "+", 
        RowBox[{"2", 
         RowBox[{"Sqrt", "[", "2", "]"}], 
         RowBox[{"Cos", "[", "u", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"-", "3"}], "+", 
        RowBox[{"2", 
         RowBox[{"Sqrt", "[", "2", "]"}], 
         RowBox[{"Sin", "[", "u", "]"}]}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", 
       RowBox[{
        RowBox[{"-", "Pi"}], "/", "4"}], ",", 
       RowBox[{"Pi", "/", "4"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], "-", 
        RowBox[{"2", 
         RowBox[{"Sqrt", "[", "2", "]"}], 
         RowBox[{"Cos", "[", "u", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"-", "3"}], "+", 
        RowBox[{"2", 
         RowBox[{"Sqrt", "[", "2", "]"}], 
         RowBox[{"Sin", "[", "u", "]"}]}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", 
       RowBox[{
        RowBox[{"-", "Pi"}], "/", "4"}], ",", 
       RowBox[{"Pi", "/", "4"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "500"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5169569025546875`*^9, 3.516957025734375*^9}, {
   3.5172955398515625`*^9, 3.517295742551758*^9}, {3.517296778854492*^9, 
   3.517296826756836*^9}, 3.5172969518867188`*^9, {3.5172970260341797`*^9, 
   3.517297129845703*^9}, {3.5172971602666016`*^9, 3.5172973095996094`*^9}, {
   3.5173291033720703`*^9, 3.517329284029297*^9}, {3.5173293259726562`*^9, 
   3.517329355091797*^9}, {3.517329426408203*^9, 3.517329433703125*^9}, {
   3.5173294665458984`*^9, 3.5173295872246094`*^9}, {3.517329639756836*^9, 
   3.517329643029297*^9}, {3.517329687510742*^9, 3.517329701734375*^9}, {
   3.5173328880625*^9, 3.517332896270508*^9}, {3.5173795761259766`*^9, 
   3.517379623180664*^9}, {3.5174136273183594`*^9, 3.5174136274023438`*^9}, {
   3.517413674995117*^9, 3.517413675088867*^9}, {3.5174138794716797`*^9, 
   3.5174138960664062`*^9}, {3.517829502298828*^9, 3.5178295093583984`*^9}, {
   3.517829563725586*^9, 3.517829564036133*^9}}],

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "3"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"Dotted", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", 
            RowBox[{"-", "3"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "3"}], "}"}]}], "}"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", 
          RowBox[{"-", "3"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "3"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", 
          RowBox[{"-", "3"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", 
          RowBox[{"-", "5"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", "5"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", 
          RowBox[{"-", "3"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", 
          RowBox[{"-", "5"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "5"}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", ".03", "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PointSize", "[", ".02", "]"}], ",", "White", ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "3"}]}], "}"}], "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "3"}], "}"}], "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", 
          RowBox[{"-", "3"}]}], "}"}], "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "3"}], "}"}], "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"2", ",", 
          RowBox[{"-", "3"}]}], "}"}], "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<N\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{".5", ",", "0"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<L\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{".5", ",", 
         RowBox[{"-", "1.5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<H\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{".5", ",", "1.5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<W\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.1"}], ",", 
         RowBox[{"-", "3.5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<W\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.1"}], ",", "3.5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<E\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1.1", ",", 
         RowBox[{"-", "3.5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<E\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1.1", ",", "3.5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", 
         RowBox[{"-", "3.9"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<A\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", 
         RowBox[{"-", "2.6"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", 
         RowBox[{"-", "1.3"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", "4.7"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<A\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", "3.4"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", "2.1"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.35", ",", 
         RowBox[{"-", "3.9"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<A\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.35", ",", 
         RowBox[{"-", "2.6"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.35", ",", 
         RowBox[{"-", "1.3"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<U\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.35", ",", "4.7"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<A\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.35", ",", "3.4"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D\>\"", ",", "Large"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.35", ",", "2.1"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<[\!\(\*SubscriptBox[\(P\), \(L\)]\)]\>\"", ",", "Italic", ",", 
         "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1.3", ",", 
         RowBox[{"-", "1.5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<[\!\(\*SubscriptBox[\(P\), \(H\)]\)]\>\"", ",", "Italic", ",", 
         "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1.3", ",", "1.5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<1,  0\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5.5"}], ",", 
         RowBox[{"-", "5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<1+\!\(\*SubscriptBox[\(P\), \(H\)]\),  \
-\!\(\*SuperscriptBox[SubscriptBox[\(P\), \(H\)], \(2\)]\)\>\"", ",", 
         "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5.5"}], ",", 
         RowBox[{"-", "3"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<2,  -1\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5.5"}], ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<2,  0\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5.5"}], ",", "5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<1+\!\(\*SubscriptBox[\(P\), \(H\)]\),  \
-\!\(\*SuperscriptBox[SubscriptBox[\(P\), \(L\)], \(2\)]\)\>\"", ",", 
         "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5.5"}], ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<1,  -1\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5.5"}], ",", "1"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<1-C,  0\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5.8", ",", 
         RowBox[{"-", "5"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<1+\!\(\*SubscriptBox[\(P\), \(H\)]\)-C,  \
-\!\(\*SuperscriptBox[SubscriptBox[\(P\), \(H\)], \(2\)]\)\>\"", ",", 
         "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5.8", ",", 
         RowBox[{"-", "3"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<2-C,  -1\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5.8", ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<2-C,  0\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5.8", ",", "5"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<1+\!\(\*SubscriptBox[\(P\), \(H\)]\)-C,  \
-\!\(\*SuperscriptBox[SubscriptBox[\(P\), \(L\)], \(2\)]\)\>\"", ",", 
         "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5.8", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<1-C,  -1\>\"", ",", "Italic", ",", "20"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5.8", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "500"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5166369433554688`*^9, 3.5166369704921875`*^9}, {
   3.516956952751953*^9, 3.516956953383789*^9}, 3.517214680208008*^9, 
   3.517329734033203*^9, {3.517329778885742*^9, 3.5173298303876953`*^9}, {
   3.5173329031660156`*^9, 3.517332909303711*^9}, {3.5174131980273438`*^9, 
   3.5174131980595703`*^9}, {3.517413557336914*^9, 3.5174135603203125`*^9}, {
   3.5174139188320312`*^9, 3.5174139334492188`*^9}}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Conclusion", "Subtitle",
 CellChangeTimes->{{3.451466178709429*^9, 3.451466184896929*^9}, {
  3.451641848240306*^9, 3.451641855318431*^9}, {3.451641916490306*^9, 
  3.451641920474681*^9}}],

Cell["\<\
In conclusion, we have used this notebook to create graphs which are used in \
my thesis \[OpenCurlyQuote]The Dynamics of Revelation\[CloseCurlyQuote]. Some \
of the functions used were based on a previous notebook by Elliott Wagner, \
who wrote the paper \[OpenCurlyQuote]The Dynamics of Costly Signaling\
\[CloseCurlyQuote].\
\>", "Text",
 CellChangeTimes->{{3.4514663936671906`*^9, 3.4514664013390656`*^9}, {
   3.451720204061669*^9, 3.451720278749064*^9}, {3.4517203925326767`*^9, 
   3.4517206157436385`*^9}, {3.4517209787456093`*^9, 3.451721589984528*^9}, {
   3.4517216355099907`*^9, 3.4517216564601154`*^9}, {3.45172169293256*^9, 
   3.451721696507701*^9}, {3.4517218576093535`*^9, 3.4517218867813005`*^9}, {
   3.451721996939701*^9, 3.451722003549205*^9}, {3.4517220338928366`*^9, 
   3.4517221594633985`*^9}, {3.451739755623917*^9, 3.451739768014542*^9}, {
   3.4517398276248617`*^9, 3.4517398600467367`*^9}, {3.4517399288592367`*^9, 
   3.4517400076404867`*^9}, {3.451756201732218*^9, 3.4517562236540923`*^9}, {
   3.4517562634665923`*^9, 3.451756268294718*^9}, {3.451756306794718*^9, 
   3.451756308450968*^9}, {3.451756342607218*^9, 3.451751697900552*^9}, {
   3.5066123507597656`*^9, 3.5066123513710938`*^9}, 3.5163561804570312`*^9, {
   3.5182523814023438`*^9, 3.518252470086914*^9}}]
}, Closed]]
}, Open  ]]
},
CellGrouping->Manual,
WindowSize->{1272, 683},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (November 7, 2010)",
StyleDefinitions->FrontEnd`FileName[{"Creative"}, "PastelColor.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 421, 5, 65, "Title"],
Cell[1003, 29, 345, 7, 41, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1373, 40, 181, 3, 23, "Subtitle",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[1557, 45, 1630, 24, 65, "Text"],
Cell[CellGroupData[{
Cell[3212, 73, 987, 13, 25, "Subsubtitle"],
Cell[4202, 88, 6830, 184, 182, "Input"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[11081, 278, 282, 4, 23, "Subtitle"],
Cell[11366, 284, 1933, 27, 83, "Text"],
Cell[CellGroupData[{
Cell[13324, 315, 1044, 14, 25, "Subsubtitle"],
Cell[14371, 331, 791, 20, 62, "Input"],
Cell[15165, 353, 2002, 55, 62, "Input"],
Cell[17170, 410, 1569, 40, 62, "Input"],
Cell[18742, 452, 621, 16, 62, "Input"],
Cell[19366, 470, 1440, 39, 62, "Input"],
Cell[20809, 511, 1899, 38, 62, "Input"],
Cell[22711, 551, 1190, 19, 41, "Input"],
Cell[23904, 572, 2710, 58, 62, "Input"],
Cell[26617, 632, 1996, 46, 82, "Input"],
Cell[28616, 680, 2229, 52, 82, "Input"],
Cell[30848, 734, 762, 16, 41, "Input"],
Cell[31613, 752, 1140, 27, 41, "Input"],
Cell[32756, 781, 2210, 49, 82, "Input"],
Cell[34969, 832, 2086, 43, 62, "Input"],
Cell[37058, 877, 2230, 38, 41, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[39325, 920, 1094, 14, 25, "Subsubtitle"],
Cell[40422, 936, 863, 24, 62, "Input"],
Cell[41288, 962, 1314, 35, 62, "Input"],
Cell[42605, 999, 449, 14, 62, "Input"],
Cell[43057, 1015, 1125, 30, 62, "Input"],
Cell[44185, 1047, 1671, 36, 62, "Input"],
Cell[45859, 1085, 1046, 17, 41, "Input"],
Cell[46908, 1104, 1838, 46, 62, "Input"],
Cell[48749, 1152, 533, 14, 41, "Input"],
Cell[49285, 1168, 2641, 68, 102, "Input"],
Cell[51929, 1238, 1841, 46, 62, "Input"],
Cell[53773, 1286, 566, 15, 41, "Input"],
Cell[54342, 1303, 1544, 38, 62, "Input"],
Cell[55889, 1343, 3062, 71, 102, "Input"],
Cell[58954, 1416, 1182, 32, 62, "Input"],
Cell[60139, 1450, 1105, 28, 62, "Input"],
Cell[61247, 1480, 669, 17, 41, "Input"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[61965, 1503, 255, 3, 23, "Subtitle"],
Cell[CellGroupData[{
Cell[62245, 1510, 1318, 17, 25, "Subsubtitle"],
Cell[63566, 1529, 1294, 19, 29, "Text"],
Cell[64863, 1550, 2134, 57, 62, "Input"],
Cell[67000, 1609, 1063, 21, 102, "Input"],
Cell[68066, 1632, 672, 12, 62, "Input"],
Cell[68741, 1646, 2245, 32, 41, "Input"],
Cell[70989, 1680, 838, 14, 62, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[71864, 1699, 1322, 17, 25, "Subsubtitle"],
Cell[73189, 1718, 1298, 19, 29, "Text"],
Cell[74490, 1739, 2602, 67, 62, "Input"],
Cell[77095, 1808, 913, 19, 102, "Input"],
Cell[78011, 1829, 436, 9, 62, "Input"],
Cell[78450, 1840, 1943, 29, 41, "Input"],
Cell[80396, 1871, 220, 5, 41, "Input"],
Cell[80619, 1878, 878, 16, 62, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[81534, 1899, 1296, 17, 25, "Subsubtitle"],
Cell[82833, 1918, 1289, 19, 47, "Text"],
Cell[84125, 1939, 2802, 78, 62, "Input"],
Cell[86930, 2019, 899, 19, 102, "Input"],
Cell[87832, 2040, 1161, 25, 41, "Input"],
Cell[88996, 2067, 4789, 107, 182, "Input"],
Cell[93788, 2176, 2940, 62, 62, "Input"],
Cell[96731, 2240, 4848, 101, 122, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[101616, 2346, 1089, 14, 25, "Subsubtitle"],
Cell[102708, 2362, 1113, 16, 29, "Text"],
Cell[103824, 2380, 2743, 63, 82, "Input"],
Cell[106570, 2445, 11478, 345, 300, "Input"],
Cell[118051, 2792, 17083, 494, 431, "Input"],
Cell[135137, 3288, 15392, 433, 344, "Input"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[150578, 3727, 278, 4, 23, "Subtitle",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[CellGroupData[{
Cell[150881, 3735, 1320, 17, 25, "Subsubtitle"],
Cell[152204, 3754, 1364, 19, 29, "Text"],
Cell[153571, 3775, 2068, 55, 62, "Input"],
Cell[155642, 3832, 1066, 21, 102, "Input"],
Cell[156711, 3855, 563, 11, 62, "Input"],
Cell[157277, 3868, 1606, 23, 41, "Input"],
Cell[158886, 3893, 888, 14, 62, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[159811, 3912, 1320, 17, 25, "Subsubtitle"],
Cell[161134, 3931, 1348, 19, 29, "Text"],
Cell[162485, 3952, 2430, 60, 62, "Input"],
Cell[164918, 4014, 1067, 21, 102, "Input"],
Cell[165988, 4037, 495, 10, 62, "Input"],
Cell[166486, 4049, 1784, 27, 41, "Input"],
Cell[168273, 4078, 884, 16, 62, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[169194, 4099, 1292, 17, 25, "Subsubtitle"],
Cell[170489, 4118, 1272, 18, 47, "Text"],
Cell[171764, 4138, 2679, 72, 62, "Input"],
Cell[174446, 4212, 923, 19, 102, "Input"],
Cell[175372, 4233, 1130, 24, 41, "Input"],
Cell[176505, 4259, 4379, 99, 182, "Input"],
Cell[180887, 4360, 2834, 60, 62, "Input"],
Cell[183724, 4422, 6540, 126, 122, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[190301, 4553, 1087, 14, 25, "Subsubtitle"],
Cell[191391, 4569, 1112, 16, 29, "Text"],
Cell[192506, 4587, 2356, 58, 82, "Input"],
Cell[194865, 4647, 16779, 483, 375, "Input"],
Cell[211647, 5132, 13888, 413, 312, "Input"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[225584, 5551, 194, 3, 23, "Subtitle"],
Cell[225781, 5556, 1309, 19, 47, "Text"]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)