figures.nb

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

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

(* CreatedBy='Mathematica 10.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    471208,       9776]
NotebookOptionsPosition[    468309,       9670]
NotebookOutlinePosition[    468668,       9686]
CellTagsIndexPosition[    468625,       9683]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 "Official code for ",
 StyleBox["Extended Parrondo\[CloseCurlyQuote]s game and Brownian ratchets: \
Strong and weak Parrondo effect\n",
  FontSlant->"Italic"],
 "by\n",
 "Degang Wu and Kwok Yip Szeto"
}], "Title",
 CellChangeTimes->{{3.652420913680687*^9, 3.65242100681087*^9}}],

Cell["code by Degang Wu", "Text",
 CellChangeTimes->{{3.6524210266455317`*^9, 3.652421030203809*^9}}],

Cell[CellGroupData[{

Cell["Run this FIrst! It will load all functions", "Section",
 CellChangeTimes->{{3.652421053964386*^9, 3.652421060875083*^9}, {
  3.6535282892420483`*^9, 3.653528322536355*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Set", " ", "current", " ", "directory", " ", "as", " ", "needed"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
  "SetDirectory", "[", "\"\<~/extended_parrondo_game\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.653538642437695*^9, 3.653538690673135*^9}}],

Cell[BoxData["\<\"/Users/wudegang/extended_parrondo_game\"\>"], "Output",
 CellChangeTimes->{{3.653538693996975*^9, 3.653538718989635*^9}}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"Get", "[", "\"\<coreFunctions.m\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Get", "[", "\"\<gainExpressions.m\>\"", "]"}]}], "Input",
 CellChangeTimes->{{3.652422442119989*^9, 3.652422473391295*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fig. 1", "Section",
 CellChangeTimes->{{3.6524210892839327`*^9, 3.652421091186309*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"T", "=", "100"}], ",", 
     RowBox[{"p", "=", "0.5"}], ",", 
     RowBox[{"p1", "=", "0.1"}], ",", 
     RowBox[{"p2", "=", "0.67"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"B3", "=", 
     RowBox[{"bmMx", "[", 
      RowBox[{"p1", ",", "p2", ",", "3", ",", "12"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"B4", "=", 
     RowBox[{"bmMx", "[", 
      RowBox[{"p1", ",", "p2", ",", "4", ",", "12"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"ListPlot", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"MapThread", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"#1", ",", "#2"}], "}"}], "&"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Range", "[", 
             RowBox[{"0", ",", "T"}], "]"}], ",", 
            RowBox[{"ParrondoExpected", "[", 
             RowBox[{
              RowBox[{"{", "B3", "}"}], ",", "T"}], "]"}]}], "}"}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"MapThread", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"#1", ",", "#2"}], "}"}], "&"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Range", "[", 
              RowBox[{"0", ",", "T"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ";;", 
               RowBox[{"-", "1"}], ";;", "2"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"MovingAverage", "[", 
              RowBox[{
               RowBox[{"ParrondoExpected", "[", 
                RowBox[{
                 RowBox[{"{", "B4", "}"}], ",", 
                 RowBox[{"T", "+", "1"}]}], "]"}], ",", "2"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ";;", 
               RowBox[{"-", "1"}], ";;", "2"}], "]"}], "]"}]}], "}"}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"MapThread", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"#1", ",", "#2"}], "}"}], "&"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Range", "[", 
              RowBox[{"0", ",", "T"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ";;", 
               RowBox[{"-", "1"}], ";;", "2"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"MovingAverage", "[", 
              RowBox[{
               RowBox[{"ParrondoExpected", "[", 
                RowBox[{
                 RowBox[{"Evaluate", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"C", " ", "B3"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "-", "C"}], ")"}], "B4"}]}], "}"}], "/.", 
                   RowBox[{"{", 
                    RowBox[{"C", "\[Rule]", "0.2"}], "}"}]}], "]"}], ",", 
                 RowBox[{"T", "+", "1"}]}], "]"}], ",", "2"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ";;", 
               RowBox[{"-", "1"}], ";;", "2"}], "]"}], "]"}]}], "}"}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"MapThread", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"#1", ",", "#2"}], "}"}], "&"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Range", "[", 
             RowBox[{"0", ",", "T"}], "]"}], ",", 
            RowBox[{"MovingAverage", "[", 
             RowBox[{
              RowBox[{"ParrondoExpected", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"B3", ",", "B4", ",", "B3", ",", "B4", ",", "B4"}], 
                 "}"}], ",", 
                RowBox[{"T", "+", "1"}]}], "]"}], ",", "2"}], "]"}]}], 
           "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Joined", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"True", ",", "False", ",", "False", ",", "True"}], "}"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"PointLegend", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "\"\<B(3)\>\"", ",", "\"\<B(4)\>\"", ",", "\"\<B(3,4,C=0.2)\>\"", 
             ",", 
             RowBox[{
             "(*", "\"\<switching B(3),B(4),B(3),B(4),B(4)\>\"", "*)"}], 
             "\"\<34344\>\""}], "}"}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"10", ",", "10"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Bold", ",", "12"}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"Bottom", ",", "Center"}], "}"}]}], "]"}]}], ",", 
      RowBox[{"BaseStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ToExpression", "[", 
          RowBox[{"\"\<t\>\"", ",", "TeXForm"}], "]"}], ",", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"\"\<\\\\langle X(t)\\\\rangle\>\"", ",", "TeXForm"}], 
          "]"}]}], "}"}]}], ",", 
      RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Darker", "[", "Green", "]"}], ",", "Red", ",", "Black"}], 
        "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"-", "0.8"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.5"}], ",", 
         RowBox[{"-", "0"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
      RowBox[{"AspectRatio", "\[Rule]", 
       RowBox[{"1", "/", "2"}]}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{3.6524213725849733`*^9}],

Cell[BoxData[
 TagBox[
  GraphicsBox[{InsetBox[
     GraphicsBox[{{{}, {{{}, {}, 
          {RGBColor[0, 0, 1], PointSize[0.007333333333333334], 
           AbsoluteThickness[1.6], 
           
           StyleBox[
            LineBox[{{0., 0.}, {1., -0.8}, {2., -0.4599999999999999}, {
             3., -0.84504}, {4., -0.6679459999999999}, {5., -0.949377784}, {
             6., -0.8526127325999999}, {7., -1.0685211820664}, {
             8., -1.02580045844506}, {9., -1.1970278646376515`}, {
             10., -1.1912652498505496`}, {11., -1.3319194682927302`}, {
             12., -1.3514487275036264`}, {13., -1.4711799804773427`}, {
             13.78234451096906, -1.5}}],
            FontSize->14]}, {}, {}, 
          {GrayLevel[0], PointSize[0.007333333333333334], AbsoluteThickness[
           1.6], 
           StyleBox[LineBox[CompressedData["
1:eJw1lAtMU2cYhguOCQpecCbgBEpxCGyMe0WE+RZUoAqWFgrIFKJDyDSCtLAx
yDhgAQ3j4uIW6HReJsMJbmB0GZFLYcgyxsWyqcMglOuY3MpVB3OZxu8/SdM8
+c77n+e8/9/aHk6SxhvyeLz4F5+X3+xSl728ehpfkX6n4/vFzQsOw8Q8XPss
6+LJAcbG2FqflDlZNkK8Dk56F7esDsZvQBdt3mZw6G9iCzTJ3AR8v0nizRho
U8yY5+qJ+cgrlHzlHDhLLEBTyT3r3iOMt0C98faSw6YZYnuMeHrcGL80TewA
cUX0l+NGbH0n/GDJZY1/+IT4HcQft7ugO8V83sVwnLeVz+QEsSusVrSX1iqY
jxv0moiZyh3s+e7IahS7h+rniD1gaHhDMVbD2BO1GfUGVgvMzwvJCx3FYd5s
PSG4P/zyFb7MbxsEDf1TAcbMzxutqSuuVdWNEW9H1XTq03N85ucDM/N7F2+a
sPV2ILbvQXTtz+x5vsg36C98omA+flCu74yrX834PeTwRY9+5LP7d0IQm1gR
d2yKGGjI77ryzXPy4YDoauHXo8V/0VyEvp4ByaD1KM1FKDG1sZTmsT79keOi
dDFPo/fj/NFeGWN4Lon5BsC3W2eXYE19cgE4NfNWTMRV5rMLmrzbi0khtJ/c
LnzsZLPNSzpO890Q2g8e295JPtxuzNuWX/ITs/O4B3LTDyRDbYM03wP7T37r
MfMiX14g3L+/21Bix94vEPKRoYKQ02w/gpB2xHwuN4V8uSAs2ZZ9unqQna9g
FJ2QKIYfkg8XDP6dlYn1HawfMYwz5gXGIvLhxND7DDyW3tLRfC82aluEzYf6
aL4Xg9lm3+rV5Mvbh6XKms6506zffVAbVWYujLN+Q9Cmct5wOIj1G4JbY64P
Q3ey8xGKIiv/6bdd6PxwoUiUylaa2LB+9kNrEbRFV0Q+3H4oG9JzTjxnv3cJ
ytdZrhdMP3jFkEBY55yU88tjul+CAxOla89qyVcjgc+EamjAg/Ubhv4zDoGu
JeSLMLif2RpYoWI+YSjIupphnUI+mjAMp9pWfxHL+pFirrWwd9N58oEUVlf+
jFqV3k15KQTCmzXL2k7KS1F+Nu3ZqIh8eTIo52IyD1pRv5BhVbx86Kdkdh5k
KO2KbVlup/8njQzTvPhZpYb1E47SEifvxSryQThyoFuecicfLhwFQ61urWvI
RxMOR7OYLp/7dykfgRbHugvpCY2Uj8BAT5GYd7SD8i/mwRYOR4vIVxMBp3+/
GxVJqV+eHAavqw/EGpEv5Oj2mFOlPGP7Jcfx83c+F/xKPho5PLUlb8Zd1lI+
EpsV4uqif1ooHwms7ShXNl2nfCSSJ5oXNrSdpHwklJYualV2HeWjMDukt8h+
Sr6IgipszfXcxvuUj0J1/eXZ/z7qpXwUTMvnE34/+Ijy0XitftGk2au78X9k
BiF3
             "]],
            FontSize->14]}}, {
          {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], 
           StyleBox[GeometricTransformationBox[InsetBox[
              StyleBox["\<\"\[FilledCircle]\"\>",
               StripOnInput->False,
               FontSize->8.96], {0., 0.}], {{{0., 0.}}, {{1., -0.8}}, {{
             2., -0.4599999999999999}}, {{3., -0.84504}}, {{
             4., -0.6679459999999999}}, {{5., -0.949377784}}, {{
             6., -0.8526127325999999}}, {{7., -1.0685211820664}}, {{
             8., -1.02580045844506}}, {{9., -1.1970278646376515`}}, {{
             10., -1.1912652498505496`}}, {{11., -1.3319194682927302`}}, {{
             12., -1.3514487275036264`}}, {{13., -1.4711799804773427`}}, {{
             13.78234451096906, -1.5}}}],
            FontSize->14]}, 
          {RGBColor[0, 
            NCache[
             Rational[2, 3], 0.6666666666666666], 0], AbsolutePointSize[6], 
           AbsoluteThickness[1.6], 
           StyleBox[GeometricTransformationBox[InsetBox[
              StyleBox["\<\"\[FilledSquare]\"\>",
               StripOnInput->False,
               FontSize->8.96], {0., 0.}], CompressedData["
1:eJxFyVtI03EYxvF/WqSEJRZNsIOJRi2bpmartnrU0nLL6eY8jFxqaBLZNgwm
TNsuTDrYWRNjHbwoD4PKRMJIDSGsXGCGyYQO4so5N3WDVtiFGf1eeuC5+PDd
VKyRl/hzHBe/+CWL9+P+73bT39n6GNFaZ7ynG7czB4M/F7PD+O4bcyiqhPv7
xfzvzOFQ+j6VDhjIkQiqn+nQWslbMFbQoQtYP8kcDe3o3uG75eRYaKNlvJ29
5Dg0WESqwZUO5gToty2Yi46RE1Gf0fvl52OyEIWC6ogr3BTzHkwFiEois8gi
BE7MtzxvJu9DeE+3M9NLBhIbK7dPJjuZkyDV7dJW3yQno1jie7raTk5BZVTX
j7aEaeYDuLpQIcQ58kE8tMUZPo6QU/Gi09NzarOLOQ3Dl59w/nryIThPaFKa
BsiHwSULamNC3czp4K1zv35VRpZA4LOsONpNliJ16GSGN3CG+QgK2rdeP68i
Z6CixvFhg4Usw0V1y9qu3+RM3BeW5kuks/9sykRXSJR53MzMZcHqmvisd1PP
gvb4++DlG+dYl6NqKDZOnsZskqNWfE1xR0NdgRvts2ccjdQVMPNkt+JfUs9G
a82jZ2cd1LPR6QmyvQn2sK5Er7p8fs1uZpMSbwetYYVF1HMwIowWWy5Qz8HX
B5fUvg7quXCFTBuTxqjn4pcxvbnOz8t6Hpa62/pH+cymPKxSBdojFNTzETZQ
tuy0wdv3BxUKDps=
             "]],
            FontSize->14]}, 
          {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
           StyleBox[GeometricTransformationBox[InsetBox[
              StyleBox["\<\"\[FilledDiamond]\"\>",
               StripOnInput->False,
               FontSize->10.88], {0., 0.}], CompressedData["
1:eJxTTMoPSmVmYGAwBmJGIGZiQICZYHBzP5TrsKynfn7hwydQvoDDpUaHv7u2
PIPyJRxSDsosPfDxOZSv4KDZFbdR6fMLKF/F4V7O/Y7+Yy+hfA0HZiv1ffbF
r6B8HQfTyeI3H/6D8Q0c5DdlFdjkvYbyjRwWNPm8TDgK45s4nGVbH3OS/Q2U
b+bwyFgoLt8Cxrdw+Dxv0ul7kTC+lYPMBbUdrnkwvo2DoKjv78ZyGN/OQfWC
7DEdON/BQSTgaOcSuHpHh+u/tuaJxsP4Tg6lHYaTGjxhfGeHvV4XzQ/pwfgu
DsFyDGLT+WF8V4fqE0vvLXgDc7+bQ9XeDIWsYzC+u4NZyfEZmXNhfA8HNfVD
3KxFML6nwzf5U5smu8D4Xg5aNyWCEkRhfG+HqbviGFc/gYWfj4PQhRubVm2C
8X0dWpudmvrqYXw/h11Xdl6u84bx/R26/jd4zhOD8QMcvJs7pnE9hMZXQ4BD
1vqLRndXweIv0MH71L+v2iUw+UCH79+Ozua0hckHOYhYFJu2scLkgxwefTbo
Xn8Wlh6CHVR8svInToXyG4IdzBld2cxiYfIhDvPCnzMtU4HJhzhEn/h/+8Vr
WPoKdUiYd+4Hy2YovyHU4dD2w9f/V8LkwxzyA2fr33OAyYc52Mgc5l7CDpMP
d7Di2PIk5Bw0/TaEO9S0XtnyeQosPUc4zLiWyNUcDZOPcJj07YwYqxJMPtLh
jeCL3dUvnu4HACq7D8I=
             "]],
            FontSize->14]}, 
          {GrayLevel[0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
           StyleBox[GeometricTransformationBox[InsetBox[
              StyleBox["\<\"\[FilledUpTriangle]\"\>",
               StripOnInput->False,
               FontSize->10.24], {0., 0.}], CompressedData["
1:eJxFlHtQVGUYxheIBAUvmDNgAstiCBRxR0TIZ0EFVsHdBRaQFEZDmHQE2YUi
mDggFx3iYmMNbJqXJEywwNEmRi4LIU3ExaXUcBCWayS3hQU0yCYa3286M+eP
37zn+c7vPN+3a3MkSRpvwOPx4lduvZVbn/f/pSz/7+pteknaXQ7vlrQs2I8Q
83D9k6xLpwYZG2FbQ1LmVPko8Xo4ap1dszoZvwZNtFm73uE/ic3RHOYq4PtN
EW/BYLt81ixPS8xHfpH4C6fAOWIBmkvvW/UdZbwVyk13luw3zxLbYdTD/ebE
5Rlie4gqoz+fMGTrO+I7Cy5r4v2nxG8h/oTtRc1p5vM2RuK8LX2mJoldYGnQ
UVYnZz6u0KoiZqt2sve7IatJ5Baq1RG7Q1//pny8lrEH6jIa9CwXmJ8nkhc6
SyTebD0vcL/5Fch9md92CBoHpgOMmJ832lINrlfXjxPvQPVM6rPzfObnA1Oz
+5duGbP1diK2/2F03Y/sfb4o0BsoeipnPn5QbOiKa1jD+B3k8IWPv+ez53dB
EJtYGXd8mhhoLOi++tUL8uGA6BqvL8dK/qC5EP29g+IhqzGaC1FqYm0hzWd9
+iPHWeFslkbfx/mjoypG/3wS8w2Ab4/GNsGK+uQCcHr2jZiIa8xnN1T5dxaT
Qmg/ud340NF6u6d0guZ74GU3dHxHF/lwezBvU3HZT8TO417ITN4TD7cP0Xwv
7D76pdfUk3x5gXD79l5jqS37vkDIRocLQ86w/QhC2lEzXV4K+XJBWLIp/3jN
EDtfwSg+KZaPPCIfLhj8u6sSGzpZPyIYZcwLjITkw4mg9Rl8Ir2tofk+bFK3
erUc7qf5Pgxlm36tVZIvbz+Wqmq7dGdYv/uhNKzKXJhg/YagPddp45Eg1m8I
bo+7PArdxc5HKIot/WfedKbzw4UiURq2ytia9XMAavOgrZpi8uEOQNGYnnPy
Bfu9i1Gx3mKDYObhS4YYXvVOSTk/PaHnxTg4WbbunJp8VWL4TOYOD7qzfiUY
OGsf6FJKvpDA7ey2wMpc5iNBYda1DKsU8lFJMJJqU/NZLOtHCl1bUd/mC+QD
KSyv/h61Or2H8lIIvG7VLqu7KC9Fxbm052NC8uWFQaGLyTxkSf0iDKvjZcM/
JLPzEIay7tjW5Q76f1KFYYYXP6dQsX7CUVbq6L1YTT4IRw40y9Nu5MOFo3C4
zbVtLfmowuFgGtPt8+Ae5SPQ6lB/MT2hifIRGOwtFvGOdVJ+ZR5sbn+smHxV
EXD8+5sxoZT65cmg96ryYKwh+UKGHnddbspztl8ynLhw91PBz+SjksFDXfp6
3BU15SOxRS6qKf6rlfKRwLrOCkXzDcpHInmyZWFj+ynKR0Jh4azMza6nfBTm
hrXm2c/IF1HIlay9kdf0gPJRqGm4MvfPB32Uj4JJxXzCr4ceUz4arzQsGrd4
9jT9C3kCIXk=
             "]],
            FontSize->14]}, {}}}, {}}, {}},
      AspectRatio->NCache[
        Rational[1, 2], 0.5],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, -0.8},
      BaseStyle->{FontWeight -> "Bold", FontSize -> 14},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox[
          RowBox[{"\[LeftAngleBracket]", 
            RowBox[{"X", "(", "t", ")"}], "\[RightAngleBracket]"}], 
          TraditionalForm], None}, {
         FormBox["t", TraditionalForm], None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{},
      PlotLabel->None,
      PlotRange->{{0., 100.}, {-1.5, 0}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {0, 0}},
      Ticks->{Automatic, Automatic}], Scaled[{0.5, 0.5}], Center, 
     Scaled[{1, 1}]], InsetBox[
     TemplateBox[{"\"B(3)\"","\"B(4)\"","\"B(3,4,C=0.2)\"","\"34344\""},
      "PointLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.264], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 10}, {10, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.264], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    RGBColor[0, 0, 1]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.264], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    RGBColor[0, 0, 1]], FontSize -> 8.96, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.038000000000000006`] -> 
                    Baseline)], #, 
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.264], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledSquare]\"", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.264], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    RGBColor[0, 
                    Rational[2, 3], 0]], FontSize -> 8.96, Plain, 
                    StripOnInput -> False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.038000000000000006`] -> 
                    Baseline)], #2, 
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.264], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    RGBColor[1, 0, 0]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledDiamond]\"", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.264], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    RGBColor[1, 0, 0]], FontSize -> 10.88, Plain, 
                    StripOnInput -> False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.038000000000000006`] -> 
                    Baseline)], #3, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.264], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {10, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.264], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    GrayLevel[0]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledUpTriangle]\"", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.264], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    GrayLevel[0]], FontSize -> 10.24, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.038000000000000006`] -> 
                    Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontWeight -> Bold, FontSize -> 12, FontFamily -> "Arial"}, 
         Background -> Automatic, StripOnInput -> False], TraditionalForm]& ),
      
      Editable->True,
      InterpretationFunction:>(RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 2/3, 0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 
                    Rational[2, 3], 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0]"], 
                    Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                    Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                 "]"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"\"\[FilledCircle]\"", ",", "8.96`"}], "}"}], ",", 
                 
                 RowBox[{"{", 
                   RowBox[{"\"\[FilledSquare]\"", ",", "8.96`"}], "}"}], ",", 
                 
                 RowBox[{"{", 
                   RowBox[{"\"\[FilledDiamond]\"", ",", "10.88`"}], "}"}], 
                 ",", 
                 RowBox[{"{", 
                   RowBox[{"\"\[FilledUpTriangle]\"", ",", "10.24`"}], 
                   "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "False", ",", "False", ",", "True"}], 
               "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"Bold", ",", "12"}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"\"Row\"", ",", "1"}], "}"}]}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"10", ",", "10"}], "}"}]}]}], "]"}]& )], 
     Scaled[{0.5, -0.01}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[
     Rational[1, 2], 0.5],
   Axes->False,
   AxesLabel->{None, None},
   AxesOrigin->{0, -0.8},
   BaseStyle->{FontWeight -> "Bold", FontSize -> 14},
   DisplayFunction->Identity,
   Frame->False,
   FrameLabel->{{
      FormBox[
       RowBox[{"\[LeftAngleBracket]", 
         RowBox[{"X", "(", "t", ")"}], "\[RightAngleBracket]"}], 
       TraditionalForm], None}, {
      FormBox["t", TraditionalForm], None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   ImagePadding->All,
   Method->{},
   PlotLabel->None,
   PlotRange->Automatic,
   PlotRangeClipping->False,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {0, 0}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6], FontSize -> 14, 
          RGBColor[0, 0, 1]], 
         Line[{{0., 0.}, {1., -0.8}, {2., -0.4599999999999999}, {
          3., -0.84504}, {4., -0.6679459999999999}, {5., -0.949377784}, {
          6., -0.8526127325999999}, {7., -1.0685211820664}, {
          8., -1.02580045844506}, {9., -1.1970278646376515`}, {
          10., -1.1912652498505496`}, {11., -1.3319194682927302`}, {
          12., -1.3514487275036264`}, {13., -1.4711799804773427`}, {
          13.78234451096906, -1.5}}]}, {}, {}, {
         Hue[0.37820393249936934`, 0.6, 0.6], 
         Directive[
          PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6], FontSize -> 14, 
          GrayLevel[0]], 
         Line[CompressedData["
1:eJw1lAtMU2cYhguOCQpecCbgBEpxCGyMe0WE+RZUoAqWFgrIFKJDyDSCtLAx
yDhgAQ3j4uIW6HReJsMJbmB0GZFLYcgyxsWyqcMglOuY3MpVB3OZxu8/SdM8
+c77n+e8/9/aHk6SxhvyeLz4F5+X3+xSl728ehpfkX6n4/vFzQsOw8Q8XPss
6+LJAcbG2FqflDlZNkK8Dk56F7esDsZvQBdt3mZw6G9iCzTJ3AR8v0nizRho
U8yY5+qJ+cgrlHzlHDhLLEBTyT3r3iOMt0C98faSw6YZYnuMeHrcGL80TewA
cUX0l+NGbH0n/GDJZY1/+IT4HcQft7ugO8V83sVwnLeVz+QEsSusVrSX1iqY
jxv0moiZyh3s+e7IahS7h+rniD1gaHhDMVbD2BO1GfUGVgvMzwvJCx3FYd5s
PSG4P/zyFb7MbxsEDf1TAcbMzxutqSuuVdWNEW9H1XTq03N85ucDM/N7F2+a
sPV2ILbvQXTtz+x5vsg36C98omA+flCu74yrX834PeTwRY9+5LP7d0IQm1gR
d2yKGGjI77ryzXPy4YDoauHXo8V/0VyEvp4ByaD1KM1FKDG1sZTmsT79keOi
dDFPo/fj/NFeGWN4Lon5BsC3W2eXYE19cgE4NfNWTMRV5rMLmrzbi0khtJ/c
LnzsZLPNSzpO890Q2g8e295JPtxuzNuWX/ITs/O4B3LTDyRDbYM03wP7T37r
MfMiX14g3L+/21Bix94vEPKRoYKQ02w/gpB2xHwuN4V8uSAs2ZZ9unqQna9g
FJ2QKIYfkg8XDP6dlYn1HawfMYwz5gXGIvLhxND7DDyW3tLRfC82aluEzYf6
aL4Xg9lm3+rV5Mvbh6XKms6506zffVAbVWYujLN+Q9Cmct5wOIj1G4JbY64P
Q3ey8xGKIiv/6bdd6PxwoUiUylaa2LB+9kNrEbRFV0Q+3H4oG9JzTjxnv3cJ
ytdZrhdMP3jFkEBY55yU88tjul+CAxOla89qyVcjgc+EamjAg/Ubhv4zDoGu
JeSLMLif2RpYoWI+YSjIupphnUI+mjAMp9pWfxHL+pFirrWwd9N58oEUVlf+
jFqV3k15KQTCmzXL2k7KS1F+Nu3ZqIh8eTIo52IyD1pRv5BhVbx86Kdkdh5k
KO2KbVlup/8njQzTvPhZpYb1E47SEifvxSryQThyoFuecicfLhwFQ61urWvI
RxMOR7OYLp/7dykfgRbHugvpCY2Uj8BAT5GYd7SD8i/mwRYOR4vIVxMBp3+/
GxVJqV+eHAavqw/EGpEv5Oj2mFOlPGP7Jcfx83c+F/xKPho5PLUlb8Zd1lI+
EpsV4uqif1ooHwms7ShXNl2nfCSSJ5oXNrSdpHwklJYualV2HeWjMDukt8h+
Sr6IgipszfXcxvuUj0J1/eXZ/z7qpXwUTMvnE34/+Ijy0XitftGk2au78X9k
BiF3
          "]]}}, {{
         Directive[
          PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6], FontSize -> 14, 
          RGBColor[0, 0, 1], 
          AbsolutePointSize[6]], 
         GeometricTransformation[
          Inset[
           Style["\[FilledCircle]", FontSize -> 8.96], {0., 0.}], {{{0., 
          0.}}, {{1., -0.8}}, {{2., -0.4599999999999999}}, {{
          3., -0.84504}}, {{4., -0.6679459999999999}}, {{
          5., -0.949377784}}, {{6., -0.8526127325999999}}, {{
          7., -1.0685211820664}}, {{8., -1.02580045844506}}, {{
          9., -1.1970278646376515`}}, {{10., -1.1912652498505496`}}, {{
          11., -1.3319194682927302`}}, {{12., -1.3514487275036264`}}, {{
          13., -1.4711799804773427`}}, {{13.78234451096906, -1.5}}}]}, {
         Directive[
          PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6], FontSize -> 14, 
          RGBColor[0, 
           Rational[2, 3], 0], 
          AbsolutePointSize[6]], 
         GeometricTransformation[
          Inset[
           Style["\[FilledSquare]", FontSize -> 8.96], {0., 
           0.}], CompressedData["
1:eJxFyVtI03EYxvF/WqSEJRZNsIOJRi2bpmartnrU0nLL6eY8jFxqaBLZNgwm
TNsuTDrYWRNjHbwoD4PKRMJIDSGsXGCGyYQO4so5N3WDVtiFGf1eeuC5+PDd
VKyRl/hzHBe/+CWL9+P+73bT39n6GNFaZ7ynG7czB4M/F7PD+O4bcyiqhPv7
xfzvzOFQ+j6VDhjIkQiqn+nQWslbMFbQoQtYP8kcDe3o3uG75eRYaKNlvJ29
5Dg0WESqwZUO5gToty2Yi46RE1Gf0fvl52OyEIWC6ogr3BTzHkwFiEois8gi
BE7MtzxvJu9DeE+3M9NLBhIbK7dPJjuZkyDV7dJW3yQno1jie7raTk5BZVTX
j7aEaeYDuLpQIcQ58kE8tMUZPo6QU/Gi09NzarOLOQ3Dl59w/nryIThPaFKa
BsiHwSULamNC3czp4K1zv35VRpZA4LOsONpNliJ16GSGN3CG+QgK2rdeP68i
Z6CixvFhg4Usw0V1y9qu3+RM3BeW5kuks/9sykRXSJR53MzMZcHqmvisd1PP
gvb4++DlG+dYl6NqKDZOnsZskqNWfE1xR0NdgRvts2ccjdQVMPNkt+JfUs9G
a82jZ2cd1LPR6QmyvQn2sK5Er7p8fs1uZpMSbwetYYVF1HMwIowWWy5Qz8HX
B5fUvg7quXCFTBuTxqjn4pcxvbnOz8t6Hpa62/pH+cymPKxSBdojFNTzETZQ
tuy0wdv3BxUKDps=
          "]]}, {
         Directive[
          PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6], FontSize -> 14, 
          RGBColor[1, 0, 0], 
          AbsolutePointSize[6]], 
         GeometricTransformation[
          Inset[
           Style["\[FilledDiamond]", FontSize -> 10.88], {0., 
           0.}], CompressedData["
1:eJxTTMoPSmVmYGAwBmJGIGZiQICZYHBzP5TrsKynfn7hwydQvoDDpUaHv7u2
PIPyJRxSDsosPfDxOZSv4KDZFbdR6fMLKF/F4V7O/Y7+Yy+hfA0HZiv1ffbF
r6B8HQfTyeI3H/6D8Q0c5DdlFdjkvYbyjRwWNPm8TDgK45s4nGVbH3OS/Q2U
b+bwyFgoLt8Cxrdw+Dxv0ul7kTC+lYPMBbUdrnkwvo2DoKjv78ZyGN/OQfWC
7DEdON/BQSTgaOcSuHpHh+u/tuaJxsP4Tg6lHYaTGjxhfGeHvV4XzQ/pwfgu
DsFyDGLT+WF8V4fqE0vvLXgDc7+bQ9XeDIWsYzC+u4NZyfEZmXNhfA8HNfVD
3KxFML6nwzf5U5smu8D4Xg5aNyWCEkRhfG+HqbviGFc/gYWfj4PQhRubVm2C
8X0dWpudmvrqYXw/h11Xdl6u84bx/R26/jd4zhOD8QMcvJs7pnE9hMZXQ4BD
1vqLRndXweIv0MH71L+v2iUw+UCH79+Ozua0hckHOYhYFJu2scLkgxwefTbo
Xn8Wlh6CHVR8svInToXyG4IdzBld2cxiYfIhDvPCnzMtU4HJhzhEn/h/+8Vr
WPoKdUiYd+4Hy2YovyHU4dD2w9f/V8LkwxzyA2fr33OAyYc52Mgc5l7CDpMP
d7Di2PIk5Bw0/TaEO9S0XtnyeQosPUc4zLiWyNUcDZOPcJj07YwYqxJMPtLh
jeCL3dUvnu4HACq7D8I=
          "]]}, {
         Directive[
          PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6], FontSize -> 14, 
          GrayLevel[0], 
          AbsolutePointSize[6]], 
         GeometricTransformation[
          Inset[
           Style["\[FilledUpTriangle]", FontSize -> 10.24], {0., 
           0.}], CompressedData["
1:eJxFlHtQVGUYxheIBAUvmDNgAstiCBRxR0TIZ0EFVsHdBRaQFEZDmHQE2YUi
mDggFx3iYmMNbJqXJEywwNEmRi4LIU3ExaXUcBCWayS3hQU0yCYa3286M+eP
37zn+c7vPN+3a3MkSRpvwOPx4lduvZVbn/f/pSz/7+pteknaXQ7vlrQs2I8Q
83D9k6xLpwYZG2FbQ1LmVPko8Xo4ap1dszoZvwZNtFm73uE/ic3RHOYq4PtN
EW/BYLt81ixPS8xHfpH4C6fAOWIBmkvvW/UdZbwVyk13luw3zxLbYdTD/ebE
5Rlie4gqoz+fMGTrO+I7Cy5r4v2nxG8h/oTtRc1p5vM2RuK8LX2mJoldYGnQ
UVYnZz6u0KoiZqt2sve7IatJ5Baq1RG7Q1//pny8lrEH6jIa9CwXmJ8nkhc6
SyTebD0vcL/5Fch9md92CBoHpgOMmJ832lINrlfXjxPvQPVM6rPzfObnA1Oz
+5duGbP1diK2/2F03Y/sfb4o0BsoeipnPn5QbOiKa1jD+B3k8IWPv+ez53dB
EJtYGXd8mhhoLOi++tUL8uGA6BqvL8dK/qC5EP29g+IhqzGaC1FqYm0hzWd9
+iPHWeFslkbfx/mjoypG/3wS8w2Ab4/GNsGK+uQCcHr2jZiIa8xnN1T5dxaT
Qmg/ud340NF6u6d0guZ74GU3dHxHF/lwezBvU3HZT8TO417ITN4TD7cP0Xwv
7D76pdfUk3x5gXD79l5jqS37vkDIRocLQ86w/QhC2lEzXV4K+XJBWLIp/3jN
EDtfwSg+KZaPPCIfLhj8u6sSGzpZPyIYZcwLjITkw4mg9Rl8Ir2tofk+bFK3
erUc7qf5Pgxlm36tVZIvbz+Wqmq7dGdYv/uhNKzKXJhg/YagPddp45Eg1m8I
bo+7PArdxc5HKIot/WfedKbzw4UiURq2ytia9XMAavOgrZpi8uEOQNGYnnPy
Bfu9i1Gx3mKDYObhS4YYXvVOSTk/PaHnxTg4WbbunJp8VWL4TOYOD7qzfiUY
OGsf6FJKvpDA7ey2wMpc5iNBYda1DKsU8lFJMJJqU/NZLOtHCl1bUd/mC+QD
KSyv/h61Or2H8lIIvG7VLqu7KC9Fxbm052NC8uWFQaGLyTxkSf0iDKvjZcM/
JLPzEIay7tjW5Q76f1KFYYYXP6dQsX7CUVbq6L1YTT4IRw40y9Nu5MOFo3C4
zbVtLfmowuFgGtPt8+Ae5SPQ6lB/MT2hifIRGOwtFvGOdVJ+ZR5sbn+smHxV
EXD8+5sxoZT65cmg96ryYKwh+UKGHnddbspztl8ynLhw91PBz+SjksFDXfp6
3BU15SOxRS6qKf6rlfKRwLrOCkXzDcpHInmyZWFj+ynKR0Jh4azMza6nfBTm
hrXm2c/IF1HIlay9kdf0gPJRqGm4MvfPB32Uj4JJxXzCr4ceUz4arzQsGrd4
9jT9C3kCIXk=
          "]]}, {}}}, {}}, {
     DisplayFunction -> Identity, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {0, 0}}, AxesOrigin -> {0, -0.8}, 
      PlotRange -> {{0., 100.}, {-1.5, 0}}, DisplayFunction -> Identity, 
      AspectRatio -> Rational[1, 2], Axes -> {True, True}, 
      AxesLabel -> {None, None}, AxesOrigin -> {0, -0.8}, 
      BaseStyle -> {FontWeight -> "Bold", FontSize -> 14}, DisplayFunction :> 
      Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
         AngleBracket[
          $CellContext`X[$CellContext`t]], None}, {$CellContext`t, None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], Method -> {}, 
      PlotRange -> {{0., 100.}, {-1.5, 0}}, PlotRangeClipping -> True, 
      PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      PointLegend[{
        Directive[
         PointSize[0.007333333333333334], 
         AbsoluteThickness[1.6], FontSize -> 14, 
         RGBColor[0, 0, 1]], 
        Directive[
         PointSize[0.007333333333333334], 
         AbsoluteThickness[1.6], FontSize -> 14, 
         RGBColor[0, 
          Rational[2, 3], 0]], 
        Directive[
         PointSize[0.007333333333333334], 
         AbsoluteThickness[1.6], FontSize -> 14, 
         RGBColor[1, 0, 0]], 
        Directive[
         PointSize[0.007333333333333334], 
         AbsoluteThickness[1.6], FontSize -> 14, 
         GrayLevel[0]]}, {"B(3)", "B(4)", "B(3,4,C=0.2)", "34344"}, 
       LegendMarkers -> {{"\[FilledCircle]", 8.96}, {
         "\[FilledSquare]", 8.96}, {"\[FilledDiamond]", 10.88}, {
         "\[FilledUpTriangle]", 10.24}}, Joined -> {True, False, False, True},
        LabelStyle -> {Bold, 12}, LegendLayout -> {"Row", 1}, 
       LegendMarkerSize -> {10, 10}]], {Bottom, Center}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{3.652421482529154*^9, 3.653538723929987*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fig. 2", "Section",
 CellChangeTimes->{{3.652421469009798*^9, 3.652421471032015*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"winProb", "[", 
        RowBox[{"3", ",", "3"}], "]"}], "\[Equal]", 
       RowBox[{"loseProb", "[", 
        RowBox[{"3", ",", "3"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"winProbA", "[", 
         RowBox[{"3", ",", "3", ",", "\[Gamma]"}], "]"}], "\[Equal]", 
        RowBox[{"loseProbA", "[", 
         RowBox[{"3", ",", "3", ",", "\[Gamma]"}], "]"}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[Gamma]", "\[Rule]", "0.1"}], ",", 
         RowBox[{
          SubscriptBox["p", "A"], "\[Rule]", "0.5"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"winProbA", "[", 
         RowBox[{"3", ",", "3", ",", "\[Gamma]"}], "]"}], "\[Equal]", 
        RowBox[{"loseProbA", "[", 
         RowBox[{"3", ",", "3", ",", "\[Gamma]"}], "]"}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[Gamma]", "\[Rule]", "0.4"}], ",", 
         RowBox[{
          SubscriptBox["p", "A"], "\[Rule]", "0.5"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"winProbA", "[", 
         RowBox[{"3", ",", "3", ",", "\[Gamma]"}], "]"}], "\[Equal]", 
        RowBox[{"loseProbA", "[", 
         RowBox[{"3", ",", "3", ",", "\[Gamma]"}], "]"}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[Gamma]", "\[Rule]", "0.7"}], ",", 
         RowBox[{
          SubscriptBox["p", "A"], "\[Rule]", "0.5"}]}], "}"}]}]}], "}"}], 
    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["p", "g"], ",", "0.5", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["p", "b"], ",", "0", ",", "0.5"}], "}"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\!\(\*SubscriptBox[\(p\), \(g\)]\)\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(p\), \(b\)]\)\>\""}], "}"}]}], ",", 
   RowBox[{"ContourStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Thick", ",", "Blue"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Thick", ",", "Red", ",", "Dashed"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Thick", ",", "Green", ",", "Dotted"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"DotDashed", ",", "Thick", ",", "Brown"}], "]"}]}], "}"}]}], 
   ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"LineLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<\[Gamma]=0\>\"", ",", "\"\<\[Gamma]=0.1\>\"", ",", 
          "\"\<\[Gamma]=0.4\>\"", ",", "\"\<\[Gamma]=0.7\>\""}], "}"}], ",", 
        RowBox[{"LegendMarkerSize", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"30", ",", "10"}], "}"}]}], ",", 
        RowBox[{"LabelStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"GrayLevel", "[", "0", "]"}], ",", "Bold", ",", "14"}], 
          "}"}]}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"Right", ",", "Center"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "0.6"}]}], "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxtmAk01G/UxxEhirTYi1BZEkWL5LbaQqgskWxFIkuWbEmWtChbEQopUbaU
nRDC2JfGvsw+w1gilbS8PzX/+Tnv+/6Oc8bXGTPPc+997ud7H0lbV+MLbCws
LDRWFpal13/PDPz3W5HLIPIzDR9iPCIGN8xrKL5vGDmC6LqVdb3czvMaU83x
+28WT0OgIP+mgP718PftRdOgHC0ddVRzA7xyxuAVEB1q3Rd5rnMDyOSzW1fH
TsOudW5bi69uA2mdGORnGrKG0t8vymyHE9TN/KVR0+B/a/VWLVZZ4FXnbTBy
mwaIlP1i2asCA38XNA336hfzz2aqgr9d5ga80zQ8/5Eop5ixB2S70/T36E/D
fqsy20nNQxD99wumQckgz9ZU4DBgEwzqnOSmIW2/SCbdRgu0l75eehqk8g5o
ZrVqw3B0426K+DSIv2Z1O5OtC2F1WQntpCkQT8lJrq09DYV/NzgFFxxY96S4
m4BEkfUNwfYpUJBznXfONgPJhdzugGdT4PQ7TyxvtzVs+bu/KbD7lmtq0W8D
LAVXPc5aT8F9t0i5MVUHiPq7vilYcV1vsEnWCU4XK3z3k5uCu+ouYolZVwAb
/Y312+gkGKtaSGAiPcH5b3wnQUNo6bkGoTOWYjv9J2Hh6nz2dmwgiITu1PK3
nwQB2jWOoC9BjP1NQrBFs75RUAjkJSUE3pukw8yzuMPYjnBQ/zSa5lVOh9Ej
Oztlte6A1N/10uHkJ7MfMQKRoJeRu0PQnw6+sVmXm+vvM9ZLh90hQV5RFtHQ
gD//RGo3HWL+JRK2fHbsJ/PSQVzHoeoPKRZ+/1l6JiB6fa4Wzi8OogIuuD0k
TIBRzOMwb+xDON/V8v3Nswk49lBBI4KaAInte2bdPSbg7zZdkhj5ngBiWc36
hewkODbqcVxffQKMTfZe2HjhKagXr1LoHBuHffdOw+RsGvyr13GIL7brkhd7
BkNpysH3+8fhy8Xsvcryz+D69UyFTdhxxnqfQbi2NFnQbxz67Bbbzc1eMOpl
HPK7XeVbRV7CoW+fUgfEx6Edp1YnWJoJ949r8EYM0Bjrew1qb+fbUupoULPb
YvqnTjYjPzQwrBgUtBzJhoW20RGVKzT4UR0lOrMiH5x7lD+ed6KBx7rRrBKR
fEZ+aJAgWhotWvoGturUtZ0XoUH4oGZV1Lc30HnU/XPfahpjvQVQoVgZwN5E
hVNGqaf+/H7LOD9U6NsWi0S2EEIty17/8KVCKZfYzIJQEVwNOPLU5zyVEZci
0CdIB4ntoIJUBFu+0bES+JuePxRIfbz0lMJQRhdGE0+Bhkm2XZNBZWByrItf
op7C2G85RE5Zd5s9psA1T86kj5gKRn4oMOsupH9p33uovmyyQcWYArteHm+n
SVXBJ/OLHLn7KYx+Ug3Gs3sEKngp4CpwxWV/fTVjXWRI9BexKX1ZA72POrZg
G8kg1CR+5OPvGtDd6qSSVkpm7P8D7B3ZYnApnAzbePKD92rUMv5Ohmu1L8LZ
3ergOP6MtNVxMnyGeuedIXXQgv3w7uYRMiNOdZCSf7qVJk+GaSH7fSqc9dB6
LQWXzEGG1PcqXwxa6xnrJEO+VaXf/Hg9YB39n8l2kxjr/AgLRCk2gQYSEGMf
cGmLNTD6HQkGf3v2/vZsALcacuzr2yQwkSPiulwbQfXZqpvgRGLkuQlW+n/W
NdUnwRFVM8OMhibG30lQJs2+q7gQA5LEvT0rBEgAv8s4A6WagXux5dEIB4kR
52Z4xHm7JrWXCC/ytU9uCGmBDisN0/dNRCgLXZm+sr8FrlR4LRJfEBl12Aqr
gmYFxJ8SgePt3m3y5FZGHIhQQL+qra/UBud4tTydLxABx9utEanXDhdEipJI
OkTGuW2HE3yrw4N3ECF+kwjvCosORnyI8Hlm6emA7aUNQwZfCfCY/R2b0tpO
+Jp+gzNthsDYVyfoJ3mIrBwgQK4FrA9364RZ43WbGqoI4IlxbSto7IQrf9dJ
gIwg/rk1lE64p/WSopVIYJzDLsBsqQ0ZvU2AKz/n8F7BXYw6JADJQ0VRi9AF
uVIczpGnCRAclfzT7kA3WHbwqgZqEhjx6gZOc+qt+s0ECIi8FXjxazc8f/J2
sWUdATRpuMQ7kj2w59MPrpAveEbf6wGhQ3ozARN4oExejXco6GHkHQ8KBrhr
BfQe+L2uT+V1MR4Wt+VfMnH9BMKRkOn6HM+I9yfITrjkpRmKh5Tab7s378AC
pipXY409Ho7v5bdKfIGFZtsTB1LP4BkcwQJha8TAMSM8mHqYa+VOYBn1jAfe
3nS3g6t6ITysOOzpJjyQa4bIc6964c9bZ1UXLjwjP72QdWriqy4dB54zjgKj
Tn1QliOskV6Dg7xJq0w2vn44dehVKlcFDrT+fnA/PJST3Hy4DAcPlRZen5Pv
Z8QfB+ybRO9d39cPa0XTEn0jcPApXZxuTe8Hg8y3z5vdcIy+PwDTxiQs3QQH
gy8wOf05A2C6UDqbsQ0HldQjEZEOg8A2Fja4fisO+v8FDvQI0sYxMjgYM7sy
WeQ6CH/DLI2DtBrXZy+vDoJFdjS33Zcx0A50fjGuPAQSOdmjkkNjDG4Owfes
279Ma8egeVUw9uKXITis4BKdFTMGyhtY40SKhgFefxL0RfTlv/sYBpYVJ1de
QrT0SSVl0eJhRr2PgYdwzKFERE+ft7J7YDMGJ5KuqvzwHYFIOZ17cjpjjDyP
gGN6UuR2RNtevpHjheh/+RiDdMzq+DBEb+bwUK1TGoN5nyrJr+qjoOZ2mCtW
eoxRl6NgV36rMQbRfNwqA8WI/rffMXBtfNZbiuhN8fDaRmgMhEh0Zb+no7C6
xVNdR2CMkYfRf+tF9PScRuuS5iKfbVTiHYOgl86/1dtHGedv7P+8/quHURB/
b9aw9P4sU8efS+//7/OeWQmVL31ex+L43uXf53FJ6fnSeqpvt0ktree/9fZI
eWgurfe5xqn8JR3N15y1tJ+ntGlCzLL9Cv+c/1mLxIN2oSF/HonHf/HqPcm9
JhiJFxs/sXkbouOPrZXzRLTLIctLssviLRInlxKJ5CNtBW/2VyQf/+UrpiOA
yxvJV1ej6FdbRH8caOLnQ/TnG9pfXJflu+giVTQe0Vqpq4IA0Xm1cw90kHrZ
p3FmUQepl4iCJv8/g2g9kUYlxjSRerMg3jEuQOrtv3p8u+Lo2C2PQVhV/dvX
BqlXS4EtB88g9aqwTbkEI4PW8405+0OrkXq//IVOr3YchLR5+PEUOQ8wEfTl
IHIeTufJd+xedl58Rh/8YUfOU7rCYqHPBHrezt0cdn6v0g8WDdOmiaU4kHR6
JM4v1w/leT6HOcvR8/ocIh74ViHnrSmYw2RdP+ynJvyxn8BBrHCd1LpLfZCz
ZfhN40q0H9jgerqdxPGQ7CsYci+zl9lPpv24HgSy9oLhmv5fBSfxoHx4MfIO
FQvaGv5zcqfQfmR6Zy3OxQoP8s90hQfzsfCUunHdsZt4CLUzdhWRxYLI3t9H
salov8vYPaUhXYgHfYehQG2nT8x+Wd7M8mhusAfMXwfJWVDxcKlugEc6uwce
aGX6eU2j/baQKphlzkkAmVPCh9zVkH77evbEjCjSv3clc1RMdQOdOuT5BNB+
TpFUlx0/SYC5e6t8xHd1M3mg4/iAuKqhC2KUFTYahRLgt/BHTnPvLsD3HxQV
iUZ58h9vuld/rs2o7QSD25te7iglgPze8LGg8k440SJVeA3h09uFoZHUF51w
4HH93kQiyjNSs7jwrSkCCMhZ+6eydjJ52NR765hVfQfi38gnLkoT4URMS3yL
dgdwp9QTZdRQngaF+oz2nCWC42TchOKWdhgWaPZ6GEWE8Hfd219VtoIly9ud
ydEov4lJTS+HlvTWOD/ZQpTf8xuobtYFreDTpO4bhvB/W4mgYqZuC6yRMA82
ohOZfqHusuPoACsJMGKBKv14DNNv+ISY9GG4MNAmeIudqkaC85m5e2iBTeBQ
/Tw8Rwf1K9SkpMgSTxKoxhU3rhRrhFbdhIYt0STYnX/mpKFHA3yw7Ayxf4X6
o0TVyztN80hwCZtdaVn5kemPXtl4u7FHfwRz65ef2sdJ0GF5uk7EFvVbjsLJ
qyOpdSAjYWW5nw/1awc6nT4rbSNDw6JQmt+qOqbfizd7zm2iXwuCx0sfR9iT
ITODO/9d0QewOeSnJ+WL+sXetSlJpGdk2FBoKsPuUMP0m1k9zlcNoBpuXEuK
MMWTYas8i9ZL0WrYoew1SaaQmX6V7nPGOGMjBYxyd0of2PoeKvfuVp7aQgFh
ToXcsqxKGGKPpgedQ/2xfM3HzyX2FLDl3nO/Qaac6Y+j6jz1HreXgc2FQbOW
lxSYxmk/E84ugcuWM63igxSmP79/o2LmAB3xzx5V6voHi5j+nGjmmyxyvxB8
X210EdtFBatrv39wDryFDQZXRfbaUpnzgRzPrroQxP9XqWg9WLj5hjkfPOWw
i/YqzYd7Qq91b3+ggmXOD/VS91xY1Fc5oTlPZc4z+yfnO48j88bEhRDH6e9Z
zPlklE+i6EdKJqjS2DDd5jSwjlVMVX/yAuzph02r4mnMeUrJx+HiyUwadI8Z
i9tbpzHnoai2BQPDp6nANePfgP1OgzUlE5gHEYmwRyy+5+uecfi684720P04
5vzVLzjS19YWA/0bhfdTDMaZ86V35udbAanjwLsg4fTrUxhz3ptpyW29l+wD
7Lw467Fv44DRf8rxysMZbucEYVpkJpj3Gf+bm/XG83VLvPx+I+3bcl7+lBWN
WuLjnLP8juW8nDW9FvuXlxet2JbzcjHj/tQSH7VWsfgs6b4M6b1Luqd7KnI5
LxfclX2WeJllpPHiyzJejjoXnPRGeKhkoMC6FdFz1WlxboiOjq8q2bqMl5Lu
4W63EV7mVtYaTC3j5RfN84oSCB/7CQnJpxHdw193bhbhocm+Hsuzy3j5NNw8
4zKifay3Oz1C9G2L627bEF7SXZwqOBBedkQdOJO7jJfHroeeYkd4KSxpvH/H
Ml6uerd+8xDCx+DQWtkpROsmvU6+cmUQ9J/VOYst4+X73oNhmYielj9gd+fy
IJi6PLWlnMHB6wH1+rbXA7DPlEJpv4LyMoO93WU2HAcsPr4xxjSUl7Fh9h3N
iF/NNO9QEyjBQcV9U8Kfrf2QsJZNI78E5WUqf6N9DOJvCdvYLKTFkf8Xu3FC
h4aDP8Ex5YP2feBI+4z/zoby8tGTMNFEETxwzF4TmHiG8tJnNxETRMfCr9Ki
15x6eLibUETbjcNC2yvfmJv6KC+953alihjjgd7OmRTchIWjlziS4gLx0G6/
M6h8MxbUTQJvP05AeVkj43z1aB4egk/0kcOtUF7y79oRF/i2Bz4QnPQFcXhQ
U31jlPykB0J6gLaKiPLyEWnK7swkHuzML2N8r/TAK997nwWQeeZDW7sh63A3
4B0mzWSVUF5GnPNZ2HecAKrswYLlYigvnUrumajf7IIEunjyPR8C8ERlreuw
7AKZtQdyKwNQXt6YIffciSSA1huTlADuLtA+d3qA/xUBJEY/a2o+6QSLfOkE
WQzKR2JY3bnGIQLwP81hlxpB58WW6uwWybMdUOCnFlLERwTbec+VLps7YEeK
60pVIZSPty41RBioEIFgjh+qV2wH7vu/40aOEOHBujc1Zz60wVHDdqPtDigf
Z7zE9I56E+HJ/VGeOk2Uj6Q70j9/X2uBVd8u76ZmEcH9Ss/G3S3NEBqn8JhU
hPLxX/yJcD7J/sEvOwz0phiQO4aJsGFyg+EbYwwc9rdd0Ugggv2UgnX5Ngzs
u54wVsuJ8tH+a4khCzKvF2/xdtAdaGTylbwvN0fiTCNEa6fz+WmSoF8T28Fr
1wAafgcvFJmjvJRq38lxxJ8E0epV67km6yHO4Ml3pRQS3Ar4/n12pg4mD9dC
XjaJycOfpKZei3wSWF8dadG9Vsfk66me3GOTunUwbUgqwpBI8PgHWzGOvRZk
X/E/2cWK8pAr/zh7rCjCW+MDZ0diapg8bb91c9DTshpKv12eKzEiQ6Le3VCj
LdXQQKMJDJugPLxd8q5zwokMutbp7B8/vwf9wUblQxFkKHK+3Bt7sRKwmNFv
erlkJg8d2YVzFKrI4OJ8NjL3bhmTv58PlxhLCpZCTnmRTshXMlwZLtQXeVcM
zvpa04qcKA//xZMCsyWkfV7nCiHJxjdPW5ECZbX7TH+OvoMX9SOCqQYUUM+t
zh04/BY27RXE8NhSmDwUOZe0Kvgiwl+TIh5vvgImjw/YrRn+8PYN1N9Uf6SU
grzf62yEcVguzLgc5dtQRWHysERiN+u5Pgo4fUiZCp/LZPLYyli5WE3qBfCE
a4TwCFBBL0z549CldNjKqR7wTZzK5OG/Vyrwjd09xuGQDNnqjv6H9aggU2b4
51RnEoThFOs5zalwVajouqH7Y2jSDskLDaIyeUcJDfjFdosKX5Kj8s6PRTF5
nrtd+K5TQiQUaAmeNEF4bqAVdOThymtQyVno1UegMnmXNtJWoauE6lsn6Udc
NlPh2N9fXEHukZq2EPd/33eTuT/6LiX5qxHhcL3rOr874kdmqJrHInMfwLyg
nscKPIW5Pn59meBaJF4WN1Nc3hkmgmFzMjWqlALn38rvu1iXBOY+R09tj6Mw
41E437HYHE6BIwKBCd4D6cx8/OqLEtNtz4BdjUbPJU8j/9+Se8muJwsi/RKk
X2ii+VirMcYTLUmBOxVl8vT2PCAplnETRCggJHpq0Vc/Hw7n+o95LZCZ+T/b
1n9OeBqpT1l1TDC5gFl/GrUX3uHXvoPoObVfpRVkuJ/cS2snFYKx5zt8djaZ
WX8FRgFiHnfIUIb15BoglUA0b8YNQ8RfDnuHO5rSSyGMxbFQ1hqt9/OPCycO
mZHh0LnOjMfkcub5mrTs1XFrq4BswZEWma1k6Ep42cNNfQ9ROye8fq1Dz5fb
5MLPzV9IwKXNe1BgvhrqKx/ejx0gwa6k1jXHymqApneNZ00jiXme54dt8hU/
kOCN4nyyu/cHZj/Y1vjO8GvrB0hOjtQ2iiIBTn/ygcT3WgjMzdniFYD2k7GR
uzy3rEgQ6r9TUcyvHn6ObjMx0CABcU/bzUDPj8CqQVrBp4z2q9tTN5XbFUhQ
NnLazObnR2a/O7FGOdJbvQHsOwZEZReJUHznV+zk9UYwS3B+NUciMvtlD1ZP
KA6ZV3ia1gi9Z8WArxmsU3hOhAjfUgn5rc2gR+ITYU9C+/Oe/Va2fAlEkPJ5
0tUe2szs7z2tUfJ/3jRDxZ8ai8SLRGgu9NKV4GqFi4ZnxM4aonx4qJNkpqJK
hBpW6Y7su20gNfk4bpQH4cGJhJzgjnYw6vx8r4cD5Q9hwS5+aAUR6uYaFEs5
UX6Np/gDbWMHxE2e94vpIoC7C/FgcVMHzK9Oy7pTjvLvTcv3s2fSCDBbqabd
frcTjCuwM5JeBEgX9nEwUOuCkpSR4PPuKF/Fsvb4SbsRYD33YPsfffR+U4Kn
KTXetAuUHDYf+KNBgDDBzkQt/m44WToV4LgN5bvLGstF4mpk/v1+xf5FVzeY
wWOnN6N4GH2xsbLmdg9IyR4IvjOM+geHJ5t/9wwh83ymyFvBh+j9Jjls8Xpm
Yg/4Vhm8bHuNh7nrTwyemH6C3qeKcb2xqH9RuUky7fTDw5tH099VRLBwXGnS
1/AEHgxMYikberEwM3ugaZ8u6o+ImrjTQ4ifOlvAoz48hN5vcjvKapSMYmEM
t3rFtBAekvxu4+JSesFoqCC5ggX1Z9VFlHouKg7Si2zyz9r2gSl+YrauGAfe
oWUaVVv64TrH8caTxaj/+6bWR9iOaDMjB9UdMqh/LHL3FrZF/OIO1/APBoi/
5NOjHuCh9kOlEGvnTxfUf2azqjb4Iv70zAqn+3OvBiB+gvtoL+JvD7KnUxQQ
P0s3fVr0Thr1t7QZy/1ZiBbyHCknuqD3m/jI95aHED+859v5oKG5MfglwB09
rDQEyTjuvsBl/rqr5vkfAcR/X1crHhiaGwJfo6AqI8Sf12CG9mIQf75lZ5C7
/jL/bpNsxqaHaGLwUVlcEXq/WdFvn0JH9CzBdiocmQ8M0wN0ach8kPFyWFRm
2fwQuZ5lamneyNHXQew6er85pS8+7IpofN7M1qX5xL+1gn1pPiH0m5xdPr94
2SSdXtK7z1jMFi273ySd2iOxNO/InUPGE2Q+2umOjCfIfNT1ABlf/p/7TZFZ
ZNxBtKpveO3S/NXXWvvl/7vf/B+DZm7f
     "], {{}, {}, 
      TagBox[
       TooltipBox[
        {RGBColor[0, 0, 1], Thickness[Large], 
         StyleBox[
          LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
           18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
            35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 
           51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67,
            68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 
           84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 
           100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 
           113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 
           126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 
           139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 
           152, 153, 154, 155}],
          FontSize->14]},
        RowBox[{
          RowBox[{
            SubscriptBox["p", "b"], " ", 
            SubsuperscriptBox["p", "g", "2"]}], "\[Equal]", 
          RowBox[{
            RowBox[{"-", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  SubscriptBox["p", "b"]}], ")"}]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
               RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 SubscriptBox["p", "g"]}], ")"}], "2"]}]}]],
       Annotation[#, 
        Subscript[$CellContext`p, $CellContext`b] 
         Subscript[$CellContext`p, $CellContext`g]^2 == -(-1 + 
          Subscript[$CellContext`p, $CellContext`b]) (-1 + 
           Subscript[$CellContext`p, $CellContext`g])^2, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], 
         StyleBox[LineBox[CompressedData["
1:eJwN0VNCRAEAAMC32XfoSh2hA9RH18lus21zs23bno85waRnZmdkhYIgyCGX
PPIpoJAiiimhlDLKqaCSKsJUU0MtddTTQCNNNNNCK22000EnXXTTQy999DPA
IEMMM8IoY4wzwSRTTDPDLHNEmGeBRZZYZoVV1lhng0222GaHXfbY54BDjjjm
hFPOOOeCS6645oZb7rjngUeeeOaFV95454NPvvjmh1/+CMSEiCKaGGKJI54E
EkkimRRSSeMfExFS5Q==
           "]],
          FontSize->14]},
        RowBox[{
          RowBox[{
            RowBox[{"(", 
              RowBox[{
                RowBox[{"0.05`", "\[VeryThinSpace]"}], "+", 
                RowBox[{"0.9`", " ", 
                  SubscriptBox["p", "b"]}]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
               RowBox[{
                 RowBox[{"0.05`", "\[VeryThinSpace]"}], "+", 
                 RowBox[{"0.9`", " ", 
                   SubscriptBox["p", "g"]}]}], ")"}], "2"]}], "\[Equal]", 
          RowBox[{
            RowBox[{"-", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"-", "0.95`"}], "+", 
                  RowBox[{"0.9`", " ", 
                    SubscriptBox["p", "b"]}]}], ")"}]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
               RowBox[{
                 RowBox[{"0.95`", "\[VeryThinSpace]"}], "-", 
                 RowBox[{"0.9`", " ", 
                   SubscriptBox["p", "g"]}]}], ")"}], "2"]}]}]],
       Annotation[#, (0.05 + 
          0.9 Subscript[$CellContext`p, $CellContext`b]) (0.05 + 
           0.9 Subscript[$CellContext`p, $CellContext`g])^2 == -(-0.95 + 
          0.9 Subscript[$CellContext`p, $CellContext`b]) (0.95 - 0.9 
           Subscript[$CellContext`p, $CellContext`g])^2, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 1, 0], Thickness[Large], Dashing[{0, Small}], 
         StyleBox[LineBox[CompressedData["
1:eJwV0UVSAwEAAMHlBbhDILgT3N01JLhDcF3c+TvNoavmPtFUmLxPC4IgJF1k
kEkW2eSQSx75FFBIEcWUUEqEMsqJUkElVVRTQy111NNAI00000IrMdpop4NO
uuimh1766GeAQYYYZoRRxhhngkmmmGaGWeaYZ4FFllgmzgoJkqyyxjobbLLF
Njvsssc+BxxyxDEpTjjljHMuuOSKa2645Y7/CSEPPPLEMy+88sY7H3zyxTc/
/PIHxMsg7A==
           "]],
          FontSize->14]},
        RowBox[{
          RowBox[{
            RowBox[{"(", 
              RowBox[{
                RowBox[{"0.2`", "\[VeryThinSpace]"}], "+", 
                RowBox[{"0.6`", " ", 
                  SubscriptBox["p", "b"]}]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
               RowBox[{
                 RowBox[{"0.2`", "\[VeryThinSpace]"}], "+", 
                 RowBox[{"0.6`", " ", 
                   SubscriptBox["p", "g"]}]}], ")"}], "2"]}], "\[Equal]", 
          RowBox[{
            RowBox[{"-", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"-", "0.8`"}], "+", 
                  RowBox[{"0.6`", " ", 
                    SubscriptBox["p", "b"]}]}], ")"}]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
               RowBox[{
                 RowBox[{"0.8`", "\[VeryThinSpace]"}], "-", 
                 RowBox[{"0.6`", " ", 
                   SubscriptBox["p", "g"]}]}], ")"}], "2"]}]}]],
       Annotation[#, (0.2 + 
          0.6 Subscript[$CellContext`p, $CellContext`b]) (0.2 + 
           0.6 Subscript[$CellContext`p, $CellContext`g])^2 == -(-0.8 + 
          0.6 Subscript[$CellContext`p, $CellContext`b]) (0.8 - 0.6 
           Subscript[$CellContext`p, $CellContext`g])^2, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0.6, 0.4, 0.2], Thickness[Large], 
         Dashing[{0, Small, Small, Small}], 
         StyleBox[LineBox[CompressedData["
1:eJwNxsVRAwEAAMCjFFqiBN4MdADBCYHg7u7uHjRA8ODu0gX72JlNTc9Ky0wJ
giCDbMkhRC555FNAIUUUU0KYUiKUUU6UCiqpopoaaqmjngYaaaKZFlppo50O
Oumimx566aOfAQYZYpgRRhljnAkmmWKaGWaZY54FFllimRVWWWOdDWJsssU2
O+yyR5x9DjgkwRHHnHDKGedckOSSK6654ZY77nngkSeeeeGVN9754JMvvvnh
lz/+AR1XTkY=
           "]],
          FontSize->14]},
        RowBox[{
          RowBox[{
            RowBox[{"(", 
              RowBox[{
                RowBox[{"0.35`", "\[VeryThinSpace]"}], "+", 
                RowBox[{"0.30000000000000004`", " ", 
                  SubscriptBox["p", "b"]}]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
               RowBox[{
                 RowBox[{"0.35`", "\[VeryThinSpace]"}], "+", 
                 RowBox[{"0.30000000000000004`", " ", 
                   SubscriptBox["p", "g"]}]}], ")"}], "2"]}], "\[Equal]", 
          RowBox[{
            RowBox[{"-", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"-", "0.65`"}], "+", 
                  RowBox[{"0.30000000000000004`", " ", 
                    SubscriptBox["p", "b"]}]}], ")"}]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
               RowBox[{
                 RowBox[{"0.65`", "\[VeryThinSpace]"}], "-", 
                 RowBox[{"0.30000000000000004`", " ", 
                   SubscriptBox["p", "g"]}]}], ")"}], "2"]}]}]],
       Annotation[#, (0.35 + 
          0.30000000000000004` Subscript[$CellContext`p, $CellContext`b]) (
           0.35 + 0.30000000000000004` 
            Subscript[$CellContext`p, $CellContext`g])^2 == -(-0.65 + 
          0.30000000000000004` Subscript[$CellContext`p, $CellContext`b]) (
           0.65 - 0.30000000000000004` 
           Subscript[$CellContext`p, $CellContext`g])^2, "Tooltip"]& ]}], 
    InsetBox[
     TemplateBox[{
      "\"\[Gamma]=0\"","\"\[Gamma]=0.1\"","\"\[Gamma]=0.4\"",
       "\"\[Gamma]=0.7\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    Thickness[Large], 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    Thickness[Large], 
                    RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.023999999999999994`] -> 
                    Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    Thickness[Large], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    Thickness[Large], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.023999999999999994`] -> 
                    Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    Thickness[Large], 
                    RGBColor[0, 1, 0], 
                    Dashing[{0, Small}]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    Thickness[Large], 
                    RGBColor[0, 1, 0], 
                    Dashing[{0, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.023999999999999994`] -> 
                    Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    Dashing[{0, Small, Small, Small}], 
                    Thickness[Large], 
                    RGBColor[0.6, 0.4, 0.2]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    Dashing[{0, Small, Small, Small}], 
                    Thickness[Large], 
                    RGBColor[0.6, 0.4, 0.2]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.023999999999999994`] -> 
                    Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          GrayLevel[0], FontWeight -> Bold, FontSize -> 14, FontFamily -> 
          "Arial"}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 1, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.6, 0.4, 0.2]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                    False]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0]"], 
                   Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                   Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 "Bold", ",", "14"}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"30", ",", "10"}], "}"}]}]}], "]"}]& )], 
     Scaled[{0.99, 0.5}], ImageScaled[{1, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->0.6,
   BaseStyle->{FontWeight -> "Bold", FontSize -> 14},
   DisplayFunction->Identity,
   Frame->True,
   FrameLabel->{
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)\"", TraditionalForm], 
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(b\\)]\\)\"", TraditionalForm]},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   Method->{"DefaultBoundaryStyle" -> Automatic},
   PlotRange->{{0.5, 1.}, {0., 0.5}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.02]}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[
     GraphicsComplex[CompressedData["
1:eJxtmAk01G/UxxEhirTYi1BZEkWL5LbaQqgskWxFIkuWbEmWtChbEQopUbaU
nRDC2JfGvsw+w1gilbS8PzX/+Tnv+/6Oc8bXGTPPc+997ud7H0lbV+MLbCws
LDRWFpal13/PDPz3W5HLIPIzDR9iPCIGN8xrKL5vGDmC6LqVdb3czvMaU83x
+28WT0OgIP+mgP718PftRdOgHC0ddVRzA7xyxuAVEB1q3Rd5rnMDyOSzW1fH
TsOudW5bi69uA2mdGORnGrKG0t8vymyHE9TN/KVR0+B/a/VWLVZZ4FXnbTBy
mwaIlP1i2asCA38XNA336hfzz2aqgr9d5ga80zQ8/5Eop5ixB2S70/T36E/D
fqsy20nNQxD99wumQckgz9ZU4DBgEwzqnOSmIW2/SCbdRgu0l75eehqk8g5o
ZrVqw3B0426K+DSIv2Z1O5OtC2F1WQntpCkQT8lJrq09DYV/NzgFFxxY96S4
m4BEkfUNwfYpUJBznXfONgPJhdzugGdT4PQ7TyxvtzVs+bu/KbD7lmtq0W8D
LAVXPc5aT8F9t0i5MVUHiPq7vilYcV1vsEnWCU4XK3z3k5uCu+ouYolZVwAb
/Y312+gkGKtaSGAiPcH5b3wnQUNo6bkGoTOWYjv9J2Hh6nz2dmwgiITu1PK3
nwQB2jWOoC9BjP1NQrBFs75RUAjkJSUE3pukw8yzuMPYjnBQ/zSa5lVOh9Ej
Oztlte6A1N/10uHkJ7MfMQKRoJeRu0PQnw6+sVmXm+vvM9ZLh90hQV5RFtHQ
gD//RGo3HWL+JRK2fHbsJ/PSQVzHoeoPKRZ+/1l6JiB6fa4Wzi8OogIuuD0k
TIBRzOMwb+xDON/V8v3Nswk49lBBI4KaAInte2bdPSbg7zZdkhj5ngBiWc36
hewkODbqcVxffQKMTfZe2HjhKagXr1LoHBuHffdOw+RsGvyr13GIL7brkhd7
BkNpysH3+8fhy8Xsvcryz+D69UyFTdhxxnqfQbi2NFnQbxz67Bbbzc1eMOpl
HPK7XeVbRV7CoW+fUgfEx6Edp1YnWJoJ949r8EYM0Bjrew1qb+fbUupoULPb
YvqnTjYjPzQwrBgUtBzJhoW20RGVKzT4UR0lOrMiH5x7lD+ed6KBx7rRrBKR
fEZ+aJAgWhotWvoGturUtZ0XoUH4oGZV1Lc30HnU/XPfahpjvQVQoVgZwN5E
hVNGqaf+/H7LOD9U6NsWi0S2EEIty17/8KVCKZfYzIJQEVwNOPLU5zyVEZci
0CdIB4ntoIJUBFu+0bES+JuePxRIfbz0lMJQRhdGE0+Bhkm2XZNBZWByrItf
op7C2G85RE5Zd5s9psA1T86kj5gKRn4oMOsupH9p33uovmyyQcWYArteHm+n
SVXBJ/OLHLn7KYx+Ug3Gs3sEKngp4CpwxWV/fTVjXWRI9BexKX1ZA72POrZg
G8kg1CR+5OPvGtDd6qSSVkpm7P8D7B3ZYnApnAzbePKD92rUMv5Ohmu1L8LZ
3ergOP6MtNVxMnyGeuedIXXQgv3w7uYRMiNOdZCSf7qVJk+GaSH7fSqc9dB6
LQWXzEGG1PcqXwxa6xnrJEO+VaXf/Hg9YB39n8l2kxjr/AgLRCk2gQYSEGMf
cGmLNTD6HQkGf3v2/vZsALcacuzr2yQwkSPiulwbQfXZqpvgRGLkuQlW+n/W
NdUnwRFVM8OMhibG30lQJs2+q7gQA5LEvT0rBEgAv8s4A6WagXux5dEIB4kR
52Z4xHm7JrWXCC/ytU9uCGmBDisN0/dNRCgLXZm+sr8FrlR4LRJfEBl12Aqr
gmYFxJ8SgePt3m3y5FZGHIhQQL+qra/UBud4tTydLxABx9utEanXDhdEipJI
OkTGuW2HE3yrw4N3ECF+kwjvCosORnyI8Hlm6emA7aUNQwZfCfCY/R2b0tpO
+Jp+gzNthsDYVyfoJ3mIrBwgQK4FrA9364RZ43WbGqoI4IlxbSto7IQrf9dJ
gIwg/rk1lE64p/WSopVIYJzDLsBsqQ0ZvU2AKz/n8F7BXYw6JADJQ0VRi9AF
uVIczpGnCRAclfzT7kA3WHbwqgZqEhjx6gZOc+qt+s0ECIi8FXjxazc8f/J2
sWUdATRpuMQ7kj2w59MPrpAveEbf6wGhQ3ozARN4oExejXco6GHkHQ8KBrhr
BfQe+L2uT+V1MR4Wt+VfMnH9BMKRkOn6HM+I9yfITrjkpRmKh5Tab7s378AC
pipXY409Ho7v5bdKfIGFZtsTB1LP4BkcwQJha8TAMSM8mHqYa+VOYBn1jAfe
3nS3g6t6ITysOOzpJjyQa4bIc6964c9bZ1UXLjwjP72QdWriqy4dB54zjgKj
Tn1QliOskV6Dg7xJq0w2vn44dehVKlcFDrT+fnA/PJST3Hy4DAcPlRZen5Pv
Z8QfB+ybRO9d39cPa0XTEn0jcPApXZxuTe8Hg8y3z5vdcIy+PwDTxiQs3QQH
gy8wOf05A2C6UDqbsQ0HldQjEZEOg8A2Fja4fisO+v8FDvQI0sYxMjgYM7sy
WeQ6CH/DLI2DtBrXZy+vDoJFdjS33Zcx0A50fjGuPAQSOdmjkkNjDG4Owfes
279Ma8egeVUw9uKXITis4BKdFTMGyhtY40SKhgFefxL0RfTlv/sYBpYVJ1de
QrT0SSVl0eJhRr2PgYdwzKFERE+ft7J7YDMGJ5KuqvzwHYFIOZ17cjpjjDyP
gGN6UuR2RNtevpHjheh/+RiDdMzq+DBEb+bwUK1TGoN5nyrJr+qjoOZ2mCtW
eoxRl6NgV36rMQbRfNwqA8WI/rffMXBtfNZbiuhN8fDaRmgMhEh0Zb+no7C6
xVNdR2CMkYfRf+tF9PScRuuS5iKfbVTiHYOgl86/1dtHGedv7P+8/quHURB/
b9aw9P4sU8efS+//7/OeWQmVL31ex+L43uXf53FJ6fnSeqpvt0ktree/9fZI
eWgurfe5xqn8JR3N15y1tJ+ntGlCzLL9Cv+c/1mLxIN2oSF/HonHf/HqPcm9
JhiJFxs/sXkbouOPrZXzRLTLIctLssviLRInlxKJ5CNtBW/2VyQf/+UrpiOA
yxvJV1ej6FdbRH8caOLnQ/TnG9pfXJflu+giVTQe0Vqpq4IA0Xm1cw90kHrZ
p3FmUQepl4iCJv8/g2g9kUYlxjSRerMg3jEuQOrtv3p8u+Lo2C2PQVhV/dvX
BqlXS4EtB88g9aqwTbkEI4PW8405+0OrkXq//IVOr3YchLR5+PEUOQ8wEfTl
IHIeTufJd+xedl58Rh/8YUfOU7rCYqHPBHrezt0cdn6v0g8WDdOmiaU4kHR6
JM4v1w/leT6HOcvR8/ocIh74ViHnrSmYw2RdP+ynJvyxn8BBrHCd1LpLfZCz
ZfhN40q0H9jgerqdxPGQ7CsYci+zl9lPpv24HgSy9oLhmv5fBSfxoHx4MfIO
FQvaGv5zcqfQfmR6Zy3OxQoP8s90hQfzsfCUunHdsZt4CLUzdhWRxYLI3t9H
salov8vYPaUhXYgHfYehQG2nT8x+Wd7M8mhusAfMXwfJWVDxcKlugEc6uwce
aGX6eU2j/baQKphlzkkAmVPCh9zVkH77evbEjCjSv3clc1RMdQOdOuT5BNB+
TpFUlx0/SYC5e6t8xHd1M3mg4/iAuKqhC2KUFTYahRLgt/BHTnPvLsD3HxQV
iUZ58h9vuld/rs2o7QSD25te7iglgPze8LGg8k440SJVeA3h09uFoZHUF51w
4HH93kQiyjNSs7jwrSkCCMhZ+6eydjJ52NR765hVfQfi38gnLkoT4URMS3yL
dgdwp9QTZdRQngaF+oz2nCWC42TchOKWdhgWaPZ6GEWE8Hfd219VtoIly9ud
ydEov4lJTS+HlvTWOD/ZQpTf8xuobtYFreDTpO4bhvB/W4mgYqZuC6yRMA82
ohOZfqHusuPoACsJMGKBKv14DNNv+ISY9GG4MNAmeIudqkaC85m5e2iBTeBQ
/Tw8Rwf1K9SkpMgSTxKoxhU3rhRrhFbdhIYt0STYnX/mpKFHA3yw7Ayxf4X6
o0TVyztN80hwCZtdaVn5kemPXtl4u7FHfwRz65ef2sdJ0GF5uk7EFvVbjsLJ
qyOpdSAjYWW5nw/1awc6nT4rbSNDw6JQmt+qOqbfizd7zm2iXwuCx0sfR9iT
ITODO/9d0QewOeSnJ+WL+sXetSlJpGdk2FBoKsPuUMP0m1k9zlcNoBpuXEuK
MMWTYas8i9ZL0WrYoew1SaaQmX6V7nPGOGMjBYxyd0of2PoeKvfuVp7aQgFh
ToXcsqxKGGKPpgedQ/2xfM3HzyX2FLDl3nO/Qaac6Y+j6jz1HreXgc2FQbOW
lxSYxmk/E84ugcuWM63igxSmP79/o2LmAB3xzx5V6voHi5j+nGjmmyxyvxB8
X210EdtFBatrv39wDryFDQZXRfbaUpnzgRzPrroQxP9XqWg9WLj5hjkfPOWw
i/YqzYd7Qq91b3+ggmXOD/VS91xY1Fc5oTlPZc4z+yfnO48j88bEhRDH6e9Z
zPlklE+i6EdKJqjS2DDd5jSwjlVMVX/yAuzph02r4mnMeUrJx+HiyUwadI8Z
i9tbpzHnoai2BQPDp6nANePfgP1OgzUlE5gHEYmwRyy+5+uecfi684720P04
5vzVLzjS19YWA/0bhfdTDMaZ86V35udbAanjwLsg4fTrUxhz3ptpyW29l+wD
7Lw467Fv44DRf8rxysMZbucEYVpkJpj3Gf+bm/XG83VLvPx+I+3bcl7+lBWN
WuLjnLP8juW8nDW9FvuXlxet2JbzcjHj/tQSH7VWsfgs6b4M6b1Luqd7KnI5
LxfclX2WeJllpPHiyzJejjoXnPRGeKhkoMC6FdFz1WlxboiOjq8q2bqMl5Lu
4W63EV7mVtYaTC3j5RfN84oSCB/7CQnJpxHdw193bhbhocm+Hsuzy3j5NNw8
4zKifay3Oz1C9G2L627bEF7SXZwqOBBedkQdOJO7jJfHroeeYkd4KSxpvH/H
Ml6uerd+8xDCx+DQWtkpROsmvU6+cmUQ9J/VOYst4+X73oNhmYielj9gd+fy
IJi6PLWlnMHB6wH1+rbXA7DPlEJpv4LyMoO93WU2HAcsPr4xxjSUl7Fh9h3N
iF/NNO9QEyjBQcV9U8Kfrf2QsJZNI78E5WUqf6N9DOJvCdvYLKTFkf8Xu3FC
h4aDP8Ex5YP2feBI+4z/zoby8tGTMNFEETxwzF4TmHiG8tJnNxETRMfCr9Ki
15x6eLibUETbjcNC2yvfmJv6KC+953alihjjgd7OmRTchIWjlziS4gLx0G6/
M6h8MxbUTQJvP05AeVkj43z1aB4egk/0kcOtUF7y79oRF/i2Bz4QnPQFcXhQ
U31jlPykB0J6gLaKiPLyEWnK7swkHuzML2N8r/TAK997nwWQeeZDW7sh63A3
4B0mzWSVUF5GnPNZ2HecAKrswYLlYigvnUrumajf7IIEunjyPR8C8ERlreuw
7AKZtQdyKwNQXt6YIffciSSA1huTlADuLtA+d3qA/xUBJEY/a2o+6QSLfOkE
WQzKR2JY3bnGIQLwP81hlxpB58WW6uwWybMdUOCnFlLERwTbec+VLps7YEeK
60pVIZSPty41RBioEIFgjh+qV2wH7vu/40aOEOHBujc1Zz60wVHDdqPtDigf
Z7zE9I56E+HJ/VGeOk2Uj6Q70j9/X2uBVd8u76ZmEcH9Ss/G3S3NEBqn8JhU
hPLxX/yJcD7J/sEvOwz0phiQO4aJsGFyg+EbYwwc9rdd0Ugggv2UgnX5Ngzs
u54wVsuJ8tH+a4khCzKvF2/xdtAdaGTylbwvN0fiTCNEa6fz+WmSoF8T28Fr
1wAafgcvFJmjvJRq38lxxJ8E0epV67km6yHO4Ml3pRQS3Ar4/n12pg4mD9dC
XjaJycOfpKZei3wSWF8dadG9Vsfk66me3GOTunUwbUgqwpBI8PgHWzGOvRZk
X/E/2cWK8pAr/zh7rCjCW+MDZ0diapg8bb91c9DTshpKv12eKzEiQ6Le3VCj
LdXQQKMJDJugPLxd8q5zwokMutbp7B8/vwf9wUblQxFkKHK+3Bt7sRKwmNFv
erlkJg8d2YVzFKrI4OJ8NjL3bhmTv58PlxhLCpZCTnmRTshXMlwZLtQXeVcM
zvpa04qcKA//xZMCsyWkfV7nCiHJxjdPW5ECZbX7TH+OvoMX9SOCqQYUUM+t
zh04/BY27RXE8NhSmDwUOZe0Kvgiwl+TIh5vvgImjw/YrRn+8PYN1N9Uf6SU
grzf62yEcVguzLgc5dtQRWHysERiN+u5Pgo4fUiZCp/LZPLYyli5WE3qBfCE
a4TwCFBBL0z549CldNjKqR7wTZzK5OG/Vyrwjd09xuGQDNnqjv6H9aggU2b4
51RnEoThFOs5zalwVajouqH7Y2jSDskLDaIyeUcJDfjFdosKX5Kj8s6PRTF5
nrtd+K5TQiQUaAmeNEF4bqAVdOThymtQyVno1UegMnmXNtJWoauE6lsn6Udc
NlPh2N9fXEHukZq2EPd/33eTuT/6LiX5qxHhcL3rOr874kdmqJrHInMfwLyg
nscKPIW5Pn59meBaJF4WN1Nc3hkmgmFzMjWqlALn38rvu1iXBOY+R09tj6Mw
41E437HYHE6BIwKBCd4D6cx8/OqLEtNtz4BdjUbPJU8j/9+Se8muJwsi/RKk
X2ii+VirMcYTLUmBOxVl8vT2PCAplnETRCggJHpq0Vc/Hw7n+o95LZCZ+T/b
1n9OeBqpT1l1TDC5gFl/GrUX3uHXvoPoObVfpRVkuJ/cS2snFYKx5zt8djaZ
WX8FRgFiHnfIUIb15BoglUA0b8YNQ8RfDnuHO5rSSyGMxbFQ1hqt9/OPCycO
mZHh0LnOjMfkcub5mrTs1XFrq4BswZEWma1k6Ep42cNNfQ9ROye8fq1Dz5fb
5MLPzV9IwKXNe1BgvhrqKx/ejx0gwa6k1jXHymqApneNZ00jiXme54dt8hU/
kOCN4nyyu/cHZj/Y1vjO8GvrB0hOjtQ2iiIBTn/ygcT3WgjMzdniFYD2k7GR
uzy3rEgQ6r9TUcyvHn6ObjMx0CABcU/bzUDPj8CqQVrBp4z2q9tTN5XbFUhQ
NnLazObnR2a/O7FGOdJbvQHsOwZEZReJUHznV+zk9UYwS3B+NUciMvtlD1ZP
KA6ZV3ia1gi9Z8WArxmsU3hOhAjfUgn5rc2gR+ITYU9C+/Oe/Va2fAlEkPJ5
0tUe2szs7z2tUfJ/3jRDxZ8ai8SLRGgu9NKV4GqFi4ZnxM4aonx4qJNkpqJK
hBpW6Y7su20gNfk4bpQH4cGJhJzgjnYw6vx8r4cD5Q9hwS5+aAUR6uYaFEs5
UX6Np/gDbWMHxE2e94vpIoC7C/FgcVMHzK9Oy7pTjvLvTcv3s2fSCDBbqabd
frcTjCuwM5JeBEgX9nEwUOuCkpSR4PPuKF/Fsvb4SbsRYD33YPsfffR+U4Kn
KTXetAuUHDYf+KNBgDDBzkQt/m44WToV4LgN5bvLGstF4mpk/v1+xf5FVzeY
wWOnN6N4GH2xsbLmdg9IyR4IvjOM+geHJ5t/9wwh83ymyFvBh+j9Jjls8Xpm
Yg/4Vhm8bHuNh7nrTwyemH6C3qeKcb2xqH9RuUky7fTDw5tH099VRLBwXGnS
1/AEHgxMYikberEwM3ugaZ8u6o+ImrjTQ4ifOlvAoz48hN5vcjvKapSMYmEM
t3rFtBAekvxu4+JSesFoqCC5ggX1Z9VFlHouKg7Si2zyz9r2gSl+YrauGAfe
oWUaVVv64TrH8caTxaj/+6bWR9iOaDMjB9UdMqh/LHL3FrZF/OIO1/APBoi/
5NOjHuCh9kOlEGvnTxfUf2azqjb4Iv70zAqn+3OvBiB+gvtoL+JvD7KnUxQQ
P0s3fVr0Thr1t7QZy/1ZiBbyHCknuqD3m/jI95aHED+859v5oKG5MfglwB09
rDQEyTjuvsBl/rqr5vkfAcR/X1crHhiaGwJfo6AqI8Sf12CG9mIQf75lZ5C7
/jL/bpNsxqaHaGLwUVlcEXq/WdFvn0JH9CzBdiocmQ8M0wN0ach8kPFyWFRm
2fwQuZ5lamneyNHXQew6er85pS8+7IpofN7M1qX5xL+1gn1pPiH0m5xdPr94
2SSdXtK7z1jMFi273ySd2iOxNO/InUPGE2Q+2umOjCfIfNT1ABlf/p/7TZFZ
ZNxBtKpveO3S/NXXWvvl/7vf/B+DZm7f
      "], {{{}, {}, 
        Tooltip[{
          Directive[
           AbsoluteThickness[1.6], FontSize -> 14, 
           Thickness[Large], 
           RGBColor[0, 0, 1]], 
          
          Line[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
            19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
           35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51,
            52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 
           68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84,
            85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 
           101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 
           114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 
           127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 
           140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 
           153, 154, 155}]}, 
         Subscript[$CellContext`p, $CellContext`b] 
          Subscript[$CellContext`p, $CellContext`g]^2 == -(-1 + 
           Subscript[$CellContext`p, $CellContext`b]) (-1 + 
            Subscript[$CellContext`p, $CellContext`g])^2], 
        Tooltip[{
          Directive[
           AbsoluteThickness[1.6], FontSize -> 14, 
           Thickness[Large], 
           RGBColor[1, 0, 0], 
           Dashing[{Small, Small}]], 
          Line[CompressedData["
1:eJwN0VNCRAEAAMC32XfoSh2hA9RH18lus21zs23bno85waRnZmdkhYIgyCGX
PPIpoJAiiimhlDLKqaCSKsJUU0MtddTTQCNNNNNCK22000EnXXTTQy999DPA
IEMMM8IoY4wzwSRTTDPDLHNEmGeBRZZYZoVV1lhng0222GaHXfbY54BDjjjm
hFPOOOeCS6645oZb7rjngUeeeOaFV95454NPvvjmh1/+CMSEiCKaGGKJI54E
EkkimRRSSeMfExFS5Q==
           "]]}, (0.05 + 
           0.9 Subscript[$CellContext`p, $CellContext`b]) (0.05 + 
            0.9 Subscript[$CellContext`p, $CellContext`g])^2 == -(-0.95 + 
           0.9 Subscript[$CellContext`p, $CellContext`b]) (0.95 - 0.9 
            Subscript[$CellContext`p, $CellContext`g])^2], 
        Tooltip[{
          Directive[
           AbsoluteThickness[1.6], FontSize -> 14, 
           Thickness[Large], 
           RGBColor[0, 1, 0], 
           Dashing[{0, Small}]], 
          Line[CompressedData["
1:eJwV0UVSAwEAAMHlBbhDILgT3N01JLhDcF3c+TvNoavmPtFUmLxPC4IgJF1k
kEkW2eSQSx75FFBIEcWUUEqEMsqJUkElVVRTQy111NNAI00000IrMdpop4NO
uuimh1766GeAQYYYZoRRxhhngkmmmGaGWeaYZ4FFllgmzgoJkqyyxjobbLLF
Njvsssc+BxxyxDEpTjjljHMuuOSKa2645Y7/CSEPPPLEMy+88sY7H3zyxTc/
/PIHxMsg7A==
           "]]}, (0.2 + 
           0.6 Subscript[$CellContext`p, $CellContext`b]) (0.2 + 
            0.6 Subscript[$CellContext`p, $CellContext`g])^2 == -(-0.8 + 
           0.6 Subscript[$CellContext`p, $CellContext`b]) (0.8 - 0.6 
            Subscript[$CellContext`p, $CellContext`g])^2], 
        Tooltip[{
          Directive[
           AbsoluteThickness[1.6], FontSize -> 14, 
           Dashing[{0, Small, Small, Small}], 
           Thickness[Large], 
           RGBColor[0.6, 0.4, 0.2]], 
          Line[CompressedData["
1:eJwNxsVRAwEAAMCjFFqiBN4MdADBCYHg7u7uHjRA8ODu0gX72JlNTc9Ky0wJ
giCDbMkhRC555FNAIUUUU0KYUiKUUU6UCiqpopoaaqmjngYaaaKZFlppo50O
Oumimx566aOfAQYZYpgRRhljnAkmmWKaGWaZY54FFllimRVWWWOdDWJsssU2
O+yyR5x9DjgkwRHHnHDKGedckOSSK6654ZY77nngkSeeeeGVN9754JMvvvnh
lz/+AR1XTkY=
           "]]}, (0.35 + 
           0.30000000000000004` Subscript[$CellContext`p, $CellContext`b]) (
            0.35 + 0.30000000000000004` 
             Subscript[$CellContext`p, $CellContext`g])^2 == -(-0.65 + 
           0.30000000000000004` Subscript[$CellContext`p, $CellContext`b]) (
            0.65 - 0.30000000000000004` 
            Subscript[$CellContext`p, $CellContext`g])^2]}}], {
     DisplayFunction -> Identity, AspectRatio -> 0.6, 
      BaseStyle -> {FontWeight -> "Bold", FontSize -> 14}, DisplayFunction :> 
      Identity, Frame -> True, 
      FrameLabel -> {
       "\!\(\*SubscriptBox[\(p\), \(g\)]\)", 
        "\!\(\*SubscriptBox[\(p\), \(b\)]\)"}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], Method -> {"DefaultBoundaryStyle" -> Automatic},
       PlotRange -> {{0.5, 1.}, {0., 0.5}}, PlotRangeClipping -> True, 
      PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         AbsoluteThickness[1.6], FontSize -> 14, 
         Thickness[Large], 
         RGBColor[0, 0, 1]], 
        Directive[
         AbsoluteThickness[1.6], FontSize -> 14, 
         Thickness[Large], 
         RGBColor[1, 0, 0], 
         Dashing[{Small, Small}]], 
        Directive[
         AbsoluteThickness[1.6], FontSize -> 14, 
         Thickness[Large], 
         RGBColor[0, 1, 0], 
         Dashing[{0, Small}]], 
        Directive[
         AbsoluteThickness[1.6], FontSize -> 14, 
         Dashing[{0, Small, Small, Small}], 
         Thickness[Large], 
         RGBColor[0.6, 0.4, 0.2]]}, {
       "\[Gamma]=0", "\[Gamma]=0.1", "\[Gamma]=0.4", "\[Gamma]=0.7"}, 
       LegendMarkers -> None, LabelStyle -> {
         GrayLevel[0], Bold, 14}, LegendLayout -> "Column", 
       LegendMarkerSize -> {30, 10}]], {Right, Center}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{3.652421474291438*^9, 3.653538724079126*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fig. 3", "Section",
 CellChangeTimes->{{3.652421546732644*^9, 3.652421567171362*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"sol", "=", 
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{
        SubscriptBox["p", "b"], "[", 
        SubscriptBox["p", "g"], "]"}], "/.", 
       RowBox[{"dBoundary", "[", 
        RowBox[{"3", ",", "4", ",", "0.25"}], "]"}]}], "]"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SubscriptBox["p", "g"]}], ")"}], "2"], "/", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            SubscriptBox["p", "g"], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SubscriptBox["p", "g"]}], ")"}], "2"]}], ")"}]}], "]"}], ",", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SubscriptBox["p", "g"]}], ")"}], "3"], "/", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            SubscriptBox["p", "g"], "3"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SubscriptBox["p", "g"]}], ")"}], "3"]}], ")"}]}], "]"}], ",", 
       "sol"}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["p", "g"], ",", "0.6", ",", "0.95"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Thick", ",", "Blue", ",", "Dashed"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Thick", ",", "Red"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Thick", ",", 
          RowBox[{"Darker", "[", "Green", "]"}], ",", "Dotted"}], "]"}]}], 
       "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"LineLegend", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\"\<B(3)\>\"", ",", "\"\<B(4)\>\"", ",", 
            "\"\<B(3,4,C=0.25)\>\""}], "}"}], ",", 
          RowBox[{"LegendMarkerSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"30", ",", "10"}], "}"}]}], ",", 
          RowBox[{"LabelStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"GrayLevel", "[", "0.3", "]"}], ",", "Bold", ",", "14"}],
             "}"}]}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"Top", ",", "Center"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(p\), \(g\)]\)\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(p\), \(b\)]\)\>\""}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "3", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"White", ",", "Yellow"}], "}"}]}], "}"}]}], "}"}]}]}], 
    "]"}]}], "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{InsetBox[
     GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxdmXc41f///yVUSCKraWRFsjOfD7OsMkKUyJa9d5SQWZHVUCokK6soM7vM
kERR5tmV+Sbpd75/nNfnun7/nHO9rnNd53qd63Wet9vjfn8IOPiYOdPT0dFF
UV/+710Yt/OknNwMZPzgZFKtHIbTHlzV4R4zkDb2e5aTOAT+9ObsUUUzsLrO
P32YdwjuHly5GPxjBkzIfP4/LT/CRbibZsI3CzfobS+p5Q6CZLBj0bzFLIgv
c6SKVQzA8omsMr9bs6B4N/Owv14/dPzduFvXMwul6//ezvX0gvqIjdOPHXNQ
LqQeMW/XAyXHBYT+wRy4W3y0PcL1AYQe8LSNRc7BciXBRaSuG9KSfU2fv5oD
Th75kfsRXVAY2/n+PJl6rXOJjflsJ7SnnRVqF5+HKv+RY3XsHfBFQNlD2GEe
XqobpK38boO1DosMrcfzwHGryehcRys0+Ps815yYh13Od1vji95ByFNikQLn
Auxa2kRHi1pAbf5e8pzxAthE6mrKKDXDWmmxTVLCAvCNyDrcsWyE+ptkNmLH
AmxuDBluXK4HEY/jJcfpccDMFcsynfAGEj4OKDir4OBR54BpyHQtLBnmP7EK
wYHf1+CUHxKvwVx/4o9GBQ6iL2Ru2OXXgI3xHg0WHA6OMu9Il1SoBq8rQc5p
R/GQvbGyXeBNJQQxoTDWS3jIMdVwsXOtgPhaJW/t+3h4LrAq08ldDshP+ozN
KB5ul8k42t4uAXJZ0n53NgIc1/t8fdLsBRRscb+XMySAKpw4FrzjOZwbYnRZ
vEEAy9lljYFtBVBU/puUXk8AnQ7bZ16Cz4Dp8R6Ln2sE+IOff0tUegIXOe6U
aEgTQb3S/dJ13sfw5p7WzBkvInDSfRF/WPUAduef32VSSARG64i7JQ05sLP2
Cp/8JBEcXjM1c+/Igt2TZcwj+0nwbqzD8JbRXdiZYE5wO0eCFyI/GO//vgOs
p46XvLlDgtWY8pvDJ1KhlnW7JamXBFx/zEwL1hLA2lL1JycjGT7n37oVZhcH
DDUFV9Y0yUBihiDcp+tQkOE/NBBOBouK0EtKdVeBfFVNOKmKDOv8J5fWw0IB
IpSs6X6SIcd66ZiZVwDc/JMV4SFKgSB77Z2BWd4QWHnHwcWFAop8strqT1zg
tfieFUvjGcjUsylpODMMUaOcP3GnKGC3P0XjvZ87UHaycutqzkAU3/tQ++hh
oL9ioXDsJAUWY4wFosM8YV17qOi5JQWCD9tt7Y92g6TQJBE1lRkIjCRVns4Z
Bh3Z4DGDExSQ1vNRORvnBWq7lwy7z1LgW/nWo5GgK/A6vJLxpi0F3lirRWWm
uoJVxfvyWsUZ6NL//aY5fxjms5iOXZSgALu44YTCbm/45ncjd8yAApe0vQVE
l66A1ZTm+ewLFFjp4BCrYnQDLm6BmmAHCsi1ZQu3c7sCMsL7r8jPwITCi7XN
4mFQfN9v5ihOga+hJhzFpt4glW/Y+V2PAqafHpw4K+sORXuZrz22osB89+I/
NS03cNHDf426TL1ffGDQdjNXaJ+xSvZ2osBJDv2AzxMuILt/3Xwf9ftNr/fN
HigfBttpWVdXMQoop5adYwj0BsvGl+Ozpykghd+muM3MHQaPeWc8O08BHoW8
nCeX3eCW/ZnfMXYUyHdjFGj1cQXSZsNjf0cK+IoEhmuvu8DDD8vB7s4UKP5c
wnqtyQVoPCN0+f8Z1uzDeOYd7dg9frEH41npp4J1Haf3GM+eNnco8+R3YTxT
MHbvd97WifHsS03fhp5ZO8Yzja1tpo6fWjGeVWXH8T42fofx7GPeh0t3B5ox
nh0WaGJntWrEeLaH9O+P/ae3GM+q0eeo+md1GM9YHx6x7Hr8GuOZh6YIr15m
DcaznPzoP+YDVRjPqn3m6FSYKjGeRTa3PTDtL8d41udmWaq2rRTjmfACj3iM
7AuMZ8PK2ce5uwsxnmUfT6QM2OVjPLMeIf9eU3iK8SyJQZdLwSYP49l2BinZ
LtZcjGfvvMUZbpLuYTyrMmmG0CPZGM86HJrtdtpkYDyzex8d5M+YjvFMkLA+
TAi6jfHs1WW23O0eyRjPFgXZbmxnSsB4xrby9VJsXSzGMw/2xEjxtesYzzI4
rrhK8UZjPKuo5nev8ArHeMYYctr16t1gjGf++4x8WOf9MZ75j1ddyOr2wXiW
v1uQ/l2uO8az1UqZZyYtzhjPZhlOpIyP2mM8G390dCjK2wbj2bfhCM5mb0uM
Z7VfVfRz3phiPHM5MqbwbcUA49l4WK2ZdrAOxrNtwaKhdgkI41nNuJ9zXKoC
xjM43ujDuFcK41m4Ytgj0wNCGM/c9JZf6Bn1QoLMY0E6PAmMnLQOm2ycA6k4
39I4ITIssUh1l22dBfOjrI8cbckgHeue2pNyGvQTP/8pzSJDY2xjgstbTciK
VIGOQTJEy+yAH23K4FjvSlBgoYB14aduOm7Z//Gy/dEcUUQM42VhDv60R2cv
8B8xVVsdJ0FhVpLbj+MW0E7+1Ge0jwzhl1gcYjNNQJI0duO4CRkqJxgSyhX1
YY1N2LUpgQxiH54tW+zRBq2rqlXP35HhnoXE0VJONTA9MChw4C8ZBhpd8X/b
5DAeB85vmI1sHQNChHLv9BQZPvEmKuVmn4Sgi/+qTPgo0DT1dm9sjDTG65V9
DPWP44UxXj8877Cyur0PSFzH9H8PkyBhWrkyr9cC2J4m2FawkmHI/4TbB2FT
4DVpDubQp94PB31RGqcB9H/sOdh1nQxv3w+F3mjRhpy/9UTet9T7e5Zkb6av
DnqGsY27V8nw+olVMhTIYz6oel4SGHpNEjQ23zCaj5Fh7nGpnNMLJfBMrj6r
zUEBT36Gfnp9GcwX5M7B6M0BEcwXcj2TmjEGRzFf1DXrmEwI9oFZWtaA9yAJ
Tlk/UNc+ZAnymz9EpneS4bSLSwj4mAJbjOyvWF0yjP10Y9oVawAqco9DDKPI
cDTqMHFgvw60qkcmmL4mQ8q+CnixoA46jrYsNxfJ8PE5aSiaVwHzkTFPiN3X
U8fBQy38acoIGbwlxTQTFZTB7VnqwwY2CvSpk8ZelstgvuIJCstrCBPFfDVd
mKZJmT+K+cqRSyTQtFII8xXfpsxBC9k+YBjoTS/rp56nOI6FOV1LOPWCjeUP
ExkW6PkNjTNMYdcBkmSTNhn+ZoZbdTUYwK+ZnQWpkWT4p3/ovpOeDoxd+jrq
VUOGVLktrrqTCLR8DKvafpFh2LSh/L2ZAuZDukaJuyElx+GazfivoiEy5G/M
JXlHKoPLS6qGWCmQWlqYLjQtg/kyk2Xp1dyAKOZL0SaW4kuKwpgvDYg1vDf+
CmG+9OB13E1yFsJ8KcAUiOdU6YNJsutybx8JiHqTLwwvWMLgv6NXd1B/X1Gj
9hNSoSnEL+j1jGuRgfeGkcnpLwZg0NBYXx5BBvJe3woDOx2Y9mLdiqgmw5V+
teL/7BBorLxjnKbywtNK7hSfrwLmY11+c27+yeOQ7MnMW/uRDFORzZLcecrg
pPA7i4f6+76y/bfCsCmD+Xp5tzPXmT+imK/12Xr0nGyFMV9vzGvgcEJHMV//
9PU5E5cshPl6Jks/OU5DCPO1Ua7UW8WJfszXc2c0Vz9392K+DuiIspTJ+oD5
+vP3yVrrzG7M1+RnX9ZUSv7n66cEn/iRwv/5+hbFjtNw5H++9gysUG0ntWC+
zrbP/pip3YT5WquHsXXP3nrM1/eskkILO2oxX0vuUz9fOFmD+bpLjK4nX7YK
8/WAxF+LB/QvMV+PrpBHJp2KMV8Hmo+9T5gowHwtnqx5KHf2CeZrn0WzUdPT
uZiveV+y7v0ilY35Wvhubs5123TM17l6jDOOfCmYr8O2L9Wb6MRhvs4dbhv1
kr6G+Vpv/8fF3M4QzNeywx+bWx75Yb5+NnSXXLfdHfP1zoVoX7d4B8zXA7fS
ySeaLmC+VnmQd4r3vhnm6/+eyWqF9Opjvr51LGp8QVIL8/XsySL1vY+UMF9f
WE1NUv4tjfm6e9polKgtivla/pZ756eMw5ivJx9oSkR57cN8rbDzxv50embM
1xp+o2vZg3SYrxvGnCbf31tBNF9fYPlaPa5GQDRf5x1KZ9gh9h3RfL0xX/yV
vmwI0XztcOyP1pZ2B6L5+oGkp/B0fB2i+fpyW77WG71iRPN11i/v1OdVDxHN
1/vrVORtNG4jmq8tX8r7nIBriObrY0eEVCWi/RHN191KHjZc0i6I5mtmxjSR
usE+uK8vuHzScwEqWLafPFOaAdb7e1+pPF8Awcr00SXeO+AbtvsS6+wCfDLE
iz29mgDnH0X56h/GQdsNuQqNzBhoYntLnLTCweieJIfQDxGQ/6G5v/cuNa9a
Gzx6GhUIVkYrh0R6cbDyYlBJx8QbnGxazc4y4SH9qg5Z/I8z/K61/tmvgYdl
fYnkmRg72LKtX3oegQf2a3ocy+aW4JBR8824Dg/5livLzQzGkHX7m5zjIh6e
RUVPBpTpgv7o4O9+SQLsq4sL4VlWh0i3Wzx3XQkgdcR/OsRfHqJaIl60PibA
RhvX3qCDkvC5kE7g3RcCHFyZn+ufEYSKMWM63n3UvOlXM1G2gw+YLa+c7jpL
hPWtxzL25uwwc/jMan8iEUKZRjk8lhggqezyXq1W6nwXLLduve0PSvrAwhG7
SYSjfi/Ri++/ELPc9fDDJ0mw49Tsl6H8WcS80GKw158Eh6/59X3OH0MO4jl0
w+UkuHjbZpJVpxfR5qVjWwXbXsq0INq8NJvKueS8owrR5iWzYOKCd+gzRJuX
MtocKdHHMxFtXvJdnPnhGhaPaPOSSs+6zvlzoYg2L9lYjlutcnsi2rzUHTJx
usCiH4g8k81sttTzDjGZM/OZUOSomjidvQDK18d3ucinQda1v6/+jCyAr4bW
nj6UBE0Mo6mq7Dio3D05JDxzA4R+tbM/1cfBGl0tvR99FBixyNalx+HgTlzv
AeK+YBg1wKXINeFgZ3bAz49WvvD9k9t7yTUcbCtu3dFEdIWXd1yPVcjioau0
x6+b2x7eVkUqXvDEA+M3XWMOfytYLlgt0H+BhwLH97ikvybgTnezxW4WD6sG
k+TS56fhQOvx+IeHCLDa3s/Gc10D7lSb+TpaEyCZh/BB3k8R3N633BxPI8Cr
hnDdU1NS0HJsnan4AwEOr0ag1v+OwkT9y+LtTETYzib+xKjsAMjWRK7fACIs
TFxbmNHlgLNfuzxvRRDB3mFq7/cLO6BXzGa3fg0Rku6dMB8S2ULvW95y2ZCJ
YOsb/0P+wBJKScjWWhejPl+7yA+v9BdQYm3S/kYHEhxq6WIjqX1FtbXTFp2P
SdDHfe8NvdYgos2rG5+CmFPSWxFtXu04z8k6xfoK0eZVIxUXVq6nhYg2r54x
vLu3vigH0eZVcZGAgo1rSYg2r+ZtOoZ93xOJaPMqc7MRWYPZF/06KXruvCQ1
T9mw9xGsr4PV8ZedB9xwcFDSeU6gNgw2E8/MMT3FgfOrbZs29AEwfob+Je84
9bzX9dUz8ngCbvrAVx8uPEjbiXDcOOEEclOGNeSzePj2208ndtcl0GLZqFhJ
wsP1vO+1jo7mMBjjz2XZhQdiak/TDiMjaD0s/9yFjgASkrj978e1IYQQcGmb
GgGUJKQHceKq4HboQ1NrEAGSuNf5jR/Jwt1axZ7iMirPk+tC6DLFgSK4U3UM
Rz3PMUnvEukEIH7lp4WkIBG2CgaP9j3ihuk1i0xmW+rzOeJf0yS2G0Lth6L3
5BDBz6f2zK4uetCXdeZSHaSeX/+DpZPi/yGjERu2UhYSWEnP/1LvIqPEb+5V
2rokONCvXKR2aholc6+FO18ngWTGEXapsE+I9cGZkqlGElQveH65ldiNfmmT
dzKvkUCRnXXPa7kGdO8gS3KTLHUeD7jFPTxQjiJtoO6eJxnYujrNm9/moQfb
k+48yCeDitecuop0OqLlhysFJTf2cd1AtPzQYJGmu188CNHyQ9SoECP64oZo
+SE+73KJdU4/7PtXL7xhuQB6agIpJxKzwGTnkr/inQU4VHDxzr2uNBCLDXII
6FuAqX+BvybFkmGx9vpD+V04SNWM5D6dFgujlw2ebdfCwbSgKW+9ZDTkSRBL
g6JwsGxObNAgBAPXB3sdlVocpMSM7GBb94VHHA0MD3/ioDrjUvuzRTdgu0rp
ypPAw2A85Z98jz3k2Hw7X+1Eva5Q52NOt4bGcp6kzid4YL452BreZQojdRNM
tt/w0GR+rTSxRg8YlGxMtnMToDDU+Y+imSbs/1Lz0NCMABo/e2wKr5+EyTMz
wfNJBODV/pWvISkNNZ4rYYfbqP+XN73vTvOIgG/ZVPT6FgHe+jYIXuc9BKcc
482mT1L9fFZQI9+MExhUGcW8A4nw6aR/oU3hTvCct042KiOCQCZby4+xfwin
ms7TPUeE2zli1VdNl5FR9dPCeQESXCMXCJHrcKj7sQ8950XqeZZXOiyjOImm
t27SaeSQwHhy20Ku10dEy2+1JWeeN39vQ7T8FtU++GX/29eIlt+OS5wiv3Yq
QrT8FklkcRm4fx/R8tsDocxLB7tTEC2/iXapvG+TikK0/MZLUR5OlfdDR4lD
9ibCOPh58qOq8cp1YHkkb331Mg76LdknLRrCwaSYaRx/Hweh56ZbLRoDgK8v
wuXIMA6SRaI126W8oPCID8/UbjwEDQnhJ9mdIb1nyHTyNB6C3fbZIw1b4H91
YejsDTwcTZVW/W1pAfeS764PNeNBVCrbbSPvDEh+TiA7reMB9yCA2bpZBy5f
firqJk8AQQrTya/xarCoJUks9iaApzRztf4NOdipZv32dSEBUMgugccfj8G0
E0O50Q8C7Pz+YzeQBODAwhEJwQNEuCAbe+O/Hh5YLbSjuFkSIWe2fmvxKxtI
texR/XmHCEwKNSvio9uB8NPhLnpPBO2SYb5TKevIw1ienZeBBE9HdURzX/1E
BjuDuWUQCWxVvF4c8ZpBH7YmHOrDSMBeyvPOjv4zOjm9aGH9mgThV7cuip7/
gBpUOrkYf5EgZldpoapKE5odbDwgKEEGq4YKx5iSCuTWIlwS5UyGIycV2sV2
P0X+ndKn8nPJsMUvJXIs7y6i5Wl2vdHzQjWxiJanTRbXHc+WBSNang4w2RRd
cHBHBgMFsq7uJCgbz/FydxhHKb7qJUbPScB9pIbB1KwfmYuFnvjzgwQMv54E
xFi9Q2HKQur4A2S4fbOV3BJZjTQSFu/onSdDlcray6qtfMRvFFX56jYZYqp0
Oc+NZyHS5ttQxfdkuGp5WjfSNQFdIB6IF2OggPZWdVD4oXDU8lg+fRdQ4ES8
isXGhhfK+FOX7rdAhmSr35pP7l1HURKGPLb8FODa2GXN1hGAaPn/kMGIrGeg
K6Ll/198FKG2N/1QtFg85nNuASJ6bTRyJrIgf7zf9XLKAqg5ZtlncaTDYlyl
0sv3C+C/syvVNC8ZUtI+C1Uy4uCQsHXgcUIsnOBL9ZRHOAh6Ir6U0hENH+pP
iy6E44BnyTYz+XwI1CQezmusxsG9Y/0CioZ+8LfC+ekwEQc/NOzw02FXAC1V
cvOJUecHfI/PoqgDxFem4qYu4+Ec8Y/tHZELICgntsnwCA8ExidR5SfMYBcX
07FvX/BwfETFnQf04T//gFeKHAR4cC/WybJJE74T56qazxKAoJiRYsGmBLx3
Ar09bxLgxi3T0tJUaShPDai2aiZA6PggvrdEBFQLQ9wD/1Dnj5dlPFdHDsGg
Ckv0XnkiDHZoqulMcoIt4RnjpC8RiE2RaefMdoFah5VB/wsiyLvMj3BfooPQ
9au8Wz+oPPpXm2K2tIxK9YqsLh0mwWxMf6tKKB7hOB1W1c+T4ISwh+lPNIVC
no5/iswgQehi6YNO5iFE61+CMxV1X91uR7T+henZH1mXh7WI1r9sdjptXDF7
gWj9i5dExs0fTx4gWv8yklX1se1vKqL1Lxy7MqoVTaIRrX+xFNi+rfCTH2pq
F8P3CuBAWbwYV6MTA06WIYLlNjjQP8bwUlcrAsJVHM0vZuNgv5ILRepQINSl
KLU+HcBBwM7MptNNXsDYxPuKm5nKF89nbT9inaFVMyvPUoeaB7q27d793Rb2
MLM4RkTjIZxkfiB3xAK29uR77G3AQ8CuDJ0Nk7NgL1fNPruCh3XJ8tsnFHTB
/MGblAfSBCh/X/HGWVUdai0ubTviQYCWJiONu+tyoB1FqFR7RoCU7pOyykES
8DUuZiH+GwHmSq1yYlwEYX6qliuXhwiy2h+y11x54VrU7P4cMyKkR7r8N9K8
BxJ8ynntUonAIMgivenAAG/77c1aOojAHiBz1ktnA22w8u89S0eCOeV+pYmL
v1BxbkT3cxUSBB1iqB9mmkUE/37L+SASJMY9qrcY/Ix643QlsqpI8Evkt8Nt
/R4k+Fr2YQyJBDqxii0XDJrRLgme2XOiZNBoZ16wsKxEtos5R3/bkyHwerz0
reanaFKU4YnYfTKE20aPMjlmIFofdiwNr/0pLQ7R+rDM1C9BrJEhiNaH7R4b
4tA/6YHctXNE0l1I8LJeleeX4QQS3HfnWuIzEqjEl/A+dBlAb5/NvgqdJMG7
o7Zqe5feoUd3IxkP8JJB2n9W6JxmDVJ868xcf44MtSFPNnN7C1BKmSmrSgqV
R5wB/2QbsxGPegSXTwcZWhhT7+Z7JyLL7avDT+goMCp3P8h+bwSyZ+iY4VOl
gLrd4tsaOh/UrBp2oniGmncf13LsPReDwrWFnT8fpEBNsi6cCAhEtP7OpaH1
0F1BN0Tr7z5vC5BV7ndBtP6OhyxeGvGhH/w9BauKTRdAij/n3iHGbOhvU3MI
SlqAzSLmg95K6TAaPyDU17UA581PpBd+TQbrqBjXn9txcPv2K2MenjiwCZL6
aKSGAxWmk/z+u67B5Pbg2SNhOCC4RYRN3AqBWPzmmX+VOLC5kzLUH+gHktdU
/H7iccDlaWYX3nQFLMs5kYUIHsqPec+uWDrA1sSc9KotHnwPdfNv+l0A8yBp
haMP8SDC/2/1gZMZHNV+UH9wDA/0Uc/lPeP0wZ/9n6sJOwHsnh7ZNF7RBK2g
rcZ1IwIkUA4sDloogaKMuvvLOOp8ZFVzWapZGiQeyQ4GNRIAx3+V0W1NBPKe
tk1VrhPAyKYp5aD8YcgqPMMlLksE67JbLp7C+4BVK2CZy4cI5L4cBtyLXZAv
Pya+p4gIeR++fQjPogONsSVevu9EaDzr07umu4JsOEsqcw6S4Fvy6NHJL3j0
35mLvucsSJAQ8nXJu3MKaS3f0HiQToIcx79KGheHEK0/rbUR8ZHCtyNafzpq
7K1+j70O0frT8qsan8J6XyBafxrT9Hdyl/hDROtPP7SUKrjm3kK0/lRvYLOk
ZC4a0fpT9w8fvCzE/VFS5bAkCz8OMvRiJz55xkBaFe/Nzgs4mFoKV+KOj4Db
MWl7MzJxoBiccODVmUBIIHH7zvbhIEuX3myVyRvkU8k3ZHfiwVLVLKuh2RnG
N9e60rXw0Mb54xq3jB3EyzuWpF3Fg1PjnfP++yxB2qw0X/otHtgFp0wdi89C
pL3eU6FlPHje/Wq03U8X+pV04ZUUAWL78JJK2eqwfyqI1foKAT5pEQwrFeTh
8pHqsugn/9dHSBfZd0vAhSxNhvwJArzgfxvbmS8Ihl+3J49zEeHGzdcJF2p5
QZcgUvnShAhuZdc32vjYQbHr6o7sZKpPrrxsaypmAEH0Q2ZbOxHqDFWM9Z9u
oFZi5t4rW0Qo0vta0J37C11wixKYUSKB/I3qUD2LWbRR2jX4J4AERcztOe+U
x1D2Z0pmTQUJ1K4MnO3q6EGfltzs3hFIUCPNsrvhUzM6OKbd7SlMhml9gybO
8kpknWxmf+wyGYQ9Vr8fO/AMZYx59bvnkEGrLK7QsCsD0frsmHUHvUsM8YjW
Z68tpO65Px+CaH02Y/SKZEmBBwq/mpb33Imav4Td8yLaJhDJWZn4/AkJ2HJG
vogtDyCvH/vDar+SYFRhU+WEViuq1HiBl+Mmw2eHQ0wKhTVI5tyR08umZJj1
1PjgqFiItGzrlSOTyPDNomfkm0wOkrw04ZjcRoY7gh0vnVYTkfmemfDJLSq/
tNljdG9HoCrFVFZBZQrcYd092pfgg0Yufrna+YMM8oxzgn+qYlCoMQfrvgMU
4ME9jRbtC0S0/t36z5Xl3kg3ROvff+4cWjPjd0W0/l3p11aXaJQLovXv311T
p8eG+uG8+OThbpMFGL7Kd2eZLxsc6gKmohMXgCMtzs7XMB30btryfe1cgEEf
YYn/NpKhZfl8IhuVTw9ZTNmKj8eBv1D0dmtVHMREaCzOHbwGONHd2mqh1M+v
gVV5cQh48pGO8lP5ZME+n92Q6AftC/lWf3E46AH7MoYfV2A6ud00QBgPTzb2
Kj3xdgCV33sttlH5NMGiSdjMvgBeWTUf5R7g4cfaMym9aDOQGXeOVfuMBzpj
jc/jRfogPaWjeWkPAaBInWnnXi1YfpPUxk3lU4lLp+1YmBK0XxfADcYSgN5o
tUpwTBrcRdJtYxsIoKJCV51ySBSG867cH/yPmvfCH3VZOB2G0K/e3+VlqP9X
6+nv5/X3wTR5nCjjTYTXMtFH9o/uAitS9r0Tz4lwVriV07+aDvK7pO6JTBEh
a3Jy7a3PCqoJlbR9fYAEmtYyf6VZCIiOeP64rTkJbA7H7b7K+B2J5o4FFaeR
wPnvsOh/N4YQbf8x227F68HdgWj7jwZVvQvhhnWItv+4lOy89xxzMaLtP5jk
g+MSvR4i2v5jrqJSIphyC9H2H3NixSf7ea8h2v7j44nU0Y1z/uiX6Iuzx47g
IK+Ksp3+egwUXb7yZsgaB49VfjErFEXA/UIx34oMHDh9WZk/7BIIvgeZTjNS
+XTlc71+ooQ39C6f99DYgYcGNdXJy9+cwWW8aKJCEw9hnAfCZq3toFX/9sDD
SDxIP7qTmCtvCfoB0poab/BQ3fpvT8Dns5D4H4eH9hIeJJO3ZkVv60LKjmTe
1uMEqJl5xxzfoQ49QvQcwW4EaOsJuvLvnDz89MmWeJJHgKZ3Z0bPLEpAzuEn
6VXjBOjsDKaXbReEqPEXuuv7iFDaeGfTeYoXxPj1IuuNiRClbLSxrsgOrAFz
W1VJRDjD25C01s8Aoyt5TwTaiBDp4DRe/HEDiUwMpgX/JUJt4127/c2/UFXf
vz46Kp80usc6CZGziN6gPZWJyqfPoWxL3D5jKPKadk/bSxJU7av99pyhF5Vz
MLz7jqc+z6Z4NUG2FlQgdUEl7CgZNIdPryeOV6LR8y//nbIjg7K+k1+2/jNE
qRCcS84mQ9ft+xaiGxmIto+Sfb7+IA3FI9o+yuGhVFHlwVBE20fF6tKpL37z
QDH7b12qciTBVuPnjtV/E2iI7RZ/bR513p5JPDd/aBCdons9PjpBgsP6BckK
7q1IJbv5ogYXGRL4j18x+VKDyo9EzrFT+aQZFB+45VGIHir6muQmkiH6mEMe
o1cOOunFknyvlQz9SbN65qpJyCzTun/zLxn+O9yyV3UgAo0b/+YXUaJAWVkQ
j1y/D5ry2FUw8p0MJqalWu9mYlDwpwQ72f0UqJLcw/FjIxDR9mfGip9kGovd
EG1/ZsGgoyFo4Ipo+7MjOg93/CpwQbT92UIVn96UpQuyZ6kqrEudhfC6rnrN
8Vb4/6//H+5Jajo=
        
        "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
          {GrayLevel[1], EdgeForm[None], 
           GraphicsGroupBox[
            PolygonBox[{{78, 186, 172, 159, 147, 136, 128, 79, 80, 81, 82, 83,
              638, 637, 206, 205, 204, 203, 202, 251, 283, 343, 415, 488, 562,
              201}}]]}, 
          {RGBColor[1, 1, 0], EdgeForm[None], 
           GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1GW0lVUUBVC6u0G6W5BuKemUTqW7OwUJKQnpGnSIdIsSFth0d0p3KeE8
gx9znLXXPd99471978vQqnvdbpEiRIgQkZTCUP6WD3KIwxzhKMc4zglOcorT
nKGA5256k0U0IjWv9Gcp6LVb5sU0Jg2v9eco5LXb5iU0IS1v9Ocp7LU75qU0
JR1v9XX1Mdhj7k8JLuiL6O7Ky2hG+ojvfrGP9THZKw+gJBe9VFR3T15OczIQ
kXr6WOyTB1KKS+4X092XV9CCjESivj42P8iDKM1l94vrHsgraUkmItNAH4cf
5cGU4Yr7JXQP5VV8Qmai0FAfl5/kIXzIVfdL6h7Jq/mULEQNf399PH6Wh1KW
a+6X0j2Wv6YVWYkWdqKPzy/yMMpx3f3SuifyGlqTjehhT/oE7JeHU54b7pfR
PZW/oQ3ZiRF2p0/IAfkzKvCP+x/qnslraUsOYobd6RPxqzyCitx0v6zuubyO
duQkVtidPjG/ySP5iFvul9O9kNfTnlzEDrvTJ+F3+XMqcdv98rqX8gY6kJs4
YXf6pPwhj6Iyd9yvoPtX3khH8hA37E6fjD/l0VThrvsVdf/Jm+hEXuKF3emT
85c8hqrcc/8j3St5M515n/hhd/oU4Xsqj6Ua992vpHstb6EL+UgQdhfp3Xf7
oPwF1XngfmXdG3krXclPwrA7fSoOyeOowUP3q+jeytvoxgfh1GXmjPwVicIu
ze9xWB5PTR55vmr4R8N2c3cKhNOchbPydBKH3ZpTc0SeQC0ee7SaLiI7zD0o
GE5zVs7JM0gSdm1Ow1F5IrV54vnqukjsNPekUDjN2TgvzyRp2L05LcfkSdTh
qedr6CLzrbkXhcNpzs4FeRbJwmfBnI7j8pfU5Znna+qisMvcmyLhNOfgojyb
5OGzYU7PCXkyH/Pc87V0UfnO3Iei4TTn5JI8hxThs2LOwEl5CvXob87DVXk+
L7xfbXM0vjf3pVg4zbm4LM8lZfgsmTNySp5KfQaY83JNXsBL71fHHJ3d5n4U
D6c5N1fkeaQKnzVzJk7L02jAQPP7XJcXMkjOxw15sDM/Q8L3zc8ZzgF2sp81
7OAXFvI12/mZaSxgNdv4ibFMZi4r2Mw+hjGV+axiKz8yhi+Zw3I2sZehTGEe
K9nCD4xmErNZxkb2MIRRTGQWS9nAbgbzOROYyRLW8z2DGMl4ZrCYdXzHQEYw
juksYi27GEB/+tGXPvSmFz3pQXe60ZUudKYTHelAe9rRlja0phWf8gktaUFz
mtGUJjSmEQ1pQH3qhb+xHf4PPqEI8A==
             "]]]}, {}, {}}, {{}, {}, {}, 
          {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], 
           Dashing[{Small, Small}], 
           LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,
             12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 
            28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 
            44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 
            55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}]}, 
          {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
           LineBox[CompressedData["
1:eJwt0NVSVQEAQNEDf8IPEVeUllAa76UbCekGaVC6UZBuafgsFjM8rNnvOyYn
EgpHBUHQSCzn7DDPT7ppIY54Egjxge/RQZCoH/lEEsmkkEoa6WTwmUyyyCaH
L3wllzzyKaCQIoop4RthIpRSRjkVVFJFNTXUcsEfFhijh1bquOQvi4zTSxv1
XLHLEhP08YMGrtljmUn6aX//9p9/rDDFAB3cccg6swzTxA37rDLNIJ3cc8QG
c4y8PeaWA9aYYYguHjhmk1+M8sgJW/zmiVO2eeaMF5p5BT6ERXk=
            "]]}, 
          {RGBColor[0, 
            NCache[
             Rational[2, 3], 0.6666666666666666], 0], Thickness[Large], 
           Opacity[1.], Dashing[{0, Small}], LineBox[CompressedData["
1:eJwl1GWUlVUUBuA7Q3d3Dt3d3Z1D2IqomIBi0KKCErZgECbY3V2AIN3d3d2S
z17+eDjvfu/+LmvN+WZS+g9OHZSUSCS+988CZ63kRGK//DbXUYSL+oUsYjFL
WMpou8ucy1nBSlaxmjWsZR3r2cBGNlHbcwd87ztcT1Eu6TdTx2cHze9yA8W4
rN9CXZ8dMr/HjRTnin4r9Xx22DyTmyjBVX2qPiN/mofSmG36+roj8ixupmT8
EOilz8Rf8jCasN1HDXRH5fe5hRSS6K3PzN/ycJqyw35D3TH5A26lFMn00Wdh
tjyCZuy030h3XP6Q2yhNGvrqszJHHklzdtlvrDshf0Q/ypA27kyfjbnyKFqw
234T3Un5Y26nLOni56/Pzj/yaFqyx35T3Sn5E/pTjvRxJ/oczJMfpxV77TfT
nZY/5Q7KkyHuSZ+T+fIYWrPPfnPdGfkz7qQCGePu9Ln4V36CNuy330J3Vv6c
u6hIprg7fW4WyE/SlgP2W+rOyV8wgEpkjrvT52Gh/BTtOGi/le68/CV3U5ks
cXf6vCySx9KeQ/Zb6y7IX3EPVcgad6fPx2J5HB04bL+N7j/5a+6lKtni7vT5
WSI/TUeO2G+ruyh/w31UI3vcnb4AS+Vn6MRR++10l+RvuZ/q5Ii70xeM31N5
PJ05Zr+97rL8HQ9Qg5xxd/pCLJcn0IXj9jvoriT9/3diIDXJFXenL8wKeSJd
OWG/o+6q/APxB6ZWnLoybJInkzvu0lyElfIkunHS8510CX40D6Z2nOaybJan
kCfu1lyUVfKzdOeURzvrkvjJ/CB14jSXY4v8Knnjrs3FWC0/Rw9Oe76LLpmf
zQ9RN05zebbKr5Ev7t5cnDXy8/TkjOe76tLwi3kI9eI0V2Cb/Dr5410wl2Ct
/AKpnPV8N11afjU/TP04zRXZLr9BgXg3zCVZJ79IL855vrsuHb+ZH6FBnOZK
7JCnUjDeFXMK6+WX6M1Qc1V2yzM47/t6mNPzu/lRGsZprsxOeRqF4l0yl2KD
/DJ9GGauxh75TS74vp7mDPxhfoxGcZqrsEueTuF418yl2Si/Ql+Gm6uzV36L
EXIN9skjnTUZFb9v/p9rL/DTpQ==
            "]]}}}], {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0.6, 0},
      BaseStyle->{FontWeight -> "Bold", FontSize -> 14},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(b\\)]\\)\"", TraditionalForm], 
         None}, {
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)\"", TraditionalForm], 
         None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> 
        True},
      PlotLabel->None,
      PlotRange->{{0.6, 0.95}, {0., 0.3076922950126797}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], Scaled[{0.5, 0.5}], Center, 
     Scaled[{1, 1}]], InsetBox[
     TemplateBox[{"\"B(3)\"","\"B(4)\"","\"B(3,4,C=0.25)\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.023999999999999994`] -> 
                    Baseline)], #, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[1, 0, 0]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.023999999999999994`] -> 
                    Baseline)], #2, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Dashing[{0, Small}]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Dashing[{0, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.023999999999999994`] -> 
                    Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          GrayLevel[0.3], FontWeight -> Bold, FontSize -> 14, FontFamily -> 
          "Arial"}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 2/3, 0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 
                    Rational[2, 3], 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.3], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.2], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0.3]"],
                    Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                   Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.3]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0.3], Editable -> False, Selectable -> False], 
                 ",", "Bold", ",", "14"}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"30", ",", "10"}], "}"}]}]}], "]"}]& )], 
     Scaled[{0.5, 1.01}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->False,
   AxesLabel->{None, None},
   AxesOrigin->{0.6, 0},
   BaseStyle->{FontWeight -> "Bold", FontSize -> 14},
   DisplayFunction->Identity,
   Frame->False,
   FrameLabel->{{
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(b\\)]\\)\"", TraditionalForm], 
      None}, {
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)\"", TraditionalForm], 
      None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> True},
   
   PlotLabel->None,
   PlotRange->Automatic,
   PlotRangeClipping->False,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[
     GraphicsComplex[CompressedData["
1:eJxdmXc41f///yVUSCKraWRFsjOfD7OsMkKUyJa9d5SQWZHVUCokK6soM7vM
kERR5tmV+Sbpd75/nNfnun7/nHO9rnNd53qd63Wet9vjfn8IOPiYOdPT0dFF
UV/+710Yt/OknNwMZPzgZFKtHIbTHlzV4R4zkDb2e5aTOAT+9ObsUUUzsLrO
P32YdwjuHly5GPxjBkzIfP4/LT/CRbibZsI3CzfobS+p5Q6CZLBj0bzFLIgv
c6SKVQzA8omsMr9bs6B4N/Owv14/dPzduFvXMwul6//ezvX0gvqIjdOPHXNQ
LqQeMW/XAyXHBYT+wRy4W3y0PcL1AYQe8LSNRc7BciXBRaSuG9KSfU2fv5oD
Th75kfsRXVAY2/n+PJl6rXOJjflsJ7SnnRVqF5+HKv+RY3XsHfBFQNlD2GEe
XqobpK38boO1DosMrcfzwHGryehcRys0+Ps815yYh13Od1vji95ByFNikQLn
Auxa2kRHi1pAbf5e8pzxAthE6mrKKDXDWmmxTVLCAvCNyDrcsWyE+ptkNmLH
AmxuDBluXK4HEY/jJcfpccDMFcsynfAGEj4OKDir4OBR54BpyHQtLBnmP7EK
wYHf1+CUHxKvwVx/4o9GBQ6iL2Ru2OXXgI3xHg0WHA6OMu9Il1SoBq8rQc5p
R/GQvbGyXeBNJQQxoTDWS3jIMdVwsXOtgPhaJW/t+3h4LrAq08ldDshP+ozN
KB5ul8k42t4uAXJZ0n53NgIc1/t8fdLsBRRscb+XMySAKpw4FrzjOZwbYnRZ
vEEAy9lljYFtBVBU/puUXk8AnQ7bZ16Cz4Dp8R6Ln2sE+IOff0tUegIXOe6U
aEgTQb3S/dJ13sfw5p7WzBkvInDSfRF/WPUAduef32VSSARG64i7JQ05sLP2
Cp/8JBEcXjM1c+/Igt2TZcwj+0nwbqzD8JbRXdiZYE5wO0eCFyI/GO//vgOs
p46XvLlDgtWY8pvDJ1KhlnW7JamXBFx/zEwL1hLA2lL1JycjGT7n37oVZhcH
DDUFV9Y0yUBihiDcp+tQkOE/NBBOBouK0EtKdVeBfFVNOKmKDOv8J5fWw0IB
IpSs6X6SIcd66ZiZVwDc/JMV4SFKgSB77Z2BWd4QWHnHwcWFAop8strqT1zg
tfieFUvjGcjUsylpODMMUaOcP3GnKGC3P0XjvZ87UHaycutqzkAU3/tQ++hh
oL9ioXDsJAUWY4wFosM8YV17qOi5JQWCD9tt7Y92g6TQJBE1lRkIjCRVns4Z
Bh3Z4DGDExSQ1vNRORvnBWq7lwy7z1LgW/nWo5GgK/A6vJLxpi0F3lirRWWm
uoJVxfvyWsUZ6NL//aY5fxjms5iOXZSgALu44YTCbm/45ncjd8yAApe0vQVE
l66A1ZTm+ewLFFjp4BCrYnQDLm6BmmAHCsi1ZQu3c7sCMsL7r8jPwITCi7XN
4mFQfN9v5ihOga+hJhzFpt4glW/Y+V2PAqafHpw4K+sORXuZrz22osB89+I/
NS03cNHDf426TL1ffGDQdjNXaJ+xSvZ2osBJDv2AzxMuILt/3Xwf9ftNr/fN
HigfBttpWVdXMQoop5adYwj0BsvGl+Ozpykghd+muM3MHQaPeWc8O08BHoW8
nCeX3eCW/ZnfMXYUyHdjFGj1cQXSZsNjf0cK+IoEhmuvu8DDD8vB7s4UKP5c
wnqtyQVoPCN0+f8Z1uzDeOYd7dg9frEH41npp4J1Haf3GM+eNnco8+R3YTxT
MHbvd97WifHsS03fhp5ZO8Yzja1tpo6fWjGeVWXH8T42fofx7GPeh0t3B5ox
nh0WaGJntWrEeLaH9O+P/ae3GM+q0eeo+md1GM9YHx6x7Hr8GuOZh6YIr15m
DcaznPzoP+YDVRjPqn3m6FSYKjGeRTa3PTDtL8d41udmWaq2rRTjmfACj3iM
7AuMZ8PK2ce5uwsxnmUfT6QM2OVjPLMeIf9eU3iK8SyJQZdLwSYP49l2BinZ
LtZcjGfvvMUZbpLuYTyrMmmG0CPZGM86HJrtdtpkYDyzex8d5M+YjvFMkLA+
TAi6jfHs1WW23O0eyRjPFgXZbmxnSsB4xrby9VJsXSzGMw/2xEjxtesYzzI4
rrhK8UZjPKuo5nev8ArHeMYYctr16t1gjGf++4x8WOf9MZ75j1ddyOr2wXiW
v1uQ/l2uO8az1UqZZyYtzhjPZhlOpIyP2mM8G390dCjK2wbj2bfhCM5mb0uM
Z7VfVfRz3phiPHM5MqbwbcUA49l4WK2ZdrAOxrNtwaKhdgkI41nNuJ9zXKoC
xjM43ujDuFcK41m4Ytgj0wNCGM/c9JZf6Bn1QoLMY0E6PAmMnLQOm2ycA6k4
39I4ITIssUh1l22dBfOjrI8cbckgHeue2pNyGvQTP/8pzSJDY2xjgstbTciK
VIGOQTJEy+yAH23K4FjvSlBgoYB14aduOm7Z//Gy/dEcUUQM42VhDv60R2cv
8B8xVVsdJ0FhVpLbj+MW0E7+1Ge0jwzhl1gcYjNNQJI0duO4CRkqJxgSyhX1
YY1N2LUpgQxiH54tW+zRBq2rqlXP35HhnoXE0VJONTA9MChw4C8ZBhpd8X/b
5DAeB85vmI1sHQNChHLv9BQZPvEmKuVmn4Sgi/+qTPgo0DT1dm9sjDTG65V9
DPWP44UxXj8877Cyur0PSFzH9H8PkyBhWrkyr9cC2J4m2FawkmHI/4TbB2FT
4DVpDubQp94PB31RGqcB9H/sOdh1nQxv3w+F3mjRhpy/9UTet9T7e5Zkb6av
DnqGsY27V8nw+olVMhTIYz6oel4SGHpNEjQ23zCaj5Fh7nGpnNMLJfBMrj6r
zUEBT36Gfnp9GcwX5M7B6M0BEcwXcj2TmjEGRzFf1DXrmEwI9oFZWtaA9yAJ
Tlk/UNc+ZAnymz9EpneS4bSLSwj4mAJbjOyvWF0yjP10Y9oVawAqco9DDKPI
cDTqMHFgvw60qkcmmL4mQ8q+CnixoA46jrYsNxfJ8PE5aSiaVwHzkTFPiN3X
U8fBQy38acoIGbwlxTQTFZTB7VnqwwY2CvSpk8ZelstgvuIJCstrCBPFfDVd
mKZJmT+K+cqRSyTQtFII8xXfpsxBC9k+YBjoTS/rp56nOI6FOV1LOPWCjeUP
ExkW6PkNjTNMYdcBkmSTNhn+ZoZbdTUYwK+ZnQWpkWT4p3/ovpOeDoxd+jrq
VUOGVLktrrqTCLR8DKvafpFh2LSh/L2ZAuZDukaJuyElx+GazfivoiEy5G/M
JXlHKoPLS6qGWCmQWlqYLjQtg/kyk2Xp1dyAKOZL0SaW4kuKwpgvDYg1vDf+
CmG+9OB13E1yFsJ8KcAUiOdU6YNJsutybx8JiHqTLwwvWMLgv6NXd1B/X1Gj
9hNSoSnEL+j1jGuRgfeGkcnpLwZg0NBYXx5BBvJe3woDOx2Y9mLdiqgmw5V+
teL/7BBorLxjnKbywtNK7hSfrwLmY11+c27+yeOQ7MnMW/uRDFORzZLcecrg
pPA7i4f6+76y/bfCsCmD+Xp5tzPXmT+imK/12Xr0nGyFMV9vzGvgcEJHMV//
9PU5E5cshPl6Jks/OU5DCPO1Ua7UW8WJfszXc2c0Vz9392K+DuiIspTJ+oD5
+vP3yVrrzG7M1+RnX9ZUSv7n66cEn/iRwv/5+hbFjtNw5H++9gysUG0ntWC+
zrbP/pip3YT5WquHsXXP3nrM1/eskkILO2oxX0vuUz9fOFmD+bpLjK4nX7YK
8/WAxF+LB/QvMV+PrpBHJp2KMV8Hmo+9T5gowHwtnqx5KHf2CeZrn0WzUdPT
uZiveV+y7v0ilY35Wvhubs5123TM17l6jDOOfCmYr8O2L9Wb6MRhvs4dbhv1
kr6G+Vpv/8fF3M4QzNeywx+bWx75Yb5+NnSXXLfdHfP1zoVoX7d4B8zXA7fS
ySeaLmC+VnmQd4r3vhnm6/+eyWqF9Opjvr51LGp8QVIL8/XsySL1vY+UMF9f
WE1NUv4tjfm6e9polKgtivla/pZ756eMw5ivJx9oSkR57cN8rbDzxv50embM
1xp+o2vZg3SYrxvGnCbf31tBNF9fYPlaPa5GQDRf5x1KZ9gh9h3RfL0xX/yV
vmwI0XztcOyP1pZ2B6L5+oGkp/B0fB2i+fpyW77WG71iRPN11i/v1OdVDxHN
1/vrVORtNG4jmq8tX8r7nIBriObrY0eEVCWi/RHN191KHjZc0i6I5mtmxjSR
usE+uK8vuHzScwEqWLafPFOaAdb7e1+pPF8Awcr00SXeO+AbtvsS6+wCfDLE
iz29mgDnH0X56h/GQdsNuQqNzBhoYntLnLTCweieJIfQDxGQ/6G5v/cuNa9a
Gzx6GhUIVkYrh0R6cbDyYlBJx8QbnGxazc4y4SH9qg5Z/I8z/K61/tmvgYdl
fYnkmRg72LKtX3oegQf2a3ocy+aW4JBR8824Dg/5livLzQzGkHX7m5zjIh6e
RUVPBpTpgv7o4O9+SQLsq4sL4VlWh0i3Wzx3XQkgdcR/OsRfHqJaIl60PibA
RhvX3qCDkvC5kE7g3RcCHFyZn+ufEYSKMWM63n3UvOlXM1G2gw+YLa+c7jpL
hPWtxzL25uwwc/jMan8iEUKZRjk8lhggqezyXq1W6nwXLLduve0PSvrAwhG7
SYSjfi/Ri++/ELPc9fDDJ0mw49Tsl6H8WcS80GKw158Eh6/59X3OH0MO4jl0
w+UkuHjbZpJVpxfR5qVjWwXbXsq0INq8NJvKueS8owrR5iWzYOKCd+gzRJuX
MtocKdHHMxFtXvJdnPnhGhaPaPOSSs+6zvlzoYg2L9lYjlutcnsi2rzUHTJx
usCiH4g8k81sttTzDjGZM/OZUOSomjidvQDK18d3ucinQda1v6/+jCyAr4bW
nj6UBE0Mo6mq7Dio3D05JDxzA4R+tbM/1cfBGl0tvR99FBixyNalx+HgTlzv
AeK+YBg1wKXINeFgZ3bAz49WvvD9k9t7yTUcbCtu3dFEdIWXd1yPVcjioau0
x6+b2x7eVkUqXvDEA+M3XWMOfytYLlgt0H+BhwLH97ikvybgTnezxW4WD6sG
k+TS56fhQOvx+IeHCLDa3s/Gc10D7lSb+TpaEyCZh/BB3k8R3N633BxPI8Cr
hnDdU1NS0HJsnan4AwEOr0ag1v+OwkT9y+LtTETYzib+xKjsAMjWRK7fACIs
TFxbmNHlgLNfuzxvRRDB3mFq7/cLO6BXzGa3fg0Rku6dMB8S2ULvW95y2ZCJ
YOsb/0P+wBJKScjWWhejPl+7yA+v9BdQYm3S/kYHEhxq6WIjqX1FtbXTFp2P
SdDHfe8NvdYgos2rG5+CmFPSWxFtXu04z8k6xfoK0eZVIxUXVq6nhYg2r54x
vLu3vigH0eZVcZGAgo1rSYg2r+ZtOoZ93xOJaPMqc7MRWYPZF/06KXruvCQ1
T9mw9xGsr4PV8ZedB9xwcFDSeU6gNgw2E8/MMT3FgfOrbZs29AEwfob+Je84
9bzX9dUz8ngCbvrAVx8uPEjbiXDcOOEEclOGNeSzePj2208ndtcl0GLZqFhJ
wsP1vO+1jo7mMBjjz2XZhQdiak/TDiMjaD0s/9yFjgASkrj978e1IYQQcGmb
GgGUJKQHceKq4HboQ1NrEAGSuNf5jR/Jwt1axZ7iMirPk+tC6DLFgSK4U3UM
Rz3PMUnvEukEIH7lp4WkIBG2CgaP9j3ihuk1i0xmW+rzOeJf0yS2G0Lth6L3
5BDBz6f2zK4uetCXdeZSHaSeX/+DpZPi/yGjERu2UhYSWEnP/1LvIqPEb+5V
2rokONCvXKR2aholc6+FO18ngWTGEXapsE+I9cGZkqlGElQveH65ldiNfmmT
dzKvkUCRnXXPa7kGdO8gS3KTLHUeD7jFPTxQjiJtoO6eJxnYujrNm9/moQfb
k+48yCeDitecuop0OqLlhysFJTf2cd1AtPzQYJGmu188CNHyQ9SoECP64oZo
+SE+73KJdU4/7PtXL7xhuQB6agIpJxKzwGTnkr/inQU4VHDxzr2uNBCLDXII
6FuAqX+BvybFkmGx9vpD+V04SNWM5D6dFgujlw2ebdfCwbSgKW+9ZDTkSRBL
g6JwsGxObNAgBAPXB3sdlVocpMSM7GBb94VHHA0MD3/ioDrjUvuzRTdgu0rp
ypPAw2A85Z98jz3k2Hw7X+1Eva5Q52NOt4bGcp6kzid4YL452BreZQojdRNM
tt/w0GR+rTSxRg8YlGxMtnMToDDU+Y+imSbs/1Lz0NCMABo/e2wKr5+EyTMz
wfNJBODV/pWvISkNNZ4rYYfbqP+XN73vTvOIgG/ZVPT6FgHe+jYIXuc9BKcc
482mT1L9fFZQI9+MExhUGcW8A4nw6aR/oU3hTvCct042KiOCQCZby4+xfwin
ms7TPUeE2zli1VdNl5FR9dPCeQESXCMXCJHrcKj7sQ8950XqeZZXOiyjOImm
t27SaeSQwHhy20Ku10dEy2+1JWeeN39vQ7T8FtU++GX/29eIlt+OS5wiv3Yq
QrT8FklkcRm4fx/R8tsDocxLB7tTEC2/iXapvG+TikK0/MZLUR5OlfdDR4lD
9ibCOPh58qOq8cp1YHkkb331Mg76LdknLRrCwaSYaRx/Hweh56ZbLRoDgK8v
wuXIMA6SRaI126W8oPCID8/UbjwEDQnhJ9mdIb1nyHTyNB6C3fbZIw1b4H91
YejsDTwcTZVW/W1pAfeS764PNeNBVCrbbSPvDEh+TiA7reMB9yCA2bpZBy5f
firqJk8AQQrTya/xarCoJUks9iaApzRztf4NOdipZv32dSEBUMgugccfj8G0
E0O50Q8C7Pz+YzeQBODAwhEJwQNEuCAbe+O/Hh5YLbSjuFkSIWe2fmvxKxtI
texR/XmHCEwKNSvio9uB8NPhLnpPBO2SYb5TKevIw1ienZeBBE9HdURzX/1E
BjuDuWUQCWxVvF4c8ZpBH7YmHOrDSMBeyvPOjv4zOjm9aGH9mgThV7cuip7/
gBpUOrkYf5EgZldpoapKE5odbDwgKEEGq4YKx5iSCuTWIlwS5UyGIycV2sV2
P0X+ndKn8nPJsMUvJXIs7y6i5Wl2vdHzQjWxiJanTRbXHc+WBSNang4w2RRd
cHBHBgMFsq7uJCgbz/FydxhHKb7qJUbPScB9pIbB1KwfmYuFnvjzgwQMv54E
xFi9Q2HKQur4A2S4fbOV3BJZjTQSFu/onSdDlcray6qtfMRvFFX56jYZYqp0
Oc+NZyHS5ttQxfdkuGp5WjfSNQFdIB6IF2OggPZWdVD4oXDU8lg+fRdQ4ES8
isXGhhfK+FOX7rdAhmSr35pP7l1HURKGPLb8FODa2GXN1hGAaPn/kMGIrGeg
K6Ll/198FKG2N/1QtFg85nNuASJ6bTRyJrIgf7zf9XLKAqg5ZtlncaTDYlyl
0sv3C+C/syvVNC8ZUtI+C1Uy4uCQsHXgcUIsnOBL9ZRHOAh6Ir6U0hENH+pP
iy6E44BnyTYz+XwI1CQezmusxsG9Y/0CioZ+8LfC+ekwEQc/NOzw02FXAC1V
cvOJUecHfI/PoqgDxFem4qYu4+Ec8Y/tHZELICgntsnwCA8ExidR5SfMYBcX
07FvX/BwfETFnQf04T//gFeKHAR4cC/WybJJE74T56qazxKAoJiRYsGmBLx3
Ar09bxLgxi3T0tJUaShPDai2aiZA6PggvrdEBFQLQ9wD/1Dnj5dlPFdHDsGg
Ckv0XnkiDHZoqulMcoIt4RnjpC8RiE2RaefMdoFah5VB/wsiyLvMj3BfooPQ
9au8Wz+oPPpXm2K2tIxK9YqsLh0mwWxMf6tKKB7hOB1W1c+T4ISwh+lPNIVC
no5/iswgQehi6YNO5iFE61+CMxV1X91uR7T+henZH1mXh7WI1r9sdjptXDF7
gWj9i5dExs0fTx4gWv8yklX1se1vKqL1Lxy7MqoVTaIRrX+xFNi+rfCTH2pq
F8P3CuBAWbwYV6MTA06WIYLlNjjQP8bwUlcrAsJVHM0vZuNgv5ILRepQINSl
KLU+HcBBwM7MptNNXsDYxPuKm5nKF89nbT9inaFVMyvPUoeaB7q27d793Rb2
MLM4RkTjIZxkfiB3xAK29uR77G3AQ8CuDJ0Nk7NgL1fNPruCh3XJ8tsnFHTB
/MGblAfSBCh/X/HGWVUdai0ubTviQYCWJiONu+tyoB1FqFR7RoCU7pOyykES
8DUuZiH+GwHmSq1yYlwEYX6qliuXhwiy2h+y11x54VrU7P4cMyKkR7r8N9K8
BxJ8ynntUonAIMgivenAAG/77c1aOojAHiBz1ktnA22w8u89S0eCOeV+pYmL
v1BxbkT3cxUSBB1iqB9mmkUE/37L+SASJMY9qrcY/Ix643QlsqpI8Evkt8Nt
/R4k+Fr2YQyJBDqxii0XDJrRLgme2XOiZNBoZ16wsKxEtos5R3/bkyHwerz0
reanaFKU4YnYfTKE20aPMjlmIFofdiwNr/0pLQ7R+rDM1C9BrJEhiNaH7R4b
4tA/6YHctXNE0l1I8LJeleeX4QQS3HfnWuIzEqjEl/A+dBlAb5/NvgqdJMG7
o7Zqe5feoUd3IxkP8JJB2n9W6JxmDVJ868xcf44MtSFPNnN7C1BKmSmrSgqV
R5wB/2QbsxGPegSXTwcZWhhT7+Z7JyLL7avDT+goMCp3P8h+bwSyZ+iY4VOl
gLrd4tsaOh/UrBp2oniGmncf13LsPReDwrWFnT8fpEBNsi6cCAhEtP7OpaH1
0F1BN0Tr7z5vC5BV7ndBtP6OhyxeGvGhH/w9BauKTRdAij/n3iHGbOhvU3MI
SlqAzSLmg95K6TAaPyDU17UA581PpBd+TQbrqBjXn9txcPv2K2MenjiwCZL6
aKSGAxWmk/z+u67B5Pbg2SNhOCC4RYRN3AqBWPzmmX+VOLC5kzLUH+gHktdU
/H7iccDlaWYX3nQFLMs5kYUIHsqPec+uWDrA1sSc9KotHnwPdfNv+l0A8yBp
haMP8SDC/2/1gZMZHNV+UH9wDA/0Uc/lPeP0wZ/9n6sJOwHsnh7ZNF7RBK2g
rcZ1IwIkUA4sDloogaKMuvvLOOp8ZFVzWapZGiQeyQ4GNRIAx3+V0W1NBPKe
tk1VrhPAyKYp5aD8YcgqPMMlLksE67JbLp7C+4BVK2CZy4cI5L4cBtyLXZAv
Pya+p4gIeR++fQjPogONsSVevu9EaDzr07umu4JsOEsqcw6S4Fvy6NHJL3j0
35mLvucsSJAQ8nXJu3MKaS3f0HiQToIcx79KGheHEK0/rbUR8ZHCtyNafzpq
7K1+j70O0frT8qsan8J6XyBafxrT9Hdyl/hDROtPP7SUKrjm3kK0/lRvYLOk
ZC4a0fpT9w8fvCzE/VFS5bAkCz8OMvRiJz55xkBaFe/Nzgs4mFoKV+KOj4Db
MWl7MzJxoBiccODVmUBIIHH7zvbhIEuX3myVyRvkU8k3ZHfiwVLVLKuh2RnG
N9e60rXw0Mb54xq3jB3EyzuWpF3Fg1PjnfP++yxB2qw0X/otHtgFp0wdi89C
pL3eU6FlPHje/Wq03U8X+pV04ZUUAWL78JJK2eqwfyqI1foKAT5pEQwrFeTh
8pHqsugn/9dHSBfZd0vAhSxNhvwJArzgfxvbmS8Ihl+3J49zEeHGzdcJF2p5
QZcgUvnShAhuZdc32vjYQbHr6o7sZKpPrrxsaypmAEH0Q2ZbOxHqDFWM9Z9u
oFZi5t4rW0Qo0vta0J37C11wixKYUSKB/I3qUD2LWbRR2jX4J4AERcztOe+U
x1D2Z0pmTQUJ1K4MnO3q6EGfltzs3hFIUCPNsrvhUzM6OKbd7SlMhml9gybO
8kpknWxmf+wyGYQ9Vr8fO/AMZYx59bvnkEGrLK7QsCsD0frsmHUHvUsM8YjW
Z68tpO65Px+CaH02Y/SKZEmBBwq/mpb33Imav4Td8yLaJhDJWZn4/AkJ2HJG
vogtDyCvH/vDar+SYFRhU+WEViuq1HiBl+Mmw2eHQ0wKhTVI5tyR08umZJj1
1PjgqFiItGzrlSOTyPDNomfkm0wOkrw04ZjcRoY7gh0vnVYTkfmemfDJLSq/
tNljdG9HoCrFVFZBZQrcYd092pfgg0Yufrna+YMM8oxzgn+qYlCoMQfrvgMU
4ME9jRbtC0S0/t36z5Xl3kg3ROvff+4cWjPjd0W0/l3p11aXaJQLovXv311T
p8eG+uG8+OThbpMFGL7Kd2eZLxsc6gKmohMXgCMtzs7XMB30btryfe1cgEEf
YYn/NpKhZfl8IhuVTw9ZTNmKj8eBv1D0dmtVHMREaCzOHbwGONHd2mqh1M+v
gVV5cQh48pGO8lP5ZME+n92Q6AftC/lWf3E46AH7MoYfV2A6ud00QBgPTzb2
Kj3xdgCV33sttlH5NMGiSdjMvgBeWTUf5R7g4cfaMym9aDOQGXeOVfuMBzpj
jc/jRfogPaWjeWkPAaBInWnnXi1YfpPUxk3lU4lLp+1YmBK0XxfADcYSgN5o
tUpwTBrcRdJtYxsIoKJCV51ySBSG867cH/yPmvfCH3VZOB2G0K/e3+VlqP9X
6+nv5/X3wTR5nCjjTYTXMtFH9o/uAitS9r0Tz4lwVriV07+aDvK7pO6JTBEh
a3Jy7a3PCqoJlbR9fYAEmtYyf6VZCIiOeP64rTkJbA7H7b7K+B2J5o4FFaeR
wPnvsOh/N4YQbf8x227F68HdgWj7jwZVvQvhhnWItv+4lOy89xxzMaLtP5jk
g+MSvR4i2v5jrqJSIphyC9H2H3NixSf7ea8h2v7j44nU0Y1z/uiX6Iuzx47g
IK+Ksp3+egwUXb7yZsgaB49VfjErFEXA/UIx34oMHDh9WZk/7BIIvgeZTjNS
+XTlc71+ooQ39C6f99DYgYcGNdXJy9+cwWW8aKJCEw9hnAfCZq3toFX/9sDD
SDxIP7qTmCtvCfoB0poab/BQ3fpvT8Dns5D4H4eH9hIeJJO3ZkVv60LKjmTe
1uMEqJl5xxzfoQ49QvQcwW4EaOsJuvLvnDz89MmWeJJHgKZ3Z0bPLEpAzuEn
6VXjBOjsDKaXbReEqPEXuuv7iFDaeGfTeYoXxPj1IuuNiRClbLSxrsgOrAFz
W1VJRDjD25C01s8Aoyt5TwTaiBDp4DRe/HEDiUwMpgX/JUJt4127/c2/UFXf
vz46Kp80usc6CZGziN6gPZWJyqfPoWxL3D5jKPKadk/bSxJU7av99pyhF5Vz
MLz7jqc+z6Z4NUG2FlQgdUEl7CgZNIdPryeOV6LR8y//nbIjg7K+k1+2/jNE
qRCcS84mQ9ft+xaiGxmIto+Sfb7+IA3FI9o+yuGhVFHlwVBE20fF6tKpL37z
QDH7b12qciTBVuPnjtV/E2iI7RZ/bR513p5JPDd/aBCdons9PjpBgsP6BckK
7q1IJbv5ogYXGRL4j18x+VKDyo9EzrFT+aQZFB+45VGIHir6muQmkiH6mEMe
o1cOOunFknyvlQz9SbN65qpJyCzTun/zLxn+O9yyV3UgAo0b/+YXUaJAWVkQ
j1y/D5ry2FUw8p0MJqalWu9mYlDwpwQ72f0UqJLcw/FjIxDR9mfGip9kGovd
EG1/ZsGgoyFo4Ipo+7MjOg93/CpwQbT92UIVn96UpQuyZ6kqrEudhfC6rnrN
8Vb4/6//H+5Jajo=
      
      "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
         EdgeForm[], 
         GrayLevel[1], 
         GraphicsGroup[{
           
           Polygon[{{78, 186, 172, 159, 147, 136, 128, 79, 80, 81, 82, 83, 
            638, 637, 206, 205, 204, 203, 202, 251, 283, 343, 415, 488, 562, 
            201}}]}]}, {
         EdgeForm[], 
         RGBColor[1, 1, 0], 
         GraphicsGroup[{
           Polygon[CompressedData["
1:eJwl1GW0lVUUBVC6u0G6W5BuKemUTqW7OwUJKQnpGnSIdIsSFth0d0p3KeE8
gx9znLXXPd99471978vQqnvdbpEiRIgQkZTCUP6WD3KIwxzhKMc4zglOcorT
nKGA5256k0U0IjWv9Gcp6LVb5sU0Jg2v9eco5LXb5iU0IS1v9Ocp7LU75qU0
JR1v9XX1Mdhj7k8JLuiL6O7Ky2hG+ojvfrGP9THZKw+gJBe9VFR3T15OczIQ
kXr6WOyTB1KKS+4X092XV9CCjESivj42P8iDKM1l94vrHsgraUkmItNAH4cf
5cGU4Yr7JXQP5VV8Qmai0FAfl5/kIXzIVfdL6h7Jq/mULEQNf399PH6Wh1KW
a+6X0j2Wv6YVWYkWdqKPzy/yMMpx3f3SuifyGlqTjehhT/oE7JeHU54b7pfR
PZW/oQ3ZiRF2p0/IAfkzKvCP+x/qnslraUsOYobd6RPxqzyCitx0v6zuubyO
duQkVtidPjG/ySP5iFvul9O9kNfTnlzEDrvTJ+F3+XMqcdv98rqX8gY6kJs4
YXf6pPwhj6Iyd9yvoPtX3khH8hA37E6fjD/l0VThrvsVdf/Jm+hEXuKF3emT
85c8hqrcc/8j3St5M515n/hhd/oU4Xsqj6Ua992vpHstb6EL+UgQdhfp3Xf7
oPwF1XngfmXdG3krXclPwrA7fSoOyeOowUP3q+jeytvoxgfh1GXmjPwVicIu
ze9xWB5PTR55vmr4R8N2c3cKhNOchbPydBKH3ZpTc0SeQC0ee7SaLiI7zD0o
GE5zVs7JM0gSdm1Ow1F5IrV54vnqukjsNPekUDjN2TgvzyRp2L05LcfkSdTh
qedr6CLzrbkXhcNpzs4FeRbJwmfBnI7j8pfU5Znna+qisMvcmyLhNOfgojyb
5OGzYU7PCXkyH/Pc87V0UfnO3Iei4TTn5JI8hxThs2LOwEl5CvXob87DVXk+
L7xfbXM0vjf3pVg4zbm4LM8lZfgsmTNySp5KfQaY83JNXsBL71fHHJ3d5n4U
D6c5N1fkeaQKnzVzJk7L02jAQPP7XJcXMkjOxw15sDM/Q8L3zc8ZzgF2sp81
7OAXFvI12/mZaSxgNdv4ibFMZi4r2Mw+hjGV+axiKz8yhi+Zw3I2sZehTGEe
K9nCD4xmErNZxkb2MIRRTGQWS9nAbgbzOROYyRLW8z2DGMl4ZrCYdXzHQEYw
juksYi27GEB/+tGXPvSmFz3pQXe60ZUudKYTHelAe9rRlja0phWf8gktaUFz
mtGUJjSmEQ1pQH3qhb+xHf4PPqEI8A==
            "]]}]}, {}, {}}, {{}, {}, {}, {
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Thickness[Large], 
          RGBColor[0, 0, 1], 
          Dashing[{Small, Small}]], 
         Line[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 
          13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
          30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 
          47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 68, 63, 
          59, 75, 69, 64, 76, 70, 77, 50}]}, {
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Thickness[Large], 
          RGBColor[1, 0, 0]], 
         Line[CompressedData["
1:eJwt0NVSVQEAQNEDf8IPEVeUllAa76UbCekGaVC6UZBuafgsFjM8rNnvOyYn
EgpHBUHQSCzn7DDPT7ppIY54Egjxge/RQZCoH/lEEsmkkEoa6WTwmUyyyCaH
L3wllzzyKaCQIoop4RthIpRSRjkVVFJFNTXUcsEfFhijh1bquOQvi4zTSxv1
XLHLEhP08YMGrtljmUn6aX//9p9/rDDFAB3cccg6swzTxA37rDLNIJ3cc8QG
c4y8PeaWA9aYYYguHjhmk1+M8sgJW/zmiVO2eeaMF5p5BT6ERXk=
          "]]}, {
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Thickness[Large], 
          RGBColor[0, 
           Rational[2, 3], 0], 
          Dashing[{0, Small}]], 
         Line[CompressedData["
1:eJwl1GWUlVUUBuA7Q3d3Dt3d3Z1D2IqomIBi0KKCErZgECbY3V2AIN3d3d2S
z17+eDjvfu/+LmvN+WZS+g9OHZSUSCS+988CZ63kRGK//DbXUYSL+oUsYjFL
WMpou8ucy1nBSlaxmjWsZR3r2cBGNlHbcwd87ztcT1Eu6TdTx2cHze9yA8W4
rN9CXZ8dMr/HjRTnin4r9Xx22DyTmyjBVX2qPiN/mofSmG36+roj8ixupmT8
EOilz8Rf8jCasN1HDXRH5fe5hRSS6K3PzN/ycJqyw35D3TH5A26lFMn00Wdh
tjyCZuy030h3XP6Q2yhNGvrqszJHHklzdtlvrDshf0Q/ypA27kyfjbnyKFqw
234T3Un5Y26nLOni56/Pzj/yaFqyx35T3Sn5E/pTjvRxJ/oczJMfpxV77TfT
nZY/5Q7KkyHuSZ+T+fIYWrPPfnPdGfkz7qQCGePu9Ln4V36CNuy330J3Vv6c
u6hIprg7fW4WyE/SlgP2W+rOyV8wgEpkjrvT52Gh/BTtOGi/le68/CV3U5ks
cXf6vCySx9KeQ/Zb6y7IX3EPVcgad6fPx2J5HB04bL+N7j/5a+6lKtni7vT5
WSI/TUeO2G+ruyh/w31UI3vcnb4AS+Vn6MRR++10l+RvuZ/q5Ii70xeM31N5
PJ05Zr+97rL8HQ9Qg5xxd/pCLJcn0IXj9jvoriT9/3diIDXJFXenL8wKeSJd
OWG/o+6q/APxB6ZWnLoybJInkzvu0lyElfIkunHS8510CX40D6Z2nOaybJan
kCfu1lyUVfKzdOeURzvrkvjJ/CB14jSXY4v8Knnjrs3FWC0/Rw9Oe76LLpmf
zQ9RN05zebbKr5Ev7t5cnDXy8/TkjOe76tLwi3kI9eI0V2Cb/Dr5410wl2Ct
/AKpnPV8N11afjU/TP04zRXZLr9BgXg3zCVZJ79IL855vrsuHb+ZH6FBnOZK
7JCnUjDeFXMK6+WX6M1Qc1V2yzM47/t6mNPzu/lRGsZprsxOeRqF4l0yl2KD
/DJ9GGauxh75TS74vp7mDPxhfoxGcZqrsEueTuF418yl2Si/Ql+Gm6uzV36L
EXIN9skjnTUZFb9v/p9rL/DTpQ==
          "]]}}}], {
     DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
      Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0.6, 0},
       BaseStyle -> {FontWeight -> "Bold", FontSize -> 14}, DisplayFunction :> 
      Identity, Frame -> {{True, True}, {True, True}}, 
      FrameLabel -> {{"\!\(\*SubscriptBox[\(p\), \(b\)]\)", None}, {
        "\!\(\*SubscriptBox[\(p\), \(g\)]\)", None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> 
        True}, PlotRange -> {{0.6, 0.95}, {0., 0.3076922950126797}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[FontSize -> 14, 
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         Thickness[Large], 
         RGBColor[0, 0, 1], 
         Dashing[{Small, Small}]], 
        Directive[FontSize -> 14, 
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         Thickness[Large], 
         RGBColor[1, 0, 0]], 
        Directive[FontSize -> 14, 
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         Thickness[Large], 
         RGBColor[0, 
          Rational[2, 3], 0], 
         Dashing[{0, Small}]]}, {"B(3)", "B(4)", "B(3,4,C=0.25)"}, 
       LegendMarkers -> None, LabelStyle -> {
         GrayLevel[0.3], Bold, 14}, LegendLayout -> "Row", 
       LegendMarkerSize -> {30, 10}]], {Top, Center}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{3.6524215720066767`*^9, 3.653538724256084*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fig .4 (a)", "Section",
 CellChangeTimes->{{3.6524215999444304`*^9, 3.652421616658267*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"sol", "=", 
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{
        SubscriptBox["p", "b"], "[", 
        SubscriptBox["p", "g"], "]"}], "/.", 
       RowBox[{"dBoundary", "[", 
        RowBox[{"3", ",", "4", ",", "0.25"}], "]"}]}], "]"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SubscriptBox["p", "g"]}], ")"}], "2"], "/", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            SubscriptBox["p", "g"], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SubscriptBox["p", "g"]}], ")"}], "2"]}], ")"}]}], "]"}], ",", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SubscriptBox["p", "g"]}], ")"}], "3"], "/", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            SubscriptBox["p", "g"], "3"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SubscriptBox["p", "g"]}], ")"}], "3"]}], ")"}]}], "]"}], ",", 
       "sol"}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["p", "g"], ",", "0.6", ",", "0.95"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Thick", ",", "Blue", ",", "Dashed"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Thick", ",", "Red"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Thick", ",", 
          RowBox[{"Darker", "[", "Green", "]"}], ",", "Dotted"}], "]"}]}], 
       "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"LineLegend", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\"\<B(3)\>\"", ",", "\"\<B(4)\>\"", ",", 
            "\"\<B(3,4,C=0.25)\>\""}], "}"}], ",", 
          RowBox[{"LegendMarkerSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"30", ",", "10"}], "}"}]}], ",", 
          RowBox[{"LabelStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"GrayLevel", "[", "0.3", "]"}], ",", "Bold", ",", "14"}],
             "}"}]}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"Top", ",", "Center"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(p\), \(g\)]\)\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(p\), \(b\)]\)\>\""}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "3", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"White", ",", "Yellow"}], "}"}]}], "}"}]}], "}"}]}]}], 
    "]"}]}], "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{InsetBox[
     GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxdmXc41f///yVUSCKraWRFsjOfD7OsMkKUyJa9d5SQWZHVUCokK6soM7vM
kERR5tmV+Sbpd75/nNfnun7/nHO9rnNd53qd63Wet9vjfn8IOPiYOdPT0dFF
UV/+710Yt/OknNwMZPzgZFKtHIbTHlzV4R4zkDb2e5aTOAT+9ObsUUUzsLrO
P32YdwjuHly5GPxjBkzIfP4/LT/CRbibZsI3CzfobS+p5Q6CZLBj0bzFLIgv
c6SKVQzA8omsMr9bs6B4N/Owv14/dPzduFvXMwul6//ezvX0gvqIjdOPHXNQ
LqQeMW/XAyXHBYT+wRy4W3y0PcL1AYQe8LSNRc7BciXBRaSuG9KSfU2fv5oD
Th75kfsRXVAY2/n+PJl6rXOJjflsJ7SnnRVqF5+HKv+RY3XsHfBFQNlD2GEe
XqobpK38boO1DosMrcfzwHGryehcRys0+Ps815yYh13Od1vji95ByFNikQLn
Auxa2kRHi1pAbf5e8pzxAthE6mrKKDXDWmmxTVLCAvCNyDrcsWyE+ptkNmLH
AmxuDBluXK4HEY/jJcfpccDMFcsynfAGEj4OKDir4OBR54BpyHQtLBnmP7EK
wYHf1+CUHxKvwVx/4o9GBQ6iL2Ru2OXXgI3xHg0WHA6OMu9Il1SoBq8rQc5p
R/GQvbGyXeBNJQQxoTDWS3jIMdVwsXOtgPhaJW/t+3h4LrAq08ldDshP+ozN
KB5ul8k42t4uAXJZ0n53NgIc1/t8fdLsBRRscb+XMySAKpw4FrzjOZwbYnRZ
vEEAy9lljYFtBVBU/puUXk8AnQ7bZ16Cz4Dp8R6Ln2sE+IOff0tUegIXOe6U
aEgTQb3S/dJ13sfw5p7WzBkvInDSfRF/WPUAduef32VSSARG64i7JQ05sLP2
Cp/8JBEcXjM1c+/Igt2TZcwj+0nwbqzD8JbRXdiZYE5wO0eCFyI/GO//vgOs
p46XvLlDgtWY8pvDJ1KhlnW7JamXBFx/zEwL1hLA2lL1JycjGT7n37oVZhcH
DDUFV9Y0yUBihiDcp+tQkOE/NBBOBouK0EtKdVeBfFVNOKmKDOv8J5fWw0IB
IpSs6X6SIcd66ZiZVwDc/JMV4SFKgSB77Z2BWd4QWHnHwcWFAop8strqT1zg
tfieFUvjGcjUsylpODMMUaOcP3GnKGC3P0XjvZ87UHaycutqzkAU3/tQ++hh
oL9ioXDsJAUWY4wFosM8YV17qOi5JQWCD9tt7Y92g6TQJBE1lRkIjCRVns4Z
Bh3Z4DGDExSQ1vNRORvnBWq7lwy7z1LgW/nWo5GgK/A6vJLxpi0F3lirRWWm
uoJVxfvyWsUZ6NL//aY5fxjms5iOXZSgALu44YTCbm/45ncjd8yAApe0vQVE
l66A1ZTm+ewLFFjp4BCrYnQDLm6BmmAHCsi1ZQu3c7sCMsL7r8jPwITCi7XN
4mFQfN9v5ihOga+hJhzFpt4glW/Y+V2PAqafHpw4K+sORXuZrz22osB89+I/
NS03cNHDf426TL1ffGDQdjNXaJ+xSvZ2osBJDv2AzxMuILt/3Xwf9ftNr/fN
HigfBttpWVdXMQoop5adYwj0BsvGl+Ozpykghd+muM3MHQaPeWc8O08BHoW8
nCeX3eCW/ZnfMXYUyHdjFGj1cQXSZsNjf0cK+IoEhmuvu8DDD8vB7s4UKP5c
wnqtyQVoPCN0+f8Z1uzDeOYd7dg9frEH41npp4J1Haf3GM+eNnco8+R3YTxT
MHbvd97WifHsS03fhp5ZO8Yzja1tpo6fWjGeVWXH8T42fofx7GPeh0t3B5ox
nh0WaGJntWrEeLaH9O+P/ae3GM+q0eeo+md1GM9YHx6x7Hr8GuOZh6YIr15m
DcaznPzoP+YDVRjPqn3m6FSYKjGeRTa3PTDtL8d41udmWaq2rRTjmfACj3iM
7AuMZ8PK2ce5uwsxnmUfT6QM2OVjPLMeIf9eU3iK8SyJQZdLwSYP49l2BinZ
LtZcjGfvvMUZbpLuYTyrMmmG0CPZGM86HJrtdtpkYDyzex8d5M+YjvFMkLA+
TAi6jfHs1WW23O0eyRjPFgXZbmxnSsB4xrby9VJsXSzGMw/2xEjxtesYzzI4
rrhK8UZjPKuo5nev8ArHeMYYctr16t1gjGf++4x8WOf9MZ75j1ddyOr2wXiW
v1uQ/l2uO8az1UqZZyYtzhjPZhlOpIyP2mM8G390dCjK2wbj2bfhCM5mb0uM
Z7VfVfRz3phiPHM5MqbwbcUA49l4WK2ZdrAOxrNtwaKhdgkI41nNuJ9zXKoC
xjM43ujDuFcK41m4Ytgj0wNCGM/c9JZf6Bn1QoLMY0E6PAmMnLQOm2ycA6k4
39I4ITIssUh1l22dBfOjrI8cbckgHeue2pNyGvQTP/8pzSJDY2xjgstbTciK
VIGOQTJEy+yAH23K4FjvSlBgoYB14aduOm7Z//Gy/dEcUUQM42VhDv60R2cv
8B8xVVsdJ0FhVpLbj+MW0E7+1Ge0jwzhl1gcYjNNQJI0duO4CRkqJxgSyhX1
YY1N2LUpgQxiH54tW+zRBq2rqlXP35HhnoXE0VJONTA9MChw4C8ZBhpd8X/b
5DAeB85vmI1sHQNChHLv9BQZPvEmKuVmn4Sgi/+qTPgo0DT1dm9sjDTG65V9
DPWP44UxXj8877Cyur0PSFzH9H8PkyBhWrkyr9cC2J4m2FawkmHI/4TbB2FT
4DVpDubQp94PB31RGqcB9H/sOdh1nQxv3w+F3mjRhpy/9UTet9T7e5Zkb6av
DnqGsY27V8nw+olVMhTIYz6oel4SGHpNEjQ23zCaj5Fh7nGpnNMLJfBMrj6r
zUEBT36Gfnp9GcwX5M7B6M0BEcwXcj2TmjEGRzFf1DXrmEwI9oFZWtaA9yAJ
Tlk/UNc+ZAnymz9EpneS4bSLSwj4mAJbjOyvWF0yjP10Y9oVawAqco9DDKPI
cDTqMHFgvw60qkcmmL4mQ8q+CnixoA46jrYsNxfJ8PE5aSiaVwHzkTFPiN3X
U8fBQy38acoIGbwlxTQTFZTB7VnqwwY2CvSpk8ZelstgvuIJCstrCBPFfDVd
mKZJmT+K+cqRSyTQtFII8xXfpsxBC9k+YBjoTS/rp56nOI6FOV1LOPWCjeUP
ExkW6PkNjTNMYdcBkmSTNhn+ZoZbdTUYwK+ZnQWpkWT4p3/ovpOeDoxd+jrq
VUOGVLktrrqTCLR8DKvafpFh2LSh/L2ZAuZDukaJuyElx+GazfivoiEy5G/M
JXlHKoPLS6qGWCmQWlqYLjQtg/kyk2Xp1dyAKOZL0SaW4kuKwpgvDYg1vDf+
CmG+9OB13E1yFsJ8KcAUiOdU6YNJsutybx8JiHqTLwwvWMLgv6NXd1B/X1Gj
9hNSoSnEL+j1jGuRgfeGkcnpLwZg0NBYXx5BBvJe3woDOx2Y9mLdiqgmw5V+
teL/7BBorLxjnKbywtNK7hSfrwLmY11+c27+yeOQ7MnMW/uRDFORzZLcecrg
pPA7i4f6+76y/bfCsCmD+Xp5tzPXmT+imK/12Xr0nGyFMV9vzGvgcEJHMV//
9PU5E5cshPl6Jks/OU5DCPO1Ua7UW8WJfszXc2c0Vz9392K+DuiIspTJ+oD5
+vP3yVrrzG7M1+RnX9ZUSv7n66cEn/iRwv/5+hbFjtNw5H++9gysUG0ntWC+
zrbP/pip3YT5WquHsXXP3nrM1/eskkILO2oxX0vuUz9fOFmD+bpLjK4nX7YK
8/WAxF+LB/QvMV+PrpBHJp2KMV8Hmo+9T5gowHwtnqx5KHf2CeZrn0WzUdPT
uZiveV+y7v0ilY35Wvhubs5123TM17l6jDOOfCmYr8O2L9Wb6MRhvs4dbhv1
kr6G+Vpv/8fF3M4QzNeywx+bWx75Yb5+NnSXXLfdHfP1zoVoX7d4B8zXA7fS
ySeaLmC+VnmQd4r3vhnm6/+eyWqF9Opjvr51LGp8QVIL8/XsySL1vY+UMF9f
WE1NUv4tjfm6e9polKgtivla/pZ756eMw5ivJx9oSkR57cN8rbDzxv50embM
1xp+o2vZg3SYrxvGnCbf31tBNF9fYPlaPa5GQDRf5x1KZ9gh9h3RfL0xX/yV
vmwI0XztcOyP1pZ2B6L5+oGkp/B0fB2i+fpyW77WG71iRPN11i/v1OdVDxHN
1/vrVORtNG4jmq8tX8r7nIBriObrY0eEVCWi/RHN191KHjZc0i6I5mtmxjSR
usE+uK8vuHzScwEqWLafPFOaAdb7e1+pPF8Awcr00SXeO+AbtvsS6+wCfDLE
iz29mgDnH0X56h/GQdsNuQqNzBhoYntLnLTCweieJIfQDxGQ/6G5v/cuNa9a
Gzx6GhUIVkYrh0R6cbDyYlBJx8QbnGxazc4y4SH9qg5Z/I8z/K61/tmvgYdl
fYnkmRg72LKtX3oegQf2a3ocy+aW4JBR8824Dg/5livLzQzGkHX7m5zjIh6e
RUVPBpTpgv7o4O9+SQLsq4sL4VlWh0i3Wzx3XQkgdcR/OsRfHqJaIl60PibA
RhvX3qCDkvC5kE7g3RcCHFyZn+ufEYSKMWM63n3UvOlXM1G2gw+YLa+c7jpL
hPWtxzL25uwwc/jMan8iEUKZRjk8lhggqezyXq1W6nwXLLduve0PSvrAwhG7
SYSjfi/Ri++/ELPc9fDDJ0mw49Tsl6H8WcS80GKw158Eh6/59X3OH0MO4jl0
w+UkuHjbZpJVpxfR5qVjWwXbXsq0INq8NJvKueS8owrR5iWzYOKCd+gzRJuX
MtocKdHHMxFtXvJdnPnhGhaPaPOSSs+6zvlzoYg2L9lYjlutcnsi2rzUHTJx
usCiH4g8k81sttTzDjGZM/OZUOSomjidvQDK18d3ucinQda1v6/+jCyAr4bW
nj6UBE0Mo6mq7Dio3D05JDxzA4R+tbM/1cfBGl0tvR99FBixyNalx+HgTlzv
AeK+YBg1wKXINeFgZ3bAz49WvvD9k9t7yTUcbCtu3dFEdIWXd1yPVcjioau0
x6+b2x7eVkUqXvDEA+M3XWMOfytYLlgt0H+BhwLH97ikvybgTnezxW4WD6sG
k+TS56fhQOvx+IeHCLDa3s/Gc10D7lSb+TpaEyCZh/BB3k8R3N633BxPI8Cr
hnDdU1NS0HJsnan4AwEOr0ag1v+OwkT9y+LtTETYzib+xKjsAMjWRK7fACIs
TFxbmNHlgLNfuzxvRRDB3mFq7/cLO6BXzGa3fg0Rku6dMB8S2ULvW95y2ZCJ
YOsb/0P+wBJKScjWWhejPl+7yA+v9BdQYm3S/kYHEhxq6WIjqX1FtbXTFp2P
SdDHfe8NvdYgos2rG5+CmFPSWxFtXu04z8k6xfoK0eZVIxUXVq6nhYg2r54x
vLu3vigH0eZVcZGAgo1rSYg2r+ZtOoZ93xOJaPMqc7MRWYPZF/06KXruvCQ1
T9mw9xGsr4PV8ZedB9xwcFDSeU6gNgw2E8/MMT3FgfOrbZs29AEwfob+Je84
9bzX9dUz8ngCbvrAVx8uPEjbiXDcOOEEclOGNeSzePj2208ndtcl0GLZqFhJ
wsP1vO+1jo7mMBjjz2XZhQdiak/TDiMjaD0s/9yFjgASkrj978e1IYQQcGmb
GgGUJKQHceKq4HboQ1NrEAGSuNf5jR/Jwt1axZ7iMirPk+tC6DLFgSK4U3UM
Rz3PMUnvEukEIH7lp4WkIBG2CgaP9j3ihuk1i0xmW+rzOeJf0yS2G0Lth6L3
5BDBz6f2zK4uetCXdeZSHaSeX/+DpZPi/yGjERu2UhYSWEnP/1LvIqPEb+5V
2rokONCvXKR2aholc6+FO18ngWTGEXapsE+I9cGZkqlGElQveH65ldiNfmmT
dzKvkUCRnXXPa7kGdO8gS3KTLHUeD7jFPTxQjiJtoO6eJxnYujrNm9/moQfb
k+48yCeDitecuop0OqLlhysFJTf2cd1AtPzQYJGmu188CNHyQ9SoECP64oZo
+SE+73KJdU4/7PtXL7xhuQB6agIpJxKzwGTnkr/inQU4VHDxzr2uNBCLDXII
6FuAqX+BvybFkmGx9vpD+V04SNWM5D6dFgujlw2ebdfCwbSgKW+9ZDTkSRBL
g6JwsGxObNAgBAPXB3sdlVocpMSM7GBb94VHHA0MD3/ioDrjUvuzRTdgu0rp
ypPAw2A85Z98jz3k2Hw7X+1Eva5Q52NOt4bGcp6kzid4YL452BreZQojdRNM
tt/w0GR+rTSxRg8YlGxMtnMToDDU+Y+imSbs/1Lz0NCMABo/e2wKr5+EyTMz
wfNJBODV/pWvISkNNZ4rYYfbqP+XN73vTvOIgG/ZVPT6FgHe+jYIXuc9BKcc
482mT1L9fFZQI9+MExhUGcW8A4nw6aR/oU3hTvCct042KiOCQCZby4+xfwin
ms7TPUeE2zli1VdNl5FR9dPCeQESXCMXCJHrcKj7sQ8950XqeZZXOiyjOImm
t27SaeSQwHhy20Ku10dEy2+1JWeeN39vQ7T8FtU++GX/29eIlt+OS5wiv3Yq
QrT8FklkcRm4fx/R8tsDocxLB7tTEC2/iXapvG+TikK0/MZLUR5OlfdDR4lD
9ibCOPh58qOq8cp1YHkkb331Mg76LdknLRrCwaSYaRx/Hweh56ZbLRoDgK8v
wuXIMA6SRaI126W8oPCID8/UbjwEDQnhJ9mdIb1nyHTyNB6C3fbZIw1b4H91
YejsDTwcTZVW/W1pAfeS764PNeNBVCrbbSPvDEh+TiA7reMB9yCA2bpZBy5f
firqJk8AQQrTya/xarCoJUks9iaApzRztf4NOdipZv32dSEBUMgugccfj8G0
E0O50Q8C7Pz+YzeQBODAwhEJwQNEuCAbe+O/Hh5YLbSjuFkSIWe2fmvxKxtI
texR/XmHCEwKNSvio9uB8NPhLnpPBO2SYb5TKevIw1ienZeBBE9HdURzX/1E
BjuDuWUQCWxVvF4c8ZpBH7YmHOrDSMBeyvPOjv4zOjm9aGH9mgThV7cuip7/
gBpUOrkYf5EgZldpoapKE5odbDwgKEEGq4YKx5iSCuTWIlwS5UyGIycV2sV2
P0X+ndKn8nPJsMUvJXIs7y6i5Wl2vdHzQjWxiJanTRbXHc+WBSNang4w2RRd
cHBHBgMFsq7uJCgbz/FydxhHKb7qJUbPScB9pIbB1KwfmYuFnvjzgwQMv54E
xFi9Q2HKQur4A2S4fbOV3BJZjTQSFu/onSdDlcray6qtfMRvFFX56jYZYqp0
Oc+NZyHS5ttQxfdkuGp5WjfSNQFdIB6IF2OggPZWdVD4oXDU8lg+fRdQ4ES8
isXGhhfK+FOX7rdAhmSr35pP7l1HURKGPLb8FODa2GXN1hGAaPn/kMGIrGeg
K6Ll/198FKG2N/1QtFg85nNuASJ6bTRyJrIgf7zf9XLKAqg5ZtlncaTDYlyl
0sv3C+C/syvVNC8ZUtI+C1Uy4uCQsHXgcUIsnOBL9ZRHOAh6Ir6U0hENH+pP
iy6E44BnyTYz+XwI1CQezmusxsG9Y/0CioZ+8LfC+ekwEQc/NOzw02FXAC1V
cvOJUecHfI/PoqgDxFem4qYu4+Ec8Y/tHZELICgntsnwCA8ExidR5SfMYBcX
07FvX/BwfETFnQf04T//gFeKHAR4cC/WybJJE74T56qazxKAoJiRYsGmBLx3
Ar09bxLgxi3T0tJUaShPDai2aiZA6PggvrdEBFQLQ9wD/1Dnj5dlPFdHDsGg
Ckv0XnkiDHZoqulMcoIt4RnjpC8RiE2RaefMdoFah5VB/wsiyLvMj3BfooPQ
9au8Wz+oPPpXm2K2tIxK9YqsLh0mwWxMf6tKKB7hOB1W1c+T4ISwh+lPNIVC
no5/iswgQehi6YNO5iFE61+CMxV1X91uR7T+henZH1mXh7WI1r9sdjptXDF7
gWj9i5dExs0fTx4gWv8yklX1se1vKqL1Lxy7MqoVTaIRrX+xFNi+rfCTH2pq
F8P3CuBAWbwYV6MTA06WIYLlNjjQP8bwUlcrAsJVHM0vZuNgv5ILRepQINSl
KLU+HcBBwM7MptNNXsDYxPuKm5nKF89nbT9inaFVMyvPUoeaB7q27d793Rb2
MLM4RkTjIZxkfiB3xAK29uR77G3AQ8CuDJ0Nk7NgL1fNPruCh3XJ8tsnFHTB
/MGblAfSBCh/X/HGWVUdai0ubTviQYCWJiONu+tyoB1FqFR7RoCU7pOyykES
8DUuZiH+GwHmSq1yYlwEYX6qliuXhwiy2h+y11x54VrU7P4cMyKkR7r8N9K8
BxJ8ynntUonAIMgivenAAG/77c1aOojAHiBz1ktnA22w8u89S0eCOeV+pYmL
v1BxbkT3cxUSBB1iqB9mmkUE/37L+SASJMY9qrcY/Ix643QlsqpI8Evkt8Nt
/R4k+Fr2YQyJBDqxii0XDJrRLgme2XOiZNBoZ16wsKxEtos5R3/bkyHwerz0
reanaFKU4YnYfTKE20aPMjlmIFofdiwNr/0pLQ7R+rDM1C9BrJEhiNaH7R4b
4tA/6YHctXNE0l1I8LJeleeX4QQS3HfnWuIzEqjEl/A+dBlAb5/NvgqdJMG7
o7Zqe5feoUd3IxkP8JJB2n9W6JxmDVJ868xcf44MtSFPNnN7C1BKmSmrSgqV
R5wB/2QbsxGPegSXTwcZWhhT7+Z7JyLL7avDT+goMCp3P8h+bwSyZ+iY4VOl
gLrd4tsaOh/UrBp2oniGmncf13LsPReDwrWFnT8fpEBNsi6cCAhEtP7OpaH1
0F1BN0Tr7z5vC5BV7ndBtP6OhyxeGvGhH/w9BauKTRdAij/n3iHGbOhvU3MI
SlqAzSLmg95K6TAaPyDU17UA581PpBd+TQbrqBjXn9txcPv2K2MenjiwCZL6
aKSGAxWmk/z+u67B5Pbg2SNhOCC4RYRN3AqBWPzmmX+VOLC5kzLUH+gHktdU
/H7iccDlaWYX3nQFLMs5kYUIHsqPec+uWDrA1sSc9KotHnwPdfNv+l0A8yBp
haMP8SDC/2/1gZMZHNV+UH9wDA/0Uc/lPeP0wZ/9n6sJOwHsnh7ZNF7RBK2g
rcZ1IwIkUA4sDloogaKMuvvLOOp8ZFVzWapZGiQeyQ4GNRIAx3+V0W1NBPKe
tk1VrhPAyKYp5aD8YcgqPMMlLksE67JbLp7C+4BVK2CZy4cI5L4cBtyLXZAv
Pya+p4gIeR++fQjPogONsSVevu9EaDzr07umu4JsOEsqcw6S4Fvy6NHJL3j0
35mLvucsSJAQ8nXJu3MKaS3f0HiQToIcx79KGheHEK0/rbUR8ZHCtyNafzpq
7K1+j70O0frT8qsan8J6XyBafxrT9Hdyl/hDROtPP7SUKrjm3kK0/lRvYLOk
ZC4a0fpT9w8fvCzE/VFS5bAkCz8OMvRiJz55xkBaFe/Nzgs4mFoKV+KOj4Db
MWl7MzJxoBiccODVmUBIIHH7zvbhIEuX3myVyRvkU8k3ZHfiwVLVLKuh2RnG
N9e60rXw0Mb54xq3jB3EyzuWpF3Fg1PjnfP++yxB2qw0X/otHtgFp0wdi89C
pL3eU6FlPHje/Wq03U8X+pV04ZUUAWL78JJK2eqwfyqI1foKAT5pEQwrFeTh
8pHqsugn/9dHSBfZd0vAhSxNhvwJArzgfxvbmS8Ihl+3J49zEeHGzdcJF2p5
QZcgUvnShAhuZdc32vjYQbHr6o7sZKpPrrxsaypmAEH0Q2ZbOxHqDFWM9Z9u
oFZi5t4rW0Qo0vta0J37C11wixKYUSKB/I3qUD2LWbRR2jX4J4AERcztOe+U
x1D2Z0pmTQUJ1K4MnO3q6EGfltzs3hFIUCPNsrvhUzM6OKbd7SlMhml9gybO
8kpknWxmf+wyGYQ9Vr8fO/AMZYx59bvnkEGrLK7QsCsD0frsmHUHvUsM8YjW
Z68tpO65Px+CaH02Y/SKZEmBBwq/mpb33Imav4Td8yLaJhDJWZn4/AkJ2HJG
vogtDyCvH/vDar+SYFRhU+WEViuq1HiBl+Mmw2eHQ0wKhTVI5tyR08umZJj1
1PjgqFiItGzrlSOTyPDNomfkm0wOkrw04ZjcRoY7gh0vnVYTkfmemfDJLSq/
tNljdG9HoCrFVFZBZQrcYd092pfgg0Yufrna+YMM8oxzgn+qYlCoMQfrvgMU
4ME9jRbtC0S0/t36z5Xl3kg3ROvff+4cWjPjd0W0/l3p11aXaJQLovXv311T
p8eG+uG8+OThbpMFGL7Kd2eZLxsc6gKmohMXgCMtzs7XMB30btryfe1cgEEf
YYn/NpKhZfl8IhuVTw9ZTNmKj8eBv1D0dmtVHMREaCzOHbwGONHd2mqh1M+v
gVV5cQh48pGO8lP5ZME+n92Q6AftC/lWf3E46AH7MoYfV2A6ud00QBgPTzb2
Kj3xdgCV33sttlH5NMGiSdjMvgBeWTUf5R7g4cfaMym9aDOQGXeOVfuMBzpj
jc/jRfogPaWjeWkPAaBInWnnXi1YfpPUxk3lU4lLp+1YmBK0XxfADcYSgN5o
tUpwTBrcRdJtYxsIoKJCV51ySBSG867cH/yPmvfCH3VZOB2G0K/e3+VlqP9X
6+nv5/X3wTR5nCjjTYTXMtFH9o/uAitS9r0Tz4lwVriV07+aDvK7pO6JTBEh
a3Jy7a3PCqoJlbR9fYAEmtYyf6VZCIiOeP64rTkJbA7H7b7K+B2J5o4FFaeR
wPnvsOh/N4YQbf8x227F68HdgWj7jwZVvQvhhnWItv+4lOy89xxzMaLtP5jk
g+MSvR4i2v5jrqJSIphyC9H2H3NixSf7ea8h2v7j44nU0Y1z/uiX6Iuzx47g
IK+Ksp3+egwUXb7yZsgaB49VfjErFEXA/UIx34oMHDh9WZk/7BIIvgeZTjNS
+XTlc71+ooQ39C6f99DYgYcGNdXJy9+cwWW8aKJCEw9hnAfCZq3toFX/9sDD
SDxIP7qTmCtvCfoB0poab/BQ3fpvT8Dns5D4H4eH9hIeJJO3ZkVv60LKjmTe
1uMEqJl5xxzfoQ49QvQcwW4EaOsJuvLvnDz89MmWeJJHgKZ3Z0bPLEpAzuEn
6VXjBOjsDKaXbReEqPEXuuv7iFDaeGfTeYoXxPj1IuuNiRClbLSxrsgOrAFz
W1VJRDjD25C01s8Aoyt5TwTaiBDp4DRe/HEDiUwMpgX/JUJt4127/c2/UFXf
vz46Kp80usc6CZGziN6gPZWJyqfPoWxL3D5jKPKadk/bSxJU7av99pyhF5Vz
MLz7jqc+z6Z4NUG2FlQgdUEl7CgZNIdPryeOV6LR8y//nbIjg7K+k1+2/jNE
qRCcS84mQ9ft+xaiGxmIto+Sfb7+IA3FI9o+yuGhVFHlwVBE20fF6tKpL37z
QDH7b12qciTBVuPnjtV/E2iI7RZ/bR513p5JPDd/aBCdons9PjpBgsP6BckK
7q1IJbv5ogYXGRL4j18x+VKDyo9EzrFT+aQZFB+45VGIHir6muQmkiH6mEMe
o1cOOunFknyvlQz9SbN65qpJyCzTun/zLxn+O9yyV3UgAo0b/+YXUaJAWVkQ
j1y/D5ry2FUw8p0MJqalWu9mYlDwpwQ72f0UqJLcw/FjIxDR9mfGip9kGovd
EG1/ZsGgoyFo4Ipo+7MjOg93/CpwQbT92UIVn96UpQuyZ6kqrEudhfC6rnrN
8Vb4/6//H+5Jajo=
        
        "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
          {GrayLevel[1], EdgeForm[None], 
           GraphicsGroupBox[
            PolygonBox[{{78, 186, 172, 159, 147, 136, 128, 79, 80, 81, 82, 83,
              638, 637, 206, 205, 204, 203, 202, 251, 283, 343, 415, 488, 562,
              201}}]]}, 
          {RGBColor[1, 1, 0], EdgeForm[None], 
           GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1GW0lVUUBVC6u0G6W5BuKemUTqW7OwUJKQnpGnSIdIsSFth0d0p3KeE8
gx9znLXXPd99471978vQqnvdbpEiRIgQkZTCUP6WD3KIwxzhKMc4zglOcorT
nKGA5256k0U0IjWv9Gcp6LVb5sU0Jg2v9eco5LXb5iU0IS1v9Ocp7LU75qU0
JR1v9XX1Mdhj7k8JLuiL6O7Ky2hG+ojvfrGP9THZKw+gJBe9VFR3T15OczIQ
kXr6WOyTB1KKS+4X092XV9CCjESivj42P8iDKM1l94vrHsgraUkmItNAH4cf
5cGU4Yr7JXQP5VV8Qmai0FAfl5/kIXzIVfdL6h7Jq/mULEQNf399PH6Wh1KW
a+6X0j2Wv6YVWYkWdqKPzy/yMMpx3f3SuifyGlqTjehhT/oE7JeHU54b7pfR
PZW/oQ3ZiRF2p0/IAfkzKvCP+x/qnslraUsOYobd6RPxqzyCitx0v6zuubyO
duQkVtidPjG/ySP5iFvul9O9kNfTnlzEDrvTJ+F3+XMqcdv98rqX8gY6kJs4
YXf6pPwhj6Iyd9yvoPtX3khH8hA37E6fjD/l0VThrvsVdf/Jm+hEXuKF3emT
85c8hqrcc/8j3St5M515n/hhd/oU4Xsqj6Ua992vpHstb6EL+UgQdhfp3Xf7
oPwF1XngfmXdG3krXclPwrA7fSoOyeOowUP3q+jeytvoxgfh1GXmjPwVicIu
ze9xWB5PTR55vmr4R8N2c3cKhNOchbPydBKH3ZpTc0SeQC0ee7SaLiI7zD0o
GE5zVs7JM0gSdm1Ow1F5IrV54vnqukjsNPekUDjN2TgvzyRp2L05LcfkSdTh
qedr6CLzrbkXhcNpzs4FeRbJwmfBnI7j8pfU5Znna+qisMvcmyLhNOfgojyb
5OGzYU7PCXkyH/Pc87V0UfnO3Iei4TTn5JI8hxThs2LOwEl5CvXob87DVXk+
L7xfbXM0vjf3pVg4zbm4LM8lZfgsmTNySp5KfQaY83JNXsBL71fHHJ3d5n4U
D6c5N1fkeaQKnzVzJk7L02jAQPP7XJcXMkjOxw15sDM/Q8L3zc8ZzgF2sp81
7OAXFvI12/mZaSxgNdv4ibFMZi4r2Mw+hjGV+axiKz8yhi+Zw3I2sZehTGEe
K9nCD4xmErNZxkb2MIRRTGQWS9nAbgbzOROYyRLW8z2DGMl4ZrCYdXzHQEYw
juksYi27GEB/+tGXPvSmFz3pQXe60ZUudKYTHelAe9rRlja0phWf8gktaUFz
mtGUJjSmEQ1pQH3qhb+xHf4PPqEI8A==
             "]]]}, {}, {}}, {{}, {}, {}, 
          {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], 
           Dashing[{Small, Small}], 
           LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,
             12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 
            28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 
            44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 
            55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}]}, 
          {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
           LineBox[CompressedData["
1:eJwt0NVSVQEAQNEDf8IPEVeUllAa76UbCekGaVC6UZBuafgsFjM8rNnvOyYn
EgpHBUHQSCzn7DDPT7ppIY54Egjxge/RQZCoH/lEEsmkkEoa6WTwmUyyyCaH
L3wllzzyKaCQIoop4RthIpRSRjkVVFJFNTXUcsEfFhijh1bquOQvi4zTSxv1
XLHLEhP08YMGrtljmUn6aX//9p9/rDDFAB3cccg6swzTxA37rDLNIJ3cc8QG
c4y8PeaWA9aYYYguHjhmk1+M8sgJW/zmiVO2eeaMF5p5BT6ERXk=
            "]]}, 
          {RGBColor[0, 
            NCache[
             Rational[2, 3], 0.6666666666666666], 0], Thickness[Large], 
           Opacity[1.], Dashing[{0, Small}], LineBox[CompressedData["
1:eJwl1GWUlVUUBuA7Q3d3Dt3d3Z1D2IqomIBi0KKCErZgECbY3V2AIN3d3d2S
z17+eDjvfu/+LmvN+WZS+g9OHZSUSCS+988CZ63kRGK//DbXUYSL+oUsYjFL
WMpou8ucy1nBSlaxmjWsZR3r2cBGNlHbcwd87ztcT1Eu6TdTx2cHze9yA8W4
rN9CXZ8dMr/HjRTnin4r9Xx22DyTmyjBVX2qPiN/mofSmG36+roj8ixupmT8
EOilz8Rf8jCasN1HDXRH5fe5hRSS6K3PzN/ycJqyw35D3TH5A26lFMn00Wdh
tjyCZuy030h3XP6Q2yhNGvrqszJHHklzdtlvrDshf0Q/ypA27kyfjbnyKFqw
234T3Un5Y26nLOni56/Pzj/yaFqyx35T3Sn5E/pTjvRxJ/oczJMfpxV77TfT
nZY/5Q7KkyHuSZ+T+fIYWrPPfnPdGfkz7qQCGePu9Ln4V36CNuy330J3Vv6c
u6hIprg7fW4WyE/SlgP2W+rOyV8wgEpkjrvT52Gh/BTtOGi/le68/CV3U5ks
cXf6vCySx9KeQ/Zb6y7IX3EPVcgad6fPx2J5HB04bL+N7j/5a+6lKtni7vT5
WSI/TUeO2G+ruyh/w31UI3vcnb4AS+Vn6MRR++10l+RvuZ/q5Ii70xeM31N5
PJ05Zr+97rL8HQ9Qg5xxd/pCLJcn0IXj9jvoriT9/3diIDXJFXenL8wKeSJd
OWG/o+6q/APxB6ZWnLoybJInkzvu0lyElfIkunHS8510CX40D6Z2nOaybJan
kCfu1lyUVfKzdOeURzvrkvjJ/CB14jSXY4v8Knnjrs3FWC0/Rw9Oe76LLpmf
zQ9RN05zebbKr5Ev7t5cnDXy8/TkjOe76tLwi3kI9eI0V2Cb/Dr5410wl2Ct
/AKpnPV8N11afjU/TP04zRXZLr9BgXg3zCVZJ79IL855vrsuHb+ZH6FBnOZK
7JCnUjDeFXMK6+WX6M1Qc1V2yzM47/t6mNPzu/lRGsZprsxOeRqF4l0yl2KD
/DJ9GGauxh75TS74vp7mDPxhfoxGcZqrsEueTuF418yl2Si/Ql+Gm6uzV36L
EXIN9skjnTUZFb9v/p9rL/DTpQ==
            "]]}}}], {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0.6, 0},
      BaseStyle->{FontWeight -> "Bold", FontSize -> 14},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(b\\)]\\)\"", TraditionalForm], 
         None}, {
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)\"", TraditionalForm], 
         None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> 
        True},
      PlotLabel->None,
      PlotRange->{{0.6, 0.95}, {0., 0.3076922950126797}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], Scaled[{0.5, 0.5}], Center, 
     Scaled[{1, 1}]], InsetBox[
     TemplateBox[{"\"B(3)\"","\"B(4)\"","\"B(3,4,C=0.25)\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.023999999999999994`] -> 
                    Baseline)], #, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[1, 0, 0]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.023999999999999994`] -> 
                    Baseline)], #2, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Dashing[{0, Small}]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Dashing[{0, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.023999999999999994`] -> 
                    Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          GrayLevel[0.3], FontWeight -> Bold, FontSize -> 14, FontFamily -> 
          "Arial"}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 2/3, 0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 
                    Rational[2, 3], 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.3], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.2], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0.3]"],
                    Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                   Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.3]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0.3], Editable -> False, Selectable -> False], 
                 ",", "Bold", ",", "14"}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"30", ",", "10"}], "}"}]}]}], "]"}]& )], 
     Scaled[{0.5, 1.01}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->False,
   AxesLabel->{None, None},
   AxesOrigin->{0.6, 0},
   BaseStyle->{FontWeight -> "Bold", FontSize -> 14},
   DisplayFunction->Identity,
   Frame->False,
   FrameLabel->{{
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(b\\)]\\)\"", TraditionalForm], 
      None}, {
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)\"", TraditionalForm], 
      None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> True},
   
   PlotLabel->None,
   PlotRange->Automatic,
   PlotRangeClipping->False,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[
     GraphicsComplex[CompressedData["
1:eJxdmXc41f///yVUSCKraWRFsjOfD7OsMkKUyJa9d5SQWZHVUCokK6soM7vM
kERR5tmV+Sbpd75/nNfnun7/nHO9rnNd53qd63Wet9vjfn8IOPiYOdPT0dFF
UV/+710Yt/OknNwMZPzgZFKtHIbTHlzV4R4zkDb2e5aTOAT+9ObsUUUzsLrO
P32YdwjuHly5GPxjBkzIfP4/LT/CRbibZsI3CzfobS+p5Q6CZLBj0bzFLIgv
c6SKVQzA8omsMr9bs6B4N/Owv14/dPzduFvXMwul6//ezvX0gvqIjdOPHXNQ
LqQeMW/XAyXHBYT+wRy4W3y0PcL1AYQe8LSNRc7BciXBRaSuG9KSfU2fv5oD
Th75kfsRXVAY2/n+PJl6rXOJjflsJ7SnnRVqF5+HKv+RY3XsHfBFQNlD2GEe
XqobpK38boO1DosMrcfzwHGryehcRys0+Ps815yYh13Od1vji95ByFNikQLn
Auxa2kRHi1pAbf5e8pzxAthE6mrKKDXDWmmxTVLCAvCNyDrcsWyE+ptkNmLH
AmxuDBluXK4HEY/jJcfpccDMFcsynfAGEj4OKDir4OBR54BpyHQtLBnmP7EK
wYHf1+CUHxKvwVx/4o9GBQ6iL2Ru2OXXgI3xHg0WHA6OMu9Il1SoBq8rQc5p
R/GQvbGyXeBNJQQxoTDWS3jIMdVwsXOtgPhaJW/t+3h4LrAq08ldDshP+ozN
KB5ul8k42t4uAXJZ0n53NgIc1/t8fdLsBRRscb+XMySAKpw4FrzjOZwbYnRZ
vEEAy9lljYFtBVBU/puUXk8AnQ7bZ16Cz4Dp8R6Ln2sE+IOff0tUegIXOe6U
aEgTQb3S/dJ13sfw5p7WzBkvInDSfRF/WPUAduef32VSSARG64i7JQ05sLP2
Cp/8JBEcXjM1c+/Igt2TZcwj+0nwbqzD8JbRXdiZYE5wO0eCFyI/GO//vgOs
p46XvLlDgtWY8pvDJ1KhlnW7JamXBFx/zEwL1hLA2lL1JycjGT7n37oVZhcH
DDUFV9Y0yUBihiDcp+tQkOE/NBBOBouK0EtKdVeBfFVNOKmKDOv8J5fWw0IB
IpSs6X6SIcd66ZiZVwDc/JMV4SFKgSB77Z2BWd4QWHnHwcWFAop8strqT1zg
tfieFUvjGcjUsylpODMMUaOcP3GnKGC3P0XjvZ87UHaycutqzkAU3/tQ++hh
oL9ioXDsJAUWY4wFosM8YV17qOi5JQWCD9tt7Y92g6TQJBE1lRkIjCRVns4Z
Bh3Z4DGDExSQ1vNRORvnBWq7lwy7z1LgW/nWo5GgK/A6vJLxpi0F3lirRWWm
uoJVxfvyWsUZ6NL//aY5fxjms5iOXZSgALu44YTCbm/45ncjd8yAApe0vQVE
l66A1ZTm+ewLFFjp4BCrYnQDLm6BmmAHCsi1ZQu3c7sCMsL7r8jPwITCi7XN
4mFQfN9v5ihOga+hJhzFpt4glW/Y+V2PAqafHpw4K+sORXuZrz22osB89+I/
NS03cNHDf426TL1ffGDQdjNXaJ+xSvZ2osBJDv2AzxMuILt/3Xwf9ftNr/fN
HigfBttpWVdXMQoop5adYwj0BsvGl+Ozpykghd+muM3MHQaPeWc8O08BHoW8
nCeX3eCW/ZnfMXYUyHdjFGj1cQXSZsNjf0cK+IoEhmuvu8DDD8vB7s4UKP5c
wnqtyQVoPCN0+f8Z1uzDeOYd7dg9frEH41npp4J1Haf3GM+eNnco8+R3YTxT
MHbvd97WifHsS03fhp5ZO8Yzja1tpo6fWjGeVWXH8T42fofx7GPeh0t3B5ox
nh0WaGJntWrEeLaH9O+P/ae3GM+q0eeo+md1GM9YHx6x7Hr8GuOZh6YIr15m
DcaznPzoP+YDVRjPqn3m6FSYKjGeRTa3PTDtL8d41udmWaq2rRTjmfACj3iM
7AuMZ8PK2ce5uwsxnmUfT6QM2OVjPLMeIf9eU3iK8SyJQZdLwSYP49l2BinZ
LtZcjGfvvMUZbpLuYTyrMmmG0CPZGM86HJrtdtpkYDyzex8d5M+YjvFMkLA+
TAi6jfHs1WW23O0eyRjPFgXZbmxnSsB4xrby9VJsXSzGMw/2xEjxtesYzzI4
rrhK8UZjPKuo5nev8ArHeMYYctr16t1gjGf++4x8WOf9MZ75j1ddyOr2wXiW
v1uQ/l2uO8az1UqZZyYtzhjPZhlOpIyP2mM8G390dCjK2wbj2bfhCM5mb0uM
Z7VfVfRz3phiPHM5MqbwbcUA49l4WK2ZdrAOxrNtwaKhdgkI41nNuJ9zXKoC
xjM43ujDuFcK41m4Ytgj0wNCGM/c9JZf6Bn1QoLMY0E6PAmMnLQOm2ycA6k4
39I4ITIssUh1l22dBfOjrI8cbckgHeue2pNyGvQTP/8pzSJDY2xjgstbTciK
VIGOQTJEy+yAH23K4FjvSlBgoYB14aduOm7Z//Gy/dEcUUQM42VhDv60R2cv
8B8xVVsdJ0FhVpLbj+MW0E7+1Ge0jwzhl1gcYjNNQJI0duO4CRkqJxgSyhX1
YY1N2LUpgQxiH54tW+zRBq2rqlXP35HhnoXE0VJONTA9MChw4C8ZBhpd8X/b
5DAeB85vmI1sHQNChHLv9BQZPvEmKuVmn4Sgi/+qTPgo0DT1dm9sjDTG65V9
DPWP44UxXj8877Cyur0PSFzH9H8PkyBhWrkyr9cC2J4m2FawkmHI/4TbB2FT
4DVpDubQp94PB31RGqcB9H/sOdh1nQxv3w+F3mjRhpy/9UTet9T7e5Zkb6av
DnqGsY27V8nw+olVMhTIYz6oel4SGHpNEjQ23zCaj5Fh7nGpnNMLJfBMrj6r
zUEBT36Gfnp9GcwX5M7B6M0BEcwXcj2TmjEGRzFf1DXrmEwI9oFZWtaA9yAJ
Tlk/UNc+ZAnymz9EpneS4bSLSwj4mAJbjOyvWF0yjP10Y9oVawAqco9DDKPI
cDTqMHFgvw60qkcmmL4mQ8q+CnixoA46jrYsNxfJ8PE5aSiaVwHzkTFPiN3X
U8fBQy38acoIGbwlxTQTFZTB7VnqwwY2CvSpk8ZelstgvuIJCstrCBPFfDVd
mKZJmT+K+cqRSyTQtFII8xXfpsxBC9k+YBjoTS/rp56nOI6FOV1LOPWCjeUP
ExkW6PkNjTNMYdcBkmSTNhn+ZoZbdTUYwK+ZnQWpkWT4p3/ovpOeDoxd+jrq
VUOGVLktrrqTCLR8DKvafpFh2LSh/L2ZAuZDukaJuyElx+GazfivoiEy5G/M
JXlHKoPLS6qGWCmQWlqYLjQtg/kyk2Xp1dyAKOZL0SaW4kuKwpgvDYg1vDf+
CmG+9OB13E1yFsJ8KcAUiOdU6YNJsutybx8JiHqTLwwvWMLgv6NXd1B/X1Gj
9hNSoSnEL+j1jGuRgfeGkcnpLwZg0NBYXx5BBvJe3woDOx2Y9mLdiqgmw5V+
teL/7BBorLxjnKbywtNK7hSfrwLmY11+c27+yeOQ7MnMW/uRDFORzZLcecrg
pPA7i4f6+76y/bfCsCmD+Xp5tzPXmT+imK/12Xr0nGyFMV9vzGvgcEJHMV//
9PU5E5cshPl6Jks/OU5DCPO1Ua7UW8WJfszXc2c0Vz9392K+DuiIspTJ+oD5
+vP3yVrrzG7M1+RnX9ZUSv7n66cEn/iRwv/5+hbFjtNw5H++9gysUG0ntWC+
zrbP/pip3YT5WquHsXXP3nrM1/eskkILO2oxX0vuUz9fOFmD+bpLjK4nX7YK
8/WAxF+LB/QvMV+PrpBHJp2KMV8Hmo+9T5gowHwtnqx5KHf2CeZrn0WzUdPT
uZiveV+y7v0ilY35Wvhubs5123TM17l6jDOOfCmYr8O2L9Wb6MRhvs4dbhv1
kr6G+Vpv/8fF3M4QzNeywx+bWx75Yb5+NnSXXLfdHfP1zoVoX7d4B8zXA7fS
ySeaLmC+VnmQd4r3vhnm6/+eyWqF9Opjvr51LGp8QVIL8/XsySL1vY+UMF9f
WE1NUv4tjfm6e9polKgtivla/pZ756eMw5ivJx9oSkR57cN8rbDzxv50embM
1xp+o2vZg3SYrxvGnCbf31tBNF9fYPlaPa5GQDRf5x1KZ9gh9h3RfL0xX/yV
vmwI0XztcOyP1pZ2B6L5+oGkp/B0fB2i+fpyW77WG71iRPN11i/v1OdVDxHN
1/vrVORtNG4jmq8tX8r7nIBriObrY0eEVCWi/RHN191KHjZc0i6I5mtmxjSR
usE+uK8vuHzScwEqWLafPFOaAdb7e1+pPF8Awcr00SXeO+AbtvsS6+wCfDLE
iz29mgDnH0X56h/GQdsNuQqNzBhoYntLnLTCweieJIfQDxGQ/6G5v/cuNa9a
Gzx6GhUIVkYrh0R6cbDyYlBJx8QbnGxazc4y4SH9qg5Z/I8z/K61/tmvgYdl
fYnkmRg72LKtX3oegQf2a3ocy+aW4JBR8824Dg/5livLzQzGkHX7m5zjIh6e
RUVPBpTpgv7o4O9+SQLsq4sL4VlWh0i3Wzx3XQkgdcR/OsRfHqJaIl60PibA
RhvX3qCDkvC5kE7g3RcCHFyZn+ufEYSKMWM63n3UvOlXM1G2gw+YLa+c7jpL
hPWtxzL25uwwc/jMan8iEUKZRjk8lhggqezyXq1W6nwXLLduve0PSvrAwhG7
SYSjfi/Ri++/ELPc9fDDJ0mw49Tsl6H8WcS80GKw158Eh6/59X3OH0MO4jl0
w+UkuHjbZpJVpxfR5qVjWwXbXsq0INq8NJvKueS8owrR5iWzYOKCd+gzRJuX
MtocKdHHMxFtXvJdnPnhGhaPaPOSSs+6zvlzoYg2L9lYjlutcnsi2rzUHTJx
usCiH4g8k81sttTzDjGZM/OZUOSomjidvQDK18d3ucinQda1v6/+jCyAr4bW
nj6UBE0Mo6mq7Dio3D05JDxzA4R+tbM/1cfBGl0tvR99FBixyNalx+HgTlzv
AeK+YBg1wKXINeFgZ3bAz49WvvD9k9t7yTUcbCtu3dFEdIWXd1yPVcjioau0
x6+b2x7eVkUqXvDEA+M3XWMOfytYLlgt0H+BhwLH97ikvybgTnezxW4WD6sG
k+TS56fhQOvx+IeHCLDa3s/Gc10D7lSb+TpaEyCZh/BB3k8R3N633BxPI8Cr
hnDdU1NS0HJsnan4AwEOr0ag1v+OwkT9y+LtTETYzib+xKjsAMjWRK7fACIs
TFxbmNHlgLNfuzxvRRDB3mFq7/cLO6BXzGa3fg0Rku6dMB8S2ULvW95y2ZCJ
YOsb/0P+wBJKScjWWhejPl+7yA+v9BdQYm3S/kYHEhxq6WIjqX1FtbXTFp2P
SdDHfe8NvdYgos2rG5+CmFPSWxFtXu04z8k6xfoK0eZVIxUXVq6nhYg2r54x
vLu3vigH0eZVcZGAgo1rSYg2r+ZtOoZ93xOJaPMqc7MRWYPZF/06KXruvCQ1
T9mw9xGsr4PV8ZedB9xwcFDSeU6gNgw2E8/MMT3FgfOrbZs29AEwfob+Je84
9bzX9dUz8ngCbvrAVx8uPEjbiXDcOOEEclOGNeSzePj2208ndtcl0GLZqFhJ
wsP1vO+1jo7mMBjjz2XZhQdiak/TDiMjaD0s/9yFjgASkrj978e1IYQQcGmb
GgGUJKQHceKq4HboQ1NrEAGSuNf5jR/Jwt1axZ7iMirPk+tC6DLFgSK4U3UM
Rz3PMUnvEukEIH7lp4WkIBG2CgaP9j3ihuk1i0xmW+rzOeJf0yS2G0Lth6L3
5BDBz6f2zK4uetCXdeZSHaSeX/+DpZPi/yGjERu2UhYSWEnP/1LvIqPEb+5V
2rokONCvXKR2aholc6+FO18ngWTGEXapsE+I9cGZkqlGElQveH65ldiNfmmT
dzKvkUCRnXXPa7kGdO8gS3KTLHUeD7jFPTxQjiJtoO6eJxnYujrNm9/moQfb
k+48yCeDitecuop0OqLlhysFJTf2cd1AtPzQYJGmu188CNHyQ9SoECP64oZo
+SE+73KJdU4/7PtXL7xhuQB6agIpJxKzwGTnkr/inQU4VHDxzr2uNBCLDXII
6FuAqX+BvybFkmGx9vpD+V04SNWM5D6dFgujlw2ebdfCwbSgKW+9ZDTkSRBL
g6JwsGxObNAgBAPXB3sdlVocpMSM7GBb94VHHA0MD3/ioDrjUvuzRTdgu0rp
ypPAw2A85Z98jz3k2Hw7X+1Eva5Q52NOt4bGcp6kzid4YL452BreZQojdRNM
tt/w0GR+rTSxRg8YlGxMtnMToDDU+Y+imSbs/1Lz0NCMABo/e2wKr5+EyTMz
wfNJBODV/pWvISkNNZ4rYYfbqP+XN73vTvOIgG/ZVPT6FgHe+jYIXuc9BKcc
482mT1L9fFZQI9+MExhUGcW8A4nw6aR/oU3hTvCct042KiOCQCZby4+xfwin
ms7TPUeE2zli1VdNl5FR9dPCeQESXCMXCJHrcKj7sQ8950XqeZZXOiyjOImm
t27SaeSQwHhy20Ku10dEy2+1JWeeN39vQ7T8FtU++GX/29eIlt+OS5wiv3Yq
QrT8FklkcRm4fx/R8tsDocxLB7tTEC2/iXapvG+TikK0/MZLUR5OlfdDR4lD
9ibCOPh58qOq8cp1YHkkb331Mg76LdknLRrCwaSYaRx/Hweh56ZbLRoDgK8v
wuXIMA6SRaI126W8oPCID8/UbjwEDQnhJ9mdIb1nyHTyNB6C3fbZIw1b4H91
YejsDTwcTZVW/W1pAfeS764PNeNBVCrbbSPvDEh+TiA7reMB9yCA2bpZBy5f
firqJk8AQQrTya/xarCoJUks9iaApzRztf4NOdipZv32dSEBUMgugccfj8G0
E0O50Q8C7Pz+YzeQBODAwhEJwQNEuCAbe+O/Hh5YLbSjuFkSIWe2fmvxKxtI
texR/XmHCEwKNSvio9uB8NPhLnpPBO2SYb5TKevIw1ienZeBBE9HdURzX/1E
BjuDuWUQCWxVvF4c8ZpBH7YmHOrDSMBeyvPOjv4zOjm9aGH9mgThV7cuip7/
gBpUOrkYf5EgZldpoapKE5odbDwgKEEGq4YKx5iSCuTWIlwS5UyGIycV2sV2
P0X+ndKn8nPJsMUvJXIs7y6i5Wl2vdHzQjWxiJanTRbXHc+WBSNang4w2RRd
cHBHBgMFsq7uJCgbz/FydxhHKb7qJUbPScB9pIbB1KwfmYuFnvjzgwQMv54E
xFi9Q2HKQur4A2S4fbOV3BJZjTQSFu/onSdDlcray6qtfMRvFFX56jYZYqp0
Oc+NZyHS5ttQxfdkuGp5WjfSNQFdIB6IF2OggPZWdVD4oXDU8lg+fRdQ4ES8
isXGhhfK+FOX7rdAhmSr35pP7l1HURKGPLb8FODa2GXN1hGAaPn/kMGIrGeg
K6Ll/198FKG2N/1QtFg85nNuASJ6bTRyJrIgf7zf9XLKAqg5ZtlncaTDYlyl
0sv3C+C/syvVNC8ZUtI+C1Uy4uCQsHXgcUIsnOBL9ZRHOAh6Ir6U0hENH+pP
iy6E44BnyTYz+XwI1CQezmusxsG9Y/0CioZ+8LfC+ekwEQc/NOzw02FXAC1V
cvOJUecHfI/PoqgDxFem4qYu4+Ec8Y/tHZELICgntsnwCA8ExidR5SfMYBcX
07FvX/BwfETFnQf04T//gFeKHAR4cC/WybJJE74T56qazxKAoJiRYsGmBLx3
Ar09bxLgxi3T0tJUaShPDai2aiZA6PggvrdEBFQLQ9wD/1Dnj5dlPFdHDsGg
Ckv0XnkiDHZoqulMcoIt4RnjpC8RiE2RaefMdoFah5VB/wsiyLvMj3BfooPQ
9au8Wz+oPPpXm2K2tIxK9YqsLh0mwWxMf6tKKB7hOB1W1c+T4ISwh+lPNIVC
no5/iswgQehi6YNO5iFE61+CMxV1X91uR7T+henZH1mXh7WI1r9sdjptXDF7
gWj9i5dExs0fTx4gWv8yklX1se1vKqL1Lxy7MqoVTaIRrX+xFNi+rfCTH2pq
F8P3CuBAWbwYV6MTA06WIYLlNjjQP8bwUlcrAsJVHM0vZuNgv5ILRepQINSl
KLU+HcBBwM7MptNNXsDYxPuKm5nKF89nbT9inaFVMyvPUoeaB7q27d793Rb2
MLM4RkTjIZxkfiB3xAK29uR77G3AQ8CuDJ0Nk7NgL1fNPruCh3XJ8tsnFHTB
/MGblAfSBCh/X/HGWVUdai0ubTviQYCWJiONu+tyoB1FqFR7RoCU7pOyykES
8DUuZiH+GwHmSq1yYlwEYX6qliuXhwiy2h+y11x54VrU7P4cMyKkR7r8N9K8
BxJ8ynntUonAIMgivenAAG/77c1aOojAHiBz1ktnA22w8u89S0eCOeV+pYmL
v1BxbkT3cxUSBB1iqB9mmkUE/37L+SASJMY9qrcY/Ix643QlsqpI8Evkt8Nt
/R4k+Fr2YQyJBDqxii0XDJrRLgme2XOiZNBoZ16wsKxEtos5R3/bkyHwerz0
reanaFKU4YnYfTKE20aPMjlmIFofdiwNr/0pLQ7R+rDM1C9BrJEhiNaH7R4b
4tA/6YHctXNE0l1I8LJeleeX4QQS3HfnWuIzEqjEl/A+dBlAb5/NvgqdJMG7
o7Zqe5feoUd3IxkP8JJB2n9W6JxmDVJ868xcf44MtSFPNnN7C1BKmSmrSgqV
R5wB/2QbsxGPegSXTwcZWhhT7+Z7JyLL7avDT+goMCp3P8h+bwSyZ+iY4VOl
gLrd4tsaOh/UrBp2oniGmncf13LsPReDwrWFnT8fpEBNsi6cCAhEtP7OpaH1
0F1BN0Tr7z5vC5BV7ndBtP6OhyxeGvGhH/w9BauKTRdAij/n3iHGbOhvU3MI
SlqAzSLmg95K6TAaPyDU17UA581PpBd+TQbrqBjXn9txcPv2K2MenjiwCZL6
aKSGAxWmk/z+u67B5Pbg2SNhOCC4RYRN3AqBWPzmmX+VOLC5kzLUH+gHktdU
/H7iccDlaWYX3nQFLMs5kYUIHsqPec+uWDrA1sSc9KotHnwPdfNv+l0A8yBp
haMP8SDC/2/1gZMZHNV+UH9wDA/0Uc/lPeP0wZ/9n6sJOwHsnh7ZNF7RBK2g
rcZ1IwIkUA4sDloogaKMuvvLOOp8ZFVzWapZGiQeyQ4GNRIAx3+V0W1NBPKe
tk1VrhPAyKYp5aD8YcgqPMMlLksE67JbLp7C+4BVK2CZy4cI5L4cBtyLXZAv
Pya+p4gIeR++fQjPogONsSVevu9EaDzr07umu4JsOEsqcw6S4Fvy6NHJL3j0
35mLvucsSJAQ8nXJu3MKaS3f0HiQToIcx79KGheHEK0/rbUR8ZHCtyNafzpq
7K1+j70O0frT8qsan8J6XyBafxrT9Hdyl/hDROtPP7SUKrjm3kK0/lRvYLOk
ZC4a0fpT9w8fvCzE/VFS5bAkCz8OMvRiJz55xkBaFe/Nzgs4mFoKV+KOj4Db
MWl7MzJxoBiccODVmUBIIHH7zvbhIEuX3myVyRvkU8k3ZHfiwVLVLKuh2RnG
N9e60rXw0Mb54xq3jB3EyzuWpF3Fg1PjnfP++yxB2qw0X/otHtgFp0wdi89C
pL3eU6FlPHje/Wq03U8X+pV04ZUUAWL78JJK2eqwfyqI1foKAT5pEQwrFeTh
8pHqsugn/9dHSBfZd0vAhSxNhvwJArzgfxvbmS8Ihl+3J49zEeHGzdcJF2p5
QZcgUvnShAhuZdc32vjYQbHr6o7sZKpPrrxsaypmAEH0Q2ZbOxHqDFWM9Z9u
oFZi5t4rW0Qo0vta0J37C11wixKYUSKB/I3qUD2LWbRR2jX4J4AERcztOe+U
x1D2Z0pmTQUJ1K4MnO3q6EGfltzs3hFIUCPNsrvhUzM6OKbd7SlMhml9gybO
8kpknWxmf+wyGYQ9Vr8fO/AMZYx59bvnkEGrLK7QsCsD0frsmHUHvUsM8YjW
Z68tpO65Px+CaH02Y/SKZEmBBwq/mpb33Imav4Td8yLaJhDJWZn4/AkJ2HJG
vogtDyCvH/vDar+SYFRhU+WEViuq1HiBl+Mmw2eHQ0wKhTVI5tyR08umZJj1
1PjgqFiItGzrlSOTyPDNomfkm0wOkrw04ZjcRoY7gh0vnVYTkfmemfDJLSq/
tNljdG9HoCrFVFZBZQrcYd092pfgg0Yufrna+YMM8oxzgn+qYlCoMQfrvgMU
4ME9jRbtC0S0/t36z5Xl3kg3ROvff+4cWjPjd0W0/l3p11aXaJQLovXv311T
p8eG+uG8+OThbpMFGL7Kd2eZLxsc6gKmohMXgCMtzs7XMB30btryfe1cgEEf
YYn/NpKhZfl8IhuVTw9ZTNmKj8eBv1D0dmtVHMREaCzOHbwGONHd2mqh1M+v
gVV5cQh48pGO8lP5ZME+n92Q6AftC/lWf3E46AH7MoYfV2A6ud00QBgPTzb2
Kj3xdgCV33sttlH5NMGiSdjMvgBeWTUf5R7g4cfaMym9aDOQGXeOVfuMBzpj
jc/jRfogPaWjeWkPAaBInWnnXi1YfpPUxk3lU4lLp+1YmBK0XxfADcYSgN5o
tUpwTBrcRdJtYxsIoKJCV51ySBSG867cH/yPmvfCH3VZOB2G0K/e3+VlqP9X
6+nv5/X3wTR5nCjjTYTXMtFH9o/uAitS9r0Tz4lwVriV07+aDvK7pO6JTBEh
a3Jy7a3PCqoJlbR9fYAEmtYyf6VZCIiOeP64rTkJbA7H7b7K+B2J5o4FFaeR
wPnvsOh/N4YQbf8x227F68HdgWj7jwZVvQvhhnWItv+4lOy89xxzMaLtP5jk
g+MSvR4i2v5jrqJSIphyC9H2H3NixSf7ea8h2v7j44nU0Y1z/uiX6Iuzx47g
IK+Ksp3+egwUXb7yZsgaB49VfjErFEXA/UIx34oMHDh9WZk/7BIIvgeZTjNS
+XTlc71+ooQ39C6f99DYgYcGNdXJy9+cwWW8aKJCEw9hnAfCZq3toFX/9sDD
SDxIP7qTmCtvCfoB0poab/BQ3fpvT8Dns5D4H4eH9hIeJJO3ZkVv60LKjmTe
1uMEqJl5xxzfoQ49QvQcwW4EaOsJuvLvnDz89MmWeJJHgKZ3Z0bPLEpAzuEn
6VXjBOjsDKaXbReEqPEXuuv7iFDaeGfTeYoXxPj1IuuNiRClbLSxrsgOrAFz
W1VJRDjD25C01s8Aoyt5TwTaiBDp4DRe/HEDiUwMpgX/JUJt4127/c2/UFXf
vz46Kp80usc6CZGziN6gPZWJyqfPoWxL3D5jKPKadk/bSxJU7av99pyhF5Vz
MLz7jqc+z6Z4NUG2FlQgdUEl7CgZNIdPryeOV6LR8y//nbIjg7K+k1+2/jNE
qRCcS84mQ9ft+xaiGxmIto+Sfb7+IA3FI9o+yuGhVFHlwVBE20fF6tKpL37z
QDH7b12qciTBVuPnjtV/E2iI7RZ/bR513p5JPDd/aBCdons9PjpBgsP6BckK
7q1IJbv5ogYXGRL4j18x+VKDyo9EzrFT+aQZFB+45VGIHir6muQmkiH6mEMe
o1cOOunFknyvlQz9SbN65qpJyCzTun/zLxn+O9yyV3UgAo0b/+YXUaJAWVkQ
j1y/D5ry2FUw8p0MJqalWu9mYlDwpwQ72f0UqJLcw/FjIxDR9mfGip9kGovd
EG1/ZsGgoyFo4Ipo+7MjOg93/CpwQbT92UIVn96UpQuyZ6kqrEudhfC6rnrN
8Vb4/6//H+5Jajo=
      
      "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
         EdgeForm[], 
         GrayLevel[1], 
         GraphicsGroup[{
           
           Polygon[{{78, 186, 172, 159, 147, 136, 128, 79, 80, 81, 82, 83, 
            638, 637, 206, 205, 204, 203, 202, 251, 283, 343, 415, 488, 562, 
            201}}]}]}, {
         EdgeForm[], 
         RGBColor[1, 1, 0], 
         GraphicsGroup[{
           Polygon[CompressedData["
1:eJwl1GW0lVUUBVC6u0G6W5BuKemUTqW7OwUJKQnpGnSIdIsSFth0d0p3KeE8
gx9znLXXPd99471978vQqnvdbpEiRIgQkZTCUP6WD3KIwxzhKMc4zglOcorT
nKGA5256k0U0IjWv9Gcp6LVb5sU0Jg2v9eco5LXb5iU0IS1v9Ocp7LU75qU0
JR1v9XX1Mdhj7k8JLuiL6O7Ky2hG+ojvfrGP9THZKw+gJBe9VFR3T15OczIQ
kXr6WOyTB1KKS+4X092XV9CCjESivj42P8iDKM1l94vrHsgraUkmItNAH4cf
5cGU4Yr7JXQP5VV8Qmai0FAfl5/kIXzIVfdL6h7Jq/mULEQNf399PH6Wh1KW
a+6X0j2Wv6YVWYkWdqKPzy/yMMpx3f3SuifyGlqTjehhT/oE7JeHU54b7pfR
PZW/oQ3ZiRF2p0/IAfkzKvCP+x/qnslraUsOYobd6RPxqzyCitx0v6zuubyO
duQkVtidPjG/ySP5iFvul9O9kNfTnlzEDrvTJ+F3+XMqcdv98rqX8gY6kJs4
YXf6pPwhj6Iyd9yvoPtX3khH8hA37E6fjD/l0VThrvsVdf/Jm+hEXuKF3emT
85c8hqrcc/8j3St5M515n/hhd/oU4Xsqj6Ua992vpHstb6EL+UgQdhfp3Xf7
oPwF1XngfmXdG3krXclPwrA7fSoOyeOowUP3q+jeytvoxgfh1GXmjPwVicIu
ze9xWB5PTR55vmr4R8N2c3cKhNOchbPydBKH3ZpTc0SeQC0ee7SaLiI7zD0o
GE5zVs7JM0gSdm1Ow1F5IrV54vnqukjsNPekUDjN2TgvzyRp2L05LcfkSdTh
qedr6CLzrbkXhcNpzs4FeRbJwmfBnI7j8pfU5Znna+qisMvcmyLhNOfgojyb
5OGzYU7PCXkyH/Pc87V0UfnO3Iei4TTn5JI8hxThs2LOwEl5CvXob87DVXk+
L7xfbXM0vjf3pVg4zbm4LM8lZfgsmTNySp5KfQaY83JNXsBL71fHHJ3d5n4U
D6c5N1fkeaQKnzVzJk7L02jAQPP7XJcXMkjOxw15sDM/Q8L3zc8ZzgF2sp81
7OAXFvI12/mZaSxgNdv4ibFMZi4r2Mw+hjGV+axiKz8yhi+Zw3I2sZehTGEe
K9nCD4xmErNZxkb2MIRRTGQWS9nAbgbzOROYyRLW8z2DGMl4ZrCYdXzHQEYw
juksYi27GEB/+tGXPvSmFz3pQXe60ZUudKYTHelAe9rRlja0phWf8gktaUFz
mtGUJjSmEQ1pQH3qhb+xHf4PPqEI8A==
            "]]}]}, {}, {}}, {{}, {}, {}, {
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Thickness[Large], 
          RGBColor[0, 0, 1], 
          Dashing[{Small, Small}]], 
         Line[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 
          13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
          30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 
          47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 68, 63, 
          59, 75, 69, 64, 76, 70, 77, 50}]}, {
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Thickness[Large], 
          RGBColor[1, 0, 0]], 
         Line[CompressedData["
1:eJwt0NVSVQEAQNEDf8IPEVeUllAa76UbCekGaVC6UZBuafgsFjM8rNnvOyYn
EgpHBUHQSCzn7DDPT7ppIY54Egjxge/RQZCoH/lEEsmkkEoa6WTwmUyyyCaH
L3wllzzyKaCQIoop4RthIpRSRjkVVFJFNTXUcsEfFhijh1bquOQvi4zTSxv1
XLHLEhP08YMGrtljmUn6aX//9p9/rDDFAB3cccg6swzTxA37rDLNIJ3cc8QG
c4y8PeaWA9aYYYguHjhmk1+M8sgJW/zmiVO2eeaMF5p5BT6ERXk=
          "]]}, {
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Thickness[Large], 
          RGBColor[0, 
           Rational[2, 3], 0], 
          Dashing[{0, Small}]], 
         Line[CompressedData["
1:eJwl1GWUlVUUBuA7Q3d3Dt3d3Z1D2IqomIBi0KKCErZgECbY3V2AIN3d3d2S
z17+eDjvfu/+LmvN+WZS+g9OHZSUSCS+988CZ63kRGK//DbXUYSL+oUsYjFL
WMpou8ucy1nBSlaxmjWsZR3r2cBGNlHbcwd87ztcT1Eu6TdTx2cHze9yA8W4
rN9CXZ8dMr/HjRTnin4r9Xx22DyTmyjBVX2qPiN/mofSmG36+roj8ixupmT8
EOilz8Rf8jCasN1HDXRH5fe5hRSS6K3PzN/ycJqyw35D3TH5A26lFMn00Wdh
tjyCZuy030h3XP6Q2yhNGvrqszJHHklzdtlvrDshf0Q/ypA27kyfjbnyKFqw
234T3Un5Y26nLOni56/Pzj/yaFqyx35T3Sn5E/pTjvRxJ/oczJMfpxV77TfT
nZY/5Q7KkyHuSZ+T+fIYWrPPfnPdGfkz7qQCGePu9Ln4V36CNuy330J3Vv6c
u6hIprg7fW4WyE/SlgP2W+rOyV8wgEpkjrvT52Gh/BTtOGi/le68/CV3U5ks
cXf6vCySx9KeQ/Zb6y7IX3EPVcgad6fPx2J5HB04bL+N7j/5a+6lKtni7vT5
WSI/TUeO2G+ruyh/w31UI3vcnb4AS+Vn6MRR++10l+RvuZ/q5Ii70xeM31N5
PJ05Zr+97rL8HQ9Qg5xxd/pCLJcn0IXj9jvoriT9/3diIDXJFXenL8wKeSJd
OWG/o+6q/APxB6ZWnLoybJInkzvu0lyElfIkunHS8510CX40D6Z2nOaybJan
kCfu1lyUVfKzdOeURzvrkvjJ/CB14jSXY4v8Knnjrs3FWC0/Rw9Oe76LLpmf
zQ9RN05zebbKr5Ev7t5cnDXy8/TkjOe76tLwi3kI9eI0V2Cb/Dr5410wl2Ct
/AKpnPV8N11afjU/TP04zRXZLr9BgXg3zCVZJ79IL855vrsuHb+ZH6FBnOZK
7JCnUjDeFXMK6+WX6M1Qc1V2yzM47/t6mNPzu/lRGsZprsxOeRqF4l0yl2KD
/DJ9GGauxh75TS74vp7mDPxhfoxGcZqrsEueTuF418yl2Si/Ql+Gm6uzV36L
EXIN9skjnTUZFb9v/p9rL/DTpQ==
          "]]}}}], {
     DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
      Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0.6, 0},
       BaseStyle -> {FontWeight -> "Bold", FontSize -> 14}, DisplayFunction :> 
      Identity, Frame -> {{True, True}, {True, True}}, 
      FrameLabel -> {{"\!\(\*SubscriptBox[\(p\), \(b\)]\)", None}, {
        "\!\(\*SubscriptBox[\(p\), \(g\)]\)", None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> 
        True}, PlotRange -> {{0.6, 0.95}, {0., 0.3076922950126797}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[FontSize -> 14, 
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         Thickness[Large], 
         RGBColor[0, 0, 1], 
         Dashing[{Small, Small}]], 
        Directive[FontSize -> 14, 
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         Thickness[Large], 
         RGBColor[1, 0, 0]], 
        Directive[FontSize -> 14, 
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         Thickness[Large], 
         RGBColor[0, 
          Rational[2, 3], 0], 
         Dashing[{0, Small}]]}, {"B(3)", "B(4)", "B(3,4,C=0.25)"}, 
       LegendMarkers -> None, LabelStyle -> {
         GrayLevel[0.3], Bold, 14}, LegendLayout -> "Row", 
       LegendMarkerSize -> {30, 10}]], {Top, Center}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{3.6524216205862837`*^9, 3.653538724413117*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fig. 4 (b)", "Section",
 CellChangeTimes->{{3.6524216276327667`*^9, 3.652421643816437*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"sol", "=", 
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{
        SubscriptBox["p", "b"], "[", 
        SubscriptBox["p", "g"], "]"}], "/.", 
       RowBox[{"dBoundary", "[", 
        RowBox[{"3", ",", "4", ",", "0.2"}], "]"}]}], "]"}]}], 
    "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SubscriptBox["p", "g"]}], ")"}], 
              RowBox[{"M", "-", "1"}]], "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                SubscriptBox["p", "g"], 
                RowBox[{"M", "-", "1"}]], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  SubscriptBox["p", "g"]}], ")"}], 
                RowBox[{"M", "-", "1"}]]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "/", "2"}], ")"}], "\[Gamma]"}]}], 
           RowBox[{"1", "-", "\[Gamma]"}]], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"M", "\[Rule]", "3"}], ",", 
            RowBox[{
             SubscriptBox["p", "g"], "\[Rule]", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Gamma]"}], ")"}], 
               SubscriptBox["q", "g"]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "/", "2"}], ")"}], "\[Gamma]"}]}]}]}], "}"}]}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SubscriptBox["p", "g"]}], ")"}], 
              RowBox[{"M", "-", "1"}]], "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                SubscriptBox["p", "g"], 
                RowBox[{"M", "-", "1"}]], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  SubscriptBox["p", "g"]}], ")"}], 
                RowBox[{"M", "-", "1"}]]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "/", "2"}], ")"}], "\[Gamma]"}]}], 
           RowBox[{"1", "-", "\[Gamma]"}]], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"M", "\[Rule]", "4"}], ",", 
            RowBox[{
             SubscriptBox["p", "g"], "\[Rule]", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Gamma]"}], ")"}], 
               SubscriptBox["q", "g"]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "/", "2"}], ")"}], "\[Gamma]"}]}]}]}], "}"}]}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{
          FractionBox[
           RowBox[{"sol", "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "/", "2"}], ")"}], "\[Gamma]"}]}], 
           RowBox[{"1", "-", "\[Gamma]"}]], "/.", 
          RowBox[{"{", 
           RowBox[{
            SubscriptBox["p", "g"], "\[Rule]", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "\[Gamma]"}], ")"}], 
              SubscriptBox["q", "g"]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "/", "2"}], ")"}], "\[Gamma]"}]}]}], "}"}]}]}], 
        "}"}], "/.", 
       RowBox[{"{", 
        RowBox[{"\[Gamma]", "\[Rule]", "0.35"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["q", "g"], ",", "0.6", ",", "0.9"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.2"}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(p\), \(g\)]\)\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(p\), \(b\)]\)\>\""}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Thick", ",", "Blue", ",", "Dashed"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Thick", ",", "Red"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Thick", ",", 
          RowBox[{"Darker", "@", "Green"}], ",", "Dotted"}], "]"}]}], "}"}]}],
      ",", "\[IndentingNewLine]", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"LineLegend", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\"\<B(3)\>\"", ",", "\"\<B(4)\>\"", ",", "\"\<B(3,4),C=0.2\>\""}],
            "}"}], ",", 
          RowBox[{"LegendMarkerSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"30", ",", "10"}], "}"}]}], ",", 
          RowBox[{"LabelStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"Bold", ",", "16"}], "}"}]}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"Right", ",", "Center"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "3", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"White", ",", "Yellow"}], "}"}]}], "}"}]}], "}"}]}]}], 
    "]"}]}], "\[IndentingNewLine]", "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJyF030sFGAcB/BDU95WIWoOQ3mNVdbLKX6MrWJzQ4iulRQtUyRSXs67I70c
rutOeX/rqDtcuNDddW4orhdCteXl3iuWxhjNpa0em9b6bc+effc8/3ye7x6L
M5f8z6ljMBj3lfVr5zxM3ufsLAY67df0gU7XyTelJ/6d3QtMBp3spJBJsa8q
jusFnd7IsbEQKZB/UJtzzHsA+9yTXZInhY0D2K3R74SQamTtHdElhQuiWEON
uG6w+Eho5ExJYQDz3kbpIIAti7RXJpYycLMdJYUO8AE/EtFBCpSBIoEuOn6N
By+2k+JSs2WAqf1G1057Bnf7mV8zODJgdLELOsc7oErisGfTZxk0CU+YWSVw
QC348YFGMzn4RJdzG8ZboSaXtz7AXw6c50GR+NNsyLe1qcrIkIM25WiiqUEz
8KyKVbzWlSxS13riwoT9twNtSXI5uOygmStbGDDbXrst1FgBM0uOHPNjtaDu
uvzSxUcBLdaO2Ed1FeC3m+FdnaSAFIGIocWhwwyRkI9lKWBznofi3h0yjBSU
FpaJFZCUgjO6EZcOy1p7IxsMlGBj7Uddx/eEw0GZff39XwHze9b2wXJzS44J
F8Mlqqsw6kgfLDhqZnZSxaBfuWkicVcPpN+0DCL3iqHtfG74rJcQ/BpEMzEL
YgihFTY1RQkg1ird99ROCeirzc7hrvDhrQ7p6jBBAl1P1Ya5eC5k+VLCCGQJ
sIqSh7YTOyAFv8dwqlsCu/3i39oOt0Erz6pIc04C+CUPlZLIRv1P1tsPRc2z
UP/YwJyASGID6v/VPLSfDa5B/S8KLjuWMR6g/lt0c3V1Rsmof9WEgjmWHf/f
9/jj9ym56LYhvg/5yysG3wize5A/jGl5PbNaiPzJ807paWUC5Ne43p3ync9H
fmrop2nzLC7yTyxpNC9UdiD/pKW9K2tjO/IPCinTrw+ykT9eFeZAeMJC/nr3
iqxDNAbyu19wmDDFVyF/nR5FRcfRkP/WlFdUszj7L78JboZDVEmQ37veZSnc
WInO75P0+BE4Gcpr/2v/F26OXfFqvsu0/rDovXr/J+Tv8YM=
     
     "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
       {GrayLevel[1], EdgeForm[None], 
        GraphicsGroupBox[
         PolygonBox[{{2, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 
          40, 41, 61, 42, 58, 64, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 
          46, 45, 44, 63, 3}}]]}, 
       {RGBColor[1, 1, 0], EdgeForm[None], 
        GraphicsGroupBox[
         PolygonBox[{{43, 3, 2, 62, 26}}]]}, {}, {}}, {{}, {}, {}, 
       {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], 
        Dashing[{Small, Small}], 
        LineBox[{59, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
          20, 21, 22, 23, 24, 60}]}, 
       {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
        LineBox[{62, 2, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 
         40, 41, 61}]}, 
       {RGBColor[0, 
         NCache[
          Rational[2, 3], 0.6666666666666666], 0], Thickness[Large], Opacity[
        1.], Dashing[{0, Small}], 
        LineBox[{63, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 
         64}]}}}], InsetBox[
     TemplateBox[{"\"B(3)\"","\"B(4)\"","\"B(3,4),C=0.2\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 18, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 18, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 18, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[1, 0, 0]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 18, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 18, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Dashing[{0, Small}]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 18, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Dashing[{0, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontWeight -> Bold, FontSize -> 16, FontFamily -> "Arial"}, 
         Background -> Automatic, StripOnInput -> False], TraditionalForm]& ),
      
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 2/3, 0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 
                    Rational[2, 3], 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"Bold", ",", "16"}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"30", ",", "10"}], "}"}]}]}], "]"}]& )], 
     Scaled[{0.99, 0.5}], ImageScaled[{1, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
   AxesOrigin->{0.6, 0},
   BaseStyle->{FontWeight -> "Bold", FontSize -> 18},
   DisplayFunction->Identity,
   Frame->{{True, True}, {True, True}},
   FrameLabel->{{
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(b\\)]\\)\"", TraditionalForm], 
      None}, {
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)\"", TraditionalForm], 
      None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> True},
   
   PlotRange->{{0.600000006122449, 0.899999993877551}, {0, 0.2}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {0, 0}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[
     GraphicsComplex[CompressedData["
1:eJyF030sFGAcB/BDU95WIWoOQ3mNVdbLKX6MrWJzQ4iulRQtUyRSXs67I70c
rutOeX/rqDtcuNDddW4orhdCteXl3iuWxhjNpa0em9b6bc+effc8/3ye7x6L
M5f8z6ljMBj3lfVr5zxM3ufsLAY67df0gU7XyTelJ/6d3QtMBp3spJBJsa8q
jusFnd7IsbEQKZB/UJtzzHsA+9yTXZInhY0D2K3R74SQamTtHdElhQuiWEON
uG6w+Eho5ExJYQDz3kbpIIAti7RXJpYycLMdJYUO8AE/EtFBCpSBIoEuOn6N
By+2k+JSs2WAqf1G1057Bnf7mV8zODJgdLELOsc7oErisGfTZxk0CU+YWSVw
QC348YFGMzn4RJdzG8ZboSaXtz7AXw6c50GR+NNsyLe1qcrIkIM25WiiqUEz
8KyKVbzWlSxS13riwoT9twNtSXI5uOygmStbGDDbXrst1FgBM0uOHPNjtaDu
uvzSxUcBLdaO2Ed1FeC3m+FdnaSAFIGIocWhwwyRkI9lKWBznofi3h0yjBSU
FpaJFZCUgjO6EZcOy1p7IxsMlGBj7Uddx/eEw0GZff39XwHze9b2wXJzS44J
F8Mlqqsw6kgfLDhqZnZSxaBfuWkicVcPpN+0DCL3iqHtfG74rJcQ/BpEMzEL
YgihFTY1RQkg1ird99ROCeirzc7hrvDhrQ7p6jBBAl1P1Ya5eC5k+VLCCGQJ
sIqSh7YTOyAFv8dwqlsCu/3i39oOt0Erz6pIc04C+CUPlZLIRv1P1tsPRc2z
UP/YwJyASGID6v/VPLSfDa5B/S8KLjuWMR6g/lt0c3V1Rsmof9WEgjmWHf/f
9/jj9ym56LYhvg/5yysG3wize5A/jGl5PbNaiPzJ807paWUC5Ne43p3ync9H
fmrop2nzLC7yTyxpNC9UdiD/pKW9K2tjO/IPCinTrw+ykT9eFeZAeMJC/nr3
iqxDNAbyu19wmDDFVyF/nR5FRcfRkP/WlFdUszj7L78JboZDVEmQ37veZSnc
WInO75P0+BE4Gcpr/2v/F26OXfFqvsu0/rDovXr/J+Tv8YM=
      
      "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
         EdgeForm[], 
         GrayLevel[1], 
         GraphicsGroup[{
           
           Polygon[{{2, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 
            40, 41, 61, 42, 58, 64, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 
            47, 46, 45, 44, 63, 3}}]}]}, {
         EdgeForm[], 
         RGBColor[1, 1, 0], 
         GraphicsGroup[{
           Polygon[{{43, 3, 2, 62, 26}}]}]}, {}, {}}, {{}, {}, {}, {
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Thickness[Large], 
          RGBColor[0, 0, 1], 
          Dashing[{Small, Small}]], 
         Line[{59, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 
          20, 21, 22, 23, 24, 60}]}, {
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Thickness[Large], 
          RGBColor[1, 0, 0]], 
         Line[{62, 2, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 
          41, 61}]}, {
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Thickness[Large], 
          RGBColor[0, 
           Rational[2, 3], 0], 
          Dashing[{0, Small}]], 
         Line[{63, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 
          64}]}}}], {
     DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
      Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0.6, 0},
       BaseStyle -> {FontWeight -> "Bold", FontSize -> 18}, DisplayFunction :> 
      Identity, Frame -> {{True, True}, {True, True}}, 
      FrameLabel -> {{"\!\(\*SubscriptBox[\(p\), \(b\)]\)", None}, {
        "\!\(\*SubscriptBox[\(p\), \(g\)]\)", None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> 
        True}, PlotRange -> {{0.600000006122449, 0.899999993877551}, {
        0, 0.2}}, PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[FontSize -> 18, 
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         Thickness[Large], 
         RGBColor[0, 0, 1], 
         Dashing[{Small, Small}]], 
        Directive[FontSize -> 18, 
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         Thickness[Large], 
         RGBColor[1, 0, 0]], 
        Directive[FontSize -> 18, 
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         Thickness[Large], 
         RGBColor[0, 
          Rational[2, 3], 0], 
         Dashing[{0, Small}]]}, {"B(3)", "B(4)", "B(3,4),C=0.2"}, 
       LegendMarkers -> None, LabelStyle -> {Bold, 16}, LegendLayout -> 
       "Column", LegendMarkerSize -> {30, 10}]], {Right, Center}, 
     Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{3.6524216620643587`*^9, 3.6535387245568123`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fig. 5", "Section",
 CellChangeTimes->{{3.652421691470956*^9, 3.65242170279311*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"fairCombined34", ",", "fairCombined45", ",", "fairCombined56"}], 
    "}"}], "=", 
   RowBox[{"ParallelMap", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"winProbA", "[", 
         RowBox[{
          RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
           ",", 
          RowBox[{"#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}],
           ",", "\[Gamma]"}], "]"}], "\[Equal]", 
        RowBox[{"loseProbA", "[", 
         RowBox[{
          RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
           ",", 
          RowBox[{"#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}],
           ",", "\[Gamma]"}], "]"}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["p", "b"], "\[Rule]", "0"}], ",", 
         RowBox[{
          SubscriptBox["p", "A"], "\[Rule]", "0.5"}]}], "}"}]}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"pgRule4", ",", "pgRule5", ",", "pgRule6"}], "}"}], "=", 
   RowBox[{"ParallelMap", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         SubscriptBox["p", "g"], "\[Rule]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             FractionBox["1", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Gamma]"}], ")"}], 
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"Power", "[", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[Gamma]", 
                    RowBox[{"(", 
                    RowBox[{"1", "/", "2"}], ")"}]}], 
                    RowBox[{"1", "-", 
                    RowBox[{"\[Gamma]", 
                    RowBox[{"(", 
                    RowBox[{"1", "/", "2"}], ")"}]}]}]], ",", 
                   RowBox[{"1", "/", 
                    RowBox[{"(", 
                    RowBox[{"M", "-", "1"}], ")"}]}]}], "]"}]}], ")"}]}]], 
             "-", 
             FractionBox[
              RowBox[{"\[Gamma]", 
               RowBox[{"(", 
                RowBox[{"1", "/", "2"}], ")"}]}], 
              RowBox[{"1", "-", "\[Gamma]"}]]}], ")"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x_", "^", "y_"}], "\[RuleDelayed]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"OddQ", "[", 
                RowBox[{"1", "/", "y"}], "]"}], ",", 
               RowBox[{"Surd", "[", 
                RowBox[{"x", ",", 
                 RowBox[{"1", "/", "y"}]}], "]"}], ",", " ", 
               RowBox[{
                RowBox[{"Abs", "[", "x", "]"}], "^", "y"}]}], "]"}]}], 
            "}"}]}], ")"}]}], "/.", 
        RowBox[{"{", 
         RowBox[{"M", "\[Rule]", "#"}], "}"}]}], "}"}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"eq34", ",", "eq45", ",", "eq56"}], "}"}], "=", 
   RowBox[{"ParallelMap", "[", 
    RowBox[{"Simplify", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"fairCombined34", "/.", "pgRule4"}], ",", 
       RowBox[{"fairCombined45", "/.", "pgRule5"}], ",", 
       RowBox[{"fairCombined56", "/.", "pgRule6"}]}], "}"}]}], " ", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"FindRoot", "[", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{"eq34", "/.", 
            RowBox[{"C", "\[Rule]", "Cx"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[Gamma]", ",", "0.2"}], "}"}]}], "]"}], 
        "\[LeftDoubleBracket]", 
        RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"FindRoot", "[", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{"eq45", "/.", 
            RowBox[{"C", "\[Rule]", "Cx"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[Gamma]", ",", "0.4"}], "}"}]}], "]"}], 
        "\[LeftDoubleBracket]", 
        RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"FindRoot", "[", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{"eq56", "/.", 
            RowBox[{"C", "\[Rule]", "Cx"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[Gamma]", ",", "0.4"}], "}"}]}], "]"}], 
        "\[LeftDoubleBracket]", 
        RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Cx", ",", "0.01", ",", "0.99"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Blue", ",", "Thick"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Red", ",", "Thick", ",", "Dashed"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"Darker", "[", "Green", "]"}], ",", "Thick", ",", 
          "Dotted"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"Darker", "[", "Yellow", "]"}], ",", "Thick", ",", 
          RowBox[{"Dashing", "[", 
           RowBox[{"{", 
            RowBox[{"Large", ",", "Small", ",", "Tiny", ",", "Small"}], "}"}],
            "]"}]}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Black", ",", "Thick", ",", 
          RowBox[{"Dashing", "[", 
           RowBox[{"{", 
            RowBox[{"Medium", ",", "Small", ",", "Small", ",", "Small"}], 
            "}"}], "]"}]}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ToExpression", "[", 
         RowBox[{"\"\<C\>\"", ",", "TeXForm"}], "]"}], ",", 
        RowBox[{"ToExpression", "[", 
         RowBox[{"\"\<\\\\gamma_{cs}\>\"", ",", "TeXForm"}], "]"}]}], "}"}]}],
      ",", "\[IndentingNewLine]", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"LineLegend", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\"\<B(3,4)\>\"", ",", "\"\<B(4,5)\>\"", ",", "\"\<B(5,6)\>\""}], 
           "}"}], ",", 
          RowBox[{"LegendMarkerSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"30", ",", "10"}], "}"}]}], ",", 
          RowBox[{"LabelStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"Bold", ",", "16"}], "}"}]}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"Top", ",", "Center"}], "}"}]}], "]"}]}]}], "]"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.652421820481998*^9, 3.652421827451236*^9}}],

Cell[BoxData[
 TagBox[
  GraphicsBox[{InsetBox[
     GraphicsBox[{{{}, {}, 
        {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], 
         LineBox[CompressedData["
1:eJwVkHk41YkChi3ZEqHDqCiRW9yYZKRsn6VECVmuYsoSYz063bEmyynrkLI0
cyk6GE+YoSwjW9nGEsce5xwp+zI4v59GJJJx/3if73n/+573kNsNGw8+Hh4e
n23+v41Lo6uTt6JxL3yRem6WDZvWnoUQ2RgMe1kYRU2zMfGofkysMgZhSUWf
qybZ4Dv3pEP7QyxYt132qo6xYZx1LTvRMwGx2r9TRDlsNJm/O6tpl4zxhuT1
tg42XC9RzzfKpIPmvElXK9n2Ip8MiaUsfDodEPg0gI2fvxj3+eYXYtW+2OnW
KgtJbbYKQ92lUGRkMN5HsKDv92AHUVqJjXSBXq4QCwqnHvJLbNWiytRgUThm
CO11fHq9IQ1Q/mQzpiAyhH0fsu/KH2mGWfyO5JWoQSjZRuXMtLfggbGQqNvn
N/h445v1H/TbEa4eIGQU+gbXGFIuizMdMDAWOBG/OID7ic08Kte7INN/UDDG
cwChv1YHj/f3QOT1xbonk/2ImBOJ6NHtg6uVK3PCph9KIynvEoL7cUXce8Ox
ow/pnM7m1q4BjLVsnO37rg/j1KMPG+UH8fRrgW8coxepo6P8sg5D8PpeQ+UL
pRe7ncw/LxWxwHvFjVq71o2lcrEk5Tk2igSsKvI4XciWic4fwTA2I3zNPBlM
HJGQL7qU8hZvc+gtKz6doMxKWCgyRxCsofj+jVkHutsqAwIPvUd1HzuAR+w1
FmJe6Bx2GYW/4O1Q/ek2/EjlBppZjGFwjSPa2tSKITm2ZMPKGGSZFEZwXAsW
dGi3p9PGEf9Qupvq+idmrrqqWmACAypv39xQaoYVc7IrZXYC7xaYmYGLjfAp
3GMYEz2JGFXjE587G+Cb+HilWn0K1Kyw3/tU63FgpD/0cdcULHmysvwX64CQ
zOWr3tPwDKvZTK+vgene2ucuUjPQCdoKLPGtwtbRBD3J5zPQrR84OW1WiWz9
56L8TrMw1pySZ/FXgGyILsxdn8WxC+4lMx9KUXJ/Xu/QL3Oo8vC6WUs+g+31
wj3jhn/BWW7jhHH7byjKl662HP0L81Kv/6DsKsDs4nDO5k/zOGW0dLD82K9I
jdSIStRcAMenWjA+lQEySkutrXcBV7x3nakayMSJuFT5M2GL4LRQGh1D03Hk
y+MR/31c9FrbTbxQTsZPdadSQiq54Lts+el2eTSe3Jd9KV/NhYsJVdfgXjQq
3Nbmmmq5WA4s05X1jMZ74SpDsUYuFl6JV8rsj4amvfZSTicXNG+dcETfxQhX
y6pzjIvWp4YC1k53oH5QU+yAKIFIH4dzS3JRMPlb6nSzGIHxwYfOnOVIXG75
291LgsB16RQf4ZJI3PEtqyuTJsCbXsMSUYoE64WG3zkFAge8y19m745AlPXx
TpoWgWuzfaray2EYoKslNDsT+OiYq+E5HYzcnWZ+um4ErFLLZMqKgvHfNDer
cncC/1INt9WgBUMq/xfpPG8Cz85u0bs2gmDTzpt750cCNUa1MXTpIPSLD9UY
xREQ2yib3bIJQO+jiMX6EgJDqq+sCz7RwDic0aNdSiDMwsKW00wDrbi87Fk5
AW9pCfaZBzRI1M+FPKkiAHVeC6YKDdYTNgKRTQQMalOppvX+6Dl65IDBEIEz
LDLtQrEvuv/osarbJKB+ksc2cdYDa8KXnofzkKipPk6/GOMBxe/7JcBPQusb
2s1KJQ8E8g32NQqTUCydko1yc4ec1bBt255tv7OzTnTODT5zUw79KiTs/Ggh
nD0uSNf9oSrtGIn89PPDZIgzXiXPytp/S+LKSerdjM5rkNSa57C+I/HvqlVe
vcCrqKKTTu9AQtnHz+4rxxGC+9ed5+xJ/Ie/Vy9nwR7H/cMaCi+TuHx1VZBp
Zw/Hxi8Kvk4kUiq7HJLq7VDsuTXOdSEhyBBK42TYwq5ih/uyLwkVyYumX10v
IUIo9s8KfxKOH8srjrGtUeAopBx0k4ThymDkTmtrbPDsnFkLInFbrXJvS4Il
ci/u9vpKJzGtejxiJPY8mIwH7fXRJGTXHeJ575tjdVlShR5HAhTxruZMM5hn
Uub575Fos2zyNnlpiqWZvX4i/yPxkSmVpPWtCfbpPGJ2ZJK4FZ8Uam5vDJN7
cmpJWSSMXHa1mUUa4WfNg4R4Hgl65Nli6iugIZZh2ZtPotZ+Jv6WqgHmOYee
pRRs95loJ+qy9UBRy9tt+9v23zzhLsv9utCPOkyjlJAo8jKWucA4jX8AnOtK
QA==
          "]]}, 
        {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
         Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwViXk81AkAR8eRT6IaR4UQIrTLtmu7RF+djpTN6LSRozAJkYytLGWUhuSO
KJEtLBVLSDGUkYyZJgbTHK4waH5K0Zay9o/3eZ/3eYbewa7H5Ekk0sE5/jdz
QjI18Ecs/OhBqxR7xXBt5ozRtOiYbXDvvSUWo/9Gfe/CKjqexVtHbRKJIW9/
q3X9+zgskNQfCxWIsTXX4ybDLx5TOkkD4g4xGh1FO6zcrsJOhZpZ/kIMr70n
nZhL01DR6/Rie8VcF1OzyBO5GO6R5WrEiZExs/XVicIivG0yMb9sJEYCi2LA
b38IEWejXE6TCLaB1xRlD6twSkA2ueMrgsGGdAXy7GOcD9XVCPwqREudvA2X
1oBn6/11tDKF0Hl/86KeaRMaH1FVP5sKsZISfXuo5Tn0LH8qPVL9Bh+Dl305
btsCiWhi18fdb+CRp350fKgVXP4ypekuAZIYTSRzHzZ2SwPDd/kJEHmnJqKP
x4Fl5hplv6keRI0oR3E2vYKo+qubVmQPVgqTRfERPGhUbDY4JdeDtJ6XTc3s
1xj4ZkwrPteNvpNm6Uy9TsjiUtV1pruQIpEoaB3go77R7m5KRBcWuzv+O1Hc
BWU3apJUysdExcIEk5FulDSm14R583FzaWyhEAI801HpVWrrhClZr3hv8huY
CbYRl3/thOYw2dmoTYi/yrLPVBR0oJ1VdTrcUIwmpherVr4DY/RH1sZHJdhT
uygyz/81wk6+C3dw7sVXFwONPjYPfN1utYZPvdixz2ZxiyEPY9Yh596m9uEF
6ezyFedfYeiI12pn9KM0Ua/NsJkLl7YBdvJwP8aviEPaF3JBLdKwo8cOQLjZ
irH9cTtOMHI+1VgOYjD0YDjLig19IS8yhz0I+nz9Q2FPXgK07MkjAW/Btl9K
Wr2zFTu1Hz84qj4EFWqjQVlhC2bN4m3UHgwBtkKvJC0Wbto+UFFwH4ZDxsQ9
stdzEA2xRflfhuGpqq1Z+rQJZUmjNoaZI6Am04yu6zWC4lOk0WcnxY/VURyq
awOKC5fU7JFIkWGnWRm85QmGxwW3v10ZhVdtvKI0sQYpf/4czbAaQ3AKf9/U
SCWI6LUWLO4YDLVnUo3iyvHLpRS97WfHwaGqHiKzS2E6kyMM0nmHLGvPR+vW
3sWVug3JtKp3iPmgKVcufxuvYyzimzxlaP5qT3KJTkf+AofATd4yUKRRzrOU
dISmertU+Mpw+KWdwzPTdKgXZi4pCJCBenm/OIGTBtcWufwLYTJI3a7SdQ3S
wFvEr91ySQbGroCO/c9TwL0RNV5fJoPEOavE1fAa8oyzOOsfypDhVLqklUhC
SGlF+f0KGcjlrASj3CSQ60dot6plKExJMwv5fBW/9bvO+7Nx7l88Pnr5YSI4
Zqb6m/kyZBXT2xdYMtBeyXGp+yZDiAldyYcSh8/z9z44TyIQRe/6QWWWDqPf
eWQoEDiDT9J5JXSEy3e+Ys4n4F1JcppSoEPXRUBhacx1xPdv3TUXQR0ZPMAz
J+DOfdPpuy4GSsu/eI7sI5CbWv935wca1gSdbSg6SKA0vs3fy5uGw8wZgxPu
BC60n43s4EWg1G+2791RAqr5F4zOVZ2B2z+KvpMnCLDUExir4k8jf/di/+8x
BPh+zLvdHiFoy7vWUh9LwPljqyOzLhhTk2rmMZcILA+odFV7GgTHbM1RhUQC
6nX5NhmsQEwMaQcqXycwkzm50n7aHzrWN9paswlMD2/0CFD2x7ZEXYuEXAIt
JLkL+vp+yLBaIVtUQGD1dJdNmMsxNMTl7eEWErje7Ui2CPTFaI/h/eR7BPon
B9zLGD7QtChYTCkhsGfEnDevzBu20cYhmmUEbO6nSra+9sJ/2jDH3Q==
          "]]}, 
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Thickness[Large], Opacity[
         1.], Dashing[{0, Small}], LineBox[CompressedData["
1:eJwVx3k41AkAh3G5HsfmVsoQaoli27W2JPu1HUqJZUhlc8vmiCeEWI1c68rZ
4WasNCRXOdIxkiP3kXsYY4Qc8xtHKqus/eN93uej7OBp7szLw8ND3uz/13GZ
q+wbYTjoKVjBPseCeWPnnL9cOHSthRdPb3oi/dX41spw+NSHKpdbssB7Mrvl
4GIEovQHLlAsWDiaaZMV4xIFvdU6NZI5C6+NRk9oW9xGthfnF7OzLNibeZyu
25YC78IOmbJjmy50TZXgZsKK/4nNyQMs3F0/2u2WT8MXjmuLhwALsU1kpf6O
MgjekwvyZoxD3z2Bn1NWiePZyw8sK8ahdOgOn8RGLQRc7Bup4eNofs57pMuf
DlVS3anZC+PYuZgVqqBWD42FAmEz9XHsJlNyp5obEPE6OCaPy8SK5/a1y/rN
2PfIWrA/iQmbHCm7+akWpNL4HzhpMBEfU8+j7tiO62LVCQcbxxDwT40fq6cT
Bf4OO5ztxxA8IxzcqdcNX3mtPC53FLsZiaNRfj2o0mWobgkfRcpQa31jey9E
2YFRSd+NguWx906dQh+ou5TWy5MYSGIy+eSs+kE3MCTnKDAgbm30hVs4gMga
3pMv0kbArdga+/3MINhPt3tWk0aQtS0sn4FhWAxSy+nxw1CTUCg0SxxBZG1e
Zj7PMGSmJYxV2hiQlDjjXnV9CB1NlT6+ymNYXam3l2UMYi686vAeOyYue28U
PzIchLfHgu8p43Gk8i7N65YMoJ80KEn/OI4BZV5bMYEBzB32CnqfzAKD5bji
ZdePqUv2GsaYwKrnz2KWBX0wbWO3J05PgC/g736v2XdwpUkbhIexkab379JN
7Xdwi8n4WKM1iTwVq0Jz514oMnoCMtonEZqwn6aa2QP4py1fuvIeb6W9t//e
3Q3DHbWldlJTKBeVids314WNvVFHJEunUG8705sj2oUs/VJRPutphNp+Kb2h
2AGCHkajrk3jPtuhMki7DY/jZ48o35uBUW10nDxaQHakSbMMPmCt1zIoXaQZ
hfmyNSbMD8i2MqEcmm7A9Pxw7tfoWaznpCyJUOqRdPNHSoz2HCxC+iaFxetA
UHQ0m7rmYNP8tOjN1Rf4KTJJ4XjgPJ4teLy5+Gs11NYzGFd3LsBkqCWafL4C
0c8PJfpXLuD+8Q3ZVqVi9IZoRtXbcuA3mptcIpYHqsgpdz0HDoRu6BRozlJx
LdnBtMKJg4dsU4XKBiqk8u/J5l3hYEXFtmgqiArz5i3UW94caK1qVb6dy0WP
WP+z3yI5SKTfKqtozUFXevD8q8cc2C9XiUppZKLjaafp868cvO6LJUkUp+Cz
kFnpXzwEvsW/dV5yTIHKHz0S4CPwwV2SJCyfAl/evu46oU1Xj/n0RyWDZDpM
bpIm0KNnwOVzTYLrzKRVjzoBh4sWDsY6CRCUX7OdsSQQ2RC+++VaJA5cDaTT
zhPwTD5nSPOPxMW6dSU3awIBl7TP6HyKQLHLBmvBjoCUr3SJ7mo4LJ7wOy27
EVC9PXBUbz0U1LPif34LITDxYkMxVYOCtpyE5ldhBKKmrVefuNzE6rKkekgk
gUXRtZuDgcEwSpOZ5YsjUBy3XKpECwJ3aoe78H0CigVrAhlyAdh5OL2tJY1A
0csHP4jo+uNYHEkzNpNAn9M+LxtrP9zV3sURyyOQ0NbVOpHvC3pEjklXPoGQ
EzUjezt8MDukXJL4kADh8/Ub5bM3ZDTzxMlFBEKFTkd82uMNfcoeL5nHBPYL
ke1SydfwH8dBoso=
          "]]}}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{
        FormBox["C", TraditionalForm], 
        FormBox[
         SubscriptBox["\[Gamma]", "cs"], TraditionalForm]},
      AxesOrigin->{0, 0},
      BaseStyle->{FontWeight -> "Bold", FontSize -> 20},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None},
      PlotLabel->None,
      PlotRange->{{0.01, 0.99}, {0., 0.5418566223702105}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], Scaled[{0.5, 0.5}], Center, 
     Scaled[{1, 1}]], InsetBox[
     TemplateBox[{"\"B(3,4)\"","\"B(4,5)\"","\"B(5,6)\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 20, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 20, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 20, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 20, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #2, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 20, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[Large], 
                    Dashing[{0, Small}]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 20, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[Large], 
                    Dashing[{0, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontWeight -> Bold, FontSize -> 16, FontFamily -> "Arial"}, 
         Background -> Automatic, StripOnInput -> False], TraditionalForm]& ),
      
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "20"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "20"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "20"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 2/3, 0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 
                    Rational[2, 3], 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"Bold", ",", "16"}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"30", ",", "10"}], "}"}]}]}], "]"}]& )], 
     Scaled[{0.5, 1.01}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->False,
   AxesLabel->{
     FormBox["C", TraditionalForm], 
     FormBox[
      SubscriptBox["\[Gamma]", "cs"], TraditionalForm]},
   AxesOrigin->{0, 0},
   BaseStyle->{FontWeight -> "Bold", FontSize -> 20},
   DisplayFunction->Identity,
   Frame->False,
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None},
   PlotLabel->None,
   PlotRange->Automatic,
   PlotRangeClipping->False,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{{{}, {}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Thickness[Large]], 
        Line[CompressedData["
1:eJwVkHk41YkChi3ZEqHDqCiRW9yYZKRsn6VECVmuYsoSYz063bEmyynrkLI0
cyk6GE+YoSwjW9nGEsce5xwp+zI4v59GJJJx/3if73n/+573kNsNGw8+Hh4e
n23+v41Lo6uTt6JxL3yRem6WDZvWnoUQ2RgMe1kYRU2zMfGofkysMgZhSUWf
qybZ4Dv3pEP7QyxYt132qo6xYZx1LTvRMwGx2r9TRDlsNJm/O6tpl4zxhuT1
tg42XC9RzzfKpIPmvElXK9n2Ip8MiaUsfDodEPg0gI2fvxj3+eYXYtW+2OnW
KgtJbbYKQ92lUGRkMN5HsKDv92AHUVqJjXSBXq4QCwqnHvJLbNWiytRgUThm
CO11fHq9IQ1Q/mQzpiAyhH0fsu/KH2mGWfyO5JWoQSjZRuXMtLfggbGQqNvn
N/h445v1H/TbEa4eIGQU+gbXGFIuizMdMDAWOBG/OID7ic08Kte7INN/UDDG
cwChv1YHj/f3QOT1xbonk/2ImBOJ6NHtg6uVK3PCph9KIynvEoL7cUXce8Ox
ow/pnM7m1q4BjLVsnO37rg/j1KMPG+UH8fRrgW8coxepo6P8sg5D8PpeQ+UL
pRe7ncw/LxWxwHvFjVq71o2lcrEk5Tk2igSsKvI4XciWic4fwTA2I3zNPBlM
HJGQL7qU8hZvc+gtKz6doMxKWCgyRxCsofj+jVkHutsqAwIPvUd1HzuAR+w1
FmJe6Bx2GYW/4O1Q/ek2/EjlBppZjGFwjSPa2tSKITm2ZMPKGGSZFEZwXAsW
dGi3p9PGEf9Qupvq+idmrrqqWmACAypv39xQaoYVc7IrZXYC7xaYmYGLjfAp
3GMYEz2JGFXjE587G+Cb+HilWn0K1Kyw3/tU63FgpD/0cdcULHmysvwX64CQ
zOWr3tPwDKvZTK+vgene2ucuUjPQCdoKLPGtwtbRBD3J5zPQrR84OW1WiWz9
56L8TrMw1pySZ/FXgGyILsxdn8WxC+4lMx9KUXJ/Xu/QL3Oo8vC6WUs+g+31
wj3jhn/BWW7jhHH7byjKl662HP0L81Kv/6DsKsDs4nDO5k/zOGW0dLD82K9I
jdSIStRcAMenWjA+lQEySkutrXcBV7x3nakayMSJuFT5M2GL4LRQGh1D03Hk
y+MR/31c9FrbTbxQTsZPdadSQiq54Lts+el2eTSe3Jd9KV/NhYsJVdfgXjQq
3Nbmmmq5WA4s05X1jMZ74SpDsUYuFl6JV8rsj4amvfZSTicXNG+dcETfxQhX
y6pzjIvWp4YC1k53oH5QU+yAKIFIH4dzS3JRMPlb6nSzGIHxwYfOnOVIXG75
291LgsB16RQf4ZJI3PEtqyuTJsCbXsMSUYoE64WG3zkFAge8y19m745AlPXx
TpoWgWuzfaray2EYoKslNDsT+OiYq+E5HYzcnWZ+um4ErFLLZMqKgvHfNDer
cncC/1INt9WgBUMq/xfpPG8Cz85u0bs2gmDTzpt750cCNUa1MXTpIPSLD9UY
xREQ2yib3bIJQO+jiMX6EgJDqq+sCz7RwDic0aNdSiDMwsKW00wDrbi87Fk5
AW9pCfaZBzRI1M+FPKkiAHVeC6YKDdYTNgKRTQQMalOppvX+6Dl65IDBEIEz
LDLtQrEvuv/osarbJKB+ksc2cdYDa8KXnofzkKipPk6/GOMBxe/7JcBPQusb
2s1KJQ8E8g32NQqTUCydko1yc4ec1bBt255tv7OzTnTODT5zUw79KiTs/Ggh
nD0uSNf9oSrtGIn89PPDZIgzXiXPytp/S+LKSerdjM5rkNSa57C+I/HvqlVe
vcCrqKKTTu9AQtnHz+4rxxGC+9ed5+xJ/Ie/Vy9nwR7H/cMaCi+TuHx1VZBp
Zw/Hxi8Kvk4kUiq7HJLq7VDsuTXOdSEhyBBK42TYwq5ih/uyLwkVyYumX10v
IUIo9s8KfxKOH8srjrGtUeAopBx0k4ThymDkTmtrbPDsnFkLInFbrXJvS4Il
ci/u9vpKJzGtejxiJPY8mIwH7fXRJGTXHeJ575tjdVlShR5HAhTxruZMM5hn
Uub575Fos2zyNnlpiqWZvX4i/yPxkSmVpPWtCfbpPGJ2ZJK4FZ8Uam5vDJN7
cmpJWSSMXHa1mUUa4WfNg4R4Hgl65Nli6iugIZZh2ZtPotZ+Jv6WqgHmOYee
pRRs95loJ+qy9UBRy9tt+9v23zzhLsv9utCPOkyjlJAo8jKWucA4jX8AnOtK
QA==
         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0], 
         Thickness[Large], 
         Dashing[{Small, Small}]], 
        Line[CompressedData["
1:eJwViXk81AkAR8eRT6IaR4UQIrTLtmu7RF+djpTN6LSRozAJkYytLGWUhuSO
KJEtLBVLSDGUkYyZJgbTHK4waH5K0Zay9o/3eZ/3eYbewa7H5Ekk0sE5/jdz
QjI18Ecs/OhBqxR7xXBt5ozRtOiYbXDvvSUWo/9Gfe/CKjqexVtHbRKJIW9/
q3X9+zgskNQfCxWIsTXX4ybDLx5TOkkD4g4xGh1FO6zcrsJOhZpZ/kIMr70n
nZhL01DR6/Rie8VcF1OzyBO5GO6R5WrEiZExs/XVicIivG0yMb9sJEYCi2LA
b38IEWejXE6TCLaB1xRlD6twSkA2ueMrgsGGdAXy7GOcD9XVCPwqREudvA2X
1oBn6/11tDKF0Hl/86KeaRMaH1FVP5sKsZISfXuo5Tn0LH8qPVL9Bh+Dl305
btsCiWhi18fdb+CRp350fKgVXP4ypekuAZIYTSRzHzZ2SwPDd/kJEHmnJqKP
x4Fl5hplv6keRI0oR3E2vYKo+qubVmQPVgqTRfERPGhUbDY4JdeDtJ6XTc3s
1xj4ZkwrPteNvpNm6Uy9TsjiUtV1pruQIpEoaB3go77R7m5KRBcWuzv+O1Hc
BWU3apJUysdExcIEk5FulDSm14R583FzaWyhEAI801HpVWrrhClZr3hv8huY
CbYRl3/thOYw2dmoTYi/yrLPVBR0oJ1VdTrcUIwmpherVr4DY/RH1sZHJdhT
uygyz/81wk6+C3dw7sVXFwONPjYPfN1utYZPvdixz2ZxiyEPY9Yh596m9uEF
6ezyFedfYeiI12pn9KM0Ua/NsJkLl7YBdvJwP8aviEPaF3JBLdKwo8cOQLjZ
irH9cTtOMHI+1VgOYjD0YDjLig19IS8yhz0I+nz9Q2FPXgK07MkjAW/Btl9K
Wr2zFTu1Hz84qj4EFWqjQVlhC2bN4m3UHgwBtkKvJC0Wbto+UFFwH4ZDxsQ9
stdzEA2xRflfhuGpqq1Z+rQJZUmjNoaZI6Am04yu6zWC4lOk0WcnxY/VURyq
awOKC5fU7JFIkWGnWRm85QmGxwW3v10ZhVdtvKI0sQYpf/4czbAaQ3AKf9/U
SCWI6LUWLO4YDLVnUo3iyvHLpRS97WfHwaGqHiKzS2E6kyMM0nmHLGvPR+vW
3sWVug3JtKp3iPmgKVcufxuvYyzimzxlaP5qT3KJTkf+AofATd4yUKRRzrOU
dISmertU+Mpw+KWdwzPTdKgXZi4pCJCBenm/OIGTBtcWufwLYTJI3a7SdQ3S
wFvEr91ySQbGroCO/c9TwL0RNV5fJoPEOavE1fAa8oyzOOsfypDhVLqklUhC
SGlF+f0KGcjlrASj3CSQ60dot6plKExJMwv5fBW/9bvO+7Nx7l88Pnr5YSI4
Zqb6m/kyZBXT2xdYMtBeyXGp+yZDiAldyYcSh8/z9z44TyIQRe/6QWWWDqPf
eWQoEDiDT9J5JXSEy3e+Ys4n4F1JcppSoEPXRUBhacx1xPdv3TUXQR0ZPMAz
J+DOfdPpuy4GSsu/eI7sI5CbWv935wca1gSdbSg6SKA0vs3fy5uGw8wZgxPu
BC60n43s4EWg1G+2791RAqr5F4zOVZ2B2z+KvpMnCLDUExir4k8jf/di/+8x
BPh+zLvdHiFoy7vWUh9LwPljqyOzLhhTk2rmMZcILA+odFV7GgTHbM1RhUQC
6nX5NhmsQEwMaQcqXycwkzm50n7aHzrWN9paswlMD2/0CFD2x7ZEXYuEXAIt
JLkL+vp+yLBaIVtUQGD1dJdNmMsxNMTl7eEWErje7Ui2CPTFaI/h/eR7BPon
B9zLGD7QtChYTCkhsGfEnDevzBu20cYhmmUEbO6nSra+9sJ/2jDH3Q==
         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 
          Rational[2, 3], 0], 
         Thickness[Large], 
         Dashing[{0, Small}]], 
        Line[CompressedData["
1:eJwVx3k41AkAh3G5HsfmVsoQaoli27W2JPu1HUqJZUhlc8vmiCeEWI1c68rZ
4WasNCRXOdIxkiP3kXsYY4Qc8xtHKqus/eN93uej7OBp7szLw8ND3uz/13GZ
q+wbYTjoKVjBPseCeWPnnL9cOHSthRdPb3oi/dX41spw+NSHKpdbssB7Mrvl
4GIEovQHLlAsWDiaaZMV4xIFvdU6NZI5C6+NRk9oW9xGthfnF7OzLNibeZyu
25YC78IOmbJjmy50TZXgZsKK/4nNyQMs3F0/2u2WT8MXjmuLhwALsU1kpf6O
MgjekwvyZoxD3z2Bn1NWiePZyw8sK8ahdOgOn8RGLQRc7Bup4eNofs57pMuf
DlVS3anZC+PYuZgVqqBWD42FAmEz9XHsJlNyp5obEPE6OCaPy8SK5/a1y/rN
2PfIWrA/iQmbHCm7+akWpNL4HzhpMBEfU8+j7tiO62LVCQcbxxDwT40fq6cT
Bf4OO5ztxxA8IxzcqdcNX3mtPC53FLsZiaNRfj2o0mWobgkfRcpQa31jey9E
2YFRSd+NguWx906dQh+ou5TWy5MYSGIy+eSs+kE3MCTnKDAgbm30hVs4gMga
3pMv0kbArdga+/3MINhPt3tWk0aQtS0sn4FhWAxSy+nxw1CTUCg0SxxBZG1e
Zj7PMGSmJYxV2hiQlDjjXnV9CB1NlT6+ymNYXam3l2UMYi686vAeOyYue28U
PzIchLfHgu8p43Gk8i7N65YMoJ80KEn/OI4BZV5bMYEBzB32CnqfzAKD5bji
ZdePqUv2GsaYwKrnz2KWBX0wbWO3J05PgC/g736v2XdwpUkbhIexkab379JN
7Xdwi8n4WKM1iTwVq0Jz514oMnoCMtonEZqwn6aa2QP4py1fuvIeb6W9t//e
3Q3DHbWldlJTKBeVids314WNvVFHJEunUG8705sj2oUs/VJRPutphNp+Kb2h
2AGCHkajrk3jPtuhMki7DY/jZ48o35uBUW10nDxaQHakSbMMPmCt1zIoXaQZ
hfmyNSbMD8i2MqEcmm7A9Pxw7tfoWaznpCyJUOqRdPNHSoz2HCxC+iaFxetA
UHQ0m7rmYNP8tOjN1Rf4KTJJ4XjgPJ4teLy5+Gs11NYzGFd3LsBkqCWafL4C
0c8PJfpXLuD+8Q3ZVqVi9IZoRtXbcuA3mptcIpYHqsgpdz0HDoRu6BRozlJx
LdnBtMKJg4dsU4XKBiqk8u/J5l3hYEXFtmgqiArz5i3UW94caK1qVb6dy0WP
WP+z3yI5SKTfKqtozUFXevD8q8cc2C9XiUppZKLjaafp868cvO6LJUkUp+Cz
kFnpXzwEvsW/dV5yTIHKHz0S4CPwwV2SJCyfAl/evu46oU1Xj/n0RyWDZDpM
bpIm0KNnwOVzTYLrzKRVjzoBh4sWDsY6CRCUX7OdsSQQ2RC+++VaJA5cDaTT
zhPwTD5nSPOPxMW6dSU3awIBl7TP6HyKQLHLBmvBjoCUr3SJ7mo4LJ7wOy27
EVC9PXBUbz0U1LPif34LITDxYkMxVYOCtpyE5ldhBKKmrVefuNzE6rKkekgk
gUXRtZuDgcEwSpOZ5YsjUBy3XKpECwJ3aoe78H0CigVrAhlyAdh5OL2tJY1A
0csHP4jo+uNYHEkzNpNAn9M+LxtrP9zV3sURyyOQ0NbVOpHvC3pEjklXPoGQ
EzUjezt8MDukXJL4kADh8/Ub5bM3ZDTzxMlFBEKFTkd82uMNfcoeL5nHBPYL
ke1SydfwH8dBoso=
         "]]}}}, {
     DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
      Axes -> {True, True}, AxesLabel -> {C, 
        Subscript[$CellContext`\[Gamma], $CellContext`cs]}, 
      AxesOrigin -> {0, 0}, 
      BaseStyle -> {FontWeight -> "Bold", FontSize -> 20}, DisplayFunction :> 
      Identity, Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None}, 
      PlotRange -> {{0.01, 0.99}, {0., 0.5418566223702105}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[FontSize -> 20, 
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Thickness[Large]], 
        Directive[FontSize -> 20, 
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0], 
         Thickness[Large], 
         Dashing[{Small, Small}]], 
        Directive[FontSize -> 20, 
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 
          Rational[2, 3], 0], 
         Thickness[Large], 
         Dashing[{0, Small}]]}, {"B(3,4)", "B(4,5)", "B(5,6)"}, LegendMarkers -> 
       None, LabelStyle -> {Bold, 16}, LegendLayout -> "Row", 
       LegendMarkerSize -> {30, 10}]], {Top, Center}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{3.652421945796699*^9, 3.65353884267594*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fig. 6", "Section",
 CellChangeTimes->{{3.652422414398759*^9, 3.652422424965498*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"winProb", "[", 
         RowBox[{"3", ",", "4"}], "]"}], "-", 
        RowBox[{"loseProb", "[", 
         RowBox[{"3", ",", "4"}], "]"}]}], "/.", 
       RowBox[{"C", "\[Rule]", "0.2"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["p", "g"], ",", "0.5", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["p", "b"], ",", "0", ",", "0.5"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ToExpression", "[", 
         RowBox[{"\"\<p_g\>\"", ",", "TeXForm"}], "]"}], ",", 
        RowBox[{"ToExpression", "[", 
         RowBox[{"\"\<p_b\>\"", ",", "TeXForm"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"ContourStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Thick"}], "}"}]}], ",", 
     RowBox[{"Contours", "\[Rule]", 
      RowBox[{"{", "0", "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"RegionFunction", "\[Rule]", 
      RowBox[{"Function", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"pg", ",", "pb"}], "}"}], ",", 
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"gainM3x4", "-", "gainM4"}], ">", "0"}], "&&", 
            RowBox[{
             RowBox[{
              RowBox[{"winProb", "[", 
               RowBox[{"4", ",", "4"}], "]"}], "-", 
              RowBox[{"loseProb", "[", 
               RowBox[{"4", ",", "4"}], "]"}]}], "<", "0"}]}], ")"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"C", "\[Rule]", "0.2"}], ",", 
            RowBox[{
             SubscriptBox["p", "g"], "\[Rule]", "pg"}], ",", 
            RowBox[{
             SubscriptBox["p", "b"], "\[Rule]", "pb"}]}], "}"}]}], "]"}]}], 
       "]"}]}], ",", 
     RowBox[{"ColorFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"#1", ">", "0"}], ",", 
          RowBox[{"Directive", "[", 
           RowBox[{"Lighter", "@", 
            RowBox[{"Lighter", "@", "Gray"}]}], "]"}], ",", "White"}], "]"}], 
        "&"}], ")"}]}], ",", 
     RowBox[{"ColorFunctionScaling", "\[Rule]", "False"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{"gainM3x4", "-", "gainM4"}], "/.", 
       RowBox[{"C", "\[Rule]", "0.2"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["p", "g"], ",", "0.5", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["p", "b"], ",", "0", ",", "0.5"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ToExpression", "[", 
         RowBox[{"\"\<p_g\>\"", ",", "TeXForm"}], "]"}], ",", 
        RowBox[{"ToExpression", "[", 
         RowBox[{"\"\<p_b\>\"", ",", "TeXForm"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"ContourStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Thick", ",", "Dotted"}], "}"}]}], ",", 
     RowBox[{"Contours", "\[Rule]", 
      RowBox[{"{", "0", "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ContourShading", "\[Rule]", "None"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{"winProb", "[", 
        RowBox[{"4", ",", "4"}], "]"}], "-", 
       RowBox[{"loseProb", "[", 
        RowBox[{"4", ",", "4"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["p", "g"], ",", "0.5", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["p", "b"], ",", "0", ",", "0.5"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ToExpression", "[", 
         RowBox[{"\"\<p_g\>\"", ",", "TeXForm"}], "]"}], ",", 
        RowBox[{"ToExpression", "[", 
         RowBox[{"\"\<p_b\>\"", ",", "TeXForm"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"ContourStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Thick"}], "}"}]}], ",", 
     RowBox[{"Contours", "\[Rule]", 
      RowBox[{"{", "0", "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
     RowBox[{"RegionFunction", "\[Rule]", 
      RowBox[{"Function", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"pg", ",", "pb"}], "}"}], ",", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"gainM3x4", "-", "gainM4"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"C", "\[Rule]", "0.2"}], ",", 
             RowBox[{
              SubscriptBox["p", "g"], "\[Rule]", "pg"}], ",", 
             RowBox[{
              SubscriptBox["p", "b"], "\[Rule]", "pb"}]}], "}"}]}], "]"}], 
         ">", "0"}]}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.6524224315470448`*^9, 3.652422434843742*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJx1WgdYVEfXxi4aGwL2z941lii2eI8dsdBULIhiwYaKoEH81GBEQBQbxRiB
qGBDRVFpAgK7awmJBlDEgsYgu+yyC2Lv0f9yZ85M7vX7fXie69mZe+bMmXPe
U+Z2XOjl7FHTzMxsdy0zs+pnccoq8a8UzOi/LnZh4p+W0aukCTpGS9OLyxj9
RfqnZ/TE6te7lDN6n8TQyOgHEgMToztL61UwGuWR2NjFAsqDNMqDNMqDNMoj
/S7S0u+M3wUFvwsKfnycyJGhmK+mtIHSYfRZRuefpvvQUrlSCP2B6jc/G4h+
dGwc10eaPJ98pU9cD/eL6+H6KD+uj/LjevL94PklAjkPHZ13if5eRuclQY1q
MqkUkqunjbgEq6sZTdSS+Ss1sFJiXK44X5R3K3yWzoPTRH5uD6kiXbnbCF2r
h31+ovNNiv1XknVTprLzIKM5lJ+Wjl+m62hBmtZFBWh/RL3b2Ps4jvPxfIme
kJ+K0WQdNdMvnofcXsOoHkvp71GK8zjN5iON81E/Et2jlKwXdZyej57xl9Ox
9H1q78XHmT5QP+gPcns1MPmkR7jhK3nRnogeSpk9oD5QXzgfzwvn437k/GIZ
P5QXzwP1jfYovbYmQ2HfYdTe9ExetG88f7RHXJ+cu5auk8NoPH/p/aMov5rR
DyX+fBzlk+NNmEK+WIYPqA/Ut9z+OY3+iPog56WFVInOYuNoL9KwB9VniYb8
vpbKG6gB9L//jR9bgeAt0j7MP3G+5OfFfJysr8RvIxsn+uQ0Wc+kiA98nJwP
H98r/c7xn+ihQrFepWI//PzRH5Q0zkd7wf3L/WErxYdyhfxcXsQPGT3WRH//
ATCeEbl9QI5/Pgr8o+/3NVG9+oJcvjBmH/L96hR4weMV+gv6J8YTeTzieI/+
Jo83Wob/yF9Oc33J8Qf1afh/9LdVoY99TN9Evp0gt08fJj/uR27/UWy/svhq
xuMf+iPul7xXRv03ga6vo3KnMpq8l075ov4uKvDEh8UvOc3xBflhvCX+hvi8
XxG/oxT5BOKV4Sv/k6+nZ/qT4wnO11E+yRTnyujzPJMPz1fyv7eIzzlM34hn
khq34P7UzH6Qlubloj3R97dTe/pEx0O0VB41iz9y++byk30ZFPvl+Ej4YH5y
lNGETzzDN+Qv+Z8/nt9CQHyT4U8uH5fsq1JBrzLK8cnVyMYlM/LnNOKhbH9H
FfO/KPC0ko9LDwsTo8l+TIr98HHC30TjxWq6PwW+5iK9EmylFzm+dqpm07iC
8ltC7b1Cgd9IO1L7qaTnMUGBD7F0HPH3MPN3GR7bcP0SfZbL99OF60favwXX
D+FnUvAzKc6rQv5+WCW1qxHMH9F/kEb8lecXOxm+yc/LwNYj6yvlMyr2p5TP
JB8v5vk6xn8iTibDY6RxXJbv2GB9lsn8ldBqRb6spnkl5j+cJvajUuA12hen
5fFsIfV/o+L8+P4wvpP9of2XMfuQ208Ysx/ES4w3SOM44ifiCb6PeCKPLxxf
5fGJ25Pc/8rl48lcP0RujkdhNN4gjfEG8Qjtg/y+kdUbeH54Pkhjfor5H+Ih
7gf3i7Tc/nyYvRF+axX5b6YiXmXCpOrH97y+kdcjsQxPZfHmUTnFyR3keeeJ
Qr96oreepxX5fgqr78i5LiXydaL562WVYv0wgmfr9WSfviekeW/2UH65yWT+
O2pPoxJYvCb5+y4yfovn+5h/yv2R70+SO4bOX0f9I47XO4jH+D7iLaFXMHwl
+11M7D2Onu8ENVn/LPfHcHF60mDCX7uf1lO7aT3TLZ36yxM5Hk3Wk/Nzjmf1
FdoP4i1Rd5g0L6SQ6tM1U5EvhLF8A/1LenwwEH42lHam+7+vIfytjFQPwaye
lftDKYvPSMv8IUWvsC89m4/xgEYvlj9IdvMW6zNFvXAI49ccop/4Crqv2UTe
XMV8dQWVZya1Yz4uzdchXk0j897geTpTf8N6ZAqVl9cnkj24KuKrcwW1vwWE
3+IKul93si9/jE9jKV0hj2++FfR83Sg+VbJ4jP6N9aqEG9epPSxREfwNwfXm
grzfNpf5J6ET2XkiLZH1Skl/xuIQWW9SKaRJ8JvA6inEY8RbxHcZPuceYvhH
xnOoXnj+jDT6q/ToQONbWhah99D9/Un6NcJKQmek0fpXzKfIef1XGu/WTCf5
2dHF2WQdI19Pkjcf7WUGyx+InM7sPJBG+eX9Mk4T3Eb8Smf6Jfo5TdctZfUI
xmvEF7R3Mp/T5D2KR66cJvM4LfH15fk20sgP10Ma5cX8Q7Lft0+oHn8mdgVc
folfFt+f9PopKn8rKl8x2tt04i8D8TwCWfwl40Hy/t3THJZ/EruaSfiqeD8U
8RDxS8Lb/jRe54YzfJP2kfEzwx/EJ8Qfsr+jDE+IXBwvUH7EB8QD9G/0Z0k/
V7n/YX5P9L+BrPf5CfMP6dHPQPgmHCbvNdESWpdD+Pej9WOjLEmeo1qq39Qc
4ofXSokfv0hn9R7Ws2RdTpN983qQPHk9TMY5jfkZ4jXZJ9arF1m+I41HUDqK
x3esh8j8jaweIvrxB6yHcFyaf4eef2MVxTesx7MU/Y4ssm+B4oE77ffeRP6b
QV5P0X7TG7Q/X6LfPdivWUOekSYq5xpFf3oTq79RXsneEjHerybyZJmonlZB
UvW0OYgXC8Cz2lwCKqifubH8kMw/T9Zby/sXZD2az7ifB3k/bitgvUrkDGLn
r+zfS/p8kyw9o67wfgjmZ3i+kjw9eb9f0pdbGXk+pf0lHe+3SPPydWT8eCqz
F8QHon/kd0bR71vN6mvCL4TlU2T+GqK/W0h7sn4P4o1Ex9N8OyOR5iNl9H4i
WbKDoj+pPd7KYPUKWW87eb9vJeU/hcjfm98vSOP9+Lj0PvB6t1reSyPpfN/J
NA/j49LToZLq147QMyqpnmxpHov8xxHah9PS+W7k+QCJ35XyfGAbH5eWMef5
gMSmfiW1Lycyz5zTkr5383yA+Bvasx95NkL/8CN8W9HzsPBj+YEMP1xL2Xkj
Tez9LNFDWx2rZ6TzEv2T6GcjzYf4/qpn2SxA/dkSfm3k+Y5ra9yPI4uvcv8p
ZXiFNPqb9PsCTmO+gfJhPEdauv96RfczIpviL+YzB1g8JvJqCD2W05gv4P0B
yat5/o80xn8iN8/Hkcb4IfF1p+Ouv7L+Ic6XzOy0gZ7XQWI/Q/j9CMpL+Gmo
/jF/oPJ6c1oaX8btE/vxSBP7N1F+nowm+1tH/Gcq4us61h8gz/WK+1a6/19o
PbqT5isHeH4jxcNduP4Y4j+bEG/nMX3jfGnfwym/P2i+A3S8Jj2v9rxekdbb
xu+7EH8Rb6X9P+b1mPTYYCD70UbT+Ifx9hJ4SeGklPw+P4vEqapSZl/YX0J+
SGN+Iz0bllPciATsP5HhCPL7GAXeuHI8kuZ7on7cGZ6Q8THS/iq9KB5YuJP1
Xan/7Epk+SXas7Tsf6n9ztKQfazn9kT48v4f0mR9Wu8Z9EQ/1nFk3QI6/1kc
qyfwfVn/xvwI81esH4jcvH8tuVNNThM8VOT7i7n9kn3S/R1Vk/Uj6ftH1Kwe
IOu6s3oA6zEJz9rx+IH5F+ZbBCcwfuF9C8+vMF6S8VMsXyd6oPYazGnsj/zv
fBj75ZzG/RF56H4StATHwlSMRnyS7An7XXdVTP+IL/L+WhTha0P7BSkxLJ9H
+yb7w/w4m+6D04jPmJ+Q+gT9L5HhFeFL+5nOXB+In5h/Iy3D2xR+H4/xC2mi
p1JmbxJpT+0lVqOotzSs3kb7I+fL7Q33j7Q0bZSi/hrF8YnUW+W0bxPC8IvM
z1DUx5ksPiEtPfZSWk31Y8HPA9+X9RuZv2Qp6qP9bD8yfznK+5/yeBvGzg/f
l/YRT/nnqpj/y+LTF06jvMSuflHUszksPijl+be/V88n+1Sx+hbtAd9HGsdl
9/mufBz5IV2NV7lltB5+tJesfxj7U3vY/SXhE0HmxdH+Z/wxQltx+SR5LHl/
VcKTEzx/R/8leXMw63+T+HKC0IH8e49qP8699oTqZTGRfxg9jzaniL3+zut7
6XmklNQx21IJv6onRK5bEbQ/wutr6fuca7yelNZ5gd9npJB95ZdBN8kvz8m/
j8g9S/gNo/l68yTWbyTsfyH0Vlo/3DxP+tE/UvkbJrH8h+BVDDm3FrSfaBkn
t6/wONavJvF9L9nfYN5/lH7/g+Nj9fxGcwi+bO51hcTHoZgfLyL7fon1yDLp
vB6f1RG+2jQiVx9qn72I/znNIPb18YWG2SsJN2qSv16g+PFURfpopaXMP5X1
ibL+IPjHaWU9QeIkz5el9dV0ve3U3i9R/1FRe3Th+Cvpvy6d75dD1nej9mlJ
+8c/4X41X+Xnyu+18P6U2A/9/sSe1pMZmYD3mWS+N/m9lo7hK3nv/79/VPZj
JXZzaXy2WfBVf5XgDZcX7w8JTb/H2Ezv235PZ/hB5FWTc/Tj9YX0aEHx1vcI
2W8kzydWXMlw7/yv7xMRLxx6/2zn+IDfFw5Itww8/9tQdj94KrDPk5pJ9Vm/
Nv5MXo7zgXzh4IxjHceL/Api9ULUhFho2KpP4cRQXp9jvyRo5Hub+KmZEH9k
elj4Yh2oDa5mfsVp0Merx3X/STrIyLM3TRLS2X1JjbrfuUyu48D6Hzuhbby5
piO7rzGtClnufqdSsN118N2l0q+/v5ssLEtN/l60l+J8L4+zWkh+9B/fWpFi
fjH9eW5IQ15/9FXl/tToMsdDjKcxUY8PDJ6mgu/umlecitbCzIoV62Laq2Fp
6/cBZrFa2NTB2ZT2WgVdX9VfZX2K4zc5HwMkONVu2b9gHbSZNPtJi9EGyAty
3v9u/BZIWn84buFMA9ikGfxGrd0Me2/GpDaJKAOfpHB90dvjsNP1bt6CD1qw
nrR/8KazYj7uXPDLD7N4P4PwL4Oa7mUXX1mdgOfrHrU1d9eC4G/coapzBZIC
d/SGNVpYm9gwxm6rBjr4l1gs9tHCm4bPf7dbw7/HGhy+df2pilmsH7ESSkbP
+TiW9ZdGj13V+Fp4X1YfeQU8nvZ6uRXrn8S/MyS42XwU8D713ngPi6ABfwtE
/xVg7lXQu0qbLYwoeTclTazPxj268eG3j78IWK8tud/25a5zB4UI97bqt931
sGzL0g8eD6Lgp4/6Rh3u6yG6575fpzzYweLzy2YNvjk4OAhGLiwxv/g/7sd3
rUjIThu+h/Vbm5akHf/waCW8qz/cvq1FGWhs872f7E0Ej4C8oLONy2FKaeMZ
6lIPuPj4jmrXKwM0/sf7Q4MOy1m+/GyA6/dfLiVBK7e+epd0/v0P9n/uFzvE
nHFLA+fucf99buLfPxE7LIOmA5sdn+NynvUnj3x5vnFv6Bn4teBNt7kdeP/L
8vPihWOcyqCWQ+9H4VWnwXSlybENdjpYuu/UhluT02GibZyTWZEOlgWcOT95
zEX466bZnu9VOohOHtN6FCSBp1Zta5vP85FmSwtmXxjEv/fB72sCkpY4TnNM
h7Uft49O2qiH06nnZxTUj2Dx8eHYQ641xsWCKXdz0MdkA6xdlPO6/31vGDFT
0NZJM0DMyJ325Re9odnqD/lLSvTQ/HDCtDVVIXDb0ePJkGgd6Fo6zHWqmwL3
v/my2W0+zx90va8FbijRQvcOL6peNcmBpvp+g3vs5vmm0cGywerrWrBqU39/
eGEOfFgWNEulEe1/blnMh2c5UPtU88vFIr5/Cmr5atcrNcQOsB+0NFAL755r
HA/cVUPFN74/LQnRQuGmFb1KU9XQMX5fYSuRDl4203x8uhr8vA5/qhTpO+dm
X0m+yL/36WN/M/379v6w+1BA9q9ivfx288gY65F+oFLZPyqO5PfnN0Nm9467
UQZdFi2ddHNwHPR6+adZ09QyeH2luUtY5FEW3wtOZF4QfpgG9VK677DZUA45
sz+vdfviAqevFuz3Dy6H2lV1f2oTPoPV70eef261+dhE6ONd39YhqxwumM2c
4JE3FXI3eRSmFJaDd4LmbkjxJCizP3w69UM5RMy/8qNTx/FwMWNV00Ul5TDy
zRC7JXdsWTw75jm+VsnrgaBe1XpHmylGCAu025GVOkTUQ3DYt55GyI70GWg7
ZhBovL7/7LjXCGOt97t5bO0HPr7nKxusMUKE6lO7sMMDWX+8f0gdF827bhBs
/bFrmwgjZPQtCrXu0BcODttye3qyET72abcibnkP6p9GmPwxdcVmlzZwr312
UNBDI9Rs3WnE59COMGPSUa+W4ni7Icm+DV+0hW4l9kNKOpsg/bsuKcM7WcME
S+/598xM0Ltqe6enDduw/mvPoPqbcvrVhOkt9p+1Xm0CQ9B/Wv7+qh54H3dY
92mfCVauOHOyaZ9aMHL+npbpIh79ce+64/32n4RldTS91orv+1Ws3BOdXoPd
hwecmJoYOvSVMO2Y9befxfkV+yJc7KI+CEODB81xFsffJ63/rerFKwHvy2+0
nuL4XZFOsArNaNDcrAJit1ywiUyqFDqNfjFuozi+NbyL08DaemHr66sDrEX8
G/LmSuDwXX8LtkeWFp0Qx30OfGk8dpdOwPujNdfu6ftprwnY74582CTc89to
dj9ukf/PPzVc5kHrubOmvBtcDoNu5X5Xa8kCaGjZqXXpkHI4Gdi0u9/oBdDY
Jr1HM/dysP+lxlKPya5wxsde7TyzHGIHRTdwnzuX3WddeuOatysYAJY3ts6q
bYS2tY4Nm/VuDLTrb/f3yg5G8D+1fVVc5Cj2vUmGcf/2tg5NwavVp05Du5rg
2VPts+EZllAzrPRBzEQTPNU5Xagoasr6D8L1F7MaTb0rRG3TLnl/Ug8rJn1O
LQ3dy+7P12ZPXK12DIOGvhF2VYVff780yy0j+9XcpdCzx5fe/bUGmFt016ww
zxMyj/S+rhtvhDpHrStmvRkG+oKXM6f3MMKaj582+DYVoGRea5OjmI8cnf35
juUmc1h6coNZnCh/+tLXHUKjmkBk+Pv86ZY6uK2bd6Zq0GXw2j8i93H7r79X
crdqFBjhmgVFwY1+v/StDpwXJT95kZUBjZ/9+DHlMO+Hjnu4587tKC0ETHmj
6dVNDZopnb+4nC0Hq2ntuj+q7wQtLP7asTeqHDL1+36+sdsZxiXn2Y96YIT0
zsEZW4o6QU7e+m8mpBmhVf/xTSriu8G74yuaPRfzl7otTv05IPypEPdH0P0I
0f7ye749O2PfSyFmYLBfvZIy6FEUun571RGY8cL+VbGZHhZ3rRqX3egwXGpw
qeiWox6SBt4bZ1PwM6vHYurbhLYcFQma2+d8us3l9ezjPR3iAvrw+3D8Xmmo
52Pfn3cdgH07/3zr3tAAtcwrAhd2DIS8ZRVFDr2V3yeJ+HjBJerzg60we3m7
Se8ty2GB9J/FoE1r3banTxn8deHVtBTPeFgd+M3EEYtFPO585FT9Ug2o/P2d
4sX8s86Xf8YfcxHxu/bLWst/5v3l+f3W9cwT9XvJMV3tIOo3/zv/OfdE+tj1
ksB6Ip3ompyxXeR388bMrOC/Nez+ud61bulVl/j3F9eGPF9Vr9cN4cahAhsn
MT/9mOaU8GOXfOFKbk7wHnE8OM/jzHFxvGp0U887oj/eD3/lcbDBb0Kcd8cx
keL4A2/nWNeeNwS8b71ntBpsytYIh0aa/6dEnK/3vbHdTnVN8Kp/I6mjON7z
cSPDohyNsLJsqn1WZQWEBW853tQiXcD72Tftp7lOmZchHBi0IcFbzId6bWo2
5GlStnA74kDRRXF82Lo+j2vNzxDcZ39jkS7SDk6va4e4ZZD8ybUSekWE9t92
+bCA97shfr5WERnFQu97Dy37injz4nVASXz5Y8Fhi2boEnH8nPnI9PstHwrP
w32mJ4r+Obv2znn28XeF7QvPjvtBHC9J3JTadmGx4JL6bFnnkEoYOu6vUY+z
wgXsH66P6mif+fC20HWgr/6y+H7BtqS9bfRFwq19cbfei+OvTzdesrJ5obBw
qFX3tRd5PyIrJ6bp3+la2Nk9p/DoIBU0mfUoc6yo/7f15nlbafMFQ69Tk+pu
qYA6bdtcmxZ/W4h+6P/GsEwLZxMP/fRPpgammU8MXi7qx25U6L6pWTmCze3a
L7uL+tV5O5TPFfUfa/H00PY9WmjtVcPCNlgNs5r3MTkEaKFVxs5FCQY1hFyI
T1+9RQfdJ2ck9vFOBet6OXP0aTpYcbw49GSsWK9fHV3Do54Opja4ur7Wi8vw
tlOPyIR/fV8d3cK2wUpR38vm13D7Q9T364Vmp6tptxONzySK9PMuU0+nivlq
93idulLMX6ObrenTTdSffldo29vDwgXsXzdfpD4YJeqz0TlD3Wq602UPxwyR
xv7ucq15x6PevwpW5Ynq1SL/2k/eJM8U+ccWFmTsE8cv9HBtdlscX9W/7q0W
3lroHJOXPHyjBiZkp25z9dLCxSS/G9NDNPBjaWFf/xVa+GPYzOh35zSQZfvJ
yWY17wcO9u5pVp1ff2uMTtq+LErok7e3brjIP3zeCxsPkT/Wj477XNaO91aD
Pq9N/SSR/vZwvNuHVWqI9PTMihTpw6NujSlfrQbby+69u1bv5+PUa37ifgJq
r3zuuFELNok19wf00EBGrzYvO6/XQu6CBycmTNLA2aee7/xCtRDu3e7ywUNq
aBwS8OP+WN5/vv9tSkD/zVpImPrPzOmtNHCtqVXu8S1a6HH2YbbFZzUEjlln
uWwL76eePGdtCv7X99rFme/z757TQscBC+2vhvB+8XFD8ugFB1VwYXH9p4ve
8n5vUlVHq8hKLTR69kejq6uzYeKXRrvPiLTdB681i1dlQ0T0zNGtCrUQXTvA
/u26HDAKxWZ593k/D/uP7rPnQdZ13u+bYVluFlSigtH69OGux3g/smjuJN2A
k6I8dez/mn1VBYtq+Eb3Oy7Wo+cjl78rVMH/AZB/VTM=
    "], {{
      {GrayLevel[1], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxdmGuwl1UVxt93bwmBIyAmJghowMG4H+6XJgTO4XJQ4ADncBEQhC4KcpjK
KAGRg1oJNTrTB6rJMay8jJmTM2aa5hhgmtzlZo7CjDViBUqASBd6fqznTE0f
1n+t/373u/faaz3rst9rbm6csSIVRfFRWRRZvLX4SPGholmS7xLvIFooeYHo
YckTRZOYK7pf9JCoSfS2Fvqc+E/Ev6HFjmn+18U3amyLqF50o8YeKWKd8Tnk
dzX/PvEHRWtFnypi3/ai7Xq2TnyXeBfRVSn0m12GDsNFOzyHucOtXxvRYs1Z
I2oQzdSzU+KdRVMk14r6as53pMNM8Sf0f6CoRjTA8tgUdtird66TvEd8qvgN
PNd4H73bU/zH+j8txTPGaz2nv+TrU+zX1+NTPGdSGf+ZMyTFPOZMsTxN8gyv
OQh/iI/z+K/Fl4ifs64T7Ystkq8V/5d4tWgCa4tOi07Z/qw9xOt85HVY74Do
Acl7xE+KFkt+NoXfnhDNFf0lhfy+zztD8mTRGvusvbHwgPHAnneKKszx0aWi
d8CK3z0m2iAaLbqI8xeBw9V+h/n4cKn9OFr7jhKd1fgKv8t7j4seFTWIDovW
i7qZN1le83/4Wm9sN1lm/D7PYd/xonGijkVguN76fT7HvNdS7PmYqIVjocnr
EEfgZxhr5vDdG/ZLjXF1SHP6Sz5Yhg/xJf7ijJ8VdQXf4iNEV2rO4TL+I9+t
Na+W/LMUcTrK88+JKh2HLcqIGeJll+TPgOkysM1eYOYqx1WnIubxX1MujHX1
eJPj9M8p1ugNFjXpRBm6HRf/qfckByT9r/L6g8QHi7qXodsQ43yoccg7R8uY
c6QM4p0eRfiYc+GjGsckdquyzPrdyrBVF/ExKWzX/N5o2+S47VYFtnSW58XL
HGtU2Ue1mtNPcqsy/NHPsXmBe/xD0XKf71bx74l2Sr4pBUbJN43gU+/1Il9K
XlaGDWeTE8vYB+xPT4H/7qJFkltq/EmvxTrEbrXPO8C4ARtTHXu8S/xNcz5h
fLpzBbqyX63PUudxclKdz8X8Gc5Tu8vwKRjpg3/AgOT5/o98oIzx/eJzjCUw
sN9zBheRH8fY/th+zP/45TrLdd4XfU7ajtiwvgwc468l4gtT2BAMrzQWsf0c
2x+b3VOG3Z5KkZ+OYeMUmGAvctz0IuxzUrRP9AnwoDlPiv81FRfA/iZ+LoIf
dq6gFm1yLuC9N0R3iJ72XuzZQRh6RXL7HPisdly9mWLuNnCvZxdL/oHk4ZLf
lzxY/CXOI3mY5H9IfkbyxynqAvYjRv6t/8+K/1P8Cs17TfLl4teIWkr+PrYo
Ir9S7y7T+ELxX2lwpXij81KjcyUy+ZZ9ZzmX8S75lly72v/vFu0uIid30cM9
4r/Tmh+KnpJ8IkX+JC+S86/OYZ/fp8ij2LCDz8zZU4719njN90Sbrcc67325
aK5j4zLrVm99thRh83rruMb7rrVMrj6vvb4g/hw6aL9O6Jjj/dW2zwT976s9
qnNgmB6CfNgGfxA3OWIIHQY5vugNiDVy7UyPEYfJa16bAy/7U5xpo207TeNV
WvuGHDWKMeoU9sF21IijRdRC1q/QvFvEf5NC3/Ze/23PwSYXa86LYDiHj/H1
36zXUa8zVs+OiD+u8SmSB0iHyTniAN0HGjfg53QK+yRjoBkT6HmRBr4k/nyK
/Y9Yh1OOyXnYW3Pe0tgjkvcaM2Btchk4Js/0dJ82oohcRo2hvmzXz3pipowa
O9xnZu5E/+/svXjn5jJqKrm6yjkA+Zs56t09OWovvQf+GOsawZwJ3rv02kNs
20YNVJahI7F+v/0C/vEZMdMuB05fMi6qjQ16Pnq/D5zP6pxLN/h9cF7jvdl3
gfNptcdqrAc9wO2uL1/Mof9DzuVTnefpCafZd9RM6ih1k3zcxzmZPI9e1Li9
KWLidefWHWX0Mi3NiVvybXfL9Ousd28ODGw0DjhPretLO9evphRxt8m2OqP/
T4ML6/VxEbn0wRR+ID7OFNGDEsOz9H+Y1pmRw8dt7Hd6KHIWOWqeno2izoj/
0bns5RT4utsY250iZ/zSOfx8EXlnp8d5Pj5FXMy0z6ptnzVaNxNnOc4/zjrs
cD7gPz7f7JhYRF0uIz81WocV9l+N42dpDpv8KEUdp4Z3c215yzbppDmvYzfx
nyf3qtRGx2xv8c0patSlOWrd+DKwjt+HGgfUxkbXx0o/pxc6boyV3he7YJPz
ltGhwbW2q3113rox1mBMVNqX/fyceR2Mnwpj6B7LjFGb6RdbuHYxv6/5OcvN
erDOoyny0VHxS1Jgq8kxdNB5g35hr+v4vjLkK+wjMN2uCD122F+M0Y8xnh0T
9CRjneeHO9YOO954Tq/Zw3F0oPxvn7Pf44ccV2CG9w5Zph9EJmbpKw97nFxJ
zmyZw47YBnyRi8hdQ+17MNAjRy2npn86R23jvtR8V0IGx6P07IT4yBw9K71r
ixyxREzx3qsp7iPcS8DCeOdGejr6NPq6re7b6Nlq3Wfgl4oUfRv/t3keObmV
a+IlOXQ5bX2I0xOO1SE58txB8keO+jAmh3362ZcPi/fWeGvyaBk5vbX9cKV9
ga/HWA/2OeO96JXoV9hjg+VZxtVZY+k51/0rc/STO43PfjnuwtyJB+TQAV2O
eV3im1pLzZ2ZowfeZVyBtT3G2yTL7LeqjDo0zHG01PFCHdtu296itYaK11E/
Ld/ibyHzyrDRHfhR8rIcuYVxvoeszfF95J0UmMVf1E1q4mzL1KC5riP4do5z
1jznJ9ZHvtFr3qo1l4m/aB23NmOgjHxOra52XzQJ/KQ4zzjnaHJ1Q44+hn5m
eo5+gr5icY78Qx1tvvMgU0/b6tnLGqvNYbPl9vsS46zaumzzubb5GfIcP0MG
y6ts8xek163iU/mmlCO/b8oR/2Md49hlvuORnL3IdqhwrsGndfZLYw4bkH+w
A8/bek47z59s/1d4fLl9hw8nexyM0G+SdwY77nbbzjuMK/T7ao677pdz3HeR
uRffbh/91u8l25+8d7YMPPJsmf3Jvfu48xV9Bd/m2Bf5Jp+XvmC+x6lD1KOu
xsYiY2Wu51fbVgssY/vt9tEun4G44K5/wnE73zpU2d4LvBf58wPrRn046XgE
J9yfk8/D90Zy+wKdp5We/zBFX0t/O1B8vntWasWfUnx/4Hsh85hfI7lnjjpX
Kd7LvSg9Kd+w6KPop95KcZe7U/IvUnwnei9FP0EOG6Hxb+Word8Wn2jcgl+w
3MvYfs05dl8K3blnoj/fyBZrvKPmrxC9qrGv5bB3g23+hxS9AT0Cdz/yz9Ac
2AXD3xV/xvihN1mXA0/cY/i+w91jg+RVziN8W92aoufuSlzmuFMNEn8lxV13
dI5YJWavJ0ZyYO0m8a8Yh+DxlPu3synun9xD+2t8tnF+W477J/dQLgncdbnz
fjLH/Zl7dN8cd0Luhn8Xr9f/nZI757ifcZ+hH11p+2Cnx9wD4OfbvBexxbec
brYbMcK3oCP2Q0/nhHeNB75LUWfIZf29H/vOJa/myBUvOI4rHMtt/Z9+g7zK
mvROdxXx/aGjeb1lelB60YU5vinxjLqDnqONgVrnUXRYYl3RE7xXGj+93eNx
PyMPUgdHev9K63DWcUF8EGv0FsTYfwAWK2P+
          "]], PolygonBox[CompressedData["
1:eJwtlFWIUFEQho9n1DURG7vbtbtRDBRUdlVQMXYFG9fAQDHATvRJHywUsddY
XQRBTOzctRULGztRjO9n9uHj/v85N+bOmZkqqWlJE2IIYRTkhvoWQjrXGlAP
PRme5ArhMRzmxsL44+yNgULobNY6Q3NYgn/MtU/wtWX4BpCJrw2J6EZwDF0X
Gpq/U+++CZPwd/ED2JsJ99DDWKuWy2OYgh4IV9hrgx+EHgFD0VtZe8b9T6Bv
8BgUS2/2x6Ibc08fdLJ57C3w/dBdIb/+G98NnQbN0edhIvon78hgfwT8QPdk
7aRiZ78XehF0wNdkbzF6oblOZO0A1zz4o+jRyi/6EGuTYBq0x7eGD+zthHTW
WuEnBl9rg24B49FvoCX6KvfMRZeEK+gz0XOVDZXZ360coLtwXY5fan42inEb
113KN/oR1DGPUbE+gFr47dH1PdUAviMUD/5MJ/Q089yMw09Fn4v+7SyohP8T
/ayPwF90inmudAbD0Qejx/4d2uHnQ2XWkvCD0aUgBX0BSqMj5AueQ0OXgZHo
S1AWfZtn26KvQwV8AfPaUo0WRCeY5141lw9dFPKiz0Ix9Knoz16D8viKcAOd
BifYq2mei0qwEf8IBqv2INUc6dcw3RSk/7ti/Me9a2ELejmsR7+DocF77D26
uvm/6B+rmcegWBTD6egxKBbVxP3oPaJeMXQmzDLXZVUX5j2gXtgOz9WX5rWj
HDUzrzHV2g54ic5Sn6KL6pvoO7AO/Uo9w/1NzLVqsIhijX6vavAy+iFsRq+G
TehV5rWXjF9pXhOqjc/KOetvYE/wnCg3G2CFcqsajF4DqgX18E78HPM9xXge
/xoGBn/HW/RTaBp8BmgWfMHvD15DnxUbrAkeo2KdYX5WqukO5jlQLnbBPs0e
89mgGdPfvEfVq5pBndEfo89GfeMT+hskBJ8R36Ofsc5aOVQuy/HcV9WLZgHX
X9FniWbib3QP89mjmdIdvScnd+qJBfi25rlTza5j7UX0s1UNzlav4FNhvOoR
XkX/F83Qvao181mpGTdEs4W1IaoXfEWuN6PXtnJ0K/oZ6ix1JhfRVc17Uf9Y
BT3PvNaUc+VePaxe1plk5MSSnPPfiqmEea+p5oubzxzNHs0ozar//P3PLw==

          "]]}]}, 
      {RGBColor[0.7777777777777778, 0.7777777777777778, 0.7777777777777778], 
       EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFmHuQUHUVx+/9/RAFEl3YRAxxdwWRLDXHfCQL1IwLKmI+I8mgFVKnAZXH
Lmo8DFheggnylKe6iiISiFZMZYgmhtpMgRQrWppokg7EaCWL9v3M+Tr9ceac
e+7vcX6/c873nHur62+9anQqiuLVsiiy+I/08LrkFtEDev65aKToer28SLrv
imfRr6RL4seInpV8tPgg8dM1po/4PK0zTvIFovtElaJfS/+p9L8UPyJ+meac
Lf2l4t8SfU/6WvEm8R7S9xLvoOet4u3F55Ux9ybRFXo+R8+Dxa8RnS/5avHH
xH/q/er0/FXxi8W7i39ZNENzXxEdFI0TlbLjqjLOtkf0gXSVovM155/i54mP
l36yxtWK75DugGiMz9rb520VfSj6jjnr9BNVeN+ZRdg1K8XdLZfcEfslPyLe
LDpW1CXHHieI/64IG0bhA71r1NwrJffXu8567pdj7Qqf6xPxw6Iac56/JH0b
zTtKdIPHtIqqRKMtM/6/Ho+e+/jMvrtY1DaFbydI7iC5TvzoFPqORfD2lvta
Zh58ofUdLNd5PeZzf8/Yrtt1lnvL8DH+bRHdI/ly8UOiE8s4eyeN2869ij8q
3f2i47nXIvS3i7Lv5DTJLxRxj/hoSBHnw7+tPm+Nz1xt/UzHPTFf6/nMfUn0
lqhB9LHGrBCdZL929z0fTpEvn4h3kK5bGWtsEv1d1ChaZx/2lv1bxPdxr6IZ
Zew90jbw3LsIW5okjxBf4DHob+HMxI3kh8UnibpKniM+2/c20fpx2nOPaJl0
fxG/q4z5C7FZtNQxD1/me+JMo3yuVscK99RO828rw3fsw36XYW8KO7HtQfFp
opOLiHVifrx9ONJ+/FC6DeRJijtFHs4ZRRtF9eS5xt5cBh6w3lSvuVr8J77b
rpp/YornLuIniCZLvls0BR/43prs15VlvK+RPLSIMVXi28S3luGLuUXsxZhj
HKvE8J/FjyV3U+Tk4iLy4r4UmAKenJRD7prD3zuMFf8G80RjjQ+txohmn6Wt
aDd7FHFXgx3HxPA+8XdEn0r+Wg4bsIUc2Uu8SH5RNF3yKTkwqYNx6Xnp7xDv
Jv0u24A9TbbprCLWBg93Ox6wDRwbUEbOk7Nviu50XBFTEx1vr2n9ReK7xL9d
RmwRV1Otv1T0nHQNzuuTc9zb7hTrzfGaR2wPtmHna76rvmXgL9h7wO/G+O4O
O255Bz5PSRHDh20/fmtnnOFeuJ/teh5WBN4NcZw9UMZ9w5db7mi5jc9KvleT
H+JLHDNry5hDnaLWLSqjDs0rYgyx+kQZc6ocU8QW+ldSyC+Lb5L+Z7xLUfc2
eM014usdh6y31GuiW2k9eAluDi6jNvJ8fxHxT12hplB/qYvUxC+KHi+jZoNj
63wu+PwU/mL/tbbhkGXuYVUZ56ly3qyyDP6Cw9T3BtuDr1cVcRfYzN7UP/CA
XFxgrJhpmdzcjg22f2EZ+H687/PeIvZa7hxcLP4se7Ku5CPiT4nuIa5EGyWf
oXF3Sd4s+VzReZLXFBGfkyT/Rrptkn8s+RnJz0vuL/5bUb8y8O1F0fVFYPVW
n+u9MvBignXPWY/tc20//RN9VP/i/7hGXIG7zbZhi+RfcF/a/wrvBZZSu6gr
5D64u7OM+nSbYvj34rcSy5rzsuQ++FTyDvGmFD1Mi/fdW8ZzpfNlj/Wf538v
x8t22zzfMrG0KkVc7E3RY3S3TeQQtZYcAp+bjCE88556scj5Dy41Ow67Of7X
OG6n6QzVev9ECl6Tos5j56kpeqceKWRsXiReIXq4iLHVznfqJ3iLL3qmmMP4
Rp+TM/YCA0SzU/QCYDfYCL719PhLPJe+pVb8FNGCFJg01mccYCzFtsYcttTn
wE8wGvwHo3kGS6ldPXxHT7vPGaPxK3yPQ5x35CG9BP56Q/TNInofMBdspE8B
r7jbg16fvd4X31+GHVeLf1BGH0sscV7iFgw75Pxd4b3wK/a+63XWegxYRs9C
faW2skYvr8Pd9HT/RqwQ5/Qq1F5qMP6ljvG8TvJknXMavUaOGOjqGl3tcxKT
9fYTPvrIccvZHyqjp+nqNbGnrddodizhc+oufgcX6TnAGXqAhzwX7Gv23D3e
l/XpERucX/R0G/xM7QWfxtuPuy1TizY7DoZ5PnOpWbusX8yZUviBb4rOKfpo
/NPJcQtfZHm9766bz9vFfcuMHHfelKOXQc9ZJuaI/30peskdvrsKr0msUkvv
NIaQc3f7rsDjBuc1ffYNjsexki+XbliO+74xRW2n17opRb5SCy5MESNg3Rbn
GnlJrpI7AzT/TL0bKD4zB7btTFEj6LGw4doc3xPX5bjr4b5D8ox8G0Q8pagp
zLslhV+X2BZwA3voPa9L0eMMTRGv9Dr00/SVjzvXyQHynTp+TYpeqk8OezYR
1znieqPkvpI76f0E8bNEY6U7m29HcltjzsyByazBd9Z69xnviW8VLZfcPQdW
NBl3yKflzqm3NOYR6aZozNNF1Dr6+betv1H6v6aoC38TH5qjp5kqPpxzSf4B
36Git/FlDjygHwdDHksxnnlnMEa6r+S4l1pj3bl63i/+9Rw97agU/RF+GGxf
cNfU2ipRc4p6OUvjX0oRi5OInRy18fs5MGCGceC4HN9K54iPcA5OdkyNc1zV
+ht/c4q+lTpBjfhGjp74AvE6Y/shYwL/I8AF+p0RzpGbU+AkWDLHfue7apnj
hnNwvnY+43TnLXfV1zhfZ9/UG3/eMD5UO15GO2Z2ej/09C185+A7asgg3+1q
4yY4M8A1hHfEKnFK/8nd4At6lxbjEVjEPsQUe72bom99MkUPTh9LjvEd3dc2
7ze+/iNFH32H7ejhMew9yxjFma9N8S+A2kFcLHDu8W3HO/TEEmOR+TY/3fYP
TFEXWZN9ONsg5z7v+lk30GPgA6xf6vuu9J71jjMw+YcpsGlCim9CfN3R+TXY
Z2Ff9qEnmm1Moya2OGboU+YZ095xHpFPcx1D85y71Crik2/l48rIMfKN8eTl
7Bw68o9vJM65LUWuLLafn7RfLtT7DZbxFdhVYexlHjjA2evdG7yZoiZQl6kL
4D24v86xsM7xsCSFzy7i30+K+kz/1TnHf4fKHL05vQJ9AjXx8zVm2s/k78oU
93Oaxv8rxX+HQ+Lzi/jWqCmin6w2drQYu8Cwnjl6jUc9r9E+OzVHHewh/lkK
/OdHIf34UGMFNjY45qr9nVkDHqbAu/84Z8gd+qi9PuNq8Sr3Qy9I/jhFnf0o
Ra9Bf0bM/9Fn+FOK/xMrHFvUXdZlzcW+Y7AJ/Wa/eyqFnWA/sURdAPcPpvjP
cCBFDUA3PUfPzr79fT781c052NZxfoljnvhsk+O756gc/7faO0/5fuHbhe+s
11PU8BXir6bA2D+k6BH4z0afwPcMsfB+Cl/x7UQ/8wWtO4Z3Ob5d+Mamvv4P
j6qGvQ==
          "]], PolygonBox[CompressedData["
1:eJwtlnm0llMUxs979qVIml1qkWsmhUJiKWO4ChVSirRUpkqKhHSj0E2sRaZy
EcoQC5GrXPPUIHOFDEuuqZIyj/F7PN8fv/U+++z3Pd85++y9z1cxeGTvETml
dCuUwcRIqQ0Dk2ACehtYyng9PMNYA+wX0E2LlJ7F3g57GfbXsBB7GPZcfJXY
72IPhSFQxdhE2At/Oc8WcBj6VDgIPQZ6oxfx7mS+rYEdsbuF320OXdHXw0/4
esFU9MPZeizPw7G30Jp59yXGGqELaIldhx3oGbz3IXol7Iy9N3yJHgTr8N0B
K9DLoQLf5tCq8J4boo+G9lo7zFTgsBfyGAZ/Y2+AJ9A3wyz0FPwH8rwF+zrt
Fz0AGvH9njCUsWqe/fHvjv6g9O5sqNZeseehB8MP6OGM1fF+F+iLfpuxG/Dd
Da+jv8j+tgn+B+Xjne7ZMVPsFCPFqrx0Ft+h5+J7FB5Hvw83oXeCJeif4Wz0
U/CrNN+M59sK7KXYf0IteiYsyI6hYvkYrEf/kv2tYqrYag/ai2K0Ed2auWqg
H3oMfJ/97WqoRV/N7x2Kvwo9B/5QPiX/5l/o32F+8hq11kre35f3z4Otw2ei
s1kAm9A5nAvKAeXCP9m+6XAvuh/+Q5SL0AbdAb5K/k399mXY6/Al9AXoK6AM
PZChp3k+AD2Tz1Rne092rFQTqo1zoRY9H85B94TR6I5wYjjmiv0E7CHYNaqx
5Jgr9oqVtGKlmO0SzuWNsC36ecbGa0+KQRjpeuVwdo2p1jrDyeE9aq+qwVPQ
p0GfwjHoj35ONYzuBYNUq7Ce3+oGL+M7CntU4Zrojq5nrAe6HRyJfRxcVPhM
jpcOx2q19oC+RPWHbsp3I9Ad4TX8jWG/8BnqLDvAMegz1BMKr1FrVc4p95QD
v2Wfoc5SZ9Ye//3Y1TAL+zOea7LnVs6vVazDtb4BWoVrVrWrntBOuaTzye4B
6gWNtYfsHqNeMw99Ou/eCO+gN1PMknuOeo96YGWpv65AvwLj0LfB9uEYKVZz
tGZ8K7N9a2F/fB9hz1DtqEazY67Y3wmr0Muz5/4U9lDssnunvvkY3ZKxxehR
6tnhNWqt6hlvZcdEsVGPmp3dQ9RLpsEy9JvZWj3hPfSZylnWOwD7iPBv6rdX
wV34dwivTXt8FftFzZl8pk3wnQSdCue8cv+scG4pR5QrqnnVvtbcQr1T9ZY8
h+bSHrSXRdAcfR9jDQuf0T7hGlAt6E5qjW4WfncK3J59h+kuU0/9EX1AONbD
oVP4Dvv/LoN/0SeEa1M1oFroE66db/DXYR8bzk3VgGqhB0zN3qP2qjtSd6Vy
ogz7St1PpZr+JHsOzaWc2ircs9W7uyrG2N9mn31f9dTsHFWu6k4uD69Za1eM
OqO7hN9VjR6M3i18NupJu6InR+muYa5r0deEtWpEtVIVzkX9B9B/AfVc9d4K
mIT9SEnrTpkW7lHqVdrTYrgKu22pB6gXqMZV68qZ0eqt4bPQHf9Gdk9Sb1IP
uBjfluG7W2eqsz1fd1xyz1Xv/VzrxG6mPhe+g3UXqycMDN9hustUk09mx1Cx
1B3ykM42+9u2pbWOgzWF5xwb7kHqRUsYu1C5CZsK92z1bvV89X7dwbqLLw//
V9IdoLvg0vB/Fc2puUeG59Icmus/Vj0uZA==
          "]]}]}}, {{}, 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Thickness[Large], Opacity[0.5], CapForm["Butt"], 
         LineBox[CompressedData["
1:eJwNylNsmGEUgOG/7czORjvbRrd1djpkRqe7LUOyLbPd246dbTuZbdvobPO5
ePKec74vInZATP+QIAgS2RYaBLXCgqAe3RnMEAax3dtA3aEjdQRjGMdYHrn3
0sf6lGjzEx2vz3SU3tdYHcpwhlGbKOpQnLqs8a+YrtUZOpM4ZrHObaKu0Ana
mdXmLrpKH/KA6fYrOlWnsdx8j2VMtk9hEpvtRbQvK82FtDAJ5qJ6Va9xkX72
RXqXhZymt9sCvcNo80nto6f0Mpc4w1mOcZ5zXGALNf3dqpt4wSteEs98blDO
n/Kk54C9slahApWoyHX3PHpYc+sRzasH9TaHqGqvTjU22J+zkUTWc5NbHCW/
Pyc0nx7XGjpbM2hGwslMJna6v+EtrynpVoLF5vd84B2f+MgusnrPRhYiiWCO
+xe+8pnvfGM3P/nFD0r7W4ol5j/85TeB2z/dQw5zTrJTkALMdQ/VMEJIShL2
uifXFCSjLGVY6p5KU5OStKRhn3sbbUsM7WlHLjrSiQ50oyvz/G+gDalPYxqR
jqY0owk96cF+/1tqK1rQmub8B1wqeIM=
          "]], 
         LineBox[{702, 874, 703, 885, 886, 878, 880, 879, 849, 873, 872}], 
         LineBox[{855, 877, 876, 890, 875}]},
        "0"],
       Annotation[#, 0, "Tooltip"]& ], {}, {}}}], 
   GraphicsComplexBox[CompressedData["
1:eJx1mQtUVVUagOlh5SuRXjZFiq9pfJCW45iYv1O+KCupViRj1kiYFohLzSwz
861NllKzHLNSSc1AS6/51sKrgqIQiICowJF7uZfLQ03Hmexhw9xzv33W3sy4
XOHHPmef/e3/38+ixqY+lXRtWFjY843/+e9P+48l/Cs2rXPj37OKgxhbpfj0
9pTGvx7FweI0r+KU4APVioOPn/Yp/i34x694ePADAcXLghXWKj4VrKBOcafg
9+oVJwe/16B4W/B75xTbfy4YbIntlS74wvjC+ML4wvjC+ML4wvjC+ML4wvjC
+ML4wvjqjK/L8HUZvi7D12X4ugxfl+HrMnxdhq/L8HUZvi7D12X4ugxfl+Hr
Ur62xx7lC+ML4wvjC+ML4wvjC+ML4wvjC+ML4wvjC+OrM/F1G/F1G/F1G/F1
G/F1G/F1G/F1G/F1G/F1G/F1G/F1G/F1G/F1G/F1G/F1K1+7XdnKF8YXxhfG
F8YXxhfGF8YXxhfGF8YXxhfGF8ZXZytU71HlC+ML4wvjC+ML4wvjC+ML4wvj
C+ML4wvjC+OrsyVXg+34XvnC+ML4wvjC+ML4wvjC+ML4wvjC+ML4wvjC+Ops
hb5zXPnC+ML4wvjC+ML4wvjC+ML4wvjC+ML4wvjC+Opsheo5oXxhfGF8YXxh
fGF8YXxhfGF8YXxhfGF8YXxhfHW2Qs+VKF8YXxhfGF8YXxhfGF8YXxhfGF8Y
XxhfGF8YX50tGRb8bpnyhfGF8YXxhfGF8YXxhfGF8YXxhfGF8YXxhfHV2ZIy
u2HKF8YXxhfGF8YXxhfGF8YXxhfGF8YXxhfGF8ZXZ0teDb5XrnxhfGF8YXxh
fGF8YXxhfGF8YXxhfGF8YXxhfHW21E989X1XlbHv9CjGF8ZX38f4FOvnI0v0
85El+vnIEv18ZIl+PrJEPx9Zop+PLOWrt7cm5JUWej+g2G5vrWL7h6VY75c0
Yz/ovG/3U2ZoHaxT5TDltn+DKocpXxr8/TlVDlNu9895o30XFFNufs9u53ZV
H8z7Zv1mOUz/2FxhxL3CeN9hPR7O+Vzv/3Sj/9KN/ko3+ifdqJ/z9fn/877L
eN9l9KfLaJ9l+FcY54M0la+wfh5IM84DacZ5IM04DxEv8mVlqL31iu3vNSju
GKzmnGK7nc7zdn86z9v14ztHMeX27y1VTv12vetD4915H+Z9mOf1/luv6ref
rzTer1TjlXgyXvX4BtT39fE5J+TrlNv11Rr9UWfUX2f0R4ORn/WqnPyhnP7V
23OhSX8Qb9h+brPwffN56ic+Zv+Z+Un/6eXOfZOZX9QHM17083umyj+eh3le
P99nqvzkeZjnySdYn7/mGP3l3PeY+WLO73xfn++ZH/yq//XzflroZ436PvMR
/Uf+mPlkxpPvE0/89fxKV+OTcj2/0tV4pVzPr3Rj/FJfjcofxovenqb3c3p/
1Rr54LxP/Xp7AsZ4Chg+Vap/YOqze5X9Q1boe9Whn0cU2+3OC9XDeb5IxdfO
w1PGeE8z4pOuvq+P56om5fp6523Cdvv3KLa/c1C112T7/WzF+v0DvoXKz2T9
vOwL9UexymeT7X4oVf1jsn4eqQmNwzMqP0xmvWM8mMz40/vTuW81+88ud+7n
zP4y7zfM/jDPw6a/eV40/c3zhelr7r/xtZ/3hOr5RiYGn/OEfr8r1D7y40Do
PW/I41CofeRHQag/aH9h6PfEvzj00x/Kb86r3F+VqvnKbv9JNT5tX85HARka
fLBcjQ+7vgpjPaxUrK8nXjWeiCdMfzD+9fGRadw/Z6rnWe/0fM5T8YbpLzue
+Sq+jH/ir88H3H8Vqe8xX8Pm/MT8Q3th4mv/3Kc4+JnO+5Uv8xX5DBN/Ow9z
FNt5lav87Hw+ptpvP3dc+TK/kc8w8bf7q0zxN8H3T6n2Ml/xfeYjntfP+2a5
k7/4wZQzfmmvft/gV/lJ+2HKGZ/6/s4y1pdKY72qNNabipDvWWM9rzLWgyqV
D3p+u1R/Mb6Zj8gH/GH8yQfyWb//9KnxTv/o93V+Nd7xJ77MTzDjm/jyvH4f
ElDjHz/GE+2HyQfyT1+fioz79CLlQ37qvqXG/XOp8mO+Yv7V51MnfrSf+Yn4
kg/0N+OR/iD/9f1EWBjx/N/xTlfxZj6gfsYr+amPL58a37B+v+9T/Um8Wb9g
/X7ab/SnM/74vn7/V63WU9gc3/QP+WGOL/2+MKD8Jo9a8X7zLGd/1Hp8m7bL
I5z/P5ya/UPGgmRPk/U9Y8nOEc+87JIfDp4/HtnTWd/vnfSy9di7TdfznRff
+yji2wJZ0qE0Oiqz6Xr+SGHfUcVSLPMnt7jULKfpet0lKnXBqslnpHVZTMxt
je3p0nf30jsGuKR33ZXUob4quf+1Nya2PrdU/rlwZs6JKx5Jl/qY9fnfyb4d
sbVHf/FIq6iyZwtaZUlU/9Gr3w54xXtxSL0VnivtN+zuWzuwWsLnjdkx4/E8
uavdg3ekxvvk8PdLCqPiiqTjwoSI2Gk18uGGnds7zz6l1o/5HXv2GNRmkbx8
fkHGo7nOfJsTs+ady8O9cmNC645TJh6QnJcGPJHfqun+r8uoniW/f/yYjG5X
EBtxa9P93uIXWtXd0K5Imnf4W+8nuvqlTfO39m8cUiK/e6PPm5eW+eXtGZPd
C3aUStwz03dsrA5I7YznOh2dWSGT8te+kLyi6f5rX02bY3N7Z8n90mddWKIz
f+fF3TgqKd/ZbyUs7p/y0C/O/mrZm5W9Noz0G/frflmf1SrrnQHO+LZSP5xW
dPyUHIyP3HRNL2d/lbXnp5jyjwPGfWVA2g4+HfvINRXSou3E3E9bOvutLYOu
3Z3fGF9v8dpPk0a6xLP258I3tnpk9dCrXVfJLlnWz/3c0s0eGTtj1poHL+6U
xHPjPs9u7O/ICm97ST4gOxM73fPFcq8kXbe84PKhbCmYNfTk6H9US78dVrdf
BxTIiMWuh+L/VS1Fh+Mu9sgtlLuLnv8yxlct62ZPznpqbqFMCcwY23evTzLi
4vJ2FJyQFhGL9q/s7pdbOofP/VN8idRPnT0r4boambgh6tHyyDIRV5+8nIYa
aZj2eNFjp0/Lum+nHm4YH5DNc25P7RxdLmN/7NV6SFxAnr0tc+NXdWfkR+/J
wdHjauWBWdbH9YcqZXyfm2IHznL2Xyu2ZV/+a8BZvyTjwMG881Xi3jbyya7F
H8nIM83av3aDRypfG9x+dO9V4pvUIaPHQGe/FTGgxw8zYz2Skjh/1pAtm+TS
4dHfNnvU2V+9WvfkoYYJ1XJFXhoTeyxf+m16alVUcrXIR8O+cJ/Nl9ylH2zJ
G+Psr76ZPHt+YLpP2j9dsX9QXuP+6pWUtMLFjevBvtjO58NPSGZv/4Tn7/XI
wte3ZOz5bL3cfc/KRy5398ilboPHfBr3hYTHP32P62dnfzWz39DZLUs9cvli
TGHCtr2y9ZXhK90Fzv6p9OQnn1/5zCvzNjbbet/NOdL8UGXJ6u+84ko/N+uB
1MNy+Mn5w6dcbdxvbrxwsn9xrkRP//vVJYnOebCs253RWeE18pP/2XURQ8uk
591zO7w4oEb+WP9w3EsFZWr+79Uxqtuh93fJXWMWrfGscObfEbeXDtzazNkf
tft3i10tU73y9LKvjw9s7+yHIm8q/WTKu9mS+NuwF+96u+n+KDq+1VtJkw7I
qxnj9/x4xC9dMqMX35zs7IfGJf/8xN6IMhnSv9uRCyXO/qjk6/Bbs74090d+
mXpq5eqx3U7Kg3Xzds/sUitJVuK4PR2d/VGP3+5te+z1Svlszf0n/jCk6X5p
a2SDb+G+CinZfO7ADdlV0tXaW39xXJK06HV13I0feETWxicECrbJQ5uuGfF5
lFdWpT48drl7vxyZe0e8J7talv45cdqc6wvl4euHtky94JNnvjp78OR7xfJA
StvFU7fUyJ6JqREv3ndaEiYMm9i9e+P68/GIU7fPPyOLqrdPL7qlcf6b0DnS
tfmotLkzflx5F58sj+lZ6/rguIx4r+uglL/4pdA9oSEsrFQ6lV8qPLo+IL+W
Dlj3U0m5/AeZy3r2
    "], {{{}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Thickness[Large], Opacity[1], Dashing[{0, Small}], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwNzMVWAlAUQNEHBnZ3I4rY3Y2KXdg1cehAf97uPdjr3PXixu+fso+REMID
z4aTaAgxAoMMMcyLuxmdZYRR/py90mp+01OtpJ021ihgnghzRKnijHd/OrSQ
barJsMUmcdZZZIkFclimiGuKyWWMcSb4sLdTP/Vca+giQQk3lJLHJFNM8+V9
t37rhdZSRpI6bqmnnH0O2GGPXXrYYJU0K+TTwCU/9qb0V6+0kT56aeKOZirI
0sIhxxzRzwD/PHgfqw==
          "]]},
        "0"],
       Annotation[#, 0, "Tooltip"]& ], {}, {}}}], 
   GraphicsComplexBox[CompressedData["
1:eJxtWwl8jcf6pqitaG29XammtKraXttVnLH8rVHtpVdtaUippXTRUkWKXLuW
No01vZZQQsRNg9iJk0MaKshCQhqRnCWLiKW01dJ7zrzzvPOfaf38fp/nfN/M
PPPOO8/7zuKpsPcHjrmvUqVKkVUqVQo8LyZN8v8tEpXUn6C+kf6/bsaT5Ace
xvLzi17Gf8g/PsZ9AsWDShh/JSssZXxBVlDG+GnZ3hXGE2V75Yx3y/auMgZf
2UzfGAG+wOALDL7A4AsMvsDgCwy+wOALDL7A4AtMrK8xlk/mn2jxT7T4J1r8
Ey3+iRb/RIt/osU/0eKfaPFPtPgnWvw1XxqHA8wXGHyBwRcYfIHBFxh8gcEX
GHyBwRcYfIFN+zot+zot+zot+zot+zot+zot+zot+zot+zot+zot+zpFnv/t
7ZVu+UxyHWe+xPM48wUGX2DwBQZfYPAFBl9g8AUGX2DwBQY/qvck8wMGP2Dw
AwY/YPADBj9g8AMGP2DwAwa/e5LHaeYHDH7A4AcMfsDgBwx+wOAHDH7A4Gfz
oXYymA8w+ACDDzD4AIMPMPgAgw8w+ACDD9WTxXyAwQcYfIDBBxh8gMEHGHyA
wcdun747x+0Do31gtA+M9oHRPjDaB0b7wIZ/1Mvl9nvLZy63D4z2gdE+MNoH
RvvAaB8Y7eXSwHB7wGgPGO0Boz1gtAeM9uz635XlfuT6gVE/MOoHRv3AqN+u
j34vEGb8LxBm/C8QZvwv4PqAqb4KpZ+Rlp4Cu5VfJxG+o/KdM0eUfT0qTrgY
0zNN1eNV+Kxqz6d4ZqtyxWo+n2f8pfzHBfVdiWgmf89TPKDH+YzRH8KFVr5U
wRj9seObzd+MB1qf0R9TP3x/7e//rz+G/76k+4P+YXzNeJOv9BfjEyEqB+jv
KqL2Ou0T7wXe93ETz4kpqpxblTsm9gT+8bPS79SzxO95xe9NzGfEl/OqnWLF
L4d+H18iegVgqx9Vv0rU+OSr/iH/uMQY4wH+pv2vcX8wHvA3qqeIMdm/SP0e
Lczxi+PvgTE+1K9THL+AJf3xHurPD+k8fvTMtOJvJpVfrOqrm8V8wF/iZ4uo
XPRmtj/5Qaqqx6Pm6Q/KPsg/MtjexC+X/RHjh/rgj/AvjA/KG/p5v4q3p/It
+yaSvyQVqXZ2sX/Td8ncPjCVcwv5c9BRtq8Zj72q3Bm2pxnvfOqZzf6O+Q19
BqZ+Fotd8qnnv6nXyC8uMj/q1yEuD3ui//A89P+v/S+G7UP1bLb0S+uZmS95
eXzRf1vvzHzEx+Nv6k0SY+gTxh/9gz2gL8Bm/Czh/lN56Mdk1nvoi6mPBfz9
X8/XyVb+mk88y1F/GM936AHe2/XhvVl/mKUXBWwPeu9kPYU+oP/AiAfAZKcy
S0/KGZPfXWWM8YWeYPyA0b6tNxg/jBe913qM+QOM+WWujyKt/tnr6UhrvRRp
rZcirfVSpLVeimR9s/lDH8z1Zpy1fkpiPSPe+6z1bIr6XccrM7+IUN+h/y5V
XvunGe8m0zNN+5fpz2HUnht4IM2T2xrLxztKj//rsvx1IPcf44H+AqO/mH+m
fxzg+Q97QI/gr+gv8dYY9kJ51G/q6S7RL/DorMvjvTkePsv/9HvEG3O8dP0o
j/GHPpnvbT0q5niM+ohXAs9XU4+1PSJVvIK+Ek3dP9gX7WM8wJ/mA/LNg6qc
R/ntHuaD/sA/UT9h6Ml+qn+g4peboupxU9508TDrC5QL+gp/Rj4EDP3B90Eq
H8J76keZVV7v51F7+j3p0xWrvN7fo/auWPOt3Cqv9/+oPf2e8oirjEmnvMru
u9l+0C+MF42vxvRdMvsP/EE+Zqv8NEjrA/iY+hShxlfPf+iDaX/9Xta3SesB
9ALfm3oSRvVl6PkP/TDtaelDCXB31hdjfG/o9zQvoA87Lf2OsPQ7wtLvCEu/
4R9Xub8SztL9IZnSfOX7Sxafco3N+R5p4RgrP9nM6wNgxAeUx3yGHgCjviAj
XkazPpl6oeONGT8mW/FBj689fuifrGa49jfoLTD8HeMHfwOGPxnjm2H7n4fn
A/QOGPqB+QD9QP/MfAX733p8ib/ur2wvXvdXmu+c7i/0x7SvXs9ifhJ7F9vH
iNejoc/aXpjfwJFKvzGfqX6nla/GWflaIscPU8/t/KiUy5v72XHcP/gf5j/e
m3oQY+Wf0VY+Ecn+RO+XcD5hY8w/+Bu9n8HzycaGHrnx/l0rH8V8KOX+QE/w
PY3TNe4f+ON7830086XnCuv9EuZH7+db72dw+/R+qhV/XRx/gc18IMXKH3V+
YvhXkD5vQvvG/I338PoR+iDb6ZTN+QbWf+b+sloPZhfyeJnrtyQrPztL71/R
62/oz1/uR526wOsp7NfAf6m949TP1Yr/K4r/IbUeTMf6F+vZHKUPWJ+q/cSx
yh9SLln2imR7Y/8iSOU3xn5FttK3zmmqXz4V93Mkj7Tmyv+aXqLzkWXKPmm7
qT/N1HnJoaOcT9HzjOKL9rLp+8RitR+E/U6s3/Mob2qh7P15BuHftF59HVCB
dmQ/9wqVjw3W+oTvobfUfiH7M/2q18MBXreFsn/fUxx/yY6Z9PvXanx3nad+
flJM4/PZBfl+UZay9/CDvJ+E+Ua8sV+yiTHVv1XslZ8XGfn7bBf08XtlB+0v
Ese6lT1TOZ7CP+T7psX0fkou+zPiJfgBS1i9SDwTqL7+OhqffkXEKzqeeCTp
/Sj4L/XvOPsn9g/wnn4/xvkfMPSfyrus/DyN/ZX84gTHA2DUh/FGfWQflxVv
XNx/6CGVh73jeb5i/sKewMhfyD/PWeuBJF6vYX0B/zLXS3o/iXio8ZmUy/kO
MOwHvaR8QtsLfLAfhvhg729jPxjxAvutsC/GE/YFRv4B/4J9yV4pjGF/9A96
Aoz9O/QPfNE+9fMYY/gT1mdG+6z39Zkf2UHp1SX1/Zizyn+Vvp/PI338uZDe
l6+k+Su0PwRqb/qhV9qvZkIm8b6nxi/rBNU/QvlTTzUeISr/+KeLfj9aaOV/
GL/j9KyP8wnodyHrs/y+v9ZnSTNU67PUsz8quP9yHO5pfYOeGPF9rhqfa8eo
/z6lDyk51M69Qo7/GE/MT9gX800+Q/R8Qr6P+SB/j9bxkta9iD/7GVN7B8j+
pz0cT2V93VR9G1R9A33W+aJ1ftND5+PSHod1exJ/pve/ZbEPFP9HVP/e1vNL
8hMK35ei2sP5SzbPV8JqP/RVjWV/XtPzI4DPpSt7ZBygdk/6KP8Yn8P6C/2R
cDjiw3bGZLcdVL6L0o90refU30TWM6p3J2P5CPqOfh+lsbTbGH0+hvln3gfA
eb26T/CExtAf83wXenSevhurMfJx6A/9jvNqjcl/8tn+8C9zPfS9tT75XuXX
8E/1vp3WW+T/aE8Wn+ym+jseY/3GekU+20PfnIzpO3VfpYmO5zTf9HkI+aPO
f2T/Guv8Rv7+e7GZf17S+Qn4UPvJatz0elA+alg4SO+vYPxwnkD1qXymYSaP
F87riKf2B5o3OL+7wHoOjPc4X5HwstZjaa5hqn/NL9D8SFV6f99Z+q49zmPy
iG8jZa845W8j1Py7q/TgpIp/mWq8Y9zUj9apxG+7m75fqeJFfZXv980l/xmu
5scXCVY81fpsnPdPQr7j4vyf/D2d8xVgsg/mD+6vQD/0eSAwlfcqe2fx+GG/
EPkDMOmBXi/DP4CR70B/sB6n8mp9PEhj9Me8/4L19hnrftYZ7o95HwTrnyxr
vzjLWp8i3yhV9VxiPQDGesXO16n9yXweb+BbPhqvaznWfoLK96ZC/ylenXtH
Y4wX2T+dx4P8N5P1E/kx1Y/5nWCdz2WzXmF9A2znj8CYf4gvqA8Y9kR8pHbB
7yzPZ2DYE/EReifXV0E/8n4RMN4jP4T+0u8aQ6/N/DnaOi/Hfh3stZ7jpXF+
OLxYzRed78rfb+ayf1C5S6y3UjcmaT2GPstmumL/x8n2wfko/Y79hwyeL8g/
TD09yPPNxF4jHwvMD/gL5gPyM8wH+A/sQeVW8Hyk+vX8xHyFviKewj7QZ6xH
gM34H8n+ivagF4hfwIhf8jFQ2w/nB+Z81RjnDRgfYPgHypv+V2bdTyoz4//n
+j6gHLd4r3FfLc2r8vUfv6TxGqLsOyCT+l9X5yuy2sZ6/Cm/9Zr7Md+UWHxK
iMfvdJ8q7aqKb7kXpR7UHknn3zMaqvtSs/R9FNn+NKXfpzJ5Psn6Dqr7LA31
fpWhp/vOyPKPpen9KMRf2X7MRdY74rmA2m9kxvdN4dofZPuZ+j5NksqPJP40
Ta7r044Xqrg3mspdp/VO38VKf7aUiGVSzn4U7weKlxaR34UeJv300n3RqTPU
eX1H5W+PbTPOb9svUvdXr+r9CPl7qYrPdU5Q+Q1FpN9z91D7FYXqXCVK7eeo
+zUNVXwt1esl2a/ren0i9y2OF5H/3FDncSf0ekOef36m+NZW55EVOh+U4/mw
2o9puJHaqaPuP7TOIx2qp9bDHnW+G4F8Rd1f3aj87b0s+r6iiOO3LNdO7/dI
2id1PJO/t/KY9z8+UecZQ89T/1op/Wip9kdz9P0d6L9s7xN1f2qwFb+mK/7z
1H7MBL2fIO15VO/3yccA1V6M0qdt+j6arKe1Ws/H5JJfTtPrD9mvD/V6Enqy
fXZw8jMFk/m8atre6q906zGCz6vuG5zQ7caZLnzfIGFb5YK1MbVY/6LVfKrx
77EL6rynz5Phf8Ebco90PegUW5NWT4je6hUtJ3Z6KXI/4nWFqFVU7cSudrkO
mo8VYkLmQ/GXF8Y6zt/rHtvsIY+YMvrmLxGjj/B++GNVti9wtZ3mIHoV4myn
rNietfs4Gh4ZdWLE+hJRq03wa+tvLBXfVKvcq1Neiah0qHr9Qa8sEa6oh24H
9/eJacvj5tV4c6tYmv5VUfUUtyirG7ziuflHxeozJSHPnXOLzCfe8syud1SM
m3PMV1FF3xfA/L07Lfj9iAp9v6Np8/Lwe8OjRNmoWwnTh/z5vse2/Paf/L5Q
n4+dvFJ5Z/UfdojbqyMqhjfR52PIH8q2V9t8KGon69O4hpX/0XHVXhHasV7k
z159XyMkutOXsz/R5y3Bv3fYETrAI27cX7Nqs4MHOf9se6XBzBH/1fnl5tA7
34be2c3ry394i2e2/vCAWH22ZWHj48WiZ5thPfOcq8Sa5JrfJNf06+ewje2G
bVzO+1GzNq2dcmvBYdEgbNUDizro+wDd1/29oMMmHc/gH6uUf2zwTP4/x3/c
YsGKkw/9+rFTpO9tXHNCS30fYEXHpg9MjdX3ARp8cb3yqDMe4bmTMGTNlj1i
/Zy1zYs/ss//vWJk+6ojXx/9naga2+Lwki/0fYDKU4cvrrPUI6YviUzu3WK/
eGDApLr93veI/nc/6PHEqAMcbzYdqhoWN+MLceVG12GNG5WK4kvzmh1YuoD3
67bfvVw2YNlM4fSMWVCxtFTcCn6p96HJc0SfSvMvnVrhfz98ePatFnPEI1+X
fNi6e5mYUfCQs61rihiwd9OD5Q+UiSf7f+vefmQax9/H7w/vFnpmrFjzSPO3
Ri4rEx1GvjziaNYHov368PxxnjJxKDU04qmVE0RBUn5lb8QVkTk3aGzP42+J
/iExWw43uiI2vhr4xxi+LzDspSaJb+QOEO8XjXF+sO6KSF/Rdkun14YJ14b4
rf96vFxsrX653PHp6yJh9Z5mFYnlIia/zp03w4Ro27V4TN7z5eLjHXvqfvTs
q3yfoPb91/O6ulqIUQnTU9/dXy7GbNryZHpEZ9F1y4i5q3pfFZ77s1Pzk58V
gzvc6/p1v6uiTmirf5aVNhc9YneVrmrkFZ2WdJj+oNgtYufMr3k2Q8fH0F8T
vpqyzy3aDVp3t8fRo+KnshuLfvvFvz5Z43kgqle8aFc8a83cOW7xZJugnZta
pog1Q3+91mG+WxQ8L+Yl1tb3C3aWPDV4Rt4tx4YHX37jkB/n9mwl5s+75SB/
qBBvNmySeuQ3l+P2htNDB/jxsiq93r6V5XLI4mkV4sCCT9/LXRbl6De9Xftn
/Lhy2K9Ji8OjHDjf61AY0vvOsNGOF/qMyw7oS/j47Un7G/VxdIudGhJ4v6G/
75dGA0c7cL62sGTQga23H3aEV0y6HPg+onjowsJKfRzhmbcnBt6HlM559F6l
vzniK9rUvBniFePC1/VdVaH/P9KQtVE1VmfOFe1iwtvGhOv7BNXLXxx7zq+3
b3yR1aRRq1piW8GL2WP8/V3W4fSQOx1vO073WxaS4tfPRS1KWvSomut4vN7y
iz38/V2Y8VTxT08fcwzamvdTnl9Pqw0dmj9icqwj3dGu/Gl/f4OfmbV3ZkyU
4+LMF30BPd2WEB5ZveU0R891yW0D/Rtbo3GVm2+PdmD9E7X4s2453i3Kf31i
q5rPddsfz7m40SdyHj479uO4b8XIj54vnDWyWMR8ued806Frld7o+wLIn3cU
vhtZ9sM6kXd+zke9ovT9gUNd2qd4XX++P9B41qmx4S/E8fl+Ys24cN/hR/k+
Se78C/uevlXswPl+WMTsc/2b7CV/yKgQberuSS3fs8BRt8HSJSNvusXI5ScG
ngxNFr16H2he2W/fyxuia9YIqi1em/dd3qNfXxUzVs7zVenwqHhi6+Hm2/z2
Dc6Z/thb43MdM+adGNjF395gT8nIOcnFjnPj9hbl+u0bVnfqc751sY4hLVr3
W+5vf2hweGz/Gnsd418YMT9g33mFoc3Xi2mOxxv1/neAz8KwW3f/Hr/A0e10
06WDlrnFs/Mbhaw87RTbv5z6XsBftpdfdG3x+1PcGtHbN+rP52fkb9Udf/yr
75Scj9xiYpu87l3mp4jT38fWjx/mFrVXvn5kwssukfrO9H2B72uk1r8X7f++
cUa63J+m+n1dEvfNq/vNRL3eqbG0wYXO/vV40oiVdx4uTBFbrrf/qdq7btH5
2le11h1NEd0/73itqj+e1HrZm9xgV4r4Hw+4cP4=
    "], {{{}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Thickness[Large], Opacity[1], CapForm["Butt"], 
         LineBox[CompressedData["
1:eJwNw4c2lgEAANDP8QBWZCaksndkS7LXb5RRNtl7lrJlZD2xe8+5aZOroZWw
IAjOvA0PgisffPTeJ/O8McdvDlntpbF+sNRBUx3wten+Mc0Eiy0x1wJfWGuN
FWb50Wzz7bfc985aaZVx7vnWr75z31euu+mGMZa57Y5bZrproUVm+MZk60yx
3jl/+slGG2zysxE22+IX22w10g47bbfbLqPsNWSPfR545F+jnXfBYUf85YnH
vnTRJUf97m/PPDXeZVf84ZiHXnhuoquuOe6kEyY57YxT/vPa/975DIHXLUY=

          "]]},
        "0"],
       Annotation[#, 0, "Tooltip"]& ], {}, {}}}]},
  AspectRatio->1,
  BaseStyle->{FontWeight -> "Bold", FontSize -> 16},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     SubscriptBox["p", "g"], TraditionalForm], 
    FormBox[
     SubscriptBox["p", "b"], TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic},
  PlotRange->{{0.5, 1}, {0, 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6524225254067*^9, 3.6535388490439262`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fig .7", "Section",
 CellChangeTimes->{{3.65242257456188*^9, 3.652422582588093*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f34", "=", 
      RowBox[{"Numerator", "@", 
       RowBox[{"Together", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"gainAM3x4", "-", 
           RowBox[{"(", 
            RowBox[{"gainAM3x4", "/.", 
             RowBox[{"{", 
              RowBox[{"C", "\[Rule]", "0"}], "}"}]}], ")"}]}], ")"}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["p", "g"], "\[Rule]", "1"}], ",", 
           RowBox[{
            SubscriptBox["p", "b"], "\[Rule]", "0"}], ",", 
           RowBox[{
            SubscriptBox["p", "A"], "\[Rule]", "0.5"}], ",", 
           RowBox[{"C", "\[Rule]", "Cx"}]}], "}"}]}], "]"}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"f45", "=", 
      RowBox[{"Numerator", "@", 
       RowBox[{"Together", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"gainAM4x5", "-", 
           RowBox[{"(", 
            RowBox[{"gainAM4x5", "/.", 
             RowBox[{"{", 
              RowBox[{"C", "\[Rule]", "0"}], "}"}]}], ")"}]}], ")"}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["p", "g"], "\[Rule]", "1"}], ",", 
           RowBox[{
            SubscriptBox["p", "b"], "\[Rule]", "0"}], ",", 
           RowBox[{
            SubscriptBox["p", "A"], "\[Rule]", "0.5"}], ",", 
           RowBox[{"C", "\[Rule]", "Cx"}]}], "}"}]}], "]"}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ci", "=", "0.0001"}], ",", 
     RowBox[{"ce", "=", 
      RowBox[{"1", "-", "0.008"}]}], ",", "sol34", ",", "sol35", ",", 
     "sol45"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sol34", "=", 
     RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"f34", "/.", 
             RowBox[{"{", 
              RowBox[{"\[Gamma]", "\[Rule]", 
               RowBox[{"\[Gamma]", "[", "Cx", "]"}]}], "}"}]}], ",", "Cx"}], 
           "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"\[Gamma]", "[", "ci", "]"}], "\[Equal]", 
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "/.", 
            RowBox[{"FindRoot", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"f34", "\[Equal]", "0"}], "/.", 
               RowBox[{"{", 
                RowBox[{"Cx", "\[Rule]", "ci"}], "}"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"\[Gamma]", ",", "0.5"}], "}"}]}], "]"}]}], ")"}]}]}], 
        "}"}], ",", "\[Gamma]", ",", 
       RowBox[{"{", 
        RowBox[{"Cx", ",", "ci", ",", "1"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"sol45", "=", 
     RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"f45", "/.", 
             RowBox[{"{", 
              RowBox[{"\[Gamma]", "\[Rule]", 
               RowBox[{"\[Gamma]", "[", "Cx", "]"}]}], "}"}]}], ",", "Cx"}], 
           "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"\[Gamma]", "[", "ci", "]"}], "\[Equal]", 
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "/.", 
            RowBox[{"FindRoot", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"f45", "\[Equal]", "0"}], "/.", 
               RowBox[{"{", 
                RowBox[{"Cx", "\[Rule]", "ci"}], "}"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"\[Gamma]", ",", "0.5"}], "}"}]}], "]"}]}], ")"}]}]}], 
        "}"}], ",", "\[Gamma]", ",", 
       RowBox[{"{", 
        RowBox[{"Cx", ",", "ci", ",", "1"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"sol34", "[", "Cx", "]"}], ",", 
        RowBox[{
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{"Evaluate", "[", 
            RowBox[{"eq34", "/.", 
             RowBox[{"C", "\[Rule]", "Cx"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"\[Gamma]", ",", "0.2"}], "}"}]}], "]"}], 
         "\[LeftDoubleBracket]", 
         RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{"sol45", "[", "Cx", "]"}], ",", 
        RowBox[{
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{"Evaluate", "[", 
            RowBox[{"eq45", "/.", 
             RowBox[{"C", "\[Rule]", "Cx"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"\[Gamma]", ",", "0.4"}], "}"}]}], "]"}], 
         "\[LeftDoubleBracket]", 
         RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Cx", ",", "ci", ",", "ce"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"BaseStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Directive", "[", 
          RowBox[{"Blue", ",", "Thick"}], "]"}], ",", 
         RowBox[{"Directive", "[", 
          RowBox[{"Blue", ",", "Thick", ",", "Dashed"}], "]"}], ",", 
         RowBox[{"Directive", "[", 
          RowBox[{"Red", ",", "Thick", ",", "Dotted"}], "]"}], ",", 
         RowBox[{"Directive", "[", 
          RowBox[{"Red", ",", "Thick", ",", "DotDashed"}], "]"}]}], "}"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ToExpression", "[", 
          RowBox[{"\"\<C\>\"", ",", "TeXForm"}], "]"}], ",", "\"\<\>\""}], 
        "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"LineLegend", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "\"\<B(3,4) \!\(\*SubscriptBox[\(\[Gamma]\), \(cw\)]\)\>\"", ",", 
             "\"\<B(3,4) \!\(\*SubscriptBox[\(\[Gamma]\), \(cs\)]\)\>\"", 
             ",", "\"\<B(4,5) \!\(\*SubscriptBox[\(\[Gamma]\), \(cw\)]\)\>\"",
              ",", "\"\<B(4,5) \!\(\*SubscriptBox[\(\[Gamma]\), \
\(cs\)]\)\>\""}], "}"}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"30", ",", "10"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Bold", ",", "15"}], "}"}]}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"Top", ",", "Center"}], "}"}]}], "]"}]}]}], "]"}]}]}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindRoot", "::", "lstol"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The line search decreased the step size to within \
tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find \
a sufficient decrease in the merit function. You may need more than \
\[NoBreak]\\!\\(MachinePrecision\\)\[NoBreak] digits of working precision to \
meet these tolerances. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/FindRoot/lstol\\\", ButtonNote -> \
\\\"FindRoot::lstol\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.652422586606303*^9, 3.6535388498915863`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NDSolveValue", "::", "ndsz"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"At \[NoBreak]\\!\\(Cx\\)\[NoBreak] == \
\[NoBreak]\\!\\(0.9972011638492893`\\)\[NoBreak], step size is effectively \
zero; singularity or stiff system suspected. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/NDSolveValue/ndsz\\\", ButtonNote -> \
\\\"NDSolveValue::ndsz\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.652422586606303*^9, 3.6535388499282303`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindRoot", "::", "lstol"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The line search decreased the step size to within \
tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find \
a sufficient decrease in the merit function. You may need more than \
\[NoBreak]\\!\\(MachinePrecision\\)\[NoBreak] digits of working precision to \
meet these tolerances. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/FindRoot/lstol\\\", ButtonNote -> \
\\\"FindRoot::lstol\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.652422586606303*^9, 3.653538849957987*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NDSolveValue", "::", "ndsz"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"At \[NoBreak]\\!\\(Cx\\)\[NoBreak] == \
\[NoBreak]\\!\\(0.9977912141677929`\\)\[NoBreak], step size is effectively \
zero; singularity or stiff system suspected. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/NDSolveValue/ndsz\\\", ButtonNote -> \
\\\"NDSolveValue::ndsz\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.652422586606303*^9, 3.6535388502736588`*^9}],

Cell[BoxData[
 TagBox[
  GraphicsBox[{InsetBox[
     GraphicsBox[{{{}, {}, 
        {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], 
         LineBox[CompressedData["
1:eJwVkHlUzAsAhVtIMk+vRVKISKQslYRXN0uR0iaSSkWRpNJGKNs0LYjI0ikp
M8mZRujVhGmbaRpJaK+ZkWmW9mZ+DyGe5fX+uOee7497vnPuwv1RXqEqSkpK
+ybzf/M3LHpsb2uAJPmgYWaDDJpfRYXDSeuRtEqFS5rk7CvCV2KbrbCy8wy+
yJWhy4/fF3B9F17G4WRavQxfN+4ZzWWHYKgk2eQ8Wwb1ilv/PN8TB0qrZ1Bs
tQxXI9fGbl9MhrKbrf+OChm8XVKttTWyEZsYry2iyTAe+vnynXYaHJtcL+Wf
lcHjeEmPcKQU8YaBVycCZGANJMmZh8rRSP10et0GGRSm00t2NjyDW01JZ4Gu
DPQsPW/HFzUYtBgMeUZIwUmr93c04CDPgZj2nCeFxHf/z7+4XExfViYIvyPF
VnB0Ah1ewHxz3JX+eClYj3aqL//4EvkWmgUjzlLEWd+PWZjQjATLfSS2kRRB
20VNEfI3+LXKp2j3ZwlKP9OUVr9ugdv686tJPAncWp531ZHacLmm3IVxW4KE
6OFck0PtmN6O1pkHJbD1ndFjzerAugan9B5LCeY2/+HuO9GJTZssZxcrS5A2
ZVmFl0c3rFLnnLnfJIbei8W7g7N6YKW0SaX0hhjm7usGtsj5WHqGb39wrxhC
o43ytk1CHFf96WkxXwzGyWUrE869g8Ysn1W6sj5MzTULUgh68WetoPfdvT6c
dSQ1n5onQtEP89TaA33YnhfdzTfvg13cBmbRoj7cPnHIIainD5R4rUAJU4Sv
OW+cjp0Qw7CZcopjJoLBfA53zESCoxSGzu1L75HutDLZrkUCOvU3K3KkFxrl
pE79KCmCU41+p7j2wp2cQN1nKMMTvnFjcM47FOV4aK6skuF8y4BAZ0SIrTtp
zA7ffjzwbXv/YY0QD6PInbIpA+ieFnTUJUyAxa0dWWdoA4jIpJu+v8NH4I0n
DWTPwckfk3LzKnpQkv/rpu6nQWyjL8hyetuNLa4N1MSsIdxVnatlL+pCob/+
Ume7YQQOZ5a1NHZCs0zoTO0dxs0H8xopTzqwMXy59NDFEbDWb2u3CW9HHW+8
UtlmFHrrLe6Fz2iDR9gKsyWdo7Cy/aRRSGsBLWJcp+LcGMjHN+8YGHmN6Uyz
3DfGcjgkn6gq298EFlUQUF0nB5msNmQex8OP7HpOeL0coWcO+IuDebCnMEz1
eXLoVnktz3DngROW/CHmlRz+5btynprx0GRhnLK0S44TZfIJSl8DeioPM66P
ypHuPbNI6NyAL68mvh/WU4C7pMunX5uLVeN6t/UiFFiTwlB8SWSDcj/e9Gak
AoWJpIa7oWy829PBnHVMAVL0rVfrPNlIq87q1E1QYFB8TXXjUjbEFJKOzlkF
vniJfHI663BtjkqmZrYC7dZNPn4WdRi3l19Qr1IgRisj621BNbZ/cNFJq1Hg
22E7K7W4ahRQ6femsRUoXa1mpb+1Gq7qYWw1ngJuDtqrX49VoahV8mtKiwLD
FSUhsTZV2B3Sk6gsUyBlhk1GDOc5KtPro77PIKDdQfjNYVWio/3fIO5MAuxl
Tco+FyrxcZ61V6YWgZe1LS57XSqxooxmbTybAOfSYN4jARM0Qco3Z2MCMVLh
QMqXClxbvu1Cju3knm/DCzAuR8Tr5pu2oQS+zxW4qjs9RsbsqWkqYQQaE8/T
a6c+RnGwXWJzOIFZkQF7XTMeQfL5oV9QNAFJnZPoW0opfOdfWZB2ioCANTx6
JJ4BpyhPencWgVSpywjb8gFCnqXnFmYTCGVfXqFfXIxzqpxLR24RuPFmbVex
QTGqbllG/c4jMKDVfPbg7yJY1elYmz4g4MevHFOppcJDw9XkA53AAnOmOtec
ikhvsh7r4aTP03ZbQc490IfGJ9z+JhA9y598LboQjZYWI/pMAgyu2rw8QQH6
T4cKJU8J5BoWOhVvLoDKizvNDBYBozGjI94+d7FAq6s6oYbAYNn95DUm+fgP
F/n6tQ==
          "]]}, 
        {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], 
         Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVj3k81AkDh7FqJa3XsuiQIyJCi0QxX9M6ImnQliuJLJUcxZSEhEnvW+TI
EbassZU7ZShHzDhyNo5hZhSSCDvzQ0R21fb+8Xye/57P51H1DnLyFRMRETnz
jf+bt29bOclkEyqDQuRyVXmQXhrJm4rci9xM6nifMg9pSUMdb41tcJzJz5Tc
ysOAO2/0eOqvOPWyvvTiJh6WyC4z2Y2nsLFtJpEiy4NEZcbsc5dQPFFLUVkV
5+F24J4LdupxYEnN0cgfuDhy8LrRj5JpsG+WcLxYysWC7+Kt3D46tpv10Ur0
uaBcLOIOTZeiw0RcN7RqEDUTkQKG31NkfLd+9A0GIdRcV+Tc/AzWkj69JrUD
KEyWP2LVWg+/dLfdyRgAM4HlYbWJCeWD1SkJDA7GXL1XzZqaQLMyvblBjwMb
MGVPWLRCz9Er6fuSftSUOUvozLfBUGlJYKPcj1CjP8+rUjshsbz5JjmrD152
I+0Bgm7sF4kiKHJ9KF2ki/zcxYbRnR+XvK/1woH9fKBBqhdvInY5ly/3gBo8
la3h14eU/QZb+072wMR1Pdeoph8vk6Gzs5ONLZ0bDrsuc3C0IIt8CGwkiO+o
dKIMQkvLx9nT7hXkW9WPnkzmwpvlp+ap1Y2dh00nLAU8qNxNbX4904khZbKg
d/8Qiq2mXyg86UDx5R361JjXeBwZxGLeaseabG0vIf8N1og8Oufm0IarVlKd
EUojaK3Wi9fa9hJ2OcGDvJ2jKIy2eExabUHmJT8LL+4oyrJnOpTqm7GU1W0d
cuktHBxy1ELSmrBpK7PpL40xdMpqs0KcWLhhrR9lzh7D/GWSU4QCE5JPpTiK
Qe8wHutKJX1swOE4ar7n5nHIXKtN1A15gYIsirR+7ThW73n8pq5TBxtnOqPf
9T2qqqWX2J+eoyQojjMuPoGUEMmLw3erod7TnxxNn4B1ZcWNkmAGTtx53Bzn
OAkZ7oItc9tTFP3+JV3u4ySWN7/qKJWsgKV9c3548gdIdSusvF9XjjwPRS1b
8yk0uEWxPYeLIF0xZJv/Zgraa4srF396CPIZnXd+/5vGVTG64XFtOhpaFqpE
jWfACH947lL8fVD89bS3c2YQ5iLPsH94F/SABdnKmL+wd+1ScS0pDesY2tnd
agLkH2pxMMm5hZp8/vG6BgGsvpx9kKQch3/SWMwzLAHK+SrMfZ9jQaIVayq2
CCD9zj1ctC8WTP+oufMdAriz5tbyabFo11WL1xoQQNQ09UEjcQ3cqtPFqTMC
uJjuLohoicGnjuWV0/JCuF3/eMD+P9EwqXt7QmGjEH+opFCOtUfhcml7U9Nm
IZ6EJdy/GxeF1ds5icqqQpQND3W1f46E+FELNY6OECNzdzwHJq5AdvS6rQVZ
iIiusAusjsvYtSCfKR8gBMgVlo5MKmh/hmmmBwqxpHHMfPY6Fa9d+hk/hQjh
HMpnNB+iIqEumSNHFYI1/WJSjh+GtzQpWdmrQiSPyIXZLoYiZaNYonSaEHe2
T+oYG1/AAkkQK1ErxA/pSYOKrUGwmzsom1AvBNnhtHmtVxDu5xf+8X2jEF73
usX5K4Gwl/BvXNsiRKoX7xFtVyAKesa+iLOFOGumr1+RF4Cjp7jhouPf/pye
5zVnn0bVDVbQynoCNXk7fm+b90F/399eTT8QGG5i3e5K8cG8kpFTogwBQ+6A
UoyhD/Qq6EZqCgSqLM/OrlC9QefHf7ZVI2DFaSv+de1JpOgciM0yIbDNTJut
m+SB8rCroT77CBw2LLynPuGOrhfVvrokAnl65ztzSe6QOLLjQOMvBEwW83xV
F1wRfUVyw5QDgazh39yqQo4hoKsz3cSXgO/sHLKeOeG/CmsSxPwJtO4ldolp
O+HBSfPwzjMEAnoDIrfkOGJsscTdK5hAPyuMdCGeAtetSSoJEQQq9vZmqvLt
QfVvlXGKIqBfEPNlYOAg0iq+im2JIXCT3qW9c9AObOvg92U0AkqPDS25Ywdg
HeRYOJhMQGHdV09jTSucenYjOy+NgCT2+E+SLRHzHfPm2QwC3hEZs7Fev6A2
wyDoaw6BsqFH24sekWHYIGuk+ZDAnnNfY+Z5ZqBI2mvMFRKw+XTPL52yD4FH
4uRrSr71EtupnFemKPywsOzwhAAj3+BT1gdjvDTQnVZkENAVLVv1uLYb76/4
Do1VEzAy1bhtrGEEsdbczuIaAmyOgaJtjwFUZAbqqPUEzhtHF1fTfsa/a7RD
9Q==
          "]]}, 
        {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
         Dashing[{0, Small}], LineBox[CompressedData["
1:eJwV1Hk41AsXB3C5LVolZX0ruaEaJSVJ9OWmrEWolxtFiOQOIUkSRSlbRJQk
10hZylLJGsZuYhhjF4aZsc38WixlyTvvH+c5z+c55zl/nXO2XXA3dxIWEhIK
FMT/c9fhP3OOaMhAeFr212PhEYjO9KeM3tSEG+Eb3y5wbFRP46C6PpR8X/+O
E5ge7eDgHG8GIUn1XgOB2892Ddg+Oo3Z9m25M0tG0Ktges4y6m/UhWg2UQRm
EVU9RmHnoaBmMmcm8Iyu1XhihSNURw9NpwuNYFZRfFc8nGHd4DtuLvDv1U0u
MaWX8GXL5ZcLi1wsbT/KCS0kQ3GParO5wCLv478WWXnDVrG0eW6Bi4fkg15G
24NxafsnUvxPLiyN76ltWBWLjf99a5DD42LSaSoiiUFBzPF8kUgmF2bXMjt7
xt7AY+akiGMZF8Wcm7wPzu/w1WPWaH06F3yllZkW1YXwtnW4LBLBRUa0hOWx
2jIY+J/QX+7NRWUo1eaYTCX2v5qhSltxwbK+sKBVVYW24j4Z+mEu9FEpfl6n
FslUd8uncoL5by1ESN/rkSjvEKcgzIW32kvPbT40yJr8+FE9zIGdUX+DG68J
dvMTWqtrOXgzRRFS/UzHxRIVpzdpHJykF7WXr2kFLWqDtFcIBz4eo4kKzgyc
1PLcr2XPgYb16k614jbclz3rcFKLg//Q1ppa/2SifJ3xqUgpDkKX7nxvbtaB
zTPa6jpf2ZCo3X7GProTG/MYGlL1bCibHuLo8brAkBZi9z1jo2erLq/1rx5o
vCW5+LuzkeW3U8UnqBdSg0lnjx5lY1niLjt+dx/WS/OVJcXYCDy2hnZjcz/C
xYLc5vqHYfTMo6NLeQCNca8nQrOHkeDrrGPXOQDb2dS5Ra9hzDxpOn7FdxBp
9XujyYeHIbOlsmpCgQWPlIoV2bNDuH9cJUCbzsJt7mYZ3YIhrHq3hinlPoSN
xn16D72HYBrsk3pOdhh2O5ZoJCsNIe2JmahKyTCIkZUnprpZ0LegfGizZkOR
2nuz4AEL2e7BzOGlHIyaelw8uJuF7S1t0bcoHNDkN7vJNQ/ifFxudfApLgxJ
2oEP7AaR+fz3440/uOjVsTWaJAagZ1Kdej16BH7ykXJ21waQYiO1w1B7FPKM
g4qaTf0QzesxTO0bhbFsVUnZv1+g60oacg4bQ4vfl/fr1ftQXjNZsER9HG9v
pB5JTOqBmcueXYrMccgxr4hFcLtgH8h06uwYxxWrVWIx/V3wTPBPedA9jrLW
moHoji7E1TVIEf3jgE9UZ1BtF7p3OK/4ODYO8q96P/n0LjiNJg8bCk2gNGTD
JnunLvi5iiX/Q5rAOSfN0PS+TlDcJsXfB01ARCrcuaW4Aw3HxPwOBU8g20Zz
ajqvA8SWPQOldyfAWGtHlsjogGaLc1ZN2ASqCi+vOJrQAfqBHr3OuAks9t9c
POXdgYXfFVfnXk/AsEHmhA6pA2eiozp0WwV1Upj8jth2rPywK7FJnodr5vPL
DMwEe3j1wJnjCjykWrCv9h1jwueAjliZEg/kncnfXQ8zMfzu9L1sZR6E+h1H
/1EU9OcHeoWr85Crfzprw3wbfHLbjY2MeJgNkyY3pbWBlXV7vvoKD6tMmrdW
fmfgiVtEgbY3D3eCc630uAyYKSd4vvfhoWrgtGZpDwOlmdkjlBs8uO7rro6p
YiAho7PtTggP+X4hyY1xgjt6tSdb9wkPLKsvOpfUGShO7bYtLeehxZyhMe3e
ivlYaqUrlYeATHWFLRdaceRulpJUDQ91aUlihyxbUekS8M2zkYd9yylJ+hqt
aNgtH7KjnQdlx1O21Yst6Cy4lPVonAfPNA/RfeEtmG78OXtJgo8/fGVbtJ/S
oVE6eF5Smo+Jkl3rnj+gw+9NQ1WVLB82K8MpfD86Fh4+i9y6jY/R29QAu7N0
LD2jI88k8SF866ZFsCwd4gP3DHV0+fjTQZhPVm3G3kmJBAk3Pq6XpzscXPMZ
d19eVXpM5iMhYGHv+nEaeq3aPmy6wodp/FOtunoaQkujmRt9+JiKYdsw79Iw
eHeNuHggH+to1uxzi42IkRaOFI3lC/5aGGvFWAMmj/DuiJTwoWJm5u1BqYPR
N2Px0DI+Ppkb7O0KqMOL1Ix/V1QI5qlaespa18FExKVieQ0fTDvtJtLaOqS1
sH4vpfNRd51M8/GqxRnHzutLhvlYuTYxI0KjBgX3qe6zqwlM09LyglOpaGPM
2VWtIxCQ/mm+wYuK75vVzCPFCFD2u7p3H6ViTx5FTV6SQE2V+KTFUCUo3SG/
DOUJ5GwyG8jcWokYksGdJxoE/pIifaFGlMPtM+2xhhOBZhqpcMy/CA8kl4UK
uxAozdlesUm0COn22tdprgTml/39rv5FIVhT2WftPAhEqzYo0Co/wnpLlFzo
DQL2NrGymksKcNz9VEZHNAHzOHZMgXM+HAvvJ6bEEnj8yCPC/Xsegv6oDL8c
T2Bgm0Rjjn8eSuL3uS8+I9AnR37VHJWL/eXiakqvCHh733qx3P4tzFaZKHzL
IHD407ShuPsbkC2DJYqzCZwuKhpU889Gxsjkz5P5BFLovr4FjzJRt2/3mNQH
AirmhI3U8wyw/Z16WB8JhLxTao5Ifw3h2iRaVjEB6aBrjpI5ryAn1l7qU0bA
Qu/idH5BOv4HL8kUdA==
          "]]}, 
        {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
         Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJwVkWs4lAkAhWWVIXKZki5KIrmUDZVuTjdEHoaRNVuKNEuyho2JEsmdRYMu
VnSZKaUIRTSyDJkKJQbDYMYlkub7SlrtemrX/jjP+fk+5z2rjrLcmYoKCgqH
ZvN/92xbXWprsxT02nyrAnUpNKalN8bPbgW/Rn/rFjUpcjIlzYObHKCv7G4o
UpWi62CPzDv7AKhWZVwVihTTu7wm8uqPgWk7z+WkohSUissfn3iFIbfL2GXX
9AAuBG8+6WQYD+3ry94KZQPw2J9kra2aA5lnVXn0wwFMMb+k53fwUElK7fmu
A6CduieWvC+BTPdl78WP/eCPnpVX+j/Cc7ntkA+nH4Sxyj36s2qIymK4MuN+
FHF0POyEtXgTG8je09AHQXLDIbulAkhS+bRWeh+GGEe/bW9shJ2FrWn3sAQO
EFCP7BTi9md/Z61ICfgP6BSzyRcYdmQ2FSpKEGZ9+7dV7BbILF/aZHJ64eMk
fRkkfwWL0HotG/1elHzhKWxobYNZpUqc380euLQ96apTa4eJQq32JtMesEPG
84z8O0D3qlzUwRPDhjFfbM0XQUuclZG/QozlLequjK+dWB5hqxFa0I1kJZMK
d1o3NnbraFI0u6EjNPT05YihpMGwb0/qgrnrltG98h6s+hqclPixE5KVu+Tt
uyXIMTQr0/PqxP3TJhbs2D7MsSp87d0kwtw8Ux+id9ZbYBUOGIpwzk6t5Yye
FHSTMwFmKR1wuhrS3WMug+/nPkuavB1XIvx3+ohlSFfQ8CXQjuncV/ahEYMg
ngw3f8t9g6UrBI0fjIZQujnsaMJgG1LsLaJ3tA3hvkejGc+4DaqP1Dp1WcM4
vjzsfM/EK7jGs7mHl41g4I/avmafVtzKpWlY1IwgkV7yUD7aDAc6r1LEeItE
7sez0ydeopgV3zmiNAqK7pj6buFzGL4RcWJ4o4hIrXH7ulGIIxfLnsW7jWHA
NepxReQz3Cv4fmnh5zEs8Lcf4bU3YK/zM24k5x2iFfTCm8wFuHFId63jjnE0
r1xXZXWoDhrlEkdu/ziYqdLsAqen2BVoNuyf9h4P3/+8Mj+tGnVNU4/nbJrA
JlJEeEkqQAtYb7qmc2L2b8Pna4LLwQuaolbEfkBYdHRjQ1IxVCpN814ZyDH5
4dfqRQO3wef2ej+tk+OUx+63J/Ov48cpnSs6QQTY9OoHA9wcJN4ON74UTGDe
CxdP1qkc9HmJKheFEggIXzK+aH8Okp9yOheyCfiFqLNuTWZjMFGNSj1HYPiu
pnv77mxkLVHM0Mgh8G9RED1pjIMpW3kcpYaAcn9io2FSBpw+7acm1xIYsxRm
/mKdgevcopvK9bO81olI6WA6nCkB9fOaCChF3/WI2JGOW2+Gviu1EeBROfPd
p9PgeUwcOWeEQNQBoZzCTsHjlAbWP/NJZHsF5n+4GQ9Rx4xP4wIS1zozmh1c
4zGpZ+2eoUVC39StY2YmDuvLedYGi0noEVXyUM848HoT/nY0ILH3Uk/uA43z
yDLbF5drQ6LcLC0ha20MSsPPhfltI2HhNzjXIT0arX9WMdfZkth+zc24dfIs
KB4m++r3kKAlhFT9VBeFmChV9XEXErdiLEaKmKcR1NpyyYZJgjUPmjck4Uhd
PDdZMYBEmxGHecclHIW+OyJbAklsyD2+oEQQhqEvxQd9QkgwSmnrBcUnwViR
qZ98hkRIpPnqsAuhsGe5FXVzSBjUBb+2WHwCx6pT8m7kkDh1PUJboB+I2B8E
v5+4TCL/TsRMn/lx1Fy2ZP17lYR3QkuzxNkfVnVUa+M7JPpL91X7FfuBpups
9KmIRFobo7qg5SiCPeJ1+MUkAruolq8JXxS9m/rq8nB2TyF9u8d2Hzy3XPde
t5KE7n7ZeO7rw3gbxZQMVZFYNrl8j/I6bygK81vu80lYK8j1l3IOQl+r6ym7
loQ45q/H32cY+A9PYNn2
          "]]}}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      BaseStyle->{FontWeight -> "Bold", FontSize -> 20},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox["\"\"", TraditionalForm], None}, {
         FormBox["C", TraditionalForm], None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None},
      PlotLabel->None,
      PlotRange->{{0., 0.9919999797571428}, {0, 1}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {0, 0}},
      Ticks->{Automatic, Automatic}], Scaled[{0.5, 0.5}], Center, 
     Scaled[{1, 1}]], InsetBox[
     TemplateBox[{
      "\"B(3,4) \\!\\(\\*SubscriptBox[\\(\[Gamma]\\), \\(cw\\)]\\)\"",
       "\"B(3,4) \\!\\(\\*SubscriptBox[\\(\[Gamma]\\), \\(cs\\)]\\)\"",
       "\"B(4,5) \\!\\(\\*SubscriptBox[\\(\[Gamma]\\), \\(cw\\)]\\)\"",
       "\"B(4,5) \\!\\(\\*SubscriptBox[\\(\[Gamma]\\), \\(cs\\)]\\)\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 20, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 20, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.05499999999999999] -> 
                    Baseline)], #, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 20, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 20, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.05499999999999999] -> 
                    Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, {
              
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 20, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small}]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 20, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.05499999999999999] -> 
                    Baseline)], #3, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 20, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 20, 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.05499999999999999] -> 
                    Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontWeight -> Bold, FontSize -> 15, FontFamily -> "Arial"}, 
         Background -> Automatic, StripOnInput -> False], TraditionalForm]& ),
      
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "20"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "20"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "20"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "20"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"Bold", ",", "15"}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"30", ",", "10"}], "}"}]}]}], "]"}]& )], 
     Scaled[{0.5, 1.01}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->False,
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->{FontWeight -> "Bold", FontSize -> 20},
   DisplayFunction->Identity,
   Frame->False,
   FrameLabel->{{
      FormBox["\"\"", TraditionalForm], None}, {
      FormBox["C", TraditionalForm], None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None},
   PlotLabel->None,
   PlotRange->Automatic,
   PlotRangeClipping->False,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {0, 0}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{{{}, {}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Thickness[Large]], 
        Line[CompressedData["
1:eJwVkHlUzAsAhVtIMk+vRVKISKQslYRXN0uR0iaSSkWRpNJGKNs0LYjI0ikp
M8mZRujVhGmbaRpJaK+ZkWmW9mZ+DyGe5fX+uOee7497vnPuwv1RXqEqSkpK
+ybzf/M3LHpsb2uAJPmgYWaDDJpfRYXDSeuRtEqFS5rk7CvCV2KbrbCy8wy+
yJWhy4/fF3B9F17G4WRavQxfN+4ZzWWHYKgk2eQ8Wwb1ilv/PN8TB0qrZ1Bs
tQxXI9fGbl9MhrKbrf+OChm8XVKttTWyEZsYry2iyTAe+vnynXYaHJtcL+Wf
lcHjeEmPcKQU8YaBVycCZGANJMmZh8rRSP10et0GGRSm00t2NjyDW01JZ4Gu
DPQsPW/HFzUYtBgMeUZIwUmr93c04CDPgZj2nCeFxHf/z7+4XExfViYIvyPF
VnB0Ah1ewHxz3JX+eClYj3aqL//4EvkWmgUjzlLEWd+PWZjQjATLfSS2kRRB
20VNEfI3+LXKp2j3ZwlKP9OUVr9ugdv686tJPAncWp531ZHacLmm3IVxW4KE
6OFck0PtmN6O1pkHJbD1ndFjzerAugan9B5LCeY2/+HuO9GJTZssZxcrS5A2
ZVmFl0c3rFLnnLnfJIbei8W7g7N6YKW0SaX0hhjm7usGtsj5WHqGb39wrxhC
o43ytk1CHFf96WkxXwzGyWUrE869g8Ysn1W6sj5MzTULUgh68WetoPfdvT6c
dSQ1n5onQtEP89TaA33YnhfdzTfvg13cBmbRoj7cPnHIIainD5R4rUAJU4Sv
OW+cjp0Qw7CZcopjJoLBfA53zESCoxSGzu1L75HutDLZrkUCOvU3K3KkFxrl
pE79KCmCU41+p7j2wp2cQN1nKMMTvnFjcM47FOV4aK6skuF8y4BAZ0SIrTtp
zA7ffjzwbXv/YY0QD6PInbIpA+ieFnTUJUyAxa0dWWdoA4jIpJu+v8NH4I0n
DWTPwckfk3LzKnpQkv/rpu6nQWyjL8hyetuNLa4N1MSsIdxVnatlL+pCob/+
Ume7YQQOZ5a1NHZCs0zoTO0dxs0H8xopTzqwMXy59NDFEbDWb2u3CW9HHW+8
UtlmFHrrLe6Fz2iDR9gKsyWdo7Cy/aRRSGsBLWJcp+LcGMjHN+8YGHmN6Uyz
3DfGcjgkn6gq298EFlUQUF0nB5msNmQex8OP7HpOeL0coWcO+IuDebCnMEz1
eXLoVnktz3DngROW/CHmlRz+5btynprx0GRhnLK0S44TZfIJSl8DeioPM66P
ypHuPbNI6NyAL68mvh/WU4C7pMunX5uLVeN6t/UiFFiTwlB8SWSDcj/e9Gak
AoWJpIa7oWy829PBnHVMAVL0rVfrPNlIq87q1E1QYFB8TXXjUjbEFJKOzlkF
vniJfHI663BtjkqmZrYC7dZNPn4WdRi3l19Qr1IgRisj621BNbZ/cNFJq1Hg
22E7K7W4ahRQ6femsRUoXa1mpb+1Gq7qYWw1ngJuDtqrX49VoahV8mtKiwLD
FSUhsTZV2B3Sk6gsUyBlhk1GDOc5KtPro77PIKDdQfjNYVWio/3fIO5MAuxl
Tco+FyrxcZ61V6YWgZe1LS57XSqxooxmbTybAOfSYN4jARM0Qco3Z2MCMVLh
QMqXClxbvu1Cju3knm/DCzAuR8Tr5pu2oQS+zxW4qjs9RsbsqWkqYQQaE8/T
a6c+RnGwXWJzOIFZkQF7XTMeQfL5oV9QNAFJnZPoW0opfOdfWZB2ioCANTx6
JJ4BpyhPencWgVSpywjb8gFCnqXnFmYTCGVfXqFfXIxzqpxLR24RuPFmbVex
QTGqbllG/c4jMKDVfPbg7yJY1elYmz4g4MevHFOppcJDw9XkA53AAnOmOtec
ikhvsh7r4aTP03ZbQc490IfGJ9z+JhA9y598LboQjZYWI/pMAgyu2rw8QQH6
T4cKJU8J5BoWOhVvLoDKizvNDBYBozGjI94+d7FAq6s6oYbAYNn95DUm+fgP
F/n6tQ==
         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Thickness[Large], 
         Dashing[{Small, Small}]], 
        Line[CompressedData["
1:eJwVj3k81AkDh7FqJa3XsuiQIyJCi0QxX9M6ImnQliuJLJUcxZSEhEnvW+TI
EbassZU7ZShHzDhyNo5hZhSSCDvzQ0R21fb+8Xye/57P51H1DnLyFRMRETnz
jf+bt29bOclkEyqDQuRyVXmQXhrJm4rci9xM6nifMg9pSUMdb41tcJzJz5Tc
ysOAO2/0eOqvOPWyvvTiJh6WyC4z2Y2nsLFtJpEiy4NEZcbsc5dQPFFLUVkV
5+F24J4LdupxYEnN0cgfuDhy8LrRj5JpsG+WcLxYysWC7+Kt3D46tpv10Ur0
uaBcLOIOTZeiw0RcN7RqEDUTkQKG31NkfLd+9A0GIdRcV+Tc/AzWkj69JrUD
KEyWP2LVWg+/dLfdyRgAM4HlYbWJCeWD1SkJDA7GXL1XzZqaQLMyvblBjwMb
MGVPWLRCz9Er6fuSftSUOUvozLfBUGlJYKPcj1CjP8+rUjshsbz5JjmrD152
I+0Bgm7sF4kiKHJ9KF2ki/zcxYbRnR+XvK/1woH9fKBBqhdvInY5ly/3gBo8
la3h14eU/QZb+072wMR1Pdeoph8vk6Gzs5ONLZ0bDrsuc3C0IIt8CGwkiO+o
dKIMQkvLx9nT7hXkW9WPnkzmwpvlp+ap1Y2dh00nLAU8qNxNbX4904khZbKg
d/8Qiq2mXyg86UDx5R361JjXeBwZxGLeaseabG0vIf8N1og8Oufm0IarVlKd
EUojaK3Wi9fa9hJ2OcGDvJ2jKIy2eExabUHmJT8LL+4oyrJnOpTqm7GU1W0d
cuktHBxy1ELSmrBpK7PpL40xdMpqs0KcWLhhrR9lzh7D/GWSU4QCE5JPpTiK
Qe8wHutKJX1swOE4ar7n5nHIXKtN1A15gYIsirR+7ThW73n8pq5TBxtnOqPf
9T2qqqWX2J+eoyQojjMuPoGUEMmLw3erod7TnxxNn4B1ZcWNkmAGTtx53Bzn
OAkZ7oItc9tTFP3+JV3u4ySWN7/qKJWsgKV9c3548gdIdSusvF9XjjwPRS1b
8yk0uEWxPYeLIF0xZJv/Zgraa4srF396CPIZnXd+/5vGVTG64XFtOhpaFqpE
jWfACH947lL8fVD89bS3c2YQ5iLPsH94F/SABdnKmL+wd+1ScS0pDesY2tnd
agLkH2pxMMm5hZp8/vG6BgGsvpx9kKQch3/SWMwzLAHK+SrMfZ9jQaIVayq2
CCD9zj1ctC8WTP+oufMdAriz5tbyabFo11WL1xoQQNQ09UEjcQ3cqtPFqTMC
uJjuLohoicGnjuWV0/JCuF3/eMD+P9EwqXt7QmGjEH+opFCOtUfhcml7U9Nm
IZ6EJdy/GxeF1ds5icqqQpQND3W1f46E+FELNY6OECNzdzwHJq5AdvS6rQVZ
iIiusAusjsvYtSCfKR8gBMgVlo5MKmh/hmmmBwqxpHHMfPY6Fa9d+hk/hQjh
HMpnNB+iIqEumSNHFYI1/WJSjh+GtzQpWdmrQiSPyIXZLoYiZaNYonSaEHe2
T+oYG1/AAkkQK1ErxA/pSYOKrUGwmzsom1AvBNnhtHmtVxDu5xf+8X2jEF73
usX5K4Gwl/BvXNsiRKoX7xFtVyAKesa+iLOFOGumr1+RF4Cjp7jhouPf/pye
5zVnn0bVDVbQynoCNXk7fm+b90F/399eTT8QGG5i3e5K8cG8kpFTogwBQ+6A
UoyhD/Qq6EZqCgSqLM/OrlC9QefHf7ZVI2DFaSv+de1JpOgciM0yIbDNTJut
m+SB8rCroT77CBw2LLynPuGOrhfVvrokAnl65ztzSe6QOLLjQOMvBEwW83xV
F1wRfUVyw5QDgazh39yqQo4hoKsz3cSXgO/sHLKeOeG/CmsSxPwJtO4ldolp
O+HBSfPwzjMEAnoDIrfkOGJsscTdK5hAPyuMdCGeAtetSSoJEQQq9vZmqvLt
QfVvlXGKIqBfEPNlYOAg0iq+im2JIXCT3qW9c9AObOvg92U0AkqPDS25Ywdg
HeRYOJhMQGHdV09jTSucenYjOy+NgCT2+E+SLRHzHfPm2QwC3hEZs7Fev6A2
wyDoaw6BsqFH24sekWHYIGuk+ZDAnnNfY+Z5ZqBI2mvMFRKw+XTPL52yD4FH
4uRrSr71EtupnFemKPywsOzwhAAj3+BT1gdjvDTQnVZkENAVLVv1uLYb76/4
Do1VEzAy1bhtrGEEsdbczuIaAmyOgaJtjwFUZAbqqPUEzhtHF1fTfsa/a7RD
9Q==
         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0], 
         Thickness[Large], 
         Dashing[{0, Small}]], 
        Line[CompressedData["
1:eJwV1Hk41AsXB3C5LVolZX0ruaEaJSVJ9OWmrEWolxtFiOQOIUkSRSlbRJQk
10hZylLJGsZuYhhjF4aZsc38WixlyTvvH+c5z+c55zl/nXO2XXA3dxIWEhIK
FMT/c9fhP3OOaMhAeFr212PhEYjO9KeM3tSEG+Eb3y5wbFRP46C6PpR8X/+O
E5ge7eDgHG8GIUn1XgOB2892Ddg+Oo3Z9m25M0tG0Ktges4y6m/UhWg2UQRm
EVU9RmHnoaBmMmcm8Iyu1XhihSNURw9NpwuNYFZRfFc8nGHd4DtuLvDv1U0u
MaWX8GXL5ZcLi1wsbT/KCS0kQ3GParO5wCLv478WWXnDVrG0eW6Bi4fkg15G
24NxafsnUvxPLiyN76ltWBWLjf99a5DD42LSaSoiiUFBzPF8kUgmF2bXMjt7
xt7AY+akiGMZF8Wcm7wPzu/w1WPWaH06F3yllZkW1YXwtnW4LBLBRUa0hOWx
2jIY+J/QX+7NRWUo1eaYTCX2v5qhSltxwbK+sKBVVYW24j4Z+mEu9FEpfl6n
FslUd8uncoL5by1ESN/rkSjvEKcgzIW32kvPbT40yJr8+FE9zIGdUX+DG68J
dvMTWqtrOXgzRRFS/UzHxRIVpzdpHJykF7WXr2kFLWqDtFcIBz4eo4kKzgyc
1PLcr2XPgYb16k614jbclz3rcFKLg//Q1ppa/2SifJ3xqUgpDkKX7nxvbtaB
zTPa6jpf2ZCo3X7GProTG/MYGlL1bCibHuLo8brAkBZi9z1jo2erLq/1rx5o
vCW5+LuzkeW3U8UnqBdSg0lnjx5lY1niLjt+dx/WS/OVJcXYCDy2hnZjcz/C
xYLc5vqHYfTMo6NLeQCNca8nQrOHkeDrrGPXOQDb2dS5Ra9hzDxpOn7FdxBp
9XujyYeHIbOlsmpCgQWPlIoV2bNDuH9cJUCbzsJt7mYZ3YIhrHq3hinlPoSN
xn16D72HYBrsk3pOdhh2O5ZoJCsNIe2JmahKyTCIkZUnprpZ0LegfGizZkOR
2nuz4AEL2e7BzOGlHIyaelw8uJuF7S1t0bcoHNDkN7vJNQ/ifFxudfApLgxJ
2oEP7AaR+fz3440/uOjVsTWaJAagZ1Kdej16BH7ykXJ21waQYiO1w1B7FPKM
g4qaTf0QzesxTO0bhbFsVUnZv1+g60oacg4bQ4vfl/fr1ftQXjNZsER9HG9v
pB5JTOqBmcueXYrMccgxr4hFcLtgH8h06uwYxxWrVWIx/V3wTPBPedA9jrLW
moHoji7E1TVIEf3jgE9UZ1BtF7p3OK/4ODYO8q96P/n0LjiNJg8bCk2gNGTD
JnunLvi5iiX/Q5rAOSfN0PS+TlDcJsXfB01ARCrcuaW4Aw3HxPwOBU8g20Zz
ajqvA8SWPQOldyfAWGtHlsjogGaLc1ZN2ASqCi+vOJrQAfqBHr3OuAks9t9c
POXdgYXfFVfnXk/AsEHmhA6pA2eiozp0WwV1Upj8jth2rPywK7FJnodr5vPL
DMwEe3j1wJnjCjykWrCv9h1jwueAjliZEg/kncnfXQ8zMfzu9L1sZR6E+h1H
/1EU9OcHeoWr85Crfzprw3wbfHLbjY2MeJgNkyY3pbWBlXV7vvoKD6tMmrdW
fmfgiVtEgbY3D3eCc630uAyYKSd4vvfhoWrgtGZpDwOlmdkjlBs8uO7rro6p
YiAho7PtTggP+X4hyY1xgjt6tSdb9wkPLKsvOpfUGShO7bYtLeehxZyhMe3e
ivlYaqUrlYeATHWFLRdaceRulpJUDQ91aUlihyxbUekS8M2zkYd9yylJ+hqt
aNgtH7KjnQdlx1O21Yst6Cy4lPVonAfPNA/RfeEtmG78OXtJgo8/fGVbtJ/S
oVE6eF5Smo+Jkl3rnj+gw+9NQ1WVLB82K8MpfD86Fh4+i9y6jY/R29QAu7N0
LD2jI88k8SF866ZFsCwd4gP3DHV0+fjTQZhPVm3G3kmJBAk3Pq6XpzscXPMZ
d19eVXpM5iMhYGHv+nEaeq3aPmy6wodp/FOtunoaQkujmRt9+JiKYdsw79Iw
eHeNuHggH+to1uxzi42IkRaOFI3lC/5aGGvFWAMmj/DuiJTwoWJm5u1BqYPR
N2Px0DI+Ppkb7O0KqMOL1Ix/V1QI5qlaespa18FExKVieQ0fTDvtJtLaOqS1
sH4vpfNRd51M8/GqxRnHzutLhvlYuTYxI0KjBgX3qe6zqwlM09LyglOpaGPM
2VWtIxCQ/mm+wYuK75vVzCPFCFD2u7p3H6ViTx5FTV6SQE2V+KTFUCUo3SG/
DOUJ5GwyG8jcWokYksGdJxoE/pIifaFGlMPtM+2xhhOBZhqpcMy/CA8kl4UK
uxAozdlesUm0COn22tdprgTml/39rv5FIVhT2WftPAhEqzYo0Co/wnpLlFzo
DQL2NrGymksKcNz9VEZHNAHzOHZMgXM+HAvvJ6bEEnj8yCPC/Xsegv6oDL8c
T2Bgm0Rjjn8eSuL3uS8+I9AnR37VHJWL/eXiakqvCHh733qx3P4tzFaZKHzL
IHD407ShuPsbkC2DJYqzCZwuKhpU889Gxsjkz5P5BFLovr4FjzJRt2/3mNQH
AirmhI3U8wyw/Z16WB8JhLxTao5Ifw3h2iRaVjEB6aBrjpI5ryAn1l7qU0bA
Qu/idH5BOv4HL8kUdA==
         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0], 
         Thickness[Large], 
         Dashing[{0, Small, Small, Small}]], 
        Line[CompressedData["
1:eJwVkWs4lAkAhWWVIXKZki5KIrmUDZVuTjdEHoaRNVuKNEuyho2JEsmdRYMu
VnSZKaUIRTSyDJkKJQbDYMYlkub7SlrtemrX/jjP+fk+5z2rjrLcmYoKCgqH
ZvN/92xbXWprsxT02nyrAnUpNKalN8bPbgW/Rn/rFjUpcjIlzYObHKCv7G4o
UpWi62CPzDv7AKhWZVwVihTTu7wm8uqPgWk7z+WkohSUissfn3iFIbfL2GXX
9AAuBG8+6WQYD+3ry94KZQPw2J9kra2aA5lnVXn0wwFMMb+k53fwUElK7fmu
A6CduieWvC+BTPdl78WP/eCPnpVX+j/Cc7ntkA+nH4Sxyj36s2qIymK4MuN+
FHF0POyEtXgTG8je09AHQXLDIbulAkhS+bRWeh+GGEe/bW9shJ2FrWn3sAQO
EFCP7BTi9md/Z61ICfgP6BSzyRcYdmQ2FSpKEGZ9+7dV7BbILF/aZHJ64eMk
fRkkfwWL0HotG/1elHzhKWxobYNZpUqc380euLQ96apTa4eJQq32JtMesEPG
84z8O0D3qlzUwRPDhjFfbM0XQUuclZG/QozlLequjK+dWB5hqxFa0I1kJZMK
d1o3NnbraFI0u6EjNPT05YihpMGwb0/qgrnrltG98h6s+hqclPixE5KVu+Tt
uyXIMTQr0/PqxP3TJhbs2D7MsSp87d0kwtw8Ux+id9ZbYBUOGIpwzk6t5Yye
FHSTMwFmKR1wuhrS3WMug+/nPkuavB1XIvx3+ohlSFfQ8CXQjuncV/ahEYMg
ngw3f8t9g6UrBI0fjIZQujnsaMJgG1LsLaJ3tA3hvkejGc+4DaqP1Dp1WcM4
vjzsfM/EK7jGs7mHl41g4I/avmafVtzKpWlY1IwgkV7yUD7aDAc6r1LEeItE
7sez0ydeopgV3zmiNAqK7pj6buFzGL4RcWJ4o4hIrXH7ulGIIxfLnsW7jWHA
NepxReQz3Cv4fmnh5zEs8Lcf4bU3YK/zM24k5x2iFfTCm8wFuHFId63jjnE0
r1xXZXWoDhrlEkdu/ziYqdLsAqen2BVoNuyf9h4P3/+8Mj+tGnVNU4/nbJrA
JlJEeEkqQAtYb7qmc2L2b8Pna4LLwQuaolbEfkBYdHRjQ1IxVCpN814ZyDH5
4dfqRQO3wef2ej+tk+OUx+63J/Ov48cpnSs6QQTY9OoHA9wcJN4ON74UTGDe
CxdP1qkc9HmJKheFEggIXzK+aH8Okp9yOheyCfiFqLNuTWZjMFGNSj1HYPiu
pnv77mxkLVHM0Mgh8G9RED1pjIMpW3kcpYaAcn9io2FSBpw+7acm1xIYsxRm
/mKdgevcopvK9bO81olI6WA6nCkB9fOaCChF3/WI2JGOW2+Gviu1EeBROfPd
p9PgeUwcOWeEQNQBoZzCTsHjlAbWP/NJZHsF5n+4GQ9Rx4xP4wIS1zozmh1c
4zGpZ+2eoUVC39StY2YmDuvLedYGi0noEVXyUM848HoT/nY0ILH3Uk/uA43z
yDLbF5drQ6LcLC0ha20MSsPPhfltI2HhNzjXIT0arX9WMdfZkth+zc24dfIs
KB4m++r3kKAlhFT9VBeFmChV9XEXErdiLEaKmKcR1NpyyYZJgjUPmjck4Uhd
PDdZMYBEmxGHecclHIW+OyJbAklsyD2+oEQQhqEvxQd9QkgwSmnrBcUnwViR
qZ98hkRIpPnqsAuhsGe5FXVzSBjUBb+2WHwCx6pT8m7kkDh1PUJboB+I2B8E
v5+4TCL/TsRMn/lx1Fy2ZP17lYR3QkuzxNkfVnVUa+M7JPpL91X7FfuBpups
9KmIRFobo7qg5SiCPeJ1+MUkAruolq8JXxS9m/rq8nB2TyF9u8d2Hzy3XPde
t5KE7n7ZeO7rw3gbxZQMVZFYNrl8j/I6bygK81vu80lYK8j1l3IOQl+r6ym7
loQ45q/H32cY+A9PYNn2
         "]]}}}, {
     DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
      Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, 
      BaseStyle -> {FontWeight -> "Bold", FontSize -> 20}, DisplayFunction :> 
      Identity, Frame -> {{True, True}, {True, True}}, 
      FrameLabel -> {{"", None}, {C, None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None}, 
      PlotRange -> {{0., 0.9919999797571428}, {0, 1}}, PlotRangeClipping -> 
      True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[FontSize -> 20, 
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Thickness[Large]], 
        Directive[FontSize -> 20, 
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Thickness[Large], 
         Dashing[{Small, Small}]], 
        Directive[FontSize -> 20, 
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0], 
         Thickness[Large], 
         Dashing[{0, Small}]], 
        Directive[FontSize -> 20, 
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0], 
         Thickness[Large], 
         Dashing[{0, Small, Small, Small}]]}, {
       "B(3,4) \!\(\*SubscriptBox[\(\[Gamma]\), \(cw\)]\)", 
        "B(3,4) \!\(\*SubscriptBox[\(\[Gamma]\), \(cs\)]\)", 
        "B(4,5) \!\(\*SubscriptBox[\(\[Gamma]\), \(cw\)]\)", 
        "B(4,5) \!\(\*SubscriptBox[\(\[Gamma]\), \(cs\)]\)"}, LegendMarkers -> 
       None, LabelStyle -> {Bold, 15}, LegendLayout -> "Row", 
       LegendMarkerSize -> {30, 10}]], {Top, Center}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{3.652422587803358*^9, 3.653538851181911*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fig .8", "Section",
 CellChangeTimes->{{3.652422630778167*^9, 3.652422641031466*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"game", "=", 
     RowBox[{
      RowBox[{"C", " ", 
       RowBox[{"bmMx", "[", 
        RowBox[{
         SubscriptBox["p", "1"], ",", 
         SubscriptBox["p", "2"], ",", "3", ",", "12"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "C"}], ")"}], 
       RowBox[{"bmMx", "[", 
        RowBox[{
         SubscriptBox["p", "1"], ",", 
         SubscriptBox["p", "2"], ",", "4", ",", "12"}], "]"}]}]}]}], "}"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"DiscretePlot", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"V2", "[", 
         RowBox[{"x", ",", 
          RowBox[{"bmMx", "[", 
           RowBox[{
            SubscriptBox["p", "1"], ",", 
            SubscriptBox["p", "2"], ",", "3", ",", "3"}], "]"}]}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           SubscriptBox["p", "1"], "\[Rule]", "0.1"}], ",", 
          RowBox[{
           SubscriptBox["p", "2"], "\[Rule]", "0.7"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"V2", "[", 
         RowBox[{"x", ",", 
          RowBox[{"bmMx", "[", 
           RowBox[{
            SubscriptBox["p", "1"], ",", 
            SubscriptBox["p", "2"], ",", "4", ",", "4"}], "]"}]}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           SubscriptBox["p", "1"], "\[Rule]", "0.1"}], ",", 
          RowBox[{
           SubscriptBox["p", "2"], "\[Rule]", "0.7"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"V2", "[", 
         RowBox[{"x", ",", "game"}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           SubscriptBox["p", "1"], "\[Rule]", "0.1"}], ",", 
          RowBox[{
           SubscriptBox["p", "2"], "\[Rule]", "0.7"}], ",", 
          RowBox[{"C", "\[Rule]", "0.15"}]}], "}"}]}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "30"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.7"}], ",", "1.2"}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "Medium"}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ToExpression", "[", 
         RowBox[{"\"\<i\>\"", ",", "TeXForm"}], "]"}], ",", 
        RowBox[{"ToExpression", "[", 
         RowBox[{"\"\<V_i\>\"", ",", "TeXForm"}], "]"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"Filling", "\[Rule]", "None"}], ",", "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", "Blue", "]"}], ",", 
        RowBox[{"Directive", "[", "Red", "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Darker", "[", "Green", "]"}], "]"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"LineLegend", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\"\<B(3)\>\"", ",", "\"\<B(4)\>\"", ",", "\"\<B(3,4,0.15)\>\""}], 
           "}"}], ",", 
          RowBox[{"LegendMarkerSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"20", ",", "8"}], "}"}]}], ",", 
          RowBox[{"LabelStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"Bold", ",", "15"}], "}"}]}], ",", 
          RowBox[{"LegendMarkers", "\[Rule]", "Automatic"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"Left", ",", "Center"}], "}"}]}], "]"}]}]}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{
      {RGBColor[0, 0, 1], PointSize[0.011000000000000001`], AbsoluteThickness[
       1.6]}, 
      {RGBColor[1, 0, 0], PointSize[0.011000000000000001`], AbsoluteThickness[
       1.6]}, 
      {RGBColor[0, 
        NCache[
         Rational[2, 3], 0.6666666666666666], 0], PointSize[
       0.011000000000000001`], AbsoluteThickness[1.6]}}, {
      {RGBColor[0, 0, 1], PointSize[0.011000000000000001`], AbsoluteThickness[
       1.6], LineBox[CompressedData["
1:eJxTTMoPSmVmYGBgBGJ5IGZiwAU+2HMzr616NfmhPVTA4c+6eTKdogegfA6H
X2D+BShfwKEj6g/H+nkvoXwRhwq2d6t8FW5A+RJQ9Q+gfBkHpptLT++88gHK
V3DYEXUs+bXUEyhfyaEcrP8FlK/icLDlrJDMrS9QvpqDySbRT+tV30D5GlDz
YeZpOTQYfI2su/8DytdxuNVi5GAl8QnK14PaBzPPwMH2jszCB0/+QPmGDtMM
otrnyH6D8o2g7oGZZ+zwz1mpRLGUwQHCN3EIu9N47p/SL6i8qYMZ2H0w88wc
7klum36pnAmq3txBpGOlaKLGP6i8BdT9MPMsHfa899zdXMUC5Vs5vJyZse6h
GCOUb+1wE+wfmHk2DnOO3r1nUssG5ds6nMr/c3GSJDOUbwf1L4sDAOZShF0=

        "]], GeometricTransformationBox[InsetBox[
         StyleBox["\<\"\[FilledCircle]\"\>",
          StripOnInput->False,
          LineColor->RGBColor[0, 0, 1],
          FrontFaceColor->RGBColor[0, 0, 1],
          BackFaceColor->RGBColor[0, 0, 1],
          GraphicsColor->RGBColor[0, 0, 1],
          PointSize->0.011000000000000001`,
          Thickness->Absolute[1.6],
          FontSize->Medium,
          FontColor->RGBColor[0, 0, 1]], {0, 0}], CompressedData["
1:eJxTTMoPSmVmYGCQB2JGIGZiwAU+2HMzr616NfmhPVTA4c+6eTKdogegfA6H
X2D+BShfwKEj6g/H+nkvoXwRhwq2d6t8FW5A+RJQ9Q+gfBkHpptLT++88gHK
V3DYEXUs+bXUEyhfyaEcrP8FlK/icLDlrJDMrS9QvpqDySbRT+tV30D5GlDz
YeZpOTQYfI2su/8DytdxuNVi5GAl8QnK14PaBzPPwMH2jszCB0/+QPmGDtMM
otrnyH6D8o2g7oGZZ+zwz1mpRLGUwQHCN3EIu9N47p/SL6i8qYMZ2H0w88wc
7klum36pnAmq3txBpGOlaKLGP6i8BdT9MPMsHfa899zdXMUC5Vs5vJyZse6h
GCOUb+1wE+wfmHk2DnOO3r1nUssG5ds6nMr/c3GSJDOUbwf1L4sDAObKhF0=

        "]], {}}, 
      {RGBColor[1, 0, 0], PointSize[0.011000000000000001`], AbsoluteThickness[
       1.6], LineBox[CompressedData["
1:eJxTTMoPSmVmYGBgBGJ5IGZiwAU+2HMzr616NfmhPVTA4c+6eTKdogegfA4H
qfDdN7yFLu+H8AUcbP5fn8LHfwzKF3GoYHu3ylfhBlS9hAOD49MHos+WQ+Vl
HHaEqStflrwH5StA9V+D8pUcNvCyHOwxPAXVr+LQ4C/IO4XjDFRezUFn9Umz
tROeQPkaDrn/F7736n4A5Ws5HLDcsOFH5wKofh2HhOVfAi5y34TK6zn8WfX/
doHIKyjfAGr/Myjf0OHAh9UZE94chPKNHGqCN/iu4XwE5Rs7nFhl2mgy4z2U
b+LA/Z/X6tKk11C+qQPDj4N15//CwsfMwSf42af83udQvrmD31VT4T+9n6B8
C6j7P0D5lg4rvuueDGO9D+VbOSgEy8wwFnwL5Vs7mFy98PSu/1co38Yh5L/N
IR3fz1C+rcOC32c489meQvl2DiWaK+dVe33cDwDi2pW8
        "]], 
       GeometricTransformationBox[InsetBox[
         StyleBox["\<\"\[FilledSquare]\"\>",
          StripOnInput->False,
          LineColor->RGBColor[1, 0, 0],
          FrontFaceColor->RGBColor[1, 0, 0],
          BackFaceColor->RGBColor[1, 0, 0],
          GraphicsColor->RGBColor[1, 0, 0],
          PointSize->0.011000000000000001`,
          Thickness->Absolute[1.6],
          FontSize->Medium,
          FontColor->RGBColor[1, 0, 0]], {0, 0}], CompressedData["
1:eJxTTMoPSmVmYGCQB2JGIGZiwAU+2HMzr616NfmhPVTA4c+6eTKdogegfA4H
qfDdN7yFLu+H8AUcbP5fn8LHfwzKF3GoYHu3ylfhBlS9hAOD49MHos+WQ+Vl
HHaEqStflrwH5StA9V+D8pUcNvCyHOwxPAXVr+LQ4C/IO4XjDFRezUFn9Umz
tROeQPkaDrn/F7736n4A5Ws5HLDcsOFH5wKofh2HhOVfAi5y34TK6zn8WfX/
doHIKyjfAGr/Myjf0OHAh9UZE94chPKNHGqCN/iu4XwE5Rs7nFhl2mgy4z2U
b+LA/Z/X6tKk11C+qQPDj4N15//CwsfMwSf42af83udQvrmD31VT4T+9n6B8
C6j7P0D5lg4rvuueDGO9D+VbOSgEy8wwFnwL5Vs7mFy98PSu/1co38Yh5L/N
IR3fz1C+rcOC32c489meQvl2DiWaK+dVe33cDwDjUpW8
        "]], {}}, 
      {RGBColor[0, 
        NCache[
         Rational[2, 3], 0.6666666666666666], 0], PointSize[
       0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJxTTMoPSmVmYGBgBGJ5IGZiwAU+2HMzr616NfmhPVTA4c+6eTKdogegfA6H
iC9TTFmiju6H8AUcLijH3I+cPxPKF3H4Nc03Zg77Kah6CYctEmdePzy/DSov
46DBE/5+ceYdKF/B4eYfjdQ/e69D+UoODG5Fybdj26F8FQe1GfX+swpg8moO
8cqu0VfdXkL5Gg6Ly2VFih2fQvlaDjuWNJ92ydkL5es4PD799YyAzUMoX89h
55YmxS/TX0H5Bg6HIiQe5/I9g/INHc4oi/wSr78L5Rs57Pk1LTBf+gWUb+xw
p+5Jq9Luj1C+iQPH74jFFhM+QPmmDrscVje+mgdzj5nD7YXvZB/UwOTNHRp9
N5qruHyH8i2g7v8K5Vs6WL3pXfv7Hcw+K4fDCzs/HLT7DOVbO+iLXZi1+Q1M
v42DyYtZ1R+Ww/TbOhw9MrmjnuETlG/noG95y6hw3bf9ALNSmfQ=
        "]], 
       GeometricTransformationBox[InsetBox[
         StyleBox["\<\"\[FilledDiamond]\"\>",
          StripOnInput->False,
          LineColor->RGBColor[0, 
            Rational[2, 3], 0],
          FrontFaceColor->RGBColor[0, 
            Rational[2, 3], 0],
          BackFaceColor->RGBColor[0, 
            Rational[2, 3], 0],
          GraphicsColor->RGBColor[0, 
            Rational[2, 3], 0],
          PointSize->0.011000000000000001`,
          Thickness->Absolute[1.6],
          FontSize->Medium,
          FontColor->RGBColor[0, 
            Rational[2, 3], 0]], {0, 0}], CompressedData["
1:eJxTTMoPSmVmYGCQB2JGIGZiwAU+2HMzr616NfmhPVTA4c+6eTKdogegfA6H
iC9TTFmiju6H8AUcLijH3I+cPxPKF3H4Nc03Zg77Kah6CYctEmdePzy/DSov
46DBE/5+ceYdKF/B4eYfjdQ/e69D+UoODG5Fybdj26F8FQe1GfX+swpg8moO
8cqu0VfdXkL5Gg6Ly2VFih2fQvlaDjuWNJ92ydkL5es4PD799YyAzUMoX89h
55YmxS/TX0H5Bg6HIiQe5/I9g/INHc4oi/wSr78L5Rs57Pk1LTBf+gWUb+xw
p+5Jq9Luj1C+iQPH74jFFhM+QPmmDrscVje+mgdzj5nD7YXvZB/UwOTNHRp9
N5qruHyH8i2g7v8K5Vs6WL3pXfv7Hcw+K4fDCzs/HLT7DOVbO+iLXZi1+Q1M
v42DyYtZ1R+Ww/TbOhw9MrmjnuETlG/noG95y6hw3bf9ALPKmfQ=
        "]], {}}}}, 
    InsetBox[
     TemplateBox[{"\"B(3)\"","\"B(4)\"","\"B(3,4,0.15)\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.198], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 8}, {20, 8}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.198], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.198], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], FontSize -> 10, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 8}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.17124999999999999`] -> 
                    Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.198], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {
                    LineBox[{{0, 8}, {20, 8}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.198], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledSquare]\"", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.198], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], FontSize -> 10, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 8}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.17124999999999999`] -> 
                    Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.198], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0]], {
                    LineBox[{{0, 8}, {20, 8}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.198], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledDiamond]\"", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.198], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    Rational[2, 3], 0]], FontSize -> 10, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 8}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.17124999999999999`] -> 
                    Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontWeight -> Bold, FontSize -> 15, FontFamily -> "Arial"}, 
         Background -> Automatic, StripOnInput -> False], TraditionalForm]& ),
      
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 2/3, 0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 
                    Rational[2, 3], 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"\"\[FilledCircle]\"", ",", "Medium"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"\"\[FilledSquare]\"", ",", "Medium"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"\"\[FilledDiamond]\"", ",", "Medium"}], "}"}]}], 
               "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"Bold", ",", "15"}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"20", ",", "8"}], "}"}]}]}], "]"}]& )], 
     Scaled[{0.01, 0.5}], ImageScaled[{0, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   AxesOrigin->{0, 0},
   BaseStyle->{FontWeight -> "Bold", FontSize -> 20},
   DisplayFunction->Identity,
   Frame->True,
   FrameLabel->{
     FormBox["i", TraditionalForm], 
     FormBox[
      SubscriptBox["V", "i"], TraditionalForm]},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   Method->{
    "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], 
     "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "DefaultPlotStyle" -> {
       Directive[
        RGBColor[0.368417, 0.506779, 0.709798], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.880722, 0.611041, 0.142051], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.560181, 0.691569, 0.194885], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.922526, 0.385626, 0.209179], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.528488, 0.470624, 0.701351], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.772079, 0.431554, 0.102387], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.363898, 0.618501, 0.782349], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[1, 0.75, 0], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.647624, 0.37816, 0.614037], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.571589, 0.586483, 0.], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.915, 0.3325, 0.2125], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
        
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
        AbsoluteThickness[1.6]], 
       Directive[
        RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
        AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
     "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05]},
   
   PlotRange->{{0, 30.}, {-1.7, 1.2}},
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {Automatic, Automatic}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{{{{
         Directive[
          PointSize[0.011000000000000001`], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1]], {}}, {
         Directive[
          PointSize[0.011000000000000001`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], {}}, {
         Directive[
          PointSize[0.011000000000000001`], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 
           Rational[2, 3], 0]], {}}}, {{{
          Directive[
           PointSize[0.011000000000000001`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], {
           Line[CompressedData["
1:eJxTTMoPSmVmYGBgBGJ5IGZiwAU+2HMzr616NfmhPVTA4c+6eTKdogegfA6H
X2D+BShfwKEj6g/H+nkvoXwRhwq2d6t8FW5A+RJQ9Q+gfBkHpptLT++88gHK
V3DYEXUs+bXUEyhfyaEcrP8FlK/icLDlrJDMrS9QvpqDySbRT+tV30D5GlDz
YeZpOTQYfI2su/8DytdxuNVi5GAl8QnK14PaBzPPwMH2jszCB0/+QPmGDtMM
otrnyH6D8o2g7oGZZ+zwz1mpRLGUwQHCN3EIu9N47p/SL6i8qYMZ2H0w88wc
7klum36pnAmq3txBpGOlaKLGP6i8BdT9MPMsHfa899zdXMUC5Vs5vJyZse6h
GCOUb+1wE+wfmHk2DnOO3r1nUssG5ds6nMr/c3GSJDOUbwf1L4sDAOZShF0=

            "]], Null, 
           GeometricTransformation[
            Text[
             Style["\[FilledCircle]", 
              Directive[
               PointSize[0.011000000000000001`], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1]], FontSize -> Medium], {0, 
             0}], CompressedData["
1:eJxTTMoPSmVmYGCQB2JGIGZiwAU+2HMzr616NfmhPVTA4c+6eTKdogegfA6H
X2D+BShfwKEj6g/H+nkvoXwRhwq2d6t8FW5A+RJQ9Q+gfBkHpptLT++88gHK
V3DYEXUs+bXUEyhfyaEcrP8FlK/icLDlrJDMrS9QvpqDySbRT+tV30D5GlDz
YeZpOTQYfI2su/8DytdxuNVi5GAl8QnK14PaBzPPwMH2jszCB0/+QPmGDtMM
otrnyH6D8o2g7oGZZ+zwz1mpRLGUwQHCN3EIu9N47p/SL6i8qYMZ2H0w88wc
7klum36pnAmq3txBpGOlaKLGP6i8BdT9MPMsHfa899zdXMUC5Vs5vJyZse6h
GCOUb+1wE+wfmHk2DnOO3r1nUssG5ds6nMr/c3GSJDOUbwf1L4sDAObKhF0=

            "]], {}}}}, {{
          Directive[
           PointSize[0.011000000000000001`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], {
           Line[CompressedData["
1:eJxTTMoPSmVmYGBgBGJ5IGZiwAU+2HMzr616NfmhPVTA4c+6eTKdogegfA4H
qfDdN7yFLu+H8AUcbP5fn8LHfwzKF3GoYHu3ylfhBlS9hAOD49MHos+WQ+Vl
HHaEqStflrwH5StA9V+D8pUcNvCyHOwxPAXVr+LQ4C/IO4XjDFRezUFn9Umz
tROeQPkaDrn/F7736n4A5Ws5HLDcsOFH5wKofh2HhOVfAi5y34TK6zn8WfX/
doHIKyjfAGr/Myjf0OHAh9UZE94chPKNHGqCN/iu4XwE5Rs7nFhl2mgy4z2U
b+LA/Z/X6tKk11C+qQPDj4N15//CwsfMwSf42af83udQvrmD31VT4T+9n6B8
C6j7P0D5lg4rvuueDGO9D+VbOSgEy8wwFnwL5Vs7mFy98PSu/1co38Yh5L/N
IR3fz1C+rcOC32c489meQvl2DiWaK+dVe33cDwDi2pW8
            "]], Null, 
           GeometricTransformation[
            Text[
             Style["\[FilledSquare]", 
              Directive[
               PointSize[0.011000000000000001`], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0]], FontSize -> Medium], {0, 
             0}], CompressedData["
1:eJxTTMoPSmVmYGCQB2JGIGZiwAU+2HMzr616NfmhPVTA4c+6eTKdogegfA4H
qfDdN7yFLu+H8AUcbP5fn8LHfwzKF3GoYHu3ylfhBlS9hAOD49MHos+WQ+Vl
HHaEqStflrwH5StA9V+D8pUcNvCyHOwxPAXVr+LQ4C/IO4XjDFRezUFn9Umz
tROeQPkaDrn/F7736n4A5Ws5HLDcsOFH5wKofh2HhOVfAi5y34TK6zn8WfX/
doHIKyjfAGr/Myjf0OHAh9UZE94chPKNHGqCN/iu4XwE5Rs7nFhl2mgy4z2U
b+LA/Z/X6tKk11C+qQPDj4N15//CwsfMwSf42af83udQvrmD31VT4T+9n6B8
C6j7P0D5lg4rvuueDGO9D+VbOSgEy8wwFnwL5Vs7mFy98PSu/1co38Yh5L/N
IR3fz1C+rcOC32c489meQvl2DiWaK+dVe33cDwDjUpW8
            "]], {}}}}, {{
          Directive[
           PointSize[0.011000000000000001`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 
            Rational[2, 3], 0]], {
           Line[CompressedData["
1:eJxTTMoPSmVmYGBgBGJ5IGZiwAU+2HMzr616NfmhPVTA4c+6eTKdogegfA6H
iC9TTFmiju6H8AUcLijH3I+cPxPKF3H4Nc03Zg77Kah6CYctEmdePzy/DSov
46DBE/5+ceYdKF/B4eYfjdQ/e69D+UoODG5Fybdj26F8FQe1GfX+swpg8moO
8cqu0VfdXkL5Gg6Ly2VFih2fQvlaDjuWNJ92ydkL5es4PD799YyAzUMoX89h
55YmxS/TX0H5Bg6HIiQe5/I9g/INHc4oi/wSr78L5Rs57Pk1LTBf+gWUb+xw
p+5Jq9Luj1C+iQPH74jFFhM+QPmmDrscVje+mgdzj5nD7YXvZB/UwOTNHRp9
N5qruHyH8i2g7v8K5Vs6WL3pXfv7Hcw+K4fDCzs/HLT7DOVbO+iLXZi1+Q1M
v42DyYtZ1R+Ww/TbOhw9MrmjnuETlG/noG95y6hw3bf9ALNSmfQ=
            "]], Null, 
           GeometricTransformation[
            Text[
             Style["\[FilledDiamond]", 
              Directive[
               PointSize[0.011000000000000001`], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                Rational[2, 3], 0]], FontSize -> Medium], {0, 
             0}], CompressedData["
1:eJxTTMoPSmVmYGCQB2JGIGZiwAU+2HMzr616NfmhPVTA4c+6eTKdogegfA6H
iC9TTFmiju6H8AUcLijH3I+cPxPKF3H4Nc03Zg77Kah6CYctEmdePzy/DSov
46DBE/5+ceYdKF/B4eYfjdQ/e69D+UoODG5Fybdj26F8FQe1GfX+swpg8moO
8cqu0VfdXkL5Gg6Ly2VFih2fQvlaDjuWNJ92ydkL5es4PD799YyAzUMoX89h
55YmxS/TX0H5Bg6HIiQe5/I9g/INHc4oi/wSr78L5Rs57Pk1LTBf+gWUb+xw
p+5Jq9Luj1C+iQPH74jFFhM+QPmmDrscVje+mgdzj5nD7YXvZB/UwOTNHRp9
N5qruHyH8i2g7v8K5Vs6WL3pXfv7Hcw+K4fDCzs/HLT7DOVbO+iLXZi1+Q1M
v42DyYtZ1R+Ww/TbOhw9MrmjnuETlG/noG95y6hw3bf9ALPKmfQ=
            
            "]], {}}}}}}}, {
     AspectRatio -> GoldenRatio^(-1), Axes -> True, AxesOrigin -> {0, 0}, 
      BaseStyle -> {FontWeight -> "Bold", FontSize -> 20}, Frame -> True, 
      FrameLabel -> {$CellContext`i, 
        Subscript[$CellContext`V, $CellContext`i]}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], 
      Method -> {
       "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], 
        "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "DefaultPlotStyle" -> {
          Directive[
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.922526, 0.385626, 0.209179], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.528488, 0.470624, 0.701351], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.772079, 0.431554, 0.102387], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.363898, 0.618501, 0.782349], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[1, 0.75, 0], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.647624, 0.37816, 0.614037], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.571589, 0.586483, 0.], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.915, 0.3325, 0.2125], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[
           0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
           AbsoluteThickness[1.6]], 
          Directive[
           RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
           AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
        "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> 
        Scaled[0.05]}, PlotRange -> {{0, 30.}, {-1.7, 1.2}}, 
      PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {Automatic, Automatic}}, 
      Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         PointSize[0.011000000000000001`], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        Directive[
         PointSize[0.011000000000000001`], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        Directive[
         PointSize[0.011000000000000001`], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 
          Rational[2, 3], 0]]}, {"B(3)", "B(4)", "B(3,4,0.15)"}, 
       LegendMarkers -> {{"\[FilledCircle]", Medium}, {
         "\[FilledSquare]", Medium}, {"\[FilledDiamond]", Medium}}, 
       Joined -> {True, True, True}, LabelStyle -> {Bold, 15}, LegendLayout -> 
       "Column", LegendMarkerSize -> {20, 8}]], {Left, Center}, Identity]]& ],
  
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{3.652422644530621*^9, 3.65353885209945*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fig. 9 (a)", "Section",
 CellChangeTimes->{{3.653528628528563*^9, 3.653528647984765*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"gainM3x4", "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"x_Subscript", "\[RuleDelayed]", "x"}], ",", 
           RowBox[{"C", "\[Rule]", "0.2"}]}], "}"}]}], ")"}], "-", "gainM4"}],
       "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["p", "g"], ",", "0.5", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["p", "b"], ",", "0", ",", "0.5"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(p\), \(g\)]\)\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(p\), \(b\)]\)\>\""}], "}"}]}], ",", 
     RowBox[{"ContourStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Thick"}], "}"}]}], ",", 
     RowBox[{"Contours", "\[Rule]", 
      RowBox[{"{", "0", "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ContourShading", "\[Rule]", "None"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"game", "=", 
       RowBox[{
        RowBox[{"C", " ", 
         RowBox[{"bmMx", "[", 
          RowBox[{
           SubscriptBox["p", "b"], ",", 
           SubscriptBox["p", "g"], ",", "3", ",", "12"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "C"}], ")"}], 
         RowBox[{"bmMx", "[", 
          RowBox[{
           SubscriptBox["p", "b"], ",", 
           SubscriptBox["p", "g"], ",", "4", ",", "12"}], "]"}]}]}]}], "}"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           RowBox[{"V2", "[", 
            RowBox[{"12", ",", 
             RowBox[{"game", "/.", 
              RowBox[{"{", 
               RowBox[{"C", "\[Rule]", "0.2"}], "}"}]}]}], "]"}]}], "/", 
          "12"}], "+", 
         RowBox[{
          RowBox[{"V2", "[", 
           RowBox[{"4", ",", 
            RowBox[{"bmMx", "[", 
             RowBox[{
              SubscriptBox["p", "b"], ",", 
              SubscriptBox["p", "g"], ",", "4", ",", "4"}], "]"}]}], "]"}], 
          "/", "4"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["p", "g"], ",", "0.5", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["p", "b"], ",", "0", ",", "0.5"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(p\), \(g\)]\)\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(p\), \(b\)]\)\>\""}], "}"}]}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Dashed", ",", "Black", ",", "Thick"}], "}"}]}], ",", 
       RowBox[{"Contours", "\[Rule]", 
        RowBox[{"{", "0", "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"BaseStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ContourShading", "\[Rule]", "None"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"game", "=", 
       RowBox[{
        RowBox[{"C", " ", 
         RowBox[{"bmMx", "[", 
          RowBox[{
           SubscriptBox["p", "b"], ",", 
           SubscriptBox["p", "g"], ",", "3", ",", "12"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "C"}], ")"}], 
         RowBox[{"bmMx", "[", 
          RowBox[{
           SubscriptBox["p", "b"], ",", 
           SubscriptBox["p", "g"], ",", "4", ",", "12"}], "]"}]}]}]}], "}"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           RowBox[{"V2", "[", 
            RowBox[{"12", ",", 
             RowBox[{"game", "/.", 
              RowBox[{"{", 
               RowBox[{"C", "\[Rule]", "0.2"}], "}"}]}]}], "]"}]}], "/", 
          "12"}], "+", 
         RowBox[{
          RowBox[{"V2", "[", 
           RowBox[{"3", ",", 
            RowBox[{"bmMx", "[", 
             RowBox[{
              SubscriptBox["p", "b"], ",", 
              SubscriptBox["p", "g"], ",", "3", ",", "3"}], "]"}]}], "]"}], 
          "/", "3"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["p", "g"], ",", "0.5", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["p", "b"], ",", "0", ",", "0.5"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(p\), \(g\)]\)\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(p\), \(b\)]\)\>\""}], "}"}]}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Dotted", ",", "Black", ",", "Thick"}], "}"}]}], ",", 
       RowBox[{"Contours", "\[Rule]", 
        RowBox[{"{", "0", "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"BaseStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ContourShading", "\[Rule]", "None"}]}], "]"}]}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{
  3.653528714044354*^9, 3.653528749069067*^9, {3.6535289129189663`*^9, 
   3.653528923444787*^9}, 3.653528996930234*^9, {3.6535290787424307`*^9, 
   3.653529083790391*^9}, {3.653536296239306*^9, 3.653536298101871*^9}, {
   3.653538510823765*^9, 3.65353852832093*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJx1mQtUVVUagOlh5SuRXjZFiq9pfJCW45iYv1O+KCupViRj1kiYFohLzSwz
861NllKzHLNSSc1AS6/51sKrgqIQiICowJF7uZfLQ03Hmexhw9xzv33W3sy4
XOHHPmef/e3/38+ixqY+lXRtWFjY843/+e9P+48l/Cs2rXPj37OKgxhbpfj0
9pTGvx7FweI0r+KU4APVioOPn/Yp/i34x694ePADAcXLghXWKj4VrKBOcafg
9+oVJwe/16B4W/B75xTbfy4YbIntlS74wvjC+ML4wvjC+ML4wvjC+ML4wvjC
+ML4wvjqjK/L8HUZvi7D12X4ugxfl+HrMnxdhq/L8HUZvi7D12X4ugxfl+Hr
Ur62xx7lC+ML4wvjC+ML4wvjC+ML4wvjC+ML4wvjC+OrM/F1G/F1G/F1G/F1
G/F1G/F1G/F1G/F1G/F1G/F1G/F1G/F1G/F1G/F1G/F1K1+7XdnKF8YXxhfG
F8YXxhfGF8YXxhfGF8YXxhfGF8ZXZytU71HlC+ML4wvjC+ML4wvjC+ML4wvj
C+ML4wvjC+OrsyVXg+34XvnC+ML4wvjC+ML4wvjC+ML4wvjC+ML4wvjC+Ops
hb5zXPnC+ML4wvjC+ML4wvjC+ML4wvjC+ML4wvjC+Opsheo5oXxhfGF8YXxh
fGF8YXxhfGF8YXxhfGF8YXxhfHW2Qs+VKF8YXxhfGF8YXxhfGF8YXxhfGF8Y
XxhfGF8YX50tGRb8bpnyhfGF8YXxhfGF8YXxhfGF8YXxhfGF8YXxhfHV2ZIy
u2HKF8YXxhfGF8YXxhfGF8YXxhfGF8YXxhfGF8ZXZ0teDb5XrnxhfGF8YXxh
fGF8YXxhfGF8YXxhfGF8YXxhfHW21E989X1XlbHv9CjGF8ZX38f4FOvnI0v0
85El+vnIEv18ZIl+PrJEPx9Zop+PLOWrt7cm5JUWej+g2G5vrWL7h6VY75c0
Yz/ovG/3U2ZoHaxT5TDltn+DKocpXxr8/TlVDlNu9895o30XFFNufs9u53ZV
H8z7Zv1mOUz/2FxhxL3CeN9hPR7O+Vzv/3Sj/9KN/ko3+ifdqJ/z9fn/877L
eN9l9KfLaJ9l+FcY54M0la+wfh5IM84DacZ5IM04DxEv8mVlqL31iu3vNSju
GKzmnGK7nc7zdn86z9v14ztHMeX27y1VTv12vetD4915H+Z9mOf1/luv6ref
rzTer1TjlXgyXvX4BtT39fE5J+TrlNv11Rr9UWfUX2f0R4ORn/WqnPyhnP7V
23OhSX8Qb9h+brPwffN56ic+Zv+Z+Un/6eXOfZOZX9QHM17083umyj+eh3le
P99nqvzkeZjnySdYn7/mGP3l3PeY+WLO73xfn++ZH/yq//XzflroZ436PvMR
/Uf+mPlkxpPvE0/89fxKV+OTcj2/0tV4pVzPr3Rj/FJfjcofxovenqb3c3p/
1Rr54LxP/Xp7AsZ4Chg+Vap/YOqze5X9Q1boe9Whn0cU2+3OC9XDeb5IxdfO
w1PGeE8z4pOuvq+P56om5fp6523Cdvv3KLa/c1C112T7/WzF+v0DvoXKz2T9
vOwL9UexymeT7X4oVf1jsn4eqQmNwzMqP0xmvWM8mMz40/vTuW81+88ud+7n
zP4y7zfM/jDPw6a/eV40/c3zhelr7r/xtZ/3hOr5RiYGn/OEfr8r1D7y40Do
PW/I41CofeRHQag/aH9h6PfEvzj00x/Kb86r3F+VqvnKbv9JNT5tX85HARka
fLBcjQ+7vgpjPaxUrK8nXjWeiCdMfzD+9fGRadw/Z6rnWe/0fM5T8YbpLzue
+Sq+jH/ir88H3H8Vqe8xX8Pm/MT8Q3th4mv/3Kc4+JnO+5Uv8xX5DBN/Ow9z
FNt5lav87Hw+ptpvP3dc+TK/kc8w8bf7q0zxN8H3T6n2Ml/xfeYjntfP+2a5
k7/4wZQzfmmvft/gV/lJ+2HKGZ/6/s4y1pdKY72qNNabipDvWWM9rzLWgyqV
D3p+u1R/Mb6Zj8gH/GH8yQfyWb//9KnxTv/o93V+Nd7xJ77MTzDjm/jyvH4f
ElDjHz/GE+2HyQfyT1+fioz79CLlQ37qvqXG/XOp8mO+Yv7V51MnfrSf+Yn4
kg/0N+OR/iD/9f1EWBjx/N/xTlfxZj6gfsYr+amPL58a37B+v+9T/Um8Wb9g
/X7ab/SnM/74vn7/V63WU9gc3/QP+WGOL/2+MKD8Jo9a8X7zLGd/1Hp8m7bL
I5z/P5ya/UPGgmRPk/U9Y8nOEc+87JIfDp4/HtnTWd/vnfSy9di7TdfznRff
+yji2wJZ0qE0Oiqz6Xr+SGHfUcVSLPMnt7jULKfpet0lKnXBqslnpHVZTMxt
je3p0nf30jsGuKR33ZXUob4quf+1Nya2PrdU/rlwZs6JKx5Jl/qY9fnfyb4d
sbVHf/FIq6iyZwtaZUlU/9Gr3w54xXtxSL0VnivtN+zuWzuwWsLnjdkx4/E8
uavdg3ekxvvk8PdLCqPiiqTjwoSI2Gk18uGGnds7zz6l1o/5HXv2GNRmkbx8
fkHGo7nOfJsTs+ady8O9cmNC645TJh6QnJcGPJHfqun+r8uoniW/f/yYjG5X
EBtxa9P93uIXWtXd0K5Imnf4W+8nuvqlTfO39m8cUiK/e6PPm5eW+eXtGZPd
C3aUStwz03dsrA5I7YznOh2dWSGT8te+kLyi6f5rX02bY3N7Z8n90mddWKIz
f+fF3TgqKd/ZbyUs7p/y0C/O/mrZm5W9Noz0G/frflmf1SrrnQHO+LZSP5xW
dPyUHIyP3HRNL2d/lbXnp5jyjwPGfWVA2g4+HfvINRXSou3E3E9bOvutLYOu
3Z3fGF9v8dpPk0a6xLP258I3tnpk9dCrXVfJLlnWz/3c0s0eGTtj1poHL+6U
xHPjPs9u7O/ICm97ST4gOxM73fPFcq8kXbe84PKhbCmYNfTk6H9US78dVrdf
BxTIiMWuh+L/VS1Fh+Mu9sgtlLuLnv8yxlct62ZPznpqbqFMCcwY23evTzLi
4vJ2FJyQFhGL9q/s7pdbOofP/VN8idRPnT0r4boambgh6tHyyDIRV5+8nIYa
aZj2eNFjp0/Lum+nHm4YH5DNc25P7RxdLmN/7NV6SFxAnr0tc+NXdWfkR+/J
wdHjauWBWdbH9YcqZXyfm2IHznL2Xyu2ZV/+a8BZvyTjwMG881Xi3jbyya7F
H8nIM83av3aDRypfG9x+dO9V4pvUIaPHQGe/FTGgxw8zYz2Skjh/1pAtm+TS
4dHfNnvU2V+9WvfkoYYJ1XJFXhoTeyxf+m16alVUcrXIR8O+cJ/Nl9ylH2zJ
G+Psr76ZPHt+YLpP2j9dsX9QXuP+6pWUtMLFjevBvtjO58NPSGZv/4Tn7/XI
wte3ZOz5bL3cfc/KRy5398ilboPHfBr3hYTHP32P62dnfzWz39DZLUs9cvli
TGHCtr2y9ZXhK90Fzv6p9OQnn1/5zCvzNjbbet/NOdL8UGXJ6u+84ko/N+uB
1MNy+Mn5w6dcbdxvbrxwsn9xrkRP//vVJYnOebCs253RWeE18pP/2XURQ8uk
591zO7w4oEb+WP9w3EsFZWr+79Uxqtuh93fJXWMWrfGscObfEbeXDtzazNkf
tft3i10tU73y9LKvjw9s7+yHIm8q/WTKu9mS+NuwF+96u+n+KDq+1VtJkw7I
qxnj9/x4xC9dMqMX35zs7IfGJf/8xN6IMhnSv9uRCyXO/qjk6/Bbs74090d+
mXpq5eqx3U7Kg3Xzds/sUitJVuK4PR2d/VGP3+5te+z1Svlszf0n/jCk6X5p
a2SDb+G+CinZfO7ADdlV0tXaW39xXJK06HV13I0feETWxicECrbJQ5uuGfF5
lFdWpT48drl7vxyZe0e8J7talv45cdqc6wvl4euHtky94JNnvjp78OR7xfJA
StvFU7fUyJ6JqREv3ndaEiYMm9i9e+P68/GIU7fPPyOLqrdPL7qlcf6b0DnS
tfmotLkzflx5F58sj+lZ6/rguIx4r+uglL/4pdA9oSEsrFQ6lV8qPLo+IL+W
Dlj3U0m5/AeZy3r2
    "], {{{}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Thickness[Large], Opacity[1], CapForm["Butt"], 
         LineBox[CompressedData["
1:eJwNzMVWAlAUQNEHBnZ3I4rY3Y2KXdg1cehAf97uPdjr3PXixu+fso+REMID
z4aTaAgxAoMMMcyLuxmdZYRR/py90mp+01OtpJ021ihgnghzRKnijHd/OrSQ
barJsMUmcdZZZIkFclimiGuKyWWMcSb4sLdTP/Vca+giQQk3lJLHJFNM8+V9
t37rhdZSRpI6bqmnnH0O2GGPXXrYYJU0K+TTwCU/9qb0V6+0kT56aeKOZirI
0sIhxxzRzwD/PHgfqw==
          "]]},
        "0"],
       Annotation[#, 0, "Tooltip"]& ], {}, {}}}], 
   GraphicsComplexBox[CompressedData["
1:eJx1mwlYjVvUx0Pm4YYrY8ZMmeeMK4R0jZHM8zwLVxkrJSqqc6KBUFK5hE7K
ELekQhlCSobm8dQ5h3BN4Ttfb//9fu/u+e7jeY7f3fu87/6vvfZaa+99dFq+
xWJVTR0dnSG6Ojr/+yn8l00yw8naP4E0ufIvOYyFz1zGb6I2af/kMa78kOUz
3lTZoYBxZfc3hYx/V/5XxNis8i8ljD0rP5WMX1c+oJRxl8r3lTHeWPk+FePI
yvepGUv1KTh9Ck6fgtOn4PQpOH0KTp+C06fg9Ck4fQpOn4LTp+D0KTh9CqZP
GHc00weGPjD0gaEPDH1g6ANDHxj6wNAHhj4w9IGhDwx9YOn8xXHzF8fNXxw3
f3Hc/MVx8xfHzV8cN39x3PzFcfMXx81fHDd/cdz8xXHzF8f0CeNIZPrA0AeG
PjD0gaEPDH1g6ANDHxj6wNAHhj4w9IGhDwx9wnOSmT4w9IGhDwx9YOgDQx8Y
+sDQB4Y+MPSBoQ8MfWDoA0Pfr8r3PmX6wNAHhj4w9IGhDwx9YOgDQx8Y+sDQ
B4Y+MPSBoQ8MfcJznzN9YOgDQx8Y+sDQB4Y+MPSBoQ8MfWDoA0MfGPrA0AeG
PuF7qUwfGPrA0AeGPjD0gaEPDH1g6ANDHxj6wNAHhj4w9IGhT/j/aUwfGPrA
0AeGPjD0gaEPDH1g6ANDHxj6wNAHhj4w9IGhb1LlezKYPjD0gaEPDH1g6AND
Hxj6wNAHhj4w9IGhDwx9YOgDQ1+GMBCmDwx9YOgDQx8Y+sDQB4Y+MPSBoQ8M
fWDoA0MfGPrA0Lehst87pg8MfWDoA0MfGPrA0AeGPjD0gaEPDH1g6ANDHxj6
wNCHT+iT1jW5XB2Xxxj6wNAnrRsKGUMfGPqkcVzJ5eVSLg6WMYY+aRxRc+Mr
rtIhq+pfwlgYn5KxkFdKGQvjUzH2qPxUMxbGp2EsfMBOF2lz5V9yGAvvy2Us
jDOfsfC+AsbCcwsZS+s/vL+I+34JN55i1i6tD0V7oF1aL4r2Qbu0fhTthXZp
PSnaD+3S+lK0p/T9sGcgs6cwjijOD0X7oh32lfbPZwz7gmFfMOwJhv3AsJf0
fUrGsIe0v4qbHxVrl+4nLnLrJorZh+8v1QP/j2X9wdL1EMv6C7riWX8w+oPR
X/h8yPqD0R+M/oLux6w/GP3B0uc/457/jHv+M9ZfmKcXrD9YWv++4MbzkhvP
S248L1l/YR7TWX+wtP5MZ/2Ffq9ZfzD6g9G/c6V937L+YPQHS/0/k/OPTM6f
Mjl/yeT8I5vzn0zOX7LZ+7D+sL7AWF9grC8w1hcY6wuM9SVd38WMpfE5kIvP
gVx8DuTicyAXnwM5PQpOj4LTo+D0KDg9Ck6PgtOj4PQoOD0KTo+C06Pg9Ci4
/WsUl+9iGWO9grEewVhv0vZn3P7xBdf/Jbf/SmcMfwbz/srnZ/gb6gtpfhPz
ofCZx9iwqr4AC2Yo4PJp9fzI50M+//H5js9vYKk/Kbh8Fc21x3HrL5GLT8lc
PHnKGPs9MPZHYOwnwKi/wahXwdL6EvnaoWocKsbCOEQW5lHNWLCfhrFgfw3X
Ln5fag8HLp87VI0H+fskY+EzuKqf2C74UW41Rn/h/XmsHSx9Xj5rB6NdGF8B
awejXfC/QtYORrvg30WsHYx2wb4lrB0sHX8pN/5S1i7Ys4y1g6XvV1WbX6ke
Fesvrb/E+UZ/sHR8mv9nfrLobeVnDmcfcb6EeJvHzXc+N5+FnP4ibr6Kq7Hw
ifq0mNNbUo3RH/YHCx9KbvxifYz5AAv2LuXmW2zH/EjHV8bpF9ul61HG1qPU
X/h6WsPpq878fPHzKdj9KmPh8dcYC583GQu6Mrn3Z7Hny6ryLfxBun7E9Qp/
AMMfwPAH6feVnL+Xct8v49abqpp+ad0kjle6nxDjC9oRT8CIH2DECzDiAxjx
ACz1v0DOvwI5/wnk/COQi8+BXD0XzOnJYusD/iPdb5zk7ML7RzabT6k+0T6Y
TzDmU2rfQu77Ss4+pdz3yzh7ifql5/vBLL8LHMXdD0Qx+8LfYV+w8NxCVk+h
ngML4y3mOJvVW6gnwcJ7cxmjngSjngTj/WA8X1q/ieOX7idPcv4gxjPpelZx
+UTNxRfx+dLzlqtc/sH+Ht93repfVvWeC1X2Rz0aVFWXwD9PVPmfirHwvDLW
X6jfRIY/gDEfwvvF+z/MD+wpfIr3ZWiv/LphTjV7C88R77PQLrwnj+svzqfg
ZgXcfIvzJ/gr6vWzbD0ivgp1nGgfYT4wn9ZcPDvB3XeJ/i2db3E/gf2HdL8g
3ociP2I8wnN5/xHPtzA+zL90vGI9CP+CP0A/mI9vaEd8xHiE/hr2Pmn+cWXj
hT7p+WEse56wTu9w51nRbL2gXfh+aZWfhLN4LvBdlj8E8ydw5ylBXHx1ZfFJ
Ot9lVe8LY/UM3i+th+6x/CX48X1uf1G1fobC3ue4c9b7VZ/QG8HmH+OptL8K
zzskfC5QVekNYPaDP8C+YGk9hPO9UqZPWu9GceeV0azeg37kS7CwfsTnIX7A
X8DwN8Qb2B8M/5XWu64s/uH51yr14/zLi9tvn62yF/bPvsL4mmmY/bAewML4
Sqrm4Tp33h3L4oHUP8X4hviFdoGRz2+x/IN4Iz0PTWT5CO1gtCM/oR2MdsQn
2AsMewr+J9oL8QT+Acb8C/Mp2gP5BPFOyg7C+4JEeyIeoL80Plmz+RDGu4fl
J6xPMPIh6husZ8Oq+gaM+ka63gvY/EnPh/B7jXy2fqX7y3vC+n2oqnquP4s/
yLdgxG/h++L6FcYhsvS8OZjFF+RjMNYn8jnahfGI9kX+hb+DEa8rP5qJ8UZY
D2WMkZ/hr8iPsBfiG+KptD6MY/kb7cjXsL/QX5wf5Gvp/IjzJYwrj+ufzxj5
GfEUjHhSad8D4nxVPj9I5Mp40kz0f2k+usriL/IJGPOLfI12wb/F9QF/5vMr
5gfxH/EajPlCvkU77CmNB2K+wPqXzlc+Nz+ifwvfF+tpMPwN9R38DfmCzx+w
B/wN/cHwb/ibMH/nWT4xrKq/pOexcSxewV7SeHaS+Y80/uUye8B/pPcbeaxd
sDfmZzmr1/h8AX8B4/3S89Fg5n+IV2DMJ/Ir/AUMeyEegLFeYS/kV6wvxG/k
M8Qz6BXGIeYHzD/0S/OvK3d+4crWh2APD5bfMP/Ih9L6oqRqvJGc/y9nz4M9
8T5pPC1m/oD8CZae191j9QHmS3ofcpbZR7L+Dfnfr1W3B/Ij5hv6pfvXKBaP
oR/zJ82fKra+pOd7F9n6lsw3u3+IY/Ul9MKfpP4iPl9a71xl/aX1HH+fK7bj
++qHHs0P29izevj0n19ldXQO0NJhLT4/OZZN9RaV2q+/ISOT5LZ/pYfl0Hyj
iwWh6+RUR5bocudJLp31y//TKEtOM8xGvwz7kEcubc4q1zX3IsPaMZ0/6RdQ
i4ffF5dUyOm+Vd3eDaiQyu44zN/mJiefdpf9wtcX0aONo/55dEFGZemOCTeP
FpPDT7+rxtc9aXBY3e/63sV0MvBU3rornjTA0rRRmwslNGrR1xVfPTwo0Tn2
TExCCS3wbT7z9EYPSg0b4jwjVkmRMzqP/Jl0lHwcvvr9/qYkZ72pBikqNwr+
fM3V41kpNY942nTjf4epYajLiC/DtPM7odh+t9chohkdblku1VCvqc6JQd7/
0MS+431z5mrIwET/V4PoSzTrrUX0Y2382O+rG2VoGEmbBrw60M5IQ+19neUm
X2/Q6e8Pei7qqaFRnz1n3bLIJKu90/vq9NXQ7dyWTd/Mz2LxvHzUHlfNRDmL
Zx90PlvkfZWz+HXOsOa3uou82HoOMhsQWGujF8vPI+YXbdvSGvmrkMw2BR3P
nimnT1k6ulcTxN8bIP/MTnS4c76OeN7fxS40eUa4HTt/DH7VyqS3+27ynW8f
mDpPw/zlp+n96L0jNCzeZ49TRKjZ+XIUObb/78iOFhpW/xp0X+XfqoGG5aPd
V44OiaihYf7dJ2Lx/MM/xPvqHlH/ZLT+It6/JO0btuaPT+L99B8XXxv3LBfv
Y5Q9zBobfxDvo5tE1h3Q6oN4PzM3xnLc5Q/i/XPxp+u1C8rF+5pzDbcUXfwk
3jcbNTVSf/5PvL8pP9z5+41v4v1yC0Xv4aoK8T5n5NnNsW46Gna/VtDMY6xc
V8Pud2LnO6X+rKdh923d2k19ltRYw+57FLQ/6ps2PuL+ba6fXxvXVhp2/7M4
SRVs1x72zaRfa5+2aT5APN8T7JZN+0OCmn99JmP7hxX/hl6xuiBn+4XHGz3z
GgzxYvVAzxaBXk+2eLF4eHtU78bvp3ux+s3+ok/NjAQ5y8czw/zfbrwpo75J
fQZ4+2iouftf5v3Oe9Ojkb4pfew0tO2lB0V2CqDZuYEGr34V0dAt5yf2MJRR
7Q42OwbXKKbH4yfUOtFZRv3MvPu/bltCy3PO2HUa6EnJpic7Z/UpoUGp1iuO
dPCktIEP9CyGKGn2a8v4UH93+u0fsOnXYiWdVm2f9rytO43vNFrzUru/N8/b
2KqJnyuNv10eP9e7lG6rZ9x70tOF/huw/42+VRk12e+WFZXgRG1qbP93krae
eWfyISSEHKi9yTh3Ly3XvWt1ZYuWB3VouzBli4ou234a+DLOnvZvK9katkFF
bzWuo14n2tOjf41/rfuhoobNnFMedLEnw9RYo4e6arrcaX0vnZb2pLPz+PlG
LmqKrdno+sQRdvTrXS5tj9HQLjuzuv272NG30qYD5Dc1NHdEds9eXxyoa65i
c+wpDSXlO1lsOLSLXry51tjFVkMddkRHWdUR6++ZNUIKAyI82X7f1Ty8rbWd
B6tPjSxLKh6uPcryzQGdlA/mH51ZfnF6P/lDnQR7tl8ebxlds3cvOzKP0bdY
q8T6ez4mZomPVekLkYVlrKHd7+wiJ6TvpLHbBgUNChXPj9Au67563eHfx2jM
DHOrouPZ9K6ueYnytoyanb/WqXX7HNqcPNFucis5+SX9XFpf66cpu2oqZpjL
yG9kx34dY3NIz2hnzO1tchrc79KxRmNyaXlKUe2ul+TU2PVH6NTiXNr9dEpa
5wI53akz4+j7JXk0ocdvS3UNLzqy8PMgiyb59G/kJ70N2nzywPZY2e+D+dRG
757sr2ZeFPLlXeTnAQW0N2VnT9lnOd1s6T7o5D8F1OTk2PRez7TroeM69yyL
QqpzwWyoo52cgnNaXFiQWkguwd/NV/eSs3rj+l+b2m7pIqPJNYN2uG0tou2y
ZjfTz8lYvfP6ZMOA0z092XnK0G86OcYr3Nn53mXbRQHHvrmwemFpixVPOndx
pN8u1npWj8X7XNTbUzwavTtK4n1u2aSuY9q3t2f746/lz7+0M95Kq53T9t66
Ke4n6k3vs+rCHvH3VtgP9KrdvZGxSkYPDuRMNO2VQxtTCyev7CBn++W2weHW
L1i+yaYXi8cHrHSUsfrZbpjb0ZqectItlPvbzs6lJxYBPxIi5Gx/bZ58THdF
spzV0yuHrZi6TGvvDF/K8d6TRyaOTlMm1PZi+2/rd7qPBzXxYvXnwquBZS/+
9KKls6zjd5zNpwYbzY/5NPFi9dje5l8ufKrrxfbf02q5ffqs9YdhrZoWPIgr
oOd3PPa9SJSz/WeAz4m3Ly7J2Xnf4rf+PfTmy2nnx8Z53XMLyfqtb6v1HTHe
IjoelW7ipZSxerKg4eGlh+fLWL1ldPLiEDe1Jzv/SHYaJDfP8GDnYV3cNI2M
23uw/f6p2313Kq2Psf3gjp7GRf5j3dj+yG+YyuCn6xFWLzYt/uB9tMchCv1r
1lSPo9Xv/5r1ftuwtnEIjfmcY++4WbwPbFfx5sRVMw2dmxa9qbxjOFXE/n38
90gNHXqhE5eZFkGlap/Wb4zF+8B8K5svg7X1R7eYuOiQyTdp8J6mftbtNJTc
uf3ndzvvUJGzmeXNNhra3te70bna/1LLpdG+TZpoqNGCh3UC9t+lltMGmjZq
qn2+/YIhu9NiSf+W7pCx2nymP0ftYl0RR72NumW1r62hyVZrDjqW3qM9DT9k
vPmlprP/ORpFTk2k17WXhJzU5vuoC2cLdXolkEnSpcMx2vyZk9Xx17Wl96no
fWAD/+9qcnCq8z015AFZ1rR8Va7N/wtXOlsG/kgiRZ/4pqu0+XeE7P61Lace
0s1fnw1ma9uLvqfvmvEumSoa/Vfmrs3XsxZPOW5h/pjC5g19OkrL7Wd4nb7n
9ZQC8n4eWarlthEmt4I7P6E2f6+xWaPlh3qtDn4ckkLmZBqUouUOGovNj1Qp
5KJnEN37q5qKMxOOBP/xnK5MqWM2Vfu+kTN2b5i58Bk5bbP9o0Lb3r+30/ix
js/J2v3e1eHa8S/b7l/Uvv8LWvhspUuBVl+a/YF986an0s3xdfcs19Y3OcsT
VpwN09YXYVM+Wmvt0/jBDv9Zr1Jp95KAdZ219UPuF6N61ptekvGvH0EFtTR0
dYrf630uaZRww+J755oact12/tME3TS6MjEtfH0dDYV2eHZpzYB02vhtT5fu
2vmQFf/b7WhwOv0R+qAwu5GGvAzMSy7efUV71s6xN22oocOfP3uFLXlFLyxG
v7ykpyGHhcVOeu4ZlBKzJKqJtv5YYGciz32TQVv/bJ8X1lJDK9cVOwz9/Jo2
Ru8rD9DXUEXM0fpHY17T/RaH3nQx0NDPOvcMu3x4QwNjJxrc0XLPoGirfxq/
pdaOfeaN0saroMvNeo7p+o7iP54xHazl0ZZtTdK6vCOZZpm8jtYfK9Y9+TnS
JJMOJTW/0q+neD/9flmL7ve09XHvOdO9Wzlk0aKDWd4L+4r31ah7pikbNzc3
F38/YL6yy86+1p6UlDrM99A08X7cZrrhxOM9xftw74OFxb7a+XnecfMDpxNb
aeXZsYbhN9S0psaNWo6Lt9EidcDQVpFqejkicvPdNdvo6rxzk0yma0gdFXG9
jc1mdj58YF1ZtwHXtrLzTIpeY7PPdAuNDPbf0VK7H5g0dv6uhU7LqLdN603B
wzQU0dBJY7V/GRm/rEjbo7W3vcIqdb/+cqp7+ldhSy0bfKw57WPL5Sz/RJRb
TEuIukM19yxob+sn3m+h/k8+/ClYT0e8vzpdd47vif1xFEd0yP94Id3d+Opp
3oC79Het1E/hbXJow0DfVWURiVTjUOgIm/a5ZP1x7tzb/RNpmVtwzbW5pRT8
Xjd86KQwSniz6mD5iRJ6v35F/cjX19l+IeTtqhv1P4q/57vV3r/ieqaCRqTb
WwzWzn+tZX4lwdvs6NNT2cxEbX2aY71dZfp1Hxm65yyz09YPi20vKENX7SPL
ZM9LH9aVUUXGqgVUHMr2l/WU174udXcmB/33f61Sq2iO89Z5S0f4Uv3Y0vnR
SWWklGV/mZRyntU3g/a1KrE5d5bl11YGSaavL4VQamjK1Hmh4nnT4pPmy/eu
LqIOhkVDeyfG0MPbPpaX9xeRU0pIX1ObGOrff3OC3u88Wn44o0mdE/F0amZZ
wre8fNoxMbxlkfs9km2t0fBzaCkts7iQ6tvpivjvKUInlmy+cYpeeU080zip
+n3urph4g0QbdzLoW9tA7aQk9daexVv7XWP1gfGT4z97uV6lj4PK1s1wq35f
mzL1To0PPy7Qyt43mk+/qaYCm9YLHqe4kJ/rpostbMto6sTuk89vDiXdXzbD
lH+oKHNtzbDz8nO0K1lllvW9jC7qbIkYbSLev64ZuDBxutl5Olb+YMO899Xv
Y+fMifTuflW8j5WlhDvYvoylgtN6l7ZbiPev2B80nJR8rs8/d9n+I7XCotvZ
TPHfD878FT9xpjbeNzp7oVnPmuJ969lrjwzlbioK2jK1rsnkMzRueCdT+TkV
9a/o1OR2mj89jsqNTu6gpr9/nWlyatwJVg/5z2u4wWCsD/31475Psxbi/Rny
7c0PKxaHXAmnO8W6k8yWlNCKTpnnDcJvULdzQ7f0rS/WS1i/5uVJyd3mHKRe
hi8TVxhXP2+16rM+1DI+gMY1yGrsZieeByYOH924sVkpqUYmdExrG073GnYY
tXRKKUXP3fn9WoNwKrVdrd7oUkh9n77oVMv0LqsXz/f7amPpdZMODBhkd5HE
+7sr5x/q769fRvlN65n51L5EQ0NvX5o0qJjcv1qM/VT3DkUNe6N66VBMM8Z1
85xREk2JXRfmlMYU0JepmUtXb4ojn7SFT7bWzaaWD6a97/8tkdqOHzFyt2c2
vXUaufBCpvj7xV8jt8dvK5HT9z8Dx1v2UlHk9E4jZkeKv59p4nHl0KfvifRr
mtUP4yIlpfXtEbU/RLx/3pvuNXPc6uu0vfBd3c4lamo4u+i5cZQTpXx9ZBCt
zYdd3jfosKiNIx1ecevV0wUq2qZpvuaaUQCFLbrbwXi+il7JEm6VDgugA4eW
J8UaKqn7vuBd029Esvr5Y/yNvfE9Iikx4+C2tA3V7ydHfYgPyYi7TKr7rjvb
ZJSSev/tuSGeYXRZ5p53MV28n0J95lS+dUPmZPG+MnNVQ/MnkTF0MGjt9j2P
i6iz4YSTbzb8y86/FC5R10ft8qOACQqHFo5a/7tmNueqgwcteGYbO3u5eF+G
88ZJGZM26kZ7ktLZb3THiOr3kbF++c/aWF2iw5FNsnfMVJPv+B/mfWfJ6Wz9
da3Pl6ro0PBbR5JW+1JY9+2dcrX5fapec82lGgfJ+eoco1px2v2e/uuTFwdf
p3U7h4984l1Muq1DPLJ8o6ksWdH+eSD/+4lieqvw31IReouKNmQov/6f+8b9
NZrOffqjmI72f2ZxpvstahPkrTu7YQldr+W2yVF9k50XXLF/Ujzzb/G+sbRC
78f3GwnsvEBvoEuW0fF4dv7uM3edbssGJ0jn2+rMFgPVdO7EsSY/jI5T9Dj9
pfuM1fR74IGtzonifeL48aOPTLO/Qcce1dc96VFCs9ve/nGsXLw/1K1odG1H
O1cavja4XZo2//ZRzvBe3tuVej1+FGo1S7t+txmkXlm+i+2Hpp3UGTCmvx27
DxzzKiV4dnIoNbuy+syg/jkk+/58UfGlRDpz6/se29M5tFup1BTYJtKabaqA
+U65tGSEuc1xZQJdHnpEL9Mvl7w8ZQb9MrTx6oW+ZoJbHhXeHLrdqZF4Xxi4
oV7h6un3aETcedPIJG3+XWka5HP1Hq06cOiRzbkCuurVoOWVE3E0Lu16cstZ
2v3n4BOnRtS6R/9NKNiw+Y6KBtYbGaBvcortF3QrDu3ZXPsaZVu4v/x5XUkm
Py6cOrcygoa57bTfFaWkXqNX2Hqvj6Bdvj2Tng8vo0m1d87zs/mHjMboZ/Zv
K97P4H5whp7BrXNdL1KjtTemtlgu3r8on3WtsH2qpsnxdfo+2HqY3cc0yRj1
XNE2iA5kbu9Wr7mK3Bs5fwu2PUcdlz659aZXISU3Wzy4RupdWhVpUq8oXbwf
xX7L9FuLkDfNxX8v/+nfkVuMwhMpYKPLcKO0HFL2OOo8cLH4exwrjcGBYfqJ
ZOv4wqXozzwaEGS9o7+N1v63PgxYMiqP0oc7JIVYJZDB7O6Rjlp/O+Hb79sC
r3h2fm2Uv/bH6IrTpLw9bUJ+kIqi+1WUt7nrT6H108vjWpbS8ay3WRdyw6mf
1ZQ9n38qufsoJY3qdt1qzVgFJQddi4ibIN6/4H7CLmdpwvu99hTs8uiM93ht
PnU6sN7yvXgfN2pZWDuTOYF0d9bgiv+0+a63z4oWXbXxdUpB+oqI7fkUdzO0
U3nLeHI2HHN5il8Zabr4zgxeEEInBjtbX8kto67Xp2WtrHOe3ScMGn49I3aC
L9vv1V/b8q2xjx15PDp8IeZt9fOYmLU3Fnna7KX/AZIsuEY=
    "], {{{}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Thickness[Large], Opacity[1], Dashing[{Small, Small}], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwNzOlWTnEYxuGdCinzUBrkLUMJJToRh9ABcDIpDag3pKSJMlRIZR4q0UBC
CEWlKCpcH671u5/132uH8o8fPRYRBEGYV5FBMMAgtzgYFQQntJhUezUxLLp3
aomGdA2xLLnTNJ3bdpxe1GV22R2arYW6Tmt1rW5gPUXul6TYO0jmpruHk7TR
TjVfqOErCxTQzwta+ckv5vnNH3rp4z4R/r2CMnuEOcb5zHvG+EAjm3y3hc2c
dr8mw85kL/fc+/SpPqOJy1ziI58oZZrnbPNtPFu54k7QsK7SFq0ix76g57jO
IfcNvUaifVWT9JQOc8B+pPv1sb7jLed5wh12e+vUPVqnG7VeJ/hBrvusdnOX
Lv7yj8DbkM7wje9M0sAUUd4jaba3a6W+YZSHzPKALG9ndKWWa7QepsLO0yP8
B2tYXws=
          "]]},
        "0"],
       Annotation[#, 0, "Tooltip"]& ], {}, {}}}], 
   GraphicsComplexBox[CompressedData["
1:eJx1mwVYVUu0x+242IGJiYJigoHFsriK2CjmtQG9Egaiol4UETGQBhUVRRAR
g0YlpRsOdeiSjnOwsPVt2a6Zt8f37ne/7/hzz957/jOzYmYvR+8xWq/ToV27
dpc6t2v365f/rxzs5TW4/91Bo+0PFYT530rCRcEG3P+vCbf92FcRNmhrUE24
rXlRDeGfbf/VEl7e9od6wnZtvw2EC9se0Eh4bNv7mgjrt72vmXBQ2/skhIX6
/Bl9/ow+f0afP6PPn9Hnz+jzZ/T5M/r8GX3+jD5/Rp8/o8+f0edP9PH9DiX6
kFEfMupDRn3IqA8Z9SGjPmTUh4z6kFEfMupDRn3IqA9ZOH/RzPxFM/MXzcxf
NDN/0cz8RTPzF83MXzQzf9HM/EUz8xfNzF80M3/RzPxFE318P+KJPmTUh4z6
kFEfMupDRn3IqA8Z9SGjPmTUh4z6kFEfMupDRn38c1KIPmTUh4z6kFEfMupD
Rn3IqA8Z9SGjPmTUh4z6kFEfMupDRn0/2t6bQfQhoz5k1IeM+pBRHzLqQ0Z9
yKgPGfUhoz5k1IeM+pBRHzLq45+bRfQhoz5k1IeM+pBRHzLqQ0Z9yKgPGfUh
oz5k1IeM+pBRHzLq4+/LIfqQUR8y6kNGfcioDxn1IaM+ZNSHjPqQUR8y6kNG
fcioDxn18X+fR/Qhoz5k1IeM+pBRHzLqQ0Z9yKgPGfUhoz5k1IeM+pBRHzLq
W9b2ngKiDxn1IaM+ZNSHjPqQUR8y6kNGfcioDxn1IaM+ZNSHjPqQUV8B3xGi
Dxn1IaM+ZNSHjPqQUR8y6kNGfcioDxn1IaM+ZNSHjPqQUd/BtnYlRB8y6kNG
fcioDxn1IaM+ZNSHjPqQUR8y6kNGfcioDxn1IaM+/EV9wrymksnjXhNGfcio
T5g31BBGfcioT+jHG5i43Mj4wSbCqE/oRyRM/1CHPRi2ta8gzPevkrBt26+E
MP9+6R/Mj4MPYf45wYT590cR5m+PJczrTiLM60hjrosI87/ZTPtcwnw8FBPm
dRQSHtP2/mKmv6VMvmpPxgv1CdeBPZPP0vHE9rg+2PEVPq+KMK+zmjB/Xw0z
vrWE+cfWEebHoZ4w/74Gwvy4NDLvayYszHfp/LPzy193J+OD8y20Cx8yHngd
9QvbVxFG/cioX7ieagmjfmTUL3xfA2HUL3xfM2HhfsaH6GfXM98vf8aug5n8
OpjJr4MZewkl70f7wPex9sK/L5q0R/vB9qw98e+LJ+3RvrA9a2/C/LuZ2B+2
R0Y9rH0K89tmYq/C94nI/aw9C/PHZmLfeD+yMJ+n9i/Mz5qJPxD2P5fpP/UX
wvynmfgPvB9ZmG9T/yLML5qJv8H7kfF+1h8J43cz8U94PzLez/ovYXwtJ/5M
uD5LmfVeyqzvUmY9ljPrt5RZn+WMf2fjizsTX9yZ+OJO7B8Z7R8Z7R8Z7V/o
f+qY86V65n30fArtX/g+eh4ljHfujB5/Ro8/o8ef0ePP6PFn9PgzevwZPf6M
Hn9Gjz+jx5/R48/o8WfygyjC6D+Q0T8go70Lr4uY/XY20z6X2a+KCeP6R8b1
jOPN5jO4/jA+C+Nj5R/xVhgfaXzl3XA1Ex9pfMV8TBgfaTwVnpdhPKTxVHhe
5kP6z8YT9P/C/CyKmS96/sT6e/TvQn+axPjLFMZ/ZRBGf4uM/hMZ/SEy+jdk
9FfIwnwe45srYV6fL2G+vy8I8/P6ijD/G0eY728yYb5/6YT5cRYR5vVmE+b7
mUeYX2/5hAPb/lBI+O+2/rB6ygjz82NOmB+OB4T5+QokzPuNcOZ5MYT5dZdA
mJ+PVOZ5mcz7spjxzCXMz7+YGZ8CZnyKmPEpZfINc0avPdN/H6Y/wcx8RzH9
j2X6m8T0L425LmL0ZDPtcxk9YkZPITPfxUx/S3/rKv9jvaL/5++TkPnl+/Xn
fKN/xfY4/9ieXQ9o/8L7o5n+xTP6U8jzcX3g89n1gvYu7E8m0x+6ntAfCPVm
MXqzmPWZQ9rj+sP27HpEf4LtcX1ie3a9or/B9rh+sT27ntEfYXtc39ieXe/C
84pyYt94P9oD3o+M11l/IMyz6Hoqbvut+IPRnvD9yPxzKkl7/q//ZGzP9+81
uc77Gcp8uyrCfP8o8+NeTZh/fw3zPsr8+2oJ8/NQy7yvjnlfHfO+esL8vNQz
72tg3tfIvI8yPy9NzPuamPc1M+/7k3E8hfPrSuafZeH4U38h3N+5MvuxB+T5
GA/xfmShPb1g7Ikyxkth/2KY98eQ6/w6jSOM8QbbI+N1jLfC/VUq6R/GX2yP
LNxPUUZ/I7RnEWPPdD/IMvofoX1nM/ZN94Msoz8S2nceY995pD3L6J/wfswf
8H5k4flSPqOH+jPMN/B+ZGzPMvovvB/zE7wfGduzzPoz9F9Ceyhj1mM5s57K
iL/C68LzHldmv/iAyV8Dme8dqcz1TOb+LCa/zWX2/2JmP1/A7M+LmP6VMfvv
UsYeqf9m/THrb1l/gSzM532Z/r8g44n2i4z2KTwPSWa+n6QzekWM3mxGXx5z
XpBPGNcXMq4X4flXGbNfofGRjc9s/BWet+P78gnz7ysinN92P23PxzG6HvnH
xxMWnlfR/FHoDzIY/yli/FsW8zzqT4TnSTTfFPq7POZ9Ysa/FDL+opjJr6g9
8ssnlulv0u+/x+tRhPnxeUWYf140YX49Yv0D9i/l9y+u10zC/P2U+edkEeb7
k820zyHMj18u015MmB8/MZlfvn0BYb4dZf6Xrg9+PIuZ9nS98PNVSph/fxnR
z+uNJ8y/P4EwryeZuZ5B+s//ihi9lPn+5TB66Xjx857HPC+XuZ/aB9++kLGf
YmZ+2Plj5yuX6a+YGV92/NnxLiXrCf2VUJ+I0ZPN6Mlj+l/I2D+dP/QvyOiP
cT54jiXM64sjzPczkTD/nCSmfRphvn/pTH7wgrGfl4T5/Cjk9zijvw4i17F/
yLyeGPI+zK+QMf4ho39HxniAjPEA/QOeJ2D/kfH9IW0PiGDyJTEzv/lMvMgn
97Pjwf+GMflcILnOjgc/TvQ84P8eryhmvELJ83E8hfaQT8Yf5wOfjyyMF8HM
eAYx8TaI5D/4fOF5e/7vuEbjl3A+Qxj/EUyeh/aFjPGS/6XPE36foNdZ/yis
P5Aw3+slzPdwGi+F/iyF8Q+sP8tm7DuXsW92/RQy80P9syC+eeB6ec7YZxp5
PsZjZIy/yMJ6FBovhfb9+3tWM45XPnk/ry+EnzcztJcYJp6G87qScHzp/bw/
CCYs8Afb8HosuS5cD5L/J55kMPnH7/quWaiHtsd8CO0VGfvL23sZY79xjH+L
I/3l+xfL2HciY9+JTPtEYn/oH9H+kFE///cvSHvevgMIo//gpw37F8RcD2PO
D8PI8/l4FE7a43jj83C+hP0LZuaH9pf3N2HM/KQw+V0KmR9+/acy+QU9X0Nu
W8f9UH8mY5+ZjL+i7fl+ZzLrPYvJF7OY9lmMPdB8Fhnb8+s3i1m/iUy+KGL0
i8j9/DoUMf5FxKxn2p63ZxF5H389jqxfXg9dz7i+cbx5f5FCnse/J5PRQ5l/
Ph0fvp/ZTP7D7h/FxH/wf0+Z77+YyQ/iib0goz6+HWV+fcWT+zH/FJ4vJJD2
vD7KfP8SGP2sPjre/HvoePDri7bH/E34vjim/4lMvEhj1lMamR++/2lM/kfP
h5CxPR8vKPP3pTH+9iW5zvc/lTDmS2j/mO+gvSMLn0eZP4eNJCw4X/Og/gb9
CZu/YPzBeIL+X7ge6HXMZ3A8MJ7jeGE+gNcxvuN13C/jdYz3eJ3dPwvqF5KY
eChP8y+hf2Hrs6IYf0b3k7j/FOafrxj/Fk2uIwu/X+Qw+UIOc/6Tw5wX5pL2
uN8UngflMueTdP+B+1HheYyYic8FzPMKmPVbyMSHAiZfKmL8CZ0vzI+E9lHM
PK+EOc8pYeJDKZMflTL2WcboK2PytRwm36fjK/x+T/evQj3ZTL7Hni/lMesv
l9FD80nc3wrvL2TsoZg5ryom6wvtG9cXMtob2rfwffnM8wsZ+6L2xMfrMuL/
MT6h/fPxJoGx/0Qm3wkl/gPzC2F8ZfO9TGa/l8X4V3r+zZ4PIgvPAyijvxTG
D/Z8LIPJH0Tk/RhfhPbE2iN73lPArO8iZv2XMvvFeDKeGP+E64ndnyQxnMbE
f7rfZ/0ru59j/SsyXkf/iteR217bTPNLnH9k3D9iPoPzhyxcD9TfIAvPK4oZ
f0TtAf2B8PyylPf7HnR/IDz/D2Xy15dM/HrJxAd2/x9G9GP+jozxEvXjeU6b
LjPaH9wf43oS1gvmkvsxHmB7XG/CehcxaS/0781k/QjrYbLJfPD9jSP2hCz0
r3GkPdo/tkcWns8lkv4Izwfpv//A/T5e/+W3Wn9KIeu+0b2R204R7nJj+pYr
FvvAXCa1aqeIfm884xqr0ZJI6w9sNN6bDiyj89s31+2K6BWN31dKR+5uiaT2
duPH1bk3Iuj5wKP3E/vdDaf+6amstnZjGPVHH0zM+x8Mo+fjx5Yezh8QRs/D
L3+2v1ERSvOb4XLmlqmhNJ+53L1he1YozV+efPRu/yaUfm+KU3/r55kthWOl
628e6eoGank+Qf2TufU0epNp7g1fUGn/ruBvTl+ejIfFG72XsG1IwsG10VKQ
fnL9dnD9K7DWrPimGSWFLythr3txHORMnRRXzOnboL3izeQDyaDT6NEni9P3
4taGCM2P6eB0qltFb47f3XhYoR4jgsxdS8stOD17f3qs2SCTA2bXesWM49hZ
9bnNS608GOFnIG3g+rvpdTf9A7fyYZ97tXIGx4cb1v2nXV0IMd86dvrFFd1T
/U2nlMAG5bl96zh++CxOR3S8DLaccFr8j1k5aMnu8FwrtgFny+FfVDzKYalJ
+4okGVt4eKLI3sWnAvJTimd5l9tClzyJpv2rCrATaaQsf2sLxxaWGMqLK2Hf
6fP2XyPtwH2+QcGFskoYtqz3wlHxdrBikVb89W+vYcPX8gSZYHswnT5P5D2o
GjaqHbNRqXEAp+02dtUqNbBU3ty70xtH6NNi1Gq6rhZyvrdXvpfpBGPe7zsX
eqgO0mLffcw3dYaHWnmTZ9jXQw+5rdd6lDrDAt/KyVXBDRCRvctvY6EzzFE2
651Y3ghTS/a4j5nmDDOXqNXfGNAMX7v0t5m23BFUc+4VyatJwGrIzvDJ9bag
KPsosUhbAi5vJsYvsLeFkX28fbdw8WXrzf1Hf7y0JOvAeYZY78LXaxCYYBud
e4d+b+N/qiA24MsQ82sOpJ7vrZvVBMUGR1LPt274bP3gvs6/7bIWTg/cJGP6
1fm3HdeD6vJTpyKcXUg9X4Xqptcu8S6knm98atmU49oupJ6vU6dVUqMSJ1LP
pxTkrTNunz1cXWW5dE4YrR9A/2jR2/OMzWJzuNR3az/7QlovoG/8aM26VFo/
pXPHxrBrOT2/uJp81rRnDM3Px36xSkuJovuNas3aqlmR9LxLsmJRSr8Iep52
7kzSGrVwGr+7XPuh4xlGv28dVc+YOS+Mfs8qKTSY/jGUfr+6uMfRMjuU5rvL
LqvP/2W/mL+637V8UhpK81Gsd11yct4cSTp+H62GW3uOTjFc7EjqXbd2N13W
bOFE6l2bvuvFKNg4k3pXk7yUkK0bXEi962GFF53dIlxIveut7/pGq7xcSL3r
l53VBovjcD6bwbj3QNXYU47wPWmloo1YCts8DniHcfOXMH2/zzfOf0xdplsS
E/4U/paR723O+Yv6m/ukbz5EgeOiiin7ufE9lN7f/b5tHFzKOJDWzI3nhaWp
3cWKyXDqxo+QYm48P07x6qETmQ43eoa4yXI8f9Bz072PRDDOVKn/JW48r741
07j/PhtUhi5QVuS409CKoEtqeZD83aBXEzdel1dm3xlvlQ8tcg6LfvmHv1Z3
ybIQFYLZ1vqR6b/GX7/Ry2doCex5ck+thmOf06GtbnvL4KHpcauIgeUwwC2g
i9cYG7iWstnJdmAFTFyVOViy3xYK1p2bk6lcAXeU/Sx1z9mCSrnJ+qOLKsHv
ervr39bbgddGJaeTayuhXYeOsyx22MHY77c7+ui/hovN6657K9jD036bFocY
vgaFR3JBgybYQ5nX4QLlSAlkZI9KtjtvDYPWjF8b21kKD1oKRO7fLsGIbRvE
w7j1aXUoa+OAI/9BVICBc0OpFHoM27J76uqrsG+9xc63/lLwNRm8ut2ac9DY
kjH2XIYU6nwDOlas9YTZU00bC9KkcNwq1em85kNotItU287Fp6Oz5mo/XRID
8/y6q8zm+JrVopFKLjGQbXZojiu33jed9zr0rTgBkud8M7rA8a1V93Y8HpMI
n25nbt/KzZdC4LyHGsap8OPrOclKjus3tZb3800F51e5noe5+XoVZtdr2IVM
uGYUonSA4790Zy/VdcsEq72H7idx82V+3CfDJoOLbyq1K2I5fhri3riwNgtk
9RzvaHHscHr6pbtDcqH3hPm71nJcd8rlypmpuTBpx4bGzhy/bjngtGuvGJQV
66d04nhindLD7ifEMCTJvF0hN58WWuu7lTwugNRoVaMCjp/+3OObH8XFxwvn
96dw/Mx4YfqI1iLQuauc+4t7vFGVqexeDLeO248Vc+xmf7pWCUrhbeTA//I5
znl75O1ILcyfy2HBhW8d73+yIfXpp6oOJyVy/pa3n0o4mmOerxhjR/If2ZNf
eyYn2JLzkuQhBR8WLDoH866nKaj/S+s/+4Q2HRyZS+uZNtWdMTqVTOuVAqtt
Ko/F0fMTk3kbM/Si6ffCCbse7t0SRb9nqSw4XlMVQb9nGZ/MURCH0/Ocbasm
De4fTs+njnl8KLYMo/U8M4xvVo0Po/U5XY1K9RtDab3N2elHJ/6yL9zffZ+s
fv6XfeH+Tu627pDaUFrPwvezAo7eXmblesyW1JMfl93+8N1mO1JP3iVQv1RX
kdZ3OPo56SzceRUmVxsWT6mi43XQoURsnU7rvUwKe1vfKKfn3Z1vmEtjY+j3
Bq1BayKWv6LfCw07ZolsIun+0rif8hatCPq9UPGAdLZBOD3fe/LpeG58GD3f
mxxwqGZdGK13Ontqw+dOYbR+aYCXnNev9Yf7s+/zI2xSQml90czFWtHiUFov
hPWK17SbkrR8cXzK4cC9OacPnrIh9YirNa8HP75mR+oPLX7Utdjq2EPHfmZ7
PTtWwY99Sh1E4fbgrlfT/P1SFeRviNO7st4B/GqHKI91rYLFrfOX6O5zIPWJ
mT+eJBx46ADD1B5IVyhXg+TOf3vmtHOEuulfZO56VoPixtIk20OOkPDszrPB
SdVQ+GxJRqqtI6lfbGeinLQoxhF0TQ9XWe6sgVFlWmLDgU4wsYPD17PRNdDZ
WftrqK4TWKU97XntQw0UjwjSn2rt9HvcaqH9u6MjQ32doJ/65eXyV2rhZmPh
zKxWJ/hk9bygtLwW9DqrbtOY7Az1AzNC5o+qg9QKpauha51J/aOlzKoR2nrO
MGDlwoD4wDqwNu++P++6M9xLt7os374eDt14pVMc7AwBnU0ePF5eDx/sjs8/
lOpM6iOHa0yLzc9zhrcrG0yziuph9cYQ1S51ztD3afiIXvINcP59SMd3jc4Q
O3XRxv6GDVB4ecWbbzUYTxvAa7XVv+1fO4NsnMZqtZ8NcLPPgLOzY5xBr+lf
hR8rGuHNEfd+8+5y+ZH46e2+No0wTcOg8LSxM6mv3D5D9aHdJmcQ6xvvUJFr
gsDIvF22UifwmbplsOREE1zS0h9iaewE88Vnn433boLHtUNbcuWdSP2lxtXK
9MJER/hnekrmPOVmkO8qd3HjDwdYV9t5Xm8uf2r10qt7tMceHtctOnw6pBns
Uh91VP/HnuyPhqytKCnytCP7VQWDN14nFlqR+qykSZ6at+bYkvqsWxebdb+P
xvavoSllob5eqx2pf72umawQL+NA6l2PjxvSY/A8R1Lf6t4zKXPsQszvauFT
hPa1wP7OpH5V0imoYoe3M6lXnfLs/facRsw/GmHd4a09ewQ5k3pUPcVD99aH
Yr7TDC3zneIjtziQ/WPodYtlZzfYwBedrlPSuP2Med/bNT+LQ6Bi8NlrSpy/
2D5+xrxP457DI1HTohDu+loHc4+M8S/hxk1HmYsVUvAzav5ZNj8AvnmoXCnl
2tt89pMuvhEAHb4qrKzh4rHX4Qntz5mEgYeu3YgZ3P2rJ3xoOe8bBj1H1tqk
cNcn7r85f29rBKhG/hDlcHz0bl7PKVERMHnYhFGWErp/T74ftewXd+4w2vHe
mmA4cLy11ZjjT5kZH5WXBEOI2cUlvhy7LO0+MG54EJTNVgl34djLbLXqTaUg
CBqw6YptLv1+feTSRNVJKfT79YiGHncSY+n367Kk3Wd7R9Pzgquap1OzuPs/
rNI13j6kAOxsPxzy5u63/XZvzZTVRdC+vvPzSXES6Jglc2jL5RJ4MWqwcbi+
FO62zLu491oshKnazTnBseuiTo+XuMSC5ulvFr220f3vHMu8T4E/6PnnpwGz
Aj43/PnvBa29h6/OU8iHGmvdbkuK6fl6nVHEj7wM+j3cuvOirLMJ9Ht4/PhN
W75E0+/hClojWtTjuf19fUSx4tkbMOndh5kOL6XQt9VG5nTsM1g48MKCPT5S
qNrlnJCY+BwWa2jGLH8ohXtjz91SuPECJLlDxyRkSsEzr2BMRawVbNb2HVzC
xQf10c3tl2x7AB/6RN3+FS/0Rz3x/rneCzY4WXfw4/x5/cniM7cOBkLTijob
V45HxsnNWvE8kNvXOi9fGkD3H/k7ZmgYu9Hzg64jN5j+NVwK9/e8sZxzLhNM
ahy7Gw2VQuJdv/s2DzLh85ShE+Yb0/glijORWaNF41dip+VZmxZx8VGSFzw3
LBkMzvgsl1GUwoqhHwPX1adDw4/vmTpSet6zKTlyx4Uyep7TVUYl2zaLnieG
KGw0nJ1EzxNdtgwKjo2h54l2zp3aj7tA8w+3vQ/aH9lL848kZzU3tc/0/Oez
YZJOSQ2tV8p/fcEzP5+eFw/fsSttVxo9L/47431rl3h6Xqzr0ZS6P5qeF+9x
M1YL4e5PrN45MNglH86vbJCvTZXAYN/wQtNPhTCy4OW0W9x6PRKqs3Hm2hLo
EKF4Jpm7f5Fs9urvd8rgxSAVr9NT6H5u2OqaJu/Rf9YzzsrtO/XqpQxw6rb5
TWs3ej5zxbPFs/qyFKJeykwMNY4C21Mr5rtbcfZt5hdX9TwKpmUNFy38TwoL
Qq6GfusSDdvUIcbOXAqaqf/WfT/+CvRPu8zNMZVC/tyWXjfPRENVvdrqzse4
/KxBsc+ZtTFwR0WteNVpep50YUB84+B5UsiIfKcjSkiB+Oq3ltO7SsHpzGPZ
mvNZ4Pxkh9aK9lI42VwhHa+QDSnTjxy/91YCa0WRnr5ROaDz8mzXiBYJ1H8q
8HrzOQcOD5G70tIogffnVeJynXLBfFlQyCKJBF6r56+YuyIXbFx/3g6slMD+
pLEXvtZz+d+wrroh3HqZtV32zFgdMZhFdtulyfmLQElSa960Akjv7fi4iVs/
d0YqbinwLAD7gEDrpZkS0PD9ClnKhdA7wbhlOnf9uaLFl/VJBXDOS3HCs2Ru
PpZkt6rYFMFWsfyGQG69aWTbz7UuLoKoBPkvnzj7Vv0u77PzYDFo9xqqEZYo
gbAI86I944qhd6Nc5r+cP3tePn1eRVUJFNxTCxnKcf7V3g7/DS2F5pWdNRZy
63XcpKlF/XxK4cpM42kmHFc7DnLrf5LzD3Nsc8O49ZCdd/hkRo8yKHioP+s2
x2Mm2xYOnF8GivrjpnbaKgWz69/0VCcmgHTHq/2O2lx8uLt6psn9BAjw2zLB
GLj97pwbW6d2SIFbQa7n9WSkMPfg7K4ZslmQMDr3xbsP3PovvzNiwT85YHNX
R335RwkE6AyQC5qdA81G/6WqfpPAitCALqueZYPFqMPmN75KYNfNnP0PI7PB
bEfRwKOvJTD6atGnPSl58Khe3noVZz+mw4vVqnbkwY4Tmy3Hc/4zssW3x6qc
XBghUdO0qJVAxFjzAx+n5YGmq1JXPc5f7k16+Gb67kKo3zxsagFnX8OWbvNa
GlUI9zt26taDG191uUXmPUK58Ywe7GnC2duXuW7jPL4Ug318P99PHWm+O2Jb
y/e/e9P9wtx4kYt0rRTORRv1kjuaCB0bHoscl0vBI07h0NAXSXCoNiLZn+Pa
Gus1A4KS4GC3R+KH96WQOqKr0piclzBU5438qpk03w55vl/pzFK6X2lZYHqo
2EEKWgmum7LTuXg5dlHIZY47qq1faVodAX0e1/peL6T1dNqD8jbk3ebyafFR
97KZYfB3s2hS++c0vnY1PL6z9Nqf9XAFj9Zt7LsoEizjDKQBh+j3404/PZNO
P6X1R67GqtF35tPz268uEe1ODqDnP3gevXe8T8+CldlwqZ/RAc0nUhixTG3M
2ZXPYWtUWNO49/R77NGmm8N6vqbfTw0+jtx1VZ+eP829sPTw2JX0/Am/D+w8
6lXX/kESaN5X/PYrPk48ePPy4/b58MRe3jzEXwohAQb9rb8Fg5X17UGHn3H9
tZ255klsCBxb6Okny8WP5SWaM2ZdjIEcg6UH+h+WwlB5z0TrtzHwrEPGUE0X
ul+S9Rt4uXcBZy8ZXVKuWudD9+3d+7tw4123rLlAtCIf3i7pPzGAi2clfhE3
lKKDYfDmpzObOf8JgxT8D37IgIsnO5WNHEfrrbruDt07i+PSU/0Ojz+YAeef
yj325ezt9jmLhgvpZWD2t9+xOxwXTJBpOVlXBmv7T962eD+tl1BSyP+Zy/Fl
rfTCXn3jwLJli/KxNVL4eCLX44pPIiT//DQ9mBuvveN0kjVlkyC5fLprjCf9
vjLPTf/EeS8pdFrysXZf+gvYM+rREA9uPzh/5es3B9z8YePEc/tmhtL944Si
hO7jufVjUzLF2vJxENjJ5s1Z4iqFa4G+6UMKw6DLUwPlp9elsDWw6If/+XBY
Zd/LpSpECgfsjZ/LRwaR/b6HnG/jG5lgmFnh8TMuiH6vuqPycNNOzh667o1Y
3Ln6JVyX9567k8sHztrLX9XLC4X3H6Vy1aq0HupTtzUGihzvNqxzaFmSCiqm
RvXS2VJ45KZ0zmRVKkyPbqmePoLWQzWoGhnXynH5qDhgnql2JrQO+Xry5iBa
/1RaN3qz0hApVA7Ny3GLzYR0SaCKVhda7/QjZFAHFY7Hvnil+OxOFpQpyYqX
dZLC+4HPupVmZUGPvnN2rWlP652OrKnUOsXxznc777mOzgZdXfV9QZz/sJyr
a5ZfmQUmsfdetK6XgoPZntvLFRJBd/NSFX8ZWu+0t/CB6e6eUpih6f/XgmoR
WD/Wg5G9pGA1w7JpSLYILnXupnOkL613Wv2fsWpjHymYBmivtLYRgXaigtkj
jsNW6BlZOonA6bJKUC8dKWyemJ4z1zEOZLVUnK7ocTy61x5YEAf3LmXPreDW
29/9vY5FXyiDWnHflb/iAX4vVKmqH9SOs/e1zxtil7unwLjozXMucOtb/a7L
yKFdMqEO4lp/cOOdZXa5+fuCTND453GP3bJcvqU4I3NqNxEYxgVPHcqN979d
Q+r/ac2EskcxDjFc/qBlmvnCZ2sW/DV2ZXBRCa2H8tDQurGJs+eRy/vMm/RD
DLLOfReXcNenTBpr8TJUDN08paW/8rVz45yVao+JYeayub2HlErAQPFzmIWf
GByXDPSauJPWR/n/PaFX8T9S6Pck6VyHW/HwcsY2B8MdUhg42cFf3TIeigrv
ryrbw/lzzVKPOZVxIO4WaKC7m5sv/T1FlYPiYbJi9uZhm2i9lIz6k2lruHjo
Kj04bfCoBNiwr9b7n41SeNfu4r1hGQkwWG7/vTl/SWFHw4k1fjOyYGJwulpt
fylYrMj8p05dBLHdvQf7cJztaWJapymCB8oNN1cOo+crEvvW4OFraT2U9Ux1
w9zptP6p6IFTn2nTpCB36e2afVZpEPD69tEd3PUP4u7vojelQaS1ld0iJVr/
5GT5PiWEy3/Nbrn6iJPT4ewpc9k+3PUjSVEJw/amQ8gVh5tKXP438dWRgIUl
aaDtGvhg5yQpaLfrPlw6IZ3UJ9VW7Fi40u0lHAsJVPeewcWLkixZz6xUsI7O
2aDEsYpo79ApNamQG/VBbosiPV97cF1X6aIDrZfYaXLn+HrOv2qoD+4yviwc
PinWZ/7wpud5E1Qy2+28Rb/39ioL63aAi0eZd+cHJf5F65229u66J8QwFmYN
N88JNqT1TzvU3CIfcf65Mi7z/p1l+ZDyr+au15f+179nMZwi63aW1g/NM/Zr
mHyC1gsdezZ7cOgb+v3Xop/zxXHNtN5n8dzAnQsr6PfeKu0DqV1zaP1OpmP+
+wnJtB7nWvn6gxBL62vCdww//yia1stcPTyw+kEr/R77etagV81faf3LBqeb
nxuraL1L/t2Dooo6Wt9yWu1fB4d0Ws8iUTXdHRZP61feJqm7n7Hh9Ha51Xy/
PhJuqpvLh4+n9Rf4vXffiGn2Hj1MoPyJ1sJdr+j33n9PfujU8px+7+35X12e
QawUppT1WT931G3ovG3E1P3cfvLeX0bXDwz3BcO+0d72yfT7U8yqA7t/nQ/i
96cRkbNrR8bR893p4WabTr2k57sKFoOuTs2h55tGRhP6XIug55v/A5UQvJU=

    "], {{{}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Thickness[Large], Opacity[1], Dashing[{0, Small}], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwNymO4F2YYwOH/qXPCcq1le9n2sm3sZJ2TbXddy23ZbotbxpaWbdu2cX+4
r9/zPO+bKjS8ZlhQIBD4yvjgQCBhSCCQgBLssBfXLXqdnuZrOosrXGUdl+nh
7ZKOYxLb2cxz+nt7pjO5wEXWcp7u3s7pWCayjU08pZ+3JzqDM5xlDafp5u2U
/sYEtrKROO5x+WTuqNM0mk7X8lqBclSiIqvdT9LVfEIj6wPtow91A4/pa3+k
UzlGF/txXcVROtuPaCS9o730rq7nPr3t9/QPgs2HNbfmIS8v7Lk0Jzk4ZC+r
u7S23tb8WoCCvLQX0cIUoi51iMgvlCEb2Vnubz1dplk1C6UpxX9uP+pOja8/
MZCV9pbahKY0pjnN+NdbQ21EA1oQyjv3zPozmThoL6kRuGX+i/e85g0/uEcl
KUmozyv3fPqn1tKbWkNvaE39XatoVSpTnWr8415Ui5GIxExxi6KTtb12oB0B
YhGTFd72E27epwfYS5j9f/2bPXSy79avDDB/04+0Mn/Q1hqbNKSmLZ/dM+pS
zaBv9VdNRnLm2dvoXA3RIGIQnSVu8TQ96UjLF7dUulhT6iJNoUMYxijmuI3Q
hTpGF+hgHcpIZtuH63wdrYP4Dj7JhZ8=
          "]]},
        "0"],
       Annotation[#, 0, "Tooltip"]& ], {}, {}}}]},
  AspectRatio->1,
  BaseStyle->{FontWeight -> "Bold", FontSize -> 16},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)\"", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(b\\)]\\)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic},
  PlotRange->{{0.5, 1}, {0, 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6535286922920313`*^9, {3.65352872636137*^9, 3.653528749901703*^9}, 
   3.6535289266425962`*^9, 3.653528998016712*^9, 3.653529084595139*^9, 
   3.653536302205595*^9, 3.653538530277604*^9, 3.65353885314191*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fig. 9 (b)", "Section",
 CellChangeTimes->{{3.653538568062193*^9, 3.653538582869488*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"gainM3x4", "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"x_Subscript", "\[RuleDelayed]", "x"}], ",", 
           RowBox[{"C", "\[Rule]", "0.7"}]}], "}"}]}], ")"}], "-", "gainM4"}],
       "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["p", "g"], ",", "0.5", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["p", "b"], ",", "0", ",", "0.5"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(p\), \(g\)]\)\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(p\), \(b\)]\)\>\""}], "}"}]}], ",", 
     RowBox[{"ContourStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Thick"}], "}"}]}], ",", 
     RowBox[{"Contours", "\[Rule]", 
      RowBox[{"{", "0", "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ContourShading", "\[Rule]", "None"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"game", "=", 
       RowBox[{
        RowBox[{"C", " ", 
         RowBox[{"bmMx", "[", 
          RowBox[{
           SubscriptBox["p", "b"], ",", 
           SubscriptBox["p", "g"], ",", "3", ",", "12"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "C"}], ")"}], 
         RowBox[{"bmMx", "[", 
          RowBox[{
           SubscriptBox["p", "b"], ",", 
           SubscriptBox["p", "g"], ",", "4", ",", "12"}], "]"}]}]}]}], "}"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           RowBox[{"V2", "[", 
            RowBox[{"12", ",", 
             RowBox[{"game", "/.", 
              RowBox[{"{", 
               RowBox[{"C", "\[Rule]", "0.7"}], "}"}]}]}], "]"}]}], "/", 
          "12"}], "+", 
         RowBox[{
          RowBox[{"V2", "[", 
           RowBox[{"4", ",", 
            RowBox[{"bmMx", "[", 
             RowBox[{
              SubscriptBox["p", "b"], ",", 
              SubscriptBox["p", "g"], ",", "4", ",", "4"}], "]"}]}], "]"}], 
          "/", "4"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["p", "g"], ",", "0.5", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["p", "b"], ",", "0", ",", "0.5"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(p\), \(g\)]\)\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(p\), \(b\)]\)\>\""}], "}"}]}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Dashed", ",", "Black", ",", "Thick"}], "}"}]}], ",", 
       RowBox[{"Contours", "\[Rule]", 
        RowBox[{"{", "0", "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"BaseStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ContourShading", "\[Rule]", "None"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"game", "=", 
       RowBox[{
        RowBox[{"C", " ", 
         RowBox[{"bmMx", "[", 
          RowBox[{
           SubscriptBox["p", "b"], ",", 
           SubscriptBox["p", "g"], ",", "3", ",", "12"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "C"}], ")"}], 
         RowBox[{"bmMx", "[", 
          RowBox[{
           SubscriptBox["p", "b"], ",", 
           SubscriptBox["p", "g"], ",", "4", ",", "12"}], "]"}]}]}]}], "}"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           RowBox[{"V2", "[", 
            RowBox[{"12", ",", 
             RowBox[{"game", "/.", 
              RowBox[{"{", 
               RowBox[{"C", "\[Rule]", "0.7"}], "}"}]}]}], "]"}]}], "/", 
          "12"}], "+", 
         RowBox[{
          RowBox[{"V2", "[", 
           RowBox[{"3", ",", 
            RowBox[{"bmMx", "[", 
             RowBox[{
              SubscriptBox["p", "b"], ",", 
              SubscriptBox["p", "g"], ",", "3", ",", "3"}], "]"}]}], "]"}], 
          "/", "3"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["p", "g"], ",", "0.5", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["p", "b"], ",", "0", ",", "0.5"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(p\), \(g\)]\)\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(p\), \(b\)]\)\>\""}], "}"}]}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Dotted", ",", "Black", ",", "Thick"}], "}"}]}], ",", 
       RowBox[{"Contours", "\[Rule]", 
        RowBox[{"{", "0", "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"BaseStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ContourShading", "\[Rule]", "None"}]}], "]"}]}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.6535385508488913`*^9, 3.6535385584065638`*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJx1mAtwVNUZgCnqKLXyMAxSMTYBYWBSQSIoUpJfRfBBLaBGbMEqFkTBoDKg
go6gLVqoIqy8rFhLENKQUXQj4RGjYZFojIQ8SEIeJmsw2d1skoWCiii2dO9+
/51z1jIM4cs999zznf8/z+QHHr1jdvdu3bqNO/vP/346f/zC/271XHH275fK
Uby1RbkhP/Ps36PK0ceer5QzowValaPFG9qU/xP9E1C+JfqBkPKaaIXtyvXR
CsLKg6Lf61B+JPq9TuWd0e91KTt/jlnsF8crS/CF8YXxhfGF8YXxhfGF8YXx
hfGF8YXxhfGF8TUZX6/l67V8vZav1/L1Wr5ey9dr+XotX6/l67V8vZav1/L1
Wr5ey9ervo5HgfrC+ML4wvjC+ML4wvjC+ML4wvjC+ML4wvjC+JpMfH1WfH1W
fH1WfH1WfH1WfH1WfH1WfH1WfH1WfH1WfH1WfH1WfH1WfH1WfH3q67SrWH1h
fGF8YXxhfGF8YXxhfGF8YXxhfGF8YXxhfE32x+otVV8YXxhfGF8YXxhfGF8Y
XxhfGF8YXxhfGF8YX5P98mO0HYfUF8YXxhfGF8YXxhfGF8YXxhfGF8YXxhfG
F8bXZH/sO5XqC+ML4wvjC+ML4wvjC+ML4wvjC+ML4wvjC+Nrsj9Wz2H1hfGF
8YXxhfGF8YXxhfGF8YXxhfGF8YXxhfE12R8rV6O+ML4wvjC+ML4wvjC+ML4w
vjC+ML4wvjC+ML4m++Xm6Hfr1BfGF8YXxhfGF8YXxhfGF8YXxhfGF8YXxhfG
12S/1DkNU18YXxhfGF8YXxhfGF8YXxhfGF8YXxhfGF8YX5P9Mi/63hfqC+ML
4wvjC+ML4wvjC+ML4wvjC+ML4wvjC+Nrsl9/4mvuu1qsfedRZXxhfM19TJuy
eT7yi3k+8ot5PvKLeT7yi3k+8ot5PvKLeT7yq6/Z3mDMyxN7P6TstLdd2VnH
wsrOD7+y2U8ea3/osfaHbv1OP+Zq/bDTH51aHub56ujvu/Q5zHPnexGrfces
9kTivue0K1/rg3nfrt9+DtM/DjdZedBkve+yGR/3vG7GI8uKR5bVX1lW/2RZ
9XPejvyf973W+16rP71W+/yWf5O1//dY+3+Ptf/3WOcf4st56fXY9zuVB0Zf
64pjpx3vxvrHLe/40f7nle3nTvu3WeW5L/Dr+3yP8k7Y3fph6ocpb/bXNq3f
Kd9svd+s45P4mecxdzzx3Pl1u7bHHJ/Px/onpEx52mu+z/gLW/0X1vJO+8JW
f3Za+duh75NfPCdeZnuPxfUf7YGJt9lfucL37Pf5Hv1t5y/9bT5376Ps/CR+
MPlinu9zNX8pD1OefILN+ep5y9+977Hzhd879Yfi4mXP5/gRP8qb7LHWj3et
+41cLY8f/W+zOX+5/WHGP0vz3aw/ZL0ftt4PabzN+5hcfW6WD+t8bc6nXo0n
vub5Pl+fO93zfqw/AtpfMN9nvXXqK1J2fn6s49eJU4XOt8536q3x6rHik6Xf
M+f3QNxzc30KxrHT3gJrf+BTdtpXovGw2fl5UH1sNs/n3C9Uaf/b7LxfrfOJ
zU65Wp1PbKb/WF9g8hk2+8u93/zp/nLvh2x/+/7E9rfP27avfR61fe3zmu1r
nm8Cmp+OF/HbE2tPMOb5ic4XTvs+03xz2vG5rgfO98t0PnHqqdR8dN6r0vHh
lKvW8e/8vkbnP+dnrY5/Zx48ovOhU2+dlZ+5Gh9zfgjoeCUejC/iZY63YGze
PKD9b44/l/F16q2I9Webtf62WetlwJp/A9Z6GbDWg4DOD+b5oEjjNz/6XqFy
9GtX7FMfp/792l6nOeU6n5AvsHmejmh/s57AfI/5wZzfCtSH/KL9sOmbr/Fh
PJF/5KM5H5boeILJTzNfw9Z9lZufjB/Gm3l/6eYr+Ut5877JzWfGG+OT8QiT
3+Q75Rm/5Dv5b94f1mr+Mx7IN/KdfIPJLzufyHfiAZvx3G/N5xVWf1fo+Lfz
yWlfo7J53+DerxIv5g+YeJv7qUrtP/rbXI+ytP34kq/vR/9Tr/nGeDH3z0XW
fsKn+Ud/mOvPQWXz/tcdX6wn9Aftcco3aHsYL+S3vf4zHuhv+od8NOejTuv+
1+0/8s3Mb/f+kvyjfy947LJFXUnu/uHuxQsf+3i3ux76Zc6EIZeG4ta/xHfS
n2hM+URGbn3zbfnAXf/GjP1g+BtTwnHrXX7GvnNzPJVy+oEDL6dP6ohb7/44
f3bPu1Kq5dSfBr7VOj9+vbug/N87+s6slb7ztlf0Lu6Ku79L6NNc8/3EOpk7
I+/2e3qHJH19v5LlK4tl6ku3T829OiBfb3tx04O9XpBk34SN5ZMCsr/g5m87
lq+X++ce3nnkxYAsfrb76NdKc+TujecUeWcF5dr9Yz2/zy+SBRkn6x8oDEr7
JT+f1NK6X75+vGLEH5rapXTFmGl7Lq+Qz6alz7tycUTea8lecG1qvXxxffYb
mXPi918vfJPvf3r3Fmm8cWxT3Svx+6sfp/x1wkX3+WT333fu++7PIem/bth3
/Y+VyC1D+ielHQ/J9ztGvnXXwc/lcNLSCS8+Gb+f2vCrq6cW96uQ2bs/aR3X
EpZfTGzqlZZTJZVtd16ffaZDpqXes/S9c2skcs2i020juuT6huwRT6ce0fyt
uS748v5IvZy/d+qGrhXu/pP5Y3Dj/NLOXnvkVN+ctOKAO58Hlx2d9NSc+P2Q
d+ukes+t7n6oz5YZLaMiZVLmWbYruZ+7P9r5y32pUhK/H+qeUj12bGeVTL97
+qfzauP3Q6k5uy8+b2qN9Mw7mTY4IX7/t3xAr4nT7z0iCb3H7f2+JCDtWx4q
mvhdntz8jxUvjW8MyA/3DR2wsnCn3HlsaO3KhKCkjxoy8P6KvfL2iVHXbU4M
SXLwtW9Gflss/Y/mLR1wICQrq2cO2rWtVK5p/Vufh2e1S+aZk927PIekPPWO
1kn3hmXrr5c9e/rhSik9c+hU38wOqWru98x7jYelx8Vzngq82inPdHt6c0Zy
rbw8c8lzVRVdsmF7W17xtXUy4tKLxqxf5e5nRu95sLTg9YCsbzxTf97v3hEZ
3WPHieyAzB6Z+XXak+/KS4/f1rSwwj0/TJ770b7XOoLSIzTkxpQFB6QoO+WG
TX53/t5+4aLi8cfbZUTZtIfSp1TIvNsyhg5MDMvgeRk7Cg5USMa5H6/NGO+e
X745v/z48uEBmbygtmzhxqWS2O8aT8LsgBT2P/Rj5MPNsusvpxpPTXXPM3cW
XNV7cEpQlqw5MaO5+AO5PNh76Q2/CUrPj546/+TgD6XuptahV60KyqyEdVuK
xvh0vaifO6wwYWC9rNm4e0lD0tn5MtBUnrmjTjavjST0HhyRvTVJR5p31knO
kovaSy519x+rJkzsUdwZELkh55G0zF0y+bLbff5u7v629KPsysLJIRnXeMmg
r578VH47JrPpqr0hmT5+bf+Z95fKCykzppzzZlieO7j6eOKFVTKjz57tkSEd
8uCQpEMP33RYTjy+8Y5/vd8hB1ds75O4oFouf2XTqD63dEqPheHmR9fWSHXm
t4lXftkpKQ3Pvjkj9+z+9Ye2rQOWdcncL4PJb+UfkSd6pj9X8lBADm4fP/r0
hixJW7x++rrVQRk+a0z+ick+Sd3iibz6z3bpsW7NqrxF5ZLcMHxT17B2Gfaz
pIl5V5dJUcuB5tqyiPS6r7ByYW69/Bc2vOIw
    "], {{{}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Thickness[Large], Opacity[1], CapForm["Butt"], 
         LineBox[CompressedData["
1:eJwNytk6AlAYhtFdMiWUmTKUzFLmDFfRYYcuIBeNMk9RZFwH63m//T87e3Ze
qUVCCFUujHw0hBdd1Fdd0g8t66c2SdsZZrn0TukIPWzRTZFRCqywyjJv/q9p
R4/0S9+Zs+d5tq8Ys+ta0l6+7T7dpmGP64/G9YR+Jvh1O9Y/bbFgZ8lx7T2p
N7qjAwQS7HLrPqV3uqeDRBhin3v3aX3QAx0mSpJDHt1n9Ek3dJN12t4xPaWL
f5ORJRg=
          "]]},
        "0"],
       Annotation[#, 0, "Tooltip"]& ], {}, {}}}], 
   GraphicsComplexBox[CompressedData["
1:eJx1nAdUFEm091HMKLBgWrOiqxhWBXXN14yimBMKCiIiIoI5kQaMYEAEEwYc
lSiCI6KAAVAQUFEyqKRJDDMMY9Z1Dd88mlv1dfnenj2n90dXd9X/1q1boe9s
7zVuCx2b6ujoWDbX0fmfK/dPFQT1naX9VwizGv6jmjB3FRN+neiq/VdCuOES
JCXs2lBARrih+Gs54V8N/9QQntnwH7WETzRclYRfNbxARdikob46whsb6lMT
vt1QXz1hvj4Ro0/E6BMx+kSMPhGjT8ToEzH6RIw+EaNPxOgTMfpEjD4Ro09E
9HHtTiH6kFEfMupDRn3IqA8Z9SGjPmTUh4z6kFEfMupDRn3IqA+Z33/pTP+l
M/2XzvRfOtN/6Uz/pTP9l870XzrTf+lM/6Uz/ZfO9F8603/pTP+lE31cOzKJ
PmTUh4z6kFEfMupDRn3IqA8Z9SGjPmTUh4z6kFEfMupDRn3ce54SfcioDxn1
IaM+ZNSHjPqQUR8y6kNGfcioDxn1IaM+ZNSHjPp+NtT7guhDRn3IqA8Z9SGj
PmTUh4z6kFEfMupDRn3IqA8Z9SGjPmTUx703n+hDRn3IqA8Z9SGjPmTUh4z6
kFEfMupDRn3IqA8Z9SGjPmTUxz1XSPQhoz5k1IeM+pBRHzLqQ0Z9yKgPGfUh
oz5k1IeM+pBRHzLq4/5eTPQhoz5k1IeM+pBRHzLqQ0Z9yKgPGfUhoz5k1IeM
+pBRHzLqs2iop4zoQ0Z9yKgPGfUhoz5k1IeM+pBRHzLqQ0Z9yKgPGfUhoz5k
1FfGNYToQ0Z9yKgPGfUhoz5k1IeM+pBRHzLqQ0Z9yKgPGfUhoz5k1OfSUK6c
6ENGfcioDxn1IaM+ZNSHjPqQUR8y6kNGfcioDxn1IaM+ZNSHV9THX9eImXWc
hDDqQ0Z9/HWDnDDqQ0Z9/DiuZOZlFRMH6wijPn4cqWfahzqCYFND+WrCXPvE
hLnnpIS59skIc1c5Ya59NYS5i4Iw175apj4lYW4eUzH1qQkHNlzrmfo0vzHX
LzGE+zTcfkOYq7eCWZ8GEfvg8/x+DyL9z9oPy6M/sPbE++gfrH3xPvoLa2+8
j/7D2h/v89fDtD/wPn99TPsH7/PXy7S/+PZU/dZ/eJ+/ng5i1tNBzHqa9ifb
X9x9IekPrp5EZtzFEPvjfbQ3v7yUMNoTGe2HjPZCRvsgoz349SkJo/9i+5D5
9avJff5+Kobcx/L8/RVrHxETVxKJPdnn2fq551JJeWR+vEgl5Tk7PCblkbE8
MpbnrtmkPDKWR8bynB2ek/LIWB6Z//485v15zPvzSHnObgWkPDJ/f1DAtKeI
aU8R054iUp7r5xJSHpm/Pi8h5blyr0h5ZCyPjOUxfmF5ZCzPxjf+fFtF4h3f
XyoYf6tg/KeC8Zcqxp8qGP+pIvX/7/ONkJlvhMx8I2TmGyEz3wjJeEXmzzdC
Zr4RMvONkJlvhMx8ImTaK2LaK2LaK2LaK2LaK2LaK2LaK2LaK2LaK2LaK2Lm
RxEzP4qY/X0isx5IJYzjFRnHIzKON/79PGZ/XcCUL2L2pyWE0Z+R0V/R3uz6
Bf2Lr1fI6BUy52cxzPkZnY/Z+Zedb9n5lZ1P2fmTnS/Z+ZGdD5H5/iZi5r8U
5n46Mx4zmfj1lIk3LwjjfhkZ95fIuB9Dxv0LMq73kfnrexwfvo3tovym4Q/V
hLl+FRPm7E+Zs6eEMDfeKHNXKVMfZc4OMqY+OVOfnKmvhjDnbzVMfQqmPgVT
Xy1hzu61TH1Kpj4VUx9lzr51TH11TH1qpj7K3DiqZ+rTEOb8W8O0r4qxVxVj
/2qmPWKmvJSpT8bYT860v4apX8HYo5apT8noVTH1qRn71TP1/V/6g5j1PvVf
bvyFEuau4cTf8X5QY3xh/RvvI+PzGH9Yf8fyyFge4xPr//z6paQ8xi92PGB5
ZCyP8Y0dH1geGcvz9xN0vGB5ZCzP31/Q8cO3r4KU5+836HjC8shYnr//oOOL
b08VKc/fj/gy+xFfZj9CxxO+D/l/94dKJv4FkfiHz/PjYRB5HpkfH4NIfOT3
B73Pj5dBJF5ieX78DCL+gozxk98f9D4/ngaReMr3bznTXjnTvhqmP+h+lB9v
sX0Kxr8VTHsVTPtqGf+m+1l+PA4i8ZhvTyXTXhXTPhXj3/Q+xmu+/X5n/vs1
v/kTe5+vT8PYT8P4v+Y3f+SPP1x/xxPmXp9AnkfG+9w1iTDnR/cJc3EzjdHz
iDAXhzIIc3HjCWFunOcQ5sblM8LcOMxl2vuSMNcPeYw98glz/V7A6CkizPVb
MWHODiWEuX4pZeorI5zQUN8rpr7XhGc0XMuZ+iqIvZH59qtk+ruSiQ9CEj/4
8wOdX3C88+M7nR9wvPL9o4bxHwXjX7VMfUrCuP7gx2f1b/7I32dSPfzzm1Am
/uH6nuYr8OOXkIlPQib+CJn4ImTih5CJD1gf3V/wxyfb3kpmvRbEnM+EMrrD
mf1wPGHWX/A5/nwhZOK/kInvQiZ+C5n4LCT9zbengrFnLVOfkrEX3W/heoPv
b7+vF/j+VsuUryL2wP7nxysJYex/vv1khLn6MP4GMP4XT+yJjPZERnsioz2R
+fu7UGZ/h/OVnOnvGmb80PHFP0/F+YKdn6qY9lUz7RMz9pMy9qP24Z9HhjLf
M9C+9H1cOQljr9/tz5XD/S61P6ePMve8rLFdUY3tr2n8+9XGeYAy158Kwpy/
UebGG34fCWssj/HpVGN/qQjz998BjUyf59qvJMzVR5m/nsT3Ueb2zXWEE3nr
gYDG52n7ub9T5tpbSxjjFzLGL2Qcv8g4XrG9GEf4/kDvc/aj7ecYx/cWst7B
+xgv+fZSM+OBnu9zetREP8Yjvr/S8xXOH+XEPzCe8/2PlueutDzGN75eel7D
taeGlOf7QyjxX9SLjHq48mqmPylz/kLbw4+XQcS+WJ5vb9wf0fHB+TN9H843
2D7++VMo8R/sH2Q2vuN9/veGUKKP77/U/qiPi0Oxjf5eT/Tw1wMBJP6jf2J7
kfn5SadIfOT7///V3gAy//DjCbUXp19G2sv/fhpG4jW/vxh/98bvqYFc/aPQ
3lcY/6f+zfov65/IDf2/sq6xXDDXv9lo/wPcdWVt47i4zOzvYuBOQzkJ0Yfz
Fd7n7C8l9zE+on6cb5C5dtD3cfb9/Xn0F/75BdYnJuU5+0oYljLjnb6f+ztl
1MvqQ26wv1rZyBfI/If3cf5DbqjeSNX497ONz1N743jks4oZr3T/xz2vIv3H
lZPw6wuSMvaUMfGMaV8QnU9xPGI85nPj+Yg3bS+ORyzPjz9biF7u/XvJeObP
r8z+4Kq8sV8jyHzKjy/M/ngUY19XJRNPqf80vNab9h/Ot1gemedvV2l5brxQ
+2O85K8fqB6u/2uIHlwfcuUTmP0W5hNj3sdN5vvuKeJ/fH9i12/0+wOnR8z4
s5jvz67UH3D9hPUho/9x9qDxqaE/silz93F/FE3WU/z1koK/3jdi4ptaQZiL
R7R/+fkmgY33af80FMumjOsnfB7XSzi+kFFfw/7LiMZHzr8o921c7+D7cXzi
fVx/oP/zufH8bxQdP7g+QP9BRv/hylP/4Z//BJB4jvZA5sULV7Z/aP2cveh4
w/HKrg/4/kPjBfc87e+Gv6spc+9jx7OSP96160P+fE33f9w4YPMr6PhBxvHD
Xdn8CzEpj4zl+eupULKfQ/9HRnvi/I3xlGsfXZ8go324q5yZb+RMvKXxHhnr
w/0jtp+/PxeR8Y73kfE+ruexvfzz8xiy/+GvH+h5KGdGOn6RsX/4+SjhZH+E
/Yn7HZbxeRwfaG/+eAki44W3Hkqk9sJ4zPPvvvR92F9of25843y1huwH+esl
FX99op2/cbwj8+afRBV/vCbS8xxuvqTxgStH5wscH5xdr5H9FfYXMvYX7uew
vdzfKeN6G9/PXel4wfmFu94i+yssz8VTam9+PFhD/BPtw88HDCPxmh9/2f0x
ZYzfGJ8xnuL7uHZKyHjG9Rnf36VMfJCS+7gfQHtif6M/8NdbocSfsD388b+F
+f63hfgn9/xesj7n61Mz8wlrH8r89U0Ac94TQPwJ+4cfP0LJfd56hezfwpn9
Rjgzf+H+ntqPv/+OZ76PxZDxjv6H62F8nusWmu+G6w28j+tlPivJ+/jnnUIy
X2N7sT7umsrkM6aQ9+N9ZLyPevH7A7YPuW/jfI/6+fs5er7Brr+xPnw/fs/g
zx+pzPo8lVmP3We+H8WQ9Sx/f0N/b8W9R06ex/lTNvOPEY6PBWR+zJsZ9KN1
hoCMr8B7Wf3mPRCQ9k/aY/l5XpyAtG9QkWnx/VMCEr8G/tU89NYWARlf8RaJ
5esnCch+29hlT33Efz7EXl/GtCtIv+BD/Fnfc+7w5V19yHpurbi2w6X7XmS/
ndpig9f+TR7kfDs84UpwqMEuOH/Af8GgQxpITg7b7ZYZBVbB1yc/cNHAPOt8
ReTTRDiXfPr2Ai2L5gXITtUnwoCTzjpNl2tgi7iiv/XCh2Aq6BaWskQDj4un
qetWp8KQZmZF06w0sNnrip7A8DEca3LocOxsDSztYbpxU5cMMImuW7F8pgZc
V/ey6Hw8C2oi1HMeW2igY25fP5t72XBtz8jtW7R8WllUmN39ObzNbh94R8sd
jncJLZ2bC8/+iRL7zdLA4ODQZYPfvIT2V+cZ2VpqoPCO3evpLnngHzdro0xb
/9jIfj+M/y6Acy2CCvXmacC6U7/atjEF8HeyUZu/F2ugvVjnabZfEQxK8N++
Stv+nCqPMUdqimCdYdS5bjba9tza4fX0TQlcTrJu0clWA+7f+kdD71IYOad1
aICjBizm+fyRO/oV5B5weW24TgOR+6yC3Je/gpDy5K0D3DQQ89+XD47H30Ab
/aiDMds1sOTh2lX7nlaQ+cO1U+E0nzQBOQ92up568kwG+oMYduU9SbyaLiDj
L1nyprvyjoCMt4OPpLaLrgqIvxqWb71rdUBAzqsHP3AuPbZSQNYfe89uSrjR
S0DWF7lD14U4v/Qh+6HdMvdlPdf4kHg2oEu6JPuIN4nPoxakTdDzcKf5Sq+u
ft4Ws4d8//ixLlbf1m4rmK440cHiLv3+6f7v2IUmLhoSr1y6VTYT22jI+HqS
drn/jYUaMl6Lkldedp6Nz6fDqElv/W1n4PfDx1CvPmSvPxXflwmBib5j+03G
74PZcC5887s1k/B74FPoWfPC+8wk/P73HF73nztMOFlD8qteXajwXDsVn8+D
yFSHr9nTNSTfarJbzIu0mfi+Aji5PvbpxDkakn/1ZuqdY6Pm4/uLIED0tc3l
xRqSjyVdeaPbLmsNyZ87XmcId1ZpSH6W5vuKJSvXakg+nem+pX5rNmhIvtaK
+OOq/XEa2LP40KkWfueg27/GHzOiNPBWJ8dgneEFMCvvn7DcVwPLuhk6Fd65
Djl7TBa026kBg+ahUvefN2HOlNcTxmj9sYWda61VyBsYmrImavEWDaTlP8u7
FFsOHmtuhxvt0MB/jzdY9aurAN/5boFDdmsg/tn3EKPaSnjyc82qHzOqoPjm
wzPLHgogyzR9xezZVTD20uxoPy2/zzVI3F9eBRd3Ddw/8pEArH2bw5KyKkj6
fsSuk5YzLH4khrtUg714/pdBWv/WMfC8l+lWDctO7X0+XssGo4sj9ZuKITq/
Sb6/lt10K2a++1ENJoZ+cFDLJe2rY0YEikE/NK11J2283TPPM9M2WAxLa07d
a6vlLYdstyb8JYEIe9sOMakCMLPotN+9jwRsszteeKxl/726jlcTJBCTmdh9
W4oARhfv7mOcJIF3h4f1nKVlqyETVu+ZLYW/Tt3QfXxLAI/ueD9+MUMKc8fb
ZOomCGC64z2d96VS2KMzWmEZLYCADul5ynIpbF27I+1dlAC2uthMc3SXQZNt
kuxLFwSQn9NxaRsXGZSW3Q3rfFEAyUbOZZ1+yOC8f/oQs+MC+FSQG61sKod/
LyjNTxwTwMQz6YM8QuRwumrTKg8PAdhNnOf253E5fA0Y9nC+pwCWbBGmtutd
A7dHNz/VY70AZufaDOk6oAYiZSuftnQSgL3RyHXZyTVgYO0tzrASQJsM40Ef
RDWQdvXMIPN5AljbdMb1J9MUMEwU/7WdmQBGzj778ZCVAtr+WNB76DABVI3r
6m1TpYDLZ05/PdtOAJnNax8fKlbA85SJEwwMtfXNq5tnvr4WdOfMznVV+MC4
fWYOFltr4en7Rf2GynzAslDxr1ULJQxbLjlYetsHOrx3tXj0by28HOu/aECy
DxxsemujeYASruwcNVPj5wMp95fp7DirhGUDc1r299LOVy66E54MVoFQOnyK
6XgfCPlgk+rRTQXlCRFtdaf5wGLnLpEhsSowa3ZL9E3jDYsOWwfNSVWBjc9+
mdUrb+g/3UncYXEd+FT6DZzfxRv0Y7093SfWgW1PkybK0d6wcFq3T19z6yDv
8J8n4pZ7QbrT4UWLo+qhqcv7lX30d8OBApmqyKMeIqeImzR7tRtSzYTt+rbW
wMSYLhbiNzvgg/3lNrna+JAzaUofm8/bYG7uCn3XJxooLT2Tv2uWB/htbQU9
7mnAY5hnU91zfvBoaxcj5XENfBjbeWObbpth4RJ704BgDRi39dvsnHgVcr1u
D47Qzgdmaw92izgkgghRmNNR7XhsVtDtwKHUcrL/fnZzvOEA7fhxVvWc8T/f
f7aJN0/9fE9A9ttHmoXf+Z/xgue3b+7vyExKFZD10YtenRfIbwnI+kenyPdQ
5QWcD+TQ6oCtj8pDQPav5jteu+2bi/OPAt7NeD9CrC8g69O2YVNS/7zrQ9bX
DwpLxlpO8iHryVMmyhnBA73Jej25/383pvXyJN/fM0odMgf47Qa/VM+qn3UY
3/Mn3vrV0qpvDmVumtDAmk6tn5/XdyX5fs9DPX5EvT0NWd63q07uo78HCtil
DhjmRn8PlKec/3f5dvp7IO69VbAn4/AUN228wv3+46SruqMyBGR/fxAeRBs/
FpD9UPn4v9PsUgRk/3NuySOT3tECsh6UvXmXIDuG9q8BefdxDmedBGR/2X9+
ecGA4QKyf+w8pLCoSu5D1p83D0z88LfAh+xvN4+aNT5N5k2+N5Zf2+upO82L
nP+OrvNdE1WxieQXxElD+4v77gC70GTPDfdofqS5p3yMXSj9vU0flYFm7A76
+5LJ53J03LfQ3xPE7ZO+3LWb5itYdzmYpbhO85WODX3+XHDs93ylI3cOjl/1
TyJcdLYwqXWn+UedIre/22mngYeTYgMe6qbA1lrdtl7a+c64z72lnjUpsPnK
BNOcFTQfSZgwLDJtgQZudV2SMa8sDbaFz9lxR7teM133/K8+aelwqHtH0dK5
ND8p3P5J3Sjtek/aecp3V6tMeLFkw+k+2vVg9TtF5gPXJ9Dq+1vHmJk0X+m4
cHTMLu36MdbxbJcHhTmQaZ75l7WWTR/p3RjS8hnoujpNXGFB85d0WzofGKB9
/vIkdUym8wvYV7koOlXLMTfM19TNegmDh1zt2nkWzWcyujV86RbteqVJ97yD
oc3yoUfE0Jw92vVBm2kZCecD8uGhw438vlY0v2l9k53X87TrBai4mum1vBCK
/+gIzbXrn0EnJ9tezy4EwclfTnqLaL7TuYd+uz4s08Ao75bv5HHFUGrzMcNQ
u55I7p1bndSsBO4fXxnvt4LmPz1eUHngmtb+XbNahrm1KQOrWUcWutprwN61
ZkW/CWWQmqN/aY0DzYdKGuNs+1y73jh9b22lxOk19N0z8dEvLU8f9kyv39bX
pL9zpwY9u93yDUS+/Zp/wpXmS4VWrSrptY3mQ418l9zr2k6a/1Rq1VwvxoPm
y9xdKWv3cy3NT7NJ3mDouYjmo92eWxFcaknzzwp7rrkcaEHzzYa+sgiRWdD8
Mju3WWPLLWk+2QZH3VHieTR/bEzE+ZAzS2m+2DXrapOsVTQ/rEeqRDV/Pc0H
W97h7Kkcd5rP07XI8F5skRpyFl9f/qBgE2w1WWm79LQaFEOVUYsOuEG+X/2J
pUfVUFG7vd+HMDeIVKgubx1UD3oPXG9Filxh9styY4vpajiVuH/ElRXusDP1
utsuKzW0vtbfJrWnO/le9WLYY/+YWW7k+8/hQQ4tLDdsgj9+6X0pNqyH3eF2
pxeV2EGH6BHOqcb14JhtmDYh3w7G/bkc3tarIcSmWsfA0B4UTaLsBHVqUK2e
PviLsT102l8iW6GrhueG0sU1oe7g7jBuhO33OrjnvrW1+S53Mu4zU9qo7+vc
JPtNM3GCsv8XISy4+KLSvp8SjqXGb/i3bRhI+lYv8fpYBc5JQ77uy4oHmZWh
9TA9MfR1883ytY4HVfjikMAWavi2+fSwN38chb3d9x3IMZbBDd3tzc33XIep
Ff18f42Ug3rBmDLHcdFQ1OrgY6s1cri55fgdk9f0vDR6a4Sgxpt+P95eNeGF
3YrLZP80rNN6z3tSmk+z793puWoBzW9Zln7zV5Z1LHxIcRJeOk/P1/Ot7HOL
vqth/9nzA894CeAfq8yQA7r1MLn4di9vbfzuY9YxeOLpeijUfWrzVk8Aw99/
8oo5Wg9NZtt1ruotAPezk9dd/VMDd9pOO9GimzdI+g/TbzZcA91Gdk4ZssIL
JCutJ8IlDYy0yRodk7ELjj3uHWWbVAPnXw/WsbwVDrbuPlN/JNRAzr1txgH3
w8H6reTZw64qkO+yXuS06BzkHRgsuzRcBdf6ua3QfXaW7N+b3p/V5NjXfbBs
7VvJ/TAlzOs+/Mnc8RfgkpGZJOCUCgZeKPTPcDhN5pNjO16mW56h+StRvhdL
ky2Pw/4QnVlHzBXw1mNhn1rBNRhqECfydFJA+SOP+NefaH7KcGnht7XpV8j8
/0WTq6/nG0bm+48zdS887XQS0n9E9zJd/Xt+Qk78J6u5JvT/P3Tyx9DUZjmR
8HHa4aIRqVVgNONEmydl8XBnR3tnsw/VMMvS5s7GdfGQ89mt+4luEug2M3Ga
2jsO2nSuCKkYIoHKK04jxrnEwV8vbbMWmUphTJKl/YemN+DDst5Gnz/Vwbek
TovM3h6Fv7KNjR+ZVoHD6+h/9f6Lh6NhG33sHbX7l8qum2uq42GXW+DrsOXV
0Gec8mdcZDys/Rx26KpPNcD3s86up+PhUmr/1720+41B0xbPnvJHPAza93NE
D+1+Y1ypvV+kfjxYdtGdlXJFAo/UjxJ+PL9BzmN6hBwo7rbwEtl/t41sZXFw
bwQ8bafxexFBvz8Z3P8xZEUd/b6I+/2mf9lsPvIsDsbOrDvlEPN7PtiRs9U9
YPoNcv60ytEiXphM8722y3eVqsbQfK5nC8qsy5/HgMrg8IqzWXXgUPzNwKz8
OIR2GO/s+7EGNj05bxlsEg6T9fvW6msUMGdIQeI/flfgicMqp5J4BeTktnnY
yuwqmB6vzBn+UAG27VoulLS9Cgu2Zr1on10LE8KHbj7W7zKENfdpYqCohUSv
WdHtc8JgjcfB3ObWKnjqFD4xpOQMRJ8ps/4ruhZ2ft22uMDzMuT4O/kfc9f6
iyxGGNVVCMZ+63OGOiihxUHryu5xF2FgsepnVoAKCp5FuWyJOQ1Co+lvMwwU
4D/VX6RfeQ1GtNj4ouMWBcRN3Ll2ZinNr+rZ+lrB5CSa/zp3ppeNYuY1uCQ+
sW2liRICvw2c5WocBrf9YvOSC1TwZEiPP/6QhYB0mL+VTzTNFzFVDA/rMV8N
4pfj7c3jDoPZbsvgiKlqmFKZvnKnvj9Z/+X0mflP7PVoqLQ5O7y0nRxqFSVp
5oHRZH1td/i4butNUbBvRZ+ec3bIoezZpn3y2ChQdhwsO7amBh5s/NRFfTQC
5iz+vqWN0+/fF8eojo992If+Xv7nt48lsZsDoNc/I5uV/H/5Staj/1l8944c
jj7qUf2oYxRAysrZPxXs7yHUEPv9VeX6r74wxm3+p1mf5aDZP+ji8MORJL9o
W8+QfN0j9P8PttxScm9OS/r7jLB91iNfup0BJ3HS2Vx/Np9PBieKm8yNHh8D
ER2z9uYPl0Hh92vNkydfh1U7dy5/tU4GZ27ktfF+HQPL5+5NWW36e/6OatK3
6mijaHL+VBi3dmyeOhgGGV2YciCgDi5MFy7Kcj8BqyMOHRrqVgd1xqp6/S5B
YNAz38x7SC20eNd7yIcSIZS7xO0fP00bf+KkK6+dFpL9SECW/8qsjYfgk8Et
i6U3f8/n+bleWVZmEgkR0cVfzefWwbaafx3+UAXB8C9uS1s9VMOvDoGpqxbv
g7Q+ZdktS7X2rX6df6mPH4w3Pfwi1EXr/5Y6hVv7C8Eg+YL5g+cSUHcIulxw
4gZ0qL0WnCyXgMWJVZZRLjfIfmJ+ZE//nxXXYbpz3/phb6VQ4PZjnjLpOjmP
27e65ERUeShkDHl/ZbenBGxO3N1ZoBsHXfcMmN3/hhRmZL6cdnZQLMiO/cwK
SpNC3ZVxSY56NL9H/E+K6qEOze8509PgkJdXHEi+tLEXV4jB1Lal7e2sOBgj
9jmzzE4CkttmeXoD48j+McA59tX0+lj4lPxx9t0eUoiZnzBpb/sbkPd6uEkf
dym0PLLt3V+BsbCmzL3wjosUpLq1P5SnaL5PXtDzbTNu3YBHGr3c0RVKOPLV
M+3PJ6Hk/HLbnaSWQ1ZehwivmhUuzVRQXO3pNbvqHCxMP/QroVwNVbMv3v/8
yheGJzn0L5OrwOJn3rVfriEw3GXhP3Pfq+BbwYDLI/qFkPP2Hq9u6H3sHAeL
zTzDWm+Vgccmx8GSdPx9qAy6BacqPf1oPk6amcWStekHIMrkQdcvPmpYtXxt
+Ig/D8LJrPWp/l5q8J8Zdf7+6IPQKkw6vd+EehjffP57YRDdjwl0+9Y5HBSQ
fJvHCTot2/4ZBd5xV6PNtbyhoEnnjl2iyPenZp+7mi9afBY+LvhPf9VYFYx2
uLVZHkzza0a/kjz8JbgIN6cqA4d5KqGb46b52YYXQXe/dyu5QAl1eyM8z3+g
+TVdavyaTc46D7c2nY/vHa2EnnNTvOqbXYD9B6qXnE/Szv9tDtyc74ff2+Xg
a1RQMH9XJAQWtVTqtauByWMiIgsWRYJ30xYZph1rID5kXMs2EyPJfrk8on/m
7o/xsKBtx+CNO6rgvLzaT1oRD5Onz7D7/F0J7VePkvq2DSX5MhejSlJkjqFw
auJ/S51LxdBM/0eT5BdxJN9lb8b755kHAuF0ju7QGefrwOhz52l+rU/AQe9/
mppE14EywrZPJ1Eg7DEwEtRl10Hy9AyrZrnH4VmnQtfWCTLI8phcfmoS5qcp
YNRh25mBq66A+Q7NF3mnWlDKzl0rM74COd7LW8/Vr4UpvfP6N//7ClRbOJ7N
USnANfzjf3uOXIGlpj4361dp/anH0Y9bEs6Q7yWxt4ePy7Q4AVKT8B095ysh
uoPdtiu9LsG9P7p3syhRgumoMeb+70Mhs9VH5fGHSvhmb+w3Y995ch7ypKm5
kW/3c+R7mo/SIy6yVTBcudq2ttiwDiYlld9qsjYYTErT9Rza14Ghs8/EtvOC
Yam987LgyXVQGDC5ftC4k2CZ//LPS0PrQNw3L+JB9ElyXtD/lGPv8MALcG3v
mlbnAn7PlzlcE9gq93YI+d7/7tWkvIH/HSb5L5tue0w89CwCfpk4wdeRNTDy
cLOuz99FQKBJ+DC90TWQ5qmXp6uOgOgh/ntEG+vg6M+S7WcGBJH8l6iXe/vW
hARBzscRwS1i1GD8PP39ion7YYPZOYFBmBrG75hamJK8H5wqX/SwKpbDgliX
rEP5keR794h06RXXLjT/ZevJu0skn6Khqp946I5kGUQZJN1tMyIGOq769Sqw
UAYv713vXvsrGv6cIPn7x0cZbDl0Ofvw/Who/81/p4VUBj/ebnvZpSoazPWT
x4NYDnv8x6p234kk3w8Pb/q466JBGDlPW9t20bPdefT3Cd4OrT6JV9PfG1zM
Wv/l58ajJN/k3Y1Mnc920SS/RFI8refdtChyfmS0eI1DvzD6+4MR4beXKg3i
4eyEmQuLt9fA5TK/vo62ESS/45m45fmnfWi+hrLftLTY1Mtw/WeA20XtfF7+
Yub2VPcAkg8hH+LpP+voOfI9unKufeBbn9Pk+1301iO291b50N9/lwa2uHVd
QPbrNzMmGwzU9yDnbzkl8YkHOwtganRYq9ii38/bNvuG5LQfuZOcL313UjxM
zPeC/wcm6beJ
    "], {{{}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Thickness[Large], Opacity[1], Dashing[{Small, Small}], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwNzUVXVmEYhtGDgt2dKNjdLaKiGEN/gjNFQbG7u7tbUbEDu7u7W+zuRMU9
2Ou6n/fwLSI6JnSIDwmCIJVOoUEwm2xhQTBHs2tPnUoDu4uuZC5N3fO0F9No
6O6qq5hPlHuBLieXvUxfMp0XzOAV33jCQt7zgIes4A0zec073tKbpzzjEY9J
4CMXuEgS3/lBH/L7/+e1ltamJnWpwz7v+2lsd9PLdKeJ+6Ae4Bb/+Mtxqvs2
RevpKc2sWcjKbXdFrUQFDrkX08xeokNJYQhrOMM2xrKDcWznHIkkE+2363Q8
he21WkALUZDO7uvc4DSTuM9kNtPc32zSHqxnAxPYSX3f4vQSiyjm3qIhmoGM
lKUMI72HaSglKE6qtw8sJac7B8/tT7S0h2lJHa6BputGithndSsx9ijdzWgy
uXdpOf2iX7lCKXdpwokkgone71DFPqyV9Yhe4ypF3XnIS25We8unY3QWjex4
PUoL+5jupby9R2/ym1/8pJr3qoyw73KPk3zmBDV866t/6Ecarb0N0DbaX1vp
QG2vgzRWB2s7bct/rKt7bA==
          "]]},
        "0"],
       Annotation[#, 0, "Tooltip"]& ], {}, {}}}], 
   GraphicsComplexBox[CompressedData["
1:eJxlmgdYVMfXximWWBINisZesHeJYkOPiL1gQ+wFe4lijMYExa7YFVT6oiBW
bCxFaQKLgiAi3YaAgFJ3116iid/9c31nvjv6+Dzrz9vmnTlzzpk502ahw5Ql
RgYGBpOrGRj871f+U0Cu7cZIf/1pTNU/njGWfwsZPwlbLf0tYlz141rMeHXV
Dc8ZV93+5AXjr1V/ShiPrvpHGWOXqt9yxo+rXlDB2Kzqe5WMf6v6npZxaNX3
dIyV+tSCPrWgTy3oUwv61II+taBPLehTC/rUgj61oE8t6FML+tSCPjXTJ7c7
kukDQx8Y+sDQB4Y+MPSBoQ8MfWDoA0MfGPrA0AeGPrBy/DTC+GmE8dMI46cR
xk8jjJ9GGD+NMH4aYfw0wvhphPHTCOOnEcZPI4yfhumT25HA9IGhDwx9YOgD
Qx8Y+sDQB4Y+MPSBoQ8MfWDoA0MfGPrk99xl+sDQB4Y+MPSBoQ8MfWDoA0Mf
GPrA0AeGPjD0gaEPDH3/VX33PtMHhj4w9IGhDwx9YOgDQx8Y+sDQB4Y+MPSB
oQ8MfWDok9+bwfSBoQ8MfWDoA0MfGPrA0AeGPjD0gaEPDH1g6ANDHxj65Oey
mD4w9IGhDwx9YOgDQx8Y+sDQB4Y+MPSBoQ8MfWDoA0Of/P85TB8Y+sDQB4Y+
MPSBoQ8MfWDoA0MfGPrA0AeGPjD0gaFvVNV3HjF9YOgDQx8Y+sDQB4Y+MPSB
oQ8MfWDoA0MfGPrA0AeGvkdyQ5g+MPSBoQ8MfWDoA0MfGPrA0AeGPjD0gaEP
DH1g6AND36qq+54yfWDoA0MfGPrA0AeGPjD0gaEPDH1g6ANDHxj6wNAHhj78
Qp8yrykU8rgixtAHhj5l3vCCMfSBoU/px8uFuFwh+MFKxtCn9CM6xker3od8
xvXb+/TfsawrkLHc7jDG8vtiGcuP32Is60hiLLfrnnA9nbH8myncn81Yjm8P
GMs6HjNuW/X9XKG9ed/aVcD0rKn6xzPG8n2FjGVdxYzldj5nLPfTC6F/ShjL
3ytlLOsoE75XzljWVSF8T8tYmX+6svETx0e+7s/0YryUdsr14zr0K+8vZgz9
YOhX2kMJY+gHQ7/ye+WMoV/5PS1j6BXtT26HWphXYUJ+Gybkt2GCfUey78Ge
8T2wcv7ECt/XsOdh/3gejOfF+SG3J4E9j/mC58F4XpxPynxZy+YXngfjeXH+
KfNRLZuPyu+nC9/n81WZ72nZ/MXzYGX+zee3Mp/SsvmubH+20H7uD5T5ipb5
BzwPVubH3H8o8wEt8yd4HoznRX+jjLda5n/wPBjPi/5JGQ8LmL9S2nOeMB/y
hPmQJ9hvgWDveYI9Fwj+u4B9H/4D/gEM/wCGfwDDP4DhH8DwD0r/VCrsB5UJ
3+P7SfAPyu/x/SNlPPMX9KgFPWpBj1rQoxb0qAU9akGPWtCjFvSoBT1qQY9a
0KMW9KiFeB7LGP4EDP8AxnxXXk8X1seZwv3ZwvryAWPYPxj2jP4W8w/YH/In
Zfzk8Vb+LRLiJ4+/stt+LsRPHn+RPynjJ4+3yv0txEseb5X7W4Gs/WDl/lag
EH8jhfHSCPMzQfCHdwX/dJ8x/CkY/hEMfweG/wLDH4GV+TXinTdjebyuMZb7
LZyxPG5xjGV9OxjLnzvLWB63EMbyvIsW4uUO4X2uQvsChfeHCe2N/fZcwXd6
MP+VrP5mpzrWPlnn9+3FeOJ+tB/3g5Xv1wjtyf/Wbt6+3KrfZ4xlHYWM5XZw
lr9XxFj+bpFwvYKxbK+c5fGvZCy3h7M8HlrGsh1yhn7l9/TfMcYPDHsAw76U
64MQ9n7YG+4HK9cHnNH/eB72iefBuF+8Lrc/Xsj/4tl1eVxvM5b9SiK7H4zr
8nxNZizP1xQhv0lh1+X5myrYX5rQP2nsujyu6UL/Zgj5Ywa7Lo9jptCf2UJ/
ZrPrsp3kMJbveyDklw/YdbnfHwrte8TuB+N6SFX7HgvteyLkn0/Y9ZFVv0+F
9uUJ6708YTzzhfHMZ/MR8Ui5/vEW8vEQxrAv5f35zN5Ee4e/UeZT14R8OZyx
aJ+wN2U+nSzkt6lC/6YL/Zcp9E8OY4wXGOMBFvsbupXzn6+PxPWGcj8a/RPB
/Av0IN9B/gFG/gFG/iHbdTnLP3AdjOvIR8DIR8Dyb54wXmphPoUxvYgvSn8Y
zxjjBYY/ALf7lo+B5fej3gP/dfnbdfRvMGP5/aGsP+Xnohhfr7rh5rd+hX8L
Ys/L7bnOGPaN52HfyHfE8UD+AUb+ARb3f8XxUO6/lgv7leXC/p64n8XjB+IV
/CH6E/MHjPiLfAfX0d/ybwBjWe8FxnL/I5+E/Z/61m70X6yw/kpg9o3xR76o
tIcKln+jv8HQh/gAVs53ns8r/Zs3az/aCxbzH1xX+stAZj+wR2V8vcyuw58p
n49k9oX5Doa/w/Pob2X8ucCu43nl/IwQ/EWSYK9JrL+U/S/m45VC/Kxg/rDq
sa343kXWfvgD5X5bBPue0t9VsPgo3w//mMjeL4/LJTY+sG95nmA+xrH7ZT3n
GGO8ZP3wL3dYe2BPVfoC4A/85Ouz9d/8xRW5XVr4l3D2fuX4aJk9VvVfEvoj
QqivZrL+RfzBeMKfYb7gfbIujN89wZ6C5ftMYG8hrD3K9VIly3eU9qMW4sN9
dj/8B9oPxnXR3yn3dzjDfhA/cb9yP4cz7kd8Ve5v5rH7lfGp4rt8A/FHud6M
Z/Yj99ct1l/K/JIz+l9+Typ7Xv6+RshvNMz/wT7xfTD8Jfwr/A0Y9ij//xnG
cvtPs+fhr+Rpze0X7wNjvBEflfl6KLMf+f/F+BkrrP9imT7EC/n9yGfusvml
zO95PoP75fuSWTxT7k9WCPsp8Geclfl3hZA/w56fMEb+W3WfBfyJmo0n7AP2
gHwF8QkMfyX3fwJj+Tv8OuId+le+P4z5M+QfyvVWEPM/sr1wlp+7xt4ncwib
j8r9KZ5vyIzzOWnyPJyt+7aujmP2BfuDfcm/bowRP2FvcvtUbH7IOu6z8ZW/
m8TuRzxF/yr6x5X7f9iDcn+axwvYH+Yf8hnYl/L8QzJ7v9gezCeMB+I1/Dv8
P+xZed6mktk7GPaM9iBfVM7/aNZ+5KOYX4ifmH/ye6+zeApG/yjrAXw9gPFH
fFHWj/KE806o75Uz/4n+EvUgHinPX6Sw+9Ef8NfKej+fn7iurJfz+Yrrynoz
n78YL8Q/ZX4XzOYL5rdyf1jD7A/zXblfGS/k+3HCflackN/y9QXWP1W6AxAP
YgV/wO0VjOeV+zXfr4eU9Sxuz3LzhfzlCWfl+oyvr8HI3+B/8D2Fnnbc/yvr
c7EsvsB/KPdjAoR87DR7v/J8mRg/yoV6WcV3/g35COwB+Qy+h/FX9l+4UJ8L
Z/aG/lbmO7eE/b94Nv7y9yLY++Xrkay/cP1/fvb9Vz091oRcH3hlI+OHsz5c
TauxmD6+t2jxLp/H88HTV1/6Es31zH62//3pcL5+8G/cwevV/9s/nRA04uLO
8cU00ubrY89H3jTVvNU4j7+ek669Kr04yYfWOH1YUM3/BXUe2nB5yyUqOr+l
mfHiOyVk29Job5KvivrMtVrUtKKUTp7tunz8IhWZXK1dz6JWOU31jI/667gP
jY4MGKPS6cl4bp/EL+Z+NOtmtPfMGD1Vq7FB/8n6GjXMGdN1U4SeLhroso9Z
hZNb69YhO67radTkjWE9O8ZRh4Mv/L4uLKCZt2JLbM09qNNOg72fnZ6RXfeG
Y9os8aQjreJN+noV0vqyKaYD1npRozl9hwdfL6JcP1WdqCneZPSl9c6E2Apq
EtC5h20vL4r5Mjf05L+VlJDdrM7Gju5UZ2C+XXtrHZVm1mk/eJ8Lbegdc+Xj
JB3pnZ2N/WxcKH5Kf1VbKd6Psx7gPuDyHjIz3nl9bZDU/l8Gh9jvjKe2k2u5
2qv01KVz2JqSJXdo4PnYY5VH9KQ1XXWwWo97NPvol8zEPZKe/Boz1r5Oo5Kx
XRoFb9NT7OG3S26OyiT3gIg9us16evO1eePfPLLpv3YeMww2SfHDLLD66ucP
6MdGY909HPXUdenRpvY9H1P/Z+un7JCuL3u700L9Zy4N/6ligbeTngpvFgQG
RPJ6T6PMq3ZjJnuxes9Ao5xPz894s3rPYGOrzgMSfFi957V1j88zrqlYvSd5
9eqaUfN9Wb1nkumB9NUpvt/iSAmdCkjQuZT5snqP+uOrkSp/XxYfiucMj3mW
reL1nhWZr1NH+7D5YffpU6P0/Z7Mf/a+vWrLS6/jbP4PqXO8zGTADnq5LdfQ
/z7f7/5ntd/2uXF8fdb8YzP/PZF8P6nL8n+6dLjB6xXyYwV08GZg+1nHPFk9
8uMSP+smRtifL6SGhUO7X7D0YfXIer7+HiOHqVg90p+u7E6q58vqkYO23Rlq
etKX1SMbL3LZYvDCl9Uj/+44wmhili+Ln1seJo7PmejL/NPap/N6eHZTMf8x
dpzJyMtNvVm8Ccms3jRivTtlTbx2LlaaLx96RR7z+v0qPXw1dsUxab7ss/w5
JLVGOP0x7avjbmm+3Fv06mZZmzhym7146KLzeqqf+9uNfzbfpsfH1afmn5X6
512iX/LH23Rykl3HPA89zf6U8FfP9CRqkd+rv6GbntJN7ZcfSkmmxdV/fnfq
kJ5cTIdn7bRIpTYhvv1L9+upqLblgYEH7tPl3T3Uqt2Sffc8+36+bTpZHzc4
smKnnmJWmHWNaZFB0Z5zkltJ9n1y87jwva6ZVLm1lu+RLdJ4XJ910n1tFs2q
jA8NlOz9t5GL2t7OyqbU+4uXaiR7vjdIe8ouJof2xNZLrZDsfVqD4c9XNH1I
X3I+bz4psfGUH2rE1X5EtYPW3QyQ+OUvU2cYLHpMF4LGJD6X2DIu1Hjm1CfU
zWvR+ivS+27X22LX/0ourdn/1nGl9L3hfS70WO/5lB6dPJSvl+ZLMDWLyf+c
R1Zj3lWYSP7e/MnLvFFP8+mK2mHE8jgdzXM+nVRZ/zD5bntpcaCaND8PT2hV
NnY/dbAPdux0S0/Fv008q6lwooZqm4Qh2VJ/qle+0hbuo08h4X+fVUvzd+3J
gbUst1PXnxeGD4jXU4npkN6r/M7RL/auGxOi9DQ/UVdWvjCExjhlWh+XeNzZ
akdMY0PI5/fXtQsk+z0/5cuWkLPRNO+Xe6psiVt0fFh6JSGaaq1ZOGmg9P4J
hs2Xms+Op2XHz9UzOiW9v0jj7BWQSEunNaqdLMWzmr3ruxkbpdCdzb0MR+yT
4seB3eOa90ujyK0/5Lrt0NPUsC3Hitdl0MaNbp5dpPGZk1x0qldwFr0cXftP
T6n/ClwaVpp/yCG31JX1faT+vRnXMnjOkEdkVj12oaF0fdVUk/Jxe59QpdcS
qwtS/x45fXZAbNZTFh+TTQ31uetc2HoyP6R9qEe37eT7un3bkiW8HnkqZJp1
1jO+PmgcXm+jcwzPp293m7NwTwSvR428tdpo13VeX2rS9qdq9pf4+bfKTi1W
l3nx829z6gYOuHqYn39TB3e+03EPP/9W70Fh9qJt/Pxbg17GBUmb+fm34IRh
D9448vNvTh323/pff2B/4lRh6VK3Tfz821zflt3jnfj5t/3xBruGdS+gxyfs
TTa8cmf504t/z8wYn3uQCrfULrR8xPtjs9lFtVc8369qaxDQITCKr9fq/3Vh
8+Mb39dDR00uGFPPUUOLD/2394k/P99kszW7y7Dj/LxSzaCOQTX28/NHrfoe
2PhxBz9PVCtLUzljCz8ftHFv7oTATfy8z4v68297O/LzOwdaO1595cjP49yq
Vj/YeTM/X1NUtKDnqK28vjFsQ47+y60Cmn8+9R/VSQ8yfNkqc9pLyT+vfjol
OM2D7o2rbTdtzjN6bWvQc4+VJ6vf7h/06YyFrSerL+1YkuDm0cCDCqd29Zrw
5hm1+fVh65UPPOlqqveGl3UKyfDZm47n9Z5kucvH88W+QipsErp5ib0Xq/fO
djYY3HWFF/n8bdujdesisvdbuf2PfC+6+dbGP7lTEZktbxMW+MKLjlnv6/wp
tIi2RUZMWzOZ14PdNwavbiHlF+9a9DV7O6KY9uzXRd/K9KZgh+bL7bKKaejG
CcGnJvmQ+qSjc15hMdm9n6pPm+1Df4zM72K96DldiR+k7RblQ4fDfJfdev2c
6j93K+lsqiKvrTkHzv/4gtpcHGx3p62KDL86al/skOLNZ7ub/85UUU+DjMaR
DUro46eY6qq9Klqebv5B1beE8r36qrodUVHfYy0ypp0pobhoN5uVUn62pY5t
nYx+pWT7qH5ETQ8VrYg8U9NqVindcDFwHuGiop3lNtlT7pbSmBb/1W3wu/S+
T1buNRaUUYMlzxfEmKno0+zqJvcdyyh01sIr0fVVNPbagdrd3pfRossf9vU9
70Mp42lm08PllGV1b8TRN97U/2ydwc3dymn+TM/yJqXelDJqSuCgthU0cVm7
NkVtvalV7ofrzTpW0NtN1Qz3Nfem6dO9C95drqBhff7tV13KV5CfD2qVZh02
zItCLKsvTOlXSeMiX2ZcG+ZJ57r2PdJzbiX9kFU5eHqlB3XYtevD8JhKKt11
9KVvqTvLt78c7d1zq4c7xUxaf/K6tZZWvhk65353N3p65uNttwAt/ZFTb3+4
y3HaWPdY6ZBbWno34r722LtjZNXB4mRiPV5vRH7+8o+FE38K4vVHlffRvpfG
7qU/zr73ehjE69k2N983DvXl9erugS1rzHTh9eh9s01SvjrzevOY2g3eeW/n
9eS7h4de2eHE68UHPN1+td7E68GhGWGbXBx5vbfP0iFjB27i9dzVyxuPae7E
67ULSmf02ryF12cxD2e5G75wikJ/FVDX0Jafl4d7sPMRc6590bYu9mTnIe55
fF1vWeTF9lPyD17cZtKan3d4/HJS2OUWnmz9mbT+dIjvgRNs/Zg+/H5B09ZH
ydZ07sql53j9tUWShflad15/XffUoYgO8vpr3svmbpt28fprw6XOv9hs5fXX
ng4Onbpv5vVX72B3myhHXn+N2DqoWrQjr7/Sq21nqm/m9dcLmxa8/ligp3cW
F+fvsDlJp+s3PjtGWk8t3Gv01w7bALrwdn7f7RLXsSmb55IZQLPPnrpvXiy9
3yt/0S7NCdpT1qZ+SqGUnwfEzLFLdKddFtui0gv4flXy7iN2p6X1T9aSHsUJ
pn7kt8+sbUYcr5cg/93vlOryuz6B/HvFrRo8ke+PI39O0d7aW0+KP7X7OFiV
juL7Iy0C4/978xPfD3k/uX890wpe72sdkvRr62Qd/VqerxlbFEGzdQYj3i6o
JEOHDpmOL9JponmNbMPJFdRr3zTLThUP6fPcZWMG19RS/9qaNc5W96jAY7j1
0n/4fsLhxNPtnDby/QQTJzu/KZbfn79qRcFeSwvjyKHRuhMBD6T8wK5GsYut
O31wuLfNPlFPl1vV8+y+ag+NX9wyISr0+/qZ1byyK03b+NPZihCrZ2Z6atjQ
tCz2YAgN6G87UdNWT55NTN/cORVCXZ7f6fHjZUnfZ8PmkQVRFOvy51/TfXQ0
p/WjujY1b9KZji9j09foaFpdn4gQN35+2HqG2QCr9lfI5beTBY4Lvj8/MMHK
y3dXUDjVTqve60aheF5GS6dn67Jze6TQnp/9fvCdp6VhRxqNiqubTInONXV1
O1fS6HPzvvo0yyT15cbrnVIqKNvixbScidmU/fP1nj8YVVCxwRPzhiNy6Xj+
jX8TCsrpn32tO0em5dHlo3MtHLbw/SDMn5G5ce1KE25Sft9NmVufa+mV+nTk
4/G8Hj7ntnWfI0tvkab1kBo+P+pp77NzJyPNwiizbp7xhGApn826m529IYrc
izuMcpyoJ0dXk5c0PYh+cmrWNniGnhaluiS3OH+NJnZb9qz6Bx05LxxQp+eN
67Ty/bTX60p1pBo/afXyqBs048LDY+Gn+H7kztxdRn67+f6xyd3LyWdLv69f
N52xdO2vv2TRpNOrvV3+X/3at+uE+bcf8no01kfaFjMtpl3Mp+Su/gEW83i9
4G/3ZvWPSfmcz8Zww95l5+nxkcWG+9bqqM3zsIMGzrGU6Wq2dNABLRU7POhi
8ucdGt/rv68f3Hh9eNKy8yd8ciuphW09884FvN7baFtBN2vnJJry6SfbZ3F8
/hq1j5jz41pen8V+m3GbZzEOg6Ko1TnXz/5OlTQpx8w7b0I6ra1rcclZ0pdh
6zBvnsFDqr5seMRVKf/uE2Kk63TlgjQOWz5PkPzZ9pUWY6sdvkgvto2sNseY
r1+xn2bcI9agZqvrtCfkmv30DL4flFZbXc3+Jq+HIt55tJ+ljqpMpUNnSiZ8
3i/197j73u9NH1DBGm2SzQ0tOUeGdhz0LIEKbmlDdH9L62v3NX/06X2JbN5f
vFv4u54sigtXNF9/mZx6dZz+zpPnn9gfm7nyS88L885TgEUvy7yhOnr22/MB
dTppaEC1A/EftvD1OPbPht7ZFu0yKpB6HQw6XbZVSzpL006JT+6Q4b2DGwo/
8fpp6IrO+W2l+f5zrXUXvAf7U03j3YfzF+spRbO+94F1V2nQgGHakAIdOepm
fblrE05lRR7qOod4/XT7yilbL97VkfkQF5shiRH0dHq1yvxfeL10Xz/LBl0a
VtKr9i8M67hlUqc2I4zvD9DTCe8Ji2q/UZOBd62BjZvw/eiWOTNHbv5ZS3cH
RPf0y+Pnx6Z+1HasuT2EPrsurr7JnO8X2w0db3SjH9+PDBljObz1QGl8rsc1
XRKdQSbVqjssG8b347DfmW03r+epnCDqGbzCct6+SlqwNPOvKJN0tj/y+5j2
1lklaTSr2fVmCX7f10/7a1IP/7c6g348MtL+aCdeL23+aG/IitYVNPvz6UPN
Mx+T7aeg0mUtK0h1MnajpuQxBTVfP9r9H35ep3HXWa9XfCqnovgj3lapueQS
577HSFdOob8OSQ1yeUqZ1VIHNy/g+/3hSw4nWkkcPdfqoenzPIrYEG5Xp4GO
7h6aalEcHk//+oaUGT7l5yl6ZHa52SWvkh48UHn+nZZK2S6u16NeVdKLVcfW
Nq6fSkWtjKPTzXU0qp99iYO/hnoXpr0x7qKj+ZcP2vd5paFV+uW+dyf8v3po
ybrpTuf5/rBFI9/eQdJ6Z1LTie+SPM5Q9D+aTCtpPdzcNi2+8PMZahds1WqQ
FF9aXvD+u/Mif2rS0L3eYGm9WJl5Ytii0tNkebbB7RbSevPNpZQN7XedIqcf
VmVoIvn+99Z3QaoiE17vjHSwXx/6i55qJaoS304PJfsGzQtGO3xf3/xn2KAT
5n6xVNfE8b2HuZbKQuOPpp+5S2cLvhqZTef1paB29geMR2vJYvWmjFf5ydTh
0Zk2oRLXHWrz9uqjZPKuvuVW2Q1ez+x3z8UyPL+C1FfWBOZkZJHX8IVXe/tV
UN8pr3/6a30Ojd/zw/H2gVK+7ViZd6N3Dt2fcmnF8aEVNHfWuW4PtjyiTxPS
Gs7sV0H3pvxUfUXuI1r56/KFVnUqyGqYs/m8e0/IdnJZg5pS/nDWP6PjTzlP
Ka1P0MPaQ/Tk5v/D/Nd+arK97ZN6o9n39fDIX93CPcziqW//y2HdHvJ65/Pp
RzY5R2gpa9PfW6NTEsjVfaL1nVQt1UxpcutwowSKfmNt1PK9lro47miWHn6L
fnY1zi6/wet7FdYdDlnWkOafzYUJ+y6EkXZqd489k3m9s2z1oiEzZunp5tiM
Bap91yglqfebI2Z8vexql9bqoCuvZ47tEzPbT11JNjkz11wbmkZtw4+7V16q
pI4rDg0xmivNr4kOc0qnS/F/SPTvfvPjaMgVc51uso7CQur/F3SM1zsn/+l5
4reJZ2hPR03dNGn9HnZO/ceNc27kcjQ/dc5dvp+x6WDHd1fu6Onww51JHc+r
aOis4F1mEge2X9v63xwVmV6vl+rhpyW/NYu2v7uYSPqG2z29pfjRKarD5iQp
Pm7+a9iJovVaSvXY2GuEVRLpep8YfthBT+qDPQymZF2mk3kDgp8219IWx5KU
P/9IoXMrK3/ftFtHHeqmr3T1jKHSarnt017z+t9m/Zm+kfoKatUp70jM71l0
c0yjPU0flVP9Gxt8Z37OZ/WFPHf3wUc2rKORTT45vI7h+6+WZmajDyXx/Yr/
A7kKAps=
    "], {{{}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Thickness[Large], Opacity[1], Dashing[{0, Small}], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwNy3dfjnEUwOH70WNHCCFFEhFJKhUpUjKyXoIXwKtC6CkNI1vKKCXZI5JZ
UbaG5Prj+nzPOff9Szp05ODhUBAEER5HBcHecBA80dk6i5vmdXpKY3QmM2i2
p+tJjdbpTGMtazjhXsVbHrHDrUL72WxeTRqpNLmt0gdarg/1L6PcIMptKsfN
EXroZJLbZKawhQJ63fvoItY+l3n8slczzj92uV3X5TqBFawkhUb3V5SZa/Qn
L3hJqdsx/cxGcxbZbOCOW46e1hbmmNeTSRzzqXX/Rh0L7EUU8tSerJd0mT7X
W+w239aL3OcCd3nDUSoZ4RNXGeIaHezx9p5+5AO59lZdqkk0mDfpeQ00xJg5
Q8NMpM2ep+2ar1f0D5fZae/WAb7wnR+85x3DPOMrg8T7fxFbWUgCiznr22/O
scSeyGtziW6nmHr7Nt3PGfMB3cd/cUlcWQ==
          "]]},
        "0"],
       Annotation[#, 0, "Tooltip"]& ], {}, {}}}]},
  AspectRatio->1,
  BaseStyle->{FontWeight -> "Bold", FontSize -> 16},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)\"", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(b\\)]\\)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic},
  PlotRange->{{0.5, 1}, {0, 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.65353855981493*^9, 3.653538854302125*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{808, 911},
WindowMargins->{{-1228, Automatic}, {-56, Automatic}},
FrontEndVersion->"10.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 23, \
2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 295, 8, 316, "Title"],
Cell[878, 32, 101, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[1004, 37, 178, 2, 64, "Section"],
Cell[CellGroupData[{
Cell[1207, 43, 325, 8, 46, "Input"],
Cell[1535, 53, 139, 1, 28, "Output"]
}, Open  ]],
Cell[1689, 57, 230, 4, 46, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1956, 66, 93, 1, 64, "Section"],
Cell[CellGroupData[{
Cell[2074, 71, 6593, 171, 454, "Input"],
Cell[8670, 244, 36347, 753, 211, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[45066, 1003, 91, 1, 64, "Section"],
Cell[CellGroupData[{
Cell[45182, 1008, 3575, 95, 264, "Input"],
Cell[48760, 1105, 48254, 952, 253, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[97063, 2063, 91, 1, 64, "Section"],
Cell[CellGroupData[{
Cell[97179, 2068, 3580, 100, 265, "Input"],
Cell[100762, 2170, 51150, 966, 255, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[151961, 3142, 97, 1, 64, "Section"],
Cell[CellGroupData[{
Cell[152083, 3147, 3580, 100, 265, "Input"],
Cell[155666, 3249, 51150, 966, 255, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[206865, 4221, 97, 1, 64, "Section"],
Cell[CellGroupData[{
Cell[206987, 4226, 6095, 169, 425, "Input"],
Cell[213085, 4397, 20674, 442, 255, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[233808, 4845, 90, 1, 64, "Section"],
Cell[CellGroupData[{
Cell[233923, 4850, 7540, 206, 510, "Input"],
Cell[241466, 5058, 29884, 605, 256, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[271399, 5669, 91, 1, 64, "Section"],
Cell[CellGroupData[{
Cell[271515, 5674, 5991, 160, 483, "Input"],
Cell[277509, 5836, 33442, 579, 371, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[311000, 6421, 90, 1, 64, "Section"],
Cell[CellGroupData[{
Cell[311115, 6426, 7023, 184, 454, "Input"],
Cell[318141, 6612, 712, 13, 77, "Message"],
Cell[318856, 6627, 580, 11, 24, "Message"],
Cell[319439, 6640, 710, 13, 77, "Message"],
Cell[320152, 6655, 580, 11, 24, "Message"],
Cell[320735, 6668, 40590, 796, 270, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[361374, 7470, 91, 1, 64, "Section"],
Cell[CellGroupData[{
Cell[361490, 7475, 4277, 116, 318, "Input"],
Cell[365770, 7593, 30506, 688, 246, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[396325, 8287, 95, 1, 64, "Section"],
Cell[CellGroupData[{
Cell[396445, 8292, 6255, 169, 382, "Input"],
Cell[402703, 8463, 30038, 518, 371, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[432790, 8987, 95, 1, 64, "Section"],
Cell[CellGroupData[{
Cell[432910, 8992, 6037, 165, 382, "Input"],
Cell[438950, 9159, 29319, 506, 405, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)