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

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

(* CreatedBy='Mathematica 10.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    195723,       4118]
NotebookOptionsPosition[    182310,       3817]
NotebookOutlinePosition[    182665,       3833]
CellTagsIndexPosition[    182622,       3830]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "cell", " ", "contains", " ", "uninteresting", " ", "generic",
     " ", "setup", " ", "stuff", " ", "to", " ", "prepare", " ", "for", " ", 
    "execution", " ", "of", " ", "the", " ", "programs"}], " ", "*)"}], "\n", 
  "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], ";"}], "\n", "\n", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "If", " ", "running", " ", "from", " ", "Notebook", " ", "front", " ", 
      "end"}], ",", " ", 
     RowBox[{"set", " ", "directory", " ", "to", " ", 
      RowBox[{"Notebook", "'"}], "s", " ", "directory"}]}], " ", "*)"}], "\n", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Length", "[", "$FrontEnd", "]"}], " ", ">", " ", "0"}], ",", 
      " ", 
      RowBox[{"NBDir", " ", "=", " ", 
       RowBox[{"SetDirectory", "[", 
        RowBox[{"NotebookDirectory", "[", "]"}], "]"}]}]}], "]"}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{
    "If", " ", "running", " ", "from", " ", "the", " ", "Notebook", " ", 
     "interface"}], " ", "*)"}], "\n", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Length", "[", "$FrontEnd", "]"}], " ", "==", " ", "0"}], ",", 
      
      RowBox[{
      "SetDirectory", "[", 
       "\"\</Volumes/Data/Work/BufferStock/BufferStockTheory/Latest/Code/\
Mathematica/Results/BufferStockTheory\>\"", "]"}]}], "]"}], ";"}], "\n", "\n", 
   RowBox[{
    RowBox[{"HomeDir", " ", "=", " ", 
     RowBox[{"Directory", "[", "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"CodeDir", " ", "=", " ", 
     RowBox[{"HomeDir", "<>", "\"\</../../CoreCode\>\""}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"CDToHomeDir", " ", ":=", " ", 
     RowBox[{"SetDirectory", "[", "HomeDir", "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"CDToCodeDir", " ", ":=", " ", 
     RowBox[{"SetDirectory", "[", 
      RowBox[{"HomeDir", "<>", "\"\</../../CoreCode\>\""}], "]"}]}], ";"}], 
   "\n", 
   RowBox[{"CDToCodeDir", ";"}], "\n", "\n", 
   RowBox[{
    RowBox[{"<<", "SetupModelSolutionRoutines.m"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"<<", "SetParamsToBaselineVals.m"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"SaveFigs", "=", "True"}], ";"}]}]}]], "Code",
 CellChangeTimes->{{3.69823126071101*^9, 3.698231290402529*^9}, {
   3.6982314958202677`*^9, 3.6982315059245853`*^9}, {3.698231596232819*^9, 
   3.6982317610035343`*^9}, 3.698233061037314*^9, {3.698258721267456*^9, 
   3.698258733545535*^9}, 
   3.6983443864649553`*^9},ExpressionUUID->"66b1abf8-6e7c-4210-aab1-\
25591743efb1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Example", " ", "of", " ", "parameters", " ", "where", " ", "FVAC", " ", 
    "holds", " ", "but", " ", "GIC", " ", "fails"}], " ", "*)"}], "\n", 
  RowBox[{
   RowBox[{"CDToHomeDir", ";"}], "\n", 
   RowBox[{
    RowBox[{"<<", "SetParamsFVACnotGIC.m"}], ";"}], " ", "\n", 
   RowBox[{"SetupGrids", ";"}], "\n", 
   RowBox[{"SetupShocks", ";"}], "\n", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{
     "\"\<GIC fails (1 < \[CapitalThorn]\[CapitalGamma]):\>\"", " ", ",", " ", 
      RowBox[{"1", " ", "<", " ", "GICValue"}]}], "]"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"\"\<FVAC holds FVA < 1:\>\"", ",", 
      RowBox[{"FVA", " ", "<", " ", "1"}]}], "]"}], ";"}], "\n", 
   RowBox[{"ConstructLastPeriodToConsumeEverything", ";"}], "\n", 
   RowBox[{
    RowBox[{"<<", "FVACnotGICPlot.m"}], ";"}]}]}]], "Code",
 CellChangeTimes->{{3.698256908656096*^9, 
  3.6982569094394836`*^9}},ExpressionUUID->"d41dd9da-36a6-41ab-8b91-\
3000de6af7d3"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"GIC fails (1 < \[CapitalThorn]\[CapitalGamma]):\"\>", 
   "\[InvisibleSpace]", "True"}],
  SequenceForm["GIC fails (1 < \[CapitalThorn]\[CapitalGamma]):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.6982334796484222`*^9, 3.698257135727975*^9, 
  3.698258173888979*^9, 3.739779369516377*^9, 
  3.739780308617578*^9},ExpressionUUID->"2e553555-4bba-4574-979f-\
81b8aa132a60"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"FVAC holds FVA < 1:\"\>", "\[InvisibleSpace]", "True"}],
  SequenceForm["FVAC holds FVA < 1:", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.6982334796484222`*^9, 3.698257135727975*^9, 
  3.698258173888979*^9, 3.739779369516377*^9, 
  3.7397803086739388`*^9},ExpressionUUID->"1694fced-8296-4186-bb3a-\
ac022b82884e"],

Cell[BoxData["\<\"Running FVACnotGICPlot.m\"\>"], "Print",
 CellChangeTimes->{3.6982334796484222`*^9, 3.698257135727975*^9, 
  3.698258173888979*^9, 3.739779369516377*^9, 
  3.739780308736618*^9},ExpressionUUID->"a84bb402-89f8-4619-89ad-\
096887cf72e3"],

Cell[BoxData["\<\"Running cFuncsConvergeSolve.m\"\>"], "Print",
 CellChangeTimes->{3.6982334796484222`*^9, 3.698257135727975*^9, 
  3.698258173888979*^9, 3.739779369516377*^9, 
  3.739780308797351*^9},ExpressionUUID->"68289832-1e85-45b5-b90c-\
c8e075e7fd35"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Solving for \"\>", "\[InvisibleSpace]", "100", 
   "\[InvisibleSpace]", "\<\" periods.\"\>"}],
  SequenceForm["Solving for ", 100, " periods."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6982334796484222`*^9, 3.698257135727975*^9, 
  3.698258173888979*^9, 3.739779369516377*^9, 
  3.739780308861792*^9},ExpressionUUID->"23784040-c619-4274-8e22-\
0d04606e206a"],

Cell[BoxData["\<\"Constructing TableOfcFuncs.\"\>"], "Print",
 CellChangeTimes->{3.6982334796484222`*^9, 3.698257135727975*^9, 
  3.698258173888979*^9, 3.739779369516377*^9, 
  3.739780319442943*^9},ExpressionUUID->"303e8b1a-67e6-4ef6-a602-\
879f9185b8c2"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {GrayLevel[0], Thickness[Medium], Opacity[1.], LineBox[CompressedData["
1:eJwV0X9Uy3scx/GtElbS+tCJtFam0U/lR7rk/VHObbdf51Ld7i2u27QV0yrH
7nEr040Qokiispv8OLg1/RKhS350U3ZphFNuafIjvrXtuy9brXZ3/3id53n8
/XLjp68XWNBotCjz/m+llG/tn5y9erI40YEnIOC+kh0Zz/4J/nW/rIgSEmB6
2LqHzd4CrQ36gzEpBFTeKXSdwv4NpM9PWG7aQsC2YEnaV9cCmHR6opOkEaAc
Ty1Ru56CCdnaF9USAqb2DnIJ10tgrPGpMOUTUPVIlvnJ9QaMdZgWNF8goFZe
0LvN9xGYOP6rLhIEpMDTU5+3K6H+wbJBld8IiIcWqRprX0FAxJcPyowRYLjt
5favGICbZKh2bfMIHLHv9Kz6RQWaN8mHLAwjwO+N/cuy6x0EkA7cNXgUMh/s
5adzhwE+5sxfsm8U6jJsY5y+I8DAaZFnto9CVbZoeHG8GvrXhMicpqohT2Zc
p/usAadZxbWshWqgKQfwrSwSml8Gi6U8NXjsEO6M9aSg19dffkakhrfUyR9s
bn+BHq7dCsFhNYQPbd11LFMPcfX+IZ/laoh+W+TFYo3BSr8GY1e3Gobv8XP/
rhkHfTTLFEOqwZfZ4xK6aQKCaE/yyh01wAAqqY+chPWxouiCQA2EEQlf3eNo
eDQoqjwwUQMv25LpCd50rGUWloFUA00H7v/Mpui46/C118QZDQinSAYUCgvs
dcrj3IY2DWzent1ke9oSJ/Fy6zNVGvBL8VJEJlnhyY+BmQOWWvjHwdtGEjQF
s1yW183kauFmbV65t6U1diRdgobCtJBN9/y+67U1Pp4QGZIt0gKjL4snbpyK
f218Ob71iBaGLriVyHKmYb+66AmaXAslC+dY3YibjsVgkxvfrYWi08L2JDYD
78moC48ltZBQslFh+56BTcebHlxGJOjXnjfIWm2wiUdru7ucBNVQyM62/ba4
54+l1rvjSTgb7O/8OGkGDjgo7zSaf6jJlzBTfOyw0HHWK3YFCfvjNkdYUnbY
VNJTeuYWCcv6qi7tfzwTu5zvf97XT0LZovKaxxH22OHH7g13aTrYfaewLOKG
PT5cYSMQcnQQ5Rx3/hGHiUXKsy6CMB2sEbcnMguY2L1mPouRqgPZPD6ni2Li
jU6fZOmHdMC5d7E0OtEBZ3hUbMn+UwdFPm2e3a0O+IPHFdVAlw6EpNXTDk+E
312n9VurdcCv07ILjiLcQoC70p6CbXkxxvBihJ89XX1CwKRAEtP4wvY4wkRT
8DS92QcoyZGiUoTZ0pUj8xAFtUGG8ZOVCO+zC2wRzqbAcNfUc+EKwuv8fNeP
zaGgqNu28H47wh8y5uW5zafgdHVa6r4OhC3inKkGs6t3KEJ5nQg7B81N/ZZD
wTXHorFOBcLRdKdo0QIK+hJQqvI5wg3FaG4TlwKuak7ooAphaT2jnudNweLG
LNa5IYTLSqcv6DX7m/xeg+A9wvVZ08rSfCiI5FZe/TiM8NsQa+kxXwq2i9gs
jQbhcCU9vG8xBTmrfjfUkwgnN9Nui/0pyJ8x+GwHhfCucpMfPYCCMnn1Ib0e
4aubJ2Z7LKHgbK5VSssYwh1hxgPXzb6yThCSY0R40Gt8PHwpBY3uD11WTyJs
nDkmfm12K+lhMJkQnq3Tv0lfRsF/kXxVfw==
        "]]},
      Annotation[#, "Charting`Private`Tag$896818#1"]& ], 
     TagBox[
      {GrayLevel[0], Thickness[Medium], Opacity[1.], LineBox[CompressedData["
1:eJwVlHk01fkfxmVJIbm+TabCRUm2tE2TVM9Hy7QoWZKGGK5CsjYcRCW7SlSk
NJQlJVGjTJZsjWIkJW2Swr3fr+tutuQq5ef3x/u8z/uf53nOeZ/Xo8sJsDso
KyMjkzE1/99ZxznTlx+I2CAjUydXZhK+oaFdZ6ejzu+QMS/xadJwxOSTmhgd
nUOQWb6ZdVHDC1l1yWwFnXAQ0xRepEYofNeH+I2xk+BWtMo6UCMB7d+80wbZ
lxHloyjno5EBxc5eAzG7EGrNgV2eGjeQ03w1SMiuwIvw6zsOajxAyZ2kTt+l
zUgezgqTVWuCF9oui460o0rNi/r+qQ3+tCH3fkkHfI2dE65lvoWSbqzBpzXd
GGmMtWgr6ULTunNmx7d0Y9aL4IzRhi7E78v+VcuuG2Mq1stZnV2QTS3f6ny4
GyzjTltTxY/4+kPk9TarG2ZUSteI60cIPzjcfC7bA/liacE5lU9ouWRgWNfS
A+n9ChJh1o2zak+Ncty4CFOrtvni24OKX7XKrP25CDy0esg0tAc81wBMRHBx
Ju3yuv0ne2BRTO1xzOBiUfCuqr/Se8Dfvv/YrFYuFLS+Vd6u7sGmGPHzcAse
ZINs6+RVeiEdnR1iN5eGDnuDXHROLxZqcSYnF9JQS+yRJtzqhfXm+0nFy2kE
qedax97rxfXz+7Jn7KKhMD+Y7fa4F3ZmOY01MTR+suyIzuf3oth7xXzjIRrJ
8cfWc0y54HTuqZVrYfD5v4tnmu5woXSlxy+og4Hl6hjbiAdclDr5a35iGBRs
612rX8uF3PuE8MppfWDH301xncqd/65yZdCvfXAOeP/SS8QF81rn5sfcPtR8
zHe4ps/D2fTivTvv9iHsY0BfqAkPqx3WKlRWT93LrSI3rOQh4ZU9J/1dH5aQ
JaGXCQ9L2uM1d6ryMVbaLH/GiQefF6LUinA+npvZqJ45zYN6ajgMEvgQ4fPQ
oXM8VO6eLklL48Oy7N5d8wwelJ+zrQLv8DHntoP7nVwebj+zUzCg+ajmu30c
K+dB0lwenmbTjwnVs/O0uTwEPY7lBBgIsF7bo6J4KQ1t3m/Tv6wUYI73cdf6
FTSeys68FUkEaBaZ2respqFPkoeSfhegZXHsyaYNNDoq06PyTwtgkK2O/dY0
LO8WZHcMCPC8qLRd1peGpNV7o9uEAObBk9PTA2hcERsxzAwhelTHH7P/pDFq
dMf0s64Q85pfm7KP0ii8/uCh6h4hWI5hSY0JNFhXmt5vKhfC1sKUacmhUVNx
6nhzgxD7BheUDeTTOPxup55tmxANp/IolZs0Hv/UdshVIIQg9GnF8hIa4akd
0jBNEWJiX6xZUUmjJ04wtyRKhH8NbzFUG42/A1Xsf94uhtE/0UN3v9JoyaTC
i/eKgSq2lv13GkzD/KsbD4hRvODyyYFJGvPnGQp9T4ixrdjKQEOBQWz9lpj6
MjHe3sqxWDibwV71E/d89CTQr75VukaPQeC6+I5JMwnMM/ZKYxYxOOWZPJm2
XgLvn3ebNi9mUFt5xap2nwQbLvyVvNWYwRKPci6VIoFdoKOF4ioGX+8NUdXf
JPA8nR2Ru5nBnI9Sc7uZA2AphSzN+Y3B0hkybn1zB3BIMcLjyjYGHvtVb7NW
DKDj6bng6J0MWuSNN3t6D6B2iKWmuYdBtsOB4NmvB+B2y6YqhsMgJ+KwYJnj
IAQJZ941RjJYVjdTmuAyCH6ExjA5zqBO/qbCJ49BzLicdrP8BIPuZJ5OcuAg
DB3TxvKiGWhfc3HsTxqETriPj08ig8yG3Q05DwfhfNtmpPwCg/OzVmWr6w3B
oD+00a+QQfTVCdvPoiGoXFZDSRsDm2XlQcYjQ1N/Cmx//3JKr/7Pc5zxIRzb
bpY2/RWDyl7BixcKw3hemnHN+Q2DYf2O3cXawyiNU5418Z4B53bZLk+bYZz4
ZumjwZvitsJ/+7t7w3jJdrWuH2Ug095NHh4dgfu6tRZ6Gn1YHOwZtsdoFCPK
b/NP7esDbzRjr3L1F6jZrJxnm9KHHbTPsfNBUpAuplD1SR+seanG2tpf8fmh
7L2z0j4I/uVENRV/w1KbqI4CfT6Wst5obfrjO1iZJuLZDnwoYdT9w8gPFDwr
ynSN4mOr2GlMz0GGZCyu0L5Zwse7RwemOZlMI84m5jfqOvkoS2xw1RmdRup1
eyMfKPTDUyGku7VVljR3FrZsWdkPjyMRZSqZcuR8T2LIhEs/zLyMW3e6yxO7
WnlVdmI/nqubKIeYKxDBo6LZq/7pR1VJ9BUTuenkMNfFOKunHxHTjGxauqaT
L0zZiAFLAKUPR7f531ckCkYOGS5TXNMFumlXI2eQhROdWxlfAdKWzJOvcJhJ
vONOxNVnCZCa6dnorqNExhjVQvqpAE5pLq0qfUpEmetblTMugHTz9fGrNcpk
3MN6dZuxEFx6Y9ijBBWS+2d08BJnIXLXL1/wzH0Wid//JV0xRYjiuBCWl6kq
afIPWS+tFSLBwcNKblSVrAgI+8V7UIhfPuQUJjybTQzP5r1api/CJcMrxc+s
1IhP9ZpMv70inKhLvmRVoUbeZHZa1Z8WYdcCh+vNi1ikMlDJZE6dCJb+jc6s
JBbROv1d6cOgCFc1OYtaRlmkacX62HJ9MRb9e+OitbM6uZf4Kk/JUYxU00dG
L2vUSZG2+lqXBDE8R+Tb/jOiyB9+xocfVYnB+XtYJymFIolUbm+2SAzfaPuJ
HecoUnTjyI8wsRgh9vffqlygSMKCknn2EjESR0POpl6kyMWCg9aKg2KUmI9/
y8iiSLT327sBI2KM10++KSiiyIfcJ7+Tr1P+L1WSGxopAk6XRY+iBJl5ft7x
/1FkJkdlS9UMCfKCWzdte0qRBf4Fu9JnSvDP3NSvT1spYly6wGW7sgQfnCjv
9tcUqdZUDvlbVQID7rxNvdypfAsnE0/+JMGy+0e182mKFDd+SnSeK8HauM7x
g30UeXzROPEXDQl2GmTd7RdQ5GqNfFz/zxIcOayjPTREkV1B1aG2mhJErjs5
XjpCEdVbY0eMtSSIm9X7KniUItbsLD8FbQku3ck7LZVS5HCToXsFW4LcKHmv
yq8U4cmwnC7oSFBke3Bj5ARFWCc87Px0Jbiv90Rrw48p/S26O7ZO9WTNyOLx
yUmKSB12WOoulOB/+Dij3Q==
        "]]},
      Annotation[#, "Charting`Private`Tag$896818#2"]& ]}, {}, {}}, 
   InsetBox["\<\"\\!\\(\\*SubscriptBox[\\\"\[DoubleStruckCapitalE]\\\", \\\"t\
\\\"]\\)[\\!\\(\\*SubscriptBox[\\\"\[CapitalDelta]\[ScriptM]\\\", \\nRowBox[{\
\\\"t\\\", \\\"+\\\", \\\"1\\\"}]]\\)]=0 \[LongRightArrow]    \"\>", \
{2.5, 1.1220798104094762}, {1, 0}], 
   InsetBox["\<\"  \[LongLeftArrow] \
c(\\!\\(\\*SubscriptBox[\\\"\[ScriptM]\\\", \\\"t\\\"]\\))\"\>", \
{0.8333333333333333, 0.6669616681060014}, {-1, 0}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\[ScriptM]\"", TraditionalForm], 
    FormBox["\"\[ScriptC]\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 14},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{468., 289.23990673495075`},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 5.}, {0., 1.3255461527871877`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->None]], "Print",
 CellChangeTimes->{3.6982334796484222`*^9, 3.698257135727975*^9, 
  3.698258173888979*^9, 3.739779369516377*^9, 
  3.739780320927511*^9},ExpressionUUID->"aafe9f69-b666-48ed-a094-\
d830880b7494"],

Cell[BoxData["\<\"Exporting:../../../../Figures/FVACnotGIC\"\>"], "Print",
 CellChangeTimes->{3.6982334796484222`*^9, 3.698257135727975*^9, 
  3.698258173888979*^9, 3.739779369516377*^9, 
  3.739780321019308*^9},ExpressionUUID->"7589f909-1e42-4890-bb38-\
fe7354c4eb01"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Show", " ", "convergence", " ", "of", " ", "consumption", " ", "rules", 
    " ", "iterating", " ", "back", " ", "from", " ", "terminal", " ", 
    "period", " ", "T"}], " ", "*)"}], "\n", 
  RowBox[{
   RowBox[{"SetParamsBaseline", ";"}], "\n", 
   RowBox[{"SetupGrids", ";"}], "\n", 
   RowBox[{"SetupShocks", ";"}], "\n", 
   RowBox[{"ConstructLastPeriodToConsumeEverything", ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Define", " ", "terminal", " ", "consumption", " ", "rule", " ", "as", 
     " ", "the", " ", "one", " ", "for", " ", "the", " ", "finite", " ", 
     "horizon"}], " ", "*)"}], "\n", 
   RowBox[{"CDToHomeDir", ";"}], "\n", 
   RowBox[{
    RowBox[{"<<", "cFuncsConvergeSolve.m"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"<<", "cFuncsConvergePlot.m"}], ";"}]}]}]], "Code",ExpressionUUID-\
>"2056b67e-5f44-4c31-98a2-1fc7a665dd08"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Running cFuncsConvergeSolve.m\"\>"], "Print",
 CellChangeTimes->{3.698234069027472*^9, 3.698257149181452*^9, 
  3.739779387056981*^9, 
  3.7397803253072357`*^9},ExpressionUUID->"f1300d23-6830-450e-86fb-\
d73c2944d0e7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Solving for \"\>", "\[InvisibleSpace]", "100", 
   "\[InvisibleSpace]", "\<\" periods.\"\>"}],
  SequenceForm["Solving for ", 100, " periods."],
  Editable->False]], "Print",
 CellChangeTimes->{3.698234069027472*^9, 3.698257149181452*^9, 
  3.739779387056981*^9, 
  3.739780325376967*^9},ExpressionUUID->"2ed32795-f09c-4cfe-9353-\
76e4068d9af9"],

Cell[BoxData["\<\"Constructing TableOfcFuncs.\"\>"], "Print",
 CellChangeTimes->{3.698234069027472*^9, 3.698257149181452*^9, 
  3.739779387056981*^9, 
  3.739780333069322*^9},ExpressionUUID->"54611e4b-d3f0-47c6-8572-\
fdc0ed7e57b4"],

Cell[BoxData["\<\"Running cFuncsConvergePlot.m\"\>"], "Print",
 CellChangeTimes->{3.698234069027472*^9, 3.698257149181452*^9, 
  3.739779387056981*^9, 
  3.7397803344462214`*^9},ExpressionUUID->"627942a6-3f95-45f7-8160-\
84bae770d26c"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {GrayLevel[0], Thickness[Medium], Opacity[1.], LineBox[CompressedData["
1:eJxNxWlM0mEcAGB0OchjQFJ55EEpsy9Ka4lWBIa1sDDHZJapo/KgmtEQTVbi
vJJyU5ZXanZYLCxnpE7n+pBpEyPLY2Zk9VebB2ZpcyKgKV30e/vw7KGeEvOT
7HE4HO+X3x8ycyxlDtf24XDsP5cG+QjasRQWjv53J6aRW4BdZOFsaznC8HNY
IavDtr+2PCwBq2T52h5S0DtisAesftsNM1nZ0VgbS2PbrdpvlI9p/7uknzeq
h8VB3xKWZZ/hOFzNfXOSAQ5UUV5JB+fg+dwRzyrRAhxaq+wMVhvhnjldf73e
DIffcstlDq7AzYzebSRnK3y1ktuSg7dj/3skUOyYnGMP+z3V6s94roOTl+rN
q1UO8F3aM+WTEDwsl1R87OsjwPxUk0x+2BH2jS8qOTLtBE+uqJceprjA90os
bwMIRDjX50qLIooEN0YO0Q4QyXCMeY+AjKEvy0QN/rc3wBJCRrw4zhWeINfq
erZT4MEFhfDsDJoZWdzk2b4RlrVJE+wLNsF0s8/OHZzNcGLzRJeY7AZTDp7P
WhpAl0/plU3F7nCpXbxQfsIDdl5UHbvu4QnbnyS4tM6g01RBX6iPtsCtJga1
S+QFp784TpEGe8MaEZueuoROKWQTMrp9YNN7klcs1xe2fDgdUatGh9Z0CQxE
KszoLkiPuYD2zgzZP/4GzZk2fZXs2grTOt0bAsrRCsHR9UMV6FlDfnL2DbSG
+N13uAa9O767PK8OzTNLsrHHaGlgL79Mhx5+bqdh9aJDBQyX2dfotUt12rAB
tOJl5t75d+iaRH9axCR6zRSbZ5xCC4uUY3cMaL+mlWrTLLrROkBULaBJpfjU
qEV0Go2pWzGiQ3jqfL4FXT32aXx1Gb2a5sqq/4EW4rk3o9fQndVyi9WK/gnX
+zMX
        "]]},
      Annotation[#, "Charting`Private`Tag$941114#1"]& ]}, {}, {}}, 
   InsetBox["\<\" \[LeftArrow] \\!\\(c\\_\\(T\\)(\[ScriptM])\\)= 45 Degree \
Line\"\>", {6.5, 6.5}, {-1, 0}], {{{}, {}, 
     TagBox[
      {GrayLevel[0], Thickness[Medium], Opacity[1.], LineBox[CompressedData["
1:eJwVkX001XcAxi+Vt66Xy/2VUly/ZNoadg2x+D5olZfbRBcJ85aYxLxUzoro
xVWdOHmpCOtFmFZIzKwVikK3OJJZXSzlbSGH+4LL7I/nPOdzzuec54/HMDja
Y78ig8HgLeX/3il1kmWvOGvPYOCGmCuwzzIz4NeJDhCGL/NdBTeMrLSbcT4t
OkJO6BgcP8E9TFqcArdFitIIJ8bEJZx7hmxsyXEIEF0iJ/R/Nffj5pIugfkj
b1EJKU2Y2ODFvUVujxxP3iOqJbiWud6TW0N084z6PEQthGkdlLeb27zEGS95
fT3Ex+x+pJvhaxJt9jFgNvEf4nCsRz62doD4MfJvSvcPE684vo8k8AMxLWa3
xXeOk1xWq3KocIxMpPbqXQmfIk3r7J0STSeJTUFmo1XpDKl0dO0f85wiT8db
X5b1SInSl2rLrSynybZC3VS7zjnS5xMbWd07Q+5Zt2/QYi6Sy6ym7YxcCUm/
5FydoqyA/CMpCh2bZaTXNFotLEURg4cWDv5ZO0uM6lt6IvSWI7s8Kis5aJ6E
icuk8isrULnpQbXGRzm5Zvwws3KLMryEbp0ZlxdJUmzumxcvVKBtMN1RXsCA
R5QkMclVDSN3Y+ZKAhXA8T+X4Ta0EgOK92XvLRTxfq5U/MsBdYxLeeJBqSJu
ZMhemahoouFTd6ylcBlSDc5UC9y10JfewDxTtBx3dnUZf6vJQuUroUVN8Ap4
S7/hs0QsHBS3RThZKeFYYvjtjUXaWLUh4lbdnBJiVQ77R/vpYNQkXe70QBmD
rILWp5vYaHCcGDTLUEHnlCDwhxE2Tj60DVT3VIXdrgtVenUUeGOiUt5nakis
jQ9QPL0KhUzu1hKJGsylBhZfOa3GvCCYI6lbidB7g03RLF2k7Q3RKD/PBHv7
oePiDl1wC2z1vXerI+dDT2bVhTWQuQ1YcrQ1kKXgH5i0by3sFCrf8t5pgDld
7HNxrR7cv568mXBLE4pBKuo1I3qIqcpXUrDTQlyx2ahh+TrcVX1V87hICzUS
a8Om8PVo5esdvMRgIeHxXna8lT6M9v4xkR/BQkU4zKPES7x9Vr2wjYUDaVA5
3GyA9nVzkx2W2pD8pbXe15mDyJnfF9iF2pD9HeJSUMpBatnbrV6L2rDJb+IP
axoiJEZo/yxcB9bNpxO8YwyRfWdzrW2bDvSPbnEcEBriU2/jUP0XbDgNSf6N
taQxmNzdfSibDePGNbdNcmiohkVe5YjZEPC/U+3KpXFPFtXVJWFjbPhUWPJl
Gk9OBTPTZWxUaE5yuvNpCDINj32aZ8PWvznn5HUauqMS38ZlSz9IY5NFd2lw
5CqrQlkU4k3bPbJbabxZ/TqlZDOF7gaFCtJOo3ja4Ld9phRs+NbqY89pxDns
G9c0p7Dw0/UWhw4aL2zKfI9aUBA8O7p14jUNV+YNrrMthfzQjcYu72kII1j9
ozuWfInvyZkPNHLkqVSRM4XAc5n9Pw/TuPnNkIunKwWjqrk8yRiNxcdp9+t3
Ubiz2KFZPEVD48dNZ8/zKWhlKUe5T9M4X2/+EN4U4oztWudmaEjbP5+e9qGw
hVd6ykNG47mHxN/fj0Je/9sB+SwNd+Gzi6wACvI4HVI2T2NGP6PlyfdL+8rO
V/cs0HDcuWM+MYhCY16SbHGRxiPelLlpCIX/AFOOKX8=
        "]]},
      Annotation[#, "Charting`Private`Tag$941155#1"]& ]}, {}, {}}, 
   InsetBox["\<\" \\!\\(c\\_\\(T-1\\)(\[ScriptM])\\)\"\>", \
{9.5, 5.346855991878185}, {-1, 0}], {{{}, {}, 
     TagBox[
      {GrayLevel[0], Thickness[Medium], Opacity[1.], LineBox[CompressedData["
1:eJwVjns01Akfxsf0c4ap1rWwivwWq62TVG65fL/lUoq2w3p1odW6puy4Z9Y1
l3LZUMJrVKxuSKGoI9tpokUtuZSSaiiXGWYaY5iL++v94znP+ZzznPN5DH5j
uAdQKRQKYyX/7/1yh9kriln2FAoW19Ay7PNN9T0bOUGQXKO7tEgPhNV2Epd0
zllgx/8t7KTHQJuDr+NpzgUoG17DbaCfB6O2gj0nOEVA0TIfrqQXwtuM7Wwv
zh2o3e7y5Qb9NlSPJyT9wnkMf9p5DJXRH4E2y3DQndMGcof+X0vprSuc2+02
2A93Ja6dQtk7YJh+OzHH/Ap3VrdnBQmHwJtSclMewAMTP5nL6vlRmBzbVVCV
xIO4ibiFVypjkNL5Ot27mAc9+lcWEgzHoJJFDWJ38ODQ7vazT93GQLorZHPG
znEoX0pjlpaOQd4p6/taChPguqEmdgC58E/v+8cWV/lw48WzvNJYHhxpDK/g
NfCBfOZjeT2bB4LS1cWsLj78PB3UdvE6D9RD4Y8lqgC6Em4y4QUPfGl3bFtP
CSBuVVHa6HfjMGcT89zT8hvspsTeayobh223NP+N6hUCyyJV8YeGCagzbmMz
JoTgZXLEn/ViAnZVMB+FUCdBp0W0vPRmAqzvcv7y3TEJUo+ckVzxBDjWVcS6
Xp6Es80xId3b+HDvhJ6G+mYRzLSU2Xff4ENLyAP2OE8EEuotsVayANLuZttw
Z0RQmEnxdbooAGeB/6MRyhRsqcyIP8kSQHuoVvWg9hQco45oB9YL4HVYfFHf
/in42Ji1/wZXAB9inH9/XjEFhTbuVQoHv8FkyoBucbAYAoIc6+WKQjhyPPpy
UbQY5is5n7TVhdC8U1W5MEUMCXUaaKInhCsjTtLLV8Ww5TbNcp2FEKyc67r/
7BZDZI3bqS0BQkhRzkhPtpqGJ6VTtf5sIWjmmU8GKc1AzWb/Q8OnJ8H6Wl6z
RYUEbv9juvD1kAiSz7/MkddLIHz+dt9eDxG0MqjHnzyXQEhnbtZ1LxG4742a
tvsoATMV8wYXXxGEcL0Mnb6Twj4//wNh4SK4aqZ/3iNKCpL9dwZo+SKgtN5z
CUMZ5Fe6Xr/5RgTtwlfdlf1ySGp6Gfof1ylwvK6dYtc7D5cuJfCrtMTw0LLj
B9U1y2DHNt0XMyiGzCKX+nM0BdyjG5jz5eI0DGxj0APPUfGoMvdrsNkMGDa1
9Z/SJTAgf5it8XkGAqWV8sViRcxw1pT4MSXwl/GzvDorGpo22jLZ+lJIjCj8
1NWlhAH3eD5/s6XgHipjJh6kY4PakyonTxls8snOdeWuxszQw9eoEhmMzldI
q4LW4jejkkHNTDncyJ3tM1FSwR32Lrwyk1lI0T9fn3FYFXmfGOoXXszC/UNv
jZ1U1DDN0FfxtOcceMltPNU4aljgbRZJFc9BPDO42qhUHXvemou7U+chQinG
h+GtgdHOWRiuvgAjatdetW/WxC7t8unP1QvQK87wDRnXRO09OfxG20WwO5Tz
QLdxHa4qP1gS1L8IzMdRJ6jp63H02pITLXwJtsv1d5o5aKH/mSYDy+Ul8H84
0sJQ00ajtU83QPEyaDr/niDt0UbdrcYJEZoULBjrz3uQo4M28Vr+HccomK/g
45t4/HukP9/Yp3GHgmtmbh25/L0uSkpUvXcIKUg9qbT20bgueqTQ0+xtFDDy
lumEwd0NOHMzOtYoVQEfySwNWoI3YvYadXPWSwWMfnFUM8pCD8N+GphfWEfF
2mDcHirVw+n8swA+VAy6gEoxrfr43mXrr4wqKso+qG485rIJO0qOpplKqTj7
0e/AtYpNyI1YrOu1XYXWJS2ePBUDfHbmx2d+mavQsjU92ivMANeHhjM/dK9C
vVirvV9eG+DQqaTsr+sJdODKBBHmJEKDqu+H3wg0btapNikgsTt4s97jSgIz
PH9WfltIYtZJWcp0FYF8Xlpg0n9JbOeGc02rCaxVEW16V0JirexMTcV9Anf7
tBaklpPYXJpgw3pIoJs8IolTQyLRvsEx4SmBUds63K+8IlEnVKjl0EPgu+cK
tdBBIjOOGZHUS6C1p+VafieJFpyHHU1vCFyKK2/b00NikMwiede7lT8vY20n
35Po0Rc7bPSRwBJ/I+MDoyQ+VV5iKY2u7GXHUiVjJNKiMkSOYwT6ZucNlfFI
TMtscTrHJdDwwTxLxiexhu46OTtO4P3lHpVbYhId6ivs+UICVfNpoYdnSOxq
fXLpRxGBkcZ2r+YlJIq2Jo74TRFo5VaR5j5LYvY+ncxP0wSyhj5/WZwjkW00
NaAtIXAxUgMqF0hcqPpjq6d0xU9zufrLEolKgoaESzICm1mJs8vLJN5eLH/d
KSfwf4L0XU0=
        "]]},
      Annotation[#, "Charting`Private`Tag$941319#1"]& ]}, {}, {}}, 
   InsetBox["\<\" \\!\\(c\\_\\(T-5\\)(\[ScriptM])\\)\"\>", \
{9.5, 2.6214863319078288}, {-1, -0.25}], {{{}, {}, 
     TagBox[
      {GrayLevel[0], Thickness[Medium], Opacity[1.], LineBox[CompressedData["
1:eJwV0Xk81IkbB/Cv2fxmJvdRkXJ8HWW3n2PlLD2PSKlUaynlSBIqGhvZlLBy
dfyYX4XfoLSVzdXhCNXWyq2LVKhEtRkzZpgxxhyEnd8fz+t53q/X88fz+jwm
oQyfAxSCIE4o6v99k8xdfkn57DrF+KnxX1nrLlob+d0fjAAi/gzFdGE4qLhO
eaUP/gpEHXVKRI+HdvcQj8ODmUD0eo6/p2eAeXuuW/BgPhDh7NGX9Dx4k2XT
uGvwJtCsHLgd9D+gknsq2XewHmjawZxWeh3oFZgN+Qy2A22BKKKF3qZwTrf3
UD845AwVL5T2AsN6LHg64Qs4X6Qeh4lPEEgU3pAd4IA8M6n8o2QYBOzVueXJ
HJhu0isKUWFD6ouX6YEsDrj1nv+p14gNZQWUiMbnHLg8fqOKtYkNktWHLLPs
uGB99axyEosNzIPOt5cojcKdN4/OVDqNQGtPX71DEQ8ex59rtY/igP/9X0o5
93gQG9WySZjEAX6xCqugiwew99Hjwv9yQDsaTsxR+KDuH7i5tY4DIdSba9sO
8mGo2KHKkeDC9Jr4J36OY5C03sHfOocLViW6z+J6xiG0IW4Vo2gUqizaGxmj
43BY9p05o2IUVpcm1B2iCMDVJlE/4MEoOFcM/h7yowBO1urPSvpGwaOq9PjW
CwJwyW7SA20e3Ao21NG2FMKfQurY4tM8aD5U3cjlCOEn9pHrrjv5kFZxbs2I
WAib39fIu0L54MkPq/tKTMAByXnhdgYfOqKXVA7pTYCxp9si/Sw+vIxJzH+7
aQJMqJQrPQ18eBfveeRJ6QRY5iidlCweA0HqewNWpAg25jI232wbA/+AYxfy
j4lgj9CgRP5qDJrsNOl5qSKwN64ddv44Bpe+bpBcKBLB90zn3LTJMXDyrOo+
3y2CCaZA29NoHFLpWekpTpPQovo54VLsOOgy7QURNDEYxFxdYqspgFOR3QfC
F4lhLNSad0JfAGw8PBBGiiFiKmF3HSmAhomrnfvWiqErJSqWYi+AoJ9VbwTE
iKFvy44ckb8A/lj8t//2fjGwWqlfQq4IwPkys8mhdAqCIIqVpSmElIzObFnt
FNiHvX24T1cIbQxKwIMnU/Bppcp+Bz0h+KyPm3T9MAUl9ZZHeoyEcGhkl9kG
dQlk7lWv6bUSQpGtUcbPcRL4wSslRH+rEIi2W14xKIWz46yPz04LoWP8aXdZ
vwxe832973KFkGHONGJ+lUHNs4z2JL4QPAL9jsQLZbD4i9HyLQIhNHYOqbjT
5OBmTo/6qPhbww2x54CjHGTr2jS580K4ucfwkXq+HLS557SvLpqAjLZfymL9
pqG2qKLjJkyAxxW9VNeeGUjsDnzWlz0BNY7PTTVV5+FVZXBUhqUIzuR71f5G
VULZ/nedKypE8N6KsTD8Nwquu/Pdrx+MJ8HsYXv/QYMFmG6WmGrKmoRwSZls
lqWMLI/a+o0LxPC7xV/MKicqujNkLV5xYkg6mjfQ1UVDflnhCY0hMfhESxOS
tixEWo7eiiicAuOgczlbR1TwxdY6VQNF7sMzpZLyCDVslR7GaKoErufI366k
aeCZe8rMqGgJpBpl1Gbt0MQVw2GTid0SuL3tjcUGDS30NQssX7pKCrtka/y0
BrVQRqtQrsmWQmJCZKV5sTa6RbT/Z9WoFI7S4oMYgTroq/S9XZi7DL5qXX7a
YamLpunFWg+uy6BHlBVyiKuLHdvzSnBWBq7bsqsN7i/C6mU8ES9IDgn1ccGU
9MUoc9tZmvKnHGxkRna27ktQf0dMeLzuNITVfG1maOmh3MRlGyt2GnQ9j5yS
vNJDUse32Pb5NOSy+5nV2fpY0rpteICcgYtKQSFJAUsxLll36f2UGVAVl/hf
WGqApvkNQab9M0DZR1Or4xrgqRf9sY8dvkFsifWoScUyPKp7VyTK/gZ1UkeT
5sjlmGloLdg2/A2OtezWjXMwxGS7/MKB9bNwNxJtoiWGaOaitla7YBYiMpEW
32aEibWqfx2XzYL0nebyPV7G6AH8BDW/OZB/2L/5cqkxKrX+4O1XMQfOhc1+
HA0TtBBYdb6gzYNjW/qxXTEm6J12iTm3dx4Mjzut//zSBB1v52tG3psH9xEp
/6g9ieHXdvYRdAItmvQrV+aS+EzJNubfqwnM8ttOf5NH4ip7x5XjCvM4aeHJ
/yMxYrJ66LY9gXc1hMa9hSRmpat42zgS6BLUlnv6GonpP3qY2LkQ6C07mjx4
h0Rz07E7TkhgnNVzn0tPSTR0GQl330pg7xOlu/CcRJMvvWoLvAl09nNU470g
seIW1LYoPHfyWrvbKxLXGJ+a37BdcU/n8bWCPhLPZ5bnbPIhsDDM3GLzMIlr
2SN53v6Kfeme01NsEj8I4u3VdxMYco756SqHxNaBlNcvFTarnimQ8kjc0KWs
viOAwNvzrzRKRCROLutL9AkmUPMiNXqHmETVjbhEZy+BsRauT2emSERb86rX
Cjt5l6b5yElsrgn923cfgQWfPn6enSaRnfrw5KJQAmdjdaDsmyK/ZKZOr8Ih
VK8i3zkS21s/l+ftJ7CpIEk+P0/iipg7brvCCPwHBIukwA==
        "]]},
      Annotation[#, "Charting`Private`Tag$941524#1"]& ]}, {}, {}}, 
   InsetBox["\<\" \\!\\(\\*SubscriptBox[\\\"c\\\",RowBox[{\\\"T\\\", \
\\\"-\\\", \\\"10\\\"}]]\\)(\[ScriptM])\"\>", {9.5, 2.0489945755670402}, \
{-1, -0.45}], {{{}, {}, 
     TagBox[
      {GrayLevel[0], Thickness[Medium], Opacity[1.], LineBox[CompressedData["
1:eJwVjns01Hkfx8fYHibkurlMufxCbK1L2VD0+ebW2lBHzdbj0kplpMcl13RB
LtNsJVMGoSJbG6GL7MRul5EakZCVUIaKMWaGGZr7b9V6/nif93md8z7n/bKJ
Tgw9SCQQCMcW8//+UemrYi45s5lAQJpF/6FvLna2orRyqZBTFOIvI8WAjrcs
sICbAWy6i8dzUjp0+Eb5HeaehuqCa66NJBrYdZRs2cstA4lmmNM1UikM0F3Y
u7k3wdqXtbaS9Ds0TJ/M3sV9AA+jJ9ZcIrHArMJ2LJTbAfTk4/WlJM4iF/UF
jw3BmXML8hH5ICQ6z+xVZ34E65bCmpwv4xBBqLyuPMgHFLyaUYRPgpjnVnIr
mw/Pv/fa+kyfB7mvegoiyvmgs3d/sGgVD+oqiFR2Nx/cXm4JXh7EA7lbnCN9
/TQMZ9z9ub+SB4xDnrdNNQSgZZDvPuMxBc/73z7YcFkI6HXO5KtDfNjTeqSW
/4cQuiVF7JQTfBBV6ZRX9AohJNrxlF4RH4zi4dgXogjyw9v+tGjmQ5TWTS/O
IRGcqne1X7PAB/Wm9DaK+wyUf5QH9ZyZBqcbJi9T+2ehdh+TzWQK4J59BztR
MAvlzGHOvt8E4FabyYojimFkfzCV3CQAz3rutah1YhDoNrTs6hWA373ao0EX
xbDxVE7CB20hNO61NDZylEDNdi/ukaNCaI9rYk/zJcDSWLGFF7joVX9205RU
Ag/zB0KoP4sgQHSANUGYg0nH70zfRovgRbxpw5jZHDweWyDnHRdBT9KJsjc/
zkHjVde/lzWIYDg9IKGtdg5mliV3aC6dAXHuCLk8dh42fAiKGGqdgT3haRfL
0uahMNMfd3k+A0/XG5BKc+fhcSSLndE3A8wJf/nFy/NQXOyu38ebAY+Ae33n
+uahy1M41Wg0C7kkekGOx2f4e+TcHWfqLJgwfhBTtaWQQtA53acphpOxfQdj
vpXCrbambcZ6YuChw+8PYFLISHrHCFguhpa56s59XlI4SPP9mOUghsidutfD
k6RQlnw9zyNIDL8v/7Rn+5AUDuEVTp4XxOB5hfF0Q60MXGssxnSXSiCH1nle
2SyDjYZVWiI9CXASieF/tslAstLbpsNQAqE+qZ+938mgPvtswBFzCcRN7bb1
XyaHrRUta0sdJHDZ1Yq2M1UO/PO6HIcACRA4jYFJSAGXhmgN1VkSeDHb1Vc3
pIQLB5PJq3kSoNkxrBgTSkhvultEmJaAXwQlIV2ihNAOCfutUALszjEdX20V
LG3KiM2ek0DLdWnAe3cVaJmvWtv8jwRuhlk+WlamAj2bzhSW0RzQOEfqUihq
oAeyVrl5z4HfVbNc734c9GkJIU3n5uC+e/cqA92vYG3/PYtlOw+/lgU2n9LS
QO8FneZXquZhxClxacwpItpkhN/X1/kMtn91DB0if4NGjtfG1KV+hhh5nXKh
fAliEp16/Ho/wzX7J4x7HloorTXmxtPvpJCVXPq+t1cbfSrszHHJlkJovCIz
a9tSRJUWOuh3ScE68mxR0JQOUrsMJr82lcEkXiu/RdVDPaseLLAiZfBbkeqN
g7Y+0jO4suGbmzLItaI103cYILKNvHlKJIPbIQP2/vqGSLrZdSVtrRx2KzdR
DLmGKOw0rYOYJIcTmbENdlVGSPkX/VhLoxyStdMjEyOMEXGe8IvZtBwmDK90
vXA0QQ+oS1ZGOCigf54eFTdtgpTdQdzYaAV4h5xvIrd+i8ZeldRTqhWQ+SB1
L7FgOTqc4BHi9l4BLkqr9a6+pqhX1jq21VgJB+5PtCcamiHbuSfUTSFKMAlI
OCl/bYZ0r1Y9ZuYroYQ3xGg6b46iJyl8n1YlFGtERmWFW6CeA9voL+eUoCu9
seeiBRm5Vzvb/2OnAuI+bT3WNBmxHbl+C5EqSLnhLLCpX4H8LCz/4FxQAUvh
btMeuxJVLlldZvZMBWnP/muSusESXf/fQMk6tQruxiKXeLklop8L1fFdqwbq
aaSdzrFCduypUcNoNSiGDVaGBVoj7mDuk4xSNaje7f/pSq010iWNqNQcNXhW
tlP4+jaIqSFIWo+rwZ1TkLY7yQZpkhk+l9fgYHnUw+dDjw2yCD8x1RaGg++U
QpT8A4YIb8gGxYU42D81b3AowRBnPN3+3kMc6JTtpIFSDPFevprMfYSDkJ8f
k30JQ4VdpVW7HuNwV19iPViJoWHNPKLyCQ4bIzkleTUYiv9lvGBzOw7ByuRs
7h0M7ThdmNfViUOqU3coswtDWUmX9nEHcRhs07gL3RjyfLfiyJ23OHhS3PWE
rzCkN7DueM4QDl+O13RseY2h0W2m2djIok/nUS/xWwxVB4z6x4ziUHnAzv6n
SQzFLXPrE31a3CvC8mQ8DC0U+P36aAKHqLOM8Wo+hvjDMq/zkzjYNuEVCiGG
8sc3M52ncLj99bX+jXkMWYzmE5MFOBgUa8XvkGKovZHF8BHikGLv3YXLMKTk
McyNRTh4BNfmh6ow1LXTh9w8g0PF+OiHBTWGbKhkZv4sDgspxlD3D4aO1lRr
UcSL/1qBl3d9wZBc2p9mJ8HhaUWW6utXDOUG3+fKFvlfI27T+A==
        "]]},
      Annotation[#, "Charting`Private`Tag$945214#1"]& ]}, {}, {}}, 
   InsetBox["\<\" \\!\\(c(\[ScriptM])\\)\"\>", {9.5, 1.74632824164894}, \
{-1, 0.25}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\[ScriptM]\"", TraditionalForm], 
    FormBox["\"c\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 14},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{468., 289.23990673495075`},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 12.}, {0, 7}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->None]], "Print",
 CellChangeTimes->{3.698234069027472*^9, 3.698257149181452*^9, 
  3.739779387056981*^9, 
  3.7397803345232563`*^9},ExpressionUUID->"855c1773-a111-47fe-a6fe-\
2de5cf2c6d74"],

Cell[BoxData["\<\"Exporting:../../../../Figures/cFuncsConverge\"\>"], "Print",
 CellChangeTimes->{3.698234069027472*^9, 3.698257149181452*^9, 
  3.739779387056981*^9, 
  3.739780334604196*^9},ExpressionUUID->"dcc7f67f-c06a-4ed8-826a-\
687ec169cf05"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Show", " ", "characteristics", " ", "of", " ", "the", " ", "converged", 
    " ", "consumption", " ", "rule"}], " ", "*)"}], "\n", 
  RowBox[{
   RowBox[{"SetParamsBaseline", ";"}], "\n", 
   RowBox[{"ConstructLastPeriod", ";"}], "\n", 
   RowBox[{
    RowBox[{"aGridVecExcBotSmallLength", " ", "=", " ", "10"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"aGridVecExcBotLargeLength", " ", "=", " ", "30"}], ";"}], "\n", 
   RowBox[{"SetupGrids", ";"}], "\n", 
   RowBox[{
    RowBox[{"Off", "[", 
     RowBox[{"InterpolatingFunction", "::", "dmval"}], "]"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"SolveInfHorizToToleranceAtTarget", "[", 
     RowBox[{"mTargetDiffAtSuccessiveIterations", "=", "0.001"}], "]"}], 
    ";"}]}]}]], "Code",
 CellChangeTimes->{{3.6983444239870787`*^9, 
  3.698344424438067*^9}},ExpressionUUID->"80c759c5-2435-4bcc-9424-\
8e42d9430a48"],

Cell[BoxData[
 TemplateBox[{
  "InterpolatingFunction","dmval",
   "\"Input value \\!\\(\\*RowBox[{\\\"{\\\", \\\"0.10644229426223273`\\\", \
\\\"}\\\"}]\\) lies outside the range of data in the interpolating function. \
Extrapolation will be used.\"",2,73,5,21141184884847227297,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.698234089299818*^9, 3.698257161062479*^9, 
  3.7397794049582253`*^9, 
  3.739780340574188*^9},ExpressionUUID->"152e8a5c-a626-4845-9731-\
25d3298f275d"],

Cell[BoxData[
 TemplateBox[{
  "InterpolatingFunction","dmval",
   "\"Input value \\!\\(\\*RowBox[{\\\"{\\\", \\\"0.10644229426223273`\\\", \
\\\"}\\\"}]\\) lies outside the range of data in the interpolating function. \
Extrapolation will be used.\"",2,73,6,21141184884847227297,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.698234089299818*^9, 3.698257161062479*^9, 
  3.7397794049582253`*^9, 
  3.739780340691905*^9},ExpressionUUID->"025de4f5-a3e4-4f13-9135-\
a519fac4c627"],

Cell[BoxData[
 TemplateBox[{
  "InterpolatingFunction","dmval",
   "\"Input value \\!\\(\\*RowBox[{\\\"{\\\", \\\"0.10644229798901306`\\\", \
\\\"}\\\"}]\\) lies outside the range of data in the interpolating function. \
Extrapolation will be used.\"",2,73,7,21141184884847227297,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.698234089299818*^9, 3.698257161062479*^9, 
  3.7397794049582253`*^9, 
  3.739780340769553*^9},ExpressionUUID->"b57f5a16-b840-4a5b-98ce-\
392067b9914a"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"InterpolatingFunction\\\
\", \\\"::\\\", \\\"dmval\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,73,8,21141184884847227297,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.698234089299818*^9, 3.698257161062479*^9, 
  3.7397794049582253`*^9, 
  3.739780340845789*^9},ExpressionUUID->"087df199-d262-4d80-ace8-\
b80f53e60076"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CDToHomeDir", ";", 
  RowBox[{"<<", "cFuncBoundsPlot.m"}], ";"}]], "Code",ExpressionUUID->\
"405e5899-8a16-402a-9029-bff464525957"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Running cFuncBoundsPlot.m\"\>"], "Print",
 CellChangeTimes->{3.698234144135056*^9, 3.698257194997134*^9, 
  3.739779446555623*^9, 
  3.7397803885211487`*^9},ExpressionUUID->"954bca56-ce18-4efc-92fe-\
6cffaec698d7"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {GrayLevel[0], Thickness[Medium], Opacity[1.], LineBox[CompressedData["
1:eJwVU3k4lAsfHeMlirqkQq5E2XIzZHkN+v24VJT1zk10tZAl0hdSibI0tKAY
3UqKukS00JT90nJLX0QaWkSXJEvMmBnLoBnz+f44z3nOP+d5znnOWR3wH+8g
KoVCyZjH/1n3gqQgT/vmRgqFtufZ5/yNVQpGqyJCEwAX1hLrbU/A02P3Cw1D
L0Cvi6ULj54BjbTIEPnQfCgfjgpvpV+H/6ZztkyGlAGrJiu+gX4PXtFP1YyG
PAbm6tUplfR6aMrqihwKeQOfOkp0Js1bwLV+gftASA/kKEbEM4XdYCYNmFzO
74Gko5uCiw98hnSd3a16dr2QbEjbkzXwGQ4H1MYwnvfCA3W4ze78F5wGDj2v
6PgCpVf8R2J39UIf9/PeY5Nfwf3eKdt39D54fz6tItOmH8jZJYtuxPRBk6mN
YsmJfqhweBBrU94H7MiL5Z1y3+CTx0v1tjVfIWnSVUpfPgANGga23ov6QUdS
dU1iNQSD8q3hhc3fQC0viL8sbggsyx+5bKEOgAIsdVr/eAh87DU9WOQAjCUe
HNm1eRg0qILqRYXzPsRa+hOf75A5apdsfmQQ/JVYH5KPjUKC5oVH2sQweN6D
dbl/j4K6aUFM3IZhcHLnnnxI4ULGnpw454BhMMncot9/hgtX+kv91BqGQbxU
etg5hwfMI7+6eRz8Di3KVoqEPx9qA9tP3yobAc5W1Sut8XzQzHd+E8QZgY9n
efo51/hwl9lEZU2MQL9csdP6bj547TKysbUeBbFkReKOnQLQcvWqG6wYBard
xGK9OAFY6UqXYMcoKBxvu869KoAl4i4nZeEoLJ06U5f8SQB/b9Zw+dmEC8a8
mam7vkLIlT8mirvKBZrJ+5SjsUIYCBfe4z7iglUYW80xRwjlmuA21soFx4Ew
8w8fhRDDHhu5J8MD33+7ImR2jMMum9eeuwN4cKa1vv/37RNw8JzGWKfqGJxX
uhqtc2QCFn8XqycZjMFF1yPUkT8n4DnpdbDHdgzyG9frJL6b19xLKq8Cx6Cy
IX9nKWMSttOMFFLLx+Db/STOnPcUXFuG+umr+PB91H/vq6gpYBSltlAM+cA3
pvOzWVPQB83/+NP4IC4SKhtxpmBzw0seB/mglh/o8puXCNaqnHao2cMHxwvO
T4o9piGuO+Fd73yvia6PSjgHpyFY9usDYQEfGuT0siUZ0xAQc3FgopQP9HhK
8G+vp+GiTHhJczUfNuyvWyTdMgM/cw/ZNbfzYc2vZj7bHWdhZ7aLgtcCAciL
tHiEpRg0lRwU5IIF4MRO+2DKEEMiqyo5L1wAyRGzT/yixaAWwnAxjRTA3NcP
2eUPxPBQcMvZOl4AojaWzR/rJVDlkJLTnyWAoVKFlIcGc9BcmdjbUieAINNZ
ZTNlCu7NL92culAI27pO31LXpqCJ/julwiVCsDi9zJ5iSsFhqb1JnZoQiB7a
gTeeFHzjV/32nbYQ/jof0hRxkYKgzpV/bC6EHm5HaulKGdwX1+8WNb8D37tl
Uj1jKu7tjm3/+JcQ3IyCBMs3E2iXp+goNByH2bSYus/bCUzIY9gXmYzDbV5K
SmEwgS+3pl/yoY0D8ahIwzyVQJN93fFs63Go3Tjk4PaCwE0l400um8ZBnxHO
OvWrHMa1p1XLBo4DJSFyAx/k0SOy7Y/mq+PA7jgR84pUwMYSK9YdYgJsVY3L
iAQl/E2yWMp7PwEhP1jXb+34CY+lKpUnZE/CfxoHN5S5qWJqB+PNNnIKzvnJ
r5UcUMPK3TyJQt8UBL6MCzYLXY6m7/I5o7EieLpAwyvcVx27sp+s6lOcBjOV
xEvDhzXR332Gxbw5DXvG7U3cD2jh6EutpLB1M3Az74WWKEMbS5adGc6qn4GH
5+ldHG8drAgr6zdwnYXDtfae17etRncjvgbRPAuPm24Jz+7UxaVly+OuMX7A
/s029ft36OGOxif9ZPsPuHbbrCI8bA2uMOrPLfATQ9Z4fdKho2txXVrnF9Fn
MQyUxhwJjdLHTLnBQmMfCTzfxLqSnGyAbZaxDOyUgIzHp74LiYbI+6hqnuk1
BxSHSpkbsUboeR0mmY1zcGaFyI1z2hjzDhnt83eSwiG/wGeiU+vwYWFG4Ldq
KXxJstgHf5qgZKe7vu5KCqpl53w6e/MXVNj9+KLtDgoW/WQc+zJ3PY75Xg7p
zKTg06hVzgZ3THGvz1dBdwsF83RuaNkzaGhiYzseKy+D9fGzlNA2GuZIWyPv
2Mvg6q0LxHo+ZtigkkO1i5XBR2+M0jo7zLA4SMWMWS6D6Y1zNB1/c6y6zczQ
G5XB7OjhsD3d5vja8d+tZ/WoGL9Me4mu7wZ82vPcLMeXiiVGck2HezegnmbB
8elsKspPyGg83WWBgqy77y2aqFhMe3Ayb9ACVxrM+dUQsmgUUOouibDELmgZ
HLWXxS6XGvbvI5aoKvBgq0TLIqfg+C8QbYXak1lTR+7K4vRDLztdoRWGNPTb
f/gii9LqqIrUg9Zo6OC/fXYZgVtpm5zjJ61R7f4Jv+3u8zv3N90fHk0i07V1
Y30ygaqBoXXXY0hkayxuLzpF4K7Qm8ptR0m8LH4RmMkkcCpqKdsinsSw4vzj
gfO/WHNGNCthkuhrLn9S8RyBiezH6ZmXSFQeEncxsgikL/Asr6gh8dKmaNFQ
PoGpSmepQ3UkSiOTV3JuEPhW5RlDs4FE5+7ldnU3CQzVspg5+YzEIeW3URkF
BF42U3fc0kyivPOlSrNiAid29rZ/6iZx1bOGy7H3CcS9GvrKPSR6Mr2ZAWUE
pgV7H4MvJC6RRkZsLSdQN/K5VuE3EnVrf7f8mU2gV+rtoAgeib+k1uU+qSDw
WtqXqnw+ie+3VR8oqSRwKFNzIUdIohrVic6qms+Tm37fSkTi7FvF5sAaAl/f
eEHZP0Oie43T+W21BK4omvPO/UHiOcOf3C3rCAy4Y32rRULih5QDC7X/JvB+
+SGRVEqim7XfP/L1BP4Pg4srKA==
        "]]},
      Annotation[#, "Charting`Private`Tag$1054729#1"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {GrayLevel[0], Thickness[0.005], Opacity[1.], LineBox[CompressedData["
1:eJwVxXk41HkcAOBx1ETNE1IRj1Cp0WFc0xfL56OiKMV0iFKMazTkGFMqZyYd
lKJjS0SIzRPt0KAeWZ4ZIl2yW44cWXc7v0hNKdndP97nNeKGcwKVaTSa23/+
3zh9Oj/HIM/BJVsjbzRut0PlHObSMF4C2Og5MiYlllAXU1qwipcOOu18zSbJ
RmhgRQbP5t0COknKLJfshCdprVs+B5dBwlBqW7HEH5psk6s/BNeCLWgK8yUC
aL7UGTkc/AJ0xnbKciXJ4FpD3z4Y3AN0R2HYLUkmPGOw1VR9PkKsFl+5+1wB
bEh3+qNox1ewPeEuXH6qFALNphjmDBpyhNNzi00qwI0ZOL5osyo6oyzuXXQ1
iNvihE1kDmanrFQJ5z0GOy3TMtWEeajLitfW6K+D4O8Z2YV7NTC92+uT3ykp
hDcMWZa5aaGkWbnLb6oBznnPXjEdqo3xtIHLkQVN4N94IsictwgVgsueZkYt
UEfX9eB76aAe0zoo6NJzMNdMvDoSvQSpzNO392S9BN9P9mu2h+qjqUXnIo83
ryAvR6avOG+AVsKtgtdrX0P5BdvOVo4hantVCLXi2yD6ob179jYjfNqpEldc
+SfUNhdOnN1njDtVIkIb5r6BkM02NSF7l2F5U72vnctbuFls/oB/aDn2W1nY
k7x2uPSpJini6Aocxhu14xMdMHhXeIQXZYKNY8POyuu6QOqc8evJkytRaLdL
ciP5HSjt6HifnrgKfzDvmJ6r7waao0Qp9xgT91Z/3MT+3gNnFivcWk+bYv2X
kmXWRb0Q4e1fr0hejZt6OUXHnfqgL8kqAK6sQTP9OUtVx/tAO/N6x9m8tSgq
rh7hX38PdzRMjzVmrUMnUTc7gd0PdVFLnVaWmOFhsWbMX739kGOYq2+/i4Uq
rCq79oS/oSZ2isZ7yULVn96ch3oDYLSV/mOZpzkeNpjn0yMdgIoXzNT2NnPc
eIE1WsYdhLSGnyxDHwtMdPfnSxlDkCkYOeTbZYFMrlq46N4QxC40mG/sZYkO
0hKZsesw/Mac1Rzda4kPY/ZrzJochtmTSrp1B6zwdmziu4yMEShi/R6fM2SF
E63inACHUWBy726fDrPGe8f6xNpDo9DpUi3ePWaNbeHJLhGiMWjNP74WBGwM
qLJsm2/2Ab6We/xiPMHGg+6efd7PP8BMVdSDlMPrUUaOOooO/QNbWc5OsZ/X
Y6ag8Mr4Ajk0+piF8AUEn087h6qL5aDlz3uULSRoK7u5r6VCDgd4eYyXRwkW
pU24XqiUw5eoBWKrWIJJejlMrRo5LD+jmJoWEbS0+Tyo+0QOieLatItXCV6N
zvdjdsvBlu5+/0E1wYNjM3u2qFOQMu+s8vAjgi3i3c7qDApeadbvWvKYIDle
Yt0ynwKevtW3+HqCmmqe2u4LKbhmrrNhy1OCUpPSV56GFEzu633d0UVwFXf/
tmA2Beina8LoIXiFKbZj2lCQGsSJgT6CSuP01WN2FBhHSvULBgh2JJSrhTtS
4JFSHBgmJ3g+W73xyDYKbqb2Vd76SPBbgK+E7KBg+OIS9dYJgkFrJIVTHhQk
ZqWVshUE8ZGfKN6TgpZcGS3kG8F7JysF6E3B4js/OVnfCeq6MvyVfSjglqwv
fDZNUKTpz5EepKD0foRiZobg+NsqxxQuBf8CFJ84ig==
        "]]},
      Annotation[#, "Charting`Private`Tag$1054771#1"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0.005}], 
       LineBox[CompressedData["
1:eJwVxXk01AkAB/DhyZVhUMJO7so4MsOY3y+V33fLoETlkZoiZTFyXw2FlJ5c
rWQrkkESnYQuJcdOQmNpZNtFT9pUylq6RGF3//i8j/HeSM9AeRqN5v6f/zfJ
nS0XG5Q5Mnc52LeOljjeVmYZhgsPUeo+g302zslUS8L1C+bCXOrsmI/8BP84
1caODlYUllD+t0/p9vCLqfYcmevn4Gqq9Vy9aTP/GtXhkHZ3LLiJitVwYt3h
N1KdeQPRb4O7KWn7Qqt6fhe1sVHJ43XwEJVQEWldy39OddF5Kgq+E1RjhNLq
gdRxal0uv7ly81fqcZnPtmdVX6hAmxk6h07DTIGkjz42S7mzAid1XBTwxFF2
Ley1PGqfJsd3kMoQULqS9HxFrNayqFY4pAbxrTO+obmqCP52srhiOwP8+gDB
rQR1RLa9sat214Lmi3V9Ag1NZAkUl82GLYJf2cSDJhVtBDw6GMQR6uBhyAZZ
ystFaFHS2xq6Qxe+8a5LJm/ogKOZeno0Th9ea14Vt1fpwv/jWiuPMCYCVS09
ZpL1USZ+yJw6boCn+erIO8BE3c8OAzJPI8T5FwQMhBsgrmHtluJNxtA5G/RH
k6ERmjorPmTuNEH5nu4SJ6YxQlxWNYZsN8X9q/SkL0omOFfFuRm6zwxHvfWn
BUqmyPvYeDhKtAwjhjPqevJmeH05fr8wZjl6w6tXKYyZQeJ8suDIkRWI1rNb
cH50GeQ297/MTTVHkWvOSNjvy0H78ZZcaSILfoV3/PIerEDGkil32TELdLvU
JQgbzBElCGidSrNEd2JaZVgFC8OHuT9Rp6yQomIiMr1ggUX5hf2ZZdaQNOQP
2YktcZFhkfioaCUK/unfFX3MCi0xhvwVV2zww5GJA3uOWkNsVMpc68WGVcHA
tZSolWhMmqEJe9jo6y5M/OxjA2M3pe+mPhwU2GrH5rLYqO9mZf/5lANVSlLX
IGYjp22ObeRrC+8Dg05NSznIjx3d5z9oiyDRbn/BLxwkLTbQMNlhB6cFm1zP
K9viEmtBZ9wLO0y3lKT+mm4LxU9yei1+XMTDb/3B77aoZN9IEb/hov3vtG1q
SXZg7b3sMRtujzeW2ryN03YY2HC31vu9Pbos6aUGEVzIyg9YU7E8ZAsiBNIx
Lr7WbV1j8oEHDTeHEkaAPebvxNxMjyCwWxpZI/fMHm5sZ37SZwIZSWpaUi8e
HvnahITGkhCNa89ZdfKgFSC8VxxPgibKZK6S8uAnLKP3iEhkzc858H/j4UuM
di03iYSY8U7kK+PBLGNqZvYoCYlt8+Txfh5Sa5tyTpwmoSkKGxl/x4OD0paa
m3dJXJ2XSGsWEkhXy5R/e48EkeHw/j6dwBPNVi/9BySaGTUqHRoEhEzudEor
iV7jIudhbQJnOLrrXB+TmFkf3azJJPBp54ve/kESrhlL62OsCGCP3nL6EAkZ
I1+WspJAdpBnAjVMYmeh8mQWm4BJtIR5YYRExOWP1uVcAlvTqwLDx0mclnZU
9q4hcC57+HbJBAlDb6ptyJHA2xP6qrIPJC49r3/1HgRSi3Ku86ZINI6XGCvw
CUhLH9JCpkm4iBaD4UJgycU5z6JvJHrms/yYGwjsvUJUdM2S2JFBSzZ3I3C9
Jmpqfp7EX4z9RVx3Av8CwR8XDg==
        "]]},
      Annotation[#, "Charting`Private`Tag$1054813#1"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0.005}], 
       LineBox[CompressedData["
1:eJwVz3s0VAkAx/GZKaSoe+9cwnqFyiivTNwezC95bYXMqiXpFDEzqTRiUchr
xaYUPYlYRHV2FCnD2rzy2rXV0Kmojc5R2tSZ5NFLdvaP3/mez5+/RSGRwjAO
i8XyVu3/muVMlxYZl7g8e1tW38EjcHsOz2Sf+IiAcTM6o2tFoDlOVmYpzhHk
5p+JDFO53U4qUhdfEnh6ZljMWkagM1vhNSGqEtwoFp1wWU6ga3WafFR0R5D2
g1VIrQ2B7lMD0hHRPQFPXqVZ6kBgQ6OGz0vRc0F0en1AkjOBHm1HzdnBSkHA
sF/MMyEB1xz3pgrfjwKr604cRTiBMNvP2vbaLGiqJQaGHCLgzQt7r+s5G3wL
N9uCHALVfYkxXcwc+PwWGCMpJbCGsqqafUQLN1nvVw3WERB9yS0sDyBg+c+r
zrEeApHtrxyqvClkLbbuzB8i8Ms29cXTe2kwTuPubyYJhHYcDrcX66K3WpP/
YC6JZg19v4hAPSTUJY0KjUnYk8lnX0cbICozxjzRgcTOD87LffYaYmtLffda
TxIlRXcNp44b42h7irJsO4maE6sHFEJTtPlXDlZKSUTXO28u3LQIyk1G61x/
JnGnu3wsK8gMkgW0aXo+CYnnqkZJgDn+XhMYGSQjcbHSvjZijwVSV5g6D7SS
OPWhMeVA7GK41ng8nHxM4uXVmJ/EUUugLGx4VjFKos0j93xq6lL8K6zezeZQ
YPv2v8hJtkSvdCpIqUOBte4Wuziehy6Di0aHeRQyF055K45aQetES7DMhcKB
baEtU2nLsDbCaX6skMJQCn+34MxyyCkb5xERBTrvQn9WiTXWu6U7TiRQuExY
xXcU2OD355bF505SaI4ycV96zRYp7r6ZL8opFJkWGzr724Gv0zbYIqfQmPCZ
Jb5vh/H952cJeigs2qjx1fxHe7Dz3pWFvqBw8x7v2JM+e3w1zbtlNEkhu/2b
nWnwCqyPl3skz+Mi7+DrPTufrkD8GhvPOBMuEnSMF5gFOqDhKIfScuDiCk+t
O3rQARuKAoK8vLhQH2frN+/go9N4mjbYzkWF3Y2kold85ErMvU9LueCFXPWZ
3rcSEpcrvlczuBj4Xl695c1K2CQmtmzJ50JReshacNARgozemitVXHys8Vtr
Nqbyp1idvFYuZuqiajP2O2HT5OF1eo+42Gjn4Z4w4YTLjexR91EuOoJtJREH
Gbx991Bdk0WDChU3FMYw6K9octul8g5xifb9WAZdO6+lylWejOJW8xMYlCmS
v0nYNCwypz5PpzPYdmvZZDeHRnL1neyTZxm0J6YMZ6vRWK2x+XqtnMElLes2
Yh6NDK0szkgDg+N3F3IkKj8gW/wN/mBwKImDZpXFhvxPSS0MtigfNUi1aJyz
13P1+pOBVl9qjUKbxnjQYG//UwZxBY9/PU3QwC79JdrPGYT7tw6OqnwsXBgn
GGLgry0zdidpmEnbDMuGGdgcScufUNkvozJs3zsGwyE2uVu5NC4eG7p9SclA
8Z3+fZnKIycN5irGGDT1zZqvQav+FGTLHKcYFHg8ybqt8l/Fd1mSTwyyZlo7
FujQWHj5m7DgC4PYOpmaWOWQa07lPdMMdksvrG9SWXb9wNTMDAOhVXqKni6N
/wARFPxn
        "]]},
      Annotation[#, "Charting`Private`Tag$1054897#1"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {GrayLevel[0], Thickness[0.005], Opacity[1.], LineBox[CompressedData["
1:eJwV0ns8VYkWB3BUTslj730OSZIoOcr7tQfZv+LgNh6TEUVcQ3JEeVUoCnVF
L0lPbzeKmk4N8hhjPEN66cSt0IQbUSpXHkWYff9Yn/X5/rM+n99aa7VfqGuA
lISERARb/+8aqbPXctTyrVV3Wpg2DOdaVyzmr9orPMrIe/R06tvFMfXRogJt
YSqTMeIhNSo4wzQbhAdKC3MZ34qLyu2CbKb1tNhhIvAO05BVplknuM08sDhW
NRJYy0Qq2PIrBTVMW1p3+FDgU+ZR69INZYLHzJYajvNg4BsmujBUt0Twmnks
Z7ZkofcoU7OPY9kd/4nZnCqou+HylXmY7+H+omiSCdCfljOUk8D0laZOuZFZ
xokf8D8l+4V4Zi2+HTIohZKOuAMP6MXwZJSbktKlYUnp3Fl4VBY55Ze9g1Nl
EDhzPrtwOwFBmb9nebQ8LjiPNMb4EjhoVeDhfEIedfmC905CAoVNb90GL8pD
2eGr2WQUgYWdAS5KpfJoveDdbneZQP1EoO3Bj/Lg62kvGOokYGUeomfmpwD3
hAT+H68J7K39df2TMAUkdnS5nBsgkGX/UXv3UQV0HTqTRU8QmPHYp3kpSwEn
W8ZMU3gkKqPDlCf/o4APvjVCnZ9JqHhbSHavJaBcppQ650nCKL9rXkuXgC0n
7J7Yj8SWgUNzESbs3NsaUocjSMTsrZ6RsSHgOH0i82EaiRdxVpMWbK5op776
3KskPtf3jCcFEijIsxiKzCfBkY77It5H4LvdRxPV30iYna0Z3RNH4Ha665OQ
dhIXc6w/ZGQQ6Bq8NY6XJET9fw0P5hOQtli0QrGXxH2to0NGxQR8eisCaz6T
mBDVDrRVEDhpTJ5NmyIh++Wfb5VqCZQn7SkLmCexxlziv37NBPpfNXb9wKFg
eTivT/SYgLzuSkl5BQo/16J3uoOARfzBdf1KFIIX9P1l10Ng9/OnTuVqFF5e
t17c+IbAeS3+/pNaFCaqLYvIXgJ/xiRm+OhR4D6jHXxZv3/UXWdkRsFw0HRI
xFpJ3fSdtDUF5xmj5FnWoc3vjO84UUhZq9ua0UegDr8Gb3Cn0L5pjcwoa6I6
7FqxDwUlnxWOgn4Cd+98owpCKRRcWtL+mfXYlaVjV9Io1HIGX9i+Zf8mWP9u
YieF8eGcd58GCcQSURvcvbnwFREcmxF2H57Sa2dDeKDNxwUfJgn4txzebShU
wvOSJSbPZEjUc5ZvDd6hjNjKIyOuaiQMyfhLw/tVEJF8QDPOmITvl40bnENU
4d7we5uVPYn8nPuqU2fUcKI5YbRgJ4nSsxbdYld1NLkV9RaFk9j/+8afsh1X
Y9Rx5abN/yJR21Y4luKlgSAFnvrxDBJB9j/UBG3XxBPLHaFeIhJZRYb3gves
QaKR+sbuRhJpX2oSwqLWYnOpXecke/fBmwcOCiO0MJpd/frGCIkmu/NXEhPX
4b1ryS5JKQqSLl39qfHaeB4+5TWqSEFiU7lkXgwfD1SyVh7mU0heNuUkPqED
2bMN3iL2DmGe/g1Tx9bDKthcPsqVQl+CyS7m4gZUUXobhwIp8NKvdqXk68LG
9rjZRCyF64ROTEumHv54o513+RyF+ohVgnW39JEgcEnuL6SQo56nutHNACaK
Tb0NVRRqYqclhO0GGN93ZQHzmMLqHznfNT0MIZn+qcC/n0LZU/6pVx2G+K6e
Xr5yksLp5jkDdW8j2MRU2cUv5SI9cniPb48RYiz17KNXcRGrqKagscMY1Sek
KFljLor5i9r29xpjS852LwcHLqTHJZfX+5igVW2Wp7KTixsGvx3JeWeC80Ga
ThfCueD73XSe3WuKIOtil5tJXHT/o6pk2wdT6MXFNWzL4EJ87ZAuE2kGJul5
afEdLr6WbrXSGGP9LUoxvZGL+cqIe0n7zOE4eXiT8gsufjSwE8ROmON6jeSI
YISLFm/9oOBIGh8/dUovkeCB8hdWZx+g0XWjzvYX1j7CfLn2KBoPfG8lVrGe
jOCWmMTSKBDHzwVJ8rAmeWp69jgNz/L1k21SPMSX1J4+d4lGc1zCwOlFPFhw
frp7r4pGrqxuE7GUhyTZFKmhahpn7i+TCmL9jGxwU/mTxqEjUqhnLVQ1+Xak
gca20RfV4bI8XDZU3uzwkIZsR2KpWI6Hca/e5109NKIzX/77AsEDflmuJfeG
xm63xt4R1qd2u0YzfTTc5ERqApIHjfAm1YIBGnpHj2VMsN6aVBSw9xONAT+9
8+5cHrJO9VXkjtIQr1jeLmI9dE5FRjxGo65jgTyHx+bJPC0ym6KRafcqpYL1
o7z7EkHfaKTMN7YoKPKw7Pqca+YMjahK0SIha79b5oWPZ2nsCr9qU8dadDds
an6ehqvO8QRlJR7+Br5WCWM=
        "]]},
      Annotation[#, "Charting`Private`Tag$1054855#1"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {GrayLevel[0], Thickness[0.005], Opacity[1.], LineBox[CompressedData["
1:eJwVxXk41HkcAOBx1ETNE1IRj1Cp0WFc0xfL56OiKMV0iFKMazTkGFMqZyYd
lKJjS0SIzRPt0KAeWZ4ZIl2yW44cWXc7v0hNKdndP97nNeKGcwKVaTSa23/+
3zh9Oj/HIM/BJVsjbzRut0PlHObSMF4C2Og5MiYlllAXU1qwipcOOu18zSbJ
RmhgRQbP5t0COknKLJfshCdprVs+B5dBwlBqW7HEH5psk6s/BNeCLWgK8yUC
aL7UGTkc/AJ0xnbKciXJ4FpD3z4Y3AN0R2HYLUkmPGOw1VR9PkKsFl+5+1wB
bEh3+qNox1ewPeEuXH6qFALNphjmDBpyhNNzi00qwI0ZOL5osyo6oyzuXXQ1
iNvihE1kDmanrFQJ5z0GOy3TMtWEeajLitfW6K+D4O8Z2YV7NTC92+uT3ykp
hDcMWZa5aaGkWbnLb6oBznnPXjEdqo3xtIHLkQVN4N94IsictwgVgsueZkYt
UEfX9eB76aAe0zoo6NJzMNdMvDoSvQSpzNO392S9BN9P9mu2h+qjqUXnIo83
ryAvR6avOG+AVsKtgtdrX0P5BdvOVo4hantVCLXi2yD6ob179jYjfNqpEldc
+SfUNhdOnN1njDtVIkIb5r6BkM02NSF7l2F5U72vnctbuFls/oB/aDn2W1nY
k7x2uPSpJini6Aocxhu14xMdMHhXeIQXZYKNY8POyuu6QOqc8evJkytRaLdL
ciP5HSjt6HifnrgKfzDvmJ6r7waao0Qp9xgT91Z/3MT+3gNnFivcWk+bYv2X
kmXWRb0Q4e1fr0hejZt6OUXHnfqgL8kqAK6sQTP9OUtVx/tAO/N6x9m8tSgq
rh7hX38PdzRMjzVmrUMnUTc7gd0PdVFLnVaWmOFhsWbMX739kGOYq2+/i4Uq
rCq79oS/oSZ2isZ7yULVn96ch3oDYLSV/mOZpzkeNpjn0yMdgIoXzNT2NnPc
eIE1WsYdhLSGnyxDHwtMdPfnSxlDkCkYOeTbZYFMrlq46N4QxC40mG/sZYkO
0hKZsesw/Mac1Rzda4kPY/ZrzJochtmTSrp1B6zwdmziu4yMEShi/R6fM2SF
E63inACHUWBy726fDrPGe8f6xNpDo9DpUi3ePWaNbeHJLhGiMWjNP74WBGwM
qLJsm2/2Ab6We/xiPMHGg+6efd7PP8BMVdSDlMPrUUaOOooO/QNbWc5OsZ/X
Y6ag8Mr4Ajk0+piF8AUEn087h6qL5aDlz3uULSRoK7u5r6VCDgd4eYyXRwkW
pU24XqiUw5eoBWKrWIJJejlMrRo5LD+jmJoWEbS0+Tyo+0QOieLatItXCV6N
zvdjdsvBlu5+/0E1wYNjM3u2qFOQMu+s8vAjgi3i3c7qDApeadbvWvKYIDle
Yt0ynwKevtW3+HqCmmqe2u4LKbhmrrNhy1OCUpPSV56GFEzu633d0UVwFXf/
tmA2Beina8LoIXiFKbZj2lCQGsSJgT6CSuP01WN2FBhHSvULBgh2JJSrhTtS
4JFSHBgmJ3g+W73xyDYKbqb2Vd76SPBbgK+E7KBg+OIS9dYJgkFrJIVTHhQk
ZqWVshUE8ZGfKN6TgpZcGS3kG8F7JysF6E3B4js/OVnfCeq6MvyVfSjglqwv
fDZNUKTpz5EepKD0foRiZobg+NsqxxQuBf8CFJ84ig==
        "]]},
      Annotation[#, "Charting`Private`Tag$1054771#1"]& ]}, {}, {}}, InsetBox[
    StyleBox["\<\"\\!\\(\\*OverscriptBox[\\\"c\\\", \
\\\"_\\\"]\\)(\[ScriptM])=(\[ScriptM]-1+\[ScriptH])\\!\\(\\*StyleBox[\\\"\
\[Kappa]\\\",\\nFontVariations->{\\\"Underline\\\"->True}]\\)\"\>",
     StripOnInput->False,
     CharacterEncoding -> 
     "WindowsANSI"], {2.25, 3.7355831680775955}, {-1, 0}], 
   InsetBox["\<\"\[UpperLeftArrow]\"\>", {1.5, 3.7355831680775955}, {-1, -1}],
    InsetBox[
    StyleBox["\<\"\[DownArrow]\"\>",
     StripOnInput->False,
     FontSize->4.4664581357449515`,
     CharacterEncoding -> "WindowsANSI"], {-1, 1}], InsetBox[
    StyleBox["\<\" \
\\!\\(\\*\\nStyleBox[\\\"\[LongLeftArrow]\\\",\\nFontSize->14]\\) \
c(\[ScriptM])\"\>",
     StripOnInput->False,
     CharacterEncoding -> "WindowsANSI"], {2.5, 1.1933910805975476}, {-1, 0}],
    InsetBox[
    StyleBox["\<\"\[LongLeftArrow] Upper Bound = \
Min[\\!\\(\\*OverscriptBox[OverscriptBox[\\\"c\\\", \\\"_\\\"], \
\\\"_\\\"]\\)(\[ScriptM]),\\!\\(\\*OverscriptBox[\\\"c\\\", \\\"_\\\"]\\)(\
\[ScriptM])]\"\>",
     StripOnInput->False,
     CharacterEncoding -> "WindowsANSI"], {8.75, 4.296391416215271}, {-1, 0}],
    InsetBox[
    StyleBox["\<\" \[LongLeftArrow] \
\\!\\(\\*OverscriptBox[OverscriptBox[\\\"c\\\", \\\"_\\\"], \\\"_\\\"]\\)(\
\[ScriptM])=\\!\\(\\*OverscriptBox[\\\"\[Kappa]\\\", \\\"_\\\"]\\)\[ScriptM] \
= (1-\\!\\(\\*SuperscriptBox[\\\"\[WeierstrassP]\\\", \\nRowBox[{\\\"1\\\", \
\\\"/\\\", \\\"\[Rho]\\\"}]]\\)\\!\\(\\*SubscriptBox[\\\"\[CapitalThorn]\\\", \
\\\"R\\\"]\\))\[ScriptM]\"\>",
     StripOnInput->False,
     CharacterEncoding -> "WindowsANSI"], {5.75, 5.359364423220114}, {-1, 0}],
    InsetBox[
    StyleBox["\<\"\\!\\(\\*UnderscriptBox[\\\"c\\\", \
\\\"_\\\"]\\)(\[ScriptM])=(1-\\!\\(\\*SubscriptBox[\\\"\[CapitalThorn]\\\", \
\\\"R\\\"]\\))\[ScriptM]=\\!\\(\\*\\nStyleBox[\\\"\[Kappa]\\\",\\\
nFontVariations->{\\\"Underline\\\"->True}]\\)\\!\\(\\*SubscriptBox[\\\"m\\\",\
 \\nStyleBox[\\\"\[LowerRightArrow]\\\",\\nFontSize->14]]\\)\"\>",
     StripOnInput->False,
     CharacterEncoding -> "WindowsANSI"], {20., 0.7846215433895454}, {1, -1}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\[ScriptM]\"", TraditionalForm], 
    FormBox["\"\[ScriptC]\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 14},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{468., 289.23990673495075`},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 25}, {0, 5.624167223016226}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->None]], "Print",
 CellChangeTimes->{3.698234144135056*^9, 3.698257194997134*^9, 
  3.739779446555623*^9, 
  3.7397803886644993`*^9},ExpressionUUID->"3048636d-9a5f-4b85-8aa0-\
fb7c5750900f"],

Cell[BoxData["\<\"Exporting:../../../../Figures/cFuncBounds\"\>"], "Print",
 CellChangeTimes->{3.698234144135056*^9, 3.698257194997134*^9, 
  3.739779446555623*^9, 
  3.7397803887321978`*^9},ExpressionUUID->"6dd64308-cba5-413c-822a-\
365932c9b1df"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "cGroTargetFigPlot.m"}], ";"}]], "Code",ExpressionUUID->\
"4ae70998-8649-42e4-ab59-566ff6aac041"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Running cGroTargetFigPlot.m\"\>"], "Print",
 CellChangeTimes->{3.698234150257906*^9, 3.698257196224143*^9, 
  3.739779448193096*^9, 
  3.7397803919205627`*^9},ExpressionUUID->"ef8f0477-07cd-4010-b8b9-\
61489335add1"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVzX0w1HkAx/Gt6zCUp+6uG0nJwzA5e2ojq/Ux6JBqPYXITpJ1JEpPGjoq
aidualCykx64wqE1VuyldTO2OK6IuzhXDJXT9uC++6C1Hr57v/vjM+95/fWx
358ZkbyUxWL5M/u/N70zrrDFKqwtfB8us1NhmjZNHetQ4WNfyu2UlSrsGprr
4q1QI/3xpBSLBJ781X9cjVNj+sWbA61KAvZEq5W8So2aLBUJHiGodBo/oidq
/Kv85wa3h8D2XMGyz7gaDO/7peFBO4HDWYPi+hkNZC3WznIJwa1NJnd29Gvw
0PJR1Hw1gTstkvWs0mKnvpBtLSbwyKn8uFeoxXvZm+NxlwkeVhTy86ValD3u
PCm/QBA78Pb14Xkt+EcHHmTlE6S2j1ScDJlBeUj8Gf9TBMUd286GlsxAIx7n
uRwlcDyG4s0TM1iRw93tcIgg8HcLhcT9Ezoz1P2KFILjPvFuuhOfoOJIo92T
CFYLOG1Rjz9B5vJF6W0BwWCF6FieuQ6eT1YGyOMIrE5KBdxoHUTW3GnvGIIu
o/Q0s590sOl7RGWRzL/kZm3dBx3+3MCbbA0j6DZNNBH4zKJWu8ujdSfBRWN9
WZVoFqfM7puyQgkEa5ZHtTybhVGasrkumKBmsoHz0k6Pw0tGr4V/R7C0+7eg
gRQ95PPPERpIMBnSfiFaoofCo3Qmy5+Al+ejVC3oYcuOsi33I7j71PN03LY5
VJUn9cz5EhT0/bpxpHQOx521l+J5BEffKmycRudwz3ArVuND8K76BnuJ0zyu
+GYa6rgEw1bGQk3WPGzrWUkJ3gTPr73ra26fR25s0Z6tWwiCB+P3iEwXEObq
WvO1F0FAY7XldMwCMmNWJ5l7EvBvC+fW3VoAa0Qidt5MMBDU9nna9AJaUh2X
beUQHDA+F5DvtYipttYfMzcR5H3vdM85bxEtMkG/dCOBRe5u7usnixBdlxfN
eBA01bL06V9SGAuFCj7j8fNVY01fUcRI23Q7GFsmBz7SrqLwF71w28440150
KdeGwq2roiKQsbvYwrl4LcXYWWWuN+P6IrvIeleKgxGVaQ6M72ZsbVTyKNaX
l47rviUY2jFW8g0orNUy9xnGRhvys4/4UZQP1J5WM06eUgTo/SkkjlNrPjJ2
3Bf6t0kwxdT24ZRXjKvC44xdIii8/fj2TxkPshc+HIykuCgz5PQyXmp+Y1AS
ReH07MRwN+PE3olKrxgKu4m2y52M1wWkcoL2UjSP/rBcxjjM3symKIFi+nzC
ofuM8wwNhj4BxauXrP5mxmPtpDc6keKv4rKyRsbm4pIm8X6K7PSC2Z8Z+2Zz
ro4lUZiytiTUMs6IHspZn0zRYSrpvMO4kpOdKBRSDPGVLtWM/wM/3CUC
        "]]},
      Annotation[#, "Charting`Private`Tag$1055127#1"]& ], 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQfdLwHQsDwwf7ZZ2hswt/vrf/oh7xU1cFwZeXO/Q2
2gPBf7VH+cfZaQj+sRIGU94HCL7Wuc3z7qh/hPOZb33RPFSK4L/7t+F5yT4E
3+/ar2O2vJ/gfDN/6cvTohB8/YfbBPcuQvDnqj4o/PkBwZdpbmFhtvoM5ys3
/T88pxHBX2DMsdTnPIKv9697x0nxL3C+YfXctzFpCP6ema3+DZsR/IiLLx4X
/EbwM3ffnFnu+RXO79nn2uQ9CcFXKbHvMX2I4Luc5j+8Xu8bnF9qHa3zvQzB
l44z2R5yFMG/NLOjpJ7vO5wvWL45zioMwT/GlpPFvQTB71k/f8XKNwj+ca5E
jjjrH3B+F/vPKYs6EPw4WZ6QLRcQ/OVP15jckfsJ5zMdP+F+MR3Bf+q5uz1s
PYJvW2/98uMfBH/ZWbPaKNdfcH7Luf1GNycj+MUvDkup3kXwXy2ep8+o+hvO
vy7Inva5CMG/OuPVuU27EXyPS9GRHVx/4HzntYsF3oUj+P4L034pLEDwL7pv
Z816h+CnsDc7N5j/hfPrM1TXqdUj+Pw1oVaPzyD4G1Yw/MwR/YfwX57N2pe2
CP5ck4rEtDQEHwAnLdEE
        "]]},
      Annotation[#, "Charting`Private`Tag$1055127#2"]& ], 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQfdLwHQsDwwf7apF17g+rPth/UY/4qauC4MvLHXob
7YHgv9qj/OPsNAT/WAmDKe8DBF/r3OZ5d9Q/wvnMt75oHipF8N/92/C8ZB+C
73ft1zFb3k9wvpm/9OVpUQi+/sNtgnsXIfhzVR8U/vyA4Ms0t7AwW32G85Wb
/h+e04jgLzDmWOpzHsHX+9e946T4FzjfsHru25g0BH/PzFb/hs0IfsTFF48L
fiP4mbtvziz3/Arn9+xzbfKehOCrlNj3mD5E8F1O8x9er/cNzi+1jtb5Xobg
S8eZbA85iuBfmtlRUs/3Hc4XLN8cZxWG4B9jy8niXoLg96yfv2LlGwT/OFci
R5z1Dzi/i/3nlEUdCH6cLE/IlgsI/vKna0zuyP2E85mOn3C/mI7gP/Xc3R62
HsG3rbd++fEPgr/srFltlOsvOL/l3H6jm5MR/OIXh6VU7yL4rxbP02dU/Q3n
XxdkT/tchOBfnfHq3KbdCL7HpejIDq4/cL7z2sUC78IRfP+Fab8UFiD4F923
s2a9Q/BT2JudG8z/wvn1Garr1OoRfP6aUKvHZxD8DSsYfuaI/kP4L89m7Utb
BH+uSUViWhqCDwCm9a6w
        "]]},
      Annotation[#, "Charting`Private`Tag$1055127#3"]& ]}, {}, {}}, 
   {GrayLevel[0], Dashing[{0.01}], 
    LineBox[{{1.3947786063763166`, 0.8523762378645602}, {1.3947786063763166`, 
     1.1108542241165245`}}]}, InsetBox[
    StyleBox["\<\"\[CapitalThorn]\[Congruent]\\!\\(\\((R\[Beta])\\)\\^\\(1/\
\[Rho]\\)\\)\"\>",
     StripOnInput->False,
     CharacterEncoding -> "WindowsANSI"], {1.9, 0.9991996797437437}, {-1, 0}],
    InsetBox[
    StyleBox["\<\"\[CapitalGamma]\"\>",
     StripOnInput->False,
     CharacterEncoding -> "WindowsANSI"], {1.9, 1.03}, {-1, 0}], InsetBox[
    StyleBox["\<\" \\!\\(\[DoubleStruckCapitalE]\\_t[\\(c\\)\\_\\(t + \
1\\)/c\\_t]\\)\"\>",
     StripOnInput->False,
     FontWeight->Bold,
     CharacterEncoding -> 
     "WindowsANSI"], {1.9, 1.0118743511729276}, {-1, 0}], {
    {Arrowheads[0.03], 
     ArrowBox[{{1.3622786063763166`, 1.027052367082759}, {1.3647786063763165`,
       1.0268428006719557`}}]}, 
    {Arrowheads[0.03], 
     ArrowBox[{{1.3122786063763165`, 1.0313061668397532`}, {
      1.3147786063763165`, 1.0310341288880212`}}]}, 
    {Arrowheads[0.03], 
     ArrowBox[{{1.2622786063763165`, 1.0368316201855166`}, {
      1.2647786063763164`, 1.0364748879226602`}}]}, 
    {Arrowheads[0.03], 
     ArrowBox[{{1.2122786063763167`, 1.0440809460782072`}, {
      1.2147786063763166`, 1.0436095331797879`}}]}, 
    {Arrowheads[0.03], 
     ArrowBox[{{1.1622786063763166`, 1.0536634229116022`}, {
      1.1647786063763166`, 1.0530377911481756`}}]}, 
    {Arrowheads[0.03], 
     ArrowBox[{{1.1122786063763166`, 1.0663793881067942`}, {
      1.1147786063763165`, 1.0655504264167073`}}]}, 
    {Arrowheads[0.03], 
     ArrowBox[{{1.0622786063763165`, 1.083217967502456}, {1.0647786063763165`,
       1.0821296602184458`}}]}, 
    {Arrowheads[0.03], 
     ArrowBox[{{1.0122786063763165`, 1.1053007301090907`}, {
      1.0147786063763164`, 1.103895805898649}}]}}, {
    {Arrowheads[0.03], 
     ArrowBox[{{1.4297786063763165`, 1.022794299065757}, {1.4247786063763166`,
       1.0230147919705244`}}]}, 
    {Arrowheads[0.03], 
     ArrowBox[{{1.5097786063763166`, 1.0191804846871542`}, {
      1.5047786063763167`, 1.0193354532990822`}}]}, 
    {Arrowheads[0.03], 
     ArrowBox[{{1.5897786063763166`, 1.0166445849517163`}, {
      1.5847786063763165`, 1.0167558607996225`}}]}, 
    {Arrowheads[0.03], 
     ArrowBox[{{1.6697786063763167`, 1.0148260940751237`}, {
      1.6647786063763166`, 1.0149071978484019`}}]}, 
    {Arrowheads[0.03], 
     ArrowBox[{{1.7497786063763168`, 1.0135016580417036`}, {
      1.7447786063763167`, 1.0135614137483049`}}]}, 
    {Arrowheads[0.03], 
     ArrowBox[{{1.8297786063763164`, 1.0125266966046882`}, {
      1.8247786063763165`, 1.012571030561209}}]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\\!\\(m\\_t\\)\"", TraditionalForm], 
    FormBox["\"Growth\"", TraditionalForm]},
  AxesOrigin->{1., 0.9891996797437437},
  BaseStyle->{FontSize -> 14},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{468., 289.23990673495075`},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{1., 2.1}, {0.9891996797437437, 1.07}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{{{1.3947786063763166`, 
      FormBox[
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"\\!\\(\\*OverscriptBox[\\\"m\\\", \\\"\[Vee]\\\"]\\)\"", Italic,
             CharacterEncoding -> "WindowsANSI", StripOnInput -> False], 
           TextForm]], "InlineText"], 
        Text[
         Style[
         "\!\(\*OverscriptBox[\"m\", \"\[Vee]\"]\)", Italic, 
          CharacterEncoding -> "WindowsANSI"]]], TraditionalForm]}, {
     1.3947786063763166`, 
      FormBox[
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"\"", Italic, CharacterEncoding -> "WindowsANSI", StripOnInput -> 
            False], TextForm]], "InlineText"], 
        Text[
         Style["", Italic, CharacterEncoding -> "WindowsANSI"]]], 
       TraditionalForm]}}, None}]], "Print",
 CellChangeTimes->{3.698234150257906*^9, 3.698257196224143*^9, 
  3.739779448193096*^9, 
  3.739780392544108*^9},ExpressionUUID->"47bd8072-6141-42c3-af28-\
e5b348956f40"],

Cell[BoxData["\<\"Exporting:../../../../Figures/cGroTargetFig\"\>"], "Print",
 CellChangeTimes->{3.698234150257906*^9, 3.698257196224143*^9, 
  3.739779448193096*^9, 
  3.739780392633313*^9},ExpressionUUID->"7d503bd4-bd29-4635-ae9a-\
3b77beb8c9b6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "MPCLimitsPlot.m"}], ";"}]], "Code",ExpressionUUID->"0ee29405-fe87-4931-a886-dab77e7b51f8"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Running MPCLimitsPlot.m\"\>"], "Print",
 CellChangeTimes->{3.698234154657805*^9, 3.698257198579723*^9, 
  3.739779451042739*^9, 
  3.739780396821425*^9},ExpressionUUID->"9aa747c6-8e94-4915-a59f-\
7262ff2719fd"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {GrayLevel[0], Thickness[0.004], Opacity[1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7ZX64uKBl612Cpx3miTEltgvEPVv65LcYg/jN3Js
Vu+UPALnR0QuXP/h4xU4n/t/Y4y73H04XzXw3YvD3U/g/PJzlvYzvryE88W3
CN5jZHwP52975HzmvM0nOP9Q1lzpyDdf4Pyvarb8a3O/w/lMP1cLSKv+gvPN
/idsC173B84/02Jy7pjWfzhffsLrnyvfMTjA+K+/37931YAJzl/yavcpvj5m
OJ9Pdvn7J09Y4PyezK1pC1TY4PxvDqufZNSzw/klRke2iB3mgPPvrzvSfVGR
C87/nXVltmYVN5yv7cj+L203D5zvvkgxfaM4H5xfLhuv9DCGH87XeRPKfd1X
AM4X5v/AceQXgs+yf/Z65TmCcH62ye6bnN5CcP5qz6QF+74h+F9fSwk8myYM
528Ndmee4iIC59d7tM7f8gzBV7zrdWNxqyicb2XeMkXSSAzOj5E7/5PxMoL/
9VTvo4JGcTh/BktcSZCKBML997YuYjqC4LPWNoZYFkrC+Qwr49Y/EpKC84tm
re8VOoTg79Xu4BDMk4bzBb2KdJr4ZOD8O7oXLlfuQfA3zLNXeRInC+fHrjcT
lP2H4De0Lmy8s0oOzl/7QnY2n488nK/UIuLBvgzBny7P/fX/fwQfAAOaPsE=

        "]]},
      Annotation[#, "Charting`Private`Tag$1055347#1"]& ], 
     TagBox[
      {GrayLevel[0], Thickness[0.004], Opacity[1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7ZX64uKBl6123KaHJ5ddfmu/QNS/rUtyiz2M38ix
Wb1T8gicHxG5cP2Hj1fgfO7/jTHucvfhfNXAdy8Odz+B88vPWdrP+PISzhff
IniPkfE9nL/tkfOZ8zaf4PxDWXOlI998gfO/qtnyr839Ducz/VwtIK36C843
+5+wLXjdHzj/TIvJuWNa/+F8+Qmvf658x+AA47/+fv/eVQMmOH/Jq92n+PqY
4Xw+2eXvnzxhgfN7MremLVBhg/O/Oax+klHPDueXGB3ZInaYA86/v+5I90VF
Ljj/d9aV2ZpV3HC+tiP7v7TdPHC++yLF9I3ifHB+uWy80sMYfjhf500o93Vf
AThfmP8Dx5FfCD7L/tnrlecIwvnZJrtvcnoLwfmrPZMW7PuG4H99LSXwbJow
nL812J15iosInF/v0Tp/yzMEX/Gu143FraJwvpV5yxRJIzE4P0bu/E/Gywj+
11O9jwoaxeH8GSxxJUEqEgj339u6iOkIgs9a2xhiWSgJ5zOsjFv/SEgKzi+a
tb5X6BCCv1e7g0MwTxrOF/Qq0mnik4Hz7+heuFy5B8HfMM9e5UmcLJwfu95M
UPYfgt/QurDxzio5OH/tC9nZfD7ycL5Si4gH+zIEf7o899f//xF8ABHBih0=

        "]]},
      Annotation[#, "Charting`Private`Tag$1055347#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {GrayLevel[0], Thickness[0.001], Opacity[1.], LineBox[CompressedData["
1:eJxF1nc4F1zYB3BkJdl7/VJEJamMh+R7qPAY9RSSkkgqpIzS9IiiRSoS0RAp
Cj8rW/bIXtkjK+P3C8ler/eP93n/Otfnus45133f13Xu+0ifvnTEjomBgUGG
kYHhf1cDu6G6vGEfLcXU0UiU0fFW8JDvQ9EU/J+92JPlHogW/WeZNQqfFN2L
/3PJUpRiY33Jf76keSdgaUvpfxa5aTO+2ev/nZeBw/+0lCLh/lrex0l02M9K
Jl3fUQbxv/CmN5EOPrVFvkjfMujunOFUWHXmlTa3ys4yeFQ/inag0sE5GaxC
8SvHPuHW22XxdKTuvBKs31eOZzJpRkNxdFg5m8y4aHyDjMiv48uf6Uigc2cU
DX2DamagOtcnOo4M3dd0OFAJ9cA9NoXRdCxsPvcqMLwSPH0ZSWHv6YiyO7Cc
PVmJ5XAPlgtRdEz1MuZxv6uCsW2T/VQEHSGdN/alLldD7t70WEI4HdoSFlFd
ZjUQK7guZhxGx8hxNRb2uBosyo8H9oXSIUW7bhu3vRYuvlwMS8Gr9bFXlWXo
qEXAzyuHB56s5nsm4eP7v+ox4e7K8/4OHWfvSFlonKnHV/anNgNedGS9819b
E1CPTz6a2Rtu03Hmh6PD7GA9oi5+6L5/azV/K3kFw+cNKK/km9pwhY5jFhEJ
4xONiAz7rehpR8dYuynHO7EmmMYs0F7a0uFrxW5nsq8Jp3mFNZJt6Ei2vST2
JagJykJBMa0n6eC6uNfnptp33JINH1w2o6PYu/U4q0czjGYjDyYdoMOSxT81
7X0zKhM/yIXto+P3PcJjX92MluUL/F7adGzw/1BcQWnBREuz5v69dNx6cUXp
aUELdifM3/6oTMeuz7ysEuxtiIm2WU/fSEe5YrF1lVIbho9En3q0gQ7rxGtZ
/1q0IU+KyUxSig7/L93OP2LbsN8g1FNClI6hvLj2aON27I6p43nIRcfrpr8T
dwZ2wPn7HeldMzSoHFta15fVgQN9Gc/5/9BQ2UY9G9TfgSLd9qLhcRrmuoUl
ZlQ6US204d7lERpMRwZ8s1s68VzO9idzJw3rVrws9aS64SEn8Vs0j4YQe3Mr
Bd1uTNpZmp7KpkGmUcGa92I3uKuy3F6m06AV02zbntON7ue/ViaoNGTEBKem
KfbAn9umaXMEDXQTWrZhdQ9oo/TQWE8alNc279Xq7cFWQ+kU45s03MjNz1Wa
7oHB2amcQXca2La8yBOU+gG74lfv5p1okF7WLup2+oG5mYiEmBM0mH18UeG2
vhccMa+WNqnQEH7S2+isdC+0XJRKZZVo6OVzqjqm0ouLIsqOkttouOShU7P3
ZC8mm6aVf22g4cERej1bXC8ieFXPCHLSkLOo0xZm1IfBXPmt7j2jYE7afuKx
dR9y+BKMQ9tGYXBOpOP25T50c5mPRjSOormO3mkX3ocTYge13ctGMREd8mMH
rQ80Zprq1oRRyB7+NVT4qB9Z3eZGKddGIeapp3Euoh/PHs4vjziPgifu7SOO
tH64elt0sduPYp7dRPFwbz9YPhQVzh0bRW1emlvXXwNg1dt8Kk5tFDeUvJZn
BwYwqMPbozM+gktWbYfCFwZgNtPo2T04gjN+uyPAO4ijP+4723SO4NDQwD5f
zUHslEtJFPg2Apm3Bg/4AwehXDN7W/ndCKq5BQQUyU9Y5hSnSxuNoHCvk12d
2U/UODXR88gI0h1Lvlx2/IltfvafNFVGEFl6zSIr+Cf0fh2uLZMcwTXPztf6
9J+Q413+pUAfxsax6C22L4dAtt8dHb47DGFJhpus1CFE0WvZd18dBqehRWVM
8RAa3sjYmNoPYyZ63aXx8SHMdXnckTIeRqWVc4qH3jDiHi3lFPEN42q1OkL+
DOOj0Irr5PMhcCmmDpSzj0CT/fEjqu/qvf5KfgsSIxDa2SKpd3UIdUZyrVYH
RnD8nPLFFfMhbKsQcJMNHsFt+eTMQOEhdJeORSet1jFKkNFmd8BqHvnvuapu
0HBNmcPwjs0gujZIpy4/pmGtYe0eJ+NBXL4dfkIpkgZLu6Y2FfVBRCDwY2AF
Dd6CLyineQaxkHNb57jEat8/rPuKkjOAhMwT7j9z6FChRz104xmAcApvFyPj
GD60PfBpjuqDpd+Cab/QGPo5qWNPH/Xh3ZmBihKFMVwTNevWcO2DgmBGxqNj
YxC1kZq3Rh903K2fC1LHYPvj3Bez1l6ohptHB+0Yh7LrLkZ9zl7YWEWf/Ng1
Dhna4+aeqz24ayAeGjo8Di0xR131Uz2IVn3S+PDPOPhYvW/G6a6+O64bhk4c
E7C3FeLpF+yB+1dj9V2qE0iVvhJb4dANvw1TAtn+ExBtHrZdP9mJL737Kms0
f2Mx1FrGXKcd3/W9Jvz1fuOpqnPlW7F2TMfnChkd+Q0+n9ggzsk2qN1Utyk7
9xsBExtPXYhqQzr/jum8Z78hX/BMypuzDRn7xTYkDf3G2uyERsPRFrTFmh9w
nvyNT7xRGrplLZjnee6guPwbbE/rTnx53wKNTu7UWP5JeC5cPltt07I6/1gM
IrUm8S5gOpixqxnZ0eNuQUGTMCph57rQ/x0dnIqhR95M4neE7B3rku9YdHXM
5YmdBCM9WezJx+/Yi0F2/6+T4BdzeRbq9B25ze2vfEYm8YHpzLtf802rc6a0
1J38wXa7jI2XNjWhwOGVuAXtD9r27RG8F9GA5GFHR6vpPwhxbJQr9WtA1HmN
LFuGKZxIE5pWvdYAn7PNxy8KTOF47j76u0MN0D/N+/KO5hTyhpu77jI0oMbC
RyTebwpxwtfjf9jXI6/F5Hxy8BSedXv4fzGvB9V8Y3r62ylMvZ1LTDlQj2dm
X80LU1bPty77bt1Yj6OH54JbOqbQesR3ktZRhw59J8E126dxTQ1MxyzqUFW6
x45dbRpHg+9Ze/1dh1xdjtT12tPIOa/SUaFehzf7P5iKmE2jrFjofIFYHU6T
H4HbPabRE5kxtKWrFkNqZnzHqqbx9nFg6wOHWkxt3ssd5zQDUcEbcqcVa6DV
q1P68NoMUsWVMm/x18D3lb7n+TszsM/Mp1fOVkNIwHRsU+gMTLx5wviLqqHK
6FjzsmgGVgclOs1OVuNae0jAffFZZIhqGuqFVmEx4A/3mfJZVO4saia7K7Hf
cL5Uu3EWzu1ko7ZUJfxYGW5TumeRpuOkf35tJSQ91o23/ZmFiGOk15aeCmg5
bKw9vGEOx6wWzl0IqIDn/n+e4Ooctl1b4/T6zzcwzX3iEZedx933acwVzeUQ
r9KZxI552NKePOUtK4dyRGvTGfV5PMp4+u1Sejns/mYLizeex8bFvOuuoeUo
Cz0tq+M+j4ejd/0eWZYjQENUw750Hi9kLhoNDJZB4pavbZr9ArSKm9InOMqg
8o+kbofbAkT0bToal0pxUCZFnvHfVdc5qX4bL4Vn5Q+6wbMFJLtmLI58L0Wv
xN5rXZkL2B24d4QhqhQxOZN+LJyLGL3hwmGtXQrVFesvJvGLCPg0zbr2fgmM
jPO8D6Qv4ts25aUtHiWwDaMcUitYxL/W+pHHXEvwRK3rp9j3RVx1lwntsizB
8KUTor1LizD+m8fl4a4ShPeY3XI2XsLyDudUvZ5iMBYY6PjTllBelnP3zb5i
iPDEcnlOL0Hddzhrp8bqv9ZqbbszwzIEXVRdqpWKcXy+1M1UYBkuj3355aSK
kbLrwHtxzWUIvL3gbDJXhLORYI99tIwn4XxvHyYWofKucnXJ1hX4584FrMgX
QYO7gumpygr8Ig8EcG8owsdQG7UTZAVa+iORW4SLcCf+8dsxsxVkMl4vv8my
ur9lyFXEawUGojq7gnsL8XHbK2GH5hXsO6Sp+/x1IXSGvamsOgwk9o2t+GHJ
QlxXrP7mqMdAuP+q3OMjWAiqm+hArREDcciv8c9fXwip5QTRMHMGov+y8+mR
5QLM8XV673BiII3mcfGN3QWgaqqZHQthIC9HEjQORhWA8mR0LuYXA6nPZpMr
2lWAXBvPmKRJBjJeWmZsqVAAq938FlmzDCR0IsN0XrYA4d810iuZGEmKF1+f
nmgBRCQfuo8JMRJueUFZeYYC8MXKTyqDkThV2IZMV+eDpciO9jWAkcyG2ISv
d8lH1PO5sLIgRiL12a3KxjEf+8/5G9aFMpID3oGfs+zy4c2RGtsbyUiuNO87
evt4Ppb/YbZnSWckvcvz3kb78zHb+W7AoIeRsBwWLh4WycfoTHdXkxITEX/2
5yRrSR6+nAsoMFBlInwivonBeXm43awV/XUPE/EprIxRyMqDUNorpxhdJnJd
7sp5e2re6vw5sXjLkon81S6rLRuWh5d/vovK3Gcin2/OR71xyYP+RJWpazcT
8Yj3lbywMQ9RI1nfuB6vIWzJmwSHN33FxReHNjkEriGuhUySweJfoba/72Zx
yBpS8XrrqAH/V3x7xbH9VuQasiLellLB9BUT/1gEDKevIQmi8QvyvbnQSps2
KepbQxITlVkN3uWi9c7OzuvqzKQ7WosrUz4XXJIfxvr7mUnbhoNBNvo5IEfv
dPYNM5MGinbXDp0cuAacquj9xUyS9xkOMmnm4DujyIeeWWYi2pErkbYjB68H
71t1cLIQRXWjUHPhHChSHaoalFlI3IOaF5d/ZsN4n+KngrsspOi69K7lh9nw
s089+1aGlViJtB+27srCCIm7v24rKylUV4qsaMmCnsj7WPcdrCT/z7TBnoYs
MJUG/TLSYCURpzf5yZVl4brMZfe5Q6zkqk7k8d1JWTjbvcv3yE1W4sw85yRw
LwvaZtT3zPWs5Nc2e6uu3VmYJp/6z3uykU7V5KkvIZnIjhoNu3qXjcyeM3l7
NigT3uwKJr4P2IiDFbOm6JNMcNV+zo8MZCMpt5b23LuXic2n4l93fWAjvRwp
Ar7umTjqkXjMtJaNqPSzDHKaZSI1I60S0uxE6ZKBz3aBTFzeVZQiVMhOxgLu
fVZ7mYHu+KJHddIc5OoH+zW/EtKx4NAYtuXGOhJu7xavPZSGbdpsy2ezOIlL
Z7eq0v406L2TPpcozEUCfIOn/KO/4KrkqY0/LLmJSainjsemL1Cgma1rNuYh
kndG7w0kpIKfe5y9aJ6HxGe0LI1rpYL5a1jCpnBeYu/66d6D7hQ4Kme1rjXk
IwJFqUopt1Pw6e/Tb3On+Uir41epm9tSMDUqxjMYzE/We31Zr9KbjFQTvTVB
+wVW+4Gyf2FIMjz1fd6kDAqQG+s6BrQtkiHdadAS6SNIZtfusdlLSYaG2t0g
0V1ChPvBk1qn/iRYStXMMTYIkalArW6BxCRMffPvdfYSJqnm38wGbyUhhNnq
8hEZEVJWHkHdfCgJ/F2p75iKRMjZ9oHeFpkksHh4maq7iBJ9epXls7lEMMRY
JfTyiZGJv904LjUkwvVlgj9fgRjxVlirfOJzInK23WfnvShO3jiFuHDeTwSv
gauCN5cE4X2pONNxLhEd22sbrmdLkPR/MmgxuomgvoZMv5Uk2bqn7enmLYk4
maDKK7ksSZ6O7XXwXp+I2z4RXh2xUoRDo1aua5yKuCHJMC4jClHT9X92pJmK
+698rLsOUkgPz8B873cqzhyhy8YfppDGS27X3FYtkZ1NNTanEBMr8eSgJioe
Bpwo8TtNIbkvabItDVScVw2d4LhOIT93k8XTtVRsvCugzxZNWY3vsvb9ciqW
/7q1vvkjhTCe+rFffNWt9L766E8Uou9TZBlfRsUT8+STuokUkvasqbyxlIqV
rUfcfLIpJNj535CNJVR01AW8XtNAIfKtNUwFBVSk+87YNjRRyN2CHoOjqw7a
c2pLZAuF8D/j+DCST4Xhe8UUnS4KWdP1NIx/1ZnXqsq9hinE16X68tmvVARv
Vwk4TFuNr4Tl5EIuFS694abSYxQytFXe4smq5Y0udOf9oZCO48L+mTlUMDM2
Rj2ZoZCZspaiQ6vuSd3jYD1PIckPL/IMZFOR7RC5Q2mJQvZP11+6seoXlHVT
KysU0mbL0Me96v8BTLgKuQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$1055390#1"]& ]}, {}, {}}, InsetBox[
    StyleBox["\<\"\[UpperLeftArrow] (1-\\!\\(\\*SuperscriptBox[\\\"\
\[WeierstrassP]\\\", \\nRowBox[{\\\"1\\\", \\\"/\\\", \\\"\[Rho]\\\"}]]\\)\\!\
\\(\\*SubscriptBox[\\\"\[CapitalThorn]\\\", \\\"R\\\"]\\)) \[Congruent] \
\\!\\(\\*OverscriptBox[\\\"\[Kappa]\\\", \\\"_\\\"]\\)\"\>",
     StripOnInput->False,
     CharacterEncoding -> "WindowsANSI"], {6, 0.87}], InsetBox[
    StyleBox["\<\"  \
\\!\\(\\*\\nStyleBox[\\\"\[Kappa]\\\",\\nFontVariations->{\\\"Underline\\\"->\
True}]\\) \[Congruent] (1-\\!\\(\\*SubscriptBox[\\\"\[CapitalThorn]\\\", \
\\\"R\\\"]\\)) \[LowerRightArrow]\"\>",
     StripOnInput->False,
     CharacterEncoding -> 
     "WindowsANSI"], {0, 0.044231077169477266}, {-1, -1}], 
   InsetBox["\<\" \[LongLeftArrow] \[Kappa](\[ScriptM]) \[Congruent] c'(\
\[ScriptM])\"\>", {1, 0.5776174502817975}, {-1, -1}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\[ScriptM]\"", TraditionalForm], 
    FormBox["\"\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 14},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{468., 289.23990673495075`},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.698234154657805*^9, 3.698257198579723*^9, 
  3.739779451042739*^9, 
  3.7397803969621077`*^9},ExpressionUUID->"1534cd31-5bed-4418-9b50-\
1c4180b712bd"],

Cell[BoxData["\<\"Exporting:../../../../Figures/MPCLimits\"\>"], "Print",
 CellChangeTimes->{3.698234154657805*^9, 3.698257198579723*^9, 
  3.739779451042739*^9, 
  3.739780397035591*^9},ExpressionUUID->"3197c585-714c-489b-96c8-\
93292c342ebd"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "cRatTargetFigPlot.m"}], ";"}]], "Code",ExpressionUUID->\
"8d856e8e-1a4d-4969-98a7-b3e8d130c219"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Running cRatTargetFigPlot.m\"\>"], "Print",
 CellChangeTimes->{3.6982341582699413`*^9, 3.698257199600284*^9, 
  3.739779452283721*^9, 
  3.739780399570406*^9},ExpressionUUID->"30f22af0-7956-46f4-8db5-\
e48b841b33ed"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {GrayLevel[0], Thickness[Medium], Opacity[1.], LineBox[CompressedData["
1:eJwV0ns01GkYB/AxLm87S22tVZvGVsO4dLG6bdp43lFULpHFhMwad3ZCl1Vy
SexY1YxctnXLYE8Tym6lEimJMJ2k7UTWFpZN61L7e3MJM8bsb/94zvd8/nue
73lWBcV4hjIZDIYbPf/njEt0sUdMrP22/DPqV0EUpIeYWzzl7gUrWRODGUzB
k39fR0m5Alh+UaltTpvc2CERcaNBdTWKdYh2qtHEigPcZKhvc16qG0LB4zbn
oW+4mbB9mmWzLpSCmNK4R+5cGdj7nA1JCqfggURS78b9DRwMJY/ZIgp09Q6j
kaj7ILz8rMcsjoI9J4XiWz5tsKq4sy7tJAW340N75c86QJMiyqrOoKDH7zvr
w8eew1Ty7vKKHAoW75KGPcDdcLZn4NxkEQWfdIZWf+X/ErbtvV+LLlHAWSmq
FAf1g95Nmz/GrlKwtffgY17OAByJEz4yq6P3Uaa4dhb9DTOeXUpuMwUR9xWK
htQhYEv05pPaKSgILl/+WeA/EFjTPi3vomDd/oEP86EjcFf5wuZ8PwV9E+4d
eM8Y3C6S2f05TMF4/+dfGnm/g3afy6ffjFOQdeVEOJ9PgZrp0t48RwF30QK3
40UEhsVesSomgZrYlCuZJe8hIE9eOIMIdJrlon0547Ca3/VrqT4B07TnFgEF
EzDJMRdWLSZg69G/qaRoErwim8+VGhHojRXbSyVToBtgXw7GBKptfQ1asj9A
U8BLgcNKAkY+bT0V4mno0OdrKFMCMMjIbjo6A1Gb2MbplgQKjCIMuMdnYUmk
bvfJ9QRSZZE/bo5SAsu1PcF0I4HijvzWzFgVLNx+q3HtVgJJ0bmEfXgOfrk4
nMK2IzAmtFjmG6QGcb3Sso5H4Kx6VKcvbB6O9q8/UutE4M7bXdRCPw3cvM6T
B7kQeGG2dXCbKQOnzsk8p9wJRFgGW+fKGTjAy6R0zIvAAx//BJ6JFs7wS3wh
8SWwcf9opWGZFm44OFeVLSAgSnPqtjNmYidrfxEvmEBG2AKlVi4T+0fqlPeE
E7jHFmpGDbVx8rWnp7pEBOrm07WtMrUxkcc7Jh4i0HFjx6h0sQ6OrnCsTI8j
0LIyrFWSo4MTOQcy4hMI/HDbu2yApYt7XPd5LE0hcGD1K4G/VBfvSIuoXSYm
oKqxNl6D9PBcuOCjltMEErVH2s8n62HHFlmXbybdt6mt0IyBcKG1loNnLoFj
0T6TrHiEYbdD3lQegRVbQhTcBISlfOLKyifQqD50wSEJ4VdhMuYXtFlS6c4T
pxCOFysP7qYtu/Lwp5HTCN9oqt5ZRLt1eMNmRSHCFnaccVxAwDB4UZz4LsJL
Nui4SQrpe63YzmUNCAfyqplltAXjVib3GhG+6hFYe4t2xSmn1smHCLvG3OX0
0/66NMko5AnC6VVHlTb0Xwb1jtU49CGs4g6Vd9NG8tkzgr8Qdt6SG/CWdpUI
fXtiEOF8R96nWhcIfFCtRtVvEN4cUpxsRfvMcj/+Kgrh2DJv7yTa1oPha+ze
I9xwTfvjHNqdld9r9k8gbNB4vfESbRPb7PKsaYQv9xms/Z12M6MkoWoW4dl3
9QOvaUcoqtwVKoR3qSPzZmnrZ93hvFYj/LP+MreFxQSu8xXTGg3CQ8atTA7t
/wCQh1hv
        "]]},
      Annotation[#, "Charting`Private`Tag$1055599#1"]& ], 
     TagBox[
      {GrayLevel[0], Thickness[Medium], Opacity[1.], LineBox[CompressedData["
1:eJwVx308E3gcwPHJw6+HqyVyJZzIcsopKZF8f9JLpVTqFULLyMMVs3aVShSl
jtv2Gu5eeSjRWXLUdVypPJQ8bF60O1GOyzwX5mHbL8M87HZ/fF6f13ttcPSR
0AUUCsVL0/+f2s+8ezia5UqhvJaybzNdb55ab/0X7SBQ9qrcOqgH4O1Y/2ku
jQ4UlqHBXWogyErdOZE0JuAbebHx1EhINCImgbR4CFo2aBdNvQKNQs+BozQe
BB1dkhJO5UB07oWGQ7QcGJwwKQuh3oFqDqfci/YYvhMK3jKoxaCrx0ZDp1/B
m/sZHXE7K2HfVUbSUx8hfJDlt+c+r4OyS6GdgmYxcA+meUoLmqDd/4wdO6YF
Vjc91m1Z8Q7093DDqnEblDS7RAs472F5a2iJY8C/oLKN5/l5toOleWRhUnAX
JAoy3jwZ/QjbO6Ma3dJ6YJHjAcZzy26oVl070JrdB/6B6r3Woz0Q8Uokqkoc
gGamQfIUrw8yQwqMVwZ9hs16r4QLTQfA1q9HOR86BP3OK3IpFZ9AQg6J8T4p
iJ1nf0uzGQRF1+pNRsdGATu8S2dlDwG/6HK4r+84lD12CXTsGwYadaHXxWwZ
8HefbztBpPCMda2Id08Ocw0xNX7KEWi1SkfeaQpo8ArX3t8wCuuut1ifyCSQ
v9c0pCZ1DJwOdzncy/4Ca435EVdhHDpZSa5czgSslNR+s6h5HEqcji+tS1WC
8eyyvPWbZGDkI2x/mDQJz/XtITZKBtBLSX1zbgqeGN8q2ieQQaZRxFLaxWnY
mHa8R9gpg8Sc729tPa2CsgfzwR5UOdwVZ9TzWDPg3aEUfnaTQxwzXWbKnoXW
Pyu7lSw5SBnWq44Hz4FKVOjZkCWHn+aGdSRh89B3uyXZol4OL0f2jC/zVwNr
DNUNjsjhg9X2Xud1FJwqz8uP01dAxLchdukCCj5msa273FEB1T4BsW5mWth2
yjxmo78CtvgNFxrmaWGVJHONR7wCIq97tO1cswAXLjrXM5qjgB/DFqq00hdg
w3Kv2iVVCqg0ZaiHDbWxg/jMyR6JAl7M39S24Wnj5e9izlTMKkBc6j7M1dfB
VmWebC8TAnXmYfWcNB2csZE9zHcmcKPsWF7PYl38u/nsI3sfAoEWH+kBXF18
1tK+mfsDgZlndms2ID2csCr1PpNH4Ir2UNMv8Xr4fVXV0iMPCRitc2JYURCW
O2vNj9QQiGH6fFl8CWGrbgbFvZOAybZTIloswnTlI9dSjV/Pnb2zKw7hZNsT
5y0lBBZzubsvJyBsVzTaqN1FIKeo9uehZIQjowzMarsJ1A/abxVlIdz25Kif
ez8BwxDqhaQKhLOsUra4SAm8sDH1zKtC2PEBPbFIY7rCxqzyNcL5lh0NxiME
HiZ41H+pRbggQLxrWuMduXFGp94ivPzGwMenYwSCO6XPdkkQjvHOKrVVEECC
6RR6N8KN3u+5dzQujkQnL/cirKf/T9ASQkA5Y4FKPiHs0OsiH9Q4xdjfd+04
wsVQUf7rBAG73vANO+UIlxZHBa5QEmgtPK/2Iwjvlisnrmls5pRawJ9EeLM6
w4A+SaCGci+2eBrhv+ue3m7SOEJUfEg0g3A8vcRwxxSBr/gvLfvnENap56cU
avyHr2hSrUaYPXVk+utpAv8BP2JhEg==
        "]]},
      Annotation[#, "Charting`Private`Tag$1055599#2"]& ]}, {}, {}}, 
   InsetBox["\<\" \[UpperLeftArrow] \\!\\(\\*SubscriptBox[\\\"\
\[DoubleStruckCapitalE]\\\", \\\"t\\\"]\\)[\\!\\(\\*SubscriptBox[\\\"\
\[CapitalDelta]\[ScriptM]\\\", \\nRowBox[{\\\"t\\\", \\\"+\\\", \
\\\"1\\\"}]]\\)]=0\"\>", {2.25, 1.0239771676461946}, {-1, 1}], 
   InsetBox["\<\"  \[LongLeftArrow] \
c(\\!\\(\\*SubscriptBox[\\\"\[ScriptM]\\\", \\\"t\\\"]\\))\"\>", \
{2., 1.1265902719162737}, {-1, 0}], 
   {GrayLevel[0], Dashing[{0.01}], 
    LineBox[{{1.3947786063763166`, 0.}, {1.3947786063763166`, 
     1.2483138852004994`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\[ScriptM]\"", TraditionalForm], 
    FormBox["\"\[ScriptC]\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 14},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{468., 289.23990673495075`},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{{{1.3947786063763166`, 
      FormBox[
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"\\!\\(\\*OverscriptBox[\\\"m\\\", \\\"\[Vee]\\\"]\\)\"", Italic,
             StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["\!\(\*OverscriptBox[\"m\", \"\[Vee]\"]\)", Italic]]], 
       TraditionalForm]}, {1.3947786063763166`, 
      FormBox[
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox["\"\"", Italic, StripOnInput -> False], TextForm]], 
         "InlineText"], 
        Text[
         Style["", Italic]]], TraditionalForm]}}, None}]], "Print",
 CellChangeTimes->{3.6982341582699413`*^9, 3.698257199600284*^9, 
  3.739779452283721*^9, 
  3.739780399682909*^9},ExpressionUUID->"b933ec55-086c-4b0d-af79-\
eae7553496e6"],

Cell[BoxData["\<\"Exporting:../../../../Figures/cRatTargetFig\"\>"], "Print",
 CellChangeTimes->{3.6982341582699413`*^9, 3.698257199600284*^9, 
  3.739779452283721*^9, 
  3.7397803997651987`*^9},ExpressionUUID->"f0cdef38-f3a8-4b11-9ece-\
9fe2c9e5f1d1"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "SimCDFsConverge.m"}], ";"}]], "Code",ExpressionUUID->"95872a86-67e5-42ba-bbad-e52d431bbfbd"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Running SimCDFsConverge.m\"\>"], "Print",
 CellChangeTimes->{3.698234162052105*^9, 3.698257200728744*^9, 
  3.73977945361034*^9, 
  3.739780403832192*^9},ExpressionUUID->"62306135-ab26-4bfa-a007-\
f3ac1b319d7c"],

Cell[BoxData["\<\"Finished constructing shocks.\"\>"], "Print",
 CellChangeTimes->{3.698234162052105*^9, 3.698257200728744*^9, 
  3.73977945361034*^9, 
  3.739780446289653*^9},ExpressionUUID->"683f1a3d-964a-4e63-923d-\
18f09cf9e6a3"],

Cell[BoxData["\<\"Simulating.\"\>"], "Print",
 CellChangeTimes->{3.698234162052105*^9, 3.698257200728744*^9, 
  3.73977945361034*^9, 
  3.739780461914435*^9},ExpressionUUID->"4311a9d5-4027-4ff0-8aff-\
71ad75b1a98e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "SimCDFsConvergePlot.m"}], ";"}]], "Code",ExpressionUUID->\
"16a9664c-30fa-4c59-b065-0f2564c33b67"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Running SimCDFsConvergePlot.m\"\>"], "Print",
 CellChangeTimes->{3.698257848507408*^9, 
  3.739780231890876*^9},ExpressionUUID->"f711eaae-253f-4f1f-b6fd-\
53f7ac4594b6"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {GrayLevel[0], Thickness[0.003], Opacity[1.], FaceForm[Opacity[0.3]], 
      LineBox[CompressedData["
1:eJwtlnk01N8fxpEl0aI9IkrfUpItFHla0CIpQikpLb6kKEu2FrJvJSoiZFfW
ZElZZgZlzTJZZjFjl8x8iIov1c/vnLnn3HPPc97n3Od5v973jytn42hyRYCP
j485v/9/8kUeXno0Vgd8vPUon1E5rOCGvLa4QJuV6ljoYOMore/P03qoPrL5
UGlbNE+fQlKpcKF/bCpPX8bD8v7VjzZnQNDoYRf36VXcI1d5Pi/IguVHXwWv
dXY43+h5IK8uF8If7BqiZG4gY2R7O+NVPpTilJY8OuGEDdckhfrGC3DmdKZG
R+RNPOMs1BzWKITfqo3W69tvYanTr3/HvN/y/FzQIX2sJdy5CLSHq/IzzVzB
ev/1r7VKMc/fDd9/yVsL5pTw/D2wxilO2ii1jOd/F7JLdhttsHkPFY/+yW7r
e1DI7vCe2PCBl+c+dEYkGE/iynl5fKAfkCf275kKcDUGj3qo+uK4vJH2njWV
vHy+OE0etRf/UgnJqfPOlc4PoKKsZ+R4pIqX1w9nLx6pOxVbBb2CrjihIj+4
FRaHRmVX8fL7I1JI/nhbZRUcb5hUG/70R45F5DKJ9ipePwH4lPWnzXioCs+3
N45Fagaif/bak4iZKuxcJMq/qysQkkkGkuKyJF6/wdj1vZBxVI2E8bTKvTJl
wTihJ5cYbECCv9/cSZJlCAJHZjeJXCchf7+bp0h8KJL32A3p3yfBQLYw4pVO
GMrDOjL9okig/yGSjZhhmFIu2CFQRuLxi8DSBzLj+5pIiH+eztKojAC9T/O9
LZ3E4/kQ9uo+kXIjJPRvX+any/cI0/71tvQpEo/vI6g0ElXkLWQe30iknN7j
HBlO5vGKRlx6/EmrODJs7u+Lcb0WDfWUf+/MZJCxWmkwM4gcjY/vnccXVJLh
HaxUn+v0BNyx4I61HDKO7iOJzzY+hZbH0mUJ02T85lyRXiL/DL5CT45sEqQg
P26RkpzXM6ySSfqwQ4qCNb9MjQ8pxEDHuDj5wBEKBnKGIqP8Y3ExZGh82pSC
mLOhyemMWNRy9F9aWlFgKKpc+E7tOR6/FRSQcaLgzWUPKqv3ORQO+FJSn1Bw
T0p8jaJuPCjXW5Xt2BRIBqvEV/9MwNabVHLxCAXNGh3ZnUaJCHPpPCU4QYHP
gGf5aGoizLyY7on81ZjaYOMYpJCEoaCvVV82VsPS6/Wj3M4k/H4xLat2uRpb
VXXb/1NLxozpmdv7u6tBTrx0OmosFV4L3pE+s6qx0haH96xKw+83a8XPD1XD
VklKq3dvGviWdyV5TlZDvLxtzc6HaRBpMa8vXFwDc9r+znqVdJQ22Qq+RA2+
rZQ1F7idgVqzIJ9evRroMmb1sxIzQGVm/pE7WoNHKZ27TnzKwDjn63TyqRpo
qD5clbAuE1uXOHBS7Wpw3/gPdfeHTLS+aLtQHFWDlSEM05v8r5D+5EX2Qc1a
XHUxMzZenYeZKJvbd7VrUaOdIrlNNw/HHm858A61kF8wMSh4NQ/fIwo6lQ7X
oj8yzLusKA97g2oEJM/UIr+zl/p4Wz5KZkRUT3jVYsePtQJ/6vJRZN63XqK2
FluUA89RF75Bv2eforTeR0ilX5LwCXgL8c0foo/rfEK4+/3+75x3uK5lsejm
wjpIWTakS8xUYIdxWrZlex3WSey1k9ciY8VdF3+N4HqMu6oX/57n+Ll3SidG
oQHmfWSvHNuPkE/Oj13U3AD+Aw9c7WTqcXxU6YLMpUbsyaINz6Y3Yu/UZHsl
txG6EiYSjRs/o7lErpXm04SDxXc0T422YIuOyc+TYs3IG36RvEOxDeVdB7Ju
xzajfHnnlsXB7Uihv1B8J/sZKrpJQaEsKsSvnv18Of4zHDhvN/+Q6YDqt+F3
j1e04MjTPsZlj06A8ibHwbQFHPLZlsoPXcj29tWPiGmB+lcOU1aKhjm/C9RA
VgvYS5d9lHWmgxH5i+ou2wrTsjtjYm8Z0GLuziBsW2F3XlDx99IejOXpalzK
aoVBQEdG9ykWTpiLkCnfWqFnEX/v1RE2YhfK5viotUFj5IzWtZ9srLhx1eSc
WxvEtfc+fPmsF+1cs7jBijYULtoxaWnQB5WgNGq4aDvCaQPV/RN9IO2JsDtm
3A5DB7J6X2Q/SqdGttontIPmmV1wCQPIrbNUPfe1HccMPzRa9g5AjRQ0M7yL
igmpaDO5+4O4t3ObrnwYFbZ27t/sFYewa4uH40QfFSR33w3bmoagZsX8r37/
F4wJxl5w8BqGxRuyWezLL5g1+QJ5mRFIv7+7b6lAB3Redoe9Lh9BYEvts0NO
HTB2GB0qsv+K1ZNnw9x7OqA/I8vaJT6KZGKm4dTlTogvuDyg9X4UDmLH05/P
dEJ4saOFmO03uG5q7Nd41IWBrsR/TUXGQBtqaOcz7EaUHDNApmgMaR72tyaM
ulGR0xycUTIGJ3FRib4T3RjZXRWmXDYGIVWD4xTzbuiYpDw+UDmGXOeo05E2
3RjytUu4WjcG6209LBuvbmgN/CjKZY7has/JuU/Z3WCkLxnUFeYgrvZ9l+s6
Gv5R3HfQ2oIDzerKJu56Gk52jTygn+GASqKQbWVp8PaLrLY4x8Hi8obsM1to
aGP06Z+4yMHdQvr9vbtouBvuf3j/NQ4iytzk/56koZNbb7TpHgeDj6UzQsJp
CCowOz2czkHKZ39zh0gaCq3+xFzK4uCiOFfo+BMaekQzulmvOWD4V1yWeEGD
us20ZVc+B1/crTfGZNPQuzzOqq6Mgxf23buCm2jY48K2ed3Mwc5RwwcvJOj4
pnHtuuNPDu4o7zY8u5qORasOl8nNcFDv9s+KdVJ0bJ2UF6HOcnBpAX9KtDwd
l/N6krT4uYhdX0wO1aSjZ4sJlV+ciyiSze5cazpa1u7WjpbjgpJr27emiI7i
/4RF3x3jwll1VUhFGR3Urn6za8ZcyBeTVa5U0TFZXJUsbcKFf7m0z5sGOpSd
PXV8LbgwaGzfYNRHR9Y3jqOhDRc5wp3fF61gIJ5B7WDe5mJ/08zTXHcGfCuS
UwVSuLD+ul7p810GMtWmPwakceEttK+G8GOgOdPo26JMLkr3BkwqRzIgGTWt
siKHCxedmoNfsxgosD1euamEC30xo5WyAwywl/3XrdfAxQah89yr3xgQDjD+
/amJi//+3PiU850BxdlUWaMWLvK+P/LW5mfCfdDY1uwLF2tp1AFzGSaWlaVN
XWFxUeezxOWYBRO4dHJp4CQXCan7TO3PM3G5K11V7CcXrh9vqQZdYSLEaM7s
4fQ8j8Wd4xRnJjo0M+Kf/eZibqdoS68nE3PZc5VSfATaTbTz/vowsXGjSX+i
AIHXrtcjpIOZOPwsQ1heiIBvTOJ17UdM3BD/rZApQmB3jn1rTAwT0T4mRoqL
CDzO3brTLpmJsp8ZTvnixPy/KHVUtJgJ4V6TklIJAhnF8RcNmUwkFGXq1UkR
4Cu1rJQaZqJ62x9bIxkCZ96tlR4bZ2I00TS0VZaA2IforjDBHmiE/Gnt3kzg
GinMuHl7D5rOn7Ie3UmAc/9OXGlAD+ZE+DzF9AiIRqVJJkb1YOaidyDNgMDm
tKZY/6Qe/Hw/HZ11hMDpOukYk7IeEI4TeYeMCVAkKqLHOD3o6+wbfGBJoEz1
B5s82wOWivWkidX8/fk/S+ZEWWCE0vk2XiBglDNzxekfFr6AKlV1hcDy9L8k
C2sWPmXUnJxzmu9Xnj828joLNfwHrBucCdxOFnBq8GKBfLbC4bkbgc4EIRnE
sPB+aUmglvd8XmmRH+7pLJTaqT0RuUdAM25h45u3LLyl5CV3+BAwTXodcovC
QoG0Yn6aH4H0BHrAq24Wcm9nlrsEEpiOF3vQR7DwulW+4WDIfL3pBRYvYCNz
+8uu5eEEfjQ0aeuvY+MlK3Yy/zGBZ592qBfpsxF9KFSB84JA1Ud91dYTbES+
FNH8kERgtNZKmXOWjYjZB3qhKQSW1roqidqyEWLGZ2KZPj/vmnDFzbfYCMzz
tlbIImBTnbZt/x02/ERnHKZfE/g4XZkeF8rG/Uuunh9z599Dkg2Nk8DGnfKJ
wKcFBM4dFlqy7w0bnmtuPLnylsA/4xn7H9ewcfvmaLJ6CYHxZ0ddB7rYcGm4
mr+gjMDd4YeMoL9sXL9n3fCykkBSgOTr1mO9uDB8gr+nnoC9UnnPpgu9sNrf
tCSniYB6h/VyN+deWMYdWe/dQuDXHQGDTwG9MP9Ro2DYToC0Oc1D8nkvTI0P
aEp2EFjFafSIme7FiawKva9dBO4v/u2e7NiHYwu0TUrpBF4dt7pdbNUPgxK1
6+a9BFY6hrtVUftxQCLfc/MAgayH5a71hgPANcWgqSECmS3SLj27B6G1YXPK
4zECuhNGziP5g9jl8TL/IkGgTeLure9bhqDaLl2h/J3AXtXcm3MJQ1Da8bzh
79R83aTHSXj1MLYHru5u/kXgf7AoBcU=
       "]]},
     Annotation[#, "Charting`Private`Tag$829803#1"]& ]}, {{}, {}, 
    TagBox[
     {GrayLevel[0], Thickness[0.003], Opacity[1.], FaceForm[Opacity[0.3]], 
      LineBox[CompressedData["
1:eJwtlHk01d3bxh15lEYypEg0yRipKOXKkJL85JiVIYk0aUCSKZkVKSQpmZVE
IaXM8/iYHVPOKOScryJp8Hi9a5291l57XX/c+7qvz177lnF0I5/l5eHhYS3u
/z8PuSUcNHA/AR7uCljwmhfN8UJe55NQR5HdSPhW23M3KYSr9ZB6flL7aFwc
V5tBNmvhZ4ZQBlc7IWlJ1SXntCzwGUVTOPHOEHIIYmzf8xI29YFyt9a74q+4
wL9ZVnng/+Ta/FDqMj6UnN28+0c+lJ8or75/4gpmxvRtRbTewtoqe29vzFWc
PyzQ1f1vIfd+d3zs0fXg/1GEgWjR/GxzD4h4kBLyeIq5fp5oKPAZJol/4Prd
hIrq9XOZ+qVcPz9EtKtEGpPLoHqTMd1v7w+mGyd3zrac6x+A432FNzNKKrj+
t/ErU3iF96FKcPayjt3cFYhMz2tJ/6urRJDoZnvJrkCY6XcobTlehQ0zdtfL
r98Bj5hK+c+OKm6/QRDhyVjrpFsNvTeUJ/8UBWHZuj9uDo7V3P6D8VfJpPXU
7Wq4XSbXGM4GY0ovS976eTU3TwiYJ+dDzcurkajQMhmjHgrKNVOWyedq7Fwu
QNpDCUXF84XkY5I13LzhKCw2n9fXrMFURvlBqZJwZLfl2Oja1CA46K9JpU0E
7v+1FD2QUIN8bU/vpUmRCBJ+fU2juAb60gVRLw/chZc8X/vu3hoM/kekGg3f
hYNVfoSSSC2XXxTM3PjH5NRqkZSYObK3PApqFmNTtwxquTyjsbxSUOK0bS0Y
CoJBWjz3QVfYd1j/ai2X731o9Q2wBypquXxjIKazRLyiuxbp9XUVsvQYsF8p
6GSM1XJ5P8CTQJ94N8E6Lu8HmFOSAp9DHZdvLPJV13fGedTBMeBQgseFWCSb
eFxxCKuDmDIrO6wqFufF/FY8S6hD42D4hyfr47BnMCRzMLsOPuHKTa+vxMGJ
82Jt53gdjh2qXPmnJR47C97mrvldh3n22Y2rtz7Cnxsfjxotr0f+k+XKMrce
4QGp1a9Bvh7rfpoaH5FLgG1dz3p+zXo0pc/Z2wQkQC7yc6GuYT38yE+vXOpL
QIXI1ETZhXowc0djHgY/RiHlV1uNdz0STkamZg49RmuDycPG0HoYCqgUfFBL
xEI2SbIrpR5vnW52j9ASccb1tNJoTz38JVauU9RKwtL35+0jDjZgQ7hqUs3s
M3jyB6qnH21A297eV31GyWCZPV5TZtqA20zv0on0ZFR/qy//5tqAmU2ObmFy
z+GvsE3aOr4BNrdy7r/ue45N2pfayJwG7Nil1fVbLRXBzy33hcQ0oir5jNXD
yXSULkxs5UtshIgLju4XzcCsnZ9gYGojXJQlNGgHM+CyMeOLb0EjVpZ2rtsZ
nQGDxO9xHj2NsBjQ7mtSzQTnXpmVungTvopIW/DeyAJ949I1o3FNEIkYMr1K
eokw5QmbsKdNcDZ5rysu/xJKaM2Uz2jCB/FYtXLyS3g5PNRyK2yCXZah8Kr0
l1idtunyXGcTsmtKOrP1c3ByyyrW9OpmHFxIMKFGvsIAj6wAr28znN3NjY3F
8qCww0jY8E4zajXTNshr5eGW8fWNseHN2LrkG4vPOQ8Sz8pVt8c3gxFz16ek
KA+nNK1sjuU1I7+P1v1APh+EdS2hSmuG0g9x3v8a83F02OOVtlYLZFVCT3Uv
e4vT2md37vzSAonMM0K3Qwpx79HFLdTJFjitf0WRSioEtdac1/p7C17fnUn+
9KYQIZt3VBybb4HO9WDluaFCdAy2aCoLt+L8oSxDN7UiXHCKC5/UasX7gYlg
W2oRtl6dlK2IaoXZmmu/9+0vxvpCyupEpTbc8wpgfGd/wNu1e65s0v0XEjbN
mUK/yqBwoL1yq3w71gsddN2qUYVDdo6zLZntmPLY/W5+tAYxYwJB2iIdsKBX
3cp1qcdEbNRIVlAHSDp3PFylmkAT9X7KO9aB/S8GvvzJbMHQvs3+xbqd0BIi
C7Vs/heZkxLt+7M7ofvOV91soh3sP5JlV0hdyPvyNFVJsROSGvOSo/ZdKF3b
J7sqvAuV96zkxz92QVXreVjkSDdu7X27oCjYjYvswm0/pHqRoSP6zvtyNwzi
6UNON/sQSta4N1XRDXbVyfbyTxTsyl52w2xjD3aPs4elJQag7Bf309SzB9Q1
gvXS1wdBS6oXs23ugWmJ7+SKwiFoCvOSJ7b0wtWOT3F+zWdMCSToHbnRC/2Q
3qx+sxH4FIbsNW3uhZ5lkv9LAypOxzf4Bsj2Ye+YtcaFWSqC4yU3dvn2YaXm
weiURzT0uX/qPj7Uh4LlStM2+nTwzh2sIx2g4N4As4bxjQ4LvjzpvEQKDC9W
7abHMJD8/m+hBl8/BrxfvTkDJlRFBnPSnfpx3PBTiw2Nidsv+M/R6vrxTSLW
XCaAhdBhrXSy+gBcXL2+nlccxY6rv7rD0gZQ6RW4Sb51FBF97k/FJQYxyffY
4eKtL3jCDCp/Fj+IP+QebJUag2TLkXck0SEcSOm/m1M6BmvB4wZ9WUMwvjgx
WnR+HAdsfHg/HRjG4V/SI3tWTmAw5rPXNeYwVi5xYmp8nEBXyrpAo+efwb/K
zXKFy1eszIwIeHpmBExK8jnTpZNIWSenQNpJxUOZ4RCpoknUPR79OaFCRVlu
W3hW8STGJdJrundRMbav4q5KySRUpTfZZe+l4gA57YFO+SRiSa/cjmtRMRro
+sy5cRJOywwaDxlRocH8UfR6eBIyxkrqZy5RMZS5mqXFzwa5K1rYvIiK7YqH
dO0t2ZiqWxroU0yFCWXszqA1G1El/lNpH6jwCYqpsTzFRlOKW+v3Uio6h+iH
T5xmQ+eKcej9Oir87gUf1b7Axo07ygoP+6no4zQZbfFnw7h64UHrAhVhb8yt
vmSyod6T6ajIS0OB7X8JZ16wIf3FaFckHw2fBbL6R3LY+LY8qeOoAA27Heds
KPlsxJE1BGvW0kBb+8S2sYSNDJJxQIYsDfvdqY45bWw4lh5UCDSl4eveC5fc
ZtkYvLez+pEFDctFj5bI/FrMZydzMteahh3TW5d2/2FDe4EvkmJPg1Pe5+ca
JA5ktFsmlC8u+suSu0krOSjdsbzXIoSGdvF9mrEyHJyNynhKLqPh3W9+gQ/H
OdC0nd6+qoqGbgrD/IIxB0KK2vn1tTRMv6tI3UherG8cqjrQSoPKde8DgZYc
CP8jMrZ9iIYXX9luho4cXBdO6uf7TUPSUHfv8A0O4neIkI320xFYlprOm8aB
BWe1qIkWHdlqc/UhGRyIFQpQzHToaMs2+ro8m4M4LNieOkbHhodzqsK5HOxq
/0chxIaONy7/K99SzEHN6dpUNX86qIK/+/WaOZg1LTVpvEMHf4jxfEMrB3L6
RTz2YXQo/kmXNmrnIEo+wy4ihg4vlrGLeQ8HVtNBG2hpdAiWZMycHeGg7HDp
aZ9WOnDGZE3oNAd3boK/oJMOJ0rmrhWzHBjmVr4c76MjwuivefQcBwMiddMW
dDp61bOSHs1z8JPRFqz6k47LK+flspcSEHrR6mguy8Czomy9RgkCPzXE8s8p
MVAj/5+LkRSBoQa7+VtqDEwkm0Z2SBPIHiMepYKBvRH/dfRvI6C5Y20rYclA
q52Z/cROAkcVndgzUQz8XcrjvUKPQLmB0ruyeAZ+nfYJHdAnoO4y6xf2jIHZ
j3OxLwwIbEkNE5R8zQDh9i3viDGBxHKTflYRA5ONl0rFyATWDG9IzStlYGzL
RBPLjEDIb8b5m7UMsHydKYWWBObX5arptjJA76Oz7tgQKAm/uqS+l4ERVftp
si0Br8pBY14aA0ORgzybHQhMqeSPef1goAfdEhVnCTDXWG9wlmKiIavW5O8V
AqlHqp1TdjBRS9Kxb75OwMFfqWBoFxNVJ8suJnoSoHBIx02PMPFxTXGohg+B
+O0XE6JMmHjvqha31J/ACbteZuNJJgqr81J7bxMYvqDwcYk7E69vZJe6hxLI
zRzeUH+biZyOrc26EQR8adHeEdFMZCukUNbeIyBuObNPKIeJlJHH0/kPCJjq
lL6XojMReyRSjv10kZevmzidYCImZan6p+cEpotlvDLmmYj6c0cvMo1A2feu
vnMrWIgw5yHbZBKIUgpRV1y/OGfzfOzlXhCwO6fxiNjOQpDAr4tzOQRU7rOm
32mwEHDGw7v+NYFlpeLu6SdY8C39Fhr/hgB13HAm5hwL3usux50tJPBezN/d
f3Fu37g6kbq7mMB93bczFxNYcG92zl9Ssvi+T8V/HGlg4ZK/fXNKOYHoE6wf
87KjcPhygvS5iYCLr7jnV4zCVrt1dW4rAbw0nKVYjsLmiYGkTzuB1X1+nnVu
o7D4UStn2EVgdMnb2YLQUZga66hv6CXgl1dw59fmLzjxokxvnLKoDZbRN49/
wfElmuT3g4v1fm+eeXiMQ79Y7ZIFbVGL888/05yAjlC+9zYmAYu3NicbSF+B
C4phM6MEkkeXiEtETUJj07a0B5OLfgFWnnpmbOy5mZJ/miCgLJHbfWnD4r/u
2lim8p3AziKS2iMqB8pKic0LMwQ8jS1iKhY5K4SK9bf9JPB/DygyZg==
       "]]},
     Annotation[#, "Charting`Private`Tag$829872#1"]& ]}, {{}, {}, 
    TagBox[
     {GrayLevel[0], Thickness[0.003], Opacity[1.], FaceForm[Opacity[0.3]], 
      LineBox[CompressedData["
1:eJwtlHk01ev7hk0pZUpRcpKKHJJSkqHchTRIZkqnlESigzQc09ERmTOkSINZ
hkwZE5GM2zzENm97Mu794ZskRb9+a+13rXe96/7rup9rPevdbutieo2Hi4tr
7vf9/7favUBdTMYCXJwj+oZivuazN/K6ngfablRFnA9JiF8lhJP1cNkeU3yj
cZxsjpoBj3N8ahmcbIc0O+POVPls8BlGkNlP7RHC3nX6uGQurBv8FLwkHaHI
PbVVd6UA/BWOzY+l/8Yf+hbWG+4VQvm5snCksStEQquf0oginD+XodYb5Qbu
jt3dhddL4C++w+aP7lv4sjFWxH+slMO7DUWKyABD4h0GIsTzMyzugLJZTGj1
H+Uc/l2cCZFwP7WrgsP3QHRJxDaHrdUc/r9gdYm++5ZQDRUP2pd+G1+cJKJM
g3Z85PS5jxX5mIBM+RpOn/9wXk98m2ZWDdhqjNMe+/1QdPlpGUnpE6efH0R9
NpleyPuELfOX3KvcH+DGs7jpaZVaTl9/XF9lI3kvqRZ6BeTnq4r9cTC5IWN3
bS2nfwB4sU+dwqyFy9+mtQYLAegYjGuIEajjzPMQr/7htjqlVIf43S0zUYcC
4SR+g7l8tg571wpwHyQHgt9Ia5VDTB1n3mB0T6fESJXWYTat6oh0eTASgwRl
O/rrEOD/0+SjdQi0aoZ1NLbVI//YXc/VL0IhYKPfxTpWD32ZwkdZh8PQ+yP3
SrJdPQZXiGTD4TC4Hbx/f11WPcffI2h3TYhUt9TjRXz6qFrVI2z0iJl1ZtZz
fEZgs9LnzujletB2i/prc0VCalS8sGxjA8dvJBSzN6sbuzVw/EZB+dJ5ybtB
DUhtqK+Wp0ZBZX380vOEBo7vaKjfk6ocb23g+I7GCV1pHV/FRo7fGJw5bx4b
q9sI2/tH4+44xYBnXbu22/lGSCgzMoJqYmDtXDlt5NyIpsHgd88ln+Bta3ac
sm8jvIOVSbmuT7DB7NqZTFIjTh/9KPij5Smci8y+Bw43Ypl1bauwbCxqxXXS
7Wcbkf98rfJ2r1jcJktzyUo0YdM3M6MTCnFo1RDK4VFoAil10cb6fhzknv84
P6bVhH9NX7re7IvD54vkwldXmkDPYUY9DngG0vXbCVvcmxB3ITQ5fegZoilV
UWf9mmAgsK/w3YF47OywvFuS2IS3dh49o2PxOJ7nj4fDTfCVEtykpP0C4Ttu
JVdakrAlWOVF7cIrFLlYLDjYkdCm1vumzzABgxXqp8VukfAf3bNyKjUBCla/
5uzDSZjfZusSpJCI2tCwY6K1JFh7ZUfm9iVimuzypLyTBNWu5c3qvEkQ22U2
aTdKgrCCcdJH5SRcrpaMerdEwsfe+YKegCS4mW/4lazcjD/3a3cvHUhGpeLZ
V/0azeAJjrzgb5OMNdzBR0SPN2NwlEoTCk1GYs6Kl8+FZjwKD5yXoSajnX9q
0SqoGV8nOsRPRKaAZ21VZBKlGTUJV889nkkF5erCsutUMzY64KSmeBo+VO5x
OjrfDAdlKfWxI2nwcntxfHR1CwQruzbtjUjDPNlj6Y+9LbAcONZHUkkH6fKW
msfeLZjeKGPJc+81tjS9EncUbsXGkCEzN+4sCJaMZshJtMLepEx3s2IWVpJl
DlO3tuLd5pgDVaZZoHon217Y04pLrw02CKVmIXNfep7hmVZk1JZ3ZehnQ/iT
HmEY0oojv+JMKKFv0KvmZxXN3wb72xZGRhJ5mHPw9aoWakOdVsoWRe08CD7z
TmBvbIMs7xyDzz4Puj/ujp/e2QZaVJh3eXEe8quc7vEebUN+31hPtGI+7pNC
qDIebdjzdTPPSlM+Jhpq1r1htEF+X+BfPWveYrBad5hc2A6p9Kvr/3tYBP2J
gDMXytthJ/mGLP2iCIWPKxzDqtuRGzafUFFQhEdTCqnslnbouAcoLw4VQSeO
T7KQ0Y4bR18buBwoBlPMmh2/rgNlA1MBFynFmDEsTgjT7IC5yK0lDc1SKPJ9
lO943oHwf+7T/sd6h/5W4wTq4U5IWTenr//+AU7fX1dY9nZCcv0RR1n1Gmw7
5PFKxK4Ls3dUS5Z//2tGUg6GErQuWFJrvHIcGhByVuWAi103uHUe3HGUJsHv
WuT1hv5uaGYOjP9Ib4FN8MDNIyd6oL3edH3Ljnb4xuf/rHzbA90Sn0PmUx0Q
+tdO3lj6M/LGXybvUeqCkq/G/qOhn1Ep1icvFNwNMYHWLLPZz1DRTgwKHe0B
N88q2yyTXjiziuS+SvciIvAg97eKXpx6Sh2y8+hDVxqrJ1y6D6yaCx1VFWSk
LbgbLwX2QXWSNSwjNYCPwZFlm1h9oIiINsi4D0LTxlXI6AwZZuU+M+uKhpAh
WqYxkE+G4yU+pWWREbzzMrjcsrEf+g97X/ebj0LOLOdY0q1+6Fm98M06RYH8
36U5poP9UJs4r+60QIFnqABxUnMAglpHIpJix9Cx/y87q4wBFK7d88Van4pP
1/lS6zYNInyAXkubo2Kt9Pa07n8HYeBco0qNomH6z6rYgflBDHi+KbgKOkS8
SKtMbYdwxqCixXqMDr1xMYvdPUOYk4qx2H6fAQGXHW6fzYbh4PjP9A0lJq6X
+swZdw/j4z9+2xRbmQClRk/KZgQzfM8uO3uNg2U+KfpgZgQ/TD9DVnoCIo7e
f/X5jOJwUn9YduUETuscElMVo8DIeYpZfGMSl0JSNq1xoOD4d5nRg4JTWFVV
kT3RTIEgrx1d/f0USn51f2OojYFfyMVqncM07G2eWrLSxkAnJ1w3Wz2D9pxF
rpP7qXi8ffihdPEMLmzbr+SrSsWHnLbg16UzYEY6WZWoUTGhUR22r3wGK+4j
ObJaVBw2TYnWqZpBcWORyRo9Kph+jq/sm2bwXe5P7hBLKtTpX4tzh2cw3XV4
ScWbiqF0YYY2Pwub6tQdvjZTsUvpqK6NFQsDk8LOQW1UmJAnHgyeZ+GVMMNV
qpMKb/+oWqu/WJA9F+V5rJeKriHqceMrLOybngwPp1Dxb3jAyWNOLJxV2pCt
ukBFH5tkuNOXBdIVq3PeO2gIKrA4N57OQnyxl4GJHA2FF1firmay4CiQqL3r
TxpGBF73j2azIFAwIduxhwZV20Vrcj4Lp7k853Zq0DAm9vxiUzkLa67WFwab
0KB5m2Kb3cbCzOi16+oBv/dAzemmywIL658o138JomGt+Mny7d9ZUD39bWde
GA1/fpFd3fODBa+ioFG5GBrs8kYS1bnZEAzOttyQ8psvb9rDLchGRI2abUAN
DR2bNbRitrOhO23xUo+XjpIlfoF3Z9iYbMpQtFlNRw+ZZuFkxEZUxo9Sj3V0
fCmpTt5qysbotaSu3A107HP3POxnxYYnZWa1pCwdmdMsFwNbNuJHmheTj9Px
Yqind/geGxeOzz3rPUVHeXnBzkhPNra+kdBae5aO/rhHrjo+bCR6XPFxs6RD
wuLk2td+bFyhPJROs6ZD9YCc1fkANnaceFNFvkSH6Xqe1HVBbFBzOi8LXqXD
lRiZrQxhI23jN+6jDnREtL4/4hrORjef/O6LznTkZseF7Ihk4+xC80kfNzpa
gu/09USzcbxf3L/Si441+nvdNOLYUEvIXDoSSYffh+RUnhQ2RgKzzvM/oSPj
wGLDwzQ2Alyzy9qe0dGWYTi9NoONnmM5d21S6NjyeFFlQw4bXDzbBLNK6Chw
OFu1s5SN0P1fz7JpdFBEl/r1mtnoLCvNvqnLAK6aiAR+YWPhibdx2SkG7Mjp
+9ctsCHtfuwrjzEDIYY/LSIW2XDZ06wd9xcDvYdev4hdZkMkeaSz5g4Dfwsu
K2SsJtA4qs5tlsPAq+IMvSYpAk/SFzaYFDFQq7jiYChNwPZm0S6j9wxMJZiF
dsoQ+Lm094xBEwNqISud/XIElCXkY3UZDLReMreZ2ktgeZX/qrhdTPxczeW5
To+AX3fK4dG9THy/4h04oE+AP+mT+y4NJhbeL8ZkniIgeJiXWmTABOEyl3fC
iECkwE7Jn+ZMzDTdrJQwJSDWp2Ose4mJiZ1TJIY5gaeptoEhDkwwfOzJRVYE
pG75feh0ZYLaR2U8sCZwtnBHp5o3E6MqNl9MLxI4LMvV6R3ExFDoINeOywQk
+N93rEli4jN6pKqvEWhp2tch08VE4+s6k5+uBN5rCnfYjzBRx61j0+xOICt7
uv3NFBM1Fz44x98l8CA8vV2ddxzvRUoD1b0JhHnoqTsfGkfuvYzK24EE+BRF
6l/ojyO7U7ZZN4SAz0C/WavFODJ2J5HFwglc13JxUb49jqTRZ1/yowkcX36W
Pps/jpgToQqslwQqc+xUt1ePIypp9aGKRAJql/bWmLSP49GPB3qhKQQyhZeM
/EbGEWLBZWqdTmB7Ve3wW9Y4AvO8bRQyCcS7RDjRfo7DX+C782I2gVfXQkWb
RCdw/+odz4ZcAv5E7Fr67gn4VM4FPi0gcMMjle+X/gQ8N/395FoRARPeghVJ
2wncc5tKVi0lcCi8clHVZwK3m+3zecsJLCX2ztwonMBNX5vmpCoCIY1rPvdu
m8TlcWPuERIBV1Px9jnNSVw81iqc00rAcmh7k6DlJKyfn/rDu4PAAXvlT/Ju
k7D8Wqdg0E1gy6xmpU7YJMyMdA5t6SXwuPvlh8v7p2Cc+UFvkkwgps8smrZq
Gmd4tUzLBn/vG6VKY/LNDPRLD9y0HCOwl35HyPk+Czrr8z3l6AS8J3aPsc3Y
gJNS0DyTAGk2Nmh+iYD6NrmU6BkCoUu7crUcZnHQIyn/CkHg7U/uzcsds9jf
vfXDvv/9zitD/33QnIPynvjmX/MEyFxl076pc9gdKNHf9o3A/wFNcY7C
       "]]},
     Annotation[#, "Charting`Private`Tag$830010#1"]& ]}, {{}, {}, 
    TagBox[
     {GrayLevel[0], Thickness[0.003], Opacity[1.], FaceForm[Opacity[0.3]], 
      LineBox[CompressedData["
1:eJwtlAkw1usXx6luIilrSklFsitC6fqWtLgRKSmJrsQlS10ipUTWSIoWy82+
RLKEZC37TtbX7t15ed9fSirC33/GM/PMM2fmnPl+z+ecebZbu5hcXcHFxTW3
dP//cvn0me8vPw2u5RNeL6N01c4L2R0xgdYi6rj+spH7lcrD5VgPl7m2OhYL
Ry3HZ2Gmfiyh3j99ObbB5e0iXlV+mVhl+JjEeW4LBwHKufIHb2Fe5yt3Z5M9
MK2zuv9QHlaX2jdFSDqjmpXiavbxHZRjlAXCja9Dn8xP7kIBLpxP1+h5cgOt
va6nTCoK4Se6w2pL578409pf0qZTtKznhq2L10U3enxA/2PRnHTTm2i96u5k
71W8rO8ONTWfrQKBpcv6nliwbSpXOPVxWf8ezDa3srraP2KPJ/Vbn5U3clra
xe6d+bTs5z6s1Xuc289XLvvxQQmTFO05UAmOBv0vz72+EIkZqN1hWbXszxfO
p4a/No1WYfO0pWuF6wPUcZMlb16pXvbrhxcqY/b6ndXQyyXF/FHghxJ+ttLa
H9XL/v0xMj411by5Bi7OJtUnZ/yxsm6mIEynZrmfAOxOnvM0tq5BtELz5BPN
QBj4cOkIBdRAhY+Xex8pEJHafLXPWmqW+w1Gkfj6h2ZTNfiSUvGnZHEwBr8L
n9okWgt/v9+nP5k/hEzO1p5Yi1rkHHa/zRMbAv1HO6It79fimNS7sIyDoXBy
kLWUSq7FwAKRaDgUikLpPYykidplfmHo59bIuLq+DrHRqSMaFWEgydd+vrK7
bpnn4yUuj4stdepAVdjgp8MVjj1c55MunK1b5huOIZZU6FmHOnjyGb4kx4cj
uHvczeh+Hao9r+1QmwoHOePOsaNv6pb5P8ERrqrQLRb1yzwjYUPOrPriWg/r
+4de3rwWCa/+o5vzg+shpkxPD6qMxLRCtrZLbj28gpUb315/Blqrzz06VwP+
OvSJf675OapFZFd1xDWAlsV4EuEfhZWRWqGZeQ14eTEkMXUwCiJhD3j6qhpw
klf13Qe1aGj4blpQYzQgz8aza4QcDU+HoxPj8o3wluDfqKgTiw0ZvVej3jVi
c/Ce2OqZV/DuiFBd/NSIVo2eN72GceDMGs3ZtDfCh3a7jJUch5aT9eGq7EZM
b7N2CZKLRzC7qKRuVxPM72SGv+2Nh2TcYtyeF03YvVenc1YtEcLWbsnbkpqw
Ijj8op9VItbIjKevy27CwAiFui4kEVMZHbnjtU0IexQ4LUVJRHVhSlXCTBO+
j7WLHg9PQv25NWUrTJtRGXflfMRkMrpwSD/dqhkidjhxQDQF5N23ug0dmmGn
LKFF/jMFv2aZ7JfezeAv69io8jgF8nF1kioZzTjXf7i3cU8qLMjCi9LzzZgQ
kTq3wiMNl3UcPuhGtEDk4eCZG9wZcDfdppsZ0wLb00VHxOUzEOrY1Sic3IIP
4pFqFSYZeB+tM0jLb4Fl2knhdckZEPghtBjQ04L06uKO9GOZkDw+ZM+/qRV/
Lr48PRryBoFlctlzL1ph62ZqZCSWjZEdH5rpca2o0U7aLK+TDY2gE6y2tFZI
r5yir7LNBsPETib5fSuoT0K9iguyoTeWHGPQ24qcXnLXU/kcdOjNvJMRa4PS
d/EVCw05OCpklecW0gZZ1UCLrjV52LqK4Sug2A6J1CuCPgH5INlP7vpbpR02
m96QJGPzof+tg+G3tx1vQ6fjSnPzobA63rZZqx26rv7KPwfzQSgcsL14tB0O
h9JOuqgVwFn6n3JXy3YU9bP8L40WICBJtVQutB1n1/87u//Aeyjc3mXzjt2O
R7fuU7+yP6BxncoW5uPPkDBvShX8VQ45qbULtL0d2CT4p720ViVcgg4e4lR1
4MtN9cJ5RjXmrQ9c/364E+colXey7Orw47BgWnF1J7h1H9y0l2xEiZuLWbx2
Fw687mfOpTZjk9SmWuE3XdARNBFs3tEGb0enOtsd3ThSeFfzLKsd0geaIvoe
dSOb+V+ikmIH/B0HOxkrelAm1Cu7LrgTM5TwMAnnHuzRiQ8KGenCGmMLkkxb
DxzZ+TLfJXtAiKu/2qrdC/3nlEEbz148pzezxv7rBbvyYntFKQnCglErdfhJ
UB9nD0lJ9EN0jfGuwhskjK7fUCflOoCv/FpBcp0knCm+O7k2fxB//xj4feJA
H+wtVynOrx+GouzZ1ROv+nAsoCet7+wI/N1dHQS5+6FnFuudoT+KfzVydHe4
9ENj7ILWtZlROJG798R094Nf+8/HCS/I8Biq+rnm+ADe8Sl9Mz9GgcZusQ3F
RQN41E+rpk5RcJieZKgmO4iTjpXqlCdU3F0dflgnfhD9t9/kXgENeoqv/qCK
DMHgZGmzOZkGu4SBmuKgIUxJRJpuv08Hvcy99OnaYdjZ35pwUGRgujClUids
GJ9u+W6Tb2GgUiYj0VVyBJOroi473mHCT8lXZ1/eCOZMuiEtOYb4WpLn1R2j
OJjQF5pZNgbVNY7nMrxGYeTIYhQ4jGOV0vw5l65RHP0lNbKPnwX7F9Fdydpk
8K+0oWmVsPCU+kBR8A0Zq9e5mK21mwBPeU/OKxkKaKS4f87wTEKxg6LdLksB
T6v4Mz6+SZxmcGq55SmQr3ry6RP/JKIFeIZslClwyXqwWVVoKd9Kk1dBk4JZ
H7tm/q2TiNM09tunT8EGBRXV2r2TONjIZ5XmTMHBu+U/tCwnoRuvflG4lIKI
7UMBkgWTmDXVFPAop6A8qzU47f0k8tYe+NT/kYKx/R9DVYsnsd0Dsok1S/Um
SU91K5bqKZ7T2m0UMHztX9k2TGKG//vG51QKtGjfC94OTaJ06c/X46diMFWA
rrOaDeOgxZ4rNlTsUjx0xMqMjZ7rsmVidlScJo09GLjAhsUFo6QGeyq8/J5U
m1mw8Y98nIuKCxUdg5Sjxn+z4d2ss2bOk4p7j/xPHL7GRsbzBu+EcCp6OY2G
O73Z+LBfOHuxnIqgXNPzzFQ2bv/7Q+bnJyreXVp4eeU1GwczB2K/VFMxzJvW
N5LJRvmW5IfkRirUrX+ak3LYqFlUt63qoYIsFHOpoZiNVEpQ96kpKg64jVpn
trJh5mb07IMsDRMa15xcZti49pfN4AUFGvhETxRv/8XGXSnPnbPKNOz+Js3T
NcdGfHNi7gENGmyyh+O1uDmYkJ5pKdGjYVjWpIubnwP9p794t1rT0C6+Xzty
OweVh44YpiTSUDi7mveDAQfS3xRuKKXR0EWiml4z4iAoReRZQSYN3wo/Jm41
4cCQjzFYk0+Dquvtg75mHPR2Bjkyaml4PcF2OWnNQbanX2bQJA2xg109Qx4c
LJp0qP/YT4dveWLyiiQO3tXLmb7QoSNd7WddQAoHdjo+NzWP0NGabjjBl85B
u5xqoYcBHZsjfu4RzuLALy6wZ+NpOg6tOWX6IpsDLdGRmfemdNjeTbolkcfB
5EONjefN6Qj9+jMmLp+DtrVfCWUrOnLtTlXsfM/BoOkKv182dPQMJlHSPizx
iBMSr3ag4/fpX38olnLAq6526II7HScOJhuof+LgmIVb+INHdIxumO3Ta+LA
NNVP+lQEHasDjObrWziw+RJZJB5Fh+JcspRhOwe+fgWjWcl03KIb2Zl2c/C0
tcbtVgYdr8xTHvb1cpAg3rPmSA4d1W2zWZf6OcixZsSuK6SDpWf8mTzIQcWb
GVVSCR0bilOmr44s9bP/RVVJJR0aKnMbWWQOIrWOb+9uoMMi2VjbmcYBY1/a
IA9piV/YnI/7OAcBqnZnnKbpwJXT6wO/caCgsjE3YI4OG1Lq3rUzHHQp1QnE
r2DgoeFv08c/OdilINvYsYGBHs202BfzHNTLMA9pKTHgzD8vl85DwN4iUCLr
CgOvCtL1GiQIGJ3nNXV3YKBafsHOUJKAxtmQMNxggBV3JuSzFIEVBo+5O+4x
oPFw4XOfDIHx44LaMf4MWCye+X5pN4G2IxFuNqEM+Lq9FqfIEyiE6FulCAbS
xxe0bZUIRGm/YM5EMdBiedaKpUKg+eCEEF8CA187X/s67yXQaspU0c1gQFx/
MeWrOoHOwBH7vFIGbNQyJmf3ExieaBt6SmbgNw/X7bV6BCq//OUxNMHAr7+9
AvuPEUj9XrNh9wwDMyU/I1/rE3BYLDlSxscE4TKVfdyIwKlVmkM8okxMNjiV
iZkQUObNczfZxsTYTlYj/SwBIQGlDf/JMUG/a0vKNyMwI5T+mqnGBKWXQn9g
TiD30vH7U2BiZI/VN5NLBLxbLebzDZgYDBng2nGZgFhO4A9tWya60SXx8SoB
fdehCf0oJurTak7/vk5gI+3rP+tSmajh1rVqciVAO7uG0Z7HROXFcsdodwJe
GmqjZs1MlKx/H6jltVSfduKSRB8TRfZqz3i8CQiLW/YP05nIr8pO7PEh8Ky4
woq+cgxvPdLL3AIJ5G2jvyGLjCHzs3TTkYdL8/Djmx2SGUO6QgJJ6BGBlUam
kT3Hx5AwEvUt5ymBG1RWfV3IGCKPh8ix/yMQdmKDWHXsGJ4k8GiWxhPIzNp3
5WPWGMLmHuiFJC3xFrqYU1o+hoemXCbmqQRGPO7PF7WNITDby0ruNYHfgyl/
FYyOwY/3l+PPTAKre1uvX5oZw/0rN2/XvSUQlFVRrSg8jrtlU4HPcwnw+uWI
/1YZx+2Nzs+u5hMIMU9wbDIYh8cNVqL6ewL8e55+jLYfh1uTbc7KYgJ/DLv+
sz9pHE7eVk0JFQS4tTSL3MVYuMw05h5uJOArsJv/mBoLlw63CGS1EFhFF78s
asyCeYz+Fq92AndKePNpjiyc+14jd7KTwPyTWZ78YBbOGOlqbu5Z4rXld5zT
zQkYvy7XGyct7b/bb8+i5EkYrNQ2KRpY2r+d80qnVhI49l7N6RyZQFLZwgOD
TV+gK5hzW4ZG4NH4wpepnC/ANcWgaQYB+cOLjQdHp6C1TSbp6SQBEadFTYrH
V+zzTMj5myCw8HIxOXD9N+zt3Fqu+nVpftWLgkpp36CsFN20OE0g9svivQ6d
aSgEivW1/iDwPwORA34=
       "]]},
     Annotation[#, "Charting`Private`Tag$830654#1"]& ]}, 
   InsetBox["\<\"\\!\\(\\(\[ScriptCapitalF]\\_1\\%a\\)\\) \[LongRightArrow]\"\
\>", {0.35146637746397613, 0.9}, {1, 0}], 
   InsetBox["\<\"\\!\\(\\(\[ScriptCapitalF]\\_4\\%a\\)\\) \[LongRightArrow]\"\
\>", {0.45170558143867223, 0.82}, {1, 0}], 
   InsetBox["\<\" \[LongLeftArrow] \\!\\(\\(\[ScriptCapitalF]\\_10\\%a\\) \\)\
\"\>", {0.4952517439552378, 0.8}, {-1, 0}], 
   InsetBox["\<\" \[LongLeftArrow] \\!\\(\\(\[ScriptCapitalF]\\_40\\%a\\) \\) \
\[TildeTilde] \\!\\(\\(\[ScriptCapitalF]\\_\[Infinity]\\%a\\)\\) \"\>", \
{0.373040478990142, 0.4}, {-1, 0}]},
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\[ScriptA]\"", TraditionalForm], 
    FormBox["\"\[ScriptCapitalF]\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 14},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{612., 378.2368011149356},
  Method->{"ScalingFunctions" -> None},
  PlotRange->{{0., 1.373316828355868}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.698257848507408*^9, 
  3.7397802325686626`*^9},ExpressionUUID->"8a46b01f-2174-457f-8b74-\
624a275b46f7"],

Cell[BoxData["\<\"Exporting:../../../../Figures/SimCDFsConverge\"\>"], "Print",
 CellChangeTimes->{3.698257848507408*^9, 
  3.7397802326537457`*^9},ExpressionUUID->"755846e4-0bd0-4e98-9a26-\
bcc572f13e19"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "SimRevolution.m"}], ";"}]], "Code",ExpressionUUID->"27080653-8a99-4d04-9ac4-a9ecebd2bd8f"],

Cell[BoxData["\<\"Running SimRevolution.m\"\>"], "Print",
 CellChangeTimes->{3.698257849968792*^9, 
  3.739780233705887*^9},ExpressionUUID->"22479068-bd71-438a-9775-\
d2fd413962e9"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{
  3.7397803036933937`*^9},ExpressionUUID->"a389a423-6985-43ad-ac92-\
3abb5b8add8e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "SimRevolutionPlot.m"}], ";"}]], "Code"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Running SimRevolutionPlot.m\"\>"], "Print",
 CellChangeTimes->{3.698258168244617*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {GrayLevel[0], PointSize[0.011000000000000001`], AbsoluteThickness[1.6], 
      
      StyleBox[PointBox[CompressedData["
1:eJw90AtIU1EcBvBhEa0wkkKtxdrWS2TUUlfZzH1zL1+LNGhl2sNlL2FLyFw2
1zVaxigWJThFhUAyjXJjUuB6TCMoo0g0S9OCEopIcJFjTXoY7fwvXC6/+53v
3PO/4lJLYVkMj8fLmL3/Pf9fU8rKpnX3eeGgMvoCp6RjoufzmOfj0oZIh+bJ
VNSLYbJ0PhxtZ16KhISRvdpG5kSEfI3qchfzCtzNLuiZ42QWYeGt0k/N55kl
eCq9ajTXMq9GZUieouKY1+KL74dv2s6cBHOstcRZw5wM7+/yC4lkKd4Z3nba
bczrkfrSz79OlmHMmOCZS94I8eUZu4ucgiF+dYmxmjkV1ozaZz5yGu7skQm/
kuXwLxnSLKL+Jpyw9N5cc4Z5M4aPxc7kUb4F1oBWH6A8HaIm4f4g7bcVfwan
l18kK9BrswWu0foM1Os6BuXkbRivmr4dR86E+6fgyD7qK1G7WyBWUA64lzW0
ek5HzQE5/fyD32i9CqPuorgrzJwKv6SyyCPqZ0Fc2DrQR/0sDN3bqXNQrsaA
6GyQ/genhregTZtO82sQef+gu6GO5Rockrz+UFTFci0sZTFhs5XlWojrTROP
mXk6eORJnV30fR0Eh8c1Ncw8Pbp7Tk4q6Px6pHk6JHqaLxvq9jfCfupnoyXT
cSBE/RwcTxv+rqR+DorjHeE2mi8XN+zcxEpmLhf+uo+uBTRfHiq6LSNu6udB
7u3ThGn/fBSf41YdpX4+Psend3npfAZYJyte7KC+Aa9akneZKN8OhdxZ0TXb
/wsYFSLG
        "]],
       FontSize->14]}, {}}, {}, {}, {{}, {}}}, 
   LineBox[{{0, 1.03}, {60, 1.03}}], 
   InsetBox["\<\"Revolution \[LowerRightArrow]\"\>", {40, 1.035}, 
    ImageScaled[{1, 0}]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"Time\"", TraditionalForm], 
    FormBox["\"\\!\\(C\\_\\(t + 1\\)/C\\_t\\)\"", TraditionalForm]},
  AxesOrigin->{0, 1},
  BaseStyle->{FontSize -> 14},
  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]],
  ImagePadding->All,
  ImageSize->{468., 289.23990673495075`},
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 60.}, {1., 1.16}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, {{1., 
      FormBox["\"1.00\"", TraditionalForm]}, {1.03, 
      FormBox["\"\[CapitalGamma]\"", TraditionalForm]}, {1.05, 
      FormBox["\"1.05\"", TraditionalForm]}, {1.1, 
      FormBox["\"1.10\"", TraditionalForm]}, {1.15, 
      FormBox["\"1.15\"", TraditionalForm]}}}]], "Print",
 CellChangeTimes->{3.6982581683391743`*^9}],

Cell[BoxData["\<\"Exporting:../../../../Figures/SimRevolution\"\>"], "Print",
 CellChangeTimes->{3.698258168350223*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "doApndxLiqConstr.m"}], ";"}]], "Code"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"{R,\[Beta],\[CapitalGamma],\[Rho]}=\"\>", "\[InvisibleSpace]", 
   
   RowBox[{"{", 
    RowBox[{"1.02`", ",", "0.9803921568627451`", ",", "0.98`", ",", "2"}], 
    "}"}]}],
  SequenceForm[
  "{R,\[Beta],\[CapitalGamma],\[Rho]}=", {1.02, 0.9803921568627451, 0.98, 2}],
  
  Editable->False]], "Print",
 CellChangeTimes->{3.698258170103285*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"PF-GIC fails (\[CapitalGamma] < \[CapitalThorn]):\"\>", 
   "\[InvisibleSpace]", "True"}],
  SequenceForm["PF-GIC fails (\[CapitalGamma] < \[CapitalThorn]):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258170108926*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"{\[CapitalGamma] , \
\[CapitalThorn]=(R\\!\\(\\*SuperscriptBox[\\()\\), \\(1/\[Rho]\\)]\\) \
\\!\\(\\*SuperscriptBox[\\(\[Beta]\\), \\(1/\[Rho]\\)]\\) , (R)}=\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0.98`", ",", "1.`", ",", "1.02`"}], "}"}]}],
  SequenceForm[
  "{\[CapitalGamma] , \[CapitalThorn]=(R\!\(\*SuperscriptBox[\()\), \
\(1/\[Rho]\)]\) \!\(\*SuperscriptBox[\(\[Beta]\), \(1/\[Rho]\)]\) , (R)}=", {
   0.98, 1., 1.02}],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258170114811*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[CapitalGamma] <((R) \[Beta]\\!\\(\\*SuperscriptBox[\\()\\), \
\\(\\(1/\[Rho]\\)\\(\\\\ \\)\\)]\\)< R:\"\>", "\[InvisibleSpace]", "True"}],
  SequenceForm[
  "\[CapitalGamma] <((R) \[Beta]\!\(\*SuperscriptBox[\()\), \
\(\(1/\[Rho]\)\(\\ \)\)]\)< R:", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258170130828*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"RIC holds (\[CapitalThorn] < R):\"\>", "\[InvisibleSpace]", 
   "True"}],
  SequenceForm["RIC holds (\[CapitalThorn] < R):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.6982581701371193`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" \[Implies] FHWC holds (\[CapitalGamma] < R):\"\>", 
   "\[InvisibleSpace]", "True"}],
  SequenceForm[" \[Implies] FHWC holds (\[CapitalGamma] < R):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258170143346*^9}],

Cell[BoxData[
 GraphicsBox[{{{{{}, {}, 
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwV0ns0lHkYB/Axatkskdoa1+RSuhfNVqpvxVaL2lzKtsblCMusEinpbEUZ
K5R0pBLRhZQyCmWZbsyyKlmNVhe3JsdieN+fche/ffeP5zzn889zvs95HjO/
UNcAPo/H28bV/90xoLP+SVfAOuW9IO29+xhMsjfY1ypwQLxV1/PbnG2yLmQU
CdyxKD04QcXZqbbxXqbAH1ExYo3gMAYe/kMPzwoioLs9RM0/nEHzkt/tTwli
sa43dGBXBIPsGT/GJQhScXFuZPP3hxjEaBbNPSm4DpcMyR3jaAY/7boiJX3F
qM0M0zdNYaBFY0SbTR7jfL/7GM1mYOnCdFYmyuGQFGmVUsgg8uUqXOivAbUL
nhnxlMHMYr0WNbU6aGxwTRDWM7ivtH9Rt+YVjLynVDoqGVSIMw139TRghkwN
Uz8zGLBaO/XOnkZ4hpI1RXwW/JF8XUPLd5CuLuDd1GchpL733QqasN1z96aj
5ixexNq+rJrfigaZR526DQtRcsXAPFEr+OXtpittWZieUY3cZNoQKDQ0eW/P
QjXU2vJ6qRKbJv/DpLixuN5d/kzn9EfY9PhI0v1Z6BjfYNvb28Gfbu3jdoBF
UnBJYLZFB2andJWpYlkMrs9vDzr2L5ysoppen2MRsVxe/G1lJ+S6vOisHBat
BfLEerNuOOrv7Cq7z2JM3HDJ+rAKRTtV5+KqWSzYoDERWN4DMRspX9bIYvNV
s1/uzmSwOFtRuriTRaSxz5wPIhbrc62WaA2zWNizQ6txK0H6QVH/c3UC/alE
Uz5KYGSlbWv3DcGkx5ek5hl9cIj+w9ZgOsGvtuVvv3b6hPDArbOuGhHk/+CX
/WjwE/R7o435lgQDKgPdjrTP+Nmk8GP9QoISt83qqQ79yHtfleS4guDYFklW
cUc/MuzfDi5fS2DW7PjmmmQAfOfE458dCFZ/F5sqWD6I0DaLPhGXS2RSN6Km
GMQJ07LZwh3c/GenlPtihpDZLbQp9SK4MMk7wtViGN6+0q9uBXD5W0qu8uXD
SDlYPbZ/D8HkIzHuq8JG8HxWtaLjAAHvprdUOW0U+QEVITVHCMLTpaemVYzi
7LqcTvc4gocL4jX19o6h+8HcuNLTBHqO4QuP63xB9/uc9sQ0gqZFfyuiZF9A
ErWsNLMICi/Dot17HJkdIfP6cwm8pEI944lxlH/Y41xaQBAtuRLTdGsCbUE7
3SwfENzpNL6k40xxO321If8xQXymxLdlG0VTyz2hJWd/117LAhcKLfMFrls4
G8lkhVs9KMT5hidPc05I9qxK8qOwln0ZNHhCECS82DcliiKn+dErm6cEc2Kn
b9HIpbg82z4hoJJgYuVv2o15FLX+5TnxnN/2fnyVm08xnmfzNJ/zGY8ir013
KUTLLIb7ONP5rvslMgqDjZMDj8q5feuTL6srKNJ2V284/ydBadzQbsVriqob
8CrjnGrnY33tDeXu/uBQM2ennMXFG1sodkTkSc2rCMoO1dbEdFHoS04aF3JO
W7Qi2aWHYmON2ioF5zBlhrsZSxGufdh9kPM855DWJ/0U9efEiWuquf9Ta7h+
ZoiC906Z68O5rcRO7DtKsdTEs+I4Z5n42pKl4xS+formHM7nTbUGKKVIznUa
+YvzfzUOijI=
        "]]}, 
      {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJxFxXswE3AcAPCNdZRrjMqNxk2UZ5ykpFJxkVdndHLN44S0XsiddHVat0ke
zXU7Ke9HSjtGxnWZOHbuOI8YN7rZNDuNzavMGtmqP3x/f3zuQ068R0k2wGAw
4f/8PzhZMdazkHx2Z5y/VZqUGOC387Gq0vI2YhQcMiz6WEFMgqOTNF0viZnw
jPsz/yIiA67efzk3n8iG6cZtR54T6+GrMTXc1TUebKKnUwNtumGHiGVFX4EA
zhrx8StdH4AteQQJFjsKd8j8h0ZPj8O9tArrGNUErD58xrTpjgg20HLMrB2+
wd76hI7IZjE8xPAa6XeWwlRWr9qRirYtVmobl2dhpUYqmfSQwfWLnYP4F3Mw
nvRuRS6Xw4U321Oq7efhjXMceWrODzjTU8A70KeApc2CgjHyIrxFmyhzeqiE
Xc4b6VI6VXBgLflGq+UynEWKt/tOXYFdVVdMRGGrsIXpqrFgE43rLuMeKl+D
b3l1Tu8O+QlzLiVWf9lAq5VWZvMlv+D2yEBDdsA6nBPErOLNo8kzwVN1TDV8
6gSDTfTcgKk2o1qsEK0eLJKl0TVwKS4uk2L/G7aQtNcaCNC7HtOjfNK1MKYx
jisz34Qz3nCLzHvRXS55xoS7WzAhOMP1Kf4PLHb7Kszmo1sq/ezlcdtwLNeb
QNKhnzBr6OIPOrhJQSrDh+rhvApmgiQcnURZcmiOQB/k81vCotH5rGv9hYno
VO/Xa3uy0XaMfUFGDWjdyUd7Re/R00tz4w0cdHF0W+zFVrTemXKfyUeLx1iV
hkL0p1zNdeEkmu0b71Q3hQ55e5R3QYL+/GB4gL6ALnE7zopQodNl5VHkFbRj
6G1pzzoah52oL9agZ9t9aQmbaD6tzt1jG/3K1kSt16P/AgtOjGw=
        "]]}, 
      {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwt0nsw1XkYBnCiIutea45WcukmVu6s6lGEKNaRYghjKVFbSRfNNvYUJSnW
mpLrKWe7UJTbioNyqY1KKJdNv9933VJU7ifEd387s3+888znn2feeefVCTrI
D5knJSXlxs1/6RIy0PzwfchGB3FadVUVA1l7zUMszwHlJ4jJCGez7NSMIt4O
rLNYKdKrZuD6vL0wkxeMpfn34+I47wqWVCbzIjGW/ZcH/yGDt8bn7C/yYpBz
ZrKn7xED4RL3s/G8FEi78uUU6xkI5IpWneeJUNUp7+HbyMDb51rB8Egx4jrd
Ixd2MlCgAj+nZdWYOtkhauxjsMLj00DthTpktUY/cB9lcPyFDVLHnyJZaS6g
hzLQKFZlpKWbYDRYpZ74DYvSbvtnTetboJG708dFk0VNWOZSn6FXsFyueKZ+
FYuJlRuU7x5ox4zVgnJvcxbzpvJUlq74G8qmbadnNrGwpIGlnvldaHg+4F3q
xuJZjPmLxwYsypZrqpv4svBLrJlY7cfC5//UThqcuv2JQOKlG1ARymJQwjKv
13XjjeGBst1HWYg+VDQoXeqBSv+lHOUzLJS0bn7u7e3FiZ1NEYIkFgn7SvYI
9ftxLpTvrpDJYtIurzc0+h3e+d2pFOWyiDStK/62dgBDo842O/9kwebXXWjW
+QC7cLGjRj2LmbBX6WtODuJpmpt1aguLtZsWzu2pGIIkXM/KhGXhdF1n732N
Tzim3fSkc4jFca0A3X/8PiMjsjIkbYqF4ZCXQvv2YZy06zuiKEOgrjwsVzc9
jCar9lOv5Qlkq9ML9DJGMBkddmmNCkG4eUWnvOsoHG3e752vQZC3NUhYNTkK
Y7fjZo+0CCYGNVX6L49hsOjGfHl9ghJPJ5kUh3G8jH8k7DAgiHaOzS7uH0dc
4anN5iYEOm9dOnJiJ9BpsbXtoBXBD1YxKTzTSXgaSJmZbSTwW9Y0Jd06CeFB
78unHbj+hovdhwQSLF6ZUePjSpAq6x/J1/8CXyPBhNiD258puT6v7gs2JB3V
lPImmH9KsMPm8BScgr3kGv0JpG77F3SrTUPvfNtXnRCCiLSCi2o101itbV8u
tZ+gcm2cnOrPM3iiUr2vOoJA1SXC8LTSV1h7dmkviiLoMnrZGiX+ipYFfVld
0QT3sqDf6z8LKCTq254l2F1gqao1N4st4c4ZUQkEv8ZeE3TlziFy/ccu/E5w
d0ArXWkbxTF/M/3kqwRxmbGBjBtFjK+efz7nYP7HFfkeFL95q6c2cP5OLL63
fRfFHf6YgkwaQXyi7+OEIIoex6KxI5xDLa+OLIqi+NHYrNYrnUA3ZrHzwhsU
3PmCeJkEc9a/KLbforCe1c2w4Nz5saflRh7Flmm1Ng/OSbuKdjvepwgcH90a
z5ka8I/EiimuDBSazHDuak7MkmmlkG02lX6bRVB2VvJT62sK1Re6tlOcU2wD
1uR0UGg3qh1dkk3g+sf3xZsZCtv60YHtnMtPPH8qeE9x+EHhyyrOl40sEj2G
KKJLry96w/lwd8YOnc8UCUXJDhLOq7ftZx+OU9y6G1FmLOT+T/qVKElCUZIb
NOrKmZTYhgVOU9Te5BuGchaH5Rivm6VoFm3eE8P5irbCBKUUzDVToZDzvwo4
gkk=
        "]]}, 
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQ7ZX64uKBl6l2MJrFWargvqSLPYw2nj9jzmbJEDjt
ffb6prmSKXA6POX73kmSJXD6rn67c69kC5xeIOrf1iU5BU43cmxW75RcAqcj
Iheu//BxC5zm/t8Y4y63H06rBr57cbj7CJwuP2dpP+PLSTgtvkXwHiPjeTi9
7ZHzmfM2l+D0oay50pFvrsDpr2q2/Gtzr8Nppp+rBaRVb8Fps/8J24LX3YHT
Pr4Hmlx3IOjk2fL+5ocQ9ATze8+lriHol/nRko/+Iug5D0JrCnzvwmnGQ15O
vW8QtITAKr76bwhaL47zdgHDPTgd9et4cYgIgt5i5LpU2gZBpy2251jVjaBr
Ps67Mnsqgp5s/29B73wEfeD2HsvCzQhaUsQq2+I2gjZImmmu9RRBu234wSzz
HkEX+Wyf85/pPpw+02Jy7pgWgrbiP8000RRBr5iZaB7tgKDFVH5kq3oj6Bvf
81i3BSJoAPfdPO4=
        "]], LineBox[CompressedData["
1:eJwV0nk01lkYB3CSEpOksnSSLNOoSHkJafpKsmRpkNLJ1ltkqTHWRiejVzQG
xVRHsqUYJCFLmYipNJ3UhJTlzOu915KUV8q+xG/u/HHPcz7nPM89z7n3q8EP
cvZZICEh4cTO/1W0Xqk/w5dA5cB7Pw93gpcOzjsdIwgSFwXyipm3dwyEqAgI
vL/LcO9hLuRHF/QkEhjZvIhT8SBQGlolLE4lkPWfLXFk/iK5e8+uYoLKosOS
NcyFm7KUA9oJZDavyb/syfrv8ewNewi6HO2bnjPHmjeenRcTlAedmeKYy4pm
w2wlKdzvCvee8GJ71OuIupQoygyzhi29CSw+xJQtsqBwM1trOnGEIHLzq8ZA
awo9d0e+Lp/Nh6q+a7anWBD1SyKfee18qWrGQYriOlHXK+Zpxa4Y/ZMUEhbX
YwqOsv4dxq5uaRQFNuteuvkQqKcMTt/6RDHpqulV40dQdyT6VvkohYvg14Eh
Zk/eikM1UxQlxeLgdf4EmW3bq18u6IaP1P3YOGYVtYSIYaVuvCmzK9oXQKBY
pDNqiG6UyYWP9wYSSDf4iOuTu+H/6FniN0EEg5NE9HZLD4S6J6s9wgnyPtY0
yl/shUL/xdxl5wjk1QqG+/r6EHmgKUSQQpDkX+Wbo92PeD/nfXJZBBPmt/v8
ot/jvXvxw7wigjCDhkqlJwMQj9iYHrhPQEoaEls0PsI8sNZK+SnBbMCbjA2n
B/E83dEk7TXBpl2L531rxJgK1DLeSgisb2ocv6v8CRHqTc862b+cUvPS7HYf
RkbYQ5/0aQJdsatcu8NnnDZ/F7pUimLFss8yDTOf0WTcHvV2CcXC+oxSrcwv
mIgOuLhBgSLQsKZzid0IrEw/HJdWprhty8+pmxiBvuMp3iM1ivHB1Qr9qaMQ
V+RLL9GmqHKxlrpiOYbmhEc5HRspom3irlf2jyG+PMrCcCuFRtfejty4cXQa
2bYFGVNsN469omowAZeNEjzeTpabtU3Tkq0TyAlyS42xZPc3Xuj5STCJlesz
Hx+yo0hb6BnmrD0Fdz3BeK0T219UdXNBwxS+TwlfLeFGIR0l2G8aPA3rY64y
LzxZTm55lvYozkDrt7avGj4UIemlFxQfz0BHffcDiRMUDzfFyyz/cRbPFOr9
60Molu8N0Y2R/woTF6G6bCSFUK+5NbL2K14vepctjGY5zoZ2n+ccIJesbXae
wqN023K1+TnsCbTJjEyiOBt3QyAsmkfYjiEhLlPcGVDLkLfnEOHJ0750jSI+
K85b5Mjh3GEtzxLmY85D35Y4cfjdbUVaI/Oa2toyh4Mcip1H5aTSKRKSD/+d
xOfQa1UxGsrst+3aF9lIDj/o8564ZlBoxq60WZzPgT0fXzWLYt7kzNL2Qg4m
c5qZRsydQ72v829z2DOj2ObEnHKwwsPqLgfvsRHbBGZuo3NoXC2HqwPlW2eZ
hS3J2VKtHBa2GEh2ZVNUn5882vqWg+IrTbNp5itmXhtyOziov1AMX3Wdwu6P
zZUWIg5mT0cGHJgf/PzPc8EHDsF/ljfXMafqGSU7iTlE37sp+y9zcE/mfo1h
DkkVlywnmXXsT5C/xjgU3gmp1s9h+ZN8k5cyyaGqiD9ix0yrzAK8Zzg8KXDW
9WOuDcjV3zLHoSXPwjeW+aq63DjHcRDdMMjJYf4PhwSbXQ==
        
        "]]}, {}}, {{}, {}, {}, {}, {}, {}}}, {}, {}}, 
   InsetBox["\<\"\[LowerLeftArrow] \\!\\(\\*OverscriptBox[\\(\[ScriptC]\\), \
\\(_\\)]\\)(\[ScriptM])\"\>", {0.2, 0.484313725490196}, 
    ImageScaled[{Rational[1, 2], 0}]], 
   InsetBox["\<\"\[ScriptC](\[ScriptM])=\[ScriptM]\[RightArrow]\"\>", {1.8, 1.8},
     ImageScaled[{1, Rational[1, 2]}]], 
   InsetBox["\<\"\\!\\(\\*SubscriptBox[\\(\[DoubleStruckCapitalE]\\), \
\\(t\\)]\\)[\[CapitalDelta] \\!\\(\\*SubscriptBox[\\(\[ScriptM]\\), \\(t + \
1\\)]\\)]=0 \[LowerRightArrow]\"\>", {0.8, 0.9902448700145461}, 
    ImageScaled[{1, 0}]], 
   InsetBox["\<\"\\!\\(\\*OverscriptBox[\\(\[ScriptC]\\), \\(\
\[EmptySmallCircle]\\)]\\)(\[ScriptM]) \[LowerRightArrow]\"\>", {1.6, 0.511764705882353},
     ImageScaled[{1, 0}]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\[ScriptM]\"", TraditionalForm], 
    FormBox["\"\[ScriptC]\"", TraditionalForm]},
  AxesOrigin->{0, 4.081632653061224*^-8},
  BaseStyle->{FontSize -> 14},
  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]],
  ImagePadding->All,
  ImageSize->{468., 289.23990673495075`},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.698258170182572*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"{R,\[Beta],\[CapitalGamma],\[Rho]}=\"\>", "\[InvisibleSpace]", 
   
   RowBox[{"{", 
    RowBox[{"1.04`", ",", "0.9803921568627451`", ",", "1.02`", ",", "2"}], 
    "}"}]}],
  SequenceForm[
  "{R,\[Beta],\[CapitalGamma],\[Rho]}=", {1.04, 0.9803921568627451, 1.02, 2}],
  
  Editable->False]], "Print",
 CellChangeTimes->{3.698258170193173*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"{\[CapitalThorn]=(R\\!\\(\\*SuperscriptBox[\\()\\), \
\\(1/\[Rho]\\)]\\) \\!\\(\\*SuperscriptBox[\\(\[Beta]\\), \\(1/\[Rho]\\)]\\) \
, \[CapitalGamma] , (R)}=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1.0097563285948026`", ",", "1.02`", ",", "1.04`"}], "}"}]}],
  SequenceForm[
  "{\[CapitalThorn]=(R\!\(\*SuperscriptBox[\()\), \(1/\[Rho]\)]\) \
\!\(\*SuperscriptBox[\(\[Beta]\), \(1/\[Rho]\)]\) , \[CapitalGamma] , (R)}=", \
{1.0097563285948026`, 1.02, 1.04}],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258170199828*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[CapitalThorn] < \[CapitalGamma] < R:\"\>", 
   "\[InvisibleSpace]", "True"}],
  SequenceForm["\[CapitalThorn] < \[CapitalGamma] < R:", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.6982581702066708`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"PF-GIC Holds (\[CapitalThorn] < \[CapitalGamma]):\"\>", 
   "\[InvisibleSpace]", "True"}],
  SequenceForm["PF-GIC Holds (\[CapitalThorn] < \[CapitalGamma]):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258170212935*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"RIC holds (\[CapitalThorn] < R):\"\>", "\[InvisibleSpace]", 
   "True"}],
  SequenceForm["RIC holds (\[CapitalThorn] < R):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258170219514*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"FHWC holds (\[CapitalGamma] < R):\"\>", "\[InvisibleSpace]", 
   "True"}],
  SequenceForm["FHWC holds (\[CapitalGamma] < R):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.6982581702260933`*^9}],

Cell[BoxData[
 GraphicsBox[{{{{{}, {}, 
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwV0Hs01HkYBnBkt4tMRDFKRWxKs5ySROuRcsmgQzZdhNwqKmrUdj1WzViV
SrvWkpQaKcmlXLZdLGlqSzHVKBSjNCGG75d1yVh++9s/3vOczz/veZ/XJCTa
N1xDTU3Nm53/0yO862X153DHakeDaOFMAs21RjFt3HUImi75I5f18qtpl4u5
fphojtGUsubXNd7L5IbB4WBtOlePwD9spPJnbixK805ICli3Wv209hxXiNuG
Cm6zPkHWrA0JZ7gp+GWgSMIzIIifUrzoNDcb4TkeRo1zCDZvuVZI+0vA99yX
MGBOoMXEB7jNq8K27JpjIVYE5j59XQ/PSuDe2jJdbEfwQ/0qpA0+xSG/zsA7
zgQGJbpydXUp6k6Y2k/zJChrX/tcuvoVIj55vbHeRFATmTlni7IB73jgWAQT
DH3z3Yz8vY04arFDKthNoDGapzPH/C227hD4JAoIbJngso0FLQjzLAvoP07w
XGhT/3hJG/iGVZMsEwjmJ/eM5va9h8D0fhQvmaBnpE3+2rodj+QfAoTpBNnd
5bWc8x+xuXmMky0m4BjfJAqFAn+XvAtIySdI2l0akWXWgWBn5fLmMoJhpzzF
rrhO2HN6n3VUE8Quk5TMftgFJM3rda8laCuQnH1p0g2hu5NU0EAwFtmQsfho
D3I+LfKKlhNYrpk8EVGuxICNk19VJ4HbdZOddw36EFfjPrepn/2XcZDphwCC
lRon97qMESxVfq/V6EURftEpf40Ghd4MOkWiopA62Wm6TKbQrMooXHi5HxvW
P7k6oEURZVPePJU/gL6YFxmauhR560Oy/hoewHhi+aeJWRRDPUY6Han/YIHK
MVZsRFG60W1SyrpBhJ6xD70znyLOXXS1pGMQFYL61CAzCpNWjyaxaAinvFwM
xywo7FcKU7jLhhHpaqNS8SgC5klH1WXD2JlWvuDGMnZ/7bn2mPgRCKeW3yxe
SZGmGRjra/YFZTJfwZ7VFJ0RdfaVMV+gfdj2otiR7SMvva4h+YJN5+uStNdQ
fHUi3m/V/lHM3lX9tZ4rhVpuYGH7TBWUl/iPajwoDlwqPDezRoV2pbfizQaK
SsvEKbr7xuBmtcJH5keh63Fg6UnOv6iuLdY4uoWihfdCdqTiX2wV3dYXBVIU
XYGZInAc09JXRdmHUmwvtNU1nhjHosy8GU07KX4UXYtvuT2B8Opf9d/uocjv
Ms7geDL4fbVhYMJ+isRMUbDcm4Fb/gOHDNZhvr3mBT4MGo2juEWs51ZUFHn5
MxieqGxoZn3mwrbHSSEMbB6E8nkHKHbZpvdPO8LgnkuhXQNrU6G+++QcBne8
XfVMYykm7I5rN95i4FBFqC3r5t6Pr3LyGDyzSq/ns072L97uepdBt47y9EHW
zBJfgaiCwWLZRbWnrFteXrgyScYgx7+1N/ogxf2EkVDZawYrniQ8E7JOcQha
LG5i8MjOOjedNf/GtyXOcgYK7qmwh6z/PFz3NP4zg4UtFu9mH6JI5a244KNk
7/V8dd+S9f72y34mhIFz5bFUJ9YWnnvaqgcZ7LhS7xPJWlO9ITt5hEE/57BV
HOv3pQ6RwSoG8XEm2imsKyLFVtbjDHRobfct1r/N1xpiGAZZwbFPKln/Bx7y
g+s=
        "]]}, 
      {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJxFxW0w03EcAPCNdZRrGpX707iJylOcpFCpuMhTZ3RyeTohrSfkTro6rdsk
D3HdTsrzQ0o7RjbXZeLYueM8xLjRsWl2jM1TmTWyVS98fy8+96HE36cm6uFw
uJB//h+QKB/pWkg8tzPBxzxFgvl673yisqSsFQuHAwdFn8qxBDgiQd3xCkuH
p52f+xRgDLjqwJXsXIwF0w1bj77A6uBrkdWc1TUubKSjR/lZdsK2ocvynjwB
nDHk4V2y3gebcUliPH4YbpP6DAyfGYW7aeUWkcoxWHXkrHHjXRGsp2Hvs7D9
Drvr4trCmqbgAYbbUK+9BLYqUmgalmdghVoiHneRwnWL7f3El7Mwkfx+RSaT
wfm3eElVNnPwxnm2LDlrHk53FXAP9shhSZMgb4SyCG/RxkrtHilghwsG2qR2
JexXQ7nZYrYMZ5BjrX9ErcCOyqtGouBV2NR41VCwiSZ0lnIOl63Bt93aJ3cH
/oTZl+Orvm6gVQrzfXPFv2BemJ8+y3cdzvJnVnLn0JTpgIlapgr2PMVgYa4b
cJTlsAYvRKv6C6QpdDVcQohJp9r8hueTBj07UtCmYl6NngC96wk93CNVA+Ma
YjhSk0047S2nwKQb3eGQY0i6twWTAtIcnxH/wFNO34SZfHRzhbeNLGYbjua4
k8ha9FNmNX3qoxZulJNLiUE6OKecGScOQSdQl2ybQtGH+Pzm4Ah0buH13vx4
dLL7m7U9mWhrxn5/g3q09vTjvaIP6Mml2dF6NrooojX6UgtaZ099wOSjp0YK
K/SF6M/Z6hvCcTTLK9audgId+O4496IY/eXhYB99AV3sdLIwVIlOlZaFU1bQ
x4LuSLrW0QT8WF2RGj3D86LFbaL5tFpnl230aysjlU6H/gsB2I1U
        "]]}, 
      {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwt0Hs0lHkcBnAyu1EnRRdNSIpC2jpI0dazxUZUIqpZtzmS0I04RTfNrpGK
bU7JSkRhZG1MZbohqslGqQyOy2Eml2WKjPv7GzLvvnvO/vE9z/n885zzfE2D
jnkdmKahobGTuf/S7YCirvLzgU0dHKlPzTMKLKdFEXK2MzgaJjPaGdtmpWU8
ZHvjo/DQcyVj99qmB5nsYFSMsFbML6WwN5gqv8qORmbyOhLIuH31Badkdjw4
LzLSxxhnz/dIuMROQZ3FQfmScgo87YcrLrJzUUlNhp6soLCPc7t4cKgE1+wt
V12UUJhJ8/xcFlfAOG/ZkHM1BXPPAcWryxIYhU0pFbUUTr53QNpoNea8b80a
klIwKNGTaWp+QFkQ3yO3icKjTqd3H36Uwi/NVlTaRuFleKYhp78BUcteuJd2
UBhbvnH2vSNNgMywN7iHwjRV4RxD81ZoOp6yjeqjYE9zH+0uakPs67y4lYMU
3sXbva+ykiNUKPr+3SgFE0GfqmDgE9wsKjbVqSj0UXJZ45pO/NOSfuK8mkLu
l9Ia3d+7EG19KjBFi0DXOF/Z3d2NmIb1vwm0CZLCxCHZZj2w/UsitJ9FMP5T
YXdoXC+6zbxPb9YniLaRlCx4pWD+LPIYX0AgL5JcrjP9AuECvcbZRgST4Q03
LU/1IUa867qeKcHKzdPVIaX90Iz39yk3J3C5Y3rwvsEAzo0cqaq1IjhpHLi0
w0+JB1fd1yWuJrDu95nZtGMQvhe0u6zsCObOHtSWTAxi0qgaNg4ErIqbxcsy
hrCrc09G10aCQ3alLTruw0h3VRSothAUbgvKfj4+jF9YnGHKhWCsb9GcntQR
SJWpjtnbCcS7XbRSnEex6Uyz7T1PgjhXflZJzyi463utg/cQmLa7Nefwx6Da
1sjV8iVwXBefwrYZR8K3qp+ncwn8Fn9QadaPo0bGtxIHM/01yZ0RPApaQa6V
f4cRpLECor3MCEbmNfvEHyXoDal1LI8gUPyfc2XiO9MkBBxjl+WWUQTfneV5
O0Sq8KDqab5NDIFGQUBxp/4EJFkqi54zBMfTi5P1X06ghr3RV80jKF+ZqK13
dBJbPwe+UScQ6Lkdt/5V9xtiFR5rCy4TtK36WB9b9g3ZiU67nwgIRLdg1h0w
hXP7WJGR1wn8i+31jNVTkJ7NrdZPJzjPv81r+1MNQ2fX+oVZBPcUxjd1t9Mw
dHza9iaHIDGTz5XtpKE/uuRtO+Ngr6/mRZ40dIoSnw4zNiorE+3YS4My3Zdq
lEtw6YpvVVIQjXodyiOCcaj9jaEZsTSSWuxeGeQRLI2f5zpdSEMdIyoIERKo
15+Z1XSXxpjNwrTTjFu+dkmFhTT6++MSBIwFex/6b71Po5Xrsf8ZY9rKK4pf
RuOx64CRbj6zt+7KLa16GscWWgvEjJ8kUPvrG2kclF47V8M4ZUOgZU4zjYCk
ycNyxu55P5RskdFw13i7TecuwbOY2mreZxoWijAtf8apq9Ze8eynYXKnbiiS
cWRnhrepkoaBn8OnBMYW2w/LK0dpsD5ql4sYszQbcgUUjcmLEYWvGX8Sbwjn
TtAYcWq+0cq4LDxn9ZopGl+mkKhk/IfJzDGaptHxOP8Eq4DgX3FLmo4=
        "]]}, 
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJxFxWlIkwEYAODNRhqCM7Lk07RWamqRR9YyvGLS5pWoWWrLxJxXWUKG4o9k
5lF5IGuGpKaVELnUalMWwxluaIlHXizDubThNZnz2KYztPrh+/54eGjJ96I5
ZiQSifXP/0M588NfFjgBu1MYdtkqIjhw9zMNNXVC4gocNqD4VE+kwNdSjJ08
IgdWepQyKogiuPFgZMlTgg9zLYQnnhBNcFz8qzbdigi23OGymY5dsHOUdl5W
JodzB30Da9a/wbai/VNk8hDcMcPoH/Ibgbsz6+3jl8ZgvYs/tSVLAZttCqzt
nX/C53aSOmJaJ+H+Ip/BHncVfKRKs/lO+wvWGFVT454zcNOipM+q8jds5fB2
Wa1Ww+UZ7amNTrOwIUigTi+Yg3O85aJDsnlY1SovG6YtwluZY7Vu+Rr45EXz
7VTJEsx8TUv7aKuFcx1uHptmL8OnlmItFRE6+ABVZyE34ZSu2rbjdSvwbR/J
xL6wVVgQktwoNeB6jZ317PM1uD2GuYcfvA4XsIobRLM4TRn6402xHr5AL+IT
3gaY7Ti0SR7F9X0VM9lcIzxpOZ7+5xHeHX54ubQErxps3npZhruP9NoMVOOJ
E2SmWzPeM/dAMD2Cv3ft9Moax59lUMQbCjxJw5NTlbhJ26b0n8M9DAvUF1t4
DSUxJ9ppA96+ZXt22AVPkX3XR7rhnoWM3IjT+Ncd13zWedxoWisICMfZCS1B
nZfx7s+pZL8ovDJvotD3Kr6u4DHEcXgCPZxCv467GKTFPkl4eWzeJWEyviry
Mvfm4HE2mt4Pabj0ftNjj0zcafRGSOsdfC9X/PDoXfwvpvxYrA==
        "]], 
       LineBox[CompressedData["
1:eJwV0WlIE2AYB/DlQd6wFWbp0EXGTK2QlEzkgbS0WtlMcmEeaImpqJsZW6m1
yjFr6aLyPsp5LZsujzyYEaXmlEJdh4qpmaTGVBRtr87t7e3Dw5/fl+fhz8OI
TQ29akKhUDzI/M9+1szfS+kIWmgBiqE0BHuVWzZMAYIE6pNZPfFSSmqeazaC
V7n21gwughxt2GMXMQKvm3ROEnHrnHOhfRkCiHBfxcQ7JtuqTHoQcOhB+93I
3jybrKz2PgSGORbLn9jKL5CTrEYgaw7lsYlNikZsv30md4Ki3gqIV9nLfPkY
gnu8jIsDxEO9zJDzywiaPspESdcRSBSl+vI9G2DOo8wpMhCYZwnDfLkb0NzX
WefFR0CRRzXN0Dahp3KD+TsTAa+k6RHt/Saod/tHGIUIut3FFtQUPZxYiO43
ihBQT/M87tptAX8+xFv+EMGE55BGoNqC5+KACx1SBMoK2DcbZYBsjhmX+wxB
ZJMPlW40wEhWtZpWguBOzgvhxEsjOAYGaxwqESjm6aV2LAyOxzon+mUIxOU5
MZPnMNDWXAZ/EF8JXXRtZGOwbBR3rhI7qVTKs+EYdAxOgVM1ggf5EX2SWAwa
S11IGnGCT/GKlQCDZOzIh1015D/3dwZvr8Vg5Cvl8bUIjEczbb/XY1j3cii6
RTy2+GuktgGDVntbJCWWhrdEnnyNYTwmJK6LGB8ITc9RYXgTvORkV0f6DudX
mGowpDp4SNuIO0S6OM1XDPEjT7IHiJ/6RbvJRjFESvTJU8Rnag62Hp/EwKIM
nrKsR9DF/6QWLmBgzl8zjSQu8PTOZ2sxOFcNr3CJuTNlYYxlDPaXfadFxExW
8tS7NQxmQxbdSmKzbV+qpToM+ty0hl7i6Ta/xJhNDKsBo8XjxKpE2aHDBgx/
DCBeJi50tl7HGMPP9robZnIE/wAqLH7z
        
        "]]}, {}}, {{}, {}, {}, {}, {}, {}}}, {}, {}}, 
   InsetBox["\<\"\[LowerLeftArrow] \\!\\(\\*OverscriptBox[\\(\[ScriptC]\\), \
\\(_\\)]\\)(\[ScriptM])\"\>", {0.2, 1.4889192076404891}, 
    ImageScaled[{Rational[1, 2], 0}]], 
   InsetBox["\<\"\[ScriptC](\[ScriptM])=\[ScriptM]\[RightArrow]\"\>", {1.8, 1.8},
     ImageScaled[{1, Rational[1, 2]}]], 
   InsetBox["\<\"\\!\\(\\*SubscriptBox[\\(\[DoubleStruckCapitalE]\\), \
\\(t\\)]\\)[\[CapitalDelta] \\!\\(\\*SubscriptBox[\\(\[ScriptM]\\), \\(t + \
1\\)]\\)]=0 \[LowerRightArrow]\"\>", {0.8, 0.9942020827738753}, 
    ImageScaled[{1, 0}]], 
   InsetBox["\<\"\\!\\(\\*OverscriptBox[\\(\[ScriptC]\\), \\(\
\[EmptySmallCircle]\\)]\\)(\[ScriptM]) \[LowerRightArrow]\"\>", {1.9, 1.5383559782066774},
     ImageScaled[{1, 0}]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\[ScriptM]\"", TraditionalForm], 
    FormBox["\"\[ScriptC]\"", TraditionalForm]},
  AxesOrigin->{0, 4.081632653061224*^-8},
  BaseStyle->{FontSize -> 14},
  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]],
  ImagePadding->All,
  ImageSize->{468., 289.23990673495075`},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.698258170261929*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"{R,\[Beta],\[CapitalGamma],\[Rho]}=\"\>", "\[InvisibleSpace]", 
   
   RowBox[{"{", 
    RowBox[{"1.01`", ",", "0.97`", ",", "1.02`", ",", "2"}], "}"}]}],
  SequenceForm["{R,\[Beta],\[CapitalGamma],\[Rho]}=", {1.01, 0.97, 1.02, 2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258170270811*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[CapitalThorn]=(R\\!\\(\\*SuperscriptBox[\\()\\), \\(1/\[Rho]\
\\)]\\) \\!\\(\\*SuperscriptBox[\\(\[Beta]\\), \\(1/\[Rho]\\)]\\)=\"\>", 
   "\[InvisibleSpace]", "0.9897979591815694`"}],
  SequenceForm[
  "\[CapitalThorn]=(R\!\(\*SuperscriptBox[\()\), \(1/\[Rho]\)]\) \
\!\(\*SuperscriptBox[\(\[Beta]\), \(1/\[Rho]\)]\)=", 0.9897979591815694],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258170277339*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"PF-GIC holds (\[CapitalThorn] < \[CapitalGamma]):\"\>", 
   "\[InvisibleSpace]", "True"}],
  SequenceForm["PF-GIC holds (\[CapitalThorn] < \[CapitalGamma]):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.6982581702839613`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"RIC holds (\[CapitalThorn] < R):\"\>", "\[InvisibleSpace]", 
   "True"}],
  SequenceForm["RIC holds (\[CapitalThorn] < R):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258170290114*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"FHWC fails (R < \[CapitalGamma]):\"\>", "\[InvisibleSpace]", 
   "True"}],
  SequenceForm["FHWC fails (R < \[CapitalGamma]):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258170296278*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"PF-FVAC holds \[CapitalThorn]/\[CapitalGamma] < (R/\
\[CapitalGamma]\\!\\(\\*SuperscriptBox[\\()\\), \\(1/\[Rho]\\)]\\):\"\>", 
   "\[InvisibleSpace]", "True"}],
  SequenceForm[
  "PF-FVAC holds \[CapitalThorn]/\[CapitalGamma] < \
(R/\[CapitalGamma]\!\(\*SuperscriptBox[\()\), \(1/\[Rho]\)]\):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258170302576*^9}]
}, Open  ]],

Cell[BoxData[
 TemplateBox[{
  "FindRoot","srect",
   "\"Value \\!\\(\\*RowBox[{\\\"Max\\\", \\\"[\\\", RowBox[{\\\"1.`\\\", \
\\\",\\\", RowBox[{\\\"If\\\", \\\"[\\\", \
RowBox[{RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"100.99999999999991`\\\"}], \
\\\"+\\\", \\\"\[ScriptB]\\\"}], \\\"\[LessEqual]\\\", \\\"0.`\\\"}], \\\",\\\
\", \\\"1.`\\\", \\\",\\\", \
FractionBox[RowBox[{RowBox[{\\\"3.9703872112839913`\\\", \\\"\[VeryThinSpace]\
\\\"}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"Log\\\", \\\"[\
\\\", RowBox[{RowBox[{\\\"-\\\", \\\"100.99999999999991`\\\"}], \\\"+\\\", \\\
\"\[ScriptB]\\\"}], \\\"]\\\"}]}]}], RowBox[{\\\"Log\\\", \\\"[\\\", \\\"\
\[ScriptCapitalR]\\\", \\\"]\\\"}]]}], \\\"]\\\"}]}], \\\"]\\\"}]\\) in \
search specification \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"nSeek\\\", \\\",\
\\\", RowBox[{\\\"Max\\\", \\\"[\\\", RowBox[{\\\"1\\\", \\\",\\\", \
RowBox[{\\\"\[ScriptN]Approx\\\", \\\"[\\\", \\\"\[ScriptB]\\\", \
\\\"]\\\"}]}], \\\"]\\\"}]}], \\\"}\\\"}]\\) is not a number or array of \
numbers.\"",2,41,5,20869063241767631043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.698258170355077*^9},ExpressionUUID->"bcf03879-add3-43ba-b689-\
8e4318acab01"],

Cell[BoxData[
 TemplateBox[{
  "ReplaceAll","reps",
   "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"FindRoot\\\", \\\"[\\\", \
RowBox[{RowBox[{RowBox[{\\\"b\[Sharp]\\\", \\\"[\\\", \\\"nSeek\\\", \
\\\"]\\\"}], \\\"\[Equal]\\\", \\\"\[ScriptB]\\\"}], \\\",\\\", RowBox[{\\\"{\
\\\", RowBox[{\\\"nSeek\\\", \\\",\\\", RowBox[{\\\"Max\\\", \\\"[\\\", \
RowBox[{\\\"1\\\", \\\",\\\", RowBox[{\\\"\[ScriptN]Approx\\\", \\\"[\\\", \\\
\"\[ScriptB]\\\", \\\"]\\\"}]}], \\\"]\\\"}]}], \\\"}\\\"}]}], \\\"]\\\"}], \
\\\"}\\\"}]\\) is neither a list of replacement rules nor a valid dispatch \
table, and so cannot be used for replacing.\"",2,41,6,20869063241767631043,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.698258170374589*^9},ExpressionUUID->"a86455e3-d0f7-4898-a021-\
a63dff214e43"],

Cell[BoxData[
 TemplateBox[{
  "FindRoot","srect",
   "\"Value \\!\\(\\*RowBox[{\\\"Max\\\", \\\"[\\\", RowBox[{\\\"1.`\\\", \
\\\",\\\", RowBox[{\\\"If\\\", \\\"[\\\", \
RowBox[{RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"100.99999999999991`\\\"}], \
\\\"+\\\", \\\"\[ScriptB]\\\"}], \\\"\[LessEqual]\\\", \\\"0.`\\\"}], \\\",\\\
\", \\\"1.`\\\", \\\",\\\", \
FractionBox[RowBox[{RowBox[{\\\"3.9703872112839913`\\\", \\\"\[VeryThinSpace]\
\\\"}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"Log\\\", \\\"[\
\\\", RowBox[{RowBox[{\\\"-\\\", \\\"100.99999999999991`\\\"}], \\\"+\\\", \\\
\"\[ScriptB]\\\"}], \\\"]\\\"}]}]}], RowBox[{\\\"Log\\\", \\\"[\\\", \\\"\
\[ScriptCapitalR]\\\", \\\"]\\\"}]]}], \\\"]\\\"}]}], \\\"]\\\"}]\\) in \
search specification \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"nSeek\\\", \\\",\
\\\", RowBox[{\\\"Max\\\", \\\"[\\\", RowBox[{\\\"1\\\", \\\",\\\", \
RowBox[{\\\"\[ScriptN]Approx\\\", \\\"[\\\", \\\"\[ScriptB]\\\", \
\\\"]\\\"}]}], \\\"]\\\"}]}], \\\"}\\\"}]\\) is not a number or array of \
numbers.\"",2,41,7,20869063241767631043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.6982581703870564`*^9},ExpressionUUID->"5b197d85-0c10-48d0-9aef-\
0a94df1a8f63"],

Cell[BoxData[
 TemplateBox[{
  "ReplaceAll","reps",
   "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"FindRoot\\\", \\\"[\\\", \
RowBox[{RowBox[{RowBox[{\\\"b\[Sharp]\\\", \\\"[\\\", \\\"nSeek\\\", \
\\\"]\\\"}], \\\"\[Equal]\\\", \\\"\[ScriptB]\\\"}], \\\",\\\", RowBox[{\\\"{\
\\\", RowBox[{\\\"nSeek\\\", \\\",\\\", RowBox[{\\\"Max\\\", \\\"[\\\", \
RowBox[{\\\"1\\\", \\\",\\\", RowBox[{\\\"\[ScriptN]Approx\\\", \\\"[\\\", \\\
\"\[ScriptB]\\\", \\\"]\\\"}]}], \\\"]\\\"}]}], \\\"}\\\"}]}], \\\"]\\\"}], \
\\\"}\\\"}]\\) is neither a list of replacement rules nor a valid dispatch \
table, and so cannot be used for replacing.\"",2,41,8,20869063241767631043,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.698258170418755*^9},ExpressionUUID->"a2739bcf-b962-4125-8e99-\
3d38854507f4"],

Cell[BoxData[
 TemplateBox[{
  "FindRoot","srect",
   "\"Value \\!\\(\\*RowBox[{\\\"Max\\\", \\\"[\\\", RowBox[{\\\"1.`\\\", \
\\\",\\\", RowBox[{\\\"If\\\", \\\"[\\\", \
RowBox[{RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"100.99999999999991`\\\"}], \
\\\"+\\\", \\\"\[ScriptB]\\\"}], \\\"\[LessEqual]\\\", \\\"0.`\\\"}], \\\",\\\
\", \\\"1.`\\\", \\\",\\\", \
FractionBox[RowBox[{RowBox[{\\\"3.9703872112839913`\\\", \\\"\[VeryThinSpace]\
\\\"}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"Log\\\", \\\"[\
\\\", RowBox[{RowBox[{\\\"-\\\", \\\"100.99999999999991`\\\"}], \\\"+\\\", \\\
\"\[ScriptB]\\\"}], \\\"]\\\"}]}]}], RowBox[{\\\"Log\\\", \\\"[\\\", \\\"\
\[ScriptCapitalR]\\\", \\\"]\\\"}]]}], \\\"]\\\"}]}], \\\"]\\\"}]\\) in \
search specification \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"nSeek\\\", \\\",\
\\\", RowBox[{\\\"Max\\\", \\\"[\\\", RowBox[{\\\"1\\\", \\\",\\\", \
RowBox[{\\\"\[ScriptN]Approx\\\", \\\"[\\\", \\\"\[ScriptB]\\\", \
\\\"]\\\"}]}], \\\"]\\\"}]}], \\\"}\\\"}]\\) is not a number or array of \
numbers.\"",2,41,9,20869063241767631043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.698258170431613*^9},ExpressionUUID->"8e3e7022-499e-4fc6-97f0-\
af38b4afc5ec"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"FindRoot\\\", \
\\\"::\\\", \\\"srect\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,41,10,20869063241767631043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.698258170444985*^9},ExpressionUUID->"c5f53056-3784-4eeb-b339-\
0a8fc5dd036c"],

Cell[BoxData[
 TemplateBox[{
  "ReplaceAll","reps",
   "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"FindRoot\\\", \\\"[\\\", \
RowBox[{RowBox[{RowBox[{\\\"b\[Sharp]\\\", \\\"[\\\", \\\"nSeek\\\", \
\\\"]\\\"}], \\\"\[Equal]\\\", \\\"\[ScriptB]\\\"}], \\\",\\\", RowBox[{\\\"{\
\\\", RowBox[{\\\"nSeek\\\", \\\",\\\", RowBox[{\\\"Max\\\", \\\"[\\\", \
RowBox[{\\\"1\\\", \\\",\\\", RowBox[{\\\"\[ScriptN]Approx\\\", \\\"[\\\", \\\
\"\[ScriptB]\\\", \\\"]\\\"}]}], \\\"]\\\"}]}], \\\"}\\\"}]}], \\\"]\\\"}], \
\\\"}\\\"}]\\) is neither a list of replacement rules nor a valid dispatch \
table, and so cannot be used for replacing.\"",2,41,11,20869063241767631043,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.698258170457794*^9},ExpressionUUID->"114e9167-5209-4994-ad1e-\
298149f37c07"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"ReplaceAll\\\", \
\\\"::\\\", \\\"reps\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \
this calculation.\"",2,41,12,20869063241767631043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.698258170486021*^9},ExpressionUUID->"b96f33bc-a398-49ae-93bb-\
708b6ec81d1c"],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwV03k81OsXB3CJSmSpZAk1spTsS2VrOsga2WU3lhTZZiyhkS1rlmqSLdtY
4+pnq265V9ZkUihFP1cphNSk+rlK8jvfP57Xeb3/OJ/X85zXc0jeIbZ+nBwc
HIN4iBpVbfuYvioKCQ702rRUBjmczi9muUcC7vD/O1OUwiCH2g+ckTDcAy6P
183GLjHId4QNJyI0SNClLftBDa25gZTs3isN359+DGUmM8jNi78PHneSAROz
6jZ5tOrYxHPFeVkoDbzqeD+JQW7svh+7M1YedP44reWMVrqdv+8X3wEo3TVT
vRHdUBjJel+iAKPUyWdtiQyyQoo9jaWqCH0Xxn2C0bVh6rtbupRgInz5gjJa
zl2wu9BeBRZ5Mta/JTDItjJRWkBThV+7Du36Gy0kfppHS08N3u34PpCJzuE2
apJ4qg6bQ9yuqaOtVtUvCd7QgFzRIr6taP4lkjOXlyYI7C0VmYlnkAdnBZVW
9mtBcsdgbyf68sQ6x+KSFnyh66WWoS1GPr94c/8QNF5z0khAb+3/p/Z50mHI
kgqv9EGntTywfiCsDd6HIoWV0SZ1t2RuT2pD6lNHIWH0ptKClYoaHZBu2Wux
dpFBTs6IKsvQ1gOel+0iw2jD+NPhcZz6cFV0cvUBmjPSwZTK0geHqaXAWnQ8
ReOLszsZ7ErNepPQZQeF3sntOAYPzUhZVPTF6i1PyqKOwYYnpWsU9NHif0sZ
xwAEGyyDDNBSIux0/ioAMwqFpYFeuzJLS+MxgGi/oQpZdHvqqMmFEQM4YEeh
b0UXcw6qLR8yhO+CBSNrcQxyLL1nd2iRIcQFCgosoXVoLWwfXyOYnUtcGEff
87hyw2L5OMgI6M00ovPH0xJ6XYzhl3mMQhU6yj4+kNxhDCFBWfpF6EPmIWSN
NBPYGaxBSke3all+EBc3g8tvO/f5oxn/MRpmxJmB6ftZbk807aDeA/73ZsBs
z6E6odVJB3M4G8zB3IMj3RTdxMdzeEH/BJxQ5x1SRA8YFNx9desEZMV+vCmL
fnf+wJFeEUtIN9UblUJvnzHTLluyhA/l5y4Joal/Zeg6Vp2EW4f5aCt0Brk3
etskiccafgppDn1FDzMcSvLJ1qBe0P1pET0/MCOV0mANRxznZ6fQYoc37aWk
2ACf5yPFQbSsrdXbV+02MMeylOxHqwXllVl9swF7v8v+3WgzphxJz8sWpGMb
Hv2JjhYwkRbRsYPx7iXVWvT4h1SZwU/2sJ1T4VQaeoZzaNpQxgHCdkoUJqOX
JEWr7rs4wJAc/0Q8mse+Vrb2kQPYnV1ejEZrP+yXSyp3BNXzHynn0AX5PAe0
HU5BNDVjgz26qsVm/nbmKTCMPy9qg256WlAn13UKtmWfVrFCP+ZSUNip4gzu
I/p9pugfoeYH2VtcIHjFe/9RtLNZplJVuysEv8u8roDOUwv69yLbFRaKC932
o1+Inex0kXaDrvVKDzm09cJ2B8E0N/h1LkdGGm2aWXgh1s4dfpdV7xJHHxms
Y9kseEDLTho3LzqyLfO6oqQnjHUf0ORBt94M8txs7Qm/qG+9N6NVg9W+tbd5
wvFhy4cb0YxUt22MY14Qf+ns1rULDHLm/mnNdV4K2BtnU76gb0mMFpyTpYA/
M2D4M7pfsO/3+FEKxHCYwCf0ph81/a1hFLiZIO27gE58HOgW8IoCWccEqdPo
mIBvSaMV3iD95lHpODqggfN5vbYvaNq8nu9Fa5a2pBbY+kLW6r1HPReI/fLV
Sw30hdmqG1Xd6Nyovirvm76Q/9Oe0om+a5BxXmyDHxg6h8r8heYaF5JK7feD
lerId63oEm7SWW8nf7C3pndWoc+sDEtah/qD5MChF5VotY+JI/rp/jCXdlac
cM/QtK7YA3/4cYLkVIH+WFTLPyR1BsRHc4dK0EfUVVv1Z8+AS/I+cj562IO8
LhoRAAveJUaXifz4vIJ9uQEwqhx2IRPNUfFJQ7k+ADp/GrZmoFVnis4YTgVA
/tX5feno7MCV4SDLQFDUfKuYgj5xvqmyS/YcsLaN+cQT872yz/zcyyCYC9tR
HYH2aomZjlwKgvQId07CKy+G4xL4guFgdI1HOFpeNL4lzyAYguJ1RWjolJIJ
ic7GYPiW7ZMWijaqv84WTg0BXeWtjwOJvHdJA2+KQkHk9fUP3ujzs8LicbWh
wJWg6kv4ykLNWYm2UFiSZ72loLu+srY4Pw0FVgTHay/0vo07TUY4woCp3czl
iZ7dV9nd4xcGbnX3jFzRgX497XUqVFCYZknYo5PPOvKZ6lHhdzWr3g5dHDTn
OmtKhZGzLB3CTyL4VqW9qRDDHjhli1ZOsdcuZlCBfqeizxr9pXq6LfsHFXrK
7NIt0ZFzXLdp3TRYNLZxNkEvbwwI2ztMg97ldbYxOmLPM43BSRqUVDemEA53
LLgn95MG1pv4Wo+jw3qUusZVw6FW7pmKEfpcmeMouSQchHuu8QPa51TtKm90
BERqCp/QRb+jbfv7XkoEtJknLumgvXOo8X6MCPjuxc4j7NWnx91xOwJoWY+n
tNEemsP81NkICJulRx1Buwj+JI3ZRYISQ2lUC23db2FaqRwF8t6czapo2fe5
6kJ6UbBt4AaF8M+1UYk4syj4pqYkRJip4bXk5BsFDzecClUh3lsSXshbGAXP
hv50VCbmGXFzkcp9Hlpr2F8Pouek2bkwcR5Yt4Sj5dHx9Kvjk+kx8GGDstce
dDnv0T7fvBgwXngpS7irYL55oSIGqkYufpRCc985dnn5QQz4MIcjCWd8/nyU
/3MMvDGKyJJEMzwtKvVtY8FxJntsN7oGuEKKxS/A2E+IFUU/5Y7kcqmnw0kT
LentaMf67z6f79HB1HfwoxB60prWndhHB0jwayN8enlJWuQFHbrKIm4QZheF
JtZP0UHl+j0fwoLqgRxrInEwdbqHIYi29fD6VZocB8e3Tizzo1/dMf8+434R
BBr5lniJ/9Ii8PVIWjwY/OFlvgmd9rRZeUYyEbpbBGd+xTLIrOcO/nn1SfCw
3PfrdzS71/WnsOsluNZZ7vIJzSSpvm77lAJeo0d1P6C1A/x3ylSkQUeAlcEU
OvpmifkNqwzIjSrmmUCb6lQOKkxmQkLfxfpX6B/dfPWXc7JgO2mvx3Oi/67h
KL9MDhSouf75DN3I+tygEpQLIU40sSfonU26QS5GV2CzfG9/PxpYbDvhbVfB
MnR1vRf9xnXU/+7sVXCea93bjT5Okq6Yb7oGfCZxrQ/RHBPBLlLRDFjm1A75
G6247RNZx+Y6LBkrSLWj99JGLGbF8+Do+kO5++hLJ+eTo/+XBx7Nd8Xuockk
Dj2BJzcgZ/s1zTvoTvk4MS1GPux5JpDRim6tVJIxCCoAe8bl583oYEcjhzeH
C0ErSNmmCR235sJ18XchtFQ2zd9Gr4sz33K/LILXMs8iGtEmQbbvJUqLYfHk
qOIfxH0PaezYHX0TxGo4x+rRCRqxZ+uMSmBd4nTdLbSTXLe+Dl8p7JBPzKpD
l+TokZunS+H9P1/8atEv87I13J3KYHf3a/ca9K5ykckXPWUgyvnEvJrIry57
ZKlaDk6OUVCFtjru3pPNKAftWlW3SvRoabOT4YYKeHEmM5CJ7mDo/u44XQFH
WF+vVqDtk3ve6w9UgEVbS0c5Wlpl1lPlEBPqNrEXytB24brsuUImLPJ1KxBm
rHIss8uZYJxnJEn4ZWLfr+VaJpTt6RMg7HLFZiv3XSY4qD/+Xor2bvSXJT1n
QofTs78JV2opKe5/zQSxKesmwrPtX9VVpphACxhhEg5g0Y/ps5mwnz6aRrjB
1tDEaJkJSZucYgl/Ht9iZbHGhH9yxoIIq1Ke2ttyVcJhMRcvwtS5a67OvJVw
teK/toT/DyZG7Wk=
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], Thickness[Medium], Opacity[1.], 
     LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQXb4s6GTtbwlHhb8dDzOqp9g3JBp/iIy1h/M38nCa
v7L1gfMjPbt1l+6JhvOz1jBdXm2ZAudfjLP/L1GaBecnPGo+dX92AZxf9oJl
ffHhYjg/4IS3xxK9coT9tZNu3uusgvPPsZaxRK2uhfM/bOb/ZNHRAOd3nNuk
91S2Cc4/fTk0fdrqZjj//dHoX6LRrXD+YkWDW1vftsH5llnpIiqLOuD8yrnz
vKb7dcH5HlZLzmrd64bzfx7mWd3T34vQv935Kp9KP5y/7vS7Nfq5E+B8kY3W
uVEuE+F8x9Pvg0V5J8H596Ovpm9/huC7KioterlxMpzPcCcvSq5yCpyvw/vW
3ipwKpyvUHzJ+5nUNDi/1f9lS+VXBN9ekcGG/8x0OP+gep2k6ZQZcP6WJboq
Trkz4fy8MJfQ++az4Py6v1Es9f8Q/P9Six+wXpsN57vnBj2WmT8H4V4zY2Hp
yrlwfqNxdeZKl3lwfrjaYVsrnvlw/rx+G/tNTxD8a9P6jGPDF8D5YgvF7105
guAzLFtw3NdgIZzv5xp7pG8Kgn91/qZwZ8ZFcP7+Kdb/9qch+CEtRx7bnkLw
lfSfxeubLYbzg0us37+YheAnrUtXVbyM4Be9mBwdyb0EzgcApE2bdg==
      "]]}}, {}, {}},
  
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.02000202061230738},
  BaseStyle->{FontSize -> 14},
  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]],
  ImagePadding->All,
  ImageSize->{468., 289.23990673495075`},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.698258170574162*^9}],

Cell[BoxData["\<\"Example where PF-GIC holds, FHWC fails, RIC fails, PF-FVAC \
Fails\"\>"], "Print",
 CellChangeTimes->{3.6982581705799007`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"{R,\[Beta],\[CapitalGamma],\[Rho]}=\"\>", "\[InvisibleSpace]", 
   
   RowBox[{"{", 
    RowBox[{"0.98`", ",", "0.99`", ",", "1.`", ",", "2"}], "}"}]}],
  SequenceForm["{R,\[Beta],\[CapitalGamma],\[Rho]}=", {0.98, 0.99, 1., 2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258170586253*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"{R,\[Beta],\[CapitalGamma],\[Rho]}=\"\>", "\[InvisibleSpace]", 
   
   RowBox[{"{", 
    RowBox[{"0.98`", ",", "1.`", ",", "0.99`", ",", "2"}], "}"}]}],
  SequenceForm["{R,\[Beta],\[CapitalGamma],\[Rho]}=", {0.98, 1., 0.99, 2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258170592842*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"{\[CapitalThorn]=(R\\!\\(\\*SuperscriptBox[\\()\\), \
\\(1/\[Rho]\\)]\\) \\!\\(\\*SuperscriptBox[\\(\[Beta]\\), \\(1/\[Rho]\\)]\\) \
, \[CapitalGamma] , (R)}=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0.9899494936611666`", ",", "0.99`", ",", "0.98`"}], "}"}]}],
  SequenceForm[
  "{\[CapitalThorn]=(R\!\(\*SuperscriptBox[\()\), \(1/\[Rho]\)]\) \
\!\(\*SuperscriptBox[\(\[Beta]\), \(1/\[Rho]\)]\) , \[CapitalGamma] , (R)}=", \
{0.9899494936611666, 0.99, 0.98}],
  Editable->False]], "Print",
 CellChangeTimes->{3.6982581705994053`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"PF-GIC holds (\[CapitalThorn] < \[CapitalGamma]):\"\>", 
   "\[InvisibleSpace]", "True"}],
  SequenceForm["PF-GIC holds (\[CapitalThorn] < \[CapitalGamma]):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.6982581706061373`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"RIC fails (R < \[CapitalThorn]):\"\>", "\[InvisibleSpace]", 
   "True"}],
  SequenceForm["RIC fails (R < \[CapitalThorn]):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258170612276*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"FHWC fails (R < \[CapitalGamma]):\"\>", "\[InvisibleSpace]", 
   "True"}],
  SequenceForm["FHWC fails (R < \[CapitalGamma]):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.69825817061867*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"PF-FVAC fails \
(R/\[CapitalGamma]\\!\\(\\*SuperscriptBox[\\()\\), \\(1/\[Rho]\\)]\\) < \
\[CapitalThorn]/\[CapitalGamma] (same as 1 < \[Beta] \\!\\(\\*SuperscriptBox[\
\\(\[CapitalGamma]\\), \\(1 - \[Rho]\\)]\\)):\"\>", "\[InvisibleSpace]", 
   "True"}],
  SequenceForm[
  "PF-FVAC fails (R/\[CapitalGamma]\!\(\*SuperscriptBox[\()\), \
\(1/\[Rho]\)]\) < \[CapitalThorn]/\[CapitalGamma] (same as 1 < \[Beta] \
\!\(\*SuperscriptBox[\(\[CapitalGamma]\), \(1 - \[Rho]\)]\)):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.6982581706251593`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {GrayLevel[0], PointSize[0.007333333333333334], AbsoluteThickness[1.6], 
      StyleBox[PointBox[CompressedData["
1:eJxV1XdUz/8XB/BKe+9Nn2gqGaWJ+ypK2hnFlwZRaUpCQ4WWJBQN0VAZLYUG
SUW0lKb20JJUGrSofp/rv9/7n9d5nOd5ndc5995z35In3PefoqOhodlES0OD
5/9/U0BD4yaXWcoKz8wsArajA+9nmUhKwVSgzarTv1zl++w2FRCOFgtM/pen
K40OErh0LZz2yz97ZEm57IPz9llX2WipnrpcbdtlDocVLzNqoykifkpDluDb
wxx+/p+7AhuarEHFbzdnFppsp208aAcdrFujv6IDr8lfyXeA8uuNwkJ0VCc7
+T+LcIHdtNJJRugpl1+VE2fguauCzBX0FrrSnEZPON08lF2Izq19nzFzHopV
zFUn0NwcesfMfYDmzpnS9WuovpWtcGryEtyc1dl3GP3kXaDKcCCUHKpqvvEv
bwlgnL0CX9/Q2LxH6w8x/qUEw36F8bEF9Jkau9PuoeCQGn5BiR7vx5el9l4D
L9lu+pNo4V5pWvcIaHnVHxWPpgz4tVNuQuexOMnPaNvlKrJ0C3p41+TRM1D9
yfn6Rq8oUO2laGuiu132W9DeAc3y6UZ3dG6RzXTiXdB+62WXjg7TdpY3iYWH
bVm/O9Fx9mmKXPHwnCs2jJsR66n0Qn7gHlQ7qojroQMDX5lW3gcYDsr1RR8+
cbD+bSKcDg3TzUMnJ9Y7nUyGRHPoGkHfuilQezYF1PWeeogzUX2fLjw5/CFc
d/jIvB8tzDe/JisVfhbGJIeiaVIcOdvSoFhDVKMEvbCo0MH2CPR+mjXNoClB
DZcMHsP3Tk0XOWaq9zjLCUY/gcWVNkZrtLrJvjfDT6HeSu5hNFpxKiJcJxNK
FxV2VaOZx24nPM2CDa0DnStoM+sdrGI5cGDG6KIKC9XjOQXTMc8g/YCToBP6
mOirgshcOPNHMz8Jrfo32sgyD9jH3x5sRbsVuuhLP4d62blfrKxU37nnWLTw
HPjy+u8SNPdoY0bjC1AK91c7j25RFVbKfQk++Z87MtGBzQ1md/LBYHuL31f0
uQ2Fkv4FsMQWQRFiw/4xZT9zLYR+rfkKI7S+TjGLXREcqBRwuoIu6uQB61eQ
nfuNqwh9LpjZxuY16Cy5FEygadgkvO2LwfVRutUGdnTe8n3PN3C18DbDEXR7
qldnSAn0bt6aE4m2PX5ZO/kttPIEWVagxaV1B0pLocwmnHYJXZ8ROnK2DObF
9mRt5qBa6qIiC0s5NOnnWZ7655UTxx+Ww5PRxjUJaJe/UfO73kHzcnpuAzpM
VrOl9x08Dd9kzciJ9Tkxvnr5PYTcdmTfgRafP3BVrgJK+C2LPdAxLVsdmirg
seCi02P0mY9WLwM+QGK8iVgPujvvo+eWj/AnyfITLxfVF5vO5gx9BH5Ffn99
dOJcgOv9StAmQVv80UYlG15bVkFX7+PBF2idlswHgtWgxRoQ+x09ouov2VEN
rytYjCS4sT+uIqZJNZDDrU97CJ1Vx7/ldC2cndIoDEebFVPqVT+BtX2faxna
9jujMnMdVJ1Tl55Dh93PcOypA9Z1uj0KPFRXTDB7F9TDpZMMMcfRwpwabtGf
wdvA2zQWraSrKq/ZAJZNySx1aErVfGxWA7iv+FbQ8VLNee8Os2QjiDayBqqj
9buMA2Mb4YWR8Q43tKj9WXruJrjpuXsxFe0zY30vvAmY9ScKOtBE038vUzOc
/2TgxcVH9Ze1+3hCmkF5zTEVXTR3td4yYwvETVJ++aBvtbPzhLfAyq34l7no
cwGwn6sV3ox/8BpB52Tf/hjTCnL0j9TE+XF/qn7wpHyBtA6NJXP0zO8Mm6wv
EOR+uSQUrfNn/S3NNpCs8rtcgnbMFmerbYPWYQW9WXTDr5gvVu0wXxPJJi+A
82OXvDDTDoPe6Y3W6BorywvhHTD1yz3uDlp8z9hhqU7w2jVpU4N2vB+bWtYJ
DYcpcjSCVFvsyLGy6YIjeozT29Ejnjdu0HSDA0vya2d0kXq6Rlo3WKZNBKWg
xc3POxr0QIDIT9M29OHAKMpsD2g4p4lxCFH9+vl9x8Re6EvgGNVBcyrs22vU
B/XZG/MvoidzrN7/7YPDqX+u5KDTOtunLfuh3T/QfAitbBDb9rwfsnReUUSF
qZZrdxDk+gqK0+lTpmiFQ415Ll/hWYReeTDapMouu/Yr3BZKiCpGs4YWsSsO
gMKd1JPT6Czjs803BqCV3lZNVoTqOsudDNMD8MO5gdUKLef9Of3QIFTW/uqN
QierjhYVD0K5TN2LKvTbPjOdDUOwPeDItRU07ZNu3Ygh8GmLt1ERpXqgzLFy
bgh+bI1UdUKrnuuuOTEMA7dUOZPR+jvlDzYMQ9Fc1Egr2nbYwAFGoOZUaimb
GNb/wV7m3BFw63eI10ZvE9mitf4b0J7u97yAfpgpQR/zDbppOUyz0RHHdziw
jcKR7ImNg2iyrtDxyig0ul5hEhHHfVVYy/5nFJJ1a4dM0Af5yi29voOUWtW7
ILSMznfj6e+Qs8c75TWaPSll1m0MHpzpDZxCR/3Ybzw5BoYl87Yya3F/uHrY
uP8Ank0ftI+h33FeUpr5AYbv9DZEoTUv0paeH4cDAX4MVWhulRiB5XEIsrcf
XUYn1/SqBk+Ahg/9J+V12O+BcFmuSah+Y5F7Gv3I1mL83iTc3mJ1Nwk9FsIS
LvcTfrQJ+baicwS8GYp+wpb8kONsElRzqL7Pk5qCkpqn+trosy03D7pNwbjo
5S0X0N3DSRNFUyD0hF0kG33V+UIA/TTEnTOiG0QPLCSzm0/DpytkXJhC9feK
7NjEaWBvHf1igrYu3r5hYhpeuOq+C0Ifi2zL2zEDYqYWOa/RjFXqejdmIMVX
LGEKfbqbYbB3Bh78vhMmI0m1p9ZM+NZZcCl9d/4Y+qZdEQmeBdeutFNR6Auz
IkydszBtqHWoCm1R0te/+Rcc4QvRXUFbd3Q0hPyCFeVgVZX12M+ivo7eX7Aj
V13OCW2q0bCi9hvcwpNFk9GLhbd1on7DVMUbji9okOZ9MvEbxE/coGXfQHWG
8N5tBnNgfJJ3ThtdNLRp6PEc9NYZ/riAXp9ZW8Y4D4opGl+z0eoem2rt5+FW
f1fbIPqeiiNj1Tw4RG77LEKtO83X1TivjQvAlr2z0hT9ZnVILHIB2nctlwaj
teK8/84sgJyex6titKRPhOiRRbD+EP9iGp1adNS7bBGq357PkZXG/1HfJnH5
JahVYc6wQhcy72eMXoJSeZNH0eiTsxJaK0tAm6yfWo0eElkocfoDP+Lnk1fR
7VW7o9r/QIfI0aTtMlQrqnoV7/0Lcus9E53RjnFMO4v+gnI+JKagWXcFiG5c
hkOtZYlt6LD005YPlmEsaC6JQxbn967VPM8KmHzsT9mNntn2Zzl0BXoSAtK8
0Utrx91WV2CaqfnxM7R9yKDxxVUYZe/KHEZH6iUmzqyCeHZsrpgc1dr+HtvU
aMjXMeYCc3Qhj3aTFw1Jr1J6E4oOE8zckk9DivVZ3pegeetTTH/TEH/XuJpZ
tO5N8a2qtMRIo7tJXp7qwWahtgu0JCCnpcsGvaB7d/drWuL5+fLwXbR9XcLF
ZVoSnDj4sxYd+kDtojYd4Vm3tES7kWqR3T57QujIObMPjOpo6ec+fbV0hFld
l88NvfHgIUPeNUShzZuSht4nqBh+ZA3R2GKn1ImuuyCTmLKGROrS7uRWoDop
zuPa2BoSInLQSA/NpU9MVOjJpZyjx/zQvny1k/705BOjsOtzdPohM9caetIu
dc1/FH1Dl/+TIANZZH12a50i1aMMxzlOMpDrxddSD6IjXoYoP2cgP9RFCsPR
bD5dhJaRnA+2qi1DX48vVjNnJCGpFv1z6PTAa6IPGYnvXfo5xU1U32/L/jHL
SPKsHNjt0N63Y7P1mMjVFf8N8f/yv8Un7jERYx9Drc9o4+YYjp9MxK350wEG
JayfUUbuHmaizb7GVQvdoxhgksBMpGQnQzzQT9vSvs8wE0+ZyJTHaAXbvCBD
FhLBPvimBx2ZoL0+nYU0d423822mOmXrYsUqC7kTk/l7H9r72RX3o6xEFST4
AtEi8TeliliJQPverQXofN/2EQE2ct1O2mz8X06z9tU5NrI0WOi+fgu+t7wh
sYWNlBxdvXkYXRZeHLednWyt+5MbiXblf5UZy07yNbObKtAtLosdS+zk4SO+
30vokX5bGRsOYsm3WXjrVqrdDbuiKzjItqurWg7oFrlj0gqcJGohyPYBeiaj
tyeKkzR4lQY3o83rTpX94SSGyzmZLNuo9jv99/MpLnL89oEmQMcY5nM1chFX
lexFL3Ro6qHyddykYbRYMgv9IZ0m5hA3GckNMBhAS+z0YLrBTdhvLngKK1N9
d6220AdukhIsk2iCdpXnrFzmJjSxLNVBaAE/H2E1HhL2IeXXa7SSlyKHBw+J
4ftJmUaXva9/lMlDIq5OG8uqUH3Ag/vbCA8pE3rqa4X2m0j7vJ6XRDcJZESj
94rsOWHDS+wK1Dqq0ZX7M5Lv85LID5wsNNtxPgPjIjp5iQddgoYqWlWiRVaE
jzi7dzu5oKUMZM8d5iMdnM33H6Jnq2094/iI4KD/53b0G8pB2Q4+EjLZR8el
iv2/23FblJ9cVZ5T1UWPkvqXx/iJy8tyZ180gyh/VBI/eeCpk5KH7qCLUhjk
Jxc8L7Z9Q+u2Kl+VFSAWBXac69So/uM+ds9FgMTvotc7iC56n3nuuQBJ5PzP
Pxxt2n+Wd1GAvJc7VViG3kZHzhNBYn9TenoOPZgk/DBMkAzvSVDYpE71kwtM
cY2CJNHwo70dev8D8f/EhMh0+qOH8WjJMNexU0JE02JH32c0i6SAYZ4Q6bAO
FWfUoNqlQdl/WYhsfxf63w40642fwQbC5N6VnfFn0bvHPE/GCRO3h0/an6Ar
ZWbEvgkTXqlq4T70Ea2UHFURMsSSdERAk+qa7yXrQkWItsXGBEO03Kdwt3YR
Esbm3HMZPWZnlrxRlIgoHqcUoR3lrQouiRLT1+wnJ9HnEhheNIqSiCLXJ1Ja
uK9M0+JkxMhm+aCJ/9AGq/Gn/cTIXU4z5dtotwfGcs1iZJ1zo3clWuy4YttG
cSKnzVy+jC5of3rxqjjhif7FrLKDauEl4OoRJxp2MeZO6N5t7g/U1hK6lxP3
ktFd3m+lo9eS96FLQ1/QfTbFGT/Xkv7+N5s5duI+pywpGa8jheUqvrvRk/kC
+ZnryGPFE5Xe6PrhZ8AmQbikdPlz0a8sPRqdJYhxRs/xEfRYGotrnQR5V66Q
K75rCgKN8mNZhSmkxmXz6n6qaY4qmY3so5Dq7FGTa5izZ3Eb+lGIaKhlUin6
hSZoPqMQiT++U7/RAzd08wcoRIXdQkcRpuB/PS9DuA==
        "]],
       FontSize->14]}, {}}, {}, {}, {{}, {}}}, {{{}, {}, 
     {GrayLevel[0], Thickness[Medium], Opacity[1.], LineBox[CompressedData["
1:eJwV02k01VsbAPBzQ+Z5jpu/rikRiYM4nm26VBdlyI2EdDQcFWJp8CJjhpso
iW6IJBoocSgZoxAOlZKhE6IIm+qUpO5+P+z1rN9az4dn2up7jrgyV9BotDjy
/h91aPIDVlSS1Y+WDbtoNAw26y0KKuhMiHzl6Lj4GwalyIe+sfRwkOBqCHNW
YJD09zlyszcaqjnek6F8GPiKooBFT4CZHJ2p78RRWc4OtPgU2HlApzWEH8P3
pNUuWb3pMDDiETpEvIkRsS4rPRPsbSInGAIYjtF9y33pWZAYd03iInG1gcNG
3eFsGJQH64/En3UM2J/jcqHyWnKExUoMR1R+1Sf35oPdh4dVXcQ7Uo6q61pe
AdFjX1ukBTF8SdwXkJ5eCL3jsTxX4o0xLpM76cWw98T6hS7ivkjbtQ3J16D8
4FcjISEMwcdNWRrDJTBTuT4NEd8OVZubjSuDllEXjZvEusw5XlxvOSh89jMP
FcYwXhHyb1hmBby6XllTQGxczmJoW96B2g6GTjdx3w3f6LT0u9BZ97e8lggG
qWIHPk96FQSfK/mnk9ivyPqqMLcKAo6W0D4Rl1+xsK9LrobX4fualEUxOOcZ
JKkPs8FdymYrkzgtW1H0Y9x9mPbbz/hCLJgyKXOqtwFi2GnWy2IY1j3CAzmM
RvB7cNhTVRyDW8sh3aOZjTC9/7GoBXFh075OTcsmuI4veEcQW9d7i6emN8MH
G83RaeJotm2GB70Vls6Hn2qTwHDWTJm3PbMVigzZPaPEBbWzXs6zrTAu3f7s
J3HjgxwNh2ttIPPXA366JAZa4xzbTOEJaIwHmV8hjn1yaUSF1wGyhsZmQVIY
Wj4uys97ceACJyhxSBrDX7f2Os6d5oCH2YjaAvHzQz0nZqo5wBT5nCkoQ+Y7
e/XNB5leQLVZQkbE/PMupaMdvXCmONYmgdjuS7Hl803PwDPQlKUpi6FteXsA
e1U/+GbaNbnIYbj7Rt+91L4f2k7Me/sR5zUJ218K7gdz8+y3wcQRCU1a0W39
YOL++HYGsY74hqk/Q1/CS9Y2zz7iFFWpkP72V3AkCGS2yZN9WHRHfTk2CG4b
wpOtFDCwLDW7clhc2OqWLIAVSf+zB+evxXBB0q4o7gfxhfwK+XtZXEhkDvKE
lDA0r7Dc3d3ABVrAcp06sVK769wKubcg7Ojd4Ur8yCNGOqjuLRxch5buEqse
GfSwEh+DiYE80yBlDF1XMkZGb7+DKB3/lNZVGIaOzjyuaX0HuSpqNRzij/ab
75wZegfx7wuGB4nFpmjxm0QmIJCnJbVAvMUoeG0mcwJ2bq2SW62C4Umzc5i1
6iTcn9IrCSNuHhMVKUh+D9p6OfaqqhjYmokmPnun4dmzmArP3zHIslxuae/C
gJfeLRxQw3CmL3+POXyCBy9s3ZjqGHhO7zM5cjzYdEV/es0f5F7e2JQV1X4D
zlc1tcsaJD/Gf2969hI4x6Y8lNfCUG+aKcC2+wmej/TnvLQxHD41LGUUSkNX
i8by43Uw5M+64fMjv6FSg1D9yrUY5gPdWrKM+ND2g6vv1elieDdxb3JNET9i
M24cfroOQ09wZvuC2EpkUqte/0QPw2uBxTy/3YLoxWa5+Ov6GJIKm1q9ngoh
7/GG8fT1GDy2yHIX1EXQjrF9JrsNMLQutm1VPC+KMjZvNzE2xKBXyQuL+iWG
PnF/Hl8mvhdRnhHnKoGEjnN+3dmAYcS245dcsyTalpYbetgIw3lxtmFhmhS6
6JMjrbQRg8nPP9GgsTS6YVI/UENcspB0zGtaGnXaM5P8jTGUBv1Tdj1LBqV+
tZ1YJI6cshVgOMui/H6+9zkmGLYeqqkP5ZNDQgF31IzoGMrC50Mibsohxs1I
/jri16cGnZoD5FH9J28fJ1MMubIpfwxJKKCoGn73XuIdZTzP7GoFlKFABbqY
YRizk6u6GKSIPBS/Vz4npjF5ogcUlFAJY4HnZI5h9nRyanS3EorZUmHUTXzI
6C0/84Qyikm7L2m7CcMklzc0vWYVUnQ6K1VJbHTu4XDNwCr0rfh+z1oLDOKd
jq/c41VQaM2M/gXi2pUJS3SGKlonIi0hbInB3yH6f/cXVJG0z6VdEcQ54laL
Yv/+jopdsMYQceHLW5eL3VajYl0W3YGBwVJ71EL812p0znJEv5S49+RzM4US
NbRiVvOQoBX5H1MW5XfXU2jGuriBRaw4MFffFEehJC29vMfEPw0/pTESKFTM
u27cTjx+mudVm0ihieMCnR3Ed82WeRXJFBq97fO1i9j5oohBQTqFaIGpzs+J
4z0186MuUcg9j8vjEuMXXtEWlRS6mn/B4DvxS/3dTux7FCrEss1LxPUJ/iob
qyn0JjfEfZk41WQ/W7eWQumS3cdogEErK3xOuYFCYUJijSuJfdzP+n7roJBh
WYGjLLHdzXP6YU8plDuvOSBHrMufvTTXRaGgsdQDCsTfKi9nT3IoFPx6MVmZ
+LzsjZ7+fgqdLNzdrkZ8knX7susrCvW0f/hbnXhPyx1W9wCFbrR4vF9DbHC0
RrBtiELYhrNSi1ih88EL6xHSX99IljbxjzUNRQ/fkHocuzXWEo+daA4xf0uh
6NK8Sl3ijr5WqBqlkOmSi40e8X9SCet5
       "]]}}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\[ScriptM]\"", TraditionalForm], 
    FormBox["\"\[ScriptC]\"", TraditionalForm]},
  AxesOrigin->{0, 0.9992288465916881},
  BaseStyle->{FontSize -> 14},
  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]],
  ImagePadding->All,
  ImageSize->{468., 289.23990673495075`},
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 8.442789243287962}, {1., 1.01542306816624}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.698258170762167*^9}],

Cell[BoxData["\<\"Exporting:../../../../Figures/PFGICHoldsFHWCFailsRICFails\"\
\>"], "Print",
 CellChangeTimes->{3.698258170770763*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {GrayLevel[0], Thickness[Medium], Opacity[1.], LineBox[CompressedData["
1:eJwVkHc81/kDx0U6WSGjpPpcRoifyqWMvN5EdllXOl+J7E3mEU5ORjoNIxXp
LpUyUlZflJGGECLZI3v72vLt7vfH8/F8PP99/mzraWrPysLC8td//N+kLaaO
q/YLSr5O7a3KCACfRoByKuML8iOvZ269HIDex3YPpMXakKWgJGnnFoDwYFzU
dm9D0raLUTLKAajYtSAXtuUr2MxYPhZ89oem/bkrc2btOB96RVJPxB8C9UbL
4SHtIIMdolos/uhXUrXb8qAdYob7+DDqh0scwmpyi+2w22wn3lPmh+onteP2
KR2QsYhRL3b0g/acksHXzk44xzt0BVb7QthSosiRvQv1vMWT0Xm+GKriF1+U
78IvCZuZKXd8EZU4sSoQ1gX5svlozgBf1By5n2X4cze23Nl3QFHOF7phPJyv
7Xswp3rrzcu7FyC5ycfObKkXhlPJr+7f8oFw50XNkzx9aDQyv5YT7QOO/BjK
QLwPeYL55h5BPhizyujUPNmH9JITc5kWPsgp+GR+8GEfrhx1d3u23QeH7RW0
+U/340+o5HlkeEOvekKyoXAASWE2j/iqvaCSusxW+3EAZzJ35iwVeUHOa2N/
Tf8AnjspPlnK8gKvmFhaOe83OE+efbCU4IWmCwbCOQ7f8IJhG6hk7QVL8axN
8cKD0FbJaJhjesI9wnFY338Iy5xW8uupHngk4dPUGDsE/jMTrXNRHuivCSmz
SB/CvofB4SM+HjjFdf2Gw7shsOXKqh8z8oD6zVJEiA5j8p6Z6c0f7uDN5E8p
KR/GaEf294Pu7sh7T9eV/mkUaYWTby9ZuGHMtUYxd8coKpykVnp13CDB27hL
af8oBkWtZdUPuyHFdGj+2JlRyId9urIs5IbwDr4M6yejuHhSqly11RUmk/Yr
SSfHcEa192OThSvm+Piy2FPGEWDf0DPi7oLY4/7hkk/HwRb3pnLA2gXiIZ2n
tF+P42oe/UG3iQvMhx+x/TkyjgdrD10/H3JBQZmG1UblCeRqfaiMZXFBoMsF
Prb2CYTH0dgWk5zxo6rVn0VsClwNEWfHGpyQsqJmRO2fQvJQrXRzlRP2K/wt
TrSmIM4UZNCLnHAu1fNTmNsU1OQfXo5Pd0KlF4fsj9IpzPt0RK97OSFqp0rX
utU0jKTYnfYI/df0+oz1kzMIMywoEHBwhIgjd9/wbzNIOHK40v43RzwS0Kea
7GdwX6KkvviEI947v0nLDJ7B7lv/i/t2xBHc20pvn3w4A14lPY5ILkdc932c
mMGcQbtw9NjwcwekyUfGaGfP4lK05xZ3XgcUpCt7x3MyMKh1T12oxw4uzxaV
ygQZ2Diiov1Pqx2oquffJ3YxsCeuxUCx3g6xQ/LRhooMpCcfDTYst8NZ+T3p
XDQGunXDRfzv2oGDzlkXk82A0eAL61tWdqC1dkhHGc/Dm22a0d5/Hmw8ob2h
SQtgZlsW2f+wRUiu9mp0xgKyo106eZdtsWjCI3jj6QJo54M2FM/YYizpjs7D
ygWUbEs24Oy3RSNFz2mYWkB40VbLyDe2SP9lOYTSWQSz7dqY9RVbqNJ8tlcu
LcLUs8+dlbLFhScOpuxnliEjp6nw4pQN7oh09nWcX8aZVEn+UmMbVF8y8c73
WEYsx2ZGlb4NhGlqCdaRyxj/1lDYrG6Dl9wC9SW5y3ijm/1ir7QNWD3K9Dw2
rWCNFiRxf/UcEvYLanx5vgL9rCl+ZsY5ZBdUKDzmXQNN/4hJ/qo12PUWn+Yk
rkNJMLJ/psUKr6Ick/6RYSHyL67r1LRaIi6bZO7x3kBkYxP9OA7/hqOcza4K
+azEbFaH26TBAuFhRflRvBvJLG0xKcT3NExLot9fNWMnfsVJOk2mp1DA9dSm
7/kmcjN/wU1R+Ves34jOreThIFElbtXuMMfnXpM6c+PNZK9sAPtFVzOoHXd3
O5DDSSLG+fa+TDGFopdfR/k8F4lTrv1LdNAE9PyG2qRTPIRu/iKJ44AJpPcN
eK8/4yUxtF1+/VeNIeE0MCy4uIUEfRt/RbEao6071ZOexUeusNsqyo6cwJCr
SnP1CX4yK/3qrdisEYZvFF5LnOYnz1af7d/Ka4T97zoSuNIEiKUpX+iqlCEq
zi4tfSVbiarqJ4qTZoDUDaXpRrNbSReravODeH04wOp+dJogeU+fPCRQr4eg
nnluMSJEOEaFuQOl9NASd6jYfFqIqL7pmCZBughMdasdvC5MTmsNbmDp0wGv
VriyuqIIqck0svMx1cHEitqIap8I6V3RVTn46jgEBGaY1y5tI26SzkJ/qB3H
H0qGp+IVtxO2w9vzTxdo43BZmlDfl+1kZ7+FhOxRbfR21yl8DxQlm4Mtg2M+
aqGROzO2dO8OspFyG5Sz0ALnXV+jlg87CIeQ8kfl6WOIU54wvhEsRj50R7jX
RRzDDy+Su01mJ2FemL7MEDsGOmec3+KHnaRlT2Ly1wpNvMoLDQn6fRc5KHLv
bb2tJrhKnMbNd+0mqdsKlWN5NKFHUyhYKt9NtgqV379UqoGRPxt60pUoMvWF
7ujgpIFPV1m3z1ymiM+7CtHXYhq4di9N3jKGIlkGZU3eOzRgmq+iWRNLkYH6
4lhxUQ00t/i43omniHlL7mqUiAZaxQbKdG9QRKn/bruRgAY6s6psM9IosrYW
lNrxkwaGayKfmhZQxJlV4GYyg+BRG1VRVkiRzlCRCOM5Aqex0hbpYooYr4l5
bZ4lGONZYDJfUuTQ/F7D4CmCCXN7kyevKcI6dHSj9SjBXL/2IttHitx67+wr
1UPwfL6P07OOItzHPW17ugh8N4Xubq+nSFilr3FKJ8GCTKFuXiNF7Olhcpzt
BMteUrdpXyhyIDvx2+RngpKIyty3bRT5W+Z2U2Yzwe83z1YfbKeIcOa919ZN
BGtFSZMcXRT5nvbkTmMDQen7g6y+3RTx3PEsNraeIKSjXrin578/yYWBx+oI
jk667NPvo8ivgqUO32sJmMxNpKCfIu8SKswLPhD8C/SjMWk=
      "]]}}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.3717679507457241, 0.0005124459653527364},
  BaseStyle->{FontSize -> 14},
  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]],
  ImagePadding->All,
  ImageSize->{468., 289.23990673495075`},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.69825817154683*^9}],

Cell[BoxData["\<\"Example where PF-GIC holds, FHWC fails, RIC fails, PF-FVAC \
holds\"\>"], "Print",
 CellChangeTimes->{3.698258171556015*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"{R,\[Beta],\[CapitalGamma],\[Rho]}=\"\>", "\[InvisibleSpace]", 
   
   RowBox[{"{", 
    RowBox[{"0.98`", ",", "0.99`", ",", "1.`", ",", "2"}], "}"}]}],
  SequenceForm["{R,\[Beta],\[CapitalGamma],\[Rho]}=", {0.98, 0.99, 1., 2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.6982581715621567`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"{\[CapitalThorn]=(R\\!\\(\\*SuperscriptBox[\\()\\), \
\\(1/\[Rho]\\)]\\) \\!\\(\\*SuperscriptBox[\\(\[Beta]\\), \\(1/\[Rho]\\)]\\) \
, \[CapitalGamma] , (R)}=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0.9849873095629202`", ",", "1.`", ",", "0.98`"}], "}"}]}],
  SequenceForm[
  "{\[CapitalThorn]=(R\!\(\*SuperscriptBox[\()\), \(1/\[Rho]\)]\) \
\!\(\*SuperscriptBox[\(\[Beta]\), \(1/\[Rho]\)]\) , \[CapitalGamma] , (R)}=", \
{0.9849873095629202, 1., 0.98}],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258171568845*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"PF-GIC holds (\[CapitalThorn] < \[CapitalGamma]):\"\>", 
   "\[InvisibleSpace]", "True"}],
  SequenceForm["PF-GIC holds (\[CapitalThorn] < \[CapitalGamma]):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258171575636*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"RIC fails (R < \[CapitalThorn]):\"\>", "\[InvisibleSpace]", 
   "True"}],
  SequenceForm["RIC fails (R < \[CapitalThorn]):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.698258171582149*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"FHWC fails (R < \[CapitalGamma]):\"\>", "\[InvisibleSpace]", 
   "True"}],
  SequenceForm["FHWC fails (R < \[CapitalGamma]):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.6982581715882177`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"PF-FVAC holds  \[CapitalThorn]/\[CapitalGamma] < (R/\
\[CapitalGamma])^(1/\[Rho])):\"\>", "\[InvisibleSpace]", "True"}],
  SequenceForm[
  "PF-FVAC holds  \[CapitalThorn]/\[CapitalGamma] < (R/\[CapitalGamma])^(1/\
\[Rho])):", True],
  Editable->False]], "Print",
 CellChangeTimes->{3.6982581715947*^9}],

Cell[BoxData["PFGICHoldsFHWCFailsRICPFVACHoldsFails"], "Print",
 CellChangeTimes->{3.698258171702935*^9}],

Cell[BoxData["\<\"Exporting:../../../../Figures/\
PFGICHoldsFHWCFailsRICPFVACHoldsFails\"\>"], "Print",
 CellChangeTimes->{3.6982581717091093`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {GrayLevel[0], Thickness[Medium], Opacity[1.], LineBox[CompressedData["
1:eJwV1Pk7FAobxnFZok2lTbIXIiJbnSzPk7VSR1HGEgqz2DKMfY9j7LJrkhAH
DYox2ctaUoSyRHKQcVKkQqey9Pb+cF/f6/MP3FIOHmZEbi4urvu/9//G8PNY
XBmgYgf3g6s9ZmEwY3SollbhidVi25RtG0PhNN1chB7vhZmJ7z6oKIfCJr7C
MeYJbzy5zUTsjWoIuBl04UNRH4z+Ls0V8SgYuiIX7/T854N8vHE658yDIYnb
kLxY7odLd8udL8QFwfwJ9871sf6oFEp08FIKgnPXMg7tdQrA/qhcM+mBQNjO
NT2vIxKE2Y+c+CdVAsELBM3OLQVh770ebsJUALwM1WQ79Abj0LYd9nLZAZC+
SvePpofiuva0/IntAbCkfX+EcSUM8/o6F6z7/OHQI1dxC/FwvPmt//HZNH9I
WE0Lp/wIx0ce6kMfxPxBW6yk8gvpGgpMrN+sP+0Hs9qNk4H911Ai53yf230/
OBs8ZZB4PwJJdjJ1C6f8YC37u89usUgcf5j7PWSvH9xr2FycGxeJvGX35zVn
fEFwWX0Di/gXHuJl0tWSfaE3IKp7cB8ds65pBMd89IFwBmPNPpaOasd8B63a
feBIXbnyzDc60j/+kojO9YHU7wMpy33R2HlXReg0wQfM/WQtJGNi8bSBSkjm
S2/gzToefXcpFn+OZHgVs7yBXf1nrapjHCrs1FCOTPeGnd98RQx14/E2a0pf
3cobBr07xpwXE9A0aqOuwgca0NPfbF24kogtJvSq47000GTPY3BPIrqL5suK
VNMga2FPQRIzCW1KAgQP/EUDxT/YVVYqyUhcF+r4Q4YGn2p4/UOnU7CTnrhg
GuIFd1qbSGNSqVhpeFC0i+wFF7sDL+rapmJk25MON3MvaJz8rLr2KhWtIy0G
1xS8IG7L27mQljSs0jpjlP3WE2QdHziG3MrAfp/uBLaZJ4y4U83eDv12jqaS
np4nJPofOqGzIxNfPc7t7jniCYuJ+eKrsZkY7/Wy8qmQJ7TWJg4H+2Xh8WS2
iegQFewFSabBZgwscRPQiqNQQWivlO5oIgPf/Kt8ysWGCk/2jypqdzJQ0JFA
OP0nFQ7/YbZxBW4it+CVT2c1qLDiqPs4SCkbj9fGsCi8VLhRt1srSCAHKyWk
NvFf8IAz7X3yb/Rz8IXcEzVNXQ/49SJBWCssBz8qu14iHvQA0hT3t59LOViX
4fJB6tdVUN86XxH47jbKLraznpRfBQrLcYeOfR6OSNpMDOy8Co1fH5CXAvOQ
zYMlN3ivwjY1gcbyzDxc6KwpyV1wh7qqMifxF3noaVF8t7zPHTY+WHrwSzsf
/SUSheaT3aGsJtqyVeQOrsTsc9m72x0+N5bmGA8WYBHvVU2Po25gsLr65deX
AgxpbUBtBTe4oXPOqHZLIZqHbzDZIOYGJx4tfjpoWIhqd1SucHjcILVJBzey
C7EO/B996XUF9daeya6Uv/HpjssqOZ6uENCxIGd2thjtGqomXjW7wA2eWyfD
KMWYEidhfKnaBWrBwLksshjbrOLLpkpd4HtNOnN9fTHOdKs1h91wAf8SDaUG
2RI8vy06WYjqAr6xfqoHuO7i7KP/Yq4fcAFvk2Xtbywmdgr+/JeU4Qzp0QW2
+18wMaaHsrsl0RnYbSah52aY2H3yoIJ+lDMsat1qYkqUIkGr+LyxtzPQFHX0
7BNKceUayeuWuTN4bQkzfkoswxtinwOYO5zBo4fb7KbwPayfZtXoZFNgJaZN
bJfmPSzfb2twNI0CcXp/zVw3v4fkHUJa8gkUKHzAdy0q6R7quar1FQVTYCRb
oILKex+/i/iu5ttSwIgiKGj8+T5eju6PSd1PgetcWzg/3lVgVUnuSAibDBa2
c6drvlagf3ZEX105GUTruyu811WidhLx6VIRGZi0pOB58Up8TDtU7c4gw+Pp
rTs5VpWY/pPQwhtOhuUuIf3enkpslV9t9DhLBjJDOL+ogYV8On8bRM2RoNSc
pkHpZGFaghdp3XsSzG950Sk/xEKpUYgJmSSBX0Tk17KvLJSdk8u3e02CaNdP
+lXyVRg2Oyu8sY0ExTrt001ZVWgbs/plmEGCfyc8FIdpbLSodygUNCEBWaGj
ZpNiNS47TB5+X0cEh/33pBaPV6ODbE250gMiXBLNiB89VY2dM/GKtAoimAk6
2peTqzGLqqGwVkQE3a9r600LqrEsh3HUKoMIO+s1LVJFajCm+vPBp55EaD1V
tCi8oRbVI+wWphWJIOYcdUR2ug638jVaG91zgjX7rHWdi3VYOqSprlrqBGMW
d/tceeox03jwQGSxE+QZdHtWStajm9yu9TJ5TiAtuYulbVOPwv+mPqWkOIHc
UKGqeW89FgU3DEr6OMERw3a18PoGFD/70Pi5jhMYSvFojiQ9xC1Hz+OeIUew
F02YPRPcjMLh3O1Rio6wFHrbg9+iFe01MneEJDiAWspKi/G2dtSnfU7/ssEB
FC7XD/e3PMZZ6bCT2VlXYJWPq0D7Rgdqc3pnueWvgJ9NipaCaSfORMoYpT2/
DF3RzKivCs/xVMWz9YEel+ENdX8G/1oXOuz6u5Jf7DKkbHhPu1P5AgMVpqZ4
yuwhRVuEe7NhL/rVB7TuFbeHw2emK2Ol+vB4mOKtyjt2cMzYt95720t0Gs/6
MiFjB7mS1TLrl19i9oXtVolVtjDSl+0/MvAK4TxJoMTUFiKuGh4QbevHYveK
2ykzl2BtMr0mL28AZe4U2wxevwRDGunlzwMGkbq56AdZ+xKIeRNWHIlDmB8v
++3ytA0cjWtWhROvMUKrOqyFYQNN8XMt0crDKM1oEzhmYgMFrs+qfPeOoHx6
ZZvEOhuw2X82sWRhBC3YfacXm6wh/Elak/H4G2xQd+MKDLKGwBPhw/IPRzHj
etXygq419N4UtWBlvEXXlzFjXnzWkPZP8KGS8DFsHP7a+2enFSisRLwft/kH
pTM06d/TrGBPhGxY24FxbL+2tWfAxgp4vMZWa9LGcfn2etNT8lYgfv5TeRjX
BBK+a+eTf1jCvMzljaG+Eyjh5ud7sMMSmNOFIzlTE7jlYBdzimEJojkmhEWb
SbQYIr/lc7WERr3TfOJ9kzgqOv56s64lGPXvk3PWfYfNg8+6ibssIdrGdOkD
+x0KnD5kVfCBAKwXF48m7Z/CScZW9dk2Amw6wmbyJk9hz930QP5cAuyL9X5W
ycfB9lK9eDF/Auzq5rcLp3Fw2lhZpfcCAQJdHMtdfDh42HMuW/23x/ibVi74
cdDvZik/w5wARXq+2fJBHNwwJ/fPFTMCHKudev0ygoNKqZJJC6YEsC5oMZdJ
5aD36PbZ3SYEuB0QdOpZBQe5PReLbU8QgHvP0A02i4MmN1k7WpEAJLbq+9ts
Dqa3UcNkf1t5foZOq+WgzO45i3ldAjQ7WbaLNnPwVAOH75o2ASZNNX5/KAeT
+YYcC48SwGguOcmqj4PDhzN6BH6bGTf7Vv8VB6UtzbXcNQlAe1wQLDzEwSpm
j5CmBgF4tYTqW8Y4OGT6tKVDlQCU1+4bysY5KBlAV1L87W6fTsvMSQ5S7hgw
ko8QILMi/D+XaQ7+XGymWqkQ4OfZUaOL7zmoLx42+lCZAHYfj2bCBw4mGOuc
lP7t1pg0jvwsBweoy1X0wwSQk51X3/mJg+I36yQ+KhHgfyGeKoY=
      "]]}}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.0014147564060295113`},
  BaseStyle->{FontSize -> 14},
  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]],
  ImagePadding->All,
  ImageSize->{468., 289.23990673495075`},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.698258172096442*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "doApndxcLim.m"}], ";"}]], "Code"],

Cell[BoxData["\<\"Running doApndxcLim\"\>"], "Print",
 CellChangeTimes->{3.698258172131688*^9}],

Cell[BoxData[
 TemplateBox[{
  "FindRoot","srect",
   "\"Value \\!\\(\\*RowBox[{\\\"32.93868080746309`\\\", \\\" \\\", \
RowBox[{\\\"Log\\\", \\\"[\\\", \\\"m\\\", \\\"]\\\"}]}]\\) in search \
specification \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"n\\\", \\\",\\\", \
RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"Log\\\", \\\"[\\\", \\\"m\\\", \
\\\"]\\\"}], RowBox[{\\\"Log\\\", \\\"[\\\", \\\"\[CapitalThorn]\
\[CapitalGamma]PF\\\", \\\"]\\\"}]]}]}], \\\"}\\\"}]\\) is not a number or \
array of numbers.\"",2,42,13,20869063241767631043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.698258172941511*^9},ExpressionUUID->"9f270818-f37e-4fdd-8177-\
2f46b7f94ab7"],

Cell[BoxData[
 TemplateBox[{
  "ReplaceAll","reps",
   "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"FindRoot\\\", \\\"[\\\", \
RowBox[{RowBox[{RowBox[{\\\"m\[Sharp]\\\", \\\"[\\\", \\\"n\\\", \\\"]\\\"}], \
\\\"\[Equal]\\\", \\\"m\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"n\\\", \\\",\\\", RowBox[{\\\"-\\\", \
FractionBox[RowBox[{\\\"Log\\\", \\\"[\\\", \\\"m\\\", \\\"]\\\"}], \
RowBox[{\\\"Log\\\", \\\"[\\\", \\\"\[CapitalThorn]\[CapitalGamma]PF\\\", \
\\\"]\\\"}]]}]}], \\\"}\\\"}]}], \\\"]\\\"}], \\\"}\\\"}]\\) is neither a \
list of replacement rules nor a valid dispatch table, and so cannot be used \
for replacing.\"",2,42,14,20869063241767631043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.6982581729574547`*^9},ExpressionUUID->"9274a423-35b1-4545-a8eb-\
6a1f490ca457"],

Cell[BoxData[
 TemplateBox[{
  "FindRoot","srect",
   "\"Value \\!\\(\\*RowBox[{\\\"32.93868080746309`\\\", \\\" \\\", \
RowBox[{\\\"Log\\\", \\\"[\\\", \\\"m\\\", \\\"]\\\"}]}]\\) in search \
specification \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"n\\\", \\\",\\\", \
RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"Log\\\", \\\"[\\\", \\\"m\\\", \
\\\"]\\\"}], RowBox[{\\\"Log\\\", \\\"[\\\", \\\"\[CapitalThorn]\
\[CapitalGamma]PF\\\", \\\"]\\\"}]]}]}], \\\"}\\\"}]\\) is not a number or \
array of numbers.\"",2,42,15,20869063241767631043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.698258172977437*^9},ExpressionUUID->"02e2cbb8-eb3c-4da2-8f96-\
416bd7714271"],

Cell[BoxData[
 TemplateBox[{
  "ReplaceAll","reps",
   "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"FindRoot\\\", \\\"[\\\", \
RowBox[{RowBox[{RowBox[{\\\"m\[Sharp]\\\", \\\"[\\\", \\\"n\\\", \\\"]\\\"}], \
\\\"\[Equal]\\\", \\\"m\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"n\\\", \\\",\\\", RowBox[{\\\"-\\\", \
FractionBox[RowBox[{\\\"Log\\\", \\\"[\\\", \\\"m\\\", \\\"]\\\"}], \
RowBox[{\\\"Log\\\", \\\"[\\\", \\\"\[CapitalThorn]\[CapitalGamma]PF\\\", \
\\\"]\\\"}]]}]}], \\\"}\\\"}]}], \\\"]\\\"}], \\\"}\\\"}]\\) is neither a \
list of replacement rules nor a valid dispatch table, and so cannot be used \
for replacing.\"",2,42,16,20869063241767631043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.6982581729955387`*^9},ExpressionUUID->"6f38be08-edc7-46b5-a5a4-\
98b741855554"],

Cell[BoxData[
 TemplateBox[{
  "FindRoot","srect",
   "\"Value \\!\\(\\*RowBox[{\\\"32.93868080746309`\\\", \\\" \\\", \
RowBox[{\\\"Log\\\", \\\"[\\\", \\\"m\\\", \\\"]\\\"}]}]\\) in search \
specification \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"n\\\", \\\",\\\", \
RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"Log\\\", \\\"[\\\", \\\"m\\\", \
\\\"]\\\"}], RowBox[{\\\"Log\\\", \\\"[\\\", \\\"\[CapitalThorn]\
\[CapitalGamma]PF\\\", \\\"]\\\"}]]}]}], \\\"}\\\"}]\\) is not a number or \
array of numbers.\"",2,42,17,20869063241767631043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.698258173014985*^9},ExpressionUUID->"4395462a-6311-47a6-8efb-\
53ac31725407"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"FindRoot\\\", \
\\\"::\\\", \\\"srect\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,42,18,20869063241767631043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.69825817303253*^9},ExpressionUUID->"d63c70ed-3810-4136-b2a9-b2af1e383068"],

Cell[BoxData[
 TemplateBox[{
  "ReplaceAll","reps",
   "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"FindRoot\\\", \\\"[\\\", \
RowBox[{RowBox[{RowBox[{\\\"m\[Sharp]\\\", \\\"[\\\", \\\"n\\\", \\\"]\\\"}], \
\\\"\[Equal]\\\", \\\"m\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"n\\\", \\\",\\\", RowBox[{\\\"-\\\", \
FractionBox[RowBox[{\\\"Log\\\", \\\"[\\\", \\\"m\\\", \\\"]\\\"}], \
RowBox[{\\\"Log\\\", \\\"[\\\", \\\"\[CapitalThorn]\[CapitalGamma]PF\\\", \
\\\"]\\\"}]]}]}], \\\"}\\\"}]}], \\\"]\\\"}], \\\"}\\\"}]\\) is neither a \
list of replacement rules nor a valid dispatch table, and so cannot be used \
for replacing.\"",2,42,19,20869063241767631043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.698258173049652*^9},ExpressionUUID->"100b9e4c-48b9-4655-8cc6-\
867a20fa12ab"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"ReplaceAll\\\", \
\\\"::\\\", \\\"reps\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \
this calculation.\"",2,42,20,20869063241767631043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.698258173068182*^9},ExpressionUUID->"64de0c31-9153-4b96-9eda-\
0c68178f4f3e"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     {GrayLevel[0], Thickness[Medium], Opacity[1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwBGIQ7ZX64uKBl6l2MJrFWargvqSLPYw2nj9jzmbJEDjt
ffb6prmSKXA6POX73kmSJXD6rn67c69kC5xeIOrf1iU5BU43cmxW75RcAqcj
Iheu//BxC5zm/t8Y4y63H06rBr57cbj7CJwuP2dpP+PLSTgtvkXwHiPjeTi9
7ZHzmfM2l+D0oay50pFvrsDpr2q2/Gtzr8Nppp+rBaRVb8Fps/8J24LX3YHT
Z1pMzh3Tug+n5Se8/rny3QM4/fr7/XtXDR7B6SWvdp/i63sMp/lkl79/8uQJ
nO7J3Jq2QOUZnP7msPpJRv1zOF1idGSL2OEXcPr+uiPdFxVfwenfWVdma1a9
htPajuz/0na/gdPuixTTN4q/g9PlsvFKD2Pew+mkAIOwO4kI2q+Zset6GoJW
e7n449kCBH1ly4sDu1oQtIFPUfyUNQj6RVXrHPc/CPpVmHbGQoYPcDrhgzCT
PDOC9lZ+airFgaCVOtvnCggh6AshZ3L+qiJonTeh3Nd9EfSOEJ/9XQEI2nmv
U7FdMIKO6tO/vTQCQXcacK4uSUbQz0r2eAlVIujFfUZzllYjaAAsT4qu
       "]], 
      LineBox[CompressedData["
1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAAZVpcFN+A8D9V66RD2YDwP0O5b+qv
jvA/jKG2rM+N8D+g/SKKTaTwP8PMCzrLn/A/LGYZPgGn8D81E/UP3KHwP7fO
D/K0qfA/5zgqJuOj8D/On/xZHK/wPyQlbc7Up/A//UHWKeu58D+rlggrS6/w
P4iqzN2evPA/xuwDIBOx8D8UE8ORUr/wP1IoNcvSsvA/LOSv+bnE8D/QUi7/
ObbwP1qGicmIz/A/DYsu+qy88D/m7n99PNLwP0wijL03vvA/cVd2MfDU8D8p
pQmtu7/wP4goY5lX2vA/2nBZy6/C8D+2yjxpJuXwP7E1/yFOyPA/Ew/wCMT6
8D9jIvwcjNLwP9K9iodJ/fA/tD0lIavT8D+SbCUGz//wP9fisLvG1PA/Espa
A9oE8T/IaN9L9NbwPxKFxf3vDvE/obYmAC3b8D8Q+5ryGyPxP7f0yPQ14/A/
e+scessv8T+DFUTSF+jwP45iw1s=
       "]], 
      LineBox[{{1.0754441703715678`, 1.0571500995977208`}, {
       1.1006199702932813`, 1.0665168382691128`}, {1.1433199410560302`, 
       1.0813578131435677`}, {1.1852403893468402`, 1.09464799771041}, {
       1.186950332026888, 1.09516318949059}}], LineBox[CompressedData["
1:eJwVz30s1HEAx/HzFNUwD8201IgVUmEoVp+eM09xZyw6GcekJDIPPbrmZElk
5qkQStFyhJZ2law1bplyiYpjNItOufv+cHcevv3647PPXn++bWOSuXG6HA7H
kd3/twmSWmt0CVrDBPzIm0p08I7rlRxhkM+tyHYZV+K6r6imfYpBuuKtIM1I
BdtRv+F60Ty8fOoG37io4O2VU2LttgB/i+9rnUNVOLW5X6MjW0D380kI0lWY
lxZMXBAuwuoAb3qxQoVy/ag0rr0a8eUREXOdKljIO+p036sx1nMwCcMqGFwV
hu5N0cBh6LK3lVoFTmOUeMJci7YamM5ZEqRWigvMu7XoZLq+hrkTvHbOMzI7
v4T+1JrMuGACM7/UHTdMlsFkXPP9kUgw4vJJliVZRuCScf5ULkFLNex/Rq3A
PqHRT/SAgC/2NLNZXUFtVdSCQydBtqhWONK0iqMmRhWRMoJnv2zumQRQfFyS
Kvm/CfKqRNHyIAqS6+DZw1rAnXVoDqHwXE5OdVMQbJJIWgLDKcS3RwfWzBLc
Koz8cDuGdcxJd/EfggTPCuW6LApB3ru0VSWBXY6lr2EDhaFHgVGZmmB1zxXj
oScUW4V2Jzgagm+zkwMNTykeW8wWnGFdFN7GP9ZK0ZPuxPhoCagT96JIQlGr
yI4dX2J7PxdW68koSvcl92+jBC9zF2NlgxTSHF5lEesSn9OO9cMUgSF3+BrW
/o92th+SUxQ3mvZJOQxeZfb1CqfZnuRLwUm6DEpdPApDFBRnqb98kHXKxP1Q
278Uk5E5gv16DLYHnBvrYijk+a4RpvoM9HW+PCxapDgc39SbwXq8wycxWkvR
vLHYdZy1JLF+1+4VCl7TzF1fAwZlW9bPU0qRveHFTAvrf3jQXw8=
       
       "]]}, {}}, {{}, {}, {}}}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 14},
  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]],
  ImagePadding->All,
  ImageSize->{468., 289.23990673495075`},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 2}, {0., 1.251389424172288}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.698258173082213*^9}],

Cell[BoxData[
 TemplateBox[{
  "FindRoot","lstol",
   "\"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 \
\\!\\(\\*RowBox[{\\\"MachinePrecision\\\"}]\\) digits of working precision to \
meet these tolerances.\"",2,42,21,20869063241767631043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.698258173127562*^9},ExpressionUUID->"726a9930-437b-4e38-b883-\
bf71171b94bd"],

Cell[BoxData[
 TemplateBox[{
  "FindRoot","lstol",
   "\"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 \
\\!\\(\\*RowBox[{\\\"MachinePrecision\\\"}]\\) digits of working precision to \
meet these tolerances.\"",2,42,22,20869063241767631043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.698258173145783*^9},ExpressionUUID->"9d78163c-28ab-4da0-8b0d-\
b8c8fdfdea10"],

Cell[BoxData[
 TemplateBox[{
  "FindRoot","lstol",
   "\"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 \
\\!\\(\\*RowBox[{\\\"MachinePrecision\\\"}]\\) digits of working precision to \
meet these tolerances.\"",2,42,23,20869063241767631043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.698258173167397*^9},ExpressionUUID->"1606a733-c14c-4903-a678-\
ace5551c83a5"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"FindRoot\\\", \
\\\"::\\\", \\\"lstol\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,42,24,20869063241767631043,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.698258173184743*^9},ExpressionUUID->"5c5c70ab-85c6-4731-9672-\
5161e50960c0"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     {GrayLevel[0], Thickness[Medium], Opacity[1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAWIQ7ZX64uKBl6l2DGDwwV4yL/6Mu+Ekexh/gah/W5fk
FDg/UfdC2oOp0+H8Ro7N6p2SS+D8iMiF6z983ALnf5hRbbd9w044n/t/Y4y7
3H44P//+iXmZCw/C+aqB714c7j4C55efs7Sf8eUknG/9vKKY6+xpOF98i+A9
RsbzcP4VrV9qrUaX4Pxtj5zPnLdB8A9lzZWOfHMFzv+qZsu/Nvc6nM/0c7WA
tOotON/sf8K24HV34Pw1i6/KLv12F84/02Jy7pjWfThfc7azTdYFBF9+wuuf
K989gPNDnuT3Rxo8gvNbpyy5nx3/GM5f8mr3Kb4+BD8yjUvTcd8TOJ9Pdvn7
J08QfH8jhVsP2Z7B+T2ZW9MWqCD4ncf+Vy2qfw7nlxgd2SJ2+AWc/81Z5P/n
ZS/h/PvrjnRfVHwF5//OujJbs+o1nK/tyP4vbfcbOH/W1/U7Kl4j+O6LFNM3
ir9DxJ9svNLDmPdw/ouq1jnufxB8nTeh3Nd9PyDca8C5uiQZwX9WssdLqBLB
X9xnNGdpNYIPALrf6/E=
       "]], LineBox[CompressedData["
1:eJwVjH0s1HEAh6/CacpLLq+paIk6SSdbefkUbdgSWdIdRUVb62JeaolG5LyH
Cyu3cl4S0m5K2fUyKYUr59ya7s77u4nz/XnZIjfpj2fPnn8e68vRgZEbaTQa
c53/juSEMgZTCDIu+L/si5kDw7TEYjiNQD+V/euVTA1hcq60iEcw29NyzsVT
DeZUaqpPFkG7OO7S6JtZeImjp0UPCF7YN5q9q5yBUGOT7VdF8MjMWcxvmALz
qrnHhucEnO0Gn3Tdp9AkNZhvrCXwErICaySTkJatsneICEbD2GYRMxPQnOix
/y0mUPFMmVLfcWTW/eh/+oGgfsEjr2BiDAzjL4WBzQTn1aKEpPQxMMdEy+JW
gpq8qEVZxyg4vKyOzC6C6PiLMVzuCCbUyXfd5AR6Z+TMRIsRxATfciI/CT6/
z497LRlGpt2Vx8EqArrrZIXQaRiMQrafXj/BY/97OUFTQyhb9t/QPEjgOR+x
xiofwluJ2zXbcYLYYd2sG+ZD8GSxrFSTBPMhfPfChkF0Cuy786YJmEbVyaXO
gxjjmhxdmiMI7eJ5V3sPwNiA6LauEJwVOExUlPdB/jE7w1dD4KYjqrPx7QOf
u1ena42gOOVw7tXFXmyTcDaptCjQq1B97Fwv5LeX7oXRKezy6xiQbOkFf18B
bXwzhU7tIOddbSpsS/+qmdOnMPMs1oXhrYKcFZ5004gCO09rtHGLCvyRlZUV
Ywqc+4/qzXuUCCwsTkgxobCQffChZ6USRscP/dE2p+Bc/q3EMV4JmVpyK8eS
gnZbeNOQjxIFTyKXDHeu/1ZXF4OslQg4RYsv2U3h5AmBf75GAcO/pfOWeyi0
F7u25fYrIKs9ElO+l8LAcn/I6RYFCs7L5mztKPBupG79WaNAAP16VP1+Ct+I
XZ9VkQIGb7VnnRwoCNO62w6kKSCNEF5vcqRgaJsk09xUIPH3jjvf11sluMSt
Wu9/OHpxVQ==
       "]], LineBox[CompressedData["
1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAAPbdG8gQ18T/9GJOdimTYP84fC2bN
OfE/Is2jaLxW2D+OzqXkUjzxP0hZ30d1T9g/DSzb4V1B8T+YcVYG50DYPwzn
RdxzS/E/NaJEg8oj2D/MleBa+U3xP1sugGKDHNg/jER72X5Q8T+CurtBPBXY
PwuisNaJVfE/0tIyAK4G2D8KXRvRn1/xP24DIX2R6dc/CNPwxctz8T+oZP12
WK/XPwS/m68jnPE/HCe2auY61z/aPERI357xPyvdvCEDM9c/r7rs4Jqh8T8+
k8PYHyvXP1q2PRISp/E/YP/QRlkb1z+xrd90ALLxP6HX6yLM+9Y/XpwjOt3H
8T8niCHbsbzWP7h5q8SW8/E/MumMS30+1j9rNLvZCUvyP0urYywUQtU/q0li
oL728j+ge5s0eVLTPzQsIT4/+fI/tgN+KEBL0z++DuDbv/vyP8mLYBwHRNM/
W4Kgob/98j9eyNvzQT7TP/uKtAQ=
       "]], LineBox[CompressedData["
1:eJwVjnkw1nkAh3kjWkM5qtU41o5tE6VV6TDTZ4YcuYoirKNU1lRevTqkyZRd
Wls5yotXjpa3LCHkyPFqzZdyTe+pTTmSci2mdn+/91XCd+0fzzz/PH88FuHR
vic4ampqTkv8b1PvbuPPHAZZ0bk77WwV2BNz4HKnGYO9Vuar/d7KIb2zJ0Du
wkD0TKCaipUjMH5B6buPQd1m51Q+T46RMFGGwoOBwDXffe8pOVjL3ZLeAwxU
hRfVG0PlMK7c7vIyiEGHNc9E5SxHeJvNtgEuA3frI8O1q+VQTq1bNZbFILKq
qVzVKAM/f7wjL4eB1nLBBVWNDFv31145mMdgOq1Ea6FCBt4jrw+thQxWKvie
ZkUyzFy8Ks4tZ5Be0MGpui7DqObYTR/CgJwIiNEMkeGFefWKlhkG9/wzed8v
l6HuoOsy/l4WyfvFb7UjpUj2aEgycWXBMXLcUXNMimAnK+37+1i8xqjL0TAp
OFt1dOu9WVTae8Z3+kvhbSBZ0xfAomLSpZg4SzEh9d9oEsWieWCz6VFLKdZ5
R/jcy2ThI7ANc+2U4Ipb0t3aMRY27VO1La/EkIdGBm+ZZMG9MD3eIxfD8ryH
cfkUC1u73ug3PWJ0F+pnCD8u/aGJt+aJGEZf8q/dnmMRfM57uq1IjJKK+qgz
ekoYaDoNG0eJITWYcLCxV8JhcVdgiKYYFoPufcIkJeL0yoI4Ts+xe0ci39hO
hZGgLt3fpD0INpN8Vleo4BWfExlc2g1ld8rImYRZ+D7PDnmQ0QWBRug5X8tP
kBxoif+pqhOGQ3VFnPZPGMxJOa3xdwc04xMO7eJ9huXHiF/OWXVArTS0csRg
Dpf0tcXcX58h5k5ligGZw/pETvo3E0/RYp2src/9gj2tV+L6A59C3z3G5me9
eeiZ3vXTGG7HwCapIk40j/NuNxZ2RrSjqgCW70MX0Dyt+8PifBtCKu31TRcX
oM2udf4rrw1XkwoTBh4soqFsR3iiQxsqJkxz9TwpWmH4JHOMIDk/6ciQN8Vj
ZcGl9aMEx31nvnvoQzHoVZz3+B2BiUhU5XWYwl2dt6p/mOB62o/PboZTjDFz
1ev7CSLtc/75Ko4irNmjTioh+DbRyE2rmCJ9eVEit5Fgcedl3ZclFKnawhyd
BoJXM+/kxWUUX/64pVdaT5B+uCbEpZpCWHRj7WgNAd3oezZJRKEV61h49CHB
gCytYJmCwqc3gXtaSNBwbfaY4gXFmtkQ7soiAr5DmJWwj6JlRULPo98JPO5v
rnUcoqh3VubN5RM0XXzelTBJcapVR5AqIMjatD3NZ5ri6ll+/LZsAt5I3iGL
DxTjvV//+TqTYIPn6Tet7FKfe8ZvQwaBhnrvvfRZim67f0sltwiG6xxOHpmj
UBvsCYxNJxCdFNpuWaAwnOw9bp5GkG2uo6SU4nbz++6OFIL/AFEnLNY=
       
       "]]}, {}}, {{}, {}, {}}}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 14},
  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]],
  ImagePadding->All,
  ImageSize->{468., 289.23990673495075`},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 2}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.698258173837596*^9}]
}, Open  ]]
},
WindowSize->{808, 911},
WindowMargins->{{Automatic, 22}, {94, Automatic}},
FrontEndVersion->"11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 18, \
2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 2625, 67, 357, "Code", "ExpressionUUID" -> \
"66b1abf8-6e7c-4210-aab1-25591743efb1"],
Cell[CellGroupData[{
Cell[3208, 91, 1039, 26, 205, "Code", "ExpressionUUID" -> \
"d41dd9da-36a6-41ab-8b91-3000de6af7d3"],
Cell[CellGroupData[{
Cell[4272, 121, 435, 9, 24, "Print", "ExpressionUUID" -> \
"2e553555-4bba-4574-979f-81b8aa132a60"],
Cell[4710, 132, 377, 8, 24, "Print", "ExpressionUUID" -> \
"1694fced-8296-4186-bb3a-ac022b82884e"],
Cell[5090, 142, 253, 4, 24, "Print", "ExpressionUUID" -> \
"a84bb402-89f8-4619-89ad-096887cf72e3"],
Cell[5346, 148, 258, 4, 24, "Print", "ExpressionUUID" -> \
"68289832-1e85-45b5-b90c-c8e075e7fd35"],
Cell[5607, 154, 418, 9, 24, "Print", "ExpressionUUID" -> \
"23784040-c619-4274-8e22-0d04606e206a"],
Cell[6028, 165, 256, 4, 24, "Print", "ExpressionUUID" -> \
"303e8b1a-67e6-4ef6-a602-879f9185b8c2"],
Cell[6287, 171, 7166, 139, 297, "Print", "ExpressionUUID" -> \
"aafe9f69-b666-48ed-a094-d830880b7494"],
Cell[13456, 312, 269, 4, 24, "Print", "ExpressionUUID" -> \
"7589f909-1e42-4890-bb38-fe7354c4eb01"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13774, 322, 921, 22, 186, "Code", "ExpressionUUID" -> \
"2056b67e-5f44-4c31-98a2-1fc7a665dd08"],
Cell[CellGroupData[{
Cell[14720, 348, 236, 4, 24, "Print", "ExpressionUUID" -> \
"f1300d23-6830-450e-86fb-d73c2944d0e7"],
Cell[14959, 354, 394, 9, 24, "Print", "ExpressionUUID" -> \
"2ed32795-f09c-4cfe-9353-76e4068d9af9"],
Cell[15356, 365, 232, 4, 24, "Print", "ExpressionUUID" -> \
"54611e4b-d3f0-47c6-8572-fdc0ed7e57b4"],
Cell[15591, 371, 235, 4, 24, "Print", "ExpressionUUID" -> \
"627942a6-3f95-45f7-8160-84bae770d26c"],
Cell[15829, 377, 13109, 240, 297, "Print", "ExpressionUUID" -> \
"855c1773-a111-47fe-a6fe-2de5cf2c6d74"],
Cell[28941, 619, 249, 4, 24, "Print", "ExpressionUUID" -> \
"dcc7f67f-c06a-4ed8-826a-687ec169cf05"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29239, 629, 922, 23, 186, "Code", "ExpressionUUID" -> \
"80c759c5-2435-4bcc-9424-8e42d9430a48"],
Cell[30164, 654, 503, 10, 24, "Message", "ExpressionUUID" -> \
"152e8a5c-a626-4845-9731-25d3298f275d"],
Cell[30670, 666, 503, 10, 24, "Message", "ExpressionUUID" -> \
"025de4f5-a3e4-4f13-9135-a519fac4c627"],
Cell[31176, 678, 503, 10, 24, "Message", "ExpressionUUID" -> \
"b57f5a16-b840-4a5b-98ce-392067b9914a"],
Cell[31682, 690, 485, 10, 24, "Message", "ExpressionUUID" -> \
"087df199-d262-4d80-ace8-b80f53e60076"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32204, 705, 155, 3, 52, "Code", "ExpressionUUID" -> \
"405e5899-8a16-402a-9029-bff464525957"],
Cell[CellGroupData[{
Cell[32384, 712, 232, 4, 24, "Print", "ExpressionUUID" -> \
"954bca56-ce18-4efc-92fe-6cffaec698d7"],
Cell[32619, 718, 16914, 317, 297, "Print", "ExpressionUUID" -> \
"3048636d-9a5f-4b85-8aa0-fb7c5750900f"],
Cell[49536, 1037, 248, 4, 24, "Print", "ExpressionUUID" -> \
"6dd64308-cba5-413c-822a-365932c9b1df"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[49833, 1047, 137, 3, 52, "Code", "ExpressionUUID" -> \
"4ae70998-8649-42e4-ab59-566ff6aac041"],
Cell[CellGroupData[{
Cell[49995, 1054, 234, 4, 24, "Print", "ExpressionUUID" -> \
"ef8f0477-07cd-4010-b8b9-61489335add1"],
Cell[50232, 1060, 8191, 183, 297, "Print", "ExpressionUUID" -> \
"47bd8072-6141-42c3-af28-e5b348956f40"],
Cell[58426, 1245, 248, 4, 24, "Print", "ExpressionUUID" -> \
"7d503bd4-bd29-4635-ae9a-3b77beb8c9b6"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[58723, 1255, 131, 2, 52, "Code", "ExpressionUUID" -> \
"0ee29405-fe87-4931-a886-dab77e7b51f8"],
Cell[CellGroupData[{
Cell[58879, 1261, 228, 4, 24, "Print", "ExpressionUUID" -> \
"9aa747c6-8e94-4915-a59f-7262ff2719fd"],
Cell[59110, 1267, 10264, 195, 297, "Print", "ExpressionUUID" -> \
"1534cd31-5bed-4418-9b50-1c4180b712bd"],
Cell[69377, 1464, 244, 4, 24, "Print", "ExpressionUUID" -> \
"3197c585-714c-489b-96c8-93292c342ebd"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[69670, 1474, 137, 3, 52, "Code", "ExpressionUUID" -> \
"8d856e8e-1a4d-4969-98a7-b3e8d130c219"],
Cell[CellGroupData[{
Cell[69832, 1481, 234, 4, 24, "Print", "ExpressionUUID" -> \
"30f22af0-7956-46f4-8db5-e48b841b33ed"],
Cell[70069, 1487, 6358, 137, 297, "Print", "ExpressionUUID" -> \
"b933ec55-086c-4b0d-af79-eae7553496e6"],
Cell[76430, 1626, 252, 4, 24, "Print", "ExpressionUUID" -> \
"f0cdef38-f3a8-4b11-9ece-9fe2c9e5f1d1"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[76731, 1636, 133, 2, 52, "Code", "ExpressionUUID" -> \
"95872a86-67e5-42ba-bbad-e52d431bbfbd"],
Cell[CellGroupData[{
Cell[76889, 1642, 229, 4, 24, "Print", "ExpressionUUID" -> \
"62306135-ab26-4bfa-a007-f3ac1b319d7c"],
Cell[77121, 1648, 233, 4, 24, "Print", "ExpressionUUID" -> \
"683f1a3d-964a-4e63-923d-18f09cf9e6a3"],
Cell[77357, 1654, 215, 4, 24, "Print", "ExpressionUUID" -> \
"4311a9d5-4027-4ff0-8aff-71ad75b1a98e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[77621, 1664, 139, 3, 52, "Code", "ExpressionUUID" -> \
"16a9664c-30fa-4c59-b065-0f2564c33b67"],
Cell[CellGroupData[{
Cell[77785, 1671, 187, 3, 24, "Print", "ExpressionUUID" -> \
"f711eaae-253f-4f1f-b6fd-53f7ac4594b6"],
Cell[77975, 1676, 21220, 364, 386, "Print", "ExpressionUUID" -> \
"8a46b01f-2174-457f-8b74-624a275b46f7"],
Cell[99198, 2042, 205, 3, 24, "Print", "ExpressionUUID" -> \
"755846e4-0bd0-4e98-9a26-bcc572f13e19"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[99452, 2051, 131, 2, 52, "Code", "ExpressionUUID" -> \
"27080653-8a99-4d04-9ac4-a9ecebd2bd8f"],
Cell[99586, 2055, 181, 3, 24, "Print", "ExpressionUUID" -> \
"22479068-bd71-438a-9775-d2fd413962e9"],
Cell[99770, 2060, 139, 3, 32, "Output", "ExpressionUUID" -> \
"a389a423-6985-43ad-ac92-3abb5b8add8e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99946, 2068, 80, 2, 52, "Code", "ExpressionUUID" -> \
"c65959e2-9d27-45cc-be5f-09be00fd349c"],
Cell[CellGroupData[{
Cell[100051, 2074, 103, 1, 24, "Print", "ExpressionUUID" -> \
"30fcda5a-ebe2-4f05-b301-db4b41ec6863"],
Cell[100157, 2077, 2722, 60, 297, "Print", "ExpressionUUID" -> \
"7b029431-25d5-4d2d-bda4-45ea27a459d7"],
Cell[102882, 2139, 119, 1, 24, "Print", "ExpressionUUID" -> \
"c9dc1bd1-13cd-451c-b820-711f030ea008"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[103050, 2146, 79, 2, 52, "Code", "ExpressionUUID" -> \
"28adde6e-99bf-4751-a663-16be1096a5f3"],
Cell[CellGroupData[{
Cell[103154, 2152, 392, 11, 24, "Print", "ExpressionUUID" -> \
"850d5e9e-6f0d-47e0-8f8c-9694cb34cf17"],
Cell[103549, 2165, 286, 6, 24, "Print", "ExpressionUUID" -> \
"041cb4bf-edc6-4335-95dd-5981ede9a8a0"],
Cell[103838, 2173, 571, 13, 25, "Print", "ExpressionUUID" -> \
"b85e3059-e1fc-4f4f-8f89-efbe584c2f5a"],
Cell[104412, 2188, 379, 8, 25, "Print", "ExpressionUUID" -> \
"f0c4d3f9-cde1-4cfe-b4f5-11b8aea4a297"],
Cell[104794, 2198, 254, 6, 24, "Print", "ExpressionUUID" -> \
"70456664-4950-49de-9839-6e83a023a7ef"],
Cell[105051, 2206, 278, 6, 24, "Print", "ExpressionUUID" -> \
"004904cd-f8de-40e3-b4ba-cca05920ea80"],
Cell[105332, 2214, 9161, 172, 297, "Print", "ExpressionUUID" -> \
"f7784cd0-1cd0-4111-a5db-8170f2652077"],
Cell[114496, 2388, 392, 11, 24, "Print", "ExpressionUUID" -> \
"af1a3ab9-00f8-4976-b8da-783da4213319"],
Cell[114891, 2401, 598, 12, 25, "Print", "ExpressionUUID" -> \
"9b41b667-503c-471f-b3c7-6b1039d381b7"],
Cell[115492, 2415, 266, 6, 24, "Print", "ExpressionUUID" -> \
"bff967f6-619c-4fee-8799-e9e0b9875e49"],
Cell[115761, 2423, 286, 6, 24, "Print", "ExpressionUUID" -> \
"924c54a3-cc0b-457d-aa33-fdd6cef5c9d4"],
Cell[116050, 2431, 252, 6, 24, "Print", "ExpressionUUID" -> \
"2f0297df-918a-4245-a3ac-946541876fd2"],
Cell[116305, 2439, 256, 6, 24, "Print", "ExpressionUUID" -> \
"61ce62e0-5a35-49f8-8bd9-10698bfc103b"],
Cell[116564, 2447, 8747, 165, 297, "Print", "ExpressionUUID" -> \
"2c748e10-3d2c-466c-a3a0-dca6a261e73a"],
Cell[125314, 2614, 353, 8, 24, "Print", "ExpressionUUID" -> \
"2e1f5c6c-c9dd-4ffb-bf19-cde3fe90e457"],
Cell[125670, 2624, 464, 9, 25, "Print", "ExpressionUUID" -> \
"d13bfafd-5693-4a21-b1f6-54e020db8c42"],
Cell[126137, 2635, 288, 6, 24, "Print", "ExpressionUUID" -> \
"cf993595-5499-4a39-9e41-7c02895633ea"],
Cell[126428, 2643, 252, 6, 24, "Print", "ExpressionUUID" -> \
"84eaea4d-1cdc-4230-a13b-9fc8b8dcd07f"],
Cell[126683, 2651, 254, 6, 24, "Print", "ExpressionUUID" -> \
"9260125b-faf1-4ab9-a687-db72326facfc"],
Cell[126940, 2659, 423, 9, 25, "Print", "ExpressionUUID" -> \
"98f22187-1863-4f2d-b8ad-011769eb987f"]
}, Open  ]],
Cell[127378, 2671, 1225, 21, 62, "Message", "ExpressionUUID" -> \
"bcf03879-add3-43ba-b689-8e4318acab01"],
Cell[128606, 2694, 814, 15, 42, "Message", "ExpressionUUID" -> \
"a86455e3-d0f7-4898-a021-a63dff214e43"],
Cell[129423, 2711, 1227, 21, 62, "Message", "ExpressionUUID" -> \
"5b197d85-0c10-48d0-9aef-0a94df1a8f63"],
Cell[130653, 2734, 814, 15, 42, "Message", "ExpressionUUID" -> \
"a2739bcf-b962-4125-8e99-3d38854507f4"],
Cell[131470, 2751, 1225, 21, 62, "Message", "ExpressionUUID" -> \
"8e3e7022-499e-4fc6-97f0-af38b4afc5ec"],
Cell[132698, 2774, 402, 9, 24, "Message", "ExpressionUUID" -> \
"c5f53056-3784-4eeb-b339-0a8fc5dd036c"],
Cell[133103, 2785, 815, 15, 42, "Message", "ExpressionUUID" -> \
"114e9167-5209-4994-ad1e-298149f37c07"],
Cell[133921, 2802, 403, 9, 24, "Message", "ExpressionUUID" -> \
"b96f33bc-a398-49ae-93bb-708b6ec81d1c"],
Cell[CellGroupData[{
Cell[134349, 2815, 6219, 119, 297, "Print", "ExpressionUUID" -> \
"f83052a7-0e89-4e4c-812b-123d4c33776d"],
Cell[140571, 2936, 144, 2, 24, "Print", "ExpressionUUID" -> \
"83aeafb1-e703-4cb5-af37-31dcac528b12"],
Cell[140718, 2940, 349, 8, 24, "Print", "ExpressionUUID" -> \
"d0205c51-5a03-4253-9039-ab1503551cba"],
Cell[141070, 2950, 349, 8, 24, "Print", "ExpressionUUID" -> \
"264f2de0-3f7c-4472-9146-f6871a01a1d2"],
Cell[141422, 2960, 599, 12, 25, "Print", "ExpressionUUID" -> \
"41b2cf34-a3a2-44ce-86b2-be1654da9020"],
Cell[142024, 2974, 288, 6, 24, "Print", "ExpressionUUID" -> \
"c1657176-5c16-4490-beec-4c019709b317"],
Cell[142315, 2982, 252, 6, 24, "Print", "ExpressionUUID" -> \
"5c1b0a2d-f3aa-4f55-b1c2-6e824cb07b47"],
Cell[142570, 2990, 253, 6, 24, "Print", "ExpressionUUID" -> \
"5bd624cb-c7dc-465f-b251-7256cec19339"],
Cell[142826, 2998, 603, 12, 25, "Print", "ExpressionUUID" -> \
"bfbe9e9f-04f9-43aa-8c6f-26ea387f3d8f"],
Cell[143432, 3012, 9759, 174, 297, "Print", "ExpressionUUID" -> \
"ea317296-61da-4ebb-abd5-7efa750a166b"],
Cell[153194, 3188, 135, 2, 24, "Print", "ExpressionUUID" -> \
"7581a7f5-0f69-42b5-9c57-938772c8f189"],
Cell[153332, 3192, 4550, 88, 297, "Print", "ExpressionUUID" -> \
"a65f4531-094a-4932-b955-2034a870ecc3"],
Cell[157885, 3282, 142, 2, 24, "Print", "ExpressionUUID" -> \
"c74d97be-2dfe-4a7d-9266-111c6488ec0c"],
Cell[158030, 3286, 351, 8, 24, "Print", "ExpressionUUID" -> \
"0cd56932-d288-4359-88f4-ecada16fc641"],
Cell[158384, 3296, 593, 12, 25, "Print", "ExpressionUUID" -> \
"47625cdf-cc7c-49a0-812b-92cb123f4504"],
Cell[158980, 3310, 286, 6, 24, "Print", "ExpressionUUID" -> \
"8b934401-78d2-4365-b013-9f076b573655"],
Cell[159269, 3318, 252, 6, 24, "Print", "ExpressionUUID" -> \
"7bcc97ee-e46b-4342-8300-e17711b3b727"],
Cell[159524, 3326, 256, 6, 24, "Print", "ExpressionUUID" -> \
"96a521af-ed46-43b1-8a6e-008e1c7dc8f1"],
Cell[159783, 3334, 351, 8, 24, "Print", "ExpressionUUID" -> \
"515bd3d2-c527-4fef-bcc4-290082a7f3b8"],
Cell[160137, 3344, 105, 1, 24, "Print", "ExpressionUUID" -> \
"832ec337-a314-4a77-b827-428203e90522"],
Cell[160245, 3347, 147, 2, 24, "Print", "ExpressionUUID" -> \
"2bae09f3-4b94-4fe0-bd9b-3c21fad4402c"],
Cell[160395, 3351, 5210, 99, 297, "Print", "ExpressionUUID" -> \
"73ab6af1-ff3c-4dba-b252-57f7c2ae23b7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[165654, 3456, 74, 2, 52, "Code", "ExpressionUUID" -> \
"fac8db05-d45b-4283-8783-3b7d1a6ff276"],
Cell[165731, 3460, 95, 1, 24, "Print", "ExpressionUUID" -> \
"89f7f37b-0617-4fd7-83d1-ef4244ae653d"],
Cell[165829, 3463, 688, 13, 43, "Message", "ExpressionUUID" -> \
"9f270818-f37e-4fdd-8177-2f46b7f94ab7"],
Cell[166520, 3478, 820, 15, 63, "Message", "ExpressionUUID" -> \
"9274a423-35b1-4545-a8eb-6a1f490ca457"],
Cell[167343, 3495, 688, 13, 43, "Message", "ExpressionUUID" -> \
"02e2cbb8-eb3c-4da2-8f96-416bd7714271"],
Cell[168034, 3510, 820, 15, 63, "Message", "ExpressionUUID" -> \
"6f38be08-edc7-46b5-a5a4-98b741855554"],
Cell[168857, 3527, 688, 13, 43, "Message", "ExpressionUUID" -> \
"4395462a-6311-47a6-8efb-53ac31725407"],
Cell[169548, 3542, 399, 8, 24, "Message", "ExpressionUUID" -> \
"d63c70ed-3810-4136-b2a9-b2af1e383068"],
Cell[169950, 3552, 818, 15, 63, "Message", "ExpressionUUID" -> \
"100b9e4c-48b9-4655-8cc6-867a20fa12ab"],
Cell[170771, 3569, 403, 9, 24, "Message", "ExpressionUUID" -> \
"64de0c31-9153-4b96-9eda-0c68178f4f3e"],
Cell[171177, 3580, 3898, 80, 297, "Print", "ExpressionUUID" -> \
"97e0e67d-b4a9-4e3b-85b5-4d810e581737"],
Cell[175078, 3662, 545, 11, 59, "Message", "ExpressionUUID" -> \
"726a9930-437b-4e38-b883-bf71171b94bd"],
Cell[175626, 3675, 545, 11, 59, "Message", "ExpressionUUID" -> \
"9d78163c-28ab-4da0-8b0d-b8c8fdfdea10"],
Cell[176174, 3688, 545, 11, 59, "Message", "ExpressionUUID" -> \
"1606a733-c14c-4903-a678-ace5551c83a5"],
Cell[176722, 3701, 402, 9, 24, "Message", "ExpressionUUID" -> \
"5c5c70ab-85c6-4731-9672-5161e50960c0"],
Cell[177127, 3712, 5167, 102, 297, "Print", "ExpressionUUID" -> \
"9aeb5560-1cca-4ea7-af9c-294adc81d969"]
}, Open  ]]
}
]
*)

