1-exploration.nb

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

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

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    302031,       6920]
NotebookOptionsPosition[    292779,       6756]
NotebookOutlinePosition[    293132,       6772]
CellTagsIndexPosition[    293089,       6769]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
This code is released under the GPL license. Copyright 2018 by Valerio Marra \
(valerio.marra@me.com)\
\>", "Text",
 FontSize->14,
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontColor->RGBColor[
  0, 0, 1],ExpressionUUID->"1df35057-a96d-495e-94a0-0d484796faf7"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["1 Preamble",
 FontColor->RGBColor[1, 0, 1]]], "Section",ExpressionUUID->"f66ae1b8-2596-\
49c1-9dc9-953450f586df"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"mvn", "=", "$VersionNumber"}], "\[IndentingNewLine]", 
 RowBox[{"logD", "=", 
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Get", "[", "\"\<code-stat/Ltools.m\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Get", "[", "\"\<code-stat/triplotF.m\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Get", "[", "\"\<code-stat/triplotCombo.m\>\"", "]"}], 
  ";"}]}], "Input",
 CellLabel->
  "(Local) In[82]:=",ExpressionUUID->"8192d94f-8a8c-4581-ac68-81f6d7aa93e9"],

Cell[BoxData["11.3`"], "Output",
 CellLabel->
  "(Local) Out[83]=",ExpressionUUID->"55985a1f-1899-4b08-9bd6-0d54faf969ab"],

Cell[BoxData["\<\"/Users/rjovale/Documents/GitHub/mBayes\"\>"], "Output",
 CellLabel->
  "(Local) Out[84]=",ExpressionUUID->"17829436-99f5-4ae2-a55e-30eef06fd457"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"maxMemAllowed", "=", 
    RowBox[{"0.8", " ", "$SystemMemory"}]}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{"80", "%", " ", "of", " ", "your", " ", "RAM"}], " ", 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"Row", "[", 
    RowBox[{"{", 
     RowBox[{"\"\<Max memory allowed: \>\"", ",", 
      RowBox[{"Round", "[", 
       RowBox[{
        RowBox[{"maxMemAllowed", "/", 
         RowBox[{"1024", "^", "3"}]}], ",", ".1"}], "]"}], ",", 
      "\"\< GB\>\""}], "}"}], "]"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"intervalBetweenTests", "=", "1"}], ";"}], 
  RowBox[{"(*", "seconds", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"iAmAliveSignal", "=", "0"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Dynamic", "[", "iAmAliveSignal", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"RunScheduledTask", "[", "\n", "\t", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"MemoryInUse", "[", "]"}], ">", "maxMemAllowed"}], ",", 
      RowBox[{
       RowBox[{
       "Print", "[", "\"\<..quitting Mathematica, too much RAM used :S\>\"", 
        "]"}], ";", 
       RowBox[{"Quit", "[", "]"}]}], ",", 
      RowBox[{"iAmAliveSignal", "++"}]}], "]"}], "\n", ",", 
    "intervalBetweenTests"}], "]"}], ";"}]}], "Input",
 CellLabel->
  "(Local) In[88]:=",ExpressionUUID->"3c0fb340-d704-4546-bbfc-942172e359fc"],

Cell[BoxData[
 TemplateBox[{"\"Max memory allowed: \"","51.2`","\" GB\""},
  "RowDefault"]], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[88]:=",ExpressionUUID->"e7b0bb63-db06-4b3e-913f-617bfe7edbec"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Removes", " ", "memory", " ", "limit", " ", "below", " ", "if", " ", 
    "needed"}], " ", "*)"}], "\n", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"RemoveScheduledTask", "[", 
     RowBox[{"ScheduledTasks", "[", "]"}], "]"}], ";"}], "*)"}]}]], "Input",
 CellLabel->
  "(Local) In[94]:=",ExpressionUUID->"f0415793-8b7c-44f3-8211-5ce27648ef6c"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["2 Glue code",
 FontColor->RGBColor[1, 0, 1]]], "Section",ExpressionUUID->"21cf603a-8223-\
4a0c-ac28-50742c4960ab"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"importing", " ", "your", " ", "chi2", " ", "function"}], ";", 
    " ", 
    RowBox[{
    "use", " ", "\"\<chi2=-2log L\>\"", " ", "if", " ", "you", " ", "need", 
     " ", "the", " ", "normalization", " ", 
     RowBox[{"(", 
      RowBox[{"eg", " ", "for", " ", "the", " ", "evidence"}], ")"}]}]}], " ",
    "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "rname", " ", "is", " ", "the", " ", "general", " ", "label", " ", "for", 
     " ", "the", " ", "run"}], ";", " ", 
    RowBox[{
    "output", " ", "files", " ", "will", " ", "start", " ", "with", " ", 
     "\"\<rname\>\""}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "rname", " ", "is", " ", "also", " ", "the", " ", "name", " ", "of", " ", 
    RowBox[{"the", " ", ".", "m"}], " ", 
    RowBox[{"file", " ", "[", 
     RowBox[{"rename", " ", "accordingly"}], "]"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"rname", "=", "\"\<JLA\>\""}], ";"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"rname", "=", "\"\<Pantheon\>\""}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"Get", "[", 
     RowBox[{"ToFileName", "[", 
      RowBox[{"\"\<code-phys\>\"", ",", 
       RowBox[{"rname", "<>", "\"\<.m\>\""}]}], "]"}], "]"}], 
    ";"}]}]}]], "Input",
 CellLabel->
  "(Local) In[95]:=",ExpressionUUID->"b7b4c196-1a90-4f67-9696-d8c2fc427ffa"],

Cell[CellGroupData[{

Cell[BoxData["\<\"The reference vector is 'vectest'; the \
\\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \\(2\\)]\\) function is \
'chi2test[om,w0,wa]'\"\>"], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[95]:=",ExpressionUUID->"f2685c85-d379-471c-a415-732740497a74"],

Cell[BoxData["\<\"The prior vector is 'vecPtest'; the prior Fisher matrix is \
'Ptest'\"\>"], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[95]:=",ExpressionUUID->"676e9fe1-3617-4c1b-a9d7-b0acda0b0dbf"],

Cell[BoxData[
 TemplateBox[{"\"Dimension of parameter space: \"","3"},
  "RowDefault"]], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[95]:=",ExpressionUUID->"501d651f-5a2f-496b-a43e-adf8bef54989"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"setting", " ", "up", " ", "the", " ", "chi2", " ", "function"}], 
    ";", " ", 
    RowBox[{"use", " ", "a", " ", "vector", " ", "argument"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "vecsolz", " ", "is", " ", "a", " ", "reference", " ", "parameter", " ", 
      "vector", " ", "not", " ", "far", " ", "from", " ", "the", " ", 
      "best"}], "-", 
     RowBox[{"fit", " ", "vector"}]}], ",", " ", 
    RowBox[{
    "its", " ", "value", " ", "is", " ", "inconsequential", " ", "and", " ", 
     RowBox[{"won", "'"}], "t", " ", "be", " ", "saved"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"in", " ", "case", " ", "of", " ", "a", " ", "forecast"}], ",", 
    " ", 
    RowBox[{
    "vecsolz", " ", "is", " ", "the", " ", "fiducial", " ", "value", " ", 
     "and", " ", "its", " ", "value", " ", "is", " ", "important"}]}], " ", 
   "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"vecsolz", "=", "vectest"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"chi2impz", "[", 
      RowBox[{"vec_", "?", "VectorQ"}], "]"}], ":=", 
     RowBox[{"chi2test", "[", 
      RowBox[{
       RowBox[{"vec", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"vec", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"vec", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{"chi2impz", "[", 
       RowBox[{"vec_", "?", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"VectorQ", "[", 
           RowBox[{"#", ",", "NumericQ"}], "]"}], "&"}], ")"}]}], "]"}], ":=", 
      RowBox[{"chi2test", "[", 
       RowBox[{
        RowBox[{"vec", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"vec", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"vec", "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], ";"}], "*)"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"to", " ", 
     RowBox[{"(", "en", ")"}], "force", " ", "the", " ", "function", " ", 
     "to", " ", "be", " ", "numerical"}], " ", "*)"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"parnamez", "=", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\!\(\*SubscriptBox[\(\[CapitalOmega]\), \(m\)]\)\>\"", ",", 
       "\"\<\!\(\*SubscriptBox[\(w\), \(0\)]\)\>\"", ",", 
       "\"\<\!\(\*SubscriptBox[\(w\), \(a\)]\)\>\""}], "}"}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"put", " ", "the", " ", "parameter", " ", "labels", " ", 
     RowBox[{"(", 
      RowBox[{
      "matching", " ", "the", " ", "dimensionality", " ", "of", " ", 
       "vecsolz"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dpar", "=", 
     RowBox[{"Length", "[", "parnamez", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"{", 
      RowBox[{"parnamez", ",", "vecsolz"}], "}"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"AbsoluteTiming", "[", 
    RowBox[{"chi2impz", "[", "vecsolz", "]"}], "]"}]}]}]], "Input",ExpressionU\
UID->"c44e4a2a-29b2-459e-81d0-9db8db943e4d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalOmega]\\), \
\\(m\\)]\\)\"\>", ",", "\<\"\\!\\(\\*SubscriptBox[\\(w\\), \\(0\\)]\\)\"\>", 
     ",", "\<\"\\!\\(\\*SubscriptBox[\\(w\\), \\(a\\)]\\)\"\>"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.3`", ",", 
     RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}]}], "}"}]], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[97]:=",ExpressionUUID->"5695758a-39d5-422e-9df5-5bf9b4842302"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.00772`", ",", "39.327468413859606`"}], "}"}]], "Output",
 CellLabel->
  "(Local) Out[102]=",ExpressionUUID->"f2b60b29-6153-4c87-8b12-8bb86a749b3f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["3 Parameter space and prior",
 FontColor->RGBColor[1, 0, 1]]], "Section",ExpressionUUID->"f927329e-9eec-\
4607-9a6b-db479773003e"],

Cell[CellGroupData[{

Cell["a Parameter space", "Subsection",ExpressionUUID->"7f57a796-1961-49ed-bb8b-1b7c2f7726c9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"run", "=", "1"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"specific", " ", "label", " ", "for", " ", "a", " ", "run"}], " ", 
   "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"give", " ", 
     RowBox[{"{", 
      RowBox[{"min", ",", "max", ",", "ngrid"}], "}"}], " ", "for", " ", 
     "parameters", " ", "p1"}], ",", 
    RowBox[{
     RowBox[{"p2", ".."}], ";", " ", 
     RowBox[{
     "add", " ", "more", " ", "lines", " ", "if", " ", "necessary"}]}]}], " ",
    "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"it", " ", "must", " ", "be", " ", "min"}], " ", "<", " ", 
    RowBox[{"max", " ", 
     RowBox[{"(", 
      RowBox[{"careful", " ", "with", " ", "negative", " ", "quantities"}], 
      ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "if", " ", "a", " ", "multivariate", " ", "prior", " ", "is", " ", "not", 
     " ", "given", " ", 
     RowBox[{"(", 
      RowBox[{"see", " ", "next", " ", "section"}], ")"}]}], ",", " ", 
    RowBox[{
    "these", " ", "become", " ", "effectively", " ", "flat", " ", 
     "priors"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "put", " ", "all", " ", "the", " ", "parameters", " ", "you", " ", 
     "want"}], ",", " ", 
    RowBox[{
    "you", " ", "can", " ", "fix", " ", "them", " ", "with", " ", "FixSome", 
     " ", "below"}]}], " ", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dpar", "=", 
   RowBox[{"Length", "[", "parnamez", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pSet", "=", 
    RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", "p1", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AppendTo", "[", 
    RowBox[{"pSet", ",", 
     RowBox[{"{", 
      RowBox[{".15", ",", ".5", ",", "40"}], "}"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", "p2", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AppendTo", "[", 
    RowBox[{"pSet", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.5"}], ",", 
       RowBox[{"-", ".5"}], ",", "40"}], "}"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", "p3", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AppendTo", "[", 
    RowBox[{"pSet", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1", ",", "40"}], "}"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "pSet", "]"}], "\[NotEqual]", "dpar"}], ",", 
    RowBox[{
     RowBox[{"axt", "=", "\"\<Correct the parameter intervals above!\>\""}], 
     ";", 
     RowBox[{"Print", "[", "axt", "]"}], ";", 
     RowBox[{"Speak", "[", "axt", "]"}]}]}], "]"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",ExpressionUUID->"118c7763-b43d-4ed1-\
9e62-a20e9c64efd9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "here", " ", "you", " ", "can", " ", "fix", " ", "the", " ", "FixPar", " ",
     "paramters", " ", "to", " ", "the", " ", "FixVal", " ", "values"}], "  ",
    "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FixSome", "=", "0"}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{"1", " ", "to", " ", "fix", " ", "FixPar", " ", "paramters"}], 
      ",", " ", 
      RowBox[{"0", " ", "not", " ", "to"}]}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"If", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"FixSome", "\[Equal]", "0"}], "\[IndentingNewLine]", ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"chi2imp", "[", "vec_", "]"}], "=", 
        RowBox[{"chi2impz", "[", "vec", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"vecsol", "=", "vecsolz"}], ";", "\[IndentingNewLine]", 
       RowBox[{"parnames", "=", "parnamez"}], ";", "\[IndentingNewLine]", 
       RowBox[{"tabpp", "=", 
        RowBox[{"Range", "[", "dpar", "]"}]}], ";"}], "\[IndentingNewLine]", 
      ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"FixPar", "=", 
        RowBox[{"{", "3", "}"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"FixVal", "=", 
        RowBox[{"vecsolz", "[", 
         RowBox[{"[", "FixPar", "]"}], "]"}]}], ";", 
       RowBox[{"(*", " ", 
        RowBox[{
        "fixing", " ", "the", " ", "parameters", " ", "to", " ", "their", " ",
          "reference", " ", "value"}], " ", "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"tabvv", "=", 
        RowBox[{"Quiet", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"vec", "[", 
            RowBox[{"[", "k", "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"k", ",", 
             RowBox[{"dpar", "-", 
              RowBox[{"Length", "[", "FixPar", "]"}]}]}], "}"}]}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{"tabvv", "=", 
          RowBox[{"Insert", "[", 
           RowBox[{"tabvv", ",", 
            RowBox[{"FixVal", "[", 
             RowBox[{"[", "j", "]"}], "]"}], ",", 
            RowBox[{"FixPar", "[", 
             RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", 
           RowBox[{"Length", "[", "FixPar", "]"}]}], "}"}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"chi2imp", "[", "vec_", "]"}], "=", 
        RowBox[{"chi2impz", "[", "tabvv", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"tabpp", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{
          RowBox[{"Range", "[", "dpar", "]"}], ",", 
          RowBox[{"Partition", "[", 
           RowBox[{"FixPar", ",", "1"}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"vecsol", "=", 
        RowBox[{"vecsolz", "[", 
         RowBox[{"[", "tabpp", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"parnames", "=", 
        RowBox[{"parnamez", "[", 
         RowBox[{"[", "tabpp", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"dpar", "=", 
        RowBox[{"dpar", "-", 
         RowBox[{"Length", "[", "FixPar", "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"pSet", "=", 
        RowBox[{"pSet", "[", 
         RowBox[{"[", "tabpp", "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]",
      "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"tabpi", "=", 
    RowBox[{"TableForm", "[", 
     RowBox[{"pSet", ",", 
      RowBox[{"TableHeadings", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"parnames", ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<min\>\"", ",", "\"\<max\>\"", ",", 
           "\"\<grid  -  parameter intervals\>\""}], "}"}]}], "}"}]}]}], 
     "]"}]}]}]}]], "Input",
 CellLabel->
  "(Local) In[110]:=",ExpressionUUID->"5326fd69-cb6f-439c-a2a0-5ae0fe888b59"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      StyleBox["\[Null]",
       ShowStringCharacters->False], 
      TagBox["\<\"min\"\>",
       HoldForm], 
      TagBox["\<\"max\"\>",
       HoldForm], 
      TagBox["\<\"grid  -  parameter intervals\"\>",
       HoldForm]},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalOmega]\\), \
\\(m\\)]\\)\"\>",
       HoldForm], "0.15`", "0.5`", "40"},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(w\\), \\(0\\)]\\)\"\>",
       HoldForm], 
      RowBox[{"-", "1.5`"}], 
      RowBox[{"-", "0.5`"}], "40"},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(w\\), \\(a\\)]\\)\"\>",
       HoldForm], 
      RowBox[{"-", "1"}], "1", "40"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, 
      "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{
      "\!\(\*SubscriptBox[\(\[CapitalOmega]\), \(m\)]\)", 
       "\!\(\*SubscriptBox[\(w\), \(0\)]\)", 
       "\!\(\*SubscriptBox[\(w\), \(a\)]\)"}, {
      "min", "max", "grid  -  parameter intervals"}}]]]], "Output",
 CellLabel->
  "(Local) Out[111]//TableForm=",ExpressionUUID->"04c582a4-4e96-434a-99be-\
9559a137de4c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["b Prior", "Subsection",ExpressionUUID->"523ec158-ef57-40d9-b844-1ab3fecc1f57"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
    RowBox[{
    "0", " ", "to", " ", "use", " ", "flat", " ", "priors", " ", "from", " ", 
     "previous", " ", "section"}], ",", " ", 
    RowBox[{
     RowBox[{
     "1", " ", "to", " ", "use", " ", "a", " ", "multivariate", " ", 
      "prior"}], " ", "-", " ", 
     RowBox[{
     "needs", " ", "Fisher", " ", "and", " ", "bf", " ", "of", " ", "the", 
      " ", "prior"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "as", " ", "the", " ", "prior", " ", "bf", " ", "is", " ", "in", " ", 
     "general", " ", "different", " ", "from", " ", "the", " ", "likelihood", 
     " ", "bf"}], ",", " ", 
    RowBox[{
     RowBox[{
     "it", " ", "does", " ", "not", " ", "make", " ", "sense", " ", "to", " ",
       "fix", " ", 
      RowBox[{"parameters", ":", " ", "dpar"}]}], "=", 
     RowBox[{"Length", "[", "PMat", "]"}]}]}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"mvprior", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"If", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"mvprior", "\[Equal]", "1"}], "\[IndentingNewLine]", ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"PMat", "=", "Ptest"}], ";", " ", 
       RowBox[{"(*", " ", 
        RowBox[{
        "put", " ", "here", " ", "the", " ", "Fisher", " ", "matrix", " ", 
         "of", " ", "your", " ", "prior"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Length", "[", "PMat", "]"}], "\[NotEqual]", "dpar"}], ",", 
         
         RowBox[{
          RowBox[{
          "Print", "[", 
           "\"\<Prior Fisher dimension does not match parameter space \
dimension\>\"", "]"}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"CPMat", "=", 
        RowBox[{"Inverse", "[", "PMat", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"vecP", "=", "vecPtest"}], ";", " ", 
       RowBox[{"(*", " ", 
        RowBox[{
        "put", " ", "here", " ", "the", " ", "central", " ", "value", " ", 
         "of", " ", "your", " ", "prior"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Prior", "[", 
         RowBox[{"vec_", "?", "VectorQ"}], "]"}], ":=", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"2", "\[Pi]"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "dpar"}], "/", "2"}], ")"}]}], 
         RowBox[{
          RowBox[{"Det", "[", "PMat", "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "2"}], ")"}]}], " ", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"vec", "-", "vecP"}], ")"}], ".", "PMat", ".", 
             RowBox[{"(", 
              RowBox[{"vec", "-", "vecP"}], ")"}]}]}], "/", "2"}], "]"}]}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
          RowBox[{"chi2P", "[", 
           RowBox[{"vec_", "?", "VectorQ"}], "]"}], ":=", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"Log", "[", 
            RowBox[{"Prior", "[", "vec", "]"}], "]"}]}]}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"chi2P", "[", 
         RowBox[{"vec_", "?", "VectorQ"}], "]"}], ":=", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"vec", "-", "vecP"}], ")"}], ".", "PMat", ".", 
          RowBox[{"(", 
           RowBox[{"vec", "-", "vecP"}], ")"}]}], "-", 
         RowBox[{"Log", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"2", "\[Pi]"}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{"-", "dpar"}], ")"}]}], 
           RowBox[{"Det", "[", "PMat", "]"}]}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "the", " ", "ranges", " ", "can", " ", "be", " ", "changed", " ", 
         "according", " ", "to", " ", "the", " ", "prior"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"nriskPrior", "=", "5"}], ";", 
         RowBox[{"(*", " ", 
          RowBox[{"updating", " ", "ranges"}], " ", "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"newranges", "=", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"vecP", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "-", 
               RowBox[{"nriskPrior", " ", 
                RowBox[{
                 RowBox[{"CPMat", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "i"}], "]"}], "]"}], "^", ".5"}]}]}], 
              ",", 
              RowBox[{
               RowBox[{"vecP", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "+", 
               RowBox[{"nriskPrior", " ", 
                RowBox[{
                 RowBox[{"CPMat", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "i"}], "]"}], "]"}], "^", ".5"}]}]}]}], 
             "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"pSet", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", 
             RowBox[{"{", 
              RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], "=", 
          "newranges"}], ";", "\[IndentingNewLine]", 
         RowBox[{"newtab", "=", 
          RowBox[{"TableForm", "[", 
           RowBox[{"pSet", ",", 
            RowBox[{"TableHeadings", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"parnames", ",", 
               RowBox[{"{", 
                RowBox[{
                "\"\<min\>\"", ",", "\"\<max\>\"", ",", 
                 "\"\<grid  -  parameter intervals from prior\>\""}], "}"}]}],
               "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"Print", "[", "newtab", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"TriPlotF", "[", 
         RowBox[{
         "1", ",", "0", ",", "CPMat", ",", "vecP", ",", "parnames", ",", "3", 
          ",", 
          RowBox[{"{", 
           RowBox[{"Darker", "[", "TangerineTango", "]"}], "}"}]}], "]"}], 
        "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"normPrior", "=", 
        RowBox[{"(", 
         RowBox[{"Times", "@@", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Map", "[", 
            RowBox[{"Differences", ",", 
             RowBox[{"pSet", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], "]"}], 
           "]"}]}], ")"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Prior", "[", 
         RowBox[{"vec_", "?", "VectorQ"}], "]"}], ":=", 
        RowBox[{"1", "/", "normPrior"}]}], ";", " ", 
       RowBox[{"(*", " ", 
        RowBox[{"normalization", ",", " ", 
         RowBox[{"necessary", " ", "for", " ", "the", " ", "evidence"}]}], 
        " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"chi2P", "[", 
         RowBox[{"vec_", "?", "VectorQ"}], "]"}], ":=", 
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"Log", "[", 
          RowBox[{"Prior", "[", "vec", "]"}], "]"}]}]}], ";"}]}], " ", 
     RowBox[{"(*", " ", 
      RowBox[{"step", " ", "function", " ", "for", " ", "prior"}], " ", 
      "*)"}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "the", " ", "following", " ", "makes", " ", "the", " ", "paremeter"}], 
     "-", 
     RowBox[{"space", " ", "grid"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ngrid", "=", 
     RowBox[{"pSet", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ";", 
    RowBox[{"pMin", "=", 
     RowBox[{"pSet", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", 
    RowBox[{"pMax", "=", 
     RowBox[{"pSet", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"ParSpaceTab", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"pTabX", "[", 
         RowBox[{"i", ",", "pMin", ",", "pMax", ",", "ngrid"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}]}], ";"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ParSpaceTab", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"pTabX", "[", 
        RowBox[{"#", ",", "pMin", ",", "pMax", ",", "ngrid"}], "]"}], "&"}], 
      " ", "/@", 
      RowBox[{"Range", "[", "dpar", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"useFisher", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"chi2", "[", "vec_", "]"}], ":=", 
     RowBox[{
      RowBox[{"chi2imp", "[", "vec", "]"}], "+", 
      RowBox[{"chi2P", "[", "vec", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{"chi2vec", "[", "vec_", "]"}], ":=", 
      RowBox[{"Join", "[", 
       RowBox[{"vec", ",", 
        RowBox[{"{", 
         RowBox[{"chi2", "[", "vec", "]"}], "}"}]}], "]"}]}], ";"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PLike", "[", "vec_", "]"}], ":=", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"chi2", "[", "vec", "]"}]}], "/", "2"}], "]"}]}], 
    ";"}]}]}]], "Input",
 CellLabel->
  "(Local) In[112]:=",ExpressionUUID->"142fd9e4-69ff-46a5-9776-04f6675b4067"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[
           NCache[
            Rational[10, 17], 0.5882352941176471], 
           NCache[
            Rational[164, 765], 0.21437908496732025`], 
           NCache[
            Rational[122, 765], 0.15947712418300652`]], AbsoluteThickness[
          1.6], Opacity[1.], LineBox[CompressedData["
1:eJwtmQk0Ff//xtNC1htKSaS+SosoLZbSM6JCIVpIklDZt1D2rQhZI/tOhKyh
KBfZt7gXkfW695aEorQo+t3zP/85c86c15lzPjPzvJ/38545s83ETvfGyhWs
beX/7SuitRKGr/I+J/8IMKnmcbeAan+w067lMrKiP/NH6HMLfLvqzvNttox8
zekcJXDWAro2hscedJeRK5KOsH8ytcS6h2JJpY/KyAMv2te4X7BCSGvGFY7N
ZeSj/75kFGnaQFHn0bcerjLyxBGdwD3hNpga8A9J+lNK3jW8W25fjw3UJs2q
D4yUkmfUXv3tvGQLdg5JEcO0UnL9n4KYeHM7+Knmvy/eWUo2SOHckU61h2xH
oqP7xlIy9abDp/e/7EE7/5Dr1NpS8rJE35KxmAMIUxvFoU8lZJON89oXLB2w
5CuTsOZZCflC30mjj2sccZdcdtngYAl58GvjBeLsbdgpvhpYRRSTBfL8vX8L
u2C5NXs+QKaYXKu3Yn5W0wVhl8N5uLYWk0X0Bw5d9HOB4VyDj/jfIrJv/v2M
O9MueG/Df07hbhF5U71eiVTTHfTdzJu1tC8k3x84L7UtwhXf73tud9AuJLdI
PyoOa3fF+uxzl+5IF5ITnt6NcOdwgy79x2v/6WfkpaiAY+983NB9TSU0yfwZ
2e3g/sgSV3d06A/v7TIuIJt3VH/queeJ6TtF13pRQM4oVmAraPEEd6zfo/di
BWRDM7O4Dbxe0Ojb9efDcD6ZV5URlBjrhRYd57Z/+vnkfBvLFxFl3mjQ4LM4
oJNHHqn7zs6z2hfVx4gn0cq55JxXt3yGY/yRsXz/VNv2XHJZSO70TI0/HtS2
f/i3KpfcHyisojXpj0uqepJWTTnkxI/hHUtH7+HrGdtc5TM5ZOlHe7QlP96D
xJWkvNkLT8hmyAwX0wzAQ9dfhWrmWWQp/bF1SVeC4Hj0uLaXeha5eK/OmbTw
IFxe8v9StieLPK3Z+3FNQxB2+pL2b53JJD9rl+/6uS8YtQ92liw4ZJLpecyD
D9hD8D32QlmGewaZp/6E5UzbQxhWFFf+DUsji5zc87ZBNwJrpyZ/dNinkeMq
RHVHHCNQJrrtSLJuGll8tH+fzKMIcN2PfK4klEaOsQzT9+mNgF0Ow2RJMZUs
Hqh/e+JyJHZO3LrEpp9M1pB7ufqnXRSi9WyVOKPiyUaylLDVHdH4XDNa/fRi
PLm/dJn671s0TuzUVtQQjifzuKelElti8PW7jFxIWhxZwKnAPtomBmei5vbz
FsWS2V78lxkh+BgrO50k+DtiyAMkHWVFm1jYnXDnFmaPIi8vbvS4YZAAtda3
kYkNkWRl2Y1rxCISIH5OYpOYfyR5lYeAqEJTArqvdkr8tyKS/NpxtXX8wUQY
zx/3MPgeTv4dyPNWUDAJE9cCaX7DIWS1YGMvD2YymIqbCqgF/mSJk7/qL82m
4bFa3YuB3f7kPp1tPxdJ6Th1ybJx5IkfWaRkxZ/3B9LxxOHV6Mc0X/LfXatG
tV3S0XWubvuv3d7kLvuzohtXZqBnr+6M2qILWXOq/oTNjkwYB77lzLMyIOtt
i/EfTs5Gg6b1Ejn+Ejk84d2aDw3Z2LWec66vWZccEtcvJz2djTHl+8Wr1E6R
77R5/nM/+gSrhXbfiA/bj305N7yFRp7gAKeskfvl6wivcrB+JJULzs/Z4ze+
3wH7tbY94v/yYP+yxnR88i7Mbo/M5UnnYyDw3QeDEVeocAqUehvl44kE54x2
kzuesgmnrCXn44SR9W+FOG94iBW9zPAvwGtzYU6OFH+cUX3VoSlSiIWhsW1D
yiHgsrsskvamGDtXZ52/0BSC7J0U9u6JYuhLmd/v1HiIhPV6g7IrS1Dl8XWS
fD4UMkeaVaOUS+AlylacdSMcr+yLqsn1JfCX4d9a2RCJEL/M3QJvS8HtIPvM
ZzIGJzNT2oL4yyFxf/2p13seYybna0iqXDmOxf8Y/W39GHy3fx2au1oO27qq
dbfnHuNWkKOten45uvlVnG4sxiI+wm20T60C0aXnj2rwJIB/PtIlI7wSW747
tQruT8GMSw7fYa0q5Es4Sog4pECV7uER6F4FxYt23ttLU3BMoQ2iT6ugV2Fx
+MChVJgrkVatX1MN9WNF5yS3pGExhrpPrrYa95YzX6mKp6NX3V47QeU1fvuF
RnvvysRx5o7dD4haECI8J1apZyJ8WFe5/EotHpQFfwmwyMQYk1uS804thBiB
GmF5meAR5GffWViLQyf9ViRLZaHq3p4GebE62HLcsa7an43y86Mik2vqwQgx
Vl2Qz4FInt7r9O9vYOZrfV9dLwdi2x/Ndgk0gOFytynZOQeibbT87QcawLwe
oXaqNAfSfPpGx20b8EGu9mzs3lxodigVaUw1YJK+9aKC2FOQ2quj331qxMzR
sRueq/Lx+09mfytHC2wPfH7Ssy0fmZKbBfn3tmB258+PO4h8EJOhUf5aLOYn
WXZ55OOkmcf3qZgWfP143Hbrj3zoftru2byzFfOPUlzqJgsQFV0VOHiuDT8+
Xw1c01UIsvHdYMfmDlT03GmYnC1EZf/GAsa3DjhXRrJ1kIrwdaemTbh4J777
NbpH6RThMCdPXLhbJ74J77Pf2leEzwpGgsSBLvz6z6tgi20xFPO/DoQ+fYsf
OpoxR5xLkCzSF59q2oN+1fcHc++XYLHBIeuRZw8q5G5RhB+X4Jrf+t05sT1w
FvUlLVWU4Iht15p9HT34Pvk86M2vEuj0WlAqjlDwzXuL1zmPUtRX9A8N8FPx
9dnnm5b+ZTD/YyzOQeuFtTa0G6LK8N1dO3HzUi8mv0bJiWWUYTybQ/mscB9o
BxXXUmrL8Kg+5iqXbh8oLx88VVguQ9OSFOl7Qx/KG3dMr3V9jseTHONhxf1w
G7nmkGNbjkAVN3Gb1AGs4u11Z1yuhLpp/Os148NIci5cP2deiRDFIZnAVSM4
Mvrg2dKdSshdzZLbIzkCyyKlMaHHlbhF+qveZzsCik7OCXVKJZKUek7W/RtB
2mM3zkKNFwiIu9iyLDmG4+LbYu8cfYmqSkFOtI7D9aBtKZdoNRgfjESvW9Ah
G63darSvGn9ON0/e9qVj+vv+8VKlaqhEFMUkxdNhXPGN94pRNf4O+JfItNFx
SsHVIj+1GtKh36qvSjEggHviZ7e/wgTvwuGx7wzkaSSEhUq+xin/xpysxx8w
dL3Jcp0sGfO/1v82FJvCfgfb9rPKZJw0PLFyk+IUAnyEpILOkXHGMn7Xx4tT
kE29OcNmR4aPEie1LnQKwcPs9t/yyejc4tZkvjyF5PxMxc8CtaCJftnmRf8M
zZ0MdD2sxQ9ld6Lt1QyeidzQiPapQ/vjHS9H+77ClOuU+LrIN9j44ubQs9QF
tA3/Y5+IbUQdFpap3xdR6xe+87V7M+Zq7IUUZVYQz6SW2R88aMUJaXUDsvIq
YlfeCXFDx3ZsvyZkeXMbO5Gw9+bi1vudOPvQNoQmxElIiwqYqIZ24typQd25
bZzEG76aVvOYTqRtobf9keIkpuc2xJdkd8Iuvjp1hQoncfxFo5xKUyc6q2XS
W2w5CbrqDuebHF2QRIu0WiMnIWXE+FIQ1IX+mStnK224iNcRJkyFsLe48+q/
lV+echNpg3MOlJi3CFaYrist5Sb8tvsuWya/hegtp3t21dyE2vPUjUkFb7Ep
8OJXagc30ftuWH257S3ezt1wO/2Fm3AO36tHW9WN0vYAcYosDxHSn12dTXQj
RC5eQOk5D/HXbYbNUbUbRHSmAf8rHsJ262G142rd4LUXyRp5w0OcM2/o7dfu
RodVyRYjKg8htDgxw3GtG2I29m+X5niIdFFxcUvPblCrq3NL9vESlWYJ96Sr
utGddZDtRQovsb/ZNO9sTTd85//VkJ7wEnm793Vb1nfDZcWrNVef8RJJs2SR
nLZu8KSHcg9U8xJ+d5mlW4e6sdemiVN7gJc4+3A/bd3fbljatXspkPiIxtnf
7DIrenB3cWSAuYGPOK7zRkpzdQ/qzm2TC9zCRxwQunQ3iKcHbKvTxnN38xFC
ae6klaI96PRi8txS4SNoZU1K35R6cNhyULTFiY8wEIow5T/Rg9RBbvE6Nz6i
9+7lIJlTrPV3Rz4r9OEjmpSme620erB4aL3WrYd8REEzvzXDqAdndmiPa2by
ES5Dhgl93j24QFHQnuriI7hXfftRWdeDytSgkwdFSYQUv7RMRGMP3hiZL5lt
IxFnt1rcMm/tAY9h5tqHO0jEw6Nj7zb19EDyXBBH1T4SwefU/sJ1vAd67Ev7
YpRIhAAz0+3ovx4cUj7mqnqFRMh+Gy0VXEVBzp1A61YjEnGebfPnz+wUHLiY
46BiQiKiRSOuJPFRUE4KyxCyIBEbLnkcWxKlwHwuTkHBhURsar6wXHOMAiFm
lJx1GImQ7ws/EktQQN7Ql0FEkojL9DZbO1UK5Dd3fuKMJhEJ/4ixrWcp8Pv4
ZdktnkRskd9X63OFgpjz6xb6M0nEsVPmv/SvUcB5p2Za5wmJuHohc/8BUwqM
tF2f1uWSiBR74XSaJQXcIxm3vJ+RiK1P1/idcKNA+69q8e0KEkFUElWbvSgo
a70XFP2CRBg3us/P+1Kwe+WO9XlVJCKNNmeSGURBYWzMobIaErF986jK6ngK
lPRO3VRqIhEndgl7DCdRoP9DJWxVC4kwPXLh+fM0CqSN/1yqaSURWbptEjdy
KahO2/uGv5NE7AypWNNUScE/+TN9MlSW3mcEp4KrKbAX6et41EsifnDZd2mT
KRDMOdk63UciGoN3xw42UeBYd7bdc4BEFGgEuKe0UeDWKN9VPsjSm4t+zbSL
gpnrFd0T70mEWXDSrpk+CgKehL0VGWHVW+M3T+kgBbd/xrdKjpKIQ1yX5lxG
KLh2JK5m1xiJWB1MqlrBpOCN79kYThqJmFa3TmmcZOmdx+f8icW9nK1+wdMU
yC4NnamZIBGZQX5n1n+nIEJPeugUg0QEq4/JDP6kYM8OkahFFjtyHluf8oeC
0/kTxzKZJMKgNe6XyT8K1Dz73hMfWHoFLQxLrqLCP0/bisriPeq6ddPsVJiR
X8wYfGT5jbMou4SLCucm/+vvWLzYwh3swkeFnrpMk9okiZh4YG57VICKRJ2T
IkUsblNr1F0hRMUjiyvGXJ9IROna7XKNwlSsTRaIMWBxQouXSLAoFR9cN75M
ZbHvg6F/WtuoeL1ue8cgi83V5BmCO6jQWVjoXDtFIs6tjWkZ2EXFz+MmNVIs
lm+ZK0iWouLjA+XkkywWf6AVabKfipB5V8vzLF6rlu8seYiKpK1LOy6x+CvH
WoNpOSpU5FvearJ4oNnseMlRKsQ/0W8pspgcWLfdBVQcNjWbFWHxk9NiHEdV
qGi+YmE6z7qfMA73z/9OUSHBI9b8msUuze/eNmhQce3AS2EvFhsFHnoepEXF
BLfnlYMsPnU6Mk5Llwr+a5UPR1h6SHPMegheoqLAvu6ZB4uFmjWuD1ymQmPt
CvI6Fi8H5JxMvkpFrC29Np6l74dTq/eYXKcixfpj2UYWd7Ff55O8QcWMxqO4
YFZ9kgM2vyu2piLrhIKCNque907dqXa2p2KzifuPNFa9rdl7UxWdqKi1Wsj5
SGf1Y0CoeYM7FaORqVPnWX6RODV1NsibCpn7tz1dWX7iYT99QMufdX3eZo7o
cRIxfH/F4rtgKkRiS9lzWf5sOHl1NCmMCksBDc90ln8L1lTVX4+i4oWg8Zfw
YRLhfv92yOd4KtyN7rWdYfl98/0PW/7lUnFj12MvsPqFa1Xj+IZnVKyzrimt
Z/XXok9mllQJFWOVvn/kKSRi0MNYyuAlFUvfbCjLXSQizun90fJWKtwkDLu+
NJOIB/Mv/rV3UnElzGaMm9Xfd+1j30z0UHFg+P0GkQYSoWd94cy691RYF+r+
Fahl6WvWZWA1RYWpGW3BvJJEsE8UiPnNUrGiI+yOWDmrn6+FTMTNU5G+Cweb
S0lE3xU1y6ZFln/st5vNs/Io+ny96zbuXmweyPpXxMozAZWKuHd7e9EZZsr6
vCYRK+uiDWdlemF6H4HlQSRi/vht8TWHenHg5LfwRwEkokdxf67ssV4k5+5e
2u1DIiJk8ypDz/bCWZmnvNaRlS/bU/pVbHphEiivFH+RVf9UjwQDh14outQ+
e6VDImZFrxg5OPfi4+CPbqomiegU3vQhxbMXBa43ToycZM0H/qiF36G9+HpI
+vLVwySCky1gfXFhLy69sGoQEmDl457+KZ/SXvyimIg185KIIxd21ulU9GKH
hQinDScrj3KabL697gX18PrM+BUkolaTo/lIZy8SW05Yucyy5lfCA9fXn1nn
qdbeJ1r4CMbBkNG2XX3os5S9rsaaj+5Xh54nSvXhj8936+e2fIRA4N4Q6/19
6D43VihkwUcQ79vl+OT78EzfYvr1VT4i0YcnUud0H+Y0v8zHnuIjdDtDVQZu
9KG9e8jeW4iPqL0ZkcvM6MMJxS2iakW8xDUtE6O1OX14PrTLZyGHl1g+fGj9
3vw+rK3N0o1L4yWOrhnwti/rQ+wEp0VNJC9RkblV78+bPhiUtJ0Pvc1LFIwX
ruFn9mFr6gX244d5iXiDTpNjkv2Q33hTQqqEh3DU4hJ9lN8PobVWe81CuYmB
j0teGUX98G64zf3Bn5s47js3XlLWj/NNdduM3bgJrucDWd3V/ehSTt2sdIub
yBTOkeLr6Ac/46VxIsF6v2KoHAua7odsyhar+TkuQs7d84r3vneozd3BuKDN
RfzN+RpvVfQO6RdL/zv7cy2h9Vm5rCV9AHt/rS04qMJOJBavfJacO4hYGmVM
QnoVUXRNWuVn8nv82vP7qJnWCiLJp4nmHjYEy7/yF2Tk/uDef13Gdx8NQ1nd
+boPdQGHigmP3wEjeBS24QvNcA528vuNhUNGUHFmi+GgxhzyareqKoSPgPvp
uOGw/By29ixzu8aOAAlcO9ZsmAPX/KvEXzkjsHOaF5no/IqxgwrVP1tGsNVA
tqNd+SuCKw8sLnCN4vbNFo4Bs1mM1Wy/Ox82CtI3rjpZ2ynUzvvbdkSNQji/
N2ul7hQydjLNnjwehdP2hM0fD0/hZliOjkHKKIzCzctnlj5h9qrU3vpno3jS
3+E0F/YJf/8eHo3sGMVrGafjPc8nsemouuoBrjFQP2zcPEb6CJ1Ku3X298eQ
fjy2znglA4tJ86VHgsbAkW6yWPSZjiw/54tLD8fwPmE9h0AfHT803ROCo8fw
7bLzfb5cOhIYARLZmWOo19N0mtSig8GfIv++bgzbc3xom9Mm4GLdYay6PAb/
q1tLNM/RsO5pju8atnGETvO7fT5KA0PkE2Vy5Tg6Mt6pJ0rSEMZm7VzEzuJT
qrT9/8Yx3uFQdYxvHIYzijsOFo3jnqmnqp7oOJg380JDBcbRGRGt//Ao67ij
IKOlYwRPJh7HxymNI9jJK+ti9gi8DsW/z8I4HIdV27m8RrB/INnwtco4fq+Q
OjgjM4KorTnGs2fG0dd2clNEzDAuFb40P2c4jjPhvReOmg9htH307nrPcejx
3il+uGcQFaK0l+Le4/i6jm/hG8cgwu3oi1K+48iRWnjswxwAITjpcfL+OHjU
7sVwsnyYYTDn4xI6DtUk69l3wgO49WlV0EDyOIxu/rXSEXiHr+y745NqxtEj
uF9ynVgfkqTN6Pdrx8FxYN+KH2x9ULuUus+ufhz/0VXbfjN7kZa9oV65aRwu
cUM0A1Yu6aiu/PyhcxwZYVKzPkQvSn2Hjh0YGUeglOykhiUVTn9Dxxv/jMP+
1rFlNWoPxCVa9xQtjaO6O22hsaoHHWdWO8exdI6Qt9czyuiBRKIbp9UqGgTf
9KylOfSgT+GW7DpuGpYmv33cK9CDI3eIewababhSpFbbqNeNn3Pzkl/kaXjT
6KP6Y7oTub9mr7Ox6kphK1T5WtMJ/X9TiYJKNBRY1edIRHbiBQ+dJK9Mw7Mi
/u6jRzpxV5L600edhuI0xl9R/w78MixrFjCg4dB/K2vuSbbjd/PtW0fcaSjc
1RDiHN+CvC67dDVPGr5NravVd2yBQZ/VkIE3DZW3pn/YnWlB1YSptrc/635F
iUyF5Wa4LZ2Xawmh4WDrGbdDN5uxKHuIwyCJhlrrqy5JaMKf5O9PPF/TkHAg
fnRIqAFhnmxyAWQaqgoe1Nz98Qbbr/I1h9XRoJXgS1HufwONLbs+pjbSYJzM
Q9N7/AYJCVck6ztpCNpw/UnYpjeQj63PYR+lYc6W7f4/iXo4RUTkhi/TYLOk
nPTCsBZr7ZPl41ZMgGOBJ/O+ci2StPNa0lZO4LLQsoHrzlq84WuYLGGfgL7h
0q1cGhkCoT939fJNQOw9/9tsPjKKg4yebto6gTK/KNFUl9eY9pPKS8cEaigD
HeoeVTgv76gSqDyBLxuN43/pVKFqpnLYWmUCURKDPTTJKgTpq5DkT09g+ARX
oEnvS+yUNnDq0poAl5Iun9D+l7g+GHj8z9UJ2Chz3uWbr0S/DJ1ywWMC3mf0
o6JTyqHE3GWt6DWBz26GOza5lyMrwXaNuM8E2DvS7nTpleP2mkW5z/4TSE/w
tqPwl2Pd0Lpk35AJdNzerXngwXOcCTh+qzBhAosHb53f5FWG2uH4PxwvJ0AP
lBRmCy3BXoe0e0LVExAx6l49b12Cx2tyeHe8nsDfy/wGQpolsJF+vvVE3QSS
5R7I/uItwWafLhWP1gn4BHQQwlHFcPpv1cOvgxNQsb7wcN/pIuy2tN4yuDiB
N8GtK+9Q8xG97Jj98e8EDie/HDicmo8Vj1ylfyxP4JDdgPsZq3z0VwcQgqvo
CI93VXNdnY97vOlmmtx0WEddmelRzMNocV9BnQgdK0rzPddV5iLq53GlvGN0
jDtua8qcykbPda+3McfpaHc44LTrTTbWdby+7kvQoVh31G06MRthaccC9FXp
iNS3OHJAKxtB6opv2c/SIa1tKpJVngWfxMPXTa/QQQRZCn0Iz4QNpO5vcaPD
/TybSZpdOgqeWm1c60FHaOEizU47HVOC+U+/edKhIPMrxUkmHeaTu7vafOnw
tC7I2PI1DWaRkhtdg+jof16UPXo7DQb07U/74uhgH3GP7eVMhVqgcGdYJR16
bPt0DB8nwrLNotz+Jev6m2vU5U0TEcpblaxbTcezSLUci/2JoDwysBUi09HQ
opPV1p4Aw7REUkoTHfwvFDTusifA/qWo7jPWnHh3+rGMcEgc4j9ve9f+jY5P
paJDql0xeCXtSH62QIcxRZs2mRWDUYf6nPCfdFjcSZuiusdA4pfJ3fN/6Pi1
VeOq554YFK7OEh5izaWF0+lKAiHRqBfdaTjFz8Bv/VrTT/qPMKW9h7Z2PwPt
xQEVURKRWOd49KWgLAP+O0W4/FZEQi76bKTYIdb50z+NKoYjcG/AVvmQPAOO
YgePTcdEQOx6Wfo1goHS/OTDPtwR0HU8ZlJxjoFlMU+LzjVhuButqViny0D9
0MBvWmMoUiuMBDouMJCt0x3vGBCK6UWfepo+AwfntSpWc4YiwL9xO+91BvYb
00z7BB+iKlqLburAgILZ+btOCMZ4xbVq29us9Y5+aJtkDwbHoP0jV2cGjD+T
rDq6gnBB9JFKuCsDnCmBIaPXgjCb/S6zypeBC3dLtYQDH2B7pbEZfxQDmrY5
vqqfAhA06MisKWXAR8I9I+CnP+71vGp68pyB4g/K5XZd/vBqZc8Nq2DAIabT
6Em2PxxfJlgaVTFAxAtbLV7wh0F8/ZelOgZeRDeqyFT6Yc9lgcVjPQxWnpft
uxrkCwkdwyEJKgOzCx5jdDNfiKk/ecXTx8CZsG3axYQvBBQUvYcHGFglfj14
028fLG4yWe0xzkCnV0mgsI0P2gZK+Kq/MMCTZ7Fhrt4LDd1/vmTMMbB6uomk
7ueFmpaTPcHfWM+/rvyQ2AkvlL4YfGTwk4F7197HHnvjiYQ4NuHFZQZM8h8q
ybZ7wEpf5z8FPiZ+V976rjbnBp6Br3KVUkz85Ao0yoy4gzTpjv530kw4tz42
kdO/g0P3c5x/7Wdi0zb1k2rid2Aoa1SmcJgJ9wDj2uESF+Q/bJd+pcQEI6Uw
rfy9MzSUn+yo02JCvN5W+OIJJ4zG+jbQzjGxPJzhd5LfCY6zhqYrzzNxVXxq
LnP8NhISBdNV9Jiw+jFmluNzG1MLPluarjHBoWTkV9zoiKC8K4Lt9kxMKvq1
kEwdsIVNrvSzIxOeo4VLbvIOKNYT0OFxZq3vYj53is8BA6tbwzRdmZjRIf1Y
qrLHrmtHuLp9mbjSsWmWsskeLYL8bH1RTOy8pP6J1mYDQ8vp1IVoJnZc+9m4
2dcGX2ubjwvFMmFxyt96Sc4Gm2y9PPQSmVjo43lQlWONWy2ffw5mMln9mZoy
E2aFRbHmx4vZTNwoz7mqpWGFMOeMwyK5TFZuPeTSYrdCxfbLtw0LmBjxjvsi
4WMJDddDAp6FTKySfBH2W8kSo29JJcnFTLwYS/l0668FHHd+1q4pZeKf/NBL
22oLsHs2zY4+Z2L4///3/w9DD6CE
           "]]},
         Annotation[#, "Charting`Private`Tag$33346#1"]& ]}, {}, {}},
      AspectRatio->1,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0.003110432498105149},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox[
          InterpretationBox[
           Cell[
            BoxData[
             FormBox[
              StyleBox["\" \"", FontSize -> 16, StripOnInput -> False], 
              TextForm]], "InlineText"], 
           Text[
            Style[" ", FontSize -> 16]]], TraditionalForm], None}, {
        None, None}},
      FrameStyle->10,
      FrameTicks->{{{}, {}}, {Automatic, {}}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageMargins->0,
      ImagePadding->{{62, 8}, {25, 8}},
      ImageSize->{250, 213},
      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.07832897429485852, 0.6783289742948585}, All},
      PlotRangeClipping->True,
      PlotRangePadding->{{None, None}, {None, None}},
      Ticks->{Automatic, Automatic}], "", ""},
    {
     GraphicsBox[{
       {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
         NCache[
          Rational[10, 17], 0.5882352941176471], 
         NCache[
          Rational[164, 765], 0.21437908496732025`], 
         NCache[
          Rational[122, 765], 0.15947712418300652`]]], 
        InterpretationBox[
         GeometricTransformationBox[
          DiskBox[{0, 0}], {{{0.1515172903961339, 0.}, {0.13636556135652042`, 
           0.1818207484753606}}, {0.3, -1.1}}],
         Ellipsoid[{0.3, -1.1}, {{0.022957489288986367`, 
          0.020661740360087718`}, {0.020661740360087718`, 
          0.051654350900219276`}}]]}, 
       {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
         NCache[
          Rational[10, 17], 0.5882352941176471], 
         NCache[
          Rational[164, 765], 0.21437908496732025`], 
         NCache[
          Rational[122, 765], 0.15947712418300652`]]], 
        InterpretationBox[
         GeometricTransformationBox[
          DiskBox[{0, 0}], {{{0.2485975524063778, 0.}, {0.2237377971657399, 
           0.2983170628876532}}, {0.3, -1.1}}],
         Ellipsoid[{0.3, -1.1}, {{0.06180074306244176, 0.05562066875619755}, {
          0.05562066875619755, 0.1390516718904938}}]]}, 
       {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
         NCache[
          Rational[10, 17], 0.5882352941176471], 
         NCache[
          Rational[164, 765], 0.21437908496732025`], 
         NCache[
          Rational[122, 765], 0.15947712418300652`]]], 
        InterpretationBox[
         GeometricTransformationBox[
          DiskBox[{0, 0}], {{{0.34393543117714404`, 0.}, {
           0.30954188805942945`, 0.4127225174125727}}, {0.3, -1.1}}],
         Ellipsoid[{0.3, -1.1}, {{0.118291580819008, 0.10646242273710713`}, {
          0.10646242273710713`, 0.2661560568427677}}]]}},
      AspectRatio->1,
      Axes->False,
      Frame->True,
      FrameLabel->{{
         FormBox[
          InterpretationBox[
           Cell[
            BoxData[
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(w\\), \\(0\\)]\\)\"", FontSize -> 
               16, StripOnInput -> False], TextForm]], "InlineText"], 
           Text[
            Style["\!\(\*SubscriptBox[\(w\), \(0\)]\)", FontSize -> 16]]], 
          TraditionalForm], None}, {None, None}},
      FrameStyle->10,
      ImageMargins->0,
      ImagePadding->{{62, 8}, {25, 8}},
      ImageSize->{250, 213},
      PlotRange->{{-0.07832897429485852, 
       0.6783289742948585}, {-1.6674934614422874`, -0.5325065385577127}},
      PlotRangePadding->None,
      RotateLabel->True], 
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[
           NCache[
            Rational[10, 17], 0.5882352941176471], 
           NCache[
            Rational[164, 765], 0.21437908496732025`], 
           NCache[
            Rational[122, 765], 0.15947712418300652`]], AbsoluteThickness[
          1.6], Opacity[1.], LineBox[CompressedData["
1:eJwtmXk0Vd/7xw33UhpkKD5IhkwlmYoU+0REs6GJJLMUElKmTMmcWQMlMhQy
RojHUBlShJSxrnnmXNyp0ves3/qddf55reeuZ5/93u/33nutK2njZmLPwUY8
HP/3sikc8X206TULikmpcmV/rqCRzqrUjAIWtBfonV4vbY0eWzKS1fJZcIIR
SSkyskY83l4JF/NYYCDQ8Xop1RrNvXSLys5kAZvsEKeJpg0q5rXz105lwbTZ
asOOCFvklJbp25nMAqeOX6TmclskqUC5Y5vEghBt946WX7YoQffyrYh4FrCH
+ecNH7BDnl4X3L5FsWAgt8XWYckOaQycsHYJZAHTvzIsyM0BLTlGWbHdZYF6
xBxF+rkDyltptUz0J/qriP3d3e2AhDcfNa/yYYHDjofONzQdEQs7bEr2YkG2
mKX8T24nVJezTz/9Kgvos9zubDVXkf5NcYXPJix4GlNkRvd2QdXnoz0OG7NA
14vtoU6tC1LWZtW+Oc2C2TYvAzFOVySyrtfk6QkWcI1fCnkW54qW0mP83AxY
4H+h7fBEqRtKa/3TwafFgsFxjZZ6HnfEX+QsEqbJAuMdNhJWqu7oftIPO9Z+
Fui7n7liYu6OblqVM0fUWBBQeVFeK98dGa5eky7fw4Jub68NksY30YrEwK1z
kiwQVfM3oBR6IGcuo4a2HSzo85I9t33AA/2crdiAxFlQNa+7pWqdJ2qrSMiQ
EyX0C5634Lf3RBknjrUxBFnw5Cnuc0XKC524XbX9yToW/D1vsH5L8S2U1ZH6
/uciE/iMI9lkt/ugakFRQ9cFJrTz7p+YNPVBnReffvozx4QvPFIkgSgftDb6
ouu/GSZ4RDrX5LJ8kDmj5JfpGBPs32sK/hz2RVsk2/80/2DCoFkoyL/zR/43
2fYVNzAhcTzpSu1kIEqqDHmrU8+E0eZfg848QejVH65Dn+uYIKOuqX9xTxD6
EbZJb6aGCZmqvhEsjyCk/kTEeGcFE0yb9T6bk4LRTJO6y8NXTAgOUkxbVglB
57dezQ5MZMKRS5qCJU330PtKK6dtCUwIXfZz8Vu4h5TNz+0uiCPYX1w76b8w
tO6ZXsn3GCb4jdZK5N8IQ2/lxWuVwpkQt/7WkRCp+0j4UHfPoB/xPc+eWxgl
h6MfNtqkAw5MKHjoUldcHYWOkNWbv9gx4eQj0w//FqNQce6uSDtbJhi8CLyb
LxONwueEtsRdYcLppXFMNCEaad6iik6aM8EwY2/oNbcY9DAiVy35NKHX1usF
Jw89QBeL+WxxTSaImdj/fRgfj4LzNW46aRDjSVZfuPomHhXkWAb93McEp78V
Tr598Wgt7eWzz6pM0KNzGDpIJaDMiMODLxWZ0GC+LtKmMgHN2LiftZFgAhf3
7JrJQiLy3fr1aDc3EzZyH78onpiCXmyhnzvGxYSXjUFGTEhBXzZsd2ggMSH2
8Dmm9HwKkuC4GlrEzgSh6Iv+zoap6P0CW0PUbwb8mrX3a+V4iDa2KGsdWWSA
0SjnxUP3H6F0nzjFN70MKFUUM/ftSkNO3z55GnxjwBPpNu5wrnSkqsxd+72b
AUdveRyb0kpHH8f9T7I6GfD3ba5Z9ot0tHTmmiv6xIC76qr/tvs9RUfkDIpb
gQEycs/TK7dnoJnu32rDeQzoSlJpdv73HJUrafi55TJg60md52I7MtHdiJvv
2XIYcIJrY/s/nUwkiKbNpLMYMJi/RdDibibSftXr5ZTOgNuCbb7XObJQXGBJ
JTWeARd/dA2p8b9A+/c4HuT2ZcCzacmOXeY5qO7X1447dxjwVk14fX1IDtJP
OmQ3582AfzdaJR8V5iCz33wxXz0ZcN2w3EKYIxfdbH03/MSVAQqHEcvsdS4q
tOcPVrZhgMnrUA1hwZdo59PalotGDNDeG2BrI1SACozlLduPMqAucpZ317EC
pEZOxHUMGLC6sPrksH8B0r3uJLJTj+hf+XDKeqwAWWkJXF84xID/Ghj+NysK
0eNeJ94QZQaI67ks73EuQny8gucKhBjw6YVb+e2IErSwg6ogu40BZrqmeUW5
JahNufPvM0EGXJEdvCvwsQSFmkRnJ/IxoKW7vMCGsxTRkkmrPhsYEF6l0boz
sBQNiq0mGv2jw2WVjJ8OwWUoZ1fv14kJOoypDO2/kv8GBR8sz74yTgcr2f/O
p3W8QVYnEu70j9LBcYhXfePKGyTsekryyy86WL7fti5cuwJFlXy88aafDr8s
Rs1pXRXohmYlb+gXOky4ycv84n6LDho8PClZQQd7zTbj4CfV6G1FlPmbcjqE
/nBNrGuqRvvl7joaldFht22wltJcNVJd5xDkXkyHpdo2/zztGrSrTe1Nwys6
NG/5q7N5tAaJnOoQs3lGBwnebNE2jVrEOss1lxlOB+W8xgMq5Hp0+yOTsf8+
HdJE3m2sEKtHtP3z5E/36FCsv77yvHo9ogr17FgOpkPZvAkDt61HM33PTfX8
6eBsILQW+r4e9Vtq14y60yH57deig1ENqNreM3KnBR3WpWSXPN/bhFaVUkcf
XaQDp5b9dr2TTUiZUXWI9wIdFEWGDXmuNaGcyH8LTDOiv4WlPU9uE0ooijTt
OEWHwK86Nt8k3iNnZoaYjy4dKptXx8tEPyCRmM+vOxTo0NTx0fvu3mZ09twS
t748MX5JqrKISTOK2yFgXS1LB/HXNyjDns2Iq/SCQLY0HXQTnUonqpsRtXfU
22c7Hfg/ajQtG7agNgkWJsNHh/NG4jKSLq3It1y224dBg92s3bvLez+hC0OX
7XnoNFA4A3ek/3xC6lyp9EerNBAJt2KvkWxHc+e5xaqoNNhx8aacrUs7uvx7
0o4+RwNm7kTdY67PCNN9SfOg0KAriiewDvuCuDp3i7i00SAy2Lje0LkTxc8q
W1ul0eBdak03J9aNGt0HVWmPaUD9esir6Hw3WqHfJ8U8okFFoouPu1s3ukD6
mVudQoNmq78Dms+6kfj2mIWt8TRIDIhS6v3XjV6dmvZtv0eDWfvYe2YfetD7
kucpB9xo0P/MzfqldS+iefO3C+jSoHW4+2svpQ+NnZufjsJo8OzNesoiez/q
3tfCTUI0WN06IyYr1Y+Kl/31Vg7SIE2SrDtj04+uuU1X9+yjgbzj4umu8X70
y6H+ZbICDVxqDdIV8AHUdtb1vhAfDR6RSn8qiw+jdLU2XdFfq7Aj5+2ZxKsU
pHiz+lHh8CrwJgaxb/GjoHfFr5bQ0CrU4FtEH8dS0OCeqKd2/avws7s4ureM
gsTkT7AKe1ah2sk4dGmNgtLEvpRgravQWLdy7WXqCHpC7pJwKF0FOUWTQJXu
UfToe99acegqpIqrngi4OYG+v4KPjyRX4UKGWsdkzxyy6/a7ZlK/Ait3s8xi
GDgyGIs/+8h+BSrXMI+TSavIeaf/cTXOFWjT3ij9r4CJRk/Uh1nkLgMtoGVk
KOgvevqi73Ov3jLMlBqVzlaxYSaOV1mndZfhUV9c9PEGNoxrF1O2FVuGO06p
g7ktbJhrkXBgjfYymDt0wdnvbBhxoVLN0FiGw/5t9fdW2LBfHd9Sru5eBrld
yjuUldgxqd9frf7wL8PK8qSqz1N2LNe4DZccoYKlvAv7MXcO7I+H2/k3v6jQ
4JveK+nNgZmkCNYa/qRC+xEGx6ofUe+/HO42SAXvotFjMeFE3W5ZvLaXCo9p
en9Cn3Fga7fETlz4RIUw1aKt0e0c2Lk015zYcipc86mx7pbixArqBDZKlVGB
YtMYv0GeE2OnvHV/U0KFbRmOLjp7iLoMp/bgayqkUCUEkjQ4MY6i1G6Fl8R4
y8ci145zYq8b6tk+pFNBz7/rwycPToxrkt/idxgVZl2kzskAJyZsM7nxxj0q
2J04e5fnPSe2e6imbiyECkVn/V9PtXBiZ7rtpL4EUqGuvow7rosTewwV0xk+
VOgyDOWKHOfElB6a3zZwpULus/tmsjwkDBPYu6vmOhXW5eocfLSZhJnGcg7u
vUYFjahrHSQBEnY7tAD950SFjRe2zn4QJWGNN9a45qypkGS2YLmoSMLOGWUm
x5+lQggeV9d/koQ5vb91lMuM0POg5dZeYxLmi44zfUyowOW+obX1LAnL2Ldy
ye40FUpvb1J/bEnCZiQNdmoYUWFCODJ5+DoJC2BNlw4eIuYfLRuJR5Cw3HyV
TrmdVPgOFkpSdSTMPEy0pkKKClFJ+mvz9SRsszU5R1+SClumrheXNpGwW9v6
fG3FqSD9q7hItpWEGQQFyj0TpkLqRdPWt90kbOxcR8C2TVT4Fuj/O3iShD1U
qbqavYEKktlF6QPTJOzExiwzdR4qyMe60RTnSFh5w61dJtxUuMtT3lC1RMJC
FMV7Y9ipkHW8xteXScKkOFz2kGk4bFuw9klfT8Z6B88JJ63gELY59nrgBjIW
WYlxSi/j0OughltsImPU64J92BIO3PqrL/9sIWMN32tC/WZwAI0rWWNCZMyz
NNttwzQOb18oLEf9R8bkYx6YP57E4cnPMx93i5KxOF1b5bdjRH2qYdFMnIxd
KeQZXB7G4cHfPRInd5IxwfCVj8FDOHQNFFq8lSFjLTbDJXyDOHixu24SkyNj
e4VL7+/tw6GTt+pzuwIZWwu+qHatGwclrdBH3UpkrNRST5z1FYcU5vfLHMpk
zEFzz/qIThx2YiYPFFTI2Jd5tp85n3EIrm9WtFYjY+kX8iJHmnEo6hzU9NIg
Yzlx5De3P+Jwmj823EaTjBW32Pzc/AEHRzelMMMDZKxRc7v6wUYcfgeG31/T
ImOfbvhc/lqPw3kl34gvB8lYT973cEfAgTn7ZV/qITI2IZwwlPgOh7L/rCL5
dcjY4plF7l01OOSe5lP5QDAj/IRqfRUOR3ZuuXsDkTEeJtf9uQocVNjVNpdg
ZExAxa4k+A2hd/P6UwaHyZjY1YYB4XJCn7wE1R6Clfp8lfVLcLDX8pzs0yVj
Gnx95gNFhF5N7yqM9cgYZrT/nvtrHH6Kpco3EmwUlFjEXYhDpGnsod1HyJhJ
1VJfej4Ol8T2UaMJtsBPktRf4UDtkTGaJNhOIV+pLQ8H01COw1r6ZMzFet3F
K7k4JA149t0j+NYj+xBaNg7X9yvxtxF892tjYfQLHN49mZzhMiBj4eslfkhl
4cBTZ217iOD4w/4cVc+J/r/tfJ0JfnynX/F0BrEeVxpU4wnOKtE4P/4Uh7is
UxHFBBdMJwX5puOwpjAX0EJwhSQ1ny8NhxVykEAfwXDxdG/uYxw20H8bjBDc
El/ApvOI+B5n0//GCO5qXb+7JxWHAZ97kcMED7A7nnVOweH9UurjrwSPHXh/
ly0ZBzndh0a1BM+7S75KScQhIuFJ6nOCaS8DehQTcGgurQsNIPgfZWCtMQ6H
eQlZPjOC14kcULj4AIcl7rVDUgTzmaSYLsbgYId81k0TeohELvvfi8ZB8niv
Rx7B0o1n8kSjcPhlfvbuFYIVWYVdJRE41Bnp7uYjeJ/qhr9Hw3FoTF/0rib0
13F2khsOw+HE/Ur7SwSf6Zfy4wnF4YairGwksZ4X+QNzMoKJ/KXkMrcSbHNs
qHN/EA6hVIbbY8IPntWpMrYBOMxt2Ho0hvCLP3XlNNMPB+nX9LzfhL/Cdpn4
PPDFgX99f5ENwQ8fb+youY3D1mrJIhHCj8+7rjKNvXE4tnEw7xrh11c8zdJT
XjgobMKOvdEmY+98gm4LeuDwaprjvirhd4o5TdLFhcj7h83/eoj85M0GPxy7
hsMmwx7J70S+XP14eS85E/p15Od27idjrHT5P8ccccjPfEp5qU7G+CnmvfLW
OLx00VZf3UvGfrhPnsiwwgGVLyeVEvl+yuHZJHQZhzvak7aOe8jYrp0xxVwW
ODxtpZhU7iJjuo4QOWZG5OnhbNYSsZ+sYxxnv2RK5HNoffZVaSL/4T+8u41x
EBLdJdUvScbMX+F2jadwKF3d9vA5sR95zEujDEMi7+Mur9qI/eyFR/iyxSEc
htfPG95fR8acSVudu7VweMj5jXSHi4wpJz//dewADrdC6FY2JEKPiurPB/YT
6/lBdE2UjYx9Y87lCinjwAq0lN5NJ2FcgcaXuqWJ/alIJqBmlIS1bxnuOiZF
+O/FNw95CglLeO5s1ChB6DfB3BczTMLEm0L2l2zHwSNHT1Gnj4Tt56rY8kCI
WA9pz4M6X0iYY7TIh2MbcNDoPPqjqoKEffF75zm4Hgc65bBgfxnxe5fLO13X
EXl44mixXEzCSKcyQ+LJhL+/2Ajx5ZOwTN5duj/+LYGd8vc05lMSNpxwAOxX
lkA9xvBV0D0SdvbRharAoSWISpNMuUecj+8iWE78g0vAPMtI/2xEwnb6pAm/
6F8C1Si0g9eAhFHNf3k3f18C17gn6QE6JCxOzGn/5q4loKodo/PuJeb7zLvs
ycclUIpKyPhHnNd6OSmFFUVL0C3rJKDcxok5LTq+VHi9BLcSbpw99YETi9Y8
kJ1WsAQXvrlE29dzYj1tA2nBL5eg7HDJUkAFJ+awKBF9KmsJ9t8a1LicyYlF
auY7T6QsAa+zJqnnNifW1QZy2wKWwJv3iHCLBCd2ZXHqudeJJeAuTmvWvcyB
9SfvGVo8tgRZe06WLpznwMwO3RR2NloCldDea8nGHNjRiN+xlw2WILhX0LH7
CAemJL3Z7yi2BObzvhj/bg7s9zm1c/+pL0FTXW3acxo7llLnz1MrugSSov89
1Ixkxx6Kykys612EK7GSLkMv2DBRBXkBPYlFuL26IW7x9V8kmfz9vLTFAhQq
/vdtIIGJur7ul5PImofQ2Oes/tpVJFF1pPjdwhwE/JXRbNtJRdS1tTP/ds1B
ewUexCYyj1y3XvW77DkLs7ViScGyk0jXzSvewH0WbvD6ynhvnkTbWoNylFxn
QZMSKOtLm0B1fo871xxnIeDz27CSjxNo89innc8sZqFOX0/mh+MEel2q9Pmn
7iyYfZ6v5i0cRwunV7Zb881Cx0J/kZbeGHKNvAu2r2dAi14S2P6UgkKzKgwC
82dgxF2ziT2agp68m/+cljcDtxsc3h25Q0EtCxaD3zJnoK5c/8uyKQVJm2oy
j6bOgNHY0Enaegr6IYqrKgbOQP4ORkDU7V9Ir9AmZ8V4BtrD26R6YBgJd+rH
3FudBi1Tz/O9hf2oL8s2sZg6DVd7f5xMftCPHnsHPRpYnIZw6Y+XXdz7kdiO
2myVmWlgteMlTvv6kaSret3Q8DS89XynH1XXh3ZtlF7c1zINWES+4p1vP9Ah
QzbjicfTUP9VYe7d1u/or6j4eb6H0yB70OXkA1Yvqls8aHkoeRpElNoq7/zs
RViq99WEB0T9cnFQystepD+xEKQTOg0J8acGF3R60anQodIUl2mYDNfk53f9
hq7UVwsexaZB33W70MBQN3qir1Gmrj0NTZkvXWKbulFvW5mxlNY0XNQOuX/p
ZTc6+a0g9q/aNLiwtbQbenUjrZmn68rlpoH9vtKWK5u7kYBgyB8J3mkwsNIc
9dPvQh8dj4+xhqbgdNkLr3XNnYh9vjl4qn8K2DaUM+hFnejQzSOSvd+noPdm
lh3bo05U5qd9ueTrFHj2c1RZXOtEGfF7fzh+mIJk/uWnWnyd6E6NQHtPwRTY
D2VrCTV9QYq8g2WvfafA3C05Yqt8O3plGvK+8/YUnEiJP5vO0Y7kH+76RvWa
Ajelkk0nhz6hnZJ3aPtvTEGMV8d36cRPSFRt2wGwm4LbTgen8tk+IZ7zZ+o6
Tk6BTdx85ObRVjT59H3L0o4pOKr+28T6fTOyG73Wx799Coyu9aaVZjWjETmB
GXWRKXDISPaUD2lGw8XWG+4ITsH110LWQbrNqLdx7ST7eqLffv19440f0fsJ
zW4+6iSETV9hs2z7gDKVCodU30/C6I+zP04tN6HHO8vChBomITtffE9GTxNK
EKna+6d2EjSovW7CFU0omOtD0IfKSYjcYb3P/04Tsh4elLmQPwnq9fN/BTia
kETsRlf/hElQEioIuCDSiJ7NX1trvjIJ+27ssTzlUI9SRt1zCywnoRZ/s+vg
iXoU2+d9Jt58ErDH6S+OqdajgA8hmeZmRH85tr2ZfwFdTn9iMH90EgIreLOW
VAGJn/wUy793EvYflFuWeVWL0gp27bD8OwHVh9vlZVqrkY6l0NEzrAloG79i
SkuvRpRNJDc9+gRkSHG4cnhUI1m3oToFfALeyzoEtW2vRkUqcZdpYxNQ6R4U
LnCrCjVWrKY/aJ8AA53zJWYqb9FUfb1Y45MJSDMulKF1vkGR7oVH3jycAEG8
Rqm04A3aI/X4el7yBCRuz/vyPPwNuhni8S72wQSc1l5bFDn8Bv3Wl71kETIB
3hMbIl3Ly9HmT1FPVpwnIIK9UsD5RRlS+3ZORE5rAn7uP6imkleChPVdy09p
TMC56pktv6NK0Fr5vVO31CfgustByqxbCWpJKg/+oDQBZxUvFR3WLEGXzPhn
baUnoM6fcrmqrRiFdn+uydhIzP/cxgyn+SLU8/WIpcjPcdhjJ9F0o7sAVR2+
RD88OA72WZ0qEi8K0NMSj/irfUS9evcxAa8C5BSf+eFt9zgUfTZDTUIF6M8Z
NqXzLeMQd0Tj3eEr+WhnZ81aYsk47H0c8d7r70vk9UU1Y1PoOOzgiZQscMhF
PYt5XfTAceD1r7eYP5iL1Pl2kEf8x2GuvUHKgy8XUU03OFd4j4PXCs/Csdoc
5No3qmZ1bRyeWNbkSwrnIIexpOZik3EQSI+xFO9/gS6waAumkuMQXTLAzorO
RJWiLpI64uMgI/B1XNo5E23THjWVFx0H1WfjufePZqKeux1v/wiOwyaHnHu/
OTLRGXJecPa6cbCwTliO8nuOjLZc3EZfHIPrt26u8fhkIC3ZGu3HdWOwMh9k
2a+Zjga5Lo28rRmD+LnDS/tI6Shg8k/Y97dj8Cv/NGO8Iw015Ol0CpaNAbON
kn7YKQ0Z7m60eZA7BvUCezv6056gc8qt90Pjxoj7ZGyL6tbH6KbW96+uNmMw
61oQHIhSkaDo7VsxVmNQpn1qT7JgKqr4LSxacGkMhhJXu5emUxDznbnd9Lkx
0IqLC/FNTkGBaJhme3yMuI8n3e9eTEaxR8ZFL6qPQYb2XzvNkiT06tSyvR4X
0f+sR5S2XQKiTftE3OAcgy81AWEyuglI9x5HYTrbGIhV3HMzkEhAAzV8K3TW
KKgoUxpVhuLRRgXl4ILFUeCT+RqWfTEeuXC6PN3aNwra/Zu9ai7FIeW3E72T
+aPAnPe7wyUQg/xMXVmCL0fB2MVZkTIQTZxfq9t1c0bhjNHuWJHsaGQtQ7ZP
yxiF4Lub5HI1o1FCgvTymeRRiLBSNBG2i0Ir16/wVgeMQtKns/2UTxGoUrL/
aLTxKNCSywxdB8JQgGs9p9+pUdANv7PpQn4YOlKTA9eOj4KJ1Up3um8Y6jTz
0DiuPwo/uhZYWtvD0Mz9jXI8B0bB4IEc9ZXdPSS2oMMVLjEKhVdNDYY5Q9GI
lkyj9/ZR+HzooPHhvhCUd39DgKPIKDhH7eOjvw5B+yR/rBoIjkIILeLOBYsQ
dMrMfZy8bhQUkmdTRyuDUWB11vuQxRGI1B1hZd4NQgbckYEecyNwV+7I/aWL
QWij2Y1DttMjgONWR8PVg9Cj+UPluqMj0CBAtkyaCUSlEr1Z7N9H4Hi25M8t
5oFoLGxdyN26EZiZjDhvER2ADE1dDvvGjIDLPeaey898kLFVgNuzyBHYpVaI
Jzn5IPNrD9Kb7o+Aohi/gpqqD7oeUsLcEDwCD295H8j6eAfFla2WpN0agbgb
3GS0cht9FwiQqrMagQPc+glfrb3Rrx0PzoxcGoGWtJyevSreaGp3RgCX+Qgo
1SoKzrJ5I5ZeY/8psxH41tO76dbzW0jckyvxp+EIJOTNlbdPeCGHnlhOdtUR
oNww2EwL8kRuv56pyOwdAVVqn9XAOU90e67YykhxBD5YSUsLKnqiSFJ3Tbws
oVdSfLX/dw9UqC7kKSU6AtubLQMkVT3QStKzMT3SCNzrWMxUprmjkLPFH8J6
KbDfdn1A6DU3lGPq+P1sNwXoG1p/GEm4oRZj8emdnRSQ660oefPNFW08Fb2x
qZUC1pa78311XVGKgZPpv3cUSJbX6U2TdkF5GhIU7yyizjEtKcZ5DbXt+041
yKDAz84QztIGZzSnFkvalk4Bq28jqf2BzkhF+Y9ceQoFgtJ3qfxkc0bV8j9c
lyIowG8sz5nCfRW1/xf3x+kGBRYYHBWg5IgWhI5u1nShwAt/HRPmqgPasm1t
B7czBWiGUXNltQ7oLP91vWxbCmQJATX3lAMa5jGMpJyjALX6U4LrLXu09Puf
kLk2Mf6BsCcpg7aIn1WhoKBFgc0zL5Qc822ROsPlIGM/BcaVOJbzfGzRnZWB
yynKFDA+UGbuJ2KLOOYrs7ukKfBtr7OgkZUN2jnrWvlcggJ+0h8SI1Rs0NFp
mdYb2ynw5/46bnWSDYoeT5zbLESB1Ff2x5peWaPXo8fWhgQoYOEmY5UTYI06
KexbCrdQCL8L4osm1oj6862k3yYKcMomyD6Ts0Zbh93UjvNQ4Nn//9//P+Eb
k6k=
           "]]},
         Annotation[#, "Charting`Private`Tag$34939#1"]& ]}, {}, {}},
      AspectRatio->1,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{-1.6674934614422874`, 0.002073621665403438},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{None, None}, {None, None}},
      FrameStyle->10,
      FrameTicks->{{{}, {}}, {Automatic, {}}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageMargins->0,
      ImagePadding->{{25, 8}, {25, 8}},
      ImageSize->{213, 213},
      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.6674934614422874`, -0.5325065385577127}, All},
      PlotRangeClipping->True,
      PlotRangePadding->{{None, None}, {None, None}},
      Ticks->{Automatic, Automatic}], ""},
    {
     GraphicsBox[{
       {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
         NCache[
          Rational[10, 17], 0.5882352941176471], 
         NCache[
          Rational[164, 765], 0.21437908496732025`], 
         NCache[
          Rational[122, 765], 0.15947712418300652`]]], 
        InterpretationBox[
         GeometricTransformationBox[
          DiskBox[{0, 0}], {{{0.1515172903961339, 0.}, {-0.4090966840695614, 
           0.1981345671107559}}, {0.3, -0.1}}],
         Ellipsoid[{0.3, -0.1}, {{
          0.022957489288986367`, -0.06198522108026318}, {-0.06198522108026318,
           0.20661740360087716`}}]]}, 
       {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
         NCache[
          Rational[10, 17], 0.5882352941176471], 
         NCache[
          Rational[164, 765], 0.21437908496732025`], 
         NCache[
          Rational[122, 765], 0.15947712418300652`]]], 
        InterpretationBox[
         GeometricTransformationBox[
          DiskBox[{0, 0}], {{{0.2485975524063778, 0.}, {-0.67121339149722, 
           0.3250834825652867}}, {0.3, -0.1}}],
         Ellipsoid[{0.3, -0.1}, {{
          0.06180074306244176, -0.1668620062685927}, {-0.1668620062685927, 
          0.5562066875619754}}]]}, 
       {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
         NCache[
          Rational[10, 17], 0.5882352941176471], 
         NCache[
          Rational[164, 765], 0.21437908496732025`], 
         NCache[
          Rational[122, 765], 0.15947712418300652`]]], 
        InterpretationBox[
         GeometricTransformationBox[
          DiskBox[{0, 0}], {{{0.34393543117714404`, 0.}, {-0.9286256641782887,
            0.44975393628127724`}}, {0.3, -0.1}}],
         Ellipsoid[{0.3, -0.1}, {{
          0.118291580819008, -0.3193872682113215}, {-0.3193872682113215, 
          1.064624227371071}}]]}},
      AspectRatio->1,
      Axes->False,
      Frame->True,
      FrameLabel->{{
         FormBox[
          InterpretationBox[
           Cell[
            BoxData[
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(w\\), \\(a\\)]\\)\"", FontSize -> 
               16, StripOnInput -> False], TextForm]], "InlineText"], 
           Text[
            Style["\!\(\*SubscriptBox[\(w\), \(a\)]\)", FontSize -> 16]]], 
          TraditionalForm], None}, {
         FormBox[
          InterpretationBox[
           Cell[
            BoxData[
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(\[CapitalOmega]\\), \\(m\\)]\\)\"", 
               FontSize -> 16, StripOnInput -> False], TextForm]], 
            "InlineText"], 
           Text[
            Style[
            "\!\(\*SubscriptBox[\(\[CapitalOmega]\), \(m\)]\)", FontSize -> 
             16]]], TraditionalForm], None}},
      FrameStyle->10,
      ImageMargins->0,
      ImagePadding->{{62, 8}, {50, 8}},
      ImageSize->{250, 238},
      PlotRange->{{-0.07832897429485852, 
       0.6783289742948585}, {-1.2349869228845751`, 1.034986922884575}},
      PlotRangePadding->None,
      RotateLabel->True], 
     GraphicsBox[{
       {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
         NCache[
          Rational[10, 17], 0.5882352941176471], 
         NCache[
          Rational[164, 765], 0.21437908496732025`], 
         NCache[
          Rational[122, 765], 0.15947712418300652`]]], 
        InterpretationBox[
         GeometricTransformationBox[
          DiskBox[{0, 0}], {{{0.22727593559420073`, 0.}, {-0.3636414969507212,
            0.27273112271304095`}}, {-1.1, -0.1}}],
         Ellipsoid[{-1.1, -0.1}, {{
          0.051654350900219276`, -0.08264696144035084}, {-0.08264696144035084,
           0.20661740360087716`}}]]}, 
       {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
         NCache[
          Rational[10, 17], 0.5882352941176471], 
         NCache[
          Rational[164, 765], 0.21437908496732025`], 
         NCache[
          Rational[122, 765], 0.15947712418300652`]]], 
        InterpretationBox[
         GeometricTransformationBox[
          DiskBox[{0, 0}], {{{0.3728963286095665, 0.}, {-0.5966341257753065, 
           0.44747559433147993`}}, {-1.1, -0.1}}],
         Ellipsoid[{-1.1, -0.1}, {{
          0.1390516718904938, -0.2224826750247901}, {-0.2224826750247901, 
          0.5562066875619754}}]]}, 
       {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
         NCache[
          Rational[10, 17], 0.5882352941176471], 
         NCache[
          Rational[164, 765], 0.21437908496732025`], 
         NCache[
          Rational[122, 765], 0.15947712418300652`]]], 
        InterpretationBox[
         GeometricTransformationBox[
          DiskBox[{0, 0}], {{{0.5159031467657158, 0.}, {-0.8254450348251453, 
           0.6190837761188591}}, {-1.1, -0.1}}],
         Ellipsoid[{-1.1, -0.1}, {{
          0.2661560568427677, -0.42584969094842834`}, {-0.42584969094842834`, 
          1.064624227371071}}]]}},
      AspectRatio->1,
      Axes->False,
      Frame->True,
      FrameLabel->{{None, None}, {
         FormBox[
          InterpretationBox[
           Cell[
            BoxData[
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(w\\), \\(0\\)]\\)\"", FontSize -> 
               16, StripOnInput -> False], TextForm]], "InlineText"], 
           Text[
            Style["\!\(\*SubscriptBox[\(w\), \(0\)]\)", FontSize -> 16]]], 
          TraditionalForm], None}},
      FrameStyle->10,
      ImageMargins->0,
      ImagePadding->{{25, 8}, {50, 8}},
      ImageSize->{213, 238},
      PlotRange->{{-1.6674934614422874`, -0.5325065385577127}, \
{-1.2349869228845751`, 1.034986922884575}},
      PlotRangePadding->None,
      RotateLabel->True], 
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[
           NCache[
            Rational[10, 17], 0.5882352941176471], 
           NCache[
            Rational[164, 765], 0.21437908496732025`], 
           NCache[
            Rational[122, 765], 0.15947712418300652`]], AbsoluteThickness[
          1.6], Opacity[1.], LineBox[CompressedData["
1:eJw12Xc4ll/4AHCJSgOFlFQko6xsUu4QbdmKZAtlZSQre5PMMrKz957HHi+Z
kVH2Hq/XOxDf9Ht/v+v6Pdfzz+c6fzznPOc+930/18NuaK1qQklBvij/76ao
wb744tlMQJlUsdyl/ykD77Hx6ExEQD/y5J/ScKhAArtWxPc6ApLbDZopfKAC
7uoqwecrCYiboa8AF6sCsjUKbsW5BLTC+fuwqqQqdPoKGMxEEdCUOqnpcqAa
SCXl6h6NIKCnfdNUHWVqkFPFo83/kYDcbtv2dU6rQcjaFbX3gQS04+uWNSml
Dk9VmBVOuxPQQmankSlOHUZYKa7JviIgrFuln6e1JtwTd+N8ZUxAELg+w5Gi
CVVP99hDDQjohRDrX94hTYjzIrKM6RDQ7cufLWwktUB3efmkrTIBebLq8kwd
fQbzpQO4ZCkCWl07aktR+xwID9OqKE4SkEdoofrOO12YZPrwZOUYAVE7UHyW
qdeFzmnt2QFqAprAOCiyHn4JXx3PnEz7h0dN8y+8k8JfwsNUTz0FAh6JPcPI
LpboQeofvSNB43hUviDR2XjcAEJbpePf/sQj6cuGbHrCBuD0kfmGzg88umir
rK+qbQBKnH3P+XrxSLPyOc/NXAPYU5bJ723Co5x3DifYVQxBNYtVnSEbj7DC
booz+UZw2253eT8Dj2ocuDQvThgBj8wPt/lUPArZkKOvPmYMB0PBmeUJeJTn
taFzxsQYcv7t7WmF49Hrr1vO+ldM4JDWWErCOzya1lKkoS8yhSLqmE1ORTya
Uw6i4LpoAZMfE7bl5PEonE58cUnNAk6wpP3Vu4NHPsevUDEEW4CpQNGJuJt4
JB5kUZu5ZwEXtTDctIJ4JNcqyTg1+RqCsg70tpnx6Iu6D+KpswTjR6/621e2
kOVClH79kg1EDFv+nFvcQl0d078sjtsC0rOfpJjfQiQRSYXn/LbAYu+5fnNy
C30Qdgncs7OFgYT4Y4WDW+hWh/x3baq3IIPtuxNbu4X0PfkSCEJ2wPxJsvhV
6Ba6+EKSsbjFAXDDnBKRQVvIjuBq6Yp1gE4WhvoGf7LdLt2OOu8ITukbnUxe
W8hirp4t18YRRitTp1sct5ATjeNd7yvv4PPkSXo2/S10JilF50G0E7DwzViN
Cm8h+8+WDUU1LoC36SUevrGFGL+otf3bdAFMea2zIP8W+pfm8SGX0xWcIcbP
j3sL0eIW7lyIcIVx1UdfRVm3EHWyoM9razeIf1/+PZx6Cx1hepP35NYHYO0I
5HswikN/VUz+fv7kCVb1ww8lhnHIm73mmXm5JzSWsptzDuKQ9t8KM5cxTzBO
rs441INDfDuU902veEH++5VLNQiHkrWPBRlWeoEM34PTvJk4NHZk7UAV6w36
n45tn3T8Xz96finSD0r81Rn33+KQQ7Pngz/ID6jck4VXrHHIVVbzD8eGH2RZ
SFq3mePQv+Dnbhb3/WFL3mzZTReH6tZMXLsoA8Bru2McexeH6OYOP7/lHwjp
Ov6onwGHbPlYtV0GQ0Dq9MFTAj0OWXFgjgYcCYXedvtpJlocona0e7h8MxR2
hAwP6RzDobSqTPWM9FCIonf2w/zZRLKiwv8uuobBjPlCKKF7E53iTkmsvBgO
zqx1CQo2m6giSqjD4t8nSPfPrg+y2ES4xzIprJcj4Ds+ZrLPeBOJHjnZ808m
Ati6bNm0n2+irlx6Rp0PEdDhwJ1uJbeJNBkxLm8oI4GxLyI3lnETiY0O/hY5
EwX5nuY1K1VYZLrC3nddOwYwTxlPlpVgUbTIOZpG7xhYvoh03fOwaMCmi/1L
fgxcrWE8xJCMRfL3y3TOUcZCHB7du+WPRdSysKdeEAsBRmeHwzSwiLXAR+Ic
4xcwVmjZFMFvoL8C7kaGzAngxWAle7C2gWKC1uiuP0yA5JlzkZ0LG6gWS4qX
dUuACTcrcd2xDSRW+XnZYD4BVCvOu/k1bqD2xl23txWJANw2x8fCNlCLnCWB
3yIJWGgucrrzbqCv6dZlToEpEPI42t6EcwMJyKllFWamwL+Pp1ofX95APFy/
PjC0p8D82QPDCwwbKHmoLM/wcCoUXp1KrtpbR6rVEl1XPVLh7p0UVkLXOhIX
Sp4y9UoDq3ecjGZm6yhX6Le4fm4GTNckGj01XEcXuc5rJfRlgNoBU6n4i3V0
/Ted6EliBkj6HlGlVl5HjK1njwXc/gaHI5c+pkqso286c9rbg9/gc0H2id9H
1lGyNQ/n9NEsaF7gP6yasYauSGJUvOJzoCZzXzw1aQ1xjVpFNrTkQIl5lwX+
yxrqMvS6KbCeA6kbxoMRYWsopB7jlnU7F7xI8SlD79aQMf1fGdq5XJClPn5H
4+EaaqTNuICRyIfGq4uuzzZXEWVWs5QQdRFULZYWZa2sIkuWupMVrEVQlOU5
vzu3irwVaCq1RIsgme/i4y+jq8hvQ3V3y6gIPETVL4w3rSIJReYDn9YiuHO3
uVonahUZVg0USgcXAzL6uv1SahWNRmcUpwiWQl7ANR1RkVXUK2VyUf5JKXzO
L0M0/Kvoz/nJ+8dfl4LNDiagjG0VOevomhzPLAW24B2W48dW0f0BGcNhtjLw
KFGG8pEV9KGDtFB6oRxkDx0OOGG/gjz62t99EKwEAa6w9WnLFfSgOPYGi2ol
sDw6r1LxagUN5tvMTNpXAj5KkMVAZwXtRJiVLNZUQirPi7wKuRXU3CbRQrhf
BZTK5f0Gp1cQ1YNLnOyW1dDy9dX5qoJlNPOHl7dspBZE5e4bbmcto/2n6D3H
f7XwbYEnVzRtGf301ztUy14HAXyrt4pjl1HPs7fcRpZ1oFTzRj/HYxmVZS42
xB2ph/Fh28wE1WVkF3zco+FOA+BOuop5bi8hXS+VxvsWjcDqEq7yUGYJBcTW
Dh2+0wKzkTKfMySXUPXALYdCrRbIylufpBBZQp6Rls621i0gNnn/TSX3EkrR
+zshmdQCSrKH/K+eXkIW7sECI/9awPPo27qDuUVUYRLmq97WCouRatylgYso
N8naINugHYryzv69MLyAgieHBkZmusCCx8v+v94F9KycZmbzEAY40zfWfnUu
oBKmVVauKxiIi28dT6xbQCrs1HKrhhjwCXpbdTl9AS2Zbj4dXMCAllmvHYfd
ArpRr5h4basbDjj8Vq+fXkD6VCVTNy71wqN40k+pJ/NoP6NKOdJ8AIKiK0S8
782jmQjPQ/SuA4D5+O5jj+w8CtmivxAXNgAPff4o6onPo+KhopCR0gF4YPm3
3OfyPPpopuKDOxiAe0Ad1bc1h+IbiK+zYwdBfo5R2SRmDv3jVfUQGhoCaV7R
zvCpWfT6kvBj97cjIOzUvSSiNoN4kkX6ln78gi5RDxJfwhSa+pCmHro7A6O1
PIrG7b/Q14M7dk+iFoBU50USKR1DlbdPcvzLW4F6ioQ+hx8jaNa9c/a35wZE
NZgeU64aQtMlD0rWqnEg9mP+zfm8IfRxLDzkURMORlYMB2aThpCVWeyvzE4c
nGfSi3PwH0JKpoNI4ycOvr7W4ovXHEISbphGXyIOMs/dV14kDqKL129cviGw
BTVvr312FRpES4QlYeevWzDNtc6dndOP1HgsDz20xUOIFJPG3aR+VOaSOML+
Dg+Sj2W8piL7UfPdXUqSKx7CbcN/Mbn1I/PCuYehAXiAOtFPXk/7Uci2/H8+
SXiQTtsjVi73offChUwhPXio2GWNu+jai/Sdaw2GrhCA9pI1Uc2kF40aNn86
wUMAE/kmpSClXnQi+ZWlDD8BGMNMDu+w9aIQPBtDlAQB7DgK3vS3fUeWhIdB
B48IcEMJwJvuO7rpNtjWbUeA3DSD+eXUbjRveUWTExHgh3r2IdGgbqT9WOPD
8VYC/Ee9demDbTfK1HArWO4kwGMzj+dMd7pRRWPp0fBBAqzzJfXK/sag7vs+
R4IWCCBQ8asqjhmDkpL81bmOE0Hz1dWRhYMu9O+bjPQXWiK4n3tDuLHYhW4E
v+6jYiBCr/M+f0dZF6J6xrTWdoEI1sCSRlDpQqHqWN1NPiIUdWqFPg7pRK5b
4Q3jT4gw+j4pJ9auE7VI6zKNqBCBgnepY1a7Ex3YnOjq0iCCcqgj5ftrnSjX
6ZRonC4RtlSi32W0d6Cpc0HRk2+IIDwxaHBA0YFuhXAFbQUSoWzjiXiRQxsa
RDoCVxqIgP+8Nv/1ZRvyjVI42GgkguDdwMjQe23oxPKbopIWIuTEteIszreh
S9NFhVxdREi+J53LWd+KIp+rdVUNESE4hYctnqoVDXi47XstEaHzcXtv4EYL
uphRmDixQoQju0ZuTiMt6GqY9TbfOhE8lJLGNbJakMvxsqZqHBEc95mi6R+3
oK+Pal1c/hDBUOPwcb/IZnQGa+CcSEOCZIqUKnvXZuRFG/bG4wQJfufKvDIy
aUZDpiJbOqdI8IzSufWORDOiUiBl/0dPAqVCnPv+eBOqk9BPm2cmQYh2GP9q
SxMqS79GCD5Pgi5qvl+jeU0odkq5nfcCCe6+eCVV4d6EypebNtUvkUCKZpJg
c6UJhf7lZ3tylQSOZS6peieaUP9Evk4VJwnK9M6rKBEbkd0hq1Os3CQQrFAv
4G1vRD101d97rpGA06jbbNG8EfHe9PkyJEACQ1pz5mHVRhT55+dLyhvk9VQf
aW+RbkTsd1Q/XhMiwQV6OY6UU43oQ2MHn4EICdidbWsrDRHK7/8l6SBBnp/L
uaNuYgg9ORMWYChJAlNXpCp3DCETawG/+1IkyHE/tdqT34D2PAL8D26SoOdD
mViERwNSF3AJ7JUmAdZDx1NLrQFtr/WKxd4igYh39rnZ3XpUfF4v6IwMCTR9
lI0zu+tRxtPTQm1kO/nuFL75Wo/krtJ/sAES1Pkr3NuRr0eCh0Roi++QYDJg
PaLubD2i6qBRUpQlAUVQ5KTnSh3qy4oQ/kG2QsiMw8mPdcjopv3SmBwJzEID
mgYM6pBdS12FijwJgsIET8WK1qHfrLE8zWTnfRx59uJoHQpQC7vFe5cEveFu
6ezjtUibVQwfQjbu01XcYl4t2vzB+WCJ7DOR3dJ5H2qRig+l7E0FEohGvfW3
Va1FERP2Y75ka0WfHxLnrEUW4gJnMGQ7xzRe+m+nBlXHL60eUSRBQuwriyZM
DTrWYGB0i+yGz7QVfonkDn3f2MWC7Okv5Yce29QgD/0m4U9kU8a/eHJavgaF
pSkFFpF9NeHwlxGmGvTftXX3TrIVE3Pm45erEZ7ak2GMbPOvKjcMaqsRzc6+
4izZIUm7Llxh1cjcQu38PNkFyUkda/rVaMzZN2iS7P4URYZikWrUjIuNGyAb
n7rx0vFINeKU+/ygnmzG9Kgc6bEq5B8RH5tCtniG9DZFXhVqK2nwcSf72bdZ
2Xb3KrTGxnVanWyXzMDQYJUqhD16cOsK2V+zbowpX61ChuB8bIX8Phqzf149
u1OJ2B6N2GWRPZvjbjPRVYkmtTU+6JNNlcdZl5xQieoeyPGeJpsrv+eoqXUl
akzcfFdDfv/3C+zUeOUq0SP/SpMXZIcWNa2WL1UgKz4uriDyfhYVm4m71FSg
+pjMP0xkD5bQed0JrUDe+F3rOHI8nC3XPd8tXIHWTjDdCyXHi2QFlUk4dQW6
UrCTtU+OL+3K3CKN0XJ0mma80JDspOo/96bdyhFjDXshCzkem2uSIzOUy9GD
k7+yXpPjdb723pQFRzniOXXnYfltEvA0RDuSOstQzgqlvzA53oubhTKOM5ah
uDbafz/I58d+osXxz2wpOnn/B/tP8vmSJGrcXy4uRWt9uZn94uR44HRea3ta
inJSv85ki5IAE9As5BlcgrIsb4uSBMnrTVE/bKNdgmTKCFEl5POtXLP44+W1
EuR0e8noFT8Jfq4dd7rVUYySumZUK6+T56ek1rBDWYzufl5Lw5HzSearhY+L
A0Xo2W+aDHMOElh4vDMYTi5CzBeuXxlnJ8FWcTxVqUwRKiOd/ZxCzkf71zqj
fxELkNmCZQ6GnM8EKlYKuuZy0RTNxn3/Y+R8tHRKNdMzF305PEz1/ggJpM8L
k3wu5yIn7x09Qyryfrk6S9/RyUGNbRcOLlCQwEDuRGfFYBba99Dl4N0hQlQv
30xaUwb6XMjpXjtHBBYKFR9PvQzEkz5sxzNDhBQhB269v+koYfGPWOgkEQqi
6i1ZpNKR/Td5PpkxInRoK+2FF6Wixxz20jK9RCB8n+L6TyYJSfXfG62uINeP
Q6M7Q/5f0f6MLON4KTm/i/V35vYnIqv4VzqEIiL0JzRa6BgmoNBeQ+bTuUTI
e51SUOP7BZnd+Jnw5ysRTGiMxN/3RCKJ0Ps5nr7k5wf2BK+XeqCwBPYYX3J9
lJx9ryMZ7I7+auwmfn9ABKZi7aTYAhckFgyX6RTJ9VaJlVuT5IDswuMT3WWI
4MkIlt+oTdCOyMMdOkEiVPwtVTdpNQPh4Ijkf+R6HRjAJX75bCj85DJjuIEh
9xfGv4050sLAKcJGQ6mNAH2XMV0M58JBZ9gyxKSRAM/3PXaZMz5BjWwxzr2C
AFYlWA02FAW3HH9JvEwlQCwbhl6IEAeMFpJUP5wI4OB+Rz47Pw1c6O6e62Qj
gHG+y4uF40VAV5TQIfcSDwKTi4RE6SLI5n9SgtXCwy6tarDmmyIQ9xl5Ha1C
7rdseGo6vhdBwAjjq6G7eCgTGWbOCS8GvQ2XO2d48XC4RmDI6mwpdDfUJ6Rs
b0Fq+8yDXfYKuH7h/GfJoC2YmroncUKqDizC2C1/p+NgzDtYpAzTAqGkE+Gb
BRuQwUFPW0Logg6+88MTEStwSeZsZHdpH8SHpeyN1y/AsKdahl3uIHz5yymJ
uToLIRYWV8xrhuGgYsuTguU3xNM3269HjcK5BtYoL66f8DA7nO1xyiik0Llw
vqP9CXuyej25+aNgPuPB5bI9Atp2/3G8bh+Fwu9VfsXtI8AyIj60sjMKGwry
nKOvRsj9fq7QkvYYeH/fqKHLH4Y4rmjsDNs4/IcdL7wp/wPibpmZ/cybAKOd
Yo+erwNwZzT4kUnVBNC9lWw5FDIAC3aFAoSWCUhpMq27+34AbuRuE2knJmCt
TKGXoDYAbed9PRVpfsHb+d9PtmkGALedEldu8gt+Xt51D3bqB4XiiZ7IS7+B
NRBz5QfqBRznUyHl8EnwUbPXGsnHwPrIz3Pp8ZNQOjL6JPojBpb89Sl2v03C
EEf7S0tbDEyu2PYl1U/Cw+9bxWZiGOjJj7LcXJ0ESoc6heCGLsgSG88OU5gC
/8BcvvfDnaCvYHLl+94UHB68tl7H1AEC+9s+9IenwVza8snHvXbIU6t1qjk2
DS8EMJXvp9ohk+quPi3jNFi9LPKMyW6Hr6YaghXXp2Hok9IvrEw7hFx3+k79
bBq4AiXPnLFqA7OSepqMkmnwtLrIPPG7BfCZrT1dVdPwLzXbMqylBVwSuz9i
G6Yh7ra3/4vsFggLGGOS7J6GLIrOnvsOLVD+ksTePTcN4v4C9Pq0LUB5gv/m
FuMMuOtJzrkqNEOCUYLF7Xcz4F2a7nCsoxG4nqfxG7rNgOiJst2dwkYoVMrB
+XnPAK1dmjHFl0Zolqpy7P84A5njlNU6rxthhe6Hl1HWDLSfIXy9eboRxOtO
xAeOzUDX74ybzC0NMMDo0j0sPQv51tGBTDx1MBLMl/NJdhaSYz5pJFLWwTjl
ZMCTe7PQJlB86snvWpjF3VFsU52FWYe+nxyRtUDsOdJUZj4LXWbSy7kUtXDW
N6IiMnYWMsI3gmjnqkGHlJ2iQpiFSNF9VYPWStB/o+Nx6s8sfHk9klCSVgnG
cyf1ug5moTw52p7HuxLeDFizyh6fg/oCZgNPuUpwzxeLvcE+B7niCmILzRWQ
bNIUQvd0DgZX9Cl0MeWwMDz67nvOHFwb0xhVIpTC9koPJ1XxHCzkXuJP/lEK
Rw4ah25WzoEjfsT6XEUpcHFlC2a1zEHXZQMxt/elYOr4fsnrF3m8ceMvA2Up
LJ9l0ZKknQcb5jz3ZywlsK6lI55mOw9WNvy6SqZF8N/rp/Nj7+Zhb6v8uvTj
IjjpIR9B7z4PznGJ6Q+Fi4A/ixfrFjQPJG4KwdS/hWC1u5/xLG0eflXQpeGE
C2HzcwIT7fA8REhzEzhz8gE/9pvoJLkAzHI9PJxdOZDvRJURIbMA/Iv6atuJ
OWDGzKuRd3cBtq9QWlHa5cCUulP5lPICMHGbemIu5kBP3xlHRfMFOPXWM4DB
MRu+td3bYYhbgHgZrWJ1oSzQKS7+U7C/ALMq+Zzb/RlwVnk0u/PQIhhu1QqU
5GXAIPbg+ezRRei/mNWbEpAB9/ke1zAxLkLI7YNNFtkMEM9cdHblW4TyxRNB
VmXpQJ944b8HuovQeqiSwSI9DVoDfA/mGxaBXUJaRCgrBfayNDHRrYsQWbNK
vx+cAje6uGMUMYuQZCk9s2adAgk0GP6s4UUI4HtRKCuZAvZBtLqv1xcB5zbz
shqTDBwhsbVb55dASutkstlGEnh9zHY6sF+CaGO2FpuhBKgqdL5b6LwE/Wn9
QmzpCYDte0Sv77EEITW8DxkcEkCbHpvZFLwE53rVoYU5AYQ/Cf/0SV2CtbsS
dbL68TAbUSt2on8JwuMCWx3+fgHZmO94Zt5lsDkexJ5nGgteajOh8kLL8Nqt
UWdDOhZa6Uk81hLLIP696Yrd6Vi4H8yq1y6/DBjicezD+hhQ9njdbf9iGWZ1
a3PZz8XASwua9IHQZTBNDNW9NB4FrjIKGsG4Zegpnji0FxIBDfvPcBXby6DP
MLDAYREBFNVvgmf/WwbLpIVM/3sR4C0S1SRFswLKpt989ykjIIhnjn+ZfQWS
DSIIwa6f4MsZzyMKaiuQ7fj24LhzOFQs1lUelK+ANdZTd1wyFN5yulg11a4A
9YYsTowqFASNpTh9mlbgUd7T3YW+EMiaKY+g+b4Ctt0zibJmIRD3q8CScX4F
xBgF+8YTgsF9MJnj+plV0D4Z1inMFASKDT4fNaxW4Yl1npcH+APlXznFc/ar
wCijxB/N6A9I+tDf8ferIBVFGsKt+IFktZuFvu8qfAkP93aJ9oPrZY4KrxNW
gX0ryn9o0xdoc8z2PTCrsHv7r7FksQ/8jH78Ko9rDUQ17YJvG3uBjN5tNlW+
NbhQ5+7HKecF33gExnaE1sC8wtdakc0LHGvpHsnfXgOnGzPNQr89gXFmUGBc
bQ00OQf8Mp57gjLf8+2jnmvgNU7rUPvCAzDNJr5GE2vggnV9f4TBDYRDNGVo
ZtZg3NKCb2bCFb5o3NspWFyDnw94w1gyXMFsmcd8b2sNDnmc4s6UdIWjtOuP
Px1bh209PtVzxi5w9/lbRiS2DnvdGuMz3e+hftM9jSV8HQxjSu9bTTjCDc0S
XumYdUgNeH/qWa4jpNctlOokrMM3PeJQoosjBAU+bk3IWod7Q9i9mxcd4RkH
y8KlpnWI/8iNzzF2AKJmORcHfh12zdUUJw/bg1n9coH87jow35ZWkR2zgwkO
Vgnjg3WoDxY7vVNgB804r3sZxzegezvw/TMdOwgPUjbj5tgA6+i12LnKt8DX
sJbNq04el5vdS/1gC8lXLws/1t6AVu67/rjntsAQrFrzRn8DbuL17gWI2sKe
VjUm/80GUDBS60at2kDnlt+aoO8GhGSwT9Fr24Ax5xV+0YoNeLEcqKUTYgXx
Ic+Kbp3DwrzvH/6XSRYQZC+uTryIhRCR/K0oMwtwesG4m8uBhSjWM9dEhC1A
na8fLghiYdfxnVRauzmc7LnX90cBCwSbo9RANAP3ExLYCjsshB9ViBgweAVv
CIwRVu+xcDXx2w9BoVegPYEX4/qAhZR6PsY1ilcgnlvgFh2EhTvDI6ccU0xh
8yHXKfsULDkPrZf1LJqAfhATn1AfFkRsFWm3PY1B6S2hb/kHFrzxY3oTmsZw
S3vALnkcC2f1OTgY+Yzh3PXQWrpFLIxFfapx+2kEA11Uj7D/YcGqQ9edXdgI
5GiI5rnXN2GqbzP1xrYBXA0YzOT024RBIxp3n9d6MB1s7OMfsgnOJ7tGH7Dp
kfd1W38lYhOaRiqKy4dfwplYFpb8pE3Y0eXNdZF7CYe+GYaIVm8CzTWZkQQO
XZhswdvIr29CFeUKO+thHYjr8HmSgd8E8QHvwyVN2qDRffb60T+b0Dc8Gzvu
oQ2m5om2C5Q4mE28LjRFoQ2TNk3Xs+lwoKnCczjm6HPo+UCTeOMaDgT+UFYg
AS3I8VQNNuDDwZybjOofkiYEeMe/jxDEgegD8mdAvSbI+/NrEsVwMM2M8JlK
mlATpkJXJYcD7truCCtHDchO/OIJL3DgJ+UXH/NLDfySZq1t9HAgv5ou8CpX
DYxTeF+mGOKARZCSkOWsBmwZ9TcPm+PASqpU25VFDT7nzRDaHXCwJGjB+EBP
FRwLrs/uOOEgjKMtMlBIFdSL7Pp5XHGw73/sqCiVKtCVUecHeeEgJsfkYUuO
CqyXK8XX+uLglTWn3jd3FcBUxgauB+DgZjTj1qaqCmRVT7+7GIIDBq4IriRu
FfCrvWaq9BEH//+//38A3bSiUg==
           "]]},
         Annotation[#, "Charting`Private`Tag$36532#1"]& ]}, {}, {}},
      AspectRatio->1,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0.0010368108327017207`},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{None, None}, {
         FormBox[
          InterpretationBox[
           Cell[
            BoxData[
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(w\\), \\(a\\)]\\)\"", FontSize -> 
               16, StripOnInput -> False], TextForm]], "InlineText"], 
           Text[
            Style["\!\(\*SubscriptBox[\(w\), \(a\)]\)", FontSize -> 16]]], 
          TraditionalForm], None}},
      FrameStyle->10,
      FrameTicks->{{{}, {}}, {Automatic, {}}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageMargins->0,
      ImagePadding->{{25, 8}, {50, 8}},
      ImageSize->{213, 238},
      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.2349869228845751`, 1.034986922884575}, All},
      PlotRangeClipping->True,
      PlotRangePadding->{{None, None}, {None, None}},
      Ticks->{Automatic, Automatic}]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}],
  "Grid"]], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[112]:=",ExpressionUUID->"e7c7b3e2-4321-4f8f-bc88-506a7a7b9537"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Quiet", "[", 
   RowBox[{"DeleteFile", "[", 
    RowBox[{"ToFileName", "[", 
     RowBox[{"\"\<results-chi2\>\"", ",", 
      RowBox[{"rname", "<>", "\"\<_run\>\"", "<>", 
       RowBox[{"ToString", "[", "run", "]"}], "<>", "\"\<-log.txt\>\""}]}], 
     "]"}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Save", "[", 
  RowBox[{
   RowBox[{"ToFileName", "[", 
    RowBox[{"\"\<results-chi2\>\"", ",", 
     RowBox[{"rname", "<>", "\"\<_run\>\"", "<>", 
      RowBox[{"ToString", "[", "run", "]"}], "<>", "\"\<-log.txt\>\""}]}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "mvn", ",", "logD", ",", "parnames", ",", "PMat", ",", "CPMat", ",", 
     "vecP", ",", "mvprior"}], "}"}]}], "]"}]}], "Input",
 CellLabel->
  "(Local) In[119]:=",ExpressionUUID->"230ca7fa-08fd-4abc-bc10-d4e5c19e0f35"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["4 Fisher approximation",
  FontColor->RGBColor[0, 0, 1]],
 " - can be skipped"
}], "Section",ExpressionUUID->"485388a7-09b9-4f22-adb2-203059ac80d4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"comboLP", "=", "1"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "0", " ", "to", " ", "do", " ", "Fisher", " ", "on", " ", "the", " ", 
     "Likelihood"}], ",", " ", 
    RowBox[{
     RowBox[{
     "1", " ", "to", " ", "do", " ", "Fisher", " ", "on", " ", "Prior", "*", 
      "Likelihood"}], " ", "-", " ", 
     RowBox[{
     "this", " ", "may", " ", "be", " ", "necessary", " ", "if", " ", "the", 
      " ", "Likelihood", " ", "is", " ", "too", " ", "degenerated"}]}]}], " ",
    "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"forecast", "=", "0"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "1", " ", "if", " ", "a", " ", "forecast", " ", "is", " ", "considered"}],
     ";", " ", 
    RowBox[{"skips", " ", "the", " ", "minimization"}]}], " ", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NumChi2", "=", "2"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"0", " ", "if", " ", "chi2imp", " ", "is", " ", "analytic"}], " ",
     "-", " ", 
    RowBox[{
    "the", " ", "only", " ", "implication", " ", "is", " ", "how", " ", "the",
      " ", "Hessian", " ", 
     RowBox[{"(", 
      RowBox[{"Fisher", " ", "matrix"}], ")"}], " ", "is", " ", 
     "computed"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"1", " ", "for", " ", "NHessian", " ", "package"}], ",", " ", 
    RowBox[{
     RowBox[{"2", " ", "for", " ", "built"}], "-", 
     RowBox[{
     "in", " ", "experimental", " ", "Mathematica", " ", "function", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"also", " ", "suitable", " ", "for", " ", "non"}], "-", 
        RowBox[{"numerical", " ", "functions"}]}], ")"}]}]}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"scaleNH", "=", 
    RowBox[{"10", "^", 
     RowBox[{"-", "2.5"}]}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"NHessian", " ", "package", " ", "fudge", " ", "parameter"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"orderHes", "=", "3"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"order", " ", "used", " ", "by", " ", "the", " ", "built"}], "-", 
    
    RowBox[{
    "in", " ", "experimental", " ", "Mathematica", " ", "function"}]}], " ", 
   "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"mvprior", "\[Equal]", "0"}], ",", 
    RowBox[{"comboLP", "=", "0"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"If", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"comboLP", "\[Equal]", "0"}], "\[IndentingNewLine]", 
     "\[IndentingNewLine]", ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"forecast", "\[Equal]", "0"}], "\[IndentingNewLine]", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"minimum", " ", "chi2"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"fmMethods", "=", 
          RowBox[{"{", 
           RowBox[{
           "\"\<ConjugateGradient\>\"", ",", "\"\<PrincipalAxis\>\"", ",", 
            "\"\<Newton\>\"", ",", "\"\<QuasiNewton\>\""}], "}"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"LaunchKernels", "[", 
          RowBox[{"Length", "[", "fmMethods", "]"}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Print", "[", 
            RowBox[{"AbsoluteTiming", "[", 
             RowBox[{
              RowBox[{"DistributeDefinitions", "[", "\"\<Global`\>\"", "]"}], 
              ";"}], "]"}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{"Print", "[", 
          RowBox[{"AbsoluteTiming", "[", 
           RowBox[{
            RowBox[{"DistributeDefinitions", "[", 
             RowBox[{"fmMethods", ",", "chi2imp"}], "]"}], ";"}], "]"}], 
          "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"tabfm1", "=", 
          RowBox[{"ParallelTable", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"Off", "[", 
              RowBox[{
               RowBox[{"General", "::", "partd"}], ",", 
               RowBox[{"FindMinimum", "::", "fddis"}], ",", 
               RowBox[{"FindMinimum", "::", "bdmtd"}]}], "]"}], ";", 
             RowBox[{"AbsoluteTiming", "[", 
              RowBox[{
               RowBox[{"cout", "=", "0"}], ";", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"FindMinimum", "[", 
                  RowBox[{
                   RowBox[{"chi2imp", "[", "vec", "]"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"vec", ",", "vecsol", ",", 
                    RowBox[{"pSet", "[", 
                    RowBox[{"[", 
                    RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
                    RowBox[{"pSet", "[", 
                    RowBox[{"[", 
                    RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
                   RowBox[{"Method", "\[Rule]", "i"}], ",", 
                   RowBox[{"StepMonitor", "\[RuleDelayed]", 
                    RowBox[{"cout", "++"}]}]}], "]"}], ",", "cout"}], "}"}]}],
               "]"}]}], "\[IndentingNewLine]", ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "fmMethods"}], "}"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"CloseKernels", "[", "]"}], ";"}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"Print", "[", 
          RowBox[{"TableForm", "[", 
           RowBox[{
            RowBox[{"Partition", "[", 
             RowBox[{
              RowBox[{"Flatten", "[", 
               RowBox[{"tabfm1", ",", "3"}], "]"}], ",", "4"}], "]"}], ",", 
            RowBox[{"TableHeadings", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"fmMethods", ",", 
               RowBox[{"{", 
                RowBox[{
                "\"\<time in seconds\>\"", ",", 
                 "\"\<\!\(\*SuperscriptBox[\(\[Chi]\), \(2\)]\)\>\"", ",", 
                 "\"\<best-fit vector\>\"", ",", "\"\<evaluations\>\""}], 
                "}"}]}], "}"}]}]}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
         
         RowBox[{"sortabfm1", "=", 
          RowBox[{"Sort", "[", 
           RowBox[{
            RowBox[{"tabfm1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"#1", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "<", 
              RowBox[{"#2", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "&"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"beffi", "=", 
          RowBox[{"sortabfm1", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"chi2minfi", "=", 
          RowBox[{"beffi", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ";", 
         RowBox[{"vecL", "=", 
          RowBox[{"vec", "/.", 
           RowBox[{"beffi", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"tabfm1", "=", 
          RowBox[{"ParallelTable", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"Off", "[", 
              RowBox[{
               RowBox[{"General", "::", "partd"}], ",", 
               RowBox[{"FindMinimum", "::", "fddis"}], ",", 
               RowBox[{"FindMinimum", "::", "bdmtd"}]}], "]"}], ";", 
             RowBox[{"AbsoluteTiming", "[", 
              RowBox[{
               RowBox[{"cout", "=", "0"}], ";", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"FindMinimum", "[", 
                  RowBox[{
                   RowBox[{"chi2imp", "[", "vec", "]"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"vec", ",", "vecL", ",", 
                    RowBox[{"pSet", "[", 
                    RowBox[{"[", 
                    RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
                    RowBox[{"pSet", "[", 
                    RowBox[{"[", 
                    RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
                   RowBox[{"Method", "\[Rule]", "i"}], ",", 
                   RowBox[{"StepMonitor", "\[RuleDelayed]", 
                    RowBox[{"cout", "++"}]}]}], "]"}], ",", "cout"}], "}"}]}],
               "]"}]}], "\[IndentingNewLine]", ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "fmMethods"}], "}"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"CloseKernels", "[", "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"Print", "[", 
          RowBox[{"TableForm", "[", 
           RowBox[{
            RowBox[{"Partition", "[", 
             RowBox[{
              RowBox[{"Flatten", "[", 
               RowBox[{"tabfm1", ",", "3"}], "]"}], ",", "4"}], "]"}], ",", 
            RowBox[{"TableHeadings", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"fmMethods", ",", 
               RowBox[{"{", 
                RowBox[{
                "\"\<time in seconds\>\"", ",", 
                 "\"\<\!\(\*SuperscriptBox[\(\[Chi]\), \(2\)]\)\>\"", ",", 
                 "\"\<best-fit vector\>\"", ",", "\"\<evaluations\>\""}], 
                "}"}]}], "}"}]}]}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
         
         RowBox[{"sortabfm1", "=", 
          RowBox[{"Sort", "[", 
           RowBox[{
            RowBox[{"tabfm1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"#1", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "<", 
              RowBox[{"#2", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "&"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"beffi", "=", 
          RowBox[{"sortabfm1", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"chi2minfi", "=", 
          RowBox[{"beffi", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ";", 
         RowBox[{"vecL", "=", 
          RowBox[{"vec", "/.", 
           RowBox[{"beffi", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
        ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"vecL", "=", "vecsol"}], ";", "\[IndentingNewLine]", 
         RowBox[{"chi2minfi", "=", "0"}], ";", " ", 
         RowBox[{"(*", " ", 
          RowBox[{"it", " ", "is", " ", "usually", " ", "the", " ", "case"}], 
          " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"beffi", "=", 
          RowBox[{"{", 
           RowBox[{"chi2minfi", ",", "vecL"}], "}"}]}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"testFin", "=", 
       RowBox[{"Total", "@", 
        RowBox[{"Boole", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"vecL", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "==", 
             RowBox[{"pSet", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "||", 
            RowBox[{
             RowBox[{"vecL", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "==", 
             RowBox[{"pSet", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"Column", "[", 
        RowBox[{"{", 
         RowBox[{"\"\<\>\"", ",", "beffi", ",", 
          RowBox[{"Row", "[", 
           RowBox[{"{", 
            RowBox[{
            "\"\<{\!\(\*SubsuperscriptBox[\(\[Chi]\), \(min\), \(2\)]\),   \
{vec -> \>\"", ",", "parnames", ",", "\"\<}\>\""}], "}"}], "]"}], ",", 
          "\"\<\>\""}], "}"}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"testFin", "\[Equal]", "0"}], "\[IndentingNewLine]", ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Which", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"NumChi2", "\[Equal]", "0"}], "\[IndentingNewLine]", ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"LMat", "=", 
             RowBox[{
              RowBox[{
               RowBox[{"1", "/", "2"}], 
               RowBox[{"D", "[", 
                RowBox[{
                 RowBox[{"chi2imp", "[", 
                  RowBox[{"Table", "[", 
                   RowBox[{
                    RowBox[{"x", "[", "i", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}], "]"}], ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"x", "[", "i", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}], ",", "2"}], 
                  "}"}]}], "]"}]}], "/.", 
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "i", "]"}], "\[Rule]", 
                 RowBox[{"vecL", "[", 
                  RowBox[{"[", "i", "]"}], "]"}]}], ",", 
                RowBox[{"{", 
                 RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}]}]}], ";"}], 
           "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
           RowBox[{"NumChi2", "\[Equal]", "1"}], "\[IndentingNewLine]", ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Get", "[", "\"\<code-stat/NHessian.m\>\"", "]"}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"Hscale", "=", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Total", "@", 
                 RowBox[{"Boole", "[", 
                  RowBox[{"Map", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"Equal", "[", 
                    RowBox[{"#", ",", "0"}], "]"}], "&"}], ",", "vecL"}], 
                   "]"}], "]"}]}], "\[Equal]", "0"}], ",", 
               RowBox[{
                RowBox[{"Abs", "[", "vecL", "]"}], "scaleNH"}], ",", 
               RowBox[{"10", "^", 
                RowBox[{"-", "3"}]}]}], "]"}]}], ";", " ", 
            RowBox[{"(*", " ", 
             RowBox[{
              RowBox[{
              "in", " ", "the", " ", "rare", " ", "case", " ", "that", " ", 
               "a", " ", "bf", " ", "value", " ", "is", " ", "zero"}], 
              "..."}], " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"chi2impt", "[", "vec_", "]"}], ":=", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"coc", "++"}], ";", 
               RowBox[{"chi2imp", "[", "vec", "]"}]}], ")"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"coc", "=", "0"}], ";", "\[IndentingNewLine]", 
            RowBox[{"LMat", "=", 
             RowBox[{
              RowBox[{"1", "/", "2"}], 
              RowBox[{"NHessian", "[", 
               RowBox[{"chi2impt", ",", "vecL", ",", 
                RowBox[{"Scale", "\[Rule]", "Hscale"}]}], "]"}]}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"Print", "[", 
             RowBox[{"Row", "[", 
              RowBox[{"{", 
               RowBox[{
               "\"\<NHessian calculated with \>\"", ",", "coc", ",", 
                "\"\< evaluations.\>\""}], "}"}], "]"}], "]"}], ";"}], 
           "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
           RowBox[{"NumChi2", "\[Equal]", "2"}], "\[IndentingNewLine]", ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"authes", "=", 
             RowBox[{"Block", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"e", "=", "0"}], "}"}], ",", "\[IndentingNewLine]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"f", "=", 
                   RowBox[{"Experimental`CreateNumericalFunction", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Subscript", "[", 
                    RowBox[{"x", ",", "i"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}], ",", 
                    RowBox[{"chi2imp", "[", 
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Subscript", "[", 
                    RowBox[{"x", ",", "i"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}], "]"}], ",", 
                    RowBox[{"{", "}"}], ",", 
                    RowBox[{"Hessian", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"Automatic", ",", 
                    RowBox[{
                    "\"\<DifferenceOrder\>\"", "\[Rule]", "orderHes"}]}], 
                    "}"}]}], ",", 
                    RowBox[{"EvaluationMonitor", "\[RuleDelayed]", 
                    RowBox[{"e", "++"}]}]}], "]"}]}], ";", 
                  RowBox[{"f", "[", 
                   RowBox[{"\"\<Hessian\>\"", "[", "vecL", "]"}], "]"}]}], 
                 ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"LMat", "=", 
             RowBox[{
              RowBox[{"1", "/", "2"}], 
              RowBox[{"authes", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"Print", "[", 
             RowBox[{"Row", "[", 
              RowBox[{"{", 
               RowBox[{"\"\<Hessian calculated with \>\"", ",", 
                RowBox[{"authes", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], ",", 
                "\"\< evaluations.\>\""}], "}"}], "]"}], "]"}], ";"}]}], 
          "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"Print", "[", 
          RowBox[{"\"\<L=\>\"", ",", 
           RowBox[{"MatrixForm", "[", "LMat", "]"}], ",", 
           "\"\<       \!\(\*SuperscriptBox[\(L\), \(-1\)]\)=\>\"", ",", 
           RowBox[{"MatrixForm", "[", 
            RowBox[{"CLMat", "=", 
             RowBox[{"Inverse", "[", "LMat", "]"}]}], "]"}]}], "]"}], ";", 
         RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"testE", "=", 
          RowBox[{"Map", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"#", ">", "0"}], ")"}], "&"}], ",", 
            RowBox[{"Eigenvalues", "[", "CLMat", "]"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"If", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"Times", "@@", 
             RowBox[{"(", 
              RowBox[{"Boole", "[", "testE", "]"}], ")"}]}], "\[NotEqual]", 
            "1"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
            "Print", "[", 
             "\"\<Fisher went wrong! C is not positive definite!\>\"", "]"}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"useFisher", "=", "0"}], ";"}], "\[IndentingNewLine]", 
           ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"useFisher", "=", "1"}], ";", "\[IndentingNewLine]", 
            RowBox[{"(*", " ", 
             RowBox[{
             "Fisher", " ", "approximation", " ", "for", " ", "likelihood", 
              " ", "and", " ", "corresponding", " ", "chi2"}], " ", "*)"}], 
            "\[IndentingNewLine]", 
            RowBox[{"Lmax", "=", 
             RowBox[{"Exp", "[", 
              RowBox[{
               RowBox[{"-", "chi2minfi"}], "/", "2"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"LikeL", "[", 
              RowBox[{"vec_", "?", "VectorQ"}], "]"}], ":=", 
             RowBox[{"Lmax", " ", 
              RowBox[{"Exp", "[", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"vec", "-", "vecL"}], ")"}], ".", "LMat", ".", 
                  RowBox[{"(", 
                   RowBox[{"vec", "-", "vecL"}], ")"}]}]}], "/", "2"}], 
               "]"}]}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"(*", 
             RowBox[{
              RowBox[{
               RowBox[{"chi2L", "[", 
                RowBox[{"vec_", "?", "VectorQ"}], "]"}], ":=", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"Log", "[", 
                 RowBox[{"LikeL", "[", "vec", "]"}], "]"}]}]}], ";"}], "*)"}],
             "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"chi2L", "[", 
              RowBox[{"vec_", "?", "VectorQ"}], "]"}], ":=", 
             RowBox[{"chi2minfi", "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"vec", "-", "vecL"}], ")"}], ".", "LMat", ".", 
               RowBox[{"(", 
                RowBox[{"vec", "-", "vecL"}], ")"}]}]}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"chi2F", "[", "vec_", "]"}], ":=", 
             RowBox[{
              RowBox[{"chi2L", "[", "vec", "]"}], "+", 
              RowBox[{"chi2P", "[", "vec", "]"}]}]}], ";", 
            "\[IndentingNewLine]", "\[IndentingNewLine]", 
            RowBox[{"Print", "[", 
             RowBox[{"triplotL", "=", 
              RowBox[{"TriPlotF", "[", 
               RowBox[{
               "2", ",", "0", ",", "CLMat", ",", "vecL", ",", "parnames", ",",
                 "3", ",", 
                RowBox[{"{", 
                 RowBox[{"Darker", "[", "Emerald", "]"}], "}"}]}], "]"}]}], 
             "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], 
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
         "Print", "[", 
          "\"\<Min \!\(\*SuperscriptBox[\(\[Chi]\), \(2\)]\) outside prior \
intervals! Fisher can't be used.\>\"", "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"useFisher", "=", "0"}], ";"}]}], "\[IndentingNewLine]", 
       "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Which", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"mvprior", "\[Equal]", "1"}], "&&", 
         RowBox[{"useFisher", "\[Equal]", "1"}]}], "\[IndentingNewLine]", ",",
         "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "combined", " ", "Fisher", " ", "and", " ", "ML", " ", "estimator"}],
          " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"FMat", "=", 
          RowBox[{"LMat", "+", "PMat"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"CFMat", "=", 
          RowBox[{"Inverse", "[", "FMat", "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"vecF", "=", 
          RowBox[{"CFMat", ".", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"LMat", ".", "vecL"}], "+", 
             RowBox[{"PMat", ".", "vecP"}]}], ")"}]}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"chi2minfiF", "=", 
          RowBox[{"chi2", "[", "vecF", "]"}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"TriPlotF", "[", 
          RowBox[{
          "3", ",", "0", ",", "CFMat", ",", "vecF", ",", "parnames", ",", "3",
            ",", 
           RowBox[{"{", 
            RowBox[{"Thick", ",", "Dashed", ",", "Iris"}], "}"}]}], "]"}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"Print", "[", 
          RowBox[{"triplotF", "=", 
           RowBox[{"TriPlotCombo", "[", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Export", "[", 
          RowBox[{
           RowBox[{"ToFileName", "[", 
            RowBox[{"\"\<results-analysis\>\"", ",", 
             RowBox[{"rname", "<>", "\"\<-run\>\"", "<>", 
              RowBox[{"ToString", "[", "run", "]"}], "<>", 
              "\"\<-triplot_Fisher.pdf\>\""}]}], "]"}], ",", "triplotF", ",", 
           
           RowBox[{"\"\<AllowRasterization\>\"", "\[Rule]", "True"}], ",", 
           RowBox[{"ImageResolution", "\[Rule]", "400"}]}], "]"}], ";"}], 
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
        RowBox[{"useFisher", "\[Equal]", "1"}], "\[IndentingNewLine]", ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"FMat", "=", "LMat"}], ";", "\[IndentingNewLine]", 
         RowBox[{"CFMat", "=", "CLMat"}], ";", "\[IndentingNewLine]", 
         RowBox[{"vecF", "=", "vecL"}], ";", "\[IndentingNewLine]", 
         RowBox[{"chi2minfiF", "=", 
          RowBox[{"chi2", "[", "vecF", "]"}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"Export", "[", 
          RowBox[{
           RowBox[{"ToFileName", "[", 
            RowBox[{"\"\<results-analysis\>\"", ",", 
             RowBox[{"rname", "<>", "\"\<-run\>\"", "<>", 
              RowBox[{"ToString", "[", "run", "]"}], "<>", 
              "\"\<-triplot_Fisher.pdf\>\""}]}], "]"}], ",", "triplotL", ",", 
           
           RowBox[{"\"\<AllowRasterization\>\"", "\[Rule]", "True"}], ",", 
           RowBox[{"ImageResolution", "\[Rule]", "400"}]}], "]"}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
     "\[IndentingNewLine]", ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"forecast", "\[Equal]", "0"}], "\[IndentingNewLine]", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"minimum", " ", "chi2"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"fmMethods", "=", 
          RowBox[{"{", 
           RowBox[{
           "\"\<ConjugateGradient\>\"", ",", "\"\<PrincipalAxis\>\"", ",", 
            "\"\<Newton\>\"", ",", "\"\<QuasiNewton\>\""}], "}"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"LaunchKernels", "[", 
          RowBox[{"Length", "[", "fmMethods", "]"}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Print", "[", 
            RowBox[{"AbsoluteTiming", "[", 
             RowBox[{
              RowBox[{"DistributeDefinitions", "[", "\"\<Global`\>\"", "]"}], 
              ";"}], "]"}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{"Print", "[", 
          RowBox[{"AbsoluteTiming", "[", 
           RowBox[{
            RowBox[{"DistributeDefinitions", "[", 
             RowBox[{"fmMethods", ",", "chi2"}], "]"}], ";"}], "]"}], "]"}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"tabfm1", "=", 
          RowBox[{"ParallelTable", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"Off", "[", 
              RowBox[{
               RowBox[{"General", "::", "partd"}], ",", 
               RowBox[{"FindMinimum", "::", "fddis"}], ",", 
               RowBox[{"FindMinimum", "::", "bdmtd"}]}], "]"}], ";", 
             RowBox[{"AbsoluteTiming", "[", 
              RowBox[{
               RowBox[{"cout", "=", "0"}], ";", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"FindMinimum", "[", 
                  RowBox[{
                   RowBox[{"chi2", "[", "vec", "]"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"vec", ",", "vecsol", ",", 
                    RowBox[{"pSet", "[", 
                    RowBox[{"[", 
                    RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
                    RowBox[{"pSet", "[", 
                    RowBox[{"[", 
                    RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
                   RowBox[{"Method", "\[Rule]", "i"}], ",", 
                   RowBox[{"StepMonitor", "\[RuleDelayed]", 
                    RowBox[{"cout", "++"}]}]}], "]"}], ",", "cout"}], "}"}]}],
               "]"}]}], "\[IndentingNewLine]", ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "fmMethods"}], "}"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"CloseKernels", "[", "]"}], ";"}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"Print", "[", 
          RowBox[{"TableForm", "[", 
           RowBox[{
            RowBox[{"Partition", "[", 
             RowBox[{
              RowBox[{"Flatten", "[", 
               RowBox[{"tabfm1", ",", "3"}], "]"}], ",", "4"}], "]"}], ",", 
            RowBox[{"TableHeadings", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"fmMethods", ",", 
               RowBox[{"{", 
                RowBox[{
                "\"\<time in seconds\>\"", ",", 
                 "\"\<\!\(\*SuperscriptBox[\(\[Chi]\), \(2\)]\)\>\"", ",", 
                 "\"\<best-fit vector\>\"", ",", "\"\<evaluations\>\""}], 
                "}"}]}], "}"}]}]}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
         
         RowBox[{"sortabfm1", "=", 
          RowBox[{"Sort", "[", 
           RowBox[{
            RowBox[{"tabfm1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"#1", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "<", 
              RowBox[{"#2", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "&"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"beffi", "=", 
          RowBox[{"sortabfm1", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"chi2minfiF", "=", 
          RowBox[{"beffi", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ";", 
         RowBox[{"vecF", "=", 
          RowBox[{"vec", "/.", 
           RowBox[{"beffi", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"tabfm1", "=", 
          RowBox[{"ParallelTable", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"Off", "[", 
              RowBox[{
               RowBox[{"General", "::", "partd"}], ",", 
               RowBox[{"FindMinimum", "::", "fddis"}], ",", 
               RowBox[{"FindMinimum", "::", "bdmtd"}]}], "]"}], ";", 
             RowBox[{"AbsoluteTiming", "[", 
              RowBox[{
               RowBox[{"cout", "=", "0"}], ";", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"FindMinimum", "[", 
                  RowBox[{
                   RowBox[{"chi2", "[", "vec", "]"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"vec", ",", "vecF", ",", 
                    RowBox[{"pSet", "[", 
                    RowBox[{"[", 
                    RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
                    RowBox[{"pSet", "[", 
                    RowBox[{"[", 
                    RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
                   RowBox[{"Method", "\[Rule]", "i"}], ",", 
                   RowBox[{"StepMonitor", "\[RuleDelayed]", 
                    RowBox[{"cout", "++"}]}]}], "]"}], ",", "cout"}], "}"}]}],
               "]"}]}], "\[IndentingNewLine]", ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "fmMethods"}], "}"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"CloseKernels", "[", "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"Print", "[", 
          RowBox[{"TableForm", "[", 
           RowBox[{
            RowBox[{"Partition", "[", 
             RowBox[{
              RowBox[{"Flatten", "[", 
               RowBox[{"tabfm1", ",", "3"}], "]"}], ",", "4"}], "]"}], ",", 
            RowBox[{"TableHeadings", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"fmMethods", ",", 
               RowBox[{"{", 
                RowBox[{
                "\"\<time in seconds\>\"", ",", 
                 "\"\<\!\(\*SuperscriptBox[\(\[Chi]\), \(2\)]\)\>\"", ",", 
                 "\"\<best-fit vector\>\"", ",", "\"\<evaluations\>\""}], 
                "}"}]}], "}"}]}]}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
         
         RowBox[{"sortabfm1", "=", 
          RowBox[{"Sort", "[", 
           RowBox[{
            RowBox[{"tabfm1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"#1", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "<", 
              RowBox[{"#2", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "&"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"beffi", "=", 
          RowBox[{"sortabfm1", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"chi2minfiF", "=", 
          RowBox[{"beffi", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ";", 
         RowBox[{"vecF", "=", 
          RowBox[{"vec", "/.", 
           RowBox[{"beffi", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
        ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"vecF", "=", "vecsol"}], ";", "\[IndentingNewLine]", 
         RowBox[{"chi2minfiF", "=", "0"}], ";", " ", 
         RowBox[{"(*", " ", 
          RowBox[{"it", " ", "is", " ", "usually", " ", "the", " ", "case"}], 
          " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"beffi", "=", 
          RowBox[{"{", 
           RowBox[{"chi2minfiF", ",", "vecF"}], "}"}]}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"testFin", "=", 
       RowBox[{"Total", "@", 
        RowBox[{"Boole", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"vecF", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "==", 
             RowBox[{"pSet", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "||", 
            RowBox[{
             RowBox[{"vecF", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "==", 
             RowBox[{"pSet", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"Column", "[", 
        RowBox[{"{", 
         RowBox[{"\"\<\>\"", ",", "beffi", ",", 
          RowBox[{"Row", "[", 
           RowBox[{"{", 
            RowBox[{
            "\"\<{\!\(\*SubsuperscriptBox[\(\[Chi]\), \(min\), \(2\)]\),   \
{vec -> \>\"", ",", "parnames", ",", "\"\<}\>\""}], "}"}], "]"}], ",", 
          "\"\<\>\""}], "}"}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"testFin", "\[Equal]", "0"}], "\[IndentingNewLine]", ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Which", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"NumChi2", "\[Equal]", "0"}], "\[IndentingNewLine]", ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"FMat", "=", 
             RowBox[{
              RowBox[{
               RowBox[{"1", "/", "2"}], 
               RowBox[{"D", "[", 
                RowBox[{
                 RowBox[{"chi2", "[", 
                  RowBox[{"Table", "[", 
                   RowBox[{
                    RowBox[{"x", "[", "i", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}], "]"}], ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"x", "[", "i", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}], ",", "2"}], 
                  "}"}]}], "]"}]}], "/.", 
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "i", "]"}], "\[Rule]", 
                 RowBox[{"vecF", "[", 
                  RowBox[{"[", "i", "]"}], "]"}]}], ",", 
                RowBox[{"{", 
                 RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}]}]}], ";"}], 
           "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
           RowBox[{"NumChi2", "\[Equal]", "1"}], "\[IndentingNewLine]", ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Get", "[", "\"\<code-stat/NHessian.m\>\"", "]"}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"Hscale", "=", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Total", "@", 
                 RowBox[{"Boole", "[", 
                  RowBox[{"Map", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"Equal", "[", 
                    RowBox[{"#", ",", "0"}], "]"}], "&"}], ",", "vecF"}], 
                   "]"}], "]"}]}], "\[Equal]", "0"}], ",", 
               RowBox[{
                RowBox[{"Abs", "[", "vecF", "]"}], "scaleNH"}], ",", 
               RowBox[{"10", "^", 
                RowBox[{"-", "3"}]}]}], "]"}]}], ";", " ", 
            RowBox[{"(*", " ", 
             RowBox[{
              RowBox[{
              "in", " ", "the", " ", "rare", " ", "case", " ", "that", " ", 
               "a", " ", "bf", " ", "value", " ", "is", " ", "zero"}], 
              "..."}], " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"chi2impt", "[", "vec_", "]"}], ":=", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"coc", "++"}], ";", 
               RowBox[{"chi2", "[", "vec", "]"}]}], ")"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"coc", "=", "0"}], ";", "\[IndentingNewLine]", 
            RowBox[{"FMat", "=", 
             RowBox[{
              RowBox[{"1", "/", "2"}], 
              RowBox[{"NHessian", "[", 
               RowBox[{"chi2impt", ",", "vecF", ",", 
                RowBox[{"Scale", "\[Rule]", "Hscale"}]}], "]"}]}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"Print", "[", 
             RowBox[{"Row", "[", 
              RowBox[{"{", 
               RowBox[{
               "\"\<NHessian calculated with \>\"", ",", "coc", ",", 
                "\"\< evaluations.\>\""}], "}"}], "]"}], "]"}], ";"}], 
           "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
           RowBox[{"NumChi2", "\[Equal]", "2"}], "\[IndentingNewLine]", ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"authes", "=", 
             RowBox[{"Block", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"e", "=", "0"}], "}"}], ",", "\[IndentingNewLine]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"fhesx", "=", 
                   RowBox[{"Experimental`CreateNumericalFunction", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Subscript", "[", 
                    RowBox[{"x", ",", "i"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}], ",", 
                    RowBox[{"chi2", "[", 
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Subscript", "[", 
                    RowBox[{"x", ",", "i"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}], "]"}], ",", 
                    RowBox[{"{", "}"}], ",", 
                    RowBox[{"Hessian", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"Automatic", ",", 
                    RowBox[{
                    "\"\<DifferenceOrder\>\"", "\[Rule]", "orderHes"}]}], 
                    "}"}]}], ",", 
                    RowBox[{"EvaluationMonitor", "\[RuleDelayed]", 
                    RowBox[{"e", "++"}]}]}], "]"}]}], ";", 
                  RowBox[{"fhesx", "[", 
                   RowBox[{"\"\<Hessian\>\"", "[", "vecF", "]"}], "]"}]}], 
                 ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"FMat", "=", 
             RowBox[{
              RowBox[{"1", "/", "2"}], 
              RowBox[{"authes", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"Print", "[", 
             RowBox[{"Row", "[", 
              RowBox[{"{", 
               RowBox[{"\"\<Hessian calculated with \>\"", ",", 
                RowBox[{"authes", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], ",", 
                "\"\< evaluations.\>\""}], "}"}], "]"}], "]"}], ";"}]}], 
          "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"Print", "[", 
          RowBox[{"\"\<L=\>\"", ",", 
           RowBox[{"MatrixForm", "[", "FMat", "]"}], ",", 
           "\"\<       \!\(\*SuperscriptBox[\(L\), \(-1\)]\)=\>\"", ",", 
           RowBox[{"MatrixForm", "[", 
            RowBox[{"CFMat", "=", 
             RowBox[{"Inverse", "[", "FMat", "]"}]}], "]"}]}], "]"}], ";", 
         RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"testE", "=", 
          RowBox[{"Map", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"#", ">", "0"}], ")"}], "&"}], ",", 
            RowBox[{"Eigenvalues", "[", "CFMat", "]"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"If", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"Times", "@@", 
             RowBox[{"(", 
              RowBox[{"Boole", "[", "testE", "]"}], ")"}]}], "\[NotEqual]", 
            "1"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
            "Print", "[", 
             "\"\<Fisher went wrong! C is not positive definite!\>\"", "]"}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"useFisher", "=", "0"}], ";"}], "\[IndentingNewLine]", 
           ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"useFisher", "=", "1"}], ";", "\[IndentingNewLine]", 
            RowBox[{"(*", " ", 
             RowBox[{
             "Fisher", " ", "approximation", " ", "for", " ", "likelihood", 
              " ", "and", " ", "corresponding", " ", "chi2"}], " ", "*)"}], 
            "\[IndentingNewLine]", 
            RowBox[{"Lmax", "=", 
             RowBox[{"Exp", "[", 
              RowBox[{
               RowBox[{"-", "chi2minfiF"}], "/", "2"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"LikeF", "[", 
              RowBox[{"vec_", "?", "VectorQ"}], "]"}], ":=", 
             RowBox[{"Lmax", " ", 
              RowBox[{"Exp", "[", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"vec", "-", "vecF"}], ")"}], ".", "FMat", ".", 
                  RowBox[{"(", 
                   RowBox[{"vec", "-", "vecF"}], ")"}]}]}], "/", "2"}], 
               "]"}]}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"(*", 
             RowBox[{
              RowBox[{
               RowBox[{"chi2F", "[", 
                RowBox[{"vec_", "?", "VectorQ"}], "]"}], ":=", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"Log", "[", 
                 RowBox[{"LikeF", "[", "vec", "]"}], "]"}]}]}], ";"}], "*)"}],
             "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"chi2F", "[", 
              RowBox[{"vec_", "?", "VectorQ"}], "]"}], ":=", 
             RowBox[{"chi2minfiF", "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"vec", "-", "vecF"}], ")"}], ".", "FMat", ".", 
               RowBox[{"(", 
                RowBox[{"vec", "-", "vecF"}], ")"}]}]}]}], ";", 
            "\[IndentingNewLine]", "\[IndentingNewLine]", 
            RowBox[{"TriPlotF", "[", 
             RowBox[{
             "3", ",", "0", ",", "CFMat", ",", "vecF", ",", "parnames", ",", 
              "3", ",", 
              RowBox[{"{", 
               RowBox[{"Thick", ",", "Dashed", ",", "Iris"}], "}"}]}], "]"}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"Print", "[", 
             RowBox[{"triplotF", "=", 
              RowBox[{"TriPlotCombo", "[", 
               RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "]"}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"Export", "[", 
             RowBox[{
              RowBox[{"ToFileName", "[", 
               RowBox[{"\"\<results-analysis\>\"", ",", 
                RowBox[{"rname", "<>", "\"\<-run\>\"", "<>", 
                 RowBox[{"ToString", "[", "run", "]"}], "<>", 
                 "\"\<-triplot_Fisher.pdf\>\""}]}], "]"}], ",", "triplotF", 
              ",", 
              RowBox[{"\"\<AllowRasterization\>\"", "\[Rule]", "True"}], ",", 
              
              RowBox[{"ImageResolution", "\[Rule]", "400"}]}], "]"}], ";"}]}],
           "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
         "Print", "[", 
          "\"\<Min \!\(\*SuperscriptBox[\(\[Chi]\), \(2\)]\) outside prior \
intervals! Fisher can't be used.\>\"", "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"useFisher", "=", "0"}], ";"}]}], "\[IndentingNewLine]", 
       "]"}], ";"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PosteriorF", "[", 
    RowBox[{"vec_", "?", "VectorQ"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"2", "\[Pi]"}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "dpar"}], "/", "2"}], ")"}]}], 
    RowBox[{
     RowBox[{"Det", "[", "FMat", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{"1", "/", "2"}], ")"}]}], " ", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"vec", "-", "vecF"}], ")"}], ".", "FMat", ".", 
        RowBox[{"(", 
         RowBox[{"vec", "-", "vecF"}], ")"}]}]}], "/", "2"}], "]"}]}]}], 
  ";"}]}], "Input",
 CellLabel->
  "(Local) In[121]:=",ExpressionUUID->"e2e11314-00df-48a1-903d-42226ec84113"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.008569`", ",", "Null"}], "}"}]], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[121]:=",ExpressionUUID->"047ccc12-92c8-4dca-9c73-4838af7783a3"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindMinimum", "::", "lstol"}], "MessageName"], " ", ":", 
  "  ", "\<\"The line search decreased the step size to within the tolerance \
specified by AccuracyGoal and PrecisionGoal but was unable to find a \
sufficient decrease in the function. You may need more than \\!\\(\\*RowBox[{\
\\\"MachinePrecision\\\"}]\\) digits of working precision to meet these \
tolerances.\"\>"}]], "Message", "MSG",
 ShowCellLabel->True,
 CellLabel->
  "(kernel 1)",ExpressionUUID->"73a2c862-88c4-43c6-89ec-77baf66d9dd0"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindMinimum", "::", "lstol"}], "MessageName"], " ", ":", 
  "  ", "\<\"The line search decreased the step size to within the tolerance \
specified by AccuracyGoal and PrecisionGoal but was unable to find a \
sufficient decrease in the function. You may need more than \\!\\(\\*RowBox[{\
\\\"MachinePrecision\\\"}]\\) digits of working precision to meet these \
tolerances.\"\>"}]], "Message", "MSG",
 ShowCellLabel->True,
 CellLabel->
  "(kernel 4)",ExpressionUUID->"3f76227e-91a1-4f49-a378-d46d6fded77c"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindMinimum", "::", "lstol"}], "MessageName"], " ", ":", 
  "  ", "\<\"The line search decreased the step size to within the tolerance \
specified by AccuracyGoal and PrecisionGoal but was unable to find a \
sufficient decrease in the function. You may need more than \\!\\(\\*RowBox[{\
\\\"MachinePrecision\\\"}]\\) digits of working precision to meet these \
tolerances.\"\>"}]], "Message", "MSG",
 ShowCellLabel->True,
 CellLabel->
  "(kernel 2)",ExpressionUUID->"0347ce4c-98ca-48a9-aef6-040ea3091115"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {"\<\"\"\>", "\<\"time in seconds\"\>", "\<\"\\!\\(\\*SuperscriptBox[\\(\
\[Chi]\\), \\(2\\)]\\)\"\>", "\<\"best-fit vector\"\>", "\<\"evaluations\"\>"},
    {"\<\"ConjugateGradient\"\>", "0.909654`", "31.055509114447155`", GridBox[{
       {
        RowBox[{"vec", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0.32743966991431966`", ",", 
           RowBox[{"-", "1.0646689055213612`"}], ",", 
           RowBox[{"-", "0.18606698950405512`"}]}], "}"}]}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "6"},
    {"\<\"PrincipalAxis\"\>", "2.187839`", "31.052749770006443`", GridBox[{
       {
        RowBox[{"vec", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0.3272119779527644`", ",", 
           RowBox[{"-", "1.0665142515686816`"}], ",", 
           RowBox[{"-", "0.18033128151051914`"}]}], "}"}]}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "6"},
    {"\<\"Newton\"\>", "3.243656`", "31.052758687282633`", GridBox[{
       {
        RowBox[{"vec", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0.32718117586021034`", ",", 
           RowBox[{"-", "1.0663209932153528`"}], ",", 
           RowBox[{"-", "0.1805845568778603`"}]}], "}"}]}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "19"},
    {"\<\"QuasiNewton\"\>", "0.677852`", "31.05330130887976`", GridBox[{
       {
        RowBox[{"vec", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0.3276019659542239`", ",", 
           RowBox[{"-", "1.0683148697530898`"}], ",", 
           RowBox[{"-", "0.17861419103624462`"}]}], "}"}]}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "16"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{
    0.909654, 
     31.055509114447155`, {$CellContext`vec -> {
       0.32743966991431966`, -1.0646689055213612`, -0.18606698950405512`}}, 
     6}, {2.187839, 
     31.052749770006443`, {$CellContext`vec -> {
       0.3272119779527644, -1.0665142515686816`, -0.18033128151051914`}}, 
     6}, {
    3.243656, 
     31.052758687282633`, {$CellContext`vec -> {
       0.32718117586021034`, -1.0663209932153528`, -0.1805845568778603}}, 
     19}, {0.677852, 
     31.05330130887976, {$CellContext`vec -> {
       0.3276019659542239, -1.0683148697530898`, -0.17861419103624462`}}, 
     16}}, TableHeadings -> {{
     "ConjugateGradient", "PrincipalAxis", "Newton", "QuasiNewton"}, {
     "time in seconds", "\!\(\*SuperscriptBox[\(\[Chi]\), \(2\)]\)", 
      "best-fit vector", "evaluations"}}]]], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[121]:=",ExpressionUUID->"8f9744d7-5d9d-4b84-b2b0-dce704ab0825"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindMinimum", "::", "lstol"}], "MessageName"], " ", ":", 
  "  ", "\<\"The line search decreased the step size to within the tolerance \
specified by AccuracyGoal and PrecisionGoal but was unable to find a \
sufficient decrease in the function. You may need more than \\!\\(\\*RowBox[{\
\\\"MachinePrecision\\\"}]\\) digits of working precision to meet these \
tolerances.\"\>"}]], "Message", "MSG",
 ShowCellLabel->True,
 CellLabel->
  "(kernel 4)",ExpressionUUID->"f334b86c-ab03-4b7c-b746-424aaffdfcb6"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindMinimum", "::", "lstol"}], "MessageName"], " ", ":", 
  "  ", "\<\"The line search decreased the step size to within the tolerance \
specified by AccuracyGoal and PrecisionGoal but was unable to find a \
sufficient decrease in the function. You may need more than \\!\\(\\*RowBox[{\
\\\"MachinePrecision\\\"}]\\) digits of working precision to meet these \
tolerances.\"\>"}]], "Message", "MSG",
 ShowCellLabel->True,
 CellLabel->
  "(kernel 1)",ExpressionUUID->"525bfe50-7ee8-41aa-9469-5659eaabe609"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindMinimum", "::", "lstol"}], "MessageName"], " ", ":", 
  "  ", "\<\"The line search decreased the step size to within the tolerance \
specified by AccuracyGoal and PrecisionGoal but was unable to find a \
sufficient decrease in the function. You may need more than \\!\\(\\*RowBox[{\
\\\"MachinePrecision\\\"}]\\) digits of working precision to meet these \
tolerances.\"\>"}]], "Message", "MSG",
 ShowCellLabel->True,
 CellLabel->
  "(kernel 2)",ExpressionUUID->"437e2e2f-e5a0-43d9-82d6-495c529a26c7"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {"\<\"\"\>", "\<\"time in seconds\"\>", "\<\"\\!\\(\\*SuperscriptBox[\\(\
\[Chi]\\), \\(2\\)]\\)\"\>", "\<\"best-fit vector\"\>", "\<\"evaluations\"\>"},
    {"\<\"ConjugateGradient\"\>", "0.312558`", "31.052749770006443`", GridBox[{
       {
        RowBox[{"vec", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0.3272119779527644`", ",", 
           RowBox[{"-", "1.0665142515686816`"}], ",", 
           RowBox[{"-", "0.18033128151051914`"}]}], "}"}]}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "0"},
    {"\<\"PrincipalAxis\"\>", "0.204006`", "31.052749770006443`", GridBox[{
       {
        RowBox[{"vec", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0.3272119779527644`", ",", 
           RowBox[{"-", "1.0665142515686816`"}], ",", 
           RowBox[{"-", "0.18033128151051914`"}]}], "}"}]}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "0"},
    {"\<\"Newton\"\>", "0.356571`", "31.052749770006443`", GridBox[{
       {
        RowBox[{"vec", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0.3272119779527644`", ",", 
           RowBox[{"-", "1.0665142515686816`"}], ",", 
           RowBox[{"-", "0.18033128151051914`"}]}], "}"}]}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "0"},
    {"\<\"QuasiNewton\"\>", "0.311824`", "31.052749770006443`", GridBox[{
       {
        RowBox[{"vec", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0.3272119779527644`", ",", 
           RowBox[{"-", "1.0665142515686816`"}], ",", 
           RowBox[{"-", "0.18033128151051914`"}]}], "}"}]}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "0"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{
    0.312558, 
     31.052749770006443`, {$CellContext`vec -> {
       0.3272119779527644, -1.0665142515686816`, -0.18033128151051914`}}, 
     0}, {0.204006, 
     31.052749770006443`, {$CellContext`vec -> {
       0.3272119779527644, -1.0665142515686816`, -0.18033128151051914`}}, 
     0}, {
    0.356571, 
     31.052749770006443`, {$CellContext`vec -> {
       0.3272119779527644, -1.0665142515686816`, -0.18033128151051914`}}, 
     0}, {0.311824, 
     31.052749770006443`, {$CellContext`vec -> {
       0.3272119779527644, -1.0665142515686816`, -0.18033128151051914`}}, 0}},
    TableHeadings -> {{
     "ConjugateGradient", "PrincipalAxis", "Newton", "QuasiNewton"}, {
     "time in seconds", "\!\(\*SuperscriptBox[\(\[Chi]\), \(2\)]\)", 
      "best-fit vector", "evaluations"}}]]], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[121]:=",ExpressionUUID->"27655a7c-7857-49d5-9b06-628deab8c7b0"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\"\>"},
    {
     RowBox[{"{", 
      RowBox[{"31.052749770006443`", ",", 
       RowBox[{"{", 
        RowBox[{"vec", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0.3272119779527644`", ",", 
           RowBox[{"-", "1.0665142515686816`"}], ",", 
           RowBox[{"-", "0.18033128151051914`"}]}], "}"}]}], "}"}]}], "}"}]},
    {
     TemplateBox[{
      "\"{\\!\\(\\*SubsuperscriptBox[\\(\[Chi]\\), \\(min\\), \\(2\\)]\\),   \
{vec -> \"",RowBox[{"{", 
         RowBox[{
          "\"\\!\\(\\*SubscriptBox[\\(\[CapitalOmega]\\), \\(m\\)]\\)\"", ",",
            "\"\\!\\(\\*SubscriptBox[\\(w\\), \\(0\\)]\\)\"", ",", 
           "\"\\!\\(\\*SubscriptBox[\\(w\\), \\(a\\)]\\)\""}], "}"}],"\"}\""},
      
      "RowDefault"]},
    {"\<\"\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Column"]], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[121]:=",ExpressionUUID->"2517f5b9-ccda-4e0a-a3ee-2014800a6d2c"],

Cell[BoxData[
 TemplateBox[{"\"Hessian calculated with \"","40","\" evaluations.\""},
  "RowDefault"]], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[121]:=",ExpressionUUID->"0be39c14-c3de-47a6-b32e-892d460c60e4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"L=\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2978.824144620519`", "844.2794748438313`", "371.5110100989395`"},
       {"844.2794748438313`", "387.8377787521947`", "139.04858182565036`"},
       {"371.5110100989395`", "139.04858182565036`", "135.6356228604419`"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], 
   "\[InvisibleSpace]", "\<\"       \\!\\(\\*SuperscriptBox[\\(L\\), \
\\(-1\\)]\\)=\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0.0009210522578934543`", 
        RowBox[{"-", "0.0017401183795770375`"}], 
        RowBox[{"-", "0.0007388918905034902`"}]},
       {
        RowBox[{"-", "0.0017401183795770375`"}], "0.007364358275551549`", 
        RowBox[{"-", "0.0027834165495851204`"}]},
       {
        RowBox[{"-", "0.0007388918905034903`"}], 
        RowBox[{"-", "0.0027834165495851204`"}], "0.012250001595482844`"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["L=", 
   MatrixForm[{{2978.824144620519, 844.2794748438313, 371.5110100989395}, {
    844.2794748438313, 387.8377787521947, 139.04858182565036`}, {
    371.5110100989395, 139.04858182565036`, 135.6356228604419}}], 
   "       \!\(\*SuperscriptBox[\(L\), \(-1\)]\)=", 
   MatrixForm[{{
    0.0009210522578934543, -0.0017401183795770375`, -0.0007388918905034902}, \
{-0.0017401183795770375`, 
    0.007364358275551549, -0.0027834165495851204`}, {-0.0007388918905034903, \
-0.0027834165495851204`, 0.012250001595482844`}}]],
  Editable->False]], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[121]:=",ExpressionUUID->"b37dea2b-abb6-4a41-9da1-1fe342bb6bfc"],

Cell[BoxData["\<\" \"\>"], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[121]:=",ExpressionUUID->"bcc79ca6-f7e3-4398-9d46-709c2d739929"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{{{{}, {}, 
         TagBox[
          {RGBColor[
            NCache[
             Rational[10, 17], 0.5882352941176471], 
            NCache[
             Rational[164, 765], 0.21437908496732025`], 
            NCache[
             Rational[122, 765], 0.15947712418300652`]], AbsoluteThickness[
           1.6], Opacity[1.], LineBox[CompressedData["
1:eJwtmQk0Ff//xtNC1htKSaS+SosoLZbSM6JCIVpIklDZt1D2rQhZI/tOhKyh
KBfZt7gXkfW695aEorQo+t3zP/85c86c15lzPjPzvJ/38545s83ETvfGyhWs
beX/7SuitRKGr/I+J/8IMKnmcbeAan+w067lMrKiP/NH6HMLfLvqzvNttox8
zekcJXDWAro2hscedJeRK5KOsH8ytcS6h2JJpY/KyAMv2te4X7BCSGvGFY7N
ZeSj/75kFGnaQFHn0bcerjLyxBGdwD3hNpga8A9J+lNK3jW8W25fjw3UJs2q
D4yUkmfUXv3tvGQLdg5JEcO0UnL9n4KYeHM7+Knmvy/eWUo2SOHckU61h2xH
oqP7xlIy9abDp/e/7EE7/5Dr1NpS8rJE35KxmAMIUxvFoU8lZJON89oXLB2w
5CuTsOZZCflC30mjj2sccZdcdtngYAl58GvjBeLsbdgpvhpYRRSTBfL8vX8L
u2C5NXs+QKaYXKu3Yn5W0wVhl8N5uLYWk0X0Bw5d9HOB4VyDj/jfIrJv/v2M
O9MueG/Df07hbhF5U71eiVTTHfTdzJu1tC8k3x84L7UtwhXf73tud9AuJLdI
PyoOa3fF+uxzl+5IF5ITnt6NcOdwgy79x2v/6WfkpaiAY+983NB9TSU0yfwZ
2e3g/sgSV3d06A/v7TIuIJt3VH/queeJ6TtF13pRQM4oVmAraPEEd6zfo/di
BWRDM7O4Dbxe0Ojb9efDcD6ZV5URlBjrhRYd57Z/+vnkfBvLFxFl3mjQ4LM4
oJNHHqn7zs6z2hfVx4gn0cq55JxXt3yGY/yRsXz/VNv2XHJZSO70TI0/HtS2
f/i3KpfcHyisojXpj0uqepJWTTnkxI/hHUtH7+HrGdtc5TM5ZOlHe7QlP96D
xJWkvNkLT8hmyAwX0wzAQ9dfhWrmWWQp/bF1SVeC4Hj0uLaXeha5eK/OmbTw
IFxe8v9StieLPK3Z+3FNQxB2+pL2b53JJD9rl+/6uS8YtQ92liw4ZJLpecyD
D9hD8D32QlmGewaZp/6E5UzbQxhWFFf+DUsji5zc87ZBNwJrpyZ/dNinkeMq
RHVHHCNQJrrtSLJuGll8tH+fzKMIcN2PfK4klEaOsQzT9+mNgF0Ow2RJMZUs
Hqh/e+JyJHZO3LrEpp9M1pB7ufqnXRSi9WyVOKPiyUaylLDVHdH4XDNa/fRi
PLm/dJn671s0TuzUVtQQjifzuKelElti8PW7jFxIWhxZwKnAPtomBmei5vbz
FsWS2V78lxkh+BgrO50k+DtiyAMkHWVFm1jYnXDnFmaPIi8vbvS4YZAAtda3
kYkNkWRl2Y1rxCISIH5OYpOYfyR5lYeAqEJTArqvdkr8tyKS/NpxtXX8wUQY
zx/3MPgeTv4dyPNWUDAJE9cCaX7DIWS1YGMvD2YymIqbCqgF/mSJk7/qL82m
4bFa3YuB3f7kPp1tPxdJ6Th1ybJx5IkfWaRkxZ/3B9LxxOHV6Mc0X/LfXatG
tV3S0XWubvuv3d7kLvuzohtXZqBnr+6M2qILWXOq/oTNjkwYB77lzLMyIOtt
i/EfTs5Gg6b1Ejn+Ejk84d2aDw3Z2LWec66vWZccEtcvJz2djTHl+8Wr1E6R
77R5/nM/+gSrhXbfiA/bj305N7yFRp7gAKeskfvl6wivcrB+JJULzs/Z4ze+
3wH7tbY94v/yYP+yxnR88i7Mbo/M5UnnYyDw3QeDEVeocAqUehvl44kE54x2
kzuesgmnrCXn44SR9W+FOG94iBW9zPAvwGtzYU6OFH+cUX3VoSlSiIWhsW1D
yiHgsrsskvamGDtXZ52/0BSC7J0U9u6JYuhLmd/v1HiIhPV6g7IrS1Dl8XWS
fD4UMkeaVaOUS+AlylacdSMcr+yLqsn1JfCX4d9a2RCJEL/M3QJvS8HtIPvM
ZzIGJzNT2oL4yyFxf/2p13seYybna0iqXDmOxf8Y/W39GHy3fx2au1oO27qq
dbfnHuNWkKOten45uvlVnG4sxiI+wm20T60C0aXnj2rwJIB/PtIlI7wSW747
tQruT8GMSw7fYa0q5Es4Sog4pECV7uER6F4FxYt23ttLU3BMoQ2iT6ugV2Fx
+MChVJgrkVatX1MN9WNF5yS3pGExhrpPrrYa95YzX6mKp6NX3V47QeU1fvuF
RnvvysRx5o7dD4haECI8J1apZyJ8WFe5/EotHpQFfwmwyMQYk1uS804thBiB
GmF5meAR5GffWViLQyf9ViRLZaHq3p4GebE62HLcsa7an43y86Mik2vqwQgx
Vl2Qz4FInt7r9O9vYOZrfV9dLwdi2x/Ndgk0gOFytynZOQeibbT87QcawLwe
oXaqNAfSfPpGx20b8EGu9mzs3lxodigVaUw1YJK+9aKC2FOQ2quj331qxMzR
sRueq/Lx+09mfytHC2wPfH7Ssy0fmZKbBfn3tmB258+PO4h8EJOhUf5aLOYn
WXZ55OOkmcf3qZgWfP143Hbrj3zoftru2byzFfOPUlzqJgsQFV0VOHiuDT8+
Xw1c01UIsvHdYMfmDlT03GmYnC1EZf/GAsa3DjhXRrJ1kIrwdaemTbh4J777
NbpH6RThMCdPXLhbJ74J77Pf2leEzwpGgsSBLvz6z6tgi20xFPO/DoQ+fYsf
OpoxR5xLkCzSF59q2oN+1fcHc++XYLHBIeuRZw8q5G5RhB+X4Jrf+t05sT1w
FvUlLVWU4Iht15p9HT34Pvk86M2vEuj0WlAqjlDwzXuL1zmPUtRX9A8N8FPx
9dnnm5b+ZTD/YyzOQeuFtTa0G6LK8N1dO3HzUi8mv0bJiWWUYTybQ/mscB9o
BxXXUmrL8Kg+5iqXbh8oLx88VVguQ9OSFOl7Qx/KG3dMr3V9jseTHONhxf1w
G7nmkGNbjkAVN3Gb1AGs4u11Z1yuhLpp/Os148NIci5cP2deiRDFIZnAVSM4
Mvrg2dKdSshdzZLbIzkCyyKlMaHHlbhF+qveZzsCik7OCXVKJZKUek7W/RtB
2mM3zkKNFwiIu9iyLDmG4+LbYu8cfYmqSkFOtI7D9aBtKZdoNRgfjESvW9Ah
G63darSvGn9ON0/e9qVj+vv+8VKlaqhEFMUkxdNhXPGN94pRNf4O+JfItNFx
SsHVIj+1GtKh36qvSjEggHviZ7e/wgTvwuGx7wzkaSSEhUq+xin/xpysxx8w
dL3Jcp0sGfO/1v82FJvCfgfb9rPKZJw0PLFyk+IUAnyEpILOkXHGMn7Xx4tT
kE29OcNmR4aPEie1LnQKwcPs9t/yyejc4tZkvjyF5PxMxc8CtaCJftnmRf8M
zZ0MdD2sxQ9ld6Lt1QyeidzQiPapQ/vjHS9H+77ClOuU+LrIN9j44ubQs9QF
tA3/Y5+IbUQdFpap3xdR6xe+87V7M+Zq7IUUZVYQz6SW2R88aMUJaXUDsvIq
YlfeCXFDx3ZsvyZkeXMbO5Gw9+bi1vudOPvQNoQmxElIiwqYqIZ24typQd25
bZzEG76aVvOYTqRtobf9keIkpuc2xJdkd8Iuvjp1hQoncfxFo5xKUyc6q2XS
W2w5CbrqDuebHF2QRIu0WiMnIWXE+FIQ1IX+mStnK224iNcRJkyFsLe48+q/
lV+echNpg3MOlJi3CFaYrist5Sb8tvsuWya/hegtp3t21dyE2vPUjUkFb7Ep
8OJXagc30ftuWH257S3ezt1wO/2Fm3AO36tHW9WN0vYAcYosDxHSn12dTXQj
RC5eQOk5D/HXbYbNUbUbRHSmAf8rHsJ262G142rd4LUXyRp5w0OcM2/o7dfu
RodVyRYjKg8htDgxw3GtG2I29m+X5niIdFFxcUvPblCrq3NL9vESlWYJ96Sr
utGddZDtRQovsb/ZNO9sTTd85//VkJ7wEnm793Vb1nfDZcWrNVef8RJJs2SR
nLZu8KSHcg9U8xJ+d5mlW4e6sdemiVN7gJc4+3A/bd3fbljatXspkPiIxtnf
7DIrenB3cWSAuYGPOK7zRkpzdQ/qzm2TC9zCRxwQunQ3iKcHbKvTxnN38xFC
ae6klaI96PRi8txS4SNoZU1K35R6cNhyULTFiY8wEIow5T/Rg9RBbvE6Nz6i
9+7lIJlTrPV3Rz4r9OEjmpSme620erB4aL3WrYd8REEzvzXDqAdndmiPa2by
ES5Dhgl93j24QFHQnuriI7hXfftRWdeDytSgkwdFSYQUv7RMRGMP3hiZL5lt
IxFnt1rcMm/tAY9h5tqHO0jEw6Nj7zb19EDyXBBH1T4SwefU/sJ1vAd67Ev7
YpRIhAAz0+3ovx4cUj7mqnqFRMh+Gy0VXEVBzp1A61YjEnGebfPnz+wUHLiY
46BiQiKiRSOuJPFRUE4KyxCyIBEbLnkcWxKlwHwuTkHBhURsar6wXHOMAiFm
lJx1GImQ7ws/EktQQN7Ql0FEkojL9DZbO1UK5Dd3fuKMJhEJ/4ixrWcp8Pv4
ZdktnkRskd9X63OFgpjz6xb6M0nEsVPmv/SvUcB5p2Za5wmJuHohc/8BUwqM
tF2f1uWSiBR74XSaJQXcIxm3vJ+RiK1P1/idcKNA+69q8e0KEkFUElWbvSgo
a70XFP2CRBg3us/P+1Kwe+WO9XlVJCKNNmeSGURBYWzMobIaErF986jK6ngK
lPRO3VRqIhEndgl7DCdRoP9DJWxVC4kwPXLh+fM0CqSN/1yqaSURWbptEjdy
KahO2/uGv5NE7AypWNNUScE/+TN9MlSW3mcEp4KrKbAX6et41EsifnDZd2mT
KRDMOdk63UciGoN3xw42UeBYd7bdc4BEFGgEuKe0UeDWKN9VPsjSm4t+zbSL
gpnrFd0T70mEWXDSrpk+CgKehL0VGWHVW+M3T+kgBbd/xrdKjpKIQ1yX5lxG
KLh2JK5m1xiJWB1MqlrBpOCN79kYThqJmFa3TmmcZOmdx+f8icW9nK1+wdMU
yC4NnamZIBGZQX5n1n+nIEJPeugUg0QEq4/JDP6kYM8OkahFFjtyHluf8oeC
0/kTxzKZJMKgNe6XyT8K1Dz73hMfWHoFLQxLrqLCP0/bisriPeq6ddPsVJiR
X8wYfGT5jbMou4SLCucm/+vvWLzYwh3swkeFnrpMk9okiZh4YG57VICKRJ2T
IkUsblNr1F0hRMUjiyvGXJ9IROna7XKNwlSsTRaIMWBxQouXSLAoFR9cN75M
ZbHvg6F/WtuoeL1ue8cgi83V5BmCO6jQWVjoXDtFIs6tjWkZ2EXFz+MmNVIs
lm+ZK0iWouLjA+XkkywWf6AVabKfipB5V8vzLF6rlu8seYiKpK1LOy6x+CvH
WoNpOSpU5FvearJ4oNnseMlRKsQ/0W8pspgcWLfdBVQcNjWbFWHxk9NiHEdV
qGi+YmE6z7qfMA73z/9OUSHBI9b8msUuze/eNmhQce3AS2EvFhsFHnoepEXF
BLfnlYMsPnU6Mk5Llwr+a5UPR1h6SHPMegheoqLAvu6ZB4uFmjWuD1ymQmPt
CvI6Fi8H5JxMvkpFrC29Np6l74dTq/eYXKcixfpj2UYWd7Ff55O8QcWMxqO4
YFZ9kgM2vyu2piLrhIKCNque907dqXa2p2KzifuPNFa9rdl7UxWdqKi1Wsj5
SGf1Y0CoeYM7FaORqVPnWX6RODV1NsibCpn7tz1dWX7iYT99QMufdX3eZo7o
cRIxfH/F4rtgKkRiS9lzWf5sOHl1NCmMCksBDc90ln8L1lTVX4+i4oWg8Zfw
YRLhfv92yOd4KtyN7rWdYfl98/0PW/7lUnFj12MvsPqFa1Xj+IZnVKyzrimt
Z/XXok9mllQJFWOVvn/kKSRi0MNYyuAlFUvfbCjLXSQizun90fJWKtwkDLu+
NJOIB/Mv/rV3UnElzGaMm9Xfd+1j30z0UHFg+P0GkQYSoWd94cy691RYF+r+
Fahl6WvWZWA1RYWpGW3BvJJEsE8UiPnNUrGiI+yOWDmrn6+FTMTNU5G+Cweb
S0lE3xU1y6ZFln/st5vNs/Io+ny96zbuXmweyPpXxMozAZWKuHd7e9EZZsr6
vCYRK+uiDWdlemF6H4HlQSRi/vht8TWHenHg5LfwRwEkokdxf67ssV4k5+5e
2u1DIiJk8ypDz/bCWZmnvNaRlS/bU/pVbHphEiivFH+RVf9UjwQDh14outQ+
e6VDImZFrxg5OPfi4+CPbqomiegU3vQhxbMXBa43ToycZM0H/qiF36G9+HpI
+vLVwySCky1gfXFhLy69sGoQEmDl457+KZ/SXvyimIg185KIIxd21ulU9GKH
hQinDScrj3KabL697gX18PrM+BUkolaTo/lIZy8SW05Yucyy5lfCA9fXn1nn
qdbeJ1r4CMbBkNG2XX3os5S9rsaaj+5Xh54nSvXhj8936+e2fIRA4N4Q6/19
6D43VihkwUcQ79vl+OT78EzfYvr1VT4i0YcnUud0H+Y0v8zHnuIjdDtDVQZu
9KG9e8jeW4iPqL0ZkcvM6MMJxS2iakW8xDUtE6O1OX14PrTLZyGHl1g+fGj9
3vw+rK3N0o1L4yWOrhnwti/rQ+wEp0VNJC9RkblV78+bPhiUtJ0Pvc1LFIwX
ruFn9mFr6gX244d5iXiDTpNjkv2Q33hTQqqEh3DU4hJ9lN8PobVWe81CuYmB
j0teGUX98G64zf3Bn5s47js3XlLWj/NNdduM3bgJrucDWd3V/ehSTt2sdIub
yBTOkeLr6Ac/46VxIsF6v2KoHAua7odsyhar+TkuQs7d84r3vneozd3BuKDN
RfzN+RpvVfQO6RdL/zv7cy2h9Vm5rCV9AHt/rS04qMJOJBavfJacO4hYGmVM
QnoVUXRNWuVn8nv82vP7qJnWCiLJp4nmHjYEy7/yF2Tk/uDef13Gdx8NQ1nd
+boPdQGHigmP3wEjeBS24QvNcA528vuNhUNGUHFmi+GgxhzyareqKoSPgPvp
uOGw/By29ixzu8aOAAlcO9ZsmAPX/KvEXzkjsHOaF5no/IqxgwrVP1tGsNVA
tqNd+SuCKw8sLnCN4vbNFo4Bs1mM1Wy/Ox82CtI3rjpZ2ynUzvvbdkSNQji/
N2ul7hQydjLNnjwehdP2hM0fD0/hZliOjkHKKIzCzctnlj5h9qrU3vpno3jS
3+E0F/YJf/8eHo3sGMVrGafjPc8nsemouuoBrjFQP2zcPEb6CJ1Ku3X298eQ
fjy2znglA4tJ86VHgsbAkW6yWPSZjiw/54tLD8fwPmE9h0AfHT803ROCo8fw
7bLzfb5cOhIYARLZmWOo19N0mtSig8GfIv++bgzbc3xom9Mm4GLdYay6PAb/
q1tLNM/RsO5pju8atnGETvO7fT5KA0PkE2Vy5Tg6Mt6pJ0rSEMZm7VzEzuJT
qrT9/8Yx3uFQdYxvHIYzijsOFo3jnqmnqp7oOJg380JDBcbRGRGt//Ao67ij
IKOlYwRPJh7HxymNI9jJK+ti9gi8DsW/z8I4HIdV27m8RrB/INnwtco4fq+Q
OjgjM4KorTnGs2fG0dd2clNEzDAuFb40P2c4jjPhvReOmg9htH307nrPcejx
3il+uGcQFaK0l+Le4/i6jm/hG8cgwu3oi1K+48iRWnjswxwAITjpcfL+OHjU
7sVwsnyYYTDn4xI6DtUk69l3wgO49WlV0EDyOIxu/rXSEXiHr+y745NqxtEj
uF9ynVgfkqTN6Pdrx8FxYN+KH2x9ULuUus+ufhz/0VXbfjN7kZa9oV65aRwu
cUM0A1Yu6aiu/PyhcxwZYVKzPkQvSn2Hjh0YGUeglOykhiUVTn9Dxxv/jMP+
1rFlNWoPxCVa9xQtjaO6O22hsaoHHWdWO8exdI6Qt9czyuiBRKIbp9UqGgTf
9KylOfSgT+GW7DpuGpYmv33cK9CDI3eIewababhSpFbbqNeNn3Pzkl/kaXjT
6KP6Y7oTub9mr7Ox6kphK1T5WtMJ/X9TiYJKNBRY1edIRHbiBQ+dJK9Mw7Mi
/u6jRzpxV5L600edhuI0xl9R/w78MixrFjCg4dB/K2vuSbbjd/PtW0fcaSjc
1RDiHN+CvC67dDVPGr5NravVd2yBQZ/VkIE3DZW3pn/YnWlB1YSptrc/635F
iUyF5Wa4LZ2Xawmh4WDrGbdDN5uxKHuIwyCJhlrrqy5JaMKf5O9PPF/TkHAg
fnRIqAFhnmxyAWQaqgoe1Nz98Qbbr/I1h9XRoJXgS1HufwONLbs+pjbSYJzM
Q9N7/AYJCVck6ztpCNpw/UnYpjeQj63PYR+lYc6W7f4/iXo4RUTkhi/TYLOk
nPTCsBZr7ZPl41ZMgGOBJ/O+ci2StPNa0lZO4LLQsoHrzlq84WuYLGGfgL7h
0q1cGhkCoT939fJNQOw9/9tsPjKKg4yebto6gTK/KNFUl9eY9pPKS8cEaigD
HeoeVTgv76gSqDyBLxuN43/pVKFqpnLYWmUCURKDPTTJKgTpq5DkT09g+ARX
oEnvS+yUNnDq0poAl5Iun9D+l7g+GHj8z9UJ2Chz3uWbr0S/DJ1ywWMC3mf0
o6JTyqHE3GWt6DWBz26GOza5lyMrwXaNuM8E2DvS7nTpleP2mkW5z/4TSE/w
tqPwl2Pd0Lpk35AJdNzerXngwXOcCTh+qzBhAosHb53f5FWG2uH4PxwvJ0AP
lBRmCy3BXoe0e0LVExAx6l49b12Cx2tyeHe8nsDfy/wGQpolsJF+vvVE3QSS
5R7I/uItwWafLhWP1gn4BHQQwlHFcPpv1cOvgxNQsb7wcN/pIuy2tN4yuDiB
N8GtK+9Q8xG97Jj98e8EDie/HDicmo8Vj1ylfyxP4JDdgPsZq3z0VwcQgqvo
CI93VXNdnY97vOlmmtx0WEddmelRzMNocV9BnQgdK0rzPddV5iLq53GlvGN0
jDtua8qcykbPda+3McfpaHc44LTrTTbWdby+7kvQoVh31G06MRthaccC9FXp
iNS3OHJAKxtB6opv2c/SIa1tKpJVngWfxMPXTa/QQQRZCn0Iz4QNpO5vcaPD
/TybSZpdOgqeWm1c60FHaOEizU47HVOC+U+/edKhIPMrxUkmHeaTu7vafOnw
tC7I2PI1DWaRkhtdg+jof16UPXo7DQb07U/74uhgH3GP7eVMhVqgcGdYJR16
bPt0DB8nwrLNotz+Jev6m2vU5U0TEcpblaxbTcezSLUci/2JoDwysBUi09HQ
opPV1p4Aw7REUkoTHfwvFDTusifA/qWo7jPWnHh3+rGMcEgc4j9ve9f+jY5P
paJDql0xeCXtSH62QIcxRZs2mRWDUYf6nPCfdFjcSZuiusdA4pfJ3fN/6Pi1
VeOq554YFK7OEh5izaWF0+lKAiHRqBfdaTjFz8Bv/VrTT/qPMKW9h7Z2PwPt
xQEVURKRWOd49KWgLAP+O0W4/FZEQi76bKTYIdb50z+NKoYjcG/AVvmQPAOO
YgePTcdEQOx6Wfo1goHS/OTDPtwR0HU8ZlJxjoFlMU+LzjVhuButqViny0D9
0MBvWmMoUiuMBDouMJCt0x3vGBCK6UWfepo+AwfntSpWc4YiwL9xO+91BvYb
00z7BB+iKlqLburAgILZ+btOCMZ4xbVq29us9Y5+aJtkDwbHoP0jV2cGjD+T
rDq6gnBB9JFKuCsDnCmBIaPXgjCb/S6zypeBC3dLtYQDH2B7pbEZfxQDmrY5
vqqfAhA06MisKWXAR8I9I+CnP+71vGp68pyB4g/K5XZd/vBqZc8Nq2DAIabT
6Em2PxxfJlgaVTFAxAtbLV7wh0F8/ZelOgZeRDeqyFT6Yc9lgcVjPQxWnpft
uxrkCwkdwyEJKgOzCx5jdDNfiKk/ecXTx8CZsG3axYQvBBQUvYcHGFglfj14
028fLG4yWe0xzkCnV0mgsI0P2gZK+Kq/MMCTZ7Fhrt4LDd1/vmTMMbB6uomk
7ueFmpaTPcHfWM+/rvyQ2AkvlL4YfGTwk4F7197HHnvjiYQ4NuHFZQZM8h8q
ybZ7wEpf5z8FPiZ+V976rjbnBp6Br3KVUkz85Ao0yoy4gzTpjv530kw4tz42
kdO/g0P3c5x/7Wdi0zb1k2rid2Aoa1SmcJgJ9wDj2uESF+Q/bJd+pcQEI6Uw
rfy9MzSUn+yo02JCvN5W+OIJJ4zG+jbQzjGxPJzhd5LfCY6zhqYrzzNxVXxq
LnP8NhISBdNV9Jiw+jFmluNzG1MLPluarjHBoWTkV9zoiKC8K4Lt9kxMKvq1
kEwdsIVNrvSzIxOeo4VLbvIOKNYT0OFxZq3vYj53is8BA6tbwzRdmZjRIf1Y
qrLHrmtHuLp9mbjSsWmWsskeLYL8bH1RTOy8pP6J1mYDQ8vp1IVoJnZc+9m4
2dcGX2ubjwvFMmFxyt96Sc4Gm2y9PPQSmVjo43lQlWONWy2ffw5mMln9mZoy
E2aFRbHmx4vZTNwoz7mqpWGFMOeMwyK5TFZuPeTSYrdCxfbLtw0LmBjxjvsi
4WMJDddDAp6FTKySfBH2W8kSo29JJcnFTLwYS/l0668FHHd+1q4pZeKf/NBL
22oLsHs2zY4+Z2L4///3/w9DD6CE
            "]]},
          
          Annotation[#, 
           "Charting`Private`Tag$33346#1"]& ]}, {}, {}}, {{{}, {}, 
         TagBox[
          {RGBColor[
            NCache[
             Rational[91, 255], 0.3568627450980392], 
            NCache[
             Rational[94, 255], 0.3686274509803922], 
            NCache[
             Rational[166, 255], 0.6509803921568628]], Thickness[Large], 
           Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJw9mXk0VH/cxy2RJaFUtNiXmUELsud9Q9JKu8pSUj+SkixFSqSFioSQJNmJ
VCohWZJl7HeYRShroiJJoZ77PH88c+acOa9z7/1+P5/3Z/veM0rOp3YeFeCj
PgL/9+VbLd40UbiqHmSF6jmX2ct4VSdbMUenHh/1FWmVWqEgwpwjdunV48xo
lF6ofSh2iE7SxwzrsXe+4iH90lB4zV3hpGVeDz/lWEXnkCt4Luhem7K7Hvu4
5X43VK7BtPJ57NjeevRb7/9zfv81VAX/PULsr4d086X9HyKugcUf9feDQz3c
9gxPf5+9hsl/r3Tl/qtHgY2eRUD3dRjOCCdFnKuHTKS4aOercLwttnXvCqiH
ks6W46snw2EdkGCofaEelSPrQwX0bmD/H+22uuB67DBxiVIpuAH/qd0iwjfq
sVxOds6ZgpsomUjxOp9Uj9VuYvLL6yOwftRso1tlPXZn/ThWoxeFGc2z1Z/f
1UNB49vVGKcovDpesOF4TT1MI83uloVFYeWQiqV7Qz0My84c1P4UhaW9Ius9
Ouphs7PnVUjMHYyzW41Pf6nHxZ3SLeXzY/B4ybzXY6P1kHsSLPQCMXDdu8HI
63s9ZC3tVRaejkFX20uDMz/rcc3+u5U4KwZ1jYl6Pv/q8Q8JWaIpsUipOrby
3EImCkM0NH/ZxsFBMPnx70VM3P79upN3LQ6y5hwtf1kmhvQCK/XL43CrbItm
wAom/EfXPt+pGw//16tpgRpMrDJ8Ms90RQJ2PfmjdMmECf4O+VfJIomYk3hr
0fUjTHx4OF9kjXIyivf8UO4+ykSvu0aIkGUyvCTtVq91ZSI7tf/f0mPJ+Bis
tOXjCSY2rmwqEctJxhu350FGvkyE1Ry+L2r4EOcMuF8+X2NiNDWp+7NjCr62
qlVszmMiQKXX7kJvKtJvhDUlP2Hi5tKR9H3z0+Bg9a1z8ikTebsMtC8ZpYFZ
9OpXyksmkkLzf1VHpiEreYv29Fsm1PnOEloW6XA5eToup40JewW9EdbLDHBE
S0/O+82EscQBr4i+bCQN977dO83EyGSlkadcDlzqxRY+nGVizobegPztOfh+
w+7lWoEGPH78tWLL6xyISE38cxRvQGf+ilrx2FzoL9a8XbCiAYWWEYmrDuUh
Sjn+2V7zBvAi1+rkKxXATvCt0EPLBsh+Ub2RZF4A+b6BfV+sGjBBpGq+P1KA
rDS9mYtbGmDfbX33XXoB3tKaLbN2N+Cc5IaSoFVP8XXl3PbpY9R+ej/9zLY+
wxYTn6nk8AbIW2QuPlRYCMt74TPLbzVAQSy+IfljIUynH/LFRzagouXxc535
L7CyuFHkdkwDLL9MLN7q+gJSJjS5Sw8a4Bps4XZE8SVIY57R4WeU/T6+G+OS
X8HBeH2AEq8BXrFxCz70FWNvwr6L9z80wGHJ0opNy0uw/Y9HiFxPA9QL6qdl
d5eAeJ0QLt3fgMDM9KMfq0qgbDxxj/9bA7ZfnUpm5JRiwCij5KNAI0qTFVzV
wstwykji70NGIz4Z7jUPbyyHi4xN5A+tRhxYZufz7Gs57L5FKm9Y1YgHT8u2
SEpWwDxNZuOQbiOUe3SmnW0rsFh6eeTKdY0Q8rFWCGZVoGSIoVxs04iP0V7G
XZ8rIRZnbUV6NyLO2dR5wbpq/PMKY6v5NUJ8l5W8qUs1JrYxj/uda0TnUGdt
Sng1ugRtI5ZeaIRN9BotGq8aBaf2sQ9dbQRNVIa1LPA97DYeOz4a34hDEkrH
Rpk1SJsMuSVc1ogF7imKF6i+wLQtbL1e3ggHyfuF3S31mMgeWCxR1YjcXQ4a
MUJMWDpterCwthE1/5yOzHow8en9/CeKbY0oHjB71ETliUJ8fIvxILXeweHy
7plGxJvky5ySbEJL48+yHwda8Damx25cugnrrgxq7PJvwdA36fs+Mk2omSkc
6o1vgWGqt9p5uSZ02dw+lcBpQfs8Y/3rKk3wUh70cz7YioVdVfseGTSB8XXn
hljXNtwM4iZ0ODUh6abugz05LFTxN6rYODchP0ZfO6eZhT/B5bnVLk1oc8/R
MZxk4Vho5ptCtyZosU5l/l7fDrMw3093zjTBO7XQVamzHV/vLGDYXm2C9taH
i82WsWGbsbmoJq8J+5wXNIZUc3GFZmZOFDThs9SbvE0/uCjJWlP/8lkTelcK
B9oo8kDLlf2Q/qoJrYMiM8sCeOArGOALrWiCZFo53up2ouB1sPX69iYsOOFt
6l3wAQsaX3cUzTbh5JvSveaePVDuP+EnyNeMefPO8slf74HpkRkBBn8zol5I
u8ul9OCk07KlfoLN8PoVOHOK7EHrvv3W0iLNWKoif+yB8UckWrNSN0g3Y0G1
J0NZ4hNWMhoc8lSa8fXuoFdkfS82Ztp/JlWb0Z/wYurBUC8OqY94T6s1Y391
nFKbUB/uKIvfsKY14/ScC7xUog9TSze9/qTVjM1tAsd/v+xDufi7xUv0m7E2
P6kr+HE/do+WNF20boaMdrzk1PNBCGta6pVtaobQn9OcaM4gilzr4/5ubkbt
XDnrQ38HqX7BORy4rRnPeR+KQqyHMMSd/OG/sxnsrlZ//u4hBNaslvW1b4bG
ln9dMzLDSH+UeuiEZzPe3lKwWpI+AruPmu9yTjejRqjNhdM8AnGFZ/QvXs0o
ernGqWl6BJ4J5eNuPs14c3fq5r6dozC+3XX5P/9mvFSzcfnA/xVNF2SznC83
4534dY/e498wtf/GmF1cM9qvqLTM6oyBvoe+IiS+GUd9L16X3zyGA7bV1o8T
mvFXPGyZ3eExFFvxJfPfp9Y/t1pyceQYLuh6b89+SPl701Go7OsYBCXsc6az
m6Fzcf/DtifjmP9W82hSKbW+a9gcf+sJqKnXs3s/UfaLWvrp1/6i+mCtukhf
M+4fvfjdZ+AXoi3ee2v1N+Pnu+mFLYJTmHO4UspnkIrvgGkk12wKffeKrYVH
muGyjsc2eTGFVOncV7SfzVgv8cfOIvs3VGZvxHnMbcHDwNjqtxnTUCK32/3S
bMHz2TpTuel/8EqxvKin3QL+ChKHpfmIKk/j9NMrW+Dw+crgRjU+4piE+sSX
1S1oWD3Hecs2PiLXajaiZ20Lst0PZWsm8RH6RTnva9GC6pt2EXst+ImtSSIG
ibtaIOuxNsv/ngDh61qxaH1AC5x+pumNhAgRVhMNgm7nWwBuuXRVghCxKIgz
FhnYgvvbQoJyC4SI53e/N/RcbIFHlaJsfrcQMV4tfyXocgu2bLKzDTAVJk6q
BUyW3WwBX/jw09W/hYmjn3Q7zJJbELjQUm/BRRFit31anOk7qm886xe4WSJO
hOuf3X9yUSu0ZU7GijVLE5HjEU9pLq1Qjd/RFqu3mJCfv6Ql+nErwq2+GvBn
LyWEpW5pG8y2gtYty9dYpED4nfa2Cd/Yhhwzz80DxsrE+qLN+Yvi2tBWdOB9
T7YqMaSmOb0jvg09epZnZ5+pEreixDfeSmjDsn3OtYtKVQmuO7NL+H4brr5c
rGHUpEp4y2+fP/WwDZ8PpDA3/VAlMkJ2eHBz2lD497+MMGM1QmK7neaDsjY8
N3litPmdGsH5dDSDNtiG+B8eUdW16sTfefavbYbaYI/hrr/N6oSywc4G389t
uKRw0W0NW504EW72o+pLG/JyXVeEDlD36y7B4e9tsGLuJgYENAjl0Jr2+N9t
CBsaCrpurEEc19AUFp9H4qnCfCu1NA3i1g4lOR0JEuecttrE5WgQzwKWaO2f
TyJtbk7FnKcaxEyT4M4MKRJFF2821r6h7j/bed9iEYmCYyfqBdkaxNPam2vP
y5MY/u/etzWiNOKP+3eX0dUkJnUqSrYeoxGv9nTZauuQqLDhrdx/gkb4gmnq
oUsieK+UgIMXjRhfkCkzupbE91Xu+Zsv0IjPRU5VI8YkzkYxDpfG0Aj23CaV
EUsSA6u3yP2poBGxYyWSWlYkOlZF2J+roRG7ednT7htJOPnH3PnWQCOa8660
fdlE4qR/T8VbNo2o2WMW8mU7CdlWR6+fozTi5aPHn4btSARVnohJWUwnvG/e
a2QcINE4cXv5rWV0Qsfv+uvjByk9+od0PRXpRN7mo1HDDiReFRdML2HQifSx
5ebDziT81HK3/TSlE7G48fDzCRLfau/P/3SIWo93/NBQEImlf4L7HB/SiSfB
JxcuDCbhviPQqS2VTozQvarXhZBYYn9aEpl0wuXsOa07oSR+sEv/TefRid2L
rk2tC6P0+6XxRryETqy1SYu8c4fElWfWTy+SdMJrMtPiTTQJ5YNVvKMdlH33
cyeHYkjklZrNseDSCfWRZ/ZmcSRsNk9u+NRNJxZfr6B9TiRBhcfw+TCdmKzo
fmuWToJ+zejQo7+Uv8d7z7hlkAhQjpCf4mMQJ6UH1aMzSbwM3J5vIcggBpy+
3vicTeKvor5Z2VwG0T4zYxedT+Lzs5nGjVIMYkEq37yyJ1Q+iD75sHMBg9i+
ZU7Z5wISNA/l3N0yDKI6XlwNz0m8OZl10VSWQbzQXzr2+RWJSz1a7xMVGMT4
hxWpMq+pXrQ7KN5BiUGsDFXah2ISZzQdly1SYRDpbbTS6FIS6XYH1V3VGUSs
p8F1UL1LWntaI0mLQbQuMTE9XkmiMGbaUmYlg5hfZvYtuopEl1CT4KVVDOKK
hNWe4WoSg30th8x0GIRf9m6lmHoSzA1PTlkbMAjjo0WTRUwS8i3u2R6GDOKv
gjyzq4GE89mLnOtGDOJyzKAvrZlEZ9kyqQwTBmFtu3XrthYSLEWvRZmmDEJc
vEDJq5WEgkqJWPI6BhEV5M8sJkk8aNAu9waD2GPS/bCHRWLtvpNBOwgGITtp
4SfUQULdmtRUW88gHrhLKNtwSEQ9zrIoMGcQzupev85wSVTZBea5WTAI9Y/t
zDgepRfPTEDOkkHk7k32+/SBBC+p+LD9BgZxSlpo29xuEivi1E98p1iH6aas
1UPCs7PLPsCKQUxeafxl+5Hyb3iX7izFRet1G3w+kdhc+Perz0YGcX7mbkpC
L4mGzMMR/RQTL2f8yvpIyGSIyGy1ZhCCXoe39fVT9Sl2/XwWxdVa1cqig9Tz
mZdqZim+PsiY0h4iUcdM+GW9iUFsTYlo2PmZhAdxRTScYimHiRS/YRILrf7N
VlLctmT/2cQvJKbv1ZE/KI5tLd1WPkJC8vyLm0s3M4gDN5VVBkZJHElMoBlS
vML66pTYNxJ7VtmlbaW4R2CkYdV3EpxejqAdxY9KbR/tHiMR37/Q8gDFx84W
nj03TmLOB8Fjuyhm6C7dnvSDhOO3J24WFI+OXlCpnCCR9EbThkHxk8zeqcGf
JE643VosQrH3EevGeb9I9IbNlHVS9hnIP360ZorEDuNHWzIp/sOWPrf3N4lf
YkVFxykuveO7PeAPiUTxC2KqFAdt56kkT1P1VW1iRlL6WIoSv6tmSChhw54A
iudWpTZ+nqX0+DlpI0dx3QXR1Pn/SMx0v1iZR+l/y+jkOV0+FhI9J8aMKJbJ
N1ANFGBhOpGloU/Fr8Mt8fdDQRbKT169l07FO0GVv6l6Dgu+tm0/JShWSqg7
JzWXBbkXpYfKqfzp273KZq0IC+YLXnhJUJwpGa16QJSFE1ozHrbm/1tvDk2P
xFn4rnBTpZjKz3FUpNbMY8Fge2D3Jyp/C/+o+49KsHDjo9A1fopNPb+rGkhR
5+qzUSkqVL5vOhjiXyfDwu+cq3LTVP2ks7ppIotZeKBZebycqi8BW9OODUtY
aHANWRKozyBKLH/qlsuxkJrafJ3UpfZf+d/oS3kW/jOk8c2h6jc8s/LeTwUW
mIOvDvpQ9T2krLhZV4kFu633FDsZDOLhEk56ngoLUp6rv17XoPTh33IojcbC
ybuurccUGYRnQMb8XjoLrB2/C0LkGUTDT8FSRU0WzPi6xWOXU/1guEQuUZuF
Lo0VhveofvS7bWVblA4LSxftfalB9bOu9AVWQaYsCLdkPtwySydMlE5NlK5j
YU2QhX35HzoRd68+ZdqMBYeNr0q0pujEjsjL/3zXs2BqXh3QN04nqs5NvvKw
YsG2ndjGHqQTWVu5mgdtqeseZqZkE50Qfq/PjdvBQtBNr8E0Jp1wXn/nWvtO
Fthpzp4etXRiuf7W/h17qHimLtLsqqATtxTeJFkfYOFp4ctnVoXUfBl/KK3v
wgK9W+KVQRydsGHIXHU8ysKw+p6Y7Gg6wXC+MnPlGAs0azpX5jad6G45Ptjh
ysKWzSFZTdfpxOYC3dJzHiy4TGjXdfnTCSXPd66lvizsFn5/7dhBOtE4OlRm
eZ0FJ6fl9kbUfMxSO7jWI4yFIjHfhQ+l6cRlh4bsmHBKX777r/kk6IRRQ0HM
wE0WXor6fMkQpBOpuf7u16JYOLhk2DH2O40IcJ+3hHmPhSsFMZ9+UfOa9nnV
yV15LETHT4ePnaERiT3xJdH5LGzevn/XZw8aIcUWFG9/wsJGiZZj7P9oxO/q
jgy7Z5QewbO3Eg/SiLrUix8dXrEwe67uSak5jXA/1LTbtYKFuFB6sZskjcjr
OGkS2M6Cos9MXlKKBrG2+rFIxl8W7r+Lu2rxVJ1Y3XL23Kd/LDws/vPsdLY6
odVpMbyCvx2MnDm+8SnU+WqcUx8t2I6rBnofWFHqhJS8cESwSDsuHRegCZ5R
J0Z8HBc5LmiHpYmsmYGOOpGiJqm8SL0d3sxfRea5aoRUqKdJyLZ2jNwKOtIZ
SZ3/HqXoSt9tx8oTj8+82atM6GRWubEG2hFh/UYgOF6BODdv79EtazoA/r+b
9n9YStzaqfV7k38HHiltMiTcFxMzF8brLtR2IEeiYPz1H2nihxjN+ehCNlIL
XhrOJMwjSpLPs9Jk2Lh309vJKnAecUW/xXpgERtSpdNxj5zmEbLO/qv+k2Uj
z1Fv313VecS6IuaM6wo2voXcD3TJFyeu/nf67gkNNpzdx/7F1YgRy6peM8+Y
sPGjhi/ukqgoYRG4zSD4CBtzfNaM5L8TIsKaX55+7MJGpeb2JL88IaJVRTmX
fZSN1hdbzG3vChGH6iYVV7mycdb4vwN6bkLEhSXJYp0n2OAf/pT8XkKIeF0w
/mGtLxsyqff/yh6YQ6weuHv58zU2Rm6qn9z3T4BYbvOpxTaPjTMPVNRiAviI
4cLHK33zKXuwTKXPlY8oWn4u/N4TNiYsAx+Z7+Uj9g5Lbhh4ykaVY53syjV8
xO3Qda8CXrJhtPNY8vmmfxAuiUtKf8sG8U9088X8v/hOs3GfaWWjml3bYX5l
Bm8iltYokWwUB82pfewyg5uT/aobWWy8e6jvoW8xA0bV+a7bHWwsUzv6IJlv
BkedsndodLIxmOPt0HF+GtwYIcOd/Wz46VUmVfr/QZVAyZzMX2z88SueMrsx
BS36ReOBKTYuyyt8LHOfQrSNuafqHzYiRnV4h7dMwSWxhpc8w8a5sYY3IuLU
+54+62k8PwcnmyrtesJ/wdLt66FwcQ5Ykb+tM+5MoqpJsfSkAgc/7j0Kkime
gNZk73iuIgctpb6vo5MmEL08g/ZFiYNK14pi3eAJuLhpR/+nyoGcPV9Nw6YJ
zBE0dj9E50DRyO7LKe4PWOrvktupy8HNVyYOB/l/4F1iqM/ajRz8/biVf8PR
MeQGOXo5WnPgtniwVn77GKJcDE5d3cTBrcAcU2mDMThqfXblbOFgXnN3F0TH
MFm81T7QloMXtZbWFXnfQeMttHi3nwND3Ri3hJlvCJNLkdpzggOhnUK/JRxH
4TnrL3HBg4P1K77X56wdxd6Pu8QyTnJgdrWy1ldiFMpZQnN+e3Lw0+dj2Z3S
ERQbuv1K9OHAVrLuc7/CCEb2re7qu8CBB/dUU8PIMGxi3+R43+YgN+lwxdv0
ITQaRVx6EUXp8eLmxo6gIWz/4LRv6g4H0iYTAysOUqzKL3g+loMvSpvqjKWG
sPWpxYGQexyMBpoF5p0fhHVjjUhUGgc2C2b87RwHQAi3Hc0v4sDCyi87wqIP
b7MemYy95sBkoWH0PpU+YJu3tG4JB+N3BvZsFuyDWfSi0hdvOKCzTxTnV/bC
VNlO5k0lB6EKoWE+Vr0wMvtQwWzgILosA7W7PkHHd1Bh+CMHDy7LrfK+0QMj
bTlZ9V4qvvMqd1ef7gHRt1nKuY8D74+Sfab7erBtZx4fd4Dyt0ciO1a5B64r
fT7WfuHgsr3hpTGfbiQNCDzK+slBaa+r5+O+DxDbJ6/uJsqFhrrg74kJLqTn
28qniXFxu6HWVa2GC9l3lxZ/FOdS578jd2PucaGm2y+8fz4X/flesnoWXBCS
uYPWC7nolg4Sdo7hwPe9URZtBRfT90tnLDew0WuwR2toNRfvltmbbWlhwTU3
8ct8HS5qE+fbnaL6/ohiX/ZaXS7qPGtuV1JzZFL0DD1kLReaYe+jpqm5KdYZ
qS5vzMVEXJxUahkJnSCm4m5q36WFo3FZRW0IqrFY9HYPF3trUnqUm1ogtC6c
HNjLBd8pjbDBghaEFbTekbDjYoG7FX97dAuiEw4vOHiAi69PjO6uOtiCjBMX
JScduYjtlVJu/tyMRqliUS1XLuhPO+j35zdjxX6dv3f9KX0WF9Esh5kwvXk6
tiOAi2dz/vviVcjEgfInK5cEcnHR+OvhySAmYumrnGIvciGhYJf7W5YJqT+a
b6Mvc3FUbFV8/9Z6CNxTC759iwsfYenVPyprMdgpKxyewoXdhrLimS/VEJa2
S6p7xIWuh7fJ2NtqqG64qy+WxsXwxKSJdmw1Dj1e9N/1DC4Yb0R0/ddXgxu4
oOZqLhcibzwNHe69A1N+XtjlF1wkZjvxxg9WoeDQP4kLdVww2/oc6yQqsH3n
bo/Mei5UE0zdLUfLMWyRxWxlcrFm7u20cWY5lDV2hWs0Ufrt+nFt+EY5okfT
RVrauHD59vggIVmOs/7bBVU/cKHtOj9144q3IKLvT9V+42JRzUjhh6ISdIaO
75v4zkVvoIgb63IJzvltfCk/Tq3vuaBV1bYETw+M+Zyh8sz1/CVWzWAxVJU2
/Fj+m4uUb4e0ZJcVY27eyOgpAR4qhNbSjt8uQuN7k95Fi3hQ/jk4m170AuPM
MRfjxTwYqW90uhLxAotbMwYcl/Cgdfm1bO7RF3DoXDicIceDz6Ka2ZoFLzDy
/ct3I3ke7lywjFjnWQjRpYl/HTR4yC7fhGKD57A8MSOXbsTDkoEVwe6TBXA9
/fRenTGP+l17fz9ZgHBf1xXfTKjrpqcMgp8WoDWIVDQ04+Ff6EjYpVMFOByT
q1FnzsOBT89Xrxp5ggtv7Nd+3ULZOxxV96s7H0VSpbb6jjyE9A8KGJjlwpd1
POeMEw9zES/LFMiFXoKscMEhHsqF+Lta3+cgT8W7WPMIDyJZU/46u3KQoq+p
ruTKQ9vc+1vVTmUjzD5+WtyLB5WsHcoGxZnYqLRx76YzPHTKnX8ccSUTcwYm
nlzx5mHUq/r49p2ZuHDK9hi/H+Wv9c6y6eEMeAXPbZkM4GHN76/dAkoZOJjp
k/4xlAfphfypKx+kQdZDhV/hKg/rGiZMEjzT0L6m5aD9NR6O+KSEHDZPg22x
lnRHGA+lde4pfIOpsGzsDWBG8HDZNrr1lF4qtCZ27HgZTz1vmB8X1p2CWayc
ufGYB9/BqIxUr2QYVoytKMyjuJx8VG+bDG/LQnzI5yH5l3KYzqpkDFubhmg/
5eHjqqn685wHaN+xWazxBQ8z7vNcQ1lJeHLkmKzkWx74esSaLfsS8aWfbmxQ
Tu2n2BeinZkIddfRg04VPKheVZa/fiIR9094P8iv4sHz8Nh4zOQ9hPkEq9vW
8qA5W8X+LnkPLleT9G638nAcGlJC++LxQNR5b1EbDzJ/ZM0rlOLBDVc7+5Hk
IVZyfcTASBx2ROYWr+nggZOmk3f4chzM4l+bt/J4KMjUSpr/6i6W5LTbLuzn
QfHWkbScNbGoa5zvEfOLh5He6X43tzuo2nzpX/cUDw7RPvHfjO+grPrHbcYf
Hh6YxdM7593B8zfsF2UzlH0H7mYNFEQhKS+Fb5i/E3mGkX+y+aJw5pZ+tNm8
TnCCt363eBKJk2JZ6tclOiFvhy+cq5FwvbKsqG1+Jx4EKF2rc4qE4wW+Llfp
TuxKd3v/SioS1ifrNO4s7oTAq24B99FbWL7dsXhQsRMHc9ftYaTdwOK65m06
yp3o+6ujLeh0A9JWFj3nVTrhf3mja4DcDQib0YQWqHdifHp/n2VkOL5rj283
1exEfIPZBdnQMLyTuPIpcm0nTplVzs0Lu4a316e8efqdcL6clzW47RpeC7nP
VTfshLtDE+2x9DU8mbXRKjbuxBphB0ZHwlUkjMr59qMTX9MaUq4+u4Jotxsi
q9d3wqnG7ypfwBVE9P9N8Den9qvfum/G/Aouf+gtk9zQiazdL4+dJUNxYf/e
nQesOrFOKSB48n4ozrFq+lI3diJM7O36H/+FwnuHid83607c2n//rodOKE42
PBY13tz5///3/w8p4W+1
            "]]},
          Annotation[#, "Charting`Private`Tag$40766#1"]& ]}, {}, {}}},
      AspectRatio->1,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0.003110432498105149},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox[
          InterpretationBox[
           Cell[
            BoxData[
             FormBox[
              StyleBox["\" \"", FontSize -> 16, StripOnInput -> False], 
              TextForm]], "InlineText"], 
           Text[
            Style[" ", FontSize -> 16]]], TraditionalForm], None}, {
        None, None}},
      FrameStyle->10,
      FrameTicks->{{{}, {}}, {Automatic, {}}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageMargins->0,
      ImagePadding->{{62, 8}, {25, 8}},
      ImageSize->{250, 213},
      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.07832897429485854, 0.6783289742948586}, {
       0.0031104324981051485`, 13.145219924382037`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{None, None}, {None, None}},
      Ticks->{Automatic, Automatic}], "", ""},
    {
     GraphicsBox[{{
        {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
          NCache[
           Rational[10, 17], 0.5882352941176471], 
          NCache[
           Rational[164, 765], 0.21437908496732025`], 
          NCache[
           Rational[122, 765], 0.15947712418300652`]]], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.1515172903961339, 0.}, {0.13636556135652042`,
             0.1818207484753606}}, {0.3, -1.1}}],
          
          Ellipsoid[{0.3, -1.1}, {{0.022957489288986367`, 
           0.020661740360087718`}, {0.020661740360087718`, 
           0.051654350900219276`}}]]}, 
        {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
          NCache[
           Rational[10, 17], 0.5882352941176471], 
          NCache[
           Rational[164, 765], 0.21437908496732025`], 
          NCache[
           Rational[122, 765], 0.15947712418300652`]]], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.2485975524063778, 0.}, {0.2237377971657399, 
            0.2983170628876532}}, {0.3, -1.1}}],
          
          Ellipsoid[{0.3, -1.1}, {{0.06180074306244176, 
           0.05562066875619755}, {0.05562066875619755, 
           0.1390516718904938}}]]}, 
        {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
          NCache[
           Rational[10, 17], 0.5882352941176471], 
          NCache[
           Rational[164, 765], 0.21437908496732025`], 
          NCache[
           Rational[122, 765], 0.15947712418300652`]]], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.34393543117714404`, 0.}, {
            0.30954188805942945`, 0.4127225174125727}}, {0.3, -1.1}}],
          
          Ellipsoid[{0.3, -1.1}, {{0.118291580819008, 0.10646242273710713`}, {
           0.10646242273710713`, 0.2661560568427677}}]]}}, {
        {GrayLevel[0], Opacity[0], EdgeForm[{RGBColor[
          NCache[
           Rational[91, 255], 0.3568627450980392], 
          NCache[
           Rational[94, 255], 0.3686274509803922], 
          NCache[
           Rational[166, 255], 0.6509803921568628]], Thickness[Large], 
         Dashing[{Small, Small}]}], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.04598374424205328, 
            0.}, {-0.08687580735144662, 0.096743535805539}}, {
            0.3272119779527644, -1.0665142515686816`}}],
          
          Ellipsoid[{0.3272119779527644, -1.0665142515686816`}, {{
           0.002114504734518568, -0.003994874906070814}, \
{-0.003994874906070814, 0.016906717623123273`}}]]}, 
        {GrayLevel[0], Opacity[0], EdgeForm[{RGBColor[
          NCache[
           Rational[91, 255], 0.3568627450980392], 
          NCache[
           Rational[94, 255], 0.3686274509803922], 
          NCache[
           Rational[166, 255], 0.6509803921568628]], Thickness[Large], 
         Dashing[{Small, Small}]}], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.07544648032688814, 
            0.}, {-0.14253893410074278`, 0.1587291202840137}}, {
            0.3272119779527644, -1.0665142515686816`}}],
          
          Ellipsoid[{0.3272119779527644, -1.0665142515686816`}, {{
           0.00569217139371552, -0.010754060887447296`}, \
{-0.010754060887447296`, 0.04551228136071278}}]]}, 
        {GrayLevel[0], Opacity[0], EdgeForm[{RGBColor[
          NCache[
           Rational[91, 255], 0.3568627450980392], 
          NCache[
           Rational[94, 255], 0.3686274509803922], 
          NCache[
           Rational[166, 255], 0.6509803921568628]], Thickness[Large], 
         Dashing[{Small, Small}]}], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.10438042326180388`, 
            0.}, {-0.19720302667876052`, 0.21960219598626438`}}, {
            0.3272119779527644, -1.0665142515686816`}}],
          
          Ellipsoid[{0.3272119779527644, -1.0665142515686816`}, {{
           0.01089527276031333, -0.020584135393237828`}, \
{-0.020584135393237828`, 0.0871141582132536}}]]}}},
      AspectRatio->1,
      Axes->False,
      Frame->True,
      FrameLabel->{{
         FormBox[
          InterpretationBox[
           Cell[
            BoxData[
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(w\\), \\(0\\)]\\)\"", FontSize -> 
               16, StripOnInput -> False], TextForm]], "InlineText"], 
           Text[
            Style["\!\(\*SubscriptBox[\(w\), \(0\)]\)", FontSize -> 16]]], 
          TraditionalForm], None}, {None, None}},
      FrameStyle->10,
      ImageMargins->0,
      ImagePadding->{{62, 8}, {25, 8}},
      ImageSize->{250, 213},
      PlotRange->{{-0.07832897429485854, 
       0.6783289742948586}, {-1.6674934614422876`, -0.5325065385577126}},
      PlotRangePadding->None,
      RotateLabel->True], 
     GraphicsBox[{{{{}, {}, 
         TagBox[
          {RGBColor[
            NCache[
             Rational[10, 17], 0.5882352941176471], 
            NCache[
             Rational[164, 765], 0.21437908496732025`], 
            NCache[
             Rational[122, 765], 0.15947712418300652`]], AbsoluteThickness[
           1.6], Opacity[1.], LineBox[CompressedData["
1:eJwtmXk0Vd/7xw33UhpkKD5IhkwlmYoU+0REs6GJJLMUElKmTMmcWQMlMhQy
RojHUBlShJSxrnnmXNyp0ves3/qddf55reeuZ5/93u/33nutK2njZmLPwUY8
HP/3sikc8X206TULikmpcmV/rqCRzqrUjAIWtBfonV4vbY0eWzKS1fJZcIIR
SSkyskY83l4JF/NYYCDQ8Xop1RrNvXSLys5kAZvsEKeJpg0q5rXz105lwbTZ
asOOCFvklJbp25nMAqeOX6TmclskqUC5Y5vEghBt946WX7YoQffyrYh4FrCH
+ecNH7BDnl4X3L5FsWAgt8XWYckOaQycsHYJZAHTvzIsyM0BLTlGWbHdZYF6
xBxF+rkDyltptUz0J/qriP3d3e2AhDcfNa/yYYHDjofONzQdEQs7bEr2YkG2
mKX8T24nVJezTz/9Kgvos9zubDVXkf5NcYXPJix4GlNkRvd2QdXnoz0OG7NA
14vtoU6tC1LWZtW+Oc2C2TYvAzFOVySyrtfk6QkWcI1fCnkW54qW0mP83AxY
4H+h7fBEqRtKa/3TwafFgsFxjZZ6HnfEX+QsEqbJAuMdNhJWqu7oftIPO9Z+
Fui7n7liYu6OblqVM0fUWBBQeVFeK98dGa5eky7fw4Jub68NksY30YrEwK1z
kiwQVfM3oBR6IGcuo4a2HSzo85I9t33AA/2crdiAxFlQNa+7pWqdJ2qrSMiQ
EyX0C5634Lf3RBknjrUxBFnw5Cnuc0XKC524XbX9yToW/D1vsH5L8S2U1ZH6
/uciE/iMI9lkt/ugakFRQ9cFJrTz7p+YNPVBnReffvozx4QvPFIkgSgftDb6
ouu/GSZ4RDrX5LJ8kDmj5JfpGBPs32sK/hz2RVsk2/80/2DCoFkoyL/zR/43
2fYVNzAhcTzpSu1kIEqqDHmrU8+E0eZfg848QejVH65Dn+uYIKOuqX9xTxD6
EbZJb6aGCZmqvhEsjyCk/kTEeGcFE0yb9T6bk4LRTJO6y8NXTAgOUkxbVglB
57dezQ5MZMKRS5qCJU330PtKK6dtCUwIXfZz8Vu4h5TNz+0uiCPYX1w76b8w
tO6ZXsn3GCb4jdZK5N8IQ2/lxWuVwpkQt/7WkRCp+0j4UHfPoB/xPc+eWxgl
h6MfNtqkAw5MKHjoUldcHYWOkNWbv9gx4eQj0w//FqNQce6uSDtbJhi8CLyb
LxONwueEtsRdYcLppXFMNCEaad6iik6aM8EwY2/oNbcY9DAiVy35NKHX1usF
Jw89QBeL+WxxTSaImdj/fRgfj4LzNW46aRDjSVZfuPomHhXkWAb93McEp78V
Tr598Wgt7eWzz6pM0KNzGDpIJaDMiMODLxWZ0GC+LtKmMgHN2LiftZFgAhf3
7JrJQiLy3fr1aDc3EzZyH78onpiCXmyhnzvGxYSXjUFGTEhBXzZsd2ggMSH2
8Dmm9HwKkuC4GlrEzgSh6Iv+zoap6P0CW0PUbwb8mrX3a+V4iDa2KGsdWWSA
0SjnxUP3H6F0nzjFN70MKFUUM/ftSkNO3z55GnxjwBPpNu5wrnSkqsxd+72b
AUdveRyb0kpHH8f9T7I6GfD3ba5Z9ot0tHTmmiv6xIC76qr/tvs9RUfkDIpb
gQEycs/TK7dnoJnu32rDeQzoSlJpdv73HJUrafi55TJg60md52I7MtHdiJvv
2XIYcIJrY/s/nUwkiKbNpLMYMJi/RdDibibSftXr5ZTOgNuCbb7XObJQXGBJ
JTWeARd/dA2p8b9A+/c4HuT2ZcCzacmOXeY5qO7X1447dxjwVk14fX1IDtJP
OmQ3582AfzdaJR8V5iCz33wxXz0ZcN2w3EKYIxfdbH03/MSVAQqHEcvsdS4q
tOcPVrZhgMnrUA1hwZdo59PalotGDNDeG2BrI1SACozlLduPMqAucpZ317EC
pEZOxHUMGLC6sPrksH8B0r3uJLJTj+hf+XDKeqwAWWkJXF84xID/Ghj+NysK
0eNeJ94QZQaI67ks73EuQny8gucKhBjw6YVb+e2IErSwg6ogu40BZrqmeUW5
JahNufPvM0EGXJEdvCvwsQSFmkRnJ/IxoKW7vMCGsxTRkkmrPhsYEF6l0boz
sBQNiq0mGv2jw2WVjJ8OwWUoZ1fv14kJOoypDO2/kv8GBR8sz74yTgcr2f/O
p3W8QVYnEu70j9LBcYhXfePKGyTsekryyy86WL7fti5cuwJFlXy88aafDr8s
Rs1pXRXohmYlb+gXOky4ycv84n6LDho8PClZQQd7zTbj4CfV6G1FlPmbcjqE
/nBNrGuqRvvl7joaldFht22wltJcNVJd5xDkXkyHpdo2/zztGrSrTe1Nwys6
NG/5q7N5tAaJnOoQs3lGBwnebNE2jVrEOss1lxlOB+W8xgMq5Hp0+yOTsf8+
HdJE3m2sEKtHtP3z5E/36FCsv77yvHo9ogr17FgOpkPZvAkDt61HM33PTfX8
6eBsILQW+r4e9Vtq14y60yH57deig1ENqNreM3KnBR3WpWSXPN/bhFaVUkcf
XaQDp5b9dr2TTUiZUXWI9wIdFEWGDXmuNaGcyH8LTDOiv4WlPU9uE0ooijTt
OEWHwK86Nt8k3iNnZoaYjy4dKptXx8tEPyCRmM+vOxTo0NTx0fvu3mZ09twS
t748MX5JqrKISTOK2yFgXS1LB/HXNyjDns2Iq/SCQLY0HXQTnUonqpsRtXfU
22c7Hfg/ajQtG7agNgkWJsNHh/NG4jKSLq3It1y224dBg92s3bvLez+hC0OX
7XnoNFA4A3ek/3xC6lyp9EerNBAJt2KvkWxHc+e5xaqoNNhx8aacrUs7uvx7
0o4+RwNm7kTdY67PCNN9SfOg0KAriiewDvuCuDp3i7i00SAy2Lje0LkTxc8q
W1ul0eBdak03J9aNGt0HVWmPaUD9esir6Hw3WqHfJ8U8okFFoouPu1s3ukD6
mVudQoNmq78Dms+6kfj2mIWt8TRIDIhS6v3XjV6dmvZtv0eDWfvYe2YfetD7
kucpB9xo0P/MzfqldS+iefO3C+jSoHW4+2svpQ+NnZufjsJo8OzNesoiez/q
3tfCTUI0WN06IyYr1Y+Kl/31Vg7SIE2SrDtj04+uuU1X9+yjgbzj4umu8X70
y6H+ZbICDVxqDdIV8AHUdtb1vhAfDR6RSn8qiw+jdLU2XdFfq7Aj5+2ZxKsU
pHiz+lHh8CrwJgaxb/GjoHfFr5bQ0CrU4FtEH8dS0OCeqKd2/avws7s4ureM
gsTkT7AKe1ah2sk4dGmNgtLEvpRgravQWLdy7WXqCHpC7pJwKF0FOUWTQJXu
UfToe99acegqpIqrngi4OYG+v4KPjyRX4UKGWsdkzxyy6/a7ZlK/Ait3s8xi
GDgyGIs/+8h+BSrXMI+TSavIeaf/cTXOFWjT3ij9r4CJRk/Uh1nkLgMtoGVk
KOgvevqi73Ov3jLMlBqVzlaxYSaOV1mndZfhUV9c9PEGNoxrF1O2FVuGO06p
g7ktbJhrkXBgjfYymDt0wdnvbBhxoVLN0FiGw/5t9fdW2LBfHd9Sru5eBrld
yjuUldgxqd9frf7wL8PK8qSqz1N2LNe4DZccoYKlvAv7MXcO7I+H2/k3v6jQ
4JveK+nNgZmkCNYa/qRC+xEGx6ofUe+/HO42SAXvotFjMeFE3W5ZvLaXCo9p
en9Cn3Fga7fETlz4RIUw1aKt0e0c2Lk015zYcipc86mx7pbixArqBDZKlVGB
YtMYv0GeE2OnvHV/U0KFbRmOLjp7iLoMp/bgayqkUCUEkjQ4MY6i1G6Fl8R4
y8ci145zYq8b6tk+pFNBz7/rwycPToxrkt/idxgVZl2kzskAJyZsM7nxxj0q
2J04e5fnPSe2e6imbiyECkVn/V9PtXBiZ7rtpL4EUqGuvow7rosTewwV0xk+
VOgyDOWKHOfElB6a3zZwpULus/tmsjwkDBPYu6vmOhXW5eocfLSZhJnGcg7u
vUYFjahrHSQBEnY7tAD950SFjRe2zn4QJWGNN9a45qypkGS2YLmoSMLOGWUm
x5+lQggeV9d/koQ5vb91lMuM0POg5dZeYxLmi44zfUyowOW+obX1LAnL2Ldy
ye40FUpvb1J/bEnCZiQNdmoYUWFCODJ5+DoJC2BNlw4eIuYfLRuJR5Cw3HyV
TrmdVPgOFkpSdSTMPEy0pkKKClFJ+mvz9SRsszU5R1+SClumrheXNpGwW9v6
fG3FqSD9q7hItpWEGQQFyj0TpkLqRdPWt90kbOxcR8C2TVT4Fuj/O3iShD1U
qbqavYEKktlF6QPTJOzExiwzdR4qyMe60RTnSFh5w61dJtxUuMtT3lC1RMJC
FMV7Y9ipkHW8xteXScKkOFz2kGk4bFuw9klfT8Z6B88JJ63gELY59nrgBjIW
WYlxSi/j0OughltsImPU64J92BIO3PqrL/9sIWMN32tC/WZwAI0rWWNCZMyz
NNttwzQOb18oLEf9R8bkYx6YP57E4cnPMx93i5KxOF1b5bdjRH2qYdFMnIxd
KeQZXB7G4cHfPRInd5IxwfCVj8FDOHQNFFq8lSFjLTbDJXyDOHixu24SkyNj
e4VL7+/tw6GTt+pzuwIZWwu+qHatGwclrdBH3UpkrNRST5z1FYcU5vfLHMpk
zEFzz/qIThx2YiYPFFTI2Jd5tp85n3EIrm9WtFYjY+kX8iJHmnEo6hzU9NIg
Yzlx5De3P+Jwmj823EaTjBW32Pzc/AEHRzelMMMDZKxRc7v6wUYcfgeG31/T
ImOfbvhc/lqPw3kl34gvB8lYT973cEfAgTn7ZV/qITI2IZwwlPgOh7L/rCL5
dcjY4plF7l01OOSe5lP5QDAj/IRqfRUOR3ZuuXsDkTEeJtf9uQocVNjVNpdg
ZExAxa4k+A2hd/P6UwaHyZjY1YYB4XJCn7wE1R6Clfp8lfVLcLDX8pzs0yVj
Gnx95gNFhF5N7yqM9cgYZrT/nvtrHH6Kpco3EmwUlFjEXYhDpGnsod1HyJhJ
1VJfej4Ol8T2UaMJtsBPktRf4UDtkTGaJNhOIV+pLQ8H01COw1r6ZMzFet3F
K7k4JA149t0j+NYj+xBaNg7X9yvxtxF892tjYfQLHN49mZzhMiBj4eslfkhl
4cBTZ217iOD4w/4cVc+J/r/tfJ0JfnynX/F0BrEeVxpU4wnOKtE4P/4Uh7is
UxHFBBdMJwX5puOwpjAX0EJwhSQ1ny8NhxVykEAfwXDxdG/uYxw20H8bjBDc
El/ApvOI+B5n0//GCO5qXb+7JxWHAZ97kcMED7A7nnVOweH9UurjrwSPHXh/
ly0ZBzndh0a1BM+7S75KScQhIuFJ6nOCaS8DehQTcGgurQsNIPgfZWCtMQ6H
eQlZPjOC14kcULj4AIcl7rVDUgTzmaSYLsbgYId81k0TeohELvvfi8ZB8niv
Rx7B0o1n8kSjcPhlfvbuFYIVWYVdJRE41Bnp7uYjeJ/qhr9Hw3FoTF/0rib0
13F2khsOw+HE/Ur7SwSf6Zfy4wnF4YairGwksZ4X+QNzMoKJ/KXkMrcSbHNs
qHN/EA6hVIbbY8IPntWpMrYBOMxt2Ho0hvCLP3XlNNMPB+nX9LzfhL/Cdpn4
PPDFgX99f5ENwQ8fb+youY3D1mrJIhHCj8+7rjKNvXE4tnEw7xrh11c8zdJT
XjgobMKOvdEmY+98gm4LeuDwaprjvirhd4o5TdLFhcj7h83/eoj85M0GPxy7
hsMmwx7J70S+XP14eS85E/p15Od27idjrHT5P8ccccjPfEp5qU7G+CnmvfLW
OLx00VZf3UvGfrhPnsiwwgGVLyeVEvl+yuHZJHQZhzvak7aOe8jYrp0xxVwW
ODxtpZhU7iJjuo4QOWZG5OnhbNYSsZ+sYxxnv2RK5HNoffZVaSL/4T+8u41x
EBLdJdUvScbMX+F2jadwKF3d9vA5sR95zEujDEMi7+Mur9qI/eyFR/iyxSEc
htfPG95fR8acSVudu7VweMj5jXSHi4wpJz//dewADrdC6FY2JEKPiurPB/YT
6/lBdE2UjYx9Y87lCinjwAq0lN5NJ2FcgcaXuqWJ/alIJqBmlIS1bxnuOiZF
+O/FNw95CglLeO5s1ChB6DfB3BczTMLEm0L2l2zHwSNHT1Gnj4Tt56rY8kCI
WA9pz4M6X0iYY7TIh2MbcNDoPPqjqoKEffF75zm4Hgc65bBgfxnxe5fLO13X
EXl44mixXEzCSKcyQ+LJhL+/2Ajx5ZOwTN5duj/+LYGd8vc05lMSNpxwAOxX
lkA9xvBV0D0SdvbRharAoSWISpNMuUecj+8iWE78g0vAPMtI/2xEwnb6pAm/
6F8C1Si0g9eAhFHNf3k3f18C17gn6QE6JCxOzGn/5q4loKodo/PuJeb7zLvs
ycclUIpKyPhHnNd6OSmFFUVL0C3rJKDcxok5LTq+VHi9BLcSbpw99YETi9Y8
kJ1WsAQXvrlE29dzYj1tA2nBL5eg7HDJUkAFJ+awKBF9KmsJ9t8a1LicyYlF
auY7T6QsAa+zJqnnNifW1QZy2wKWwJv3iHCLBCd2ZXHqudeJJeAuTmvWvcyB
9SfvGVo8tgRZe06WLpznwMwO3RR2NloCldDea8nGHNjRiN+xlw2WILhX0LH7
CAemJL3Z7yi2BObzvhj/bg7s9zm1c/+pL0FTXW3acxo7llLnz1MrugSSov89
1Ixkxx6Kykys612EK7GSLkMv2DBRBXkBPYlFuL26IW7x9V8kmfz9vLTFAhQq
/vdtIIGJur7ul5PImofQ2Oes/tpVJFF1pPjdwhwE/JXRbNtJRdS1tTP/ds1B
ewUexCYyj1y3XvW77DkLs7ViScGyk0jXzSvewH0WbvD6ynhvnkTbWoNylFxn
QZMSKOtLm0B1fo871xxnIeDz27CSjxNo89innc8sZqFOX0/mh+MEel2q9Pmn
7iyYfZ6v5i0cRwunV7Zb881Cx0J/kZbeGHKNvAu2r2dAi14S2P6UgkKzKgwC
82dgxF2ziT2agp68m/+cljcDtxsc3h25Q0EtCxaD3zJnoK5c/8uyKQVJm2oy
j6bOgNHY0Enaegr6IYqrKgbOQP4ORkDU7V9Ir9AmZ8V4BtrD26R6YBgJd+rH
3FudBi1Tz/O9hf2oL8s2sZg6DVd7f5xMftCPHnsHPRpYnIZw6Y+XXdz7kdiO
2myVmWlgteMlTvv6kaSret3Q8DS89XynH1XXh3ZtlF7c1zINWES+4p1vP9Ah
QzbjicfTUP9VYe7d1u/or6j4eb6H0yB70OXkA1Yvqls8aHkoeRpElNoq7/zs
RViq99WEB0T9cnFQystepD+xEKQTOg0J8acGF3R60anQodIUl2mYDNfk53f9
hq7UVwsexaZB33W70MBQN3qir1Gmrj0NTZkvXWKbulFvW5mxlNY0XNQOuX/p
ZTc6+a0g9q/aNLiwtbQbenUjrZmn68rlpoH9vtKWK5u7kYBgyB8J3mkwsNIc
9dPvQh8dj4+xhqbgdNkLr3XNnYh9vjl4qn8K2DaUM+hFnejQzSOSvd+noPdm
lh3bo05U5qd9ueTrFHj2c1RZXOtEGfF7fzh+mIJk/uWnWnyd6E6NQHtPwRTY
D2VrCTV9QYq8g2WvfafA3C05Yqt8O3plGvK+8/YUnEiJP5vO0Y7kH+76RvWa
Ajelkk0nhz6hnZJ3aPtvTEGMV8d36cRPSFRt2wGwm4LbTgen8tk+IZ7zZ+o6
Tk6BTdx85ObRVjT59H3L0o4pOKr+28T6fTOyG73Wx799Coyu9aaVZjWjETmB
GXWRKXDISPaUD2lGw8XWG+4ITsH110LWQbrNqLdx7ST7eqLffv19440f0fsJ
zW4+6iSETV9hs2z7gDKVCodU30/C6I+zP04tN6HHO8vChBomITtffE9GTxNK
EKna+6d2EjSovW7CFU0omOtD0IfKSYjcYb3P/04Tsh4elLmQPwnq9fN/BTia
kETsRlf/hElQEioIuCDSiJ7NX1trvjIJ+27ssTzlUI9SRt1zCywnoRZ/s+vg
iXoU2+d9Jt58ErDH6S+OqdajgA8hmeZmRH85tr2ZfwFdTn9iMH90EgIreLOW
VAGJn/wUy793EvYflFuWeVWL0gp27bD8OwHVh9vlZVqrkY6l0NEzrAloG79i
SkuvRpRNJDc9+gRkSHG4cnhUI1m3oToFfALeyzoEtW2vRkUqcZdpYxNQ6R4U
LnCrCjVWrKY/aJ8AA53zJWYqb9FUfb1Y45MJSDMulKF1vkGR7oVH3jycAEG8
Rqm04A3aI/X4el7yBCRuz/vyPPwNuhni8S72wQSc1l5bFDn8Bv3Wl71kETIB
3hMbIl3Ly9HmT1FPVpwnIIK9UsD5RRlS+3ZORE5rAn7uP6imkleChPVdy09p
TMC56pktv6NK0Fr5vVO31CfgustByqxbCWpJKg/+oDQBZxUvFR3WLEGXzPhn
baUnoM6fcrmqrRiFdn+uydhIzP/cxgyn+SLU8/WIpcjPcdhjJ9F0o7sAVR2+
RD88OA72WZ0qEi8K0NMSj/irfUS9evcxAa8C5BSf+eFt9zgUfTZDTUIF6M8Z
NqXzLeMQd0Tj3eEr+WhnZ81aYsk47H0c8d7r70vk9UU1Y1PoOOzgiZQscMhF
PYt5XfTAceD1r7eYP5iL1Pl2kEf8x2GuvUHKgy8XUU03OFd4j4PXCs/Csdoc
5No3qmZ1bRyeWNbkSwrnIIexpOZik3EQSI+xFO9/gS6waAumkuMQXTLAzorO
RJWiLpI64uMgI/B1XNo5E23THjWVFx0H1WfjufePZqKeux1v/wiOwyaHnHu/
OTLRGXJecPa6cbCwTliO8nuOjLZc3EZfHIPrt26u8fhkIC3ZGu3HdWOwMh9k
2a+Zjga5Lo28rRmD+LnDS/tI6Shg8k/Y97dj8Cv/NGO8Iw015Ol0CpaNAbON
kn7YKQ0Z7m60eZA7BvUCezv6056gc8qt90Pjxoj7ZGyL6tbH6KbW96+uNmMw
61oQHIhSkaDo7VsxVmNQpn1qT7JgKqr4LSxacGkMhhJXu5emUxDznbnd9Lkx
0IqLC/FNTkGBaJhme3yMuI8n3e9eTEaxR8ZFL6qPQYb2XzvNkiT06tSyvR4X
0f+sR5S2XQKiTftE3OAcgy81AWEyuglI9x5HYTrbGIhV3HMzkEhAAzV8K3TW
KKgoUxpVhuLRRgXl4ILFUeCT+RqWfTEeuXC6PN3aNwra/Zu9ai7FIeW3E72T
+aPAnPe7wyUQg/xMXVmCL0fB2MVZkTIQTZxfq9t1c0bhjNHuWJHsaGQtQ7ZP
yxiF4Lub5HI1o1FCgvTymeRRiLBSNBG2i0Ir16/wVgeMQtKns/2UTxGoUrL/
aLTxKNCSywxdB8JQgGs9p9+pUdANv7PpQn4YOlKTA9eOj4KJ1Up3um8Y6jTz
0DiuPwo/uhZYWtvD0Mz9jXI8B0bB4IEc9ZXdPSS2oMMVLjEKhVdNDYY5Q9GI
lkyj9/ZR+HzooPHhvhCUd39DgKPIKDhH7eOjvw5B+yR/rBoIjkIILeLOBYsQ
dMrMfZy8bhQUkmdTRyuDUWB11vuQxRGI1B1hZd4NQgbckYEecyNwV+7I/aWL
QWij2Y1DttMjgONWR8PVg9Cj+UPluqMj0CBAtkyaCUSlEr1Z7N9H4Hi25M8t
5oFoLGxdyN26EZiZjDhvER2ADE1dDvvGjIDLPeaey898kLFVgNuzyBHYpVaI
Jzn5IPNrD9Kb7o+Aohi/gpqqD7oeUsLcEDwCD295H8j6eAfFla2WpN0agbgb
3GS0cht9FwiQqrMagQPc+glfrb3Rrx0PzoxcGoGWtJyevSreaGp3RgCX+Qgo
1SoKzrJ5I5ZeY/8psxH41tO76dbzW0jckyvxp+EIJOTNlbdPeCGHnlhOdtUR
oNww2EwL8kRuv56pyOwdAVVqn9XAOU90e67YykhxBD5YSUsLKnqiSFJ3Tbws
oVdSfLX/dw9UqC7kKSU6AtubLQMkVT3QStKzMT3SCNzrWMxUprmjkLPFH8J6
KbDfdn1A6DU3lGPq+P1sNwXoG1p/GEm4oRZj8emdnRSQ660oefPNFW08Fb2x
qZUC1pa78311XVGKgZPpv3cUSJbX6U2TdkF5GhIU7yyizjEtKcZ5DbXt+041
yKDAz84QztIGZzSnFkvalk4Bq28jqf2BzkhF+Y9ceQoFgtJ3qfxkc0bV8j9c
lyIowG8sz5nCfRW1/xf3x+kGBRYYHBWg5IgWhI5u1nShwAt/HRPmqgPasm1t
B7czBWiGUXNltQ7oLP91vWxbCmQJATX3lAMa5jGMpJyjALX6U4LrLXu09Puf
kLk2Mf6BsCcpg7aIn1WhoKBFgc0zL5Qc822ROsPlIGM/BcaVOJbzfGzRnZWB
yynKFDA+UGbuJ2KLOOYrs7ukKfBtr7OgkZUN2jnrWvlcggJ+0h8SI1Rs0NFp
mdYb2ynw5/46bnWSDYoeT5zbLESB1Ff2x5peWaPXo8fWhgQoYOEmY5UTYI06
KexbCrdQCL8L4osm1oj6862k3yYKcMomyD6Ts0Zbh93UjvNQ4Nn//9//P+Eb
k6k=
            "]]},
          
          Annotation[#, 
           "Charting`Private`Tag$34939#1"]& ]}, {}, {}}, {{{}, {}, 
         TagBox[
          {RGBColor[
            NCache[
             Rational[91, 255], 0.3568627450980392], 
            NCache[
             Rational[94, 255], 0.3686274509803922], 
            NCache[
             Rational[166, 255], 0.6509803921568628]], Thickness[Large], 
           Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwt2Xk4VH/UAHDZknVm2oSKkiiRLGnhe0lUpMKvXZslKtkrSyLZZc++pGRL
2dfiWIrsa0KyVJgZ21wzgyTe+77PO8/883nuvTPnnu8553vnGalbtkYWnBzE
i/P/3hwyfaq3dbXnIS5iI496vg36V5YZ5aw1D/MJTg8Ps2xQT5x4bRo2D2mi
1S6NB+8jrytrtnKheZCSv20eXn0fDQ61dMGRebgZcalgvM8WhY+ZaR5SnYdD
u6ib2yj2yKq+966Vyjw0+EuNsNTtkWbGybgY5XlwGRZouHPdHk1ZKbLYSvPQ
1BGvp/vOHulOLWUVKMxDhNVMZouBA1qeC98oLzsPgxlt/ckJjqi7m/vYld3z
gPrv1qzWO6Lsood2gTLzQAkWiC6fc0QXHpg2U6XnIdyyI+mwvhMq+CPr9UZq
Hgy87/k943BGtzmqp7aJz8PtXKZhm/sD1CU0U0cWnofSFCxbtsYFXeD9eENR
aB42CE1kFP1zQYMrAf8MBOfBj2oj/umwK5qY3XXQn38e7uW+tLEvcUXLnabZ
K7zzYJrNeWtHkRuSiW4Nm1xlQyNt6M6XxsfobUjCvnWEdV6KP+MT8UD7/ayb
ZFbYMLlliueHiQc68oiH+9YyG5QLnUDvpwc6e1njYd8iG9Qx/SkpTk/ksu2d
6WecDWYn4t9NH/BCK5vcln4y2HBy7K3Gg8te6JnIyRgOwquWvtZGT71QCMdY
x5EZNsRso5P4ur3Qq58SOgV0NlRcBQ3XR09RS3rwnpRfbOhOVbXl7/FGkor3
Fh59ZcPDUC3ZF12+SGioM+pNDxuuCZmetuP0Q0vBBw90dbPhs1fL7YwDfqiH
zmmzt4sNRdFarL1Rfsg/Pe7njzY2OA7u/JVyxR/Nbm1o1f7CBmcpqZ6a5QBU
JbgjTfADG6j2/jwvgp+jtx/8tA5VsKHUNfLogcbnKPbO9JBFORt4HfRmMN4Q
5PClbAuUsqFwe0thsVcIknl2JtS+iA3F1kkpZI9QFPLX3bX3HRvKuC0ikuvD
kCn929mXL9nwyeEfxwOeSNQkVrO+M4UNNrtJMYN7IpGafnbvGsJn7tty+J6N
RMI57lfNkthQTcvDXyVGomobKSuZeDZYRN2YIqlHoR34nSc5kUS+NvYsiLu/
QOML/96V+bKhcsloluNoLDKSnbCj+bDhT3sHM+ZOLKq62KEsRvjRjvjlJ3Gx
KKb8VbmbNxuq9E6uPb4Yi0646X3W9GRDp31tTF55HMpeCRv85MKG2UzdM+4G
CciWR1qg8x4bhEqqTrkVJ6PA01YajLts0N71e3oDKxmlvcixFSH8TPDyHSnl
FDSwS7XntDUb3uWXfnlRkIJ0dXWTmizYILZmdrvnlZdIws9K8dM1Nkjw1W/B
7qaiRr53xqVn2bD51s3UqorX6PdZ3Kf3DBvqwt+dmRt9jVZiVcvYhmyI5/fM
u7suDanIVUmonCbMy3dA6VIaenmyfSzvJBtUSBx0ynIaehCIP8zWZoP3qWaH
sDPpaKegWmKSChusD3YI+u/PQun8lPZmZaKec3Mv8lzLQrLrZtYsHWBDplJd
XnNQFlLgTb99XokN5+MRRZWahdQ5NimLKBD9IeET4JOWjQxY7EbP3WyI2LLM
/2BvDnIaLF4wE2PD49fble2cc9H8QPieiC1seLK04XVvTi5y6bcxrRZlQy1T
TTfydy7y6N1VJ7GZDYn0Hw7+e/KQf8eLkK/r2VDQeWZ2Q1IeSvrkvEtPiA29
H0UvJwTmo/ocVeM9HES8NodSF/0L0ULtPbbuKgvyEiUUzr4rRLL9r2PMVlhg
UTAm8KuzEAXyUAYTl1lwIvTF4gfxImR4bcZc5A8LagN0rhwrKELfRDIesHAW
vDqyenmWXoyoDqLxVb9YwAh61sr1vAxtCThz9PtPFmjfcRC2KC9Dp1J8hxZG
WdDk8GOr4HgZymlm7VAaYcE+T+Dfh5Uje+nOt68HWaAobT5Ut1COlr4GVPp/
ZcE1Ow3zKKcPSODQ3xGjBhaUGM9t0cuoQh87ijMd61ngtIsD2zxYhe5Z2dlF
fWbBo9ZXg6pkQC0xY6tf61hwRl2Rft0dUMh8+7ZL1Sy4t4v6QX1vNaIUpV29
Xk7Ef22d2IxgDRJVNOy7+5YF6WO38lUZtehLPd/L4GwWHEt+XzAiUodcrtXd
fpfFgsR+y8kyxTo08Fx9YSaDBaMuBk24bR1KmNqxySGNBSp3zpUEztWhbdkL
xo+SWGBpfcXch+Mz2rUrtf1ZKAvcP7vacWs1IE1HZkxRCAtmdfyfKJg3oPM1
x2/8fs4CK+FSFx+/BuRrSmccC2ZBr67H94q2BjT+QpnCFcACGEsSPHH9C8rk
rTfxesqCOz5m4pSARrSHSu9/7MyCDzk1gzEcLUhbTePVOycW/NVd/Foo14Iu
Pwu988ORBZ+FS9U5jVtQoKTK36MOLIj9c25GLb0FTV58LLF8nwVrB07y8Jxp
RTmNItddrVjAtq6/dSW7DSm8Vfn94AoLpk4lP4351IHYpJ/iLy6zwGVVdtx9
qAN9fBBqXHiJBfZSTnreix3opDa9dvYCC16mVj5iynci8/6UVCsTFujoiLea
x3SiuLUC1y+fZsHZMX2ONw5diNt8tF8DseDu6hbZO8d6UFNjCPmqJgvElZ6b
Zt7sQeGKR0+6ahD37zSBCXj2oG1/o8tKjrCg/LizH6rsQYciDGIU1VnwfUug
ocWhr+h+damJlBILwsPnw0C9F/VLhLRz72TBendXL3eTPsR3qHvtgR0sENEZ
+6Ps3IfU/hPFrkux4NuX8Djh6D4U8fxVXvl2FlBrGnP29fUhg5WS8PsSLHif
OFe48Vo/qh4eNu7bSMQ/blKaajeA0l8p9b3lY0F96pKtfv4gcpT9OmI0wwQx
82w+WtcIkqxP0nw2zYROkcLZ2IkR1GZmmVg8xQS5RR6rq8sjaE/KwgXRSSYg
fzHlbTKjaGSjWPuPCSbkkgRRiOsoMuS6Xmk1ygRPVTV72d0/0Z4hapxHDxMe
Rmab+4T+Qj8jl42yK5hwxkgqFpLHkeZJScmmciZ46OhwtVaMo/iVY9O0MiZs
fFM9zewdR8bWQX5ypUxQTNhjFiIygT5pin3MLGQC7cK/D/NeEyiddnBXRg4T
drZ1aiXepaI7yHHhdTITvC92Me8b0RGTTktIesqEukqLKF/bGVR6/o11ixcT
9Iryl3tDZ5Bb7Y2Dfz2ZELZW46tm3gziiv/WdfEJE0zKrg+Z4DNo/cnP6za4
M8GsiOoR7zSLlDNePgx0Ju7/6pWQesRAjmYXjB9aMWEmS3w5wBhHzO+f+M8Z
MoHy38iRI8lM9KLM4uzLjUwYNGwxTD/wBwmyx+cXf8yB9rcbhnbWq8ih+b86
cvYckPj/mQkMcmKuzwMt6+3n4KuJ+GiYHS9mT8tRPKIxB/s+VdS3N67D+JVe
tOtzz8GwgcR1j6NCWKZx7MF7XHOQYnBU5dZJIUz3QUJKMOccdJTq96PzQpjX
h1TbVo452CmTc41qK4QtHn8vcuYfDo63eCamXglh45cbzhjN4xCV0OlStlYY
q3n2p/0iFYfqzRejVpqFsUd9ph0WLTjIVElqaGwjYR75i+ovmnEYurI76OJO
EuYdGJn6qQmHbKPceltZEhZytNFhZyMOtwe/zIUfIGFpL1U2jn7GQePS7Zg0
XRLWbiVw+SrgEFEgOLRiQ8Jk/pT9MirAYbCk6KZlOQmT7zI2eJqPQ1+mv9x8
JQlTejtTlJ+Hw/kOxgmvWhJ21FTal5SLg6F/mntAMwkzqgmVbXuLg0+l25Gb
P4j4AixtTr7BYXk8SXsPBxn7umXDAorFQVTuZQa3Nhnz5+dvN43B4Umj+7C+
Lhk7+nc13S0aB7hhvRJ8ioylDU6eL43CodLv2o9lIzLmlFJXohCOw088MirC
jIxt2OX4YGsgDptv26aFe5OxLxutDY8E4MB/zZrD2Y+MufNel7nkjwOfqfj8
uSAy9nviVG+ULw6SWRqJixFkrCh7h5qgNw60mm0mi6lkzGR/F3vJDYffqdUh
lVVkjE/qS6so4b/lHvfUa8nYR3LVGzVXHHxr/ZNyPpMxaWbWfw6PcNgbOkb1
bCFjrGKvYpoTDt15ewr6+slY1BEl5z4bHKwuHY7UYpKxHt0wVvF1HFzz9E4P
SVIwxvTW1p/XcJAXcR47s5OCCb54+0aEMK+M2/EPuyjYsV/1562v4nClp9Ho
yR4KVvDkX5nEJRxuqv268lGZgoWV3XnsbYRDwuNePr7jFCzn+uJ/eedwqFUM
WtigR8G+8Poq/DiLQ9tdup/4SQq2apI6rHYGB08yl8/G0xTsPv5Ni66PQ5bs
8+KPJhRMf89x3nPHcbDXjt3Xe4uCWXZ2DT3WwUGC01XL3ZyCPX10ozT7GA49
I4+/iVtSsIp6NytubRxc5Bef6llTMFmzgqZSTRyMXEMyz9pSMB1+7PVvDRwC
smWTa+0o2I38VjcyYZ2VPD4FBwoWs0qVv3sEB71pZzXciYLxJm4P3aaOQ9DW
ymZZVwq249i72/oHifWe9UaWbhRMk34Ye6SGw7rAWokkdwrmrH4e71TBIemS
vfCCBwX73RNs7KOEQ0dV5tsr3hSMw11MvmA/cX8TIifMn1EwiZ2Z3MOKOFhr
HdGx9KFgxvZ1xeoKxP0GBF0470fBaoWWNk/twWEh/mrreCAFM1UT2LSV8FKu
okpJEAVbvCaxwVAOh5I6adUnwRRMIU+TlLcbB67b6pwrzylYY98Z4VEZHNgn
GlsKQyiY+ZqbghTC5M4bCmahFCzeyJvPSZroF8/OwvdhFEzVLYr3zU4cRLYa
9Z4Kp2Adr99w9+7AIfS07PMRwrzsBg51KRyuh9sUL0ZQsNSt/StWkjj03yrf
5RZJwY7q0pfjtuNgrrtBdoGwY4zgn79bccBll0a+R1Ew4eqtC/KE1QxjonVe
ULBsqgLbVAKHt923B9MJHydjzBBxHJK9eQo4oynYyCGieMRw0O8nbb5I2O3W
rVnGFmI+rFESyCC8KchxWoqw5/f1IbOE8wufTRqJ4jCxaJOiFEPBDAZf0Lw3
4zCavKRpQ3iCO2OiaBOx3vVu914RfrqvbGxsIw6CEhW7OwlvPd/4axPh6jU+
dn8Il3kMjOptwKHueYGueCyxPhmTw4/WE/EFbc9WIzzTvvwji4LDUffceH3C
AYtCgwNkHMSjDUQvE5aW2j4gQNjp88SOW4Th5P6+oyQcjHMeVZgRvuyg1Wsj
gkP6q39D1wiz4416koVx0C5xCzMmHFZn1tUuhMO37JU2LcJ7p5w6OAj/+BMb
L0e4foNvm5IgMa+7zJj8hG9qxLTcEsDh4JYn/WNE/MsWmU2R/DgIWJFPVxCO
CSn/8mkdDu1CJwz9CR8obapn8+GwTfjCjzOEW4e/f5IhPCHpskQibMU3XXth
LQ5CBbNvmon8cimtVPvzEvU4wjnyhHDyJREo58GB5Lkmax/hnmylD+LcRL/1
bKU5E+tp261dbsCFg1nm0g0SYf5l49LHnDhIy2lZpxH1gJ1+UDjMgcMpzm75
cqJevjv75ZMIuy9SaIcIP0iOzdVaZcCFr28OFhH1ljNb8fb1PwYcmp1//oKo
Rz3RlqyeZQa4KgxHLxP1+xP7kcFDuPv8fRVTwqIRq69vLzGgIGfbfgGi3n1U
dBL3LjBAqsNfQ4zolzanvHX68wyQn8WuHyX6SbRY4uEdNgP2GuJ/zhP9lqPK
PpfFZIC9/ZtkZ38K1qWWvnY3gwFeu3XrL/5v/z6kOOvOMuDcrzsdmkR/W5R6
/LSYYUBR1SnTrU+J/jx4oTJtijh+o4n70xMKtu0Qn+MOGgNUhrILS4l5YuXi
NKJFZQDd9tTyTReifstHTt+cYMDu+Hfd3I+IeXW4XPblGAOCL9xXVXGmYHeP
3Bna+pMBU3gi+xAxz8o0Wk5u+c4ALS2S4K+bFIzTQ71UfYABzNa/4ptvEPOz
Kk36Yj8Dvos69h+7RsGGNB+vRn9jwH7GpIXfZQrGjSkUb+hhwOZOxFNqRMHO
aYdJkloZMNKU4lahRcyHp8vPFVsYkGdj4OWKiHlWa/XXsJkBLjcEriprULBH
x7R6nzcS+XrdkhCqTtSDzlyQQD0D/DMDIucUKBhd12SBFxiwoJy2aC5GwRI0
LlqoVjGgxUCWMbqZ6E+Vq91mlQxYyTjVfXEjBcuVMs+t/sAAfXHh2yokCua0
7HjbtYwBGpQbpNc8xH6RH/ltOp/Ix2+7wRuzxH67tbu0J434fJE5KUdif/y8
/tsuLsLrR2V2KX8gYw/4v0cqvWaANvOi03QpGetf+GkbksoAv1sa3OfyyVhy
19zuE8kMWPt47mTPazIm50+J/RDDAG+5mcdtxH6tyTz36FUgAwY+T29/q0+c
vyb/PwhgQCf3v9+WemRsRYSkPOjPgMOO2FOJY2SsSr5teqMfkc+qgUvOh8mY
huUpswBvBkj3rhEekiWeJ/q1De3cGWDkUrEzjJuMHQJlac37DHj/eodgUikJ
Uwna2NF/johHtZWdIETC1osvdi2dZQDP33jSBj4SNpc98FWccFh3faofJwnL
b0r5bmrIAHb1R4/aGRFMgX/PxOgpBvQmJuyoqhHBdgdortCOEeu/CXVusBTB
xPxuyy+pMsAuJOVpdKYwtvq03F9MjAGSHV9C8zYLYXZy0W1qLbMQ7Turr4yv
w3ZLHz9kd2UWEpJf0ssu8WIfjNpn5eZmYCEyQ+0qBxf2BxOzmg+cgXNm/lZ1
JavInRd/viQ2Awnyp+LX2f5Bg6uvVj0KpiFUs0M79AgLbVvYzijPm4YKvbzU
IBkWujmTOMJ6Pw15N/Z6vCCz0PhgdM2dt9OQ8kWjsnOCiRjlgd7n06Zh+6BT
zlQUE/E4OaxViJ4GnVchXe/xOaRA1RL54TINw4Y0I6diHHl2jGw7ojUNP059
swtpmUERKs9JUWgaeA6VJhS/nUFpsYc4pzWmwTZjoYoVOIO+3IgYSz48Dd4X
2scrTs4gEn4sh1NlGli9Wzwtv0yjl+SMQ00y0+BJlX6v3jSFaoxsTC4JTsPQ
/Sp2wTAdcX79E/Dw2xR4hr3bsu7cBFp/9F1939cpsJM0UotVm0DSr29wHe6Z
Arde32MaEhPouH2D+3LHFBjEyG5snBhH/kIvbL2aiOt7c/vGn4wjId39/wVV
TsG+HI5mlaIxJFpqKZnyegq4PLlrx+V/I7ltYqYcr6YgsdheQGbjb3TYpzXu
5sspMFJ5cN713y90xVhlvXTSFOwemWu/2fYLJc+u4c2KnoIM0rD5XvtfaKds
0mRBwBT0yD8LT634iRTiukvqbadAtt4j+PvVUZSoqNHFfX8K+Jg0u+Hjo4i/
Pn1a+94UfCiWLF9SGEVjcy7SYDUFHBJFxx6uIc43kIwovUl8f9H2cd+MEcTP
YWOTaTwFipckq+izw2jcklc68OAU8KeY1lgb/0Am/2zRF9UpSD6wTmrL3h+o
NrL/Mq/KFHBL8QmwOH+gpOqc8Kf7p6CxwJosXziITMSMV13lpuBXqOpU6sZB
VNuaMnBXfApOvcVag38OoGSVQ+GnVychdSVGKjGhD30/2PUu698kvHxY/3PQ
tQ+JHrnbxLM8CXjrih92uQ9FaiVxVS1OQrKbrZTdlj7kb7jmgcLcJHTFK3Pd
j/uGHKwaL4uMTcL7/Q/WdqT0ouOJl6Q7myaBRSs+6/+5Bz1NmcP2NU5CoPE+
8cXMHlT9Ksg0oGES9qWL9/kF96DDWZXRWp8mid+/lk28Jj1IoURqXUHlJOQ7
liw8+d2NRDto0xF5k2Db/Dv7lEA3muJyLTWJngTnv+27Emw7ka9aY8HzqEko
nRZ3aDLpRJLWou/rIyaJ53+9T+KHO9F/bSVp6qGTsJTze400TyeqimWGS/hP
grx4WmxDYgcK22dz77fLJDBjHKa90tqR6oUbUk6mk7CcaXbtQnYL6gjIlXh3
hcjPzeXYOvcWdOfjyubxS5NQ86H//r0zLShZKkn44vlJ2H19M6cjuxnxTfX/
PXJmEuJcH986rdOMBjyNe7m0JqHse8Bu7ulG5JGtGxQpPQlHXT90j1s1oM0j
iZ09OyaBe8ZCX+5YA8rbyNy8SWoSqofdjqdsbUA/PVPSYrdOAjvHclq6ux7p
XlisTNo0CZvGmk6EY/VIiDubkcE3CePp/TerpT+jRFOh8x+n6KBa/HlSmFyH
VCPNEv/R6cDYl0syxWtR25fyn5o0OmxJm9bv66xFHCqWtjVjdBBRn9H8L7IW
mfODf/0QHd77DOWaidaivaV2Hzo66HC23/tXxp4aVEHqkRwrokOhq9X7P4NV
aEfhJSudQjrMU45OZL2tQkH/Dee+zqdDTQWXSrJrFboaT9e89Z4O5xTjh89t
qUL/dq4xHc6gE/trlPmPS5UIO6gQ1x9Ph676tXM6Ex9Qg6k/uc2TDimn0/2u
KZWj/RzCl/Y9ocMdEf1Ibr5yFPsq8mXwYyL+POeasaEyZDWRrKjvSodyN2Wn
i8/LEL998ekvjnTg/qNRvzBVigyf/QyotaQDOX3n5V8lJagn+yhnqQEd8obd
E185FqF490eyzFN04LSW5NYzLELXDYsMFU/SQSy10WS3XBGi43sTMo7TIXhd
tHP8cCHiOCSuEqtJh9shjju1zxQi+YY/Fi776fAg+kmQ8aEC5P2rpPHIBjqM
eKWM26rloRPFc7MPKUQ+BjY3/duch4T9FDYVkejAJyHn5c7MRbF70m/JC9Fh
L80n8a1bLnpv/+KvBC8dGmTjXuWGvUcDq477VhZo8MCGvuZbSw46IKEUXv2d
BpL/9QtyBGahhsuJZWIDNJD6FCm1ciULXY1bO+LURwPn4RBeXYUs5LtpSEHu
Kw20TRLz8rsz0QApqCW8jQbp39PSp6UykRfP2FqzGhqcs6hzeNWcjjpmYj14
MmgQbBrbbXkuDVns406//oYGG2usT/7em4aW7tq2lr+mwT7WzJcU3jQkTTsu
cf8lDeKCmD7tH1+jh7/mynvjaBAlM+fAJ/8abeszYGcE06A474bci42vkE0N
x71TDjQw7r/V/JXyEnFwOQ7l2NFg56f/UtfTU1CUzthZEVsaZEcqKgy/T0Ef
GxpVe+7SIMX3dFjyoRTE3xaxampBg9JYxu/3xskofUA60v4iDUbyg68kxCWi
EeaJilhNGmRUmuQwrOKQk+oH+b9HafCULppRpR6H1j7cl2J6hAbyXR9vDvPF
IYUl8rMd6jQ4WcO1e3N2LHrM8f10jhINWEP/nhkxYpCYkM0oSNNAIjCSHBoU
jYxlwvkm+Gmw7vSH2/ifSKQTU35JZh0NqGGihfT2SKTC9zPbYi0NZL3Dbquk
R6JN9AOnf3PR4NuvypkS40jU964nfHSZCiFRAd3WBRHomqqo+OAMFToGdbQ3
eIQjw3Tsnvg0FW78Dj7YezEcoc3WlZcnqTAbfNF5RDkcSf4pv94/QYUKow3f
m+lh6NfHK2m9I1RYkB+hMa6EISudlH2dXVTgpfAabIoOQReLGzxInVQwiZr/
p2QSgk7KMNrPtFOhO3OjWTslBO3h03Joa6ZCZ/1oZVD4czTd/LOk+RMVgnyF
0VxUMHIwlsHqS6ggt7uZWlIQiB7femf0IZ4KX9/rNZvp+CFNjOeNaBwV+HPO
HX26wQ+tbDVdcI6hQoLzns1/f/sij37BxP1RVJCXL8v840v47L2xN8+p0C5B
qt7S7oM8NPc+CvOkQvGCZ6a57TOkKeHdNO1BhcXQGt7fOs/Qyp8BCf3HVIgY
/Z5VJPYMeRQH1vC4EsffkSL0GrzRE3k6v5sjFZCQ/LC0tDfyFMtKsrCkwt0i
nzS9KS+ELXIwas2pUJW8UJZQ74U4ei9qS5pRIXxvU4V6qhfyJJZz4DoV0m/Y
BOlf8EJefFb7z16iguVDmZz6ek/0dF6m7rABFXYM/r1wxuIJetaVRhU5QAVf
0fJacHZDwp8h4Oh+KnBfO2DGoeKGYksH9lgrUCGnCvfpmnNFOYkkm9o9VDh+
ldQg4+CKvlq64047qTB3beib7UMXJPPXeKl/AxW2mymHhSY8RHnT9xN411OB
FpkhaH7rITo8EnBUmUwF8oO0qjK5h8jwM3gEC1GBlJ+VP1T+AD0M3cuFeIl8
rHJXcYw4oy87uQTTFiYg1NgsvFbbCRlt2vaugz0BTv7feaXJTmiQ75DhP+YE
+JrZq88POyLG9P2w84wJ4OwL2EfzcERbygY2rKNNwKmvSacYNQ7ojkHB1vsD
E2C5YDoPV+wRS7O1Kr5vArSaujzr9tsjDyXq9YbeCdghZroox2uPIjZteyXZ
PQEGEl72EgV2qGIkQKa7eQLCtF2UvYTtkE53WsNq4wQcXfjsK9Bqi9o+g5X8
lwkwVNXpb31si35ms7N9Pk3AylnhpYej99G9JJJBQe0EiNXfrrkadR/Nh+6d
Hqomrtf1eMfSu488n+qGCMAE+HhPamku2yAB55uK6pUTYPP///f/D2bT3h0=

            "]]},
          Annotation[#, "Charting`Private`Tag$42359#1"]& ]}, {}, {}}},
      AspectRatio->1,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{-1.6674934614422874`, 0.002073621665403438},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{None, None}, {None, None}},
      FrameStyle->10,
      FrameTicks->{{{}, {}}, {Automatic, {}}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageMargins->0,
      ImagePadding->{{25, 8}, {25, 8}},
      ImageSize->{213, 213},
      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.6674934614422876`, -0.5325065385577126}, {
       0.0020736216654034375`, 4.648817933669381}},
      PlotRangeClipping->True,
      PlotRangePadding->{{None, None}, {None, None}},
      Ticks->{Automatic, Automatic}], ""},
    {
     GraphicsBox[{{
        {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
          NCache[
           Rational[10, 17], 0.5882352941176471], 
          NCache[
           Rational[164, 765], 0.21437908496732025`], 
          NCache[
           Rational[122, 765], 0.15947712418300652`]]], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.1515172903961339, 0.}, {-0.4090966840695614, 
            0.1981345671107559}}, {0.3, -0.1}}],
          
          Ellipsoid[{0.3, -0.1}, {{
           0.022957489288986367`, -0.06198522108026318}, \
{-0.06198522108026318, 0.20661740360087716`}}]]}, 
        {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
          NCache[
           Rational[10, 17], 0.5882352941176471], 
          NCache[
           Rational[164, 765], 0.21437908496732025`], 
          NCache[
           Rational[122, 765], 0.15947712418300652`]]], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.2485975524063778, 0.}, {-0.67121339149722, 
            0.3250834825652867}}, {0.3, -0.1}}],
          
          Ellipsoid[{0.3, -0.1}, {{
           0.06180074306244176, -0.1668620062685927}, {-0.1668620062685927, 
           0.5562066875619754}}]]}, 
        {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
          NCache[
           Rational[10, 17], 0.5882352941176471], 
          NCache[
           Rational[164, 765], 0.21437908496732025`], 
          NCache[
           Rational[122, 765], 0.15947712418300652`]]], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.34393543117714404`, 
            0.}, {-0.9286256641782887, 0.44975393628127724`}}, {0.3, -0.1}}],
          
          Ellipsoid[{0.3, -0.1}, {{
           0.118291580819008, -0.3193872682113215}, {-0.3193872682113215, 
           1.064624227371071}}]]}}, {
        {GrayLevel[0], Opacity[0], EdgeForm[{RGBColor[
          NCache[
           Rational[91, 255], 0.3568627450980392], 
          NCache[
           Rational[94, 255], 0.3686274509803922], 
          NCache[
           Rational[166, 255], 0.6509803921568628]], Thickness[Large], 
         Dashing[{Small, Small}]}], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.04598374424205328, 
            0.}, {-0.03688934631477786, 0.1635912716812994}}, {
            0.3272119779527644, -0.18033128151051914`}}],
          
          Ellipsoid[{0.3272119779527644, -0.18033128151051914`}, {{
           0.002114504734518568, -0.0016963102661952756`}, \
{-0.0016963102661952756`, 0.028122928041836318`}}]]}, 
        {GrayLevel[0], Opacity[0], EdgeForm[{RGBColor[
          NCache[
           Rational[91, 255], 0.3568627450980392], 
          NCache[
           Rational[94, 255], 0.3686274509803922], 
          NCache[
           Rational[166, 255], 0.6509803921568628]], Thickness[Large], 
         Dashing[{Small, Small}]}], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.07544648032688814, 
            0.}, {-0.060525113534890713`, 0.2684075832447404}}, {
            0.3272119779527644, -0.18033128151051914`}}],
          
          Ellipsoid[{0.3272119779527644, -0.18033128151051914`}, {{
           0.00569217139371552, -0.004566406787592803}, \
{-0.004566406787592803, 0.07570592011169365}}]]}, 
        {GrayLevel[0], Opacity[0], EdgeForm[{RGBColor[
          NCache[
           Rational[91, 255], 0.3568627450980392], 
          NCache[
           Rational[94, 255], 0.3686274509803922], 
          NCache[
           Rational[166, 255], 0.6509803921568628]], Thickness[Large], 
         Dashing[{Small, Small}]}], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.10438042326180388`, 
            0.}, {-0.08373666924378849, 0.37134266601140764`}}, {
            0.3272119779527644, -0.18033128151051914`}}],
          
          Ellipsoid[{0.3272119779527644, -0.18033128151051914`}, {{
           0.01089527276031333, -0.008740468978200317}, \
{-0.008740468978200317, 0.1449072053765035}}]]}}},
      AspectRatio->1,
      Axes->False,
      Frame->True,
      FrameLabel->{{
         FormBox[
          InterpretationBox[
           Cell[
            BoxData[
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(w\\), \\(a\\)]\\)\"", FontSize -> 
               16, StripOnInput -> False], TextForm]], "InlineText"], 
           Text[
            Style["\!\(\*SubscriptBox[\(w\), \(a\)]\)", FontSize -> 16]]], 
          TraditionalForm], None}, {
         FormBox[
          InterpretationBox[
           Cell[
            BoxData[
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(\[CapitalOmega]\\), \\(m\\)]\\)\"", 
               FontSize -> 16, StripOnInput -> False], TextForm]], 
            "InlineText"], 
           Text[
            Style[
            "\!\(\*SubscriptBox[\(\[CapitalOmega]\), \(m\)]\)", FontSize -> 
             16]]], TraditionalForm], None}},
      FrameStyle->10,
      ImageMargins->0,
      ImagePadding->{{62, 8}, {50, 8}},
      ImageSize->{250, 238},
      PlotRange->{{-0.07832897429485854, 
       0.6783289742948586}, {-1.2349869228845753`, 1.0349869228845752`}},
      PlotRangePadding->None,
      RotateLabel->True], 
     GraphicsBox[{{
        {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
          NCache[
           Rational[10, 17], 0.5882352941176471], 
          NCache[
           Rational[164, 765], 0.21437908496732025`], 
          NCache[
           Rational[122, 765], 0.15947712418300652`]]], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.22727593559420073`, 
            0.}, {-0.3636414969507212, 0.27273112271304095`}}, {-1.1, -0.1}}],
          
          
          Ellipsoid[{-1.1, -0.1}, {{
           0.051654350900219276`, -0.08264696144035084}, \
{-0.08264696144035084, 0.20661740360087716`}}]]}, 
        {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
          NCache[
           Rational[10, 17], 0.5882352941176471], 
          NCache[
           Rational[164, 765], 0.21437908496732025`], 
          NCache[
           Rational[122, 765], 0.15947712418300652`]]], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.3728963286095665, 0.}, {-0.5966341257753065, 
            0.44747559433147993`}}, {-1.1, -0.1}}],
          
          Ellipsoid[{-1.1, -0.1}, {{
           0.1390516718904938, -0.2224826750247901}, {-0.2224826750247901, 
           0.5562066875619754}}]]}, 
        {GrayLevel[0], Opacity[0], EdgeForm[RGBColor[
          NCache[
           Rational[10, 17], 0.5882352941176471], 
          NCache[
           Rational[164, 765], 0.21437908496732025`], 
          NCache[
           Rational[122, 765], 0.15947712418300652`]]], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.5159031467657158, 0.}, {-0.8254450348251453, 
            0.6190837761188591}}, {-1.1, -0.1}}],
          
          Ellipsoid[{-1.1, -0.1}, {{
           0.2661560568427677, -0.42584969094842834`}, {-0.42584969094842834`,
            1.064624227371071}}]]}}, {
        {GrayLevel[0], Opacity[0], EdgeForm[{RGBColor[
          NCache[
           Rational[91, 255], 0.3568627450980392], 
          NCache[
           Rational[94, 255], 0.3686274509803922], 
          NCache[
           Rational[166, 255], 0.6509803921568628]], Thickness[Large], 
         Dashing[{Small, Small}]}], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.13002583444501817`, 
            0.}, {-0.04914427651753174, 
            0.16033642171198875`}}, {-1.0665142515686816`, \
-0.18033128151051914`}}],
          
          Ellipsoid[{-1.0665142515686816`, -0.18033128151051914`}, {{
           0.016906717623123273`, -0.006390025562388777}, \
{-0.006390025562388777, 0.028122928041836318`}}]]}, 
        {GrayLevel[0], Opacity[0], EdgeForm[{RGBColor[
          NCache[
           Rational[91, 255], 0.3568627450980392], 
          NCache[
           Rational[94, 255], 0.3686274509803922], 
          NCache[
           Rational[166, 255], 0.6509803921568628]], Thickness[Large], 
         Dashing[{Small, Small}]}], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.2133360760882059, 0.}, {-0.08063203100517137,
             0.2630672835752761}}, {-1.0665142515686816`, \
-0.18033128151051914`}}],
          
          Ellipsoid[{-1.0665142515686816`, -0.18033128151051914`}, {{
           0.04551228136071278, -0.017201721101665814`}, \
{-0.017201721101665814`, 0.07570592011169365}}]]}, 
        {GrayLevel[0], Opacity[0], EdgeForm[{RGBColor[
          NCache[
           Rational[91, 255], 0.3568627450980392], 
          NCache[
           Rational[94, 255], 0.3686274509803922], 
          NCache[
           Rational[166, 255], 0.6509803921568628]], Thickness[Large], 
         Dashing[{Small, Small}]}], 
         InterpretationBox[
          GeometricTransformationBox[
           DiskBox[{0, 0}], {{{0.29515107693053333`, 
            0.}, {-0.1115546475900902, 
            0.3639543460072352}}, {-1.0665142515686816`, \
-0.18033128151051914`}}],
          
          Ellipsoid[{-1.0665142515686816`, -0.18033128151051914`}, {{
           0.0871141582132536, -0.03292547437282125}, {-0.03292547437282125, 
           0.1449072053765035}}]]}}},
      AspectRatio->1,
      Axes->False,
      Frame->True,
      FrameLabel->{{None, None}, {
         FormBox[
          InterpretationBox[
           Cell[
            BoxData[
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(w\\), \\(0\\)]\\)\"", FontSize -> 
               16, StripOnInput -> False], TextForm]], "InlineText"], 
           Text[
            Style["\!\(\*SubscriptBox[\(w\), \(0\)]\)", FontSize -> 16]]], 
          TraditionalForm], None}},
      FrameStyle->10,
      ImageMargins->0,
      ImagePadding->{{25, 8}, {50, 8}},
      ImageSize->{213, 238},
      PlotRange->{{-1.6674934614422876`, -0.5325065385577126}, \
{-1.2349869228845753`, 1.0349869228845752`}},
      PlotRangePadding->None,
      RotateLabel->True], 
     GraphicsBox[{{{{}, {}, 
         TagBox[
          {RGBColor[
            NCache[
             Rational[10, 17], 0.5882352941176471], 
            NCache[
             Rational[164, 765], 0.21437908496732025`], 
            NCache[
             Rational[122, 765], 0.15947712418300652`]], AbsoluteThickness[
           1.6], Opacity[1.], LineBox[CompressedData["
1:eJw12Xc4ll/4AHCJSgOFlFQko6xsUu4QbdmKZAtlZSQre5PMMrKz957HHi+Z
kVH2Hq/XOxDf9Ht/v+v6Pdfzz+c6fzznPOc+930/18NuaK1qQklBvij/76ao
wb744tlMQJlUsdyl/ykD77Hx6ExEQD/y5J/ScKhAArtWxPc6ApLbDZopfKAC
7uoqwecrCYiboa8AF6sCsjUKbsW5BLTC+fuwqqQqdPoKGMxEEdCUOqnpcqAa
SCXl6h6NIKCnfdNUHWVqkFPFo83/kYDcbtv2dU6rQcjaFbX3gQS04+uWNSml
Dk9VmBVOuxPQQmankSlOHUZYKa7JviIgrFuln6e1JtwTd+N8ZUxAELg+w5Gi
CVVP99hDDQjohRDrX94hTYjzIrKM6RDQ7cufLWwktUB3efmkrTIBebLq8kwd
fQbzpQO4ZCkCWl07aktR+xwID9OqKE4SkEdoofrOO12YZPrwZOUYAVE7UHyW
qdeFzmnt2QFqAprAOCiyHn4JXx3PnEz7h0dN8y+8k8JfwsNUTz0FAh6JPcPI
LpboQeofvSNB43hUviDR2XjcAEJbpePf/sQj6cuGbHrCBuD0kfmGzg88umir
rK+qbQBKnH3P+XrxSLPyOc/NXAPYU5bJ723Co5x3DifYVQxBNYtVnSEbj7DC
booz+UZw2253eT8Dj2ocuDQvThgBj8wPt/lUPArZkKOvPmYMB0PBmeUJeJTn
taFzxsQYcv7t7WmF49Hrr1vO+ldM4JDWWErCOzya1lKkoS8yhSLqmE1ORTya
Uw6i4LpoAZMfE7bl5PEonE58cUnNAk6wpP3Vu4NHPsevUDEEW4CpQNGJuJt4
JB5kUZu5ZwEXtTDctIJ4JNcqyTg1+RqCsg70tpnx6Iu6D+KpswTjR6/621e2
kOVClH79kg1EDFv+nFvcQl0d078sjtsC0rOfpJjfQiQRSYXn/LbAYu+5fnNy
C30Qdgncs7OFgYT4Y4WDW+hWh/x3baq3IIPtuxNbu4X0PfkSCEJ2wPxJsvhV
6Ba6+EKSsbjFAXDDnBKRQVvIjuBq6Yp1gE4WhvoGf7LdLt2OOu8ITukbnUxe
W8hirp4t18YRRitTp1sct5ATjeNd7yvv4PPkSXo2/S10JilF50G0E7DwzViN
Cm8h+8+WDUU1LoC36SUevrGFGL+otf3bdAFMea2zIP8W+pfm8SGX0xWcIcbP
j3sL0eIW7lyIcIVx1UdfRVm3EHWyoM9razeIf1/+PZx6Cx1hepP35NYHYO0I
5HswikN/VUz+fv7kCVb1ww8lhnHIm73mmXm5JzSWsptzDuKQ9t8KM5cxTzBO
rs441INDfDuU902veEH++5VLNQiHkrWPBRlWeoEM34PTvJk4NHZk7UAV6w36
n45tn3T8Xz96finSD0r81Rn33+KQQ7Pngz/ID6jck4VXrHHIVVbzD8eGH2RZ
SFq3mePQv+Dnbhb3/WFL3mzZTReH6tZMXLsoA8Bru2McexeH6OYOP7/lHwjp
Ov6onwGHbPlYtV0GQ0Dq9MFTAj0OWXFgjgYcCYXedvtpJlocona0e7h8MxR2
hAwP6RzDobSqTPWM9FCIonf2w/zZRLKiwv8uuobBjPlCKKF7E53iTkmsvBgO
zqx1CQo2m6giSqjD4t8nSPfPrg+y2ES4xzIprJcj4Ds+ZrLPeBOJHjnZ808m
Ati6bNm0n2+irlx6Rp0PEdDhwJ1uJbeJNBkxLm8oI4GxLyI3lnETiY0O/hY5
EwX5nuY1K1VYZLrC3nddOwYwTxlPlpVgUbTIOZpG7xhYvoh03fOwaMCmi/1L
fgxcrWE8xJCMRfL3y3TOUcZCHB7du+WPRdSysKdeEAsBRmeHwzSwiLXAR+Ic
4xcwVmjZFMFvoL8C7kaGzAngxWAle7C2gWKC1uiuP0yA5JlzkZ0LG6gWS4qX
dUuACTcrcd2xDSRW+XnZYD4BVCvOu/k1bqD2xl23txWJANw2x8fCNlCLnCWB
3yIJWGgucrrzbqCv6dZlToEpEPI42t6EcwMJyKllFWamwL+Pp1ofX95APFy/
PjC0p8D82QPDCwwbKHmoLM/wcCoUXp1KrtpbR6rVEl1XPVLh7p0UVkLXOhIX
Sp4y9UoDq3ecjGZm6yhX6Le4fm4GTNckGj01XEcXuc5rJfRlgNoBU6n4i3V0
/Ted6EliBkj6HlGlVl5HjK1njwXc/gaHI5c+pkqso286c9rbg9/gc0H2id9H
1lGyNQ/n9NEsaF7gP6yasYauSGJUvOJzoCZzXzw1aQ1xjVpFNrTkQIl5lwX+
yxrqMvS6KbCeA6kbxoMRYWsopB7jlnU7F7xI8SlD79aQMf1fGdq5XJClPn5H
4+EaaqTNuICRyIfGq4uuzzZXEWVWs5QQdRFULZYWZa2sIkuWupMVrEVQlOU5
vzu3irwVaCq1RIsgme/i4y+jq8hvQ3V3y6gIPETVL4w3rSIJReYDn9YiuHO3
uVonahUZVg0USgcXAzL6uv1SahWNRmcUpwiWQl7ANR1RkVXUK2VyUf5JKXzO
L0M0/Kvoz/nJ+8dfl4LNDiagjG0VOevomhzPLAW24B2W48dW0f0BGcNhtjLw
KFGG8pEV9KGDtFB6oRxkDx0OOGG/gjz62t99EKwEAa6w9WnLFfSgOPYGi2ol
sDw6r1LxagUN5tvMTNpXAj5KkMVAZwXtRJiVLNZUQirPi7wKuRXU3CbRQrhf
BZTK5f0Gp1cQ1YNLnOyW1dDy9dX5qoJlNPOHl7dspBZE5e4bbmcto/2n6D3H
f7XwbYEnVzRtGf301ztUy14HAXyrt4pjl1HPs7fcRpZ1oFTzRj/HYxmVZS42
xB2ph/Fh28wE1WVkF3zco+FOA+BOuop5bi8hXS+VxvsWjcDqEq7yUGYJBcTW
Dh2+0wKzkTKfMySXUPXALYdCrRbIylufpBBZQp6Rls621i0gNnn/TSX3EkrR
+zshmdQCSrKH/K+eXkIW7sECI/9awPPo27qDuUVUYRLmq97WCouRatylgYso
N8naINugHYryzv69MLyAgieHBkZmusCCx8v+v94F9KycZmbzEAY40zfWfnUu
oBKmVVauKxiIi28dT6xbQCrs1HKrhhjwCXpbdTl9AS2Zbj4dXMCAllmvHYfd
ArpRr5h4basbDjj8Vq+fXkD6VCVTNy71wqN40k+pJ/NoP6NKOdJ8AIKiK0S8
782jmQjPQ/SuA4D5+O5jj+w8CtmivxAXNgAPff4o6onPo+KhopCR0gF4YPm3
3OfyPPpopuKDOxiAe0Ad1bc1h+IbiK+zYwdBfo5R2SRmDv3jVfUQGhoCaV7R
zvCpWfT6kvBj97cjIOzUvSSiNoN4kkX6ln78gi5RDxJfwhSa+pCmHro7A6O1
PIrG7b/Q14M7dk+iFoBU50USKR1DlbdPcvzLW4F6ioQ+hx8jaNa9c/a35wZE
NZgeU64aQtMlD0rWqnEg9mP+zfm8IfRxLDzkURMORlYMB2aThpCVWeyvzE4c
nGfSi3PwH0JKpoNI4ycOvr7W4ovXHEISbphGXyIOMs/dV14kDqKL129cviGw
BTVvr312FRpES4QlYeevWzDNtc6dndOP1HgsDz20xUOIFJPG3aR+VOaSOML+
Dg+Sj2W8piL7UfPdXUqSKx7CbcN/Mbn1I/PCuYehAXiAOtFPXk/7Uci2/H8+
SXiQTtsjVi73offChUwhPXio2GWNu+jai/Sdaw2GrhCA9pI1Uc2kF40aNn86
wUMAE/kmpSClXnQi+ZWlDD8BGMNMDu+w9aIQPBtDlAQB7DgK3vS3fUeWhIdB
B48IcEMJwJvuO7rpNtjWbUeA3DSD+eXUbjRveUWTExHgh3r2IdGgbqT9WOPD
8VYC/Ee9demDbTfK1HArWO4kwGMzj+dMd7pRRWPp0fBBAqzzJfXK/sag7vs+
R4IWCCBQ8asqjhmDkpL81bmOE0Hz1dWRhYMu9O+bjPQXWiK4n3tDuLHYhW4E
v+6jYiBCr/M+f0dZF6J6xrTWdoEI1sCSRlDpQqHqWN1NPiIUdWqFPg7pRK5b
4Q3jT4gw+j4pJ9auE7VI6zKNqBCBgnepY1a7Ex3YnOjq0iCCcqgj5ftrnSjX
6ZRonC4RtlSi32W0d6Cpc0HRk2+IIDwxaHBA0YFuhXAFbQUSoWzjiXiRQxsa
RDoCVxqIgP+8Nv/1ZRvyjVI42GgkguDdwMjQe23oxPKbopIWIuTEteIszreh
S9NFhVxdREi+J53LWd+KIp+rdVUNESE4hYctnqoVDXi47XstEaHzcXtv4EYL
uphRmDixQoQju0ZuTiMt6GqY9TbfOhE8lJLGNbJakMvxsqZqHBEc95mi6R+3
oK+Pal1c/hDBUOPwcb/IZnQGa+CcSEOCZIqUKnvXZuRFG/bG4wQJfufKvDIy
aUZDpiJbOqdI8IzSufWORDOiUiBl/0dPAqVCnPv+eBOqk9BPm2cmQYh2GP9q
SxMqS79GCD5Pgi5qvl+jeU0odkq5nfcCCe6+eCVV4d6EypebNtUvkUCKZpJg
c6UJhf7lZ3tylQSOZS6peieaUP9Evk4VJwnK9M6rKBEbkd0hq1Os3CQQrFAv
4G1vRD101d97rpGA06jbbNG8EfHe9PkyJEACQ1pz5mHVRhT55+dLyhvk9VQf
aW+RbkTsd1Q/XhMiwQV6OY6UU43oQ2MHn4EICdidbWsrDRHK7/8l6SBBnp/L
uaNuYgg9ORMWYChJAlNXpCp3DCETawG/+1IkyHE/tdqT34D2PAL8D26SoOdD
mViERwNSF3AJ7JUmAdZDx1NLrQFtr/WKxd4igYh39rnZ3XpUfF4v6IwMCTR9
lI0zu+tRxtPTQm1kO/nuFL75Wo/krtJ/sAES1Pkr3NuRr0eCh0Roi++QYDJg
PaLubD2i6qBRUpQlAUVQ5KTnSh3qy4oQ/kG2QsiMw8mPdcjopv3SmBwJzEID
mgYM6pBdS12FijwJgsIET8WK1qHfrLE8zWTnfRx59uJoHQpQC7vFe5cEveFu
6ezjtUibVQwfQjbu01XcYl4t2vzB+WCJ7DOR3dJ5H2qRig+l7E0FEohGvfW3
Va1FERP2Y75ka0WfHxLnrEUW4gJnMGQ7xzRe+m+nBlXHL60eUSRBQuwriyZM
DTrWYGB0i+yGz7QVfonkDn3f2MWC7Okv5Yce29QgD/0m4U9kU8a/eHJavgaF
pSkFFpF9NeHwlxGmGvTftXX3TrIVE3Pm45erEZ7ak2GMbPOvKjcMaqsRzc6+
4izZIUm7Llxh1cjcQu38PNkFyUkda/rVaMzZN2iS7P4URYZikWrUjIuNGyAb
n7rx0vFINeKU+/ygnmzG9Kgc6bEq5B8RH5tCtniG9DZFXhVqK2nwcSf72bdZ
2Xb3KrTGxnVanWyXzMDQYJUqhD16cOsK2V+zbowpX61ChuB8bIX8Phqzf149
u1OJ2B6N2GWRPZvjbjPRVYkmtTU+6JNNlcdZl5xQieoeyPGeJpsrv+eoqXUl
akzcfFdDfv/3C+zUeOUq0SP/SpMXZIcWNa2WL1UgKz4uriDyfhYVm4m71FSg
+pjMP0xkD5bQed0JrUDe+F3rOHI8nC3XPd8tXIHWTjDdCyXHi2QFlUk4dQW6
UrCTtU+OL+3K3CKN0XJ0mma80JDspOo/96bdyhFjDXshCzkem2uSIzOUy9GD
k7+yXpPjdb723pQFRzniOXXnYfltEvA0RDuSOstQzgqlvzA53oubhTKOM5ah
uDbafz/I58d+osXxz2wpOnn/B/tP8vmSJGrcXy4uRWt9uZn94uR44HRea3ta
inJSv85ki5IAE9As5BlcgrIsb4uSBMnrTVE/bKNdgmTKCFEl5POtXLP44+W1
EuR0e8noFT8Jfq4dd7rVUYySumZUK6+T56ek1rBDWYzufl5Lw5HzSearhY+L
A0Xo2W+aDHMOElh4vDMYTi5CzBeuXxlnJ8FWcTxVqUwRKiOd/ZxCzkf71zqj
fxELkNmCZQ6GnM8EKlYKuuZy0RTNxn3/Y+R8tHRKNdMzF305PEz1/ggJpM8L
k3wu5yIn7x09Qyryfrk6S9/RyUGNbRcOLlCQwEDuRGfFYBba99Dl4N0hQlQv
30xaUwb6XMjpXjtHBBYKFR9PvQzEkz5sxzNDhBQhB269v+koYfGPWOgkEQqi
6i1ZpNKR/Td5PpkxInRoK+2FF6Wixxz20jK9RCB8n+L6TyYJSfXfG62uINeP
Q6M7Q/5f0f6MLON4KTm/i/V35vYnIqv4VzqEIiL0JzRa6BgmoNBeQ+bTuUTI
e51SUOP7BZnd+Jnw5ysRTGiMxN/3RCKJ0Ps5nr7k5wf2BK+XeqCwBPYYX3J9
lJx9ryMZ7I7+auwmfn9ABKZi7aTYAhckFgyX6RTJ9VaJlVuT5IDswuMT3WWI
4MkIlt+oTdCOyMMdOkEiVPwtVTdpNQPh4Ijkf+R6HRjAJX75bCj85DJjuIEh
9xfGv4050sLAKcJGQ6mNAH2XMV0M58JBZ9gyxKSRAM/3PXaZMz5BjWwxzr2C
AFYlWA02FAW3HH9JvEwlQCwbhl6IEAeMFpJUP5wI4OB+Rz47Pw1c6O6e62Qj
gHG+y4uF40VAV5TQIfcSDwKTi4RE6SLI5n9SgtXCwy6tarDmmyIQ9xl5Ha1C
7rdseGo6vhdBwAjjq6G7eCgTGWbOCS8GvQ2XO2d48XC4RmDI6mwpdDfUJ6Rs
b0Fq+8yDXfYKuH7h/GfJoC2YmroncUKqDizC2C1/p+NgzDtYpAzTAqGkE+Gb
BRuQwUFPW0Logg6+88MTEStwSeZsZHdpH8SHpeyN1y/AsKdahl3uIHz5yymJ
uToLIRYWV8xrhuGgYsuTguU3xNM3269HjcK5BtYoL66f8DA7nO1xyiik0Llw
vqP9CXuyej25+aNgPuPB5bI9Atp2/3G8bh+Fwu9VfsXtI8AyIj60sjMKGwry
nKOvRsj9fq7QkvYYeH/fqKHLH4Y4rmjsDNs4/IcdL7wp/wPibpmZ/cybAKOd
Yo+erwNwZzT4kUnVBNC9lWw5FDIAC3aFAoSWCUhpMq27+34AbuRuE2knJmCt
TKGXoDYAbed9PRVpfsHb+d9PtmkGALedEldu8gt+Xt51D3bqB4XiiZ7IS7+B
NRBz5QfqBRznUyHl8EnwUbPXGsnHwPrIz3Pp8ZNQOjL6JPojBpb89Sl2v03C
EEf7S0tbDEyu2PYl1U/Cw+9bxWZiGOjJj7LcXJ0ESoc6heCGLsgSG88OU5gC
/8BcvvfDnaCvYHLl+94UHB68tl7H1AEC+9s+9IenwVza8snHvXbIU6t1qjk2
DS8EMJXvp9ohk+quPi3jNFi9LPKMyW6Hr6YaghXXp2Hok9IvrEw7hFx3+k79
bBq4AiXPnLFqA7OSepqMkmnwtLrIPPG7BfCZrT1dVdPwLzXbMqylBVwSuz9i
G6Yh7ra3/4vsFggLGGOS7J6GLIrOnvsOLVD+ksTePTcN4v4C9Pq0LUB5gv/m
FuMMuOtJzrkqNEOCUYLF7Xcz4F2a7nCsoxG4nqfxG7rNgOiJst2dwkYoVMrB
+XnPAK1dmjHFl0Zolqpy7P84A5njlNU6rxthhe6Hl1HWDLSfIXy9eboRxOtO
xAeOzUDX74ybzC0NMMDo0j0sPQv51tGBTDx1MBLMl/NJdhaSYz5pJFLWwTjl
ZMCTe7PQJlB86snvWpjF3VFsU52FWYe+nxyRtUDsOdJUZj4LXWbSy7kUtXDW
N6IiMnYWMsI3gmjnqkGHlJ2iQpiFSNF9VYPWStB/o+Nx6s8sfHk9klCSVgnG
cyf1ug5moTw52p7HuxLeDFizyh6fg/oCZgNPuUpwzxeLvcE+B7niCmILzRWQ
bNIUQvd0DgZX9Cl0MeWwMDz67nvOHFwb0xhVIpTC9koPJ1XxHCzkXuJP/lEK
Rw4ah25WzoEjfsT6XEUpcHFlC2a1zEHXZQMxt/elYOr4fsnrF3m8ceMvA2Up
LJ9l0ZKknQcb5jz3ZywlsK6lI55mOw9WNvy6SqZF8N/rp/Nj7+Zhb6v8uvTj
IjjpIR9B7z4PznGJ6Q+Fi4A/ixfrFjQPJG4KwdS/hWC1u5/xLG0eflXQpeGE
C2HzcwIT7fA8REhzEzhz8gE/9pvoJLkAzHI9PJxdOZDvRJURIbMA/Iv6atuJ
OWDGzKuRd3cBtq9QWlHa5cCUulP5lPICMHGbemIu5kBP3xlHRfMFOPXWM4DB
MRu+td3bYYhbgHgZrWJ1oSzQKS7+U7C/ALMq+Zzb/RlwVnk0u/PQIhhu1QqU
5GXAIPbg+ezRRei/mNWbEpAB9/ke1zAxLkLI7YNNFtkMEM9cdHblW4TyxRNB
VmXpQJ944b8HuovQeqiSwSI9DVoDfA/mGxaBXUJaRCgrBfayNDHRrYsQWbNK
vx+cAje6uGMUMYuQZCk9s2adAgk0GP6s4UUI4HtRKCuZAvZBtLqv1xcB5zbz
shqTDBwhsbVb55dASutkstlGEnh9zHY6sF+CaGO2FpuhBKgqdL5b6LwE/Wn9
QmzpCYDte0Sv77EEITW8DxkcEkCbHpvZFLwE53rVoYU5AYQ/Cf/0SV2CtbsS
dbL68TAbUSt2on8JwuMCWx3+fgHZmO94Zt5lsDkexJ5nGgteajOh8kLL8Nqt
UWdDOhZa6Uk81hLLIP696Yrd6Vi4H8yq1y6/DBjicezD+hhQ9njdbf9iGWZ1
a3PZz8XASwua9IHQZTBNDNW9NB4FrjIKGsG4Zegpnji0FxIBDfvPcBXby6DP
MLDAYREBFNVvgmf/WwbLpIVM/3sR4C0S1SRFswLKpt989ykjIIhnjn+ZfQWS
DSIIwa6f4MsZzyMKaiuQ7fj24LhzOFQs1lUelK+ANdZTd1wyFN5yulg11a4A
9YYsTowqFASNpTh9mlbgUd7T3YW+EMiaKY+g+b4Ctt0zibJmIRD3q8CScX4F
xBgF+8YTgsF9MJnj+plV0D4Z1inMFASKDT4fNaxW4Yl1npcH+APlXznFc/ar
wCijxB/N6A9I+tDf8ferIBVFGsKt+IFktZuFvu8qfAkP93aJ9oPrZY4KrxNW
gX0ryn9o0xdoc8z2PTCrsHv7r7FksQ/8jH78Ko9rDUQ17YJvG3uBjN5tNlW+
NbhQ5+7HKecF33gExnaE1sC8wtdakc0LHGvpHsnfXgOnGzPNQr89gXFmUGBc
bQ00OQf8Mp57gjLf8+2jnmvgNU7rUPvCAzDNJr5GE2vggnV9f4TBDYRDNGVo
ZtZg3NKCb2bCFb5o3NspWFyDnw94w1gyXMFsmcd8b2sNDnmc4s6UdIWjtOuP
Px1bh209PtVzxi5w9/lbRiS2DnvdGuMz3e+hftM9jSV8HQxjSu9bTTjCDc0S
XumYdUgNeH/qWa4jpNctlOokrMM3PeJQoosjBAU+bk3IWod7Q9i9mxcd4RkH
y8KlpnWI/8iNzzF2AKJmORcHfh12zdUUJw/bg1n9coH87jow35ZWkR2zgwkO
Vgnjg3WoDxY7vVNgB804r3sZxzegezvw/TMdOwgPUjbj5tgA6+i12LnKt8DX
sJbNq04el5vdS/1gC8lXLws/1t6AVu67/rjntsAQrFrzRn8DbuL17gWI2sKe
VjUm/80GUDBS60at2kDnlt+aoO8GhGSwT9Fr24Ax5xV+0YoNeLEcqKUTYgXx
Ic+Kbp3DwrzvH/6XSRYQZC+uTryIhRCR/K0oMwtwesG4m8uBhSjWM9dEhC1A
na8fLghiYdfxnVRauzmc7LnX90cBCwSbo9RANAP3ExLYCjsshB9ViBgweAVv
CIwRVu+xcDXx2w9BoVegPYEX4/qAhZR6PsY1ilcgnlvgFh2EhTvDI6ccU0xh
8yHXKfsULDkPrZf1LJqAfhATn1AfFkRsFWm3PY1B6S2hb/kHFrzxY3oTmsZw
S3vALnkcC2f1OTgY+Yzh3PXQWrpFLIxFfapx+2kEA11Uj7D/YcGqQ9edXdgI
5GiI5rnXN2GqbzP1xrYBXA0YzOT024RBIxp3n9d6MB1s7OMfsgnOJ7tGH7Dp
kfd1W38lYhOaRiqKy4dfwplYFpb8pE3Y0eXNdZF7CYe+GYaIVm8CzTWZkQQO
XZhswdvIr29CFeUKO+thHYjr8HmSgd8E8QHvwyVN2qDRffb60T+b0Dc8Gzvu
oQ2m5om2C5Q4mE28LjRFoQ2TNk3Xs+lwoKnCczjm6HPo+UCTeOMaDgT+UFYg
AS3I8VQNNuDDwZybjOofkiYEeMe/jxDEgegD8mdAvSbI+/NrEsVwMM2M8JlK
mlATpkJXJYcD7truCCtHDchO/OIJL3DgJ+UXH/NLDfySZq1t9HAgv5ou8CpX
DYxTeF+mGOKARZCSkOWsBmwZ9TcPm+PASqpU25VFDT7nzRDaHXCwJGjB+EBP
FRwLrs/uOOEgjKMtMlBIFdSL7Pp5XHGw73/sqCiVKtCVUecHeeEgJsfkYUuO
CqyXK8XX+uLglTWn3jd3FcBUxgauB+DgZjTj1qaqCmRVT7+7GIIDBq4IriRu
FfCrvWaq9BEH//+//38A3bSiUg==
            "]]},
          
          Annotation[#, 
           "Charting`Private`Tag$36532#1"]& ]}, {}, {}}, {{{}, {}, 
         TagBox[
          {RGBColor[
            NCache[
             Rational[91, 255], 0.3568627450980392], 
            NCache[
             Rational[94, 255], 0.3686274509803922], 
            NCache[
             Rational[166, 255], 0.6509803921568628]], Thickness[Large], 
           Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwt2Xk4Vd/XAHAh401SVESGEg1SERXWoahEVKIkUcqQyFTmMWQmFJJ5nofM
wzbdwcUlZB7uvaRC5tS3wu8+7/Oe5/zz+ePss/baa+1zznPEHtrefMzMxDiY
/+9kqhXnpQQdm0LHkrcsUrabQ0uB5hFb6Sl0NrtRKvacOZDP+nvrHZlC1g61
0+vPzGFE88/pgxJTSIT6IpZ1yBz+2E+/+yg4hbpczrKalFrAudZq00nOKcSt
cBz32cUKMO3V2jb2KfRKrNZh86MVXBk8sSdv+xQSen8nNG3JCu7MpREct02h
m1eE7Ywtn4Lz7rBjXP/RUdrFv6jRxBqqH5n+lPtGR7HTQRfWzG2g6cf764Iz
dORiSs9XzLcB0suB7K0pOiLp72RmX7SBoZBrhuRJOgoVJ5mpO9vC73J59GCQ
jjydBZvLrjwHBVauoGACHTVxvL8SbmsHlRllB6gZdCSlf1uV7bcDtA2sS8al
0VGwdIzCb0lH6OW4cEo3hY6WfjsI6eo7woJ1q3rTezpqOPesS67SEQ7L99uk
vKEjtaRynm+uThCD/9lk4k1HWir7JAr2vYS0X+c69nnSkU7yifz7119CibTn
5x43Ovq2a/aS76uX0BnGNou9pKPyF7FHpFZeAov+3t1iNnQ0SP1zc6vXGexn
FB/T7tGRgso5i8x8V/De52Ebf5eOWPSHn65+c4VwzWaXGwZ0dHTaTqBV0g3y
iq6GN9+koyMm1y/MpbsB7YVhVepVOkpRt9vrmuEOuuzunA8V6Ij/YNcfO+QJ
J6VQIZ2PMR+BUgneMh8wy66waualI5ubTvuPDfpAnGTBkRQeOjpvt9Mo7J8P
MB+OT73PRUeP77uXSl/xhX4xh9ihbXSE77gu1U33BWehIx6UJRr661u9dEHy
FbTwRGjVUmjIYD3KRPF7AKyH+XPGd9KQSWZWqcK+QDi2w53wkkxD9OsqW+GX
AyGG2xKTJ9BQeXzR0OXsQDDnuChX0kBDrdrCRStWrwHH/Esoq4BhZbu+EpZg
0P9pPBcVTENjPP/I+73C4Ia8q6HbaxoyHHWT2l8TBlpOse1mATT08rmxpPdq
GKj97MhW8KWh2pSQiEDLcJD5qWg27kJDIdX+QuGGEcD+k29cypKGRocq3AJy
IqF6jUBBl2mI5Xt4pSb5DZTL0ZVz1WmI+vqYkdXCGyhy3Ch4c5GG2Pn6e0l8
0ZCxdibkMdCQlPBiyUWjaIhcS7nMrUBD3x541FxYiQbLNdcmfUkaEr812B58
NBYE12TKfrDSELl5O4919zsQGrvVm8tMQ4Mz22J+br2DA23OK4+ZaEgi+KHk
kGwciMS0nJ74S0UJt5Yy86LjQFxOv5yyQkWtvxyLYu7Hw1FHj4/FVCoyVuKQ
+Mf8Hi6sdVTa1VPRY+Gp7wpxSaA0tjRwopaKcDYc2syfk0Cljf/X9yoqqqMU
tSnyJQMW80DhYTkVLU+7+s2HJcMludWqm3lU5LYeXI6pp4CWo2DNmTgqUl1+
puqqlQpGaxZ1Px2oiGeNcYfAdHgljYUP2VGRliW/nlR+OhQY7zWts6Wi47fZ
ZLIo6fCXhGfzeUpFwQ81trQEMiDhg/hN3CMq+jluE6WTkwFDGmPfxG9SkVNB
nfqzwUzQi9cR0JWlon0bY3GqZjngTpH8flqGitby3DfkI3Igg2Wzjv84FVVt
rSk8q82B1WcFpqNHqMiHEhuUuSsX3qhxFj45SEVRGaonL7fmQs9cy0UPHioS
TnPnSjyTD2/drel6w5OIXf9IL8e1Ilg5KzOL+idRIiFr6pFfEWgvLy4f7ZlE
1r8dlwTri4D1icO2bcRJpL/U9j1JphjsdFxFCz9OIvOGw3+240pAS/y18fbI
SbQ3Ku+G42YJMJPSRyo0JlFChFK2IGc5GPs+pouqTaLCnSfT/I6VQ43SkdkQ
5Umk0sTbIH69HJ6X5v1nKjeJ/pqHP2aNKYfxhNJ9POKT6PZeLr774h+h+hnS
f7IxgTjzu/lSr1aA7e7RXoGPE4x+uVdj0VYFd3RmVN4VTyBXTf7Eez+qAAtZ
ztubP4GqBLb0QgSqgZeFw29f2gTSvidmnmZZDWUrcmcEIyeQSrzd10q+Glj7
FB4tbD2BNJ+96ax+XgsukWp6hw5NoBWxdufDxg3wsFO7KePgBDKsWMOpRjSA
Jsfd44eFJtCl5DMorakBBL1tWSX5JhCrc2fZuUONUG+b+PEI0wSSH2C52bjQ
CJvX1/ccGxtH/W/MrcuvNIHfjrzPp2LGEV6w5l4JewtUT+3P3ooYR7sUb4it
ibfAQk2Qc1fIOKqy7Kg1VGkBwyeWQpZ+4+jTKGEh0qkFZJGUaYr9OGoqs2TJ
/NICE8+z53lujCPXPQ7Xgzpb4Xx/Bsv8jnG0o4vLUrYSD8/z9nyu4RxHXjv/
nuEdwEOW96uswO3j6FS0Gv/edTzsOmF2VWJjDJ05yJGVcJYA3/wlIgznx1AE
S3+Pew0B3iqkCbaTx5A5q9x8B4EIKwnJp7ICx9B7POtsCBMZ5JrFH+/3G0PK
/OKHP0qRwelrZlyo5xjaZXUwaOcNMvw+U7Bl7zSGcmKGfUzSyLDVWd0Fj8ZQ
gY3f6eeXOwC39clyWGUMCWVxvLJ53wlHHrGm4dZHkTx+8dIR626wCAr87LU8
io6rckvteN8NecVcnKvzoyj9qej8MXI3yPzjfT48NYqe1sqbB+/pAblYYZWs
T6No6HemZ6djD6gRz45A4SjK0On1bT//CYyOWfI5mI0iB5EWTY3xXpib080/
YzKKDEsSlTLWe8G1QPHS2r1RJFjE+1yYtw/iTnC8cLo1ioLXa6dNL/ZB/8ns
4Zdqo8hVu4RZPr8PtOW+pLiLMsbTdJjb7d0PKsqmJwPGRlCXvtjyKRgAUZ27
WvF6I+hI0t+dTQIjoBQVfNVWdwQF+nXb9zNCu9NXp6GuNYL+JL85wW4wApEG
IqrLF0eQt3D5DPHdCDCZTMlfPTOCYts52KsFR4H6/NnB/3aNILmdW90PJMcg
5Y3Pyp3uYZRk3/VP9vYEHBzIjdunOYwE3nWETAbRQMNi4Ve0+jAS7JwpTE6m
gc2f0wY7VYeRe8W2WIcKGjSK1POzKQ6jdxG0Tn0aDYzNKW9WDw+jwzz2Cdzn
6ZD0eyWUsm0YbVWIy8ot0uGAkJLPq5ohxKaVNpxrMQ37TSiWS1JDiP/cuJtM
/FcID30pU3NoCKUfqHqlVPYVWGtEV31Eh9CxvdQao46vsLDLwX33viFUK9te
1LfxFdpa90acZR9C196Vzrx/9A1sjph+dP8yiIR9me3env4ObQurmxxpg0h5
3em4wsQs2HjsjxETGkSJvKVlTNYL0PhB8WL++meUKHojPDBoFa6KVbOGD/aj
4c2KjlXD33BS0fgguaMPre1IVaOqbADvzaFG49xe9FNQBc/7ZBumteVcpZXw
CUU2uaO6TRbMr/iHXLRjDypeHn57MJ8N62E5Ub7reQ8yHis+KFLBhoncsT4V
+bQHearoju1FbFgt09yJsIc9iHX4FOlfLxu2cuObZKBuD1I4Gqsd8ocNM1mj
73M73oPu/nf9RNkVdszZvuQ/PKkb6QQMplGp7Nisv3/Q4xwKSrkrfih2kwMT
fdSlu5FMQY6cQw+92TgxA4x/X+w7CnJwW9V9zMOJtf3JyGoLoKAbUkeED4hw
Yh9s21olHlOQ2QX2dCVlTkz3LssmTYyC2AqKJ9VcObHK4z72xu+7UL6lxbLs
Iic2z9l+bv1NFwoO/Nh3cZ0Tk/jKuy08uAuth31z19ngxCJTUyIaXLpQ/ydD
jhvcXJilQFPBgTtd6O/VJbV/klzYAaatmZE9XchepEb/hxEX5tfnfs8gvBOl
v1ZE3K1cWK/u3Mw5/07k654rVNTOhYlS7tofcO9Es2ahLJd7uLB60tkgmmUn
Ko/y1zca58LWGpYqn6p3Irvt3qf2/OLCnuSY8Xn/60CPzqSIlElxYx8P9314
uNqBvM5uS62R4caY01Wl1Wc70KjO9NkqOW4s+YMIxjXUgeT40r1jMG5s6M3Q
s5jyDiTh50sYMODGND202nOsOtAt65Xdjq+4sbg/tXohph3ovuDb0OEgbmzm
pTT12Z0ONJAQmC8XwY352bP9Oq3Rgfymo1s64rmxevOmQw1iHeghZ3K6exE3
JnNTzvvTEBndPtFJnvrMjfEdOaDwR4OMtKOsfyYdwGF/h26FvVQho+h4XT5L
URw2HRwytSZPRrWvVIKlD+GwyoU/EYuHyOjR3stuYcdwmGHl8LdpZjL6cTdt
jXoOh6Wrv0vobmxHirwn/5Tp4bDQX5Qlrcp2tN9LfpNqgMNe5LJdJhe2o3NL
vOLb7+GwKzterLYltiPMaaLupCkOm+/X06p1bUdc3spjO57hMDkzvs2Ms+3o
udUb/jlfHCYsoKknLtOOkoSVE1z8cRgbyScv+XA7CqEN7NgMxGFDx5b1E/a0
I8GsnVXfQnGYx2p3ccQKCUWdcyJdeovDnmSys+2YJSFrvhNuvnE4TNcAjIJp
JKSXYshRmYDDxOuKOPx7SOhwZlbOZhIOI/iGmboWkRDTU51m/mwcViyHr/qV
SUK2gZXszLk4LG7m3w6nDyT0YnuXwHQeDrPStK61DWWMN7caEFSEw3j4ru1+
bEVCGG6by90KHPar1deSbkpCeb42lNVKHEZ1qkUP7pLQR07vcb9qHFY2LG1t
eIWE6HkjYv51OMwglQOvI0lC+n3fBHDNjHzr9039EiahoX+GFdotOMyIO4k5
hZ+EhMJXzf1bcdhDpzPYEisJjRyKZh3E47DHRzeN4/4REdHt1PwSAYdZTJI8
sDUi8qYdmmIi4TCbq8Z1kVNENFyX94eZjMPsNqVGFEeJKOSb5P6fDDuWr/6m
9hJRz7sOtfEOHOYqHHT2VAsRXfPqK4/oYuS399bt4Roi2snr8N9dCg7zDhRx
9CklorDBcg3BbhwWsFxe+imFiPa/Yfnp3oPDgrI8e1ziiIi/OFXv4CdGfdy7
uigWSURH7m5VVzEcwbuHhxxIREy7PMU0enHYG/zEcXsvIkqoCgojMxzrmntN
8CURqUTE/bvUx8j/SUerFhsislE6ZlPBcMK0SpDVEyJqJnTShPpx2Id4zhw+
YyKqjOczcGY45Xo/ofY2EZn4J3aRGU5jSf7yUJsRH9qjvvszDsustmTlVici
XvrJhhsM5zyTkyhXIiLSYoF8AMP54luq9+SIKFb3dlEJw0WD7SYsx4loqe+f
5CeGS0NjvPIlGPku8Un+yvBH1QdJt4SIqMa/c+8aw1Xr0g1/+YhI+W5PxDrD
tflro+lcRFQVH8y+yHCDCfpzjZmIvIRZvMYZbuIP3r/2HwH1i2utNzPcStZT
TFwmoGod32eJDBO8Dhpc+k5AhNLOaWuGSXKzTvNUApppMDI6w3DH948xMUME
9J+OTf8iY76UJK9ypR4Ccsm7rJ3GcM8tzd5pIgEtO50jajLcx8G/HIoI6FVT
ktp3Rj4HGiZ3ylcR0HnGO5YHw8P2eTLjRQRkwmIGHAyPHXHS9s8iILSjqPk1
Y33oUVwhn2MJqI4tp+cpYz2/aHzO9QgjoCg9b2MKY/2//U0mHfYnoN2PrJcl
GV54LM/2wpGAlOPVpGsZ9bMsyHRYxJoR/56c7jVGfa11ky8SHhFQ9vpez8MM
/zln4iNwi4ASX3itWzDqcWPhaEqjJgF5yqm3uDHqlSnjZ+MTNQKqjCmNf9XO
2B94Qv5VniKgIcFQW2ciDttFr3hpwEtAji2zn78x+ue4QrahJjuB8TzwJkUy
+ksjNE5ZeROPnjf08ZxowmHuZ91YJObxSHhXxAe1Bkb8wVjEAhGPZlJM12mM
/mWhnrKnNeIRlSOq5jijv0XkJW73V+DRjerUyaflOOzW5Hah2nQ8ukVjvU8s
xmGNZzqy/L3wKMNIwWiVsZ8Mv64Pcn6BRyzyDk60TMZ8xwutnz7Do36lc6xt
6ThM+nXk6Rv38Khyd0vok2QcFjN2u/GAAh4p7XkcK8bYz6z8qZ/LF9pQeJrG
TnsfHOY/8qk660sbcu8Z68/xZNT7ydb38WNtaOhXNfS74bDPw5mmXuQ29FBr
127OFzgMk3n6QzOrDV1xHt49Z4nDBAZ/stLvtyH5H6GEaB0cdur416/9em1o
VdkzQUALh2n5DJGJ1xjXOzLdCL+Cw3yO1UUWnmtDbKnDL4xUGfu3l/cBF/42
tFMrS9TxNA5rkeKW4+1qRb6SF37E8OEw5zI87UNbK4or88MX8+CwE0reEcfq
W1Ez8bpsMxejn3V+zmrkt6K2xPkuIjMOs30xmeoRxPDZwSSzFW7sQFv5zjn1
VkS+GvyQ2s2NOT0wmsM3tqD+gqw8Jsbz8eh3gfhblS3o795qr3VPboxq/0mD
VtiCZrwa3KdcuDGtAI20f4ktyLkhhSXdlhsTL5S9e8atBQ0lBgxXG3JjlD+s
xBSFFlS6OP/k0kluTOptYZpbSTMaTtyoYu7lwtZR+B697Ga0kVm1YdbBhbV+
tw04ntSMtu0frmpo48KMlU9bjYc0Iw1ZntybVVxYzHTlKTBvRiPTYQ+4E7mw
rdNNTcwizajOlAvQIy5soLt3IiikCZ2hhTU9nefE2Hcvyct2NaJoB7phxzQH
NmA9lHe2rhF9XxqsUhjjwDIITQeVcxuRONmB+0MfB6bmGsWp6d+I5Jx562+2
cGDutNPjj5Qb0d4PgppPkzmwpWKnV+8KG9B4odeju3c4sCGtv72bYfVozIBI
ssazY3kBbM+7rteigI1ao7fhbFj15SqeHuFK9EmjnkNDmBUr21PdJPemFBlq
nQoy1NuGnTDOKtrIzkNzP19+kX25AZSCSRtD/TREmmf+9/XtbwiXtM9fT3qD
RDR61u9Wr0L9G3o11doITb25uP77wSLoJp/LUBwzQPWKzg0PYRGm8yMjIq/d
Qkn+Z57TRBZhb7BHp7feJaR2fLRAeGIBNHeRh5AsBnVXH+De3F8AlpsDV3qu
P4EdJxau2pj8gLJ1npccVh5wh0WiZMeLOfDP4L/c6xYJll/nTujSvsJMuIA9
W1MkqJhuMx4ifgUNl70fzrNGwfrNFQmHoq/Adn3/alpoFExxGj2lun2FgF8H
kh0+vAGOgT818XsZ1jz0aw+KASM5oRz/mzPweul0tgFzPDB9vF51amAa1EVy
/GzaUkDXE/sktIcOPIFjL8a/pIDbgm3w+y0aDCzyWmmxp8JU93ON43M0sGh2
0T2qmQqbrKZl3i00CDa7JjzTnQq/R+qJa3Y06MlbqLw/mgb2IsGy2/upcE9B
flZrJQMUtEUXla9OwqEUy/G63ZnAujstyOLQJMxzJPUclc+EI9Znqsq3JsBz
hK2KwzkTQnYMv8uvnIAUjyG/to1MuJb6fJuo5ATMtLoJK3Fmw/KDqs6d3ONg
p9uie0w0F87TFN3y5kdgRNHojO2lXMhtv7K+vX0ELomt85db5ILym+xK/8wR
EFiRHj1fmgvaOr9ql41HoD466rGmWh5ozmpUufQNA9ugiaulWT4cfXfXRrF1
CBLub6Vn5xSCuiSJNl0/ACwa8QFznYUQUnWtOe3DAFjLnLE8uVwIuP2HH/l6
DgBsPZGpOlcEBa3Z8VnYAEynUKoJ5CIISpr38SZ8hpPTH7q+zBfD1ORwvPlQ
PzyUT/obta8UvhtcTXm6pw9Mm+4YeEqXwtC9Y9nsf3vB5NrucqvzpWCT/Lqu
kdYLxqavrS4alYKvoW+bR3EvGIbZD68llzK+43bcV9bqhZtfNKoMjpSBoZo7
sSz4E6jFLtoLny0Hr9TGlnXBHlAVzaNwXi4HLY9fCp9YewDLNzu6blAOjdS2
6dfj3aDSPEyjuJRDeJfhyHf/bjj/o1XXu6EcRqd+//g1RIHT6nEyU5c+wuiF
dy6HXneB2E9sNudWBSReFIMGzg5YgqKGrccVMK2iKixFJUNTsFCUvnMFQE1/
A7GSDMai6wqsHyrAwaMiJMOMDInX8v0fzFTATpM7qt0t7SCQxi8m4FIJ4x6X
HzW9JgGXzqyBX1IV9LdWtHSdI8BwvMGxkZIqKDnCfPClAAFypts2ZVurQF1G
2EVnFQ+XXZMzJ75WgekVAbvQQjy8ytRbPXeqGtiZfNxOH8LD1t/G8KXWaqic
feDPLtgGaznR+Pvfa0Cmdpb5g2QLRP4YYX/wtwakrkvP3uVsgWOnxTVNdtRC
Q+HrZpX5ZnhYV0J5eKoWtt/JS/Qqa4ZPXV2D5i61oBTtFTqMNUPRCvusHWcd
hCqr9JDNmsBCyZ0nQLoeciszKvijGoDVp1U38EI9uISP+iw+aIBkPFf0a+16
SJ3pV9x5sgEGrsfvDbGrB1KZ+pmDlHpQN60Ujayph8dF1/9z3lkP4gFLpxOu
NkA7R5f+p6RaGOs2MyiybISfL72Pcy9UgVr+flZX10ZYmyzQ7CZWQU4ApUQ9
pBHGn+eeIqVWgaOyItd4QSOUgKSDgX4V4PK5G7iXGiHvx6jbl+ZKuBBQJm75
AgG3PhoLS6sAbRGmX1GqTZDQH2UZ9LocmEINu35dbYLxQ1sRLhblUPbfx/T7
N5tgrlck8t2Vctj32VJX+lETDETnXjXiLIfpkL7cpldN0Js4N8kcVgbu/2UZ
LRKboMlqlfNdYikU9Gu3aF1vBlrne/qPymK4nObTb27QDHYn70ZuuRcD3bZi
xtekGZbyrx22uVgM+7iFuWvsm6GixVrI5FMR+KvO3zr8rhmyOhYXghh9aFwU
/GVjshkq64naoWoFwPuayFFs1wIbRw8pCx3KhfzbfwXJri0QzVw8Pr2WAxoS
J0988WuBWlHluX/4HHBvfHtD6G0LsPHkJAhY5sD3tccJgbUtUBmr5jVdlg0t
pqzHTVhaYXIu+nGYXhY4XlDV2RXbCt3lkx2qXeng2J//NupDKxzdnGyKzWX4
mcDErqxWUMqUWBYPSAen5DlrvqpWcPfs7PwK6fCC5W3w7uFWmFpUZ9ldmQbO
HbN4fuE2UHp4jKWwIBU87sUoCWa2AcfOD58HfZLBc23TL6GwDYqe7TtYeJnh
MMsOwco2uP/YOpG+g2GkYihEbIPrxiJ81u+TwFvi+8sD39vA7UKB5GztB/Cd
Uy4XOYGHapGMJhHuRAhw+yotUYGHwLpzy1/m48B6F8pxbsCDyvg/2dLGOLiV
/fYIBY8HtxaduPbIOBDtUz/sMoCH6zoqolT5OKg9miHa/QsPuLMXWeL83sGP
YZO9bucJkJmwItF//C3oKY6w9iECxHc9KU0uj4bzlFI/KRIBDqeWPFANjwYx
syBmzx4CmPivnZWwjIaFCEUmaRoB5grFqJkHo+H117d/PZmJYDT96mNixBuo
f3tr5ag6Ec5F/k3YdI0CiZ+dk75kIsgbetgo/gmHlVmPhLA+Ipwp8h7C1YRD
E1XmdtwYEdoOra3edw4H485IcuECETKlRH/b/w6DuHS9iiE+EuTiO/1ubIYC
7uZYsMw9EvAFx5BkRENg5HKY+jkzEsxnmWvazARDrrIK06VnJIibuTIlXBgM
GtIpTne9SOAWsnGXfCEYfJjMTF6lk4BmZBd70TgI1ovm5EfmSPAyXTV0T1Ug
tGUkLk2vkUCv8kvOhl8gRCdo5y9ukIBDsfr2tRuBIBtQLLqdtx0yAxXTdv0I
gKf3Hbhl5dph/5UvPArSAUDl/kv1d2+HnXq5lbrlr6Ddgiv01A4ykHZcbtXm
8oV/0ituqfxkqGn17D/xxQdk54af7hIhg6gtbetWkw/EPcu9tixDBifZwM7n
L33Awv4Kd6kuGfpu/XSa/OYNbO4BwbIxZChxwKbvlnjBeWUb15REMuCOz16w
s/ECm83bVryZZHDlIsaznfCCz96HNZcqyBCvy8OZk+8JGf5tnCWDZOiUizEt
KvIAtQjmoJNCHYB4junzdbjBC91Z52SJDkb92DtmR7pB3q5ei53HO4CkbJtb
qO8Gu2JSrywqdcC958LqXNOuQI3DOIqNO4CS/J55kcUVPNM8A2XSOsABR9do
MnCG2oo//iekO8HkbKFskKYTUPJu5Mad7gSMOrsYvtcJ6Mk5nSxKncARfdFn
+xdH4A7W3z1yvRN4Pj6MUfVxBCPjspQAx07Yxd4qNd7oAJtsVnWTqBP2HH5/
b1rbHvj+NU1otnfCRyjMjxSzB8nlvcyVvZ1Qfo/VLOWnHeiM4q+EfumEmdiF
LzNJdpBSLDagyN0Flc2sFn9+Pge1O8NLUfpdcM3N8ZHEU1vQ15bds/GgC65m
G7ufErEFK7VABQvLLjjt0v9k4ZMNRB+X91Rx74IdqtE7bC/YwDRTFPdcahfk
nYluMBN4BgG5VyQv/eiCYa/p6pVZK0hISr5avN4Fq27e3Jo5VlAUvW4tyESB
V8Nj+PNPrGDQI6N8iY8CHNnbrKemLEHqJpPqB0UK2P4QGJSZsQClywZmHGoU
sHl9pUQmxwJuKBUFOlyjwPVfzmKNVhbgKmlEuWpMgdA9HDsDl80hXKh8+aM5
Bdi1Qk43VphDGi8Xv6gdBfTddJS8Xc2hcrupYogrBQ5uPNzeCebQ8afq3rof
Bfb8///+/wGLaTgP
            "]]},
          Annotation[#, "Charting`Private`Tag$43952#1"]& ]}, {}, {}}},
      AspectRatio->1,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0.0010368108327017207`},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{None, None}, {
         FormBox[
          InterpretationBox[
           Cell[
            BoxData[
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(w\\), \\(a\\)]\\)\"", FontSize -> 
               16, StripOnInput -> False], TextForm]], "InlineText"], 
           Text[
            Style["\!\(\*SubscriptBox[\(w\), \(a\)]\)", FontSize -> 16]]], 
          TraditionalForm], None}},
      FrameStyle->10,
      FrameTicks->{{{}, {}}, {Automatic, {}}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageMargins->0,
      ImagePadding->{{25, 8}, {50, 8}},
      ImageSize->{213, 238},
      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.2349869228845753`, 1.0349869228845752`}, {
       0.0010368108327017205`, 3.6044741855104396`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{None, None}, {None, None}},
      Ticks->{Automatic, Automatic}]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}],
  "Grid"]], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[121]:=",ExpressionUUID->"5f4414fd-eaf8-4730-ab30-b3cb7468a07b"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Save", "[", 
  RowBox[{
   RowBox[{"ToFileName", "[", 
    RowBox[{"\"\<results-chi2\>\"", ",", 
     RowBox[{"rname", "<>", "\"\<_run\>\"", "<>", 
      RowBox[{"ToString", "[", "run", "]"}], "<>", "\"\<-log.txt\>\""}]}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "vecL", ",", "LMat", ",", "CLMat", ",", "chi2minfi", ",", "chi2minfiF", 
     ",", "vecF", ",", "FMat", ",", "CFMat", ",", "useFisher", ",", 
     "comboLP"}], "}"}]}], "]"}]], "Input",
 CellLabel->
  "(Local) In[129]:=",ExpressionUUID->"b2772f9d-e242-41ec-8b23-4112dd9a5924"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["5 Adjusting intervals using Fisher",
  FontColor->RGBColor[0, 0, 1]],
 " - can be skipped"
}], "Section",ExpressionUUID->"34c819e1-41c5-4d2d-acfa-07ea615f1f75"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"redo", "=", "1"}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "0", " ", "to", " ", "potentially", " ", "run", " ", "section", " ", "6",
       "a"}], ",", " ", 
     RowBox[{"1", " ", "to", " ", "never", " ", "run", " ", "it"}]}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{"incr", "=", "1"}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "0", " ", "to", " ", "potentially", " ", "run", " ", "section", " ", "6",
       "b"}], ",", " ", 
     RowBox[{"1", " ", "to", " ", "never", " ", "run", " ", "it"}]}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{"adju", "=", "1"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "0", " ", "to", " ", "potentially", " ", "run", " ", "section", " ", "6", 
     "c"}], ",", " ", 
    RowBox[{"1", " ", "to", " ", "never", " ", "run", " ", "it"}]}], " ", 
   "*)"}], "\[IndentingNewLine]"}]], "Input",ExpressionUUID->"79968256-063a-\
447f-b16f-9b2b2d39bb65"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["a Reducing grid intervals (intersection)",
 FontColor->RGBColor[0.6, 0.4, 0.2]]], "Subsection",ExpressionUUID->"808ff4c1-\
0666-4720-aaca-9c46af822220"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"nrisk", "=", "5"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "for", " ", "automatic", " ", "parameter", " ", "intervals", " ", "of", 
     " ", "vecF"}], " ", "\[PlusMinus]", " ", 
    RowBox[{"nrisk", " ", "sigma"}]}], " ", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"If", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"useFisher", "\[Equal]", "1"}], "&&", 
      RowBox[{"redo", "\[Equal]", "0"}]}], "\[IndentingNewLine]", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"redo", "=", "1"}], ";", "\[IndentingNewLine]", 
      RowBox[{"gridspo", "=", 
       RowBox[{"pSet", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"extremaF", "=", 
       RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"AppendTo", "[", 
          RowBox[{"extremaF", ",", 
           RowBox[{"auxex", "=", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"vecF", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "-", 
               RowBox[{"nrisk", " ", 
                RowBox[{
                 RowBox[{"CFMat", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "i"}], "]"}], "]"}], "^", ".5"}]}]}], 
              ",", 
              RowBox[{
               RowBox[{"vecF", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "+", 
               RowBox[{"nrisk", " ", 
                RowBox[{
                 RowBox[{"CFMat", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "i"}], "]"}], "]"}], "^", ".5"}]}]}]}], 
             "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"popo1", "=", 
          RowBox[{"Plot", "[", 
           RowBox[{
            RowBox[{"PDF", "[", 
             RowBox[{
              RowBox[{"NormalDistribution", "[", 
               RowBox[{
                RowBox[{"vecF", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"CFMat", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "i"}], "]"}], "]"}], "^", ".5"}]}], 
               "]"}], ",", "x"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", 
              RowBox[{"auxex", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"auxex", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
            RowBox[{"Frame", "\[Rule]", "True"}], ",", 
            RowBox[{"FrameStyle", "\[Rule]", "12"}], ",", 
            RowBox[{"FrameLabel", "\[Rule]", 
             RowBox[{"parnames", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "300"}], ",", 
            RowBox[{"Axes", "\[Rule]", "False"}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"Darker", "[", "Emerald", "]"}]}], ",", 
            RowBox[{"FrameTicks", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Automatic", ",", "None"}], "}"}]}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"popo2", "=", 
          RowBox[{"Plot", "[", 
           RowBox[{"0", ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", 
              RowBox[{"gridspo", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"gridspo", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"All", ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"2", " ", "\[Pi]", " ", 
                    RowBox[{"CFMat", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "i"}], "]"}], "]"}]}], ")"}], "^", 
                  RowBox[{"-", ".5"}]}]}], "}"}]}], "}"}]}], ",", 
            RowBox[{"Filling", "\[Rule]", "Top"}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", "None"}], ",", 
            RowBox[{"FillingStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
              RowBox[{
               RowBox[{"Opacity", "[", "0.15", "]"}], ",", "Emerald"}], 
              "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"popo", "[", "i", "]"}], "=", 
          RowBox[{"Show", "[", 
           RowBox[{"popo1", ",", "popo2"}], "]"}]}], ";"}], 
        "\[IndentingNewLine]", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"GraphicsRow", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"popo", "[", "i", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}], ",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"Row", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<Suggested nrisk-intervals (x-axes) and original intervals \
\>\"", ",", "16"}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<(green areas)\>\"", ",", "16", ",", 
               RowBox[{"Background", "\[Rule]", 
                RowBox[{"Directive", "[", 
                 RowBox[{
                  RowBox[{"Opacity", "[", "0.15", "]"}], ",", "Emerald"}], 
                 "]"}]}]}], "]"}]}], "}"}], "]"}]}], ",", 
         RowBox[{"Spacings", "\[Rule]", 
          RowBox[{"Scaled", "[", 
           RowBox[{"-", ".2"}], "]"}]}]}], "]"}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"this", " ", "updates", " ", "the", " ", "intervals"}], " ", 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"pSet", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Min", "[", "#", "]"}], ",", 
            RowBox[{"Max", "[", "#", "]"}]}], "}"}], "&"}], ",", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"IntervalIntersection", "[", 
             RowBox[{
              RowBox[{"Interval", "[", 
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
              RowBox[{"Interval", "[", 
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], "&"}], ",", 
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{"extremaF", ",", 
              RowBox[{"pSet", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            "]"}]}], "]"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], 
   ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "the", " ", "following", " ", "makes", " ", "the", " ", "paremeter"}], 
    "-", 
    RowBox[{"space", " ", "grid"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ngrid", "=", 
    RowBox[{"pSet", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ";", 
   RowBox[{"pMin", "=", 
    RowBox[{"pSet", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", 
   RowBox[{"pMax", "=", 
    RowBox[{"pSet", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"ParSpaceTab", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"pTabX", "[", 
        RowBox[{"i", ",", "pMin", ",", "pMax", ",", "ngrid"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ParSpaceTab", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"pTabX", "[", 
       RowBox[{"#", ",", "pMin", ",", "pMax", ",", "ngrid"}], "]"}], "&"}], 
     " ", "/@", 
     RowBox[{"Range", "[", "dpar", "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"TableForm", "[", 
  RowBox[{"pSet", ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"parnames", ",", 
      RowBox[{"{", 
       RowBox[{
       "\"\<min\>\"", ",", "\"\<max\>\"", ",", 
        "\"\<grid  -  updated parameter intervals\>\""}], "}"}]}], "}"}]}]}], 
  "]"}]}], "Input",
 CellLabel->
  "(Local) In[130]:=",ExpressionUUID->"bc043824-8b24-4e63-9b33-3b8d691ab905"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      StyleBox["\[Null]",
       ShowStringCharacters->False], 
      TagBox["\<\"min\"\>",
       HoldForm], 
      TagBox["\<\"max\"\>",
       HoldForm], 
      TagBox["\<\"grid  -  updated parameter intervals\"\>",
       HoldForm]},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalOmega]\\), \
\\(m\\)]\\)\"\>",
       HoldForm], "0.15`", "0.5`", "40"},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(w\\), \\(0\\)]\\)\"\>",
       HoldForm], 
      RowBox[{"-", "1.5`"}], 
      RowBox[{"-", "0.5`"}], "40"},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(w\\), \\(a\\)]\\)\"\>",
       HoldForm], 
      RowBox[{"-", "1"}], "1", "40"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, 
      "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{
      "\!\(\*SubscriptBox[\(\[CapitalOmega]\), \(m\)]\)", 
       "\!\(\*SubscriptBox[\(w\), \(0\)]\)", 
       "\!\(\*SubscriptBox[\(w\), \(a\)]\)"}, {
      "min", "max", "grid  -  updated parameter intervals"}}]]]], "Output",
 CellLabel->
  "(Local) Out[134]//TableForm=",ExpressionUUID->"a8fb265a-192f-4c6c-a9af-\
7c4c08489687"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["b Increasing grid intervals (union)",
 FontColor->RGBColor[0.6, 0.4, 0.2]]], "Subsection",ExpressionUUID->"7f6b054d-\
1bf1-4b6c-a89f-3e1b15b95074"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"nrisk", "=", "5"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "for", " ", "automatic", " ", "parameter", " ", "intervals", " ", "of", 
     " ", "vecF"}], " ", "\[PlusMinus]", " ", 
    RowBox[{"nrisk", " ", "sigma"}]}], " ", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"If", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"useFisher", "\[Equal]", "1"}], "&&", 
      RowBox[{"incr", "\[Equal]", "0"}]}], "\[IndentingNewLine]", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"incr", "=", "1"}], ";", "\[IndentingNewLine]", 
      RowBox[{"gridspo", "=", 
       RowBox[{"pSet", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"extremaF", "=", 
       RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"AppendTo", "[", 
          RowBox[{"extremaF", ",", 
           RowBox[{"auxex", "=", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"vecF", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "-", 
               RowBox[{"nrisk", " ", 
                RowBox[{
                 RowBox[{"CFMat", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "i"}], "]"}], "]"}], "^", ".5"}]}]}], 
              ",", 
              RowBox[{
               RowBox[{"vecF", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "+", 
               RowBox[{"nrisk", " ", 
                RowBox[{
                 RowBox[{"CFMat", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "i"}], "]"}], "]"}], "^", ".5"}]}]}]}], 
             "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"popo1", "=", 
          RowBox[{"Plot", "[", 
           RowBox[{
            RowBox[{"PDF", "[", 
             RowBox[{
              RowBox[{"NormalDistribution", "[", 
               RowBox[{
                RowBox[{"vecF", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"CFMat", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "i"}], "]"}], "]"}], "^", ".5"}]}], 
               "]"}], ",", "x"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", 
              RowBox[{"auxex", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"auxex", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
            RowBox[{"Frame", "\[Rule]", "True"}], ",", 
            RowBox[{"FrameStyle", "\[Rule]", "12"}], ",", 
            RowBox[{"FrameLabel", "\[Rule]", 
             RowBox[{"parnames", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "300"}], ",", 
            RowBox[{"Axes", "\[Rule]", "False"}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"Darker", "[", "Emerald", "]"}]}], ",", 
            RowBox[{"FrameTicks", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Automatic", ",", "None"}], "}"}]}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"popo2", "=", 
          RowBox[{"Plot", "[", 
           RowBox[{"0", ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", 
              RowBox[{"gridspo", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"gridspo", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"All", ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"2", " ", "\[Pi]", " ", 
                    RowBox[{"CFMat", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "i"}], "]"}], "]"}]}], ")"}], "^", 
                  RowBox[{"-", ".5"}]}]}], "}"}]}], "}"}]}], ",", 
            RowBox[{"Filling", "\[Rule]", "Top"}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", "None"}], ",", 
            RowBox[{"FillingStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
              RowBox[{
               RowBox[{"Opacity", "[", "0.15", "]"}], ",", "Emerald"}], 
              "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"popo", "[", "i", "]"}], "=", 
          RowBox[{"Show", "[", 
           RowBox[{"popo1", ",", "popo2"}], "]"}]}], ";"}], 
        "\[IndentingNewLine]", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"GraphicsRow", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"popo", "[", "i", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}], ",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"Row", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<Suggested nrisk-intervals (x-axes) and original intervals \
\>\"", ",", "16"}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<(green areas)\>\"", ",", "16", ",", 
               RowBox[{"Background", "\[Rule]", 
                RowBox[{"Directive", "[", 
                 RowBox[{
                  RowBox[{"Opacity", "[", "0.15", "]"}], ",", "Emerald"}], 
                 "]"}]}]}], "]"}]}], "}"}], "]"}]}], ",", 
         RowBox[{"Spacings", "\[Rule]", 
          RowBox[{"Scaled", "[", 
           RowBox[{"-", ".2"}], "]"}]}]}], "]"}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"this", " ", "updates", " ", "the", " ", "intervals"}], " ", 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"pSet", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Min", "[", "#", "]"}], ",", 
            RowBox[{"Max", "[", "#", "]"}]}], "}"}], "&"}], ",", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"IntervalUnion", "[", 
             RowBox[{
              RowBox[{"Interval", "[", 
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
              RowBox[{"Interval", "[", 
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], "&"}], ",", 
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{"extremaF", ",", 
              RowBox[{"pSet", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            "]"}]}], "]"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], 
   ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "the", " ", "following", " ", "makes", " ", "the", " ", "paremeter"}], 
    "-", 
    RowBox[{"space", " ", "grid"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ngrid", "=", 
    RowBox[{"pSet", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ";", 
   RowBox[{"pMin", "=", 
    RowBox[{"pSet", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", 
   RowBox[{"pMax", "=", 
    RowBox[{"pSet", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"ParSpaceTab", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"pTabX", "[", 
        RowBox[{"i", ",", "pMin", ",", "pMax", ",", "ngrid"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ParSpaceTab", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"pTabX", "[", 
       RowBox[{"#", ",", "pMin", ",", "pMax", ",", "ngrid"}], "]"}], "&"}], 
     " ", "/@", 
     RowBox[{"Range", "[", "dpar", "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"TableForm", "[", 
  RowBox[{"pSet", ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"parnames", ",", 
      RowBox[{"{", 
       RowBox[{
       "\"\<min\>\"", ",", "\"\<max\>\"", ",", 
        "\"\<grid  -  updated parameter intervals\>\""}], "}"}]}], "}"}]}]}], 
  "]"}]}], "Input",
 CellLabel->
  "(Local) In[135]:=",ExpressionUUID->"9bcc6932-bb35-463f-be63-3b393d93533c"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      StyleBox["\[Null]",
       ShowStringCharacters->False], 
      TagBox["\<\"min\"\>",
       HoldForm], 
      TagBox["\<\"max\"\>",
       HoldForm], 
      TagBox["\<\"grid  -  updated parameter intervals\"\>",
       HoldForm]},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalOmega]\\), \
\\(m\\)]\\)\"\>",
       HoldForm], "0.15`", "0.5`", "40"},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(w\\), \\(0\\)]\\)\"\>",
       HoldForm], 
      RowBox[{"-", "1.5`"}], 
      RowBox[{"-", "0.5`"}], "40"},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(w\\), \\(a\\)]\\)\"\>",
       HoldForm], 
      RowBox[{"-", "1"}], "1", "40"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, 
      "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{
      "\!\(\*SubscriptBox[\(\[CapitalOmega]\), \(m\)]\)", 
       "\!\(\*SubscriptBox[\(w\), \(0\)]\)", 
       "\!\(\*SubscriptBox[\(w\), \(a\)]\)"}, {
      "min", "max", "grid  -  updated parameter intervals"}}]]]], "Output",
 CellLabel->
  "(Local) Out[139]//TableForm=",ExpressionUUID->"1e9911f7-aabd-4c45-9e48-\
a00952934de4"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["c Adjusting grid intervals (Fisher only)",
 FontColor->RGBColor[0.6, 0.4, 0.2]]], "Subsection",ExpressionUUID->"d4e21bdf-\
407a-479e-944e-4c95c97605ff"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"nrisk", "=", "5"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "for", " ", "automatic", " ", "parameter", " ", "intervals", " ", "of", 
     " ", "vecF"}], " ", "\[PlusMinus]", " ", 
    RowBox[{"nrisk", " ", "sigma"}]}], " ", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"If", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"useFisher", "\[Equal]", "1"}], "&&", 
      RowBox[{"adju", "\[Equal]", "0"}]}], "\[IndentingNewLine]", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"adju", "=", "1"}], ";", "\[IndentingNewLine]", 
      RowBox[{"gridspo", "=", 
       RowBox[{"pSet", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"extremaF", "=", 
       RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"AppendTo", "[", 
          RowBox[{"extremaF", ",", 
           RowBox[{"auxex", "=", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"vecF", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "-", 
               RowBox[{"nrisk", " ", 
                RowBox[{
                 RowBox[{"CFMat", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "i"}], "]"}], "]"}], "^", ".5"}]}]}], 
              ",", 
              RowBox[{
               RowBox[{"vecF", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "+", 
               RowBox[{"nrisk", " ", 
                RowBox[{
                 RowBox[{"CFMat", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "i"}], "]"}], "]"}], "^", ".5"}]}]}]}], 
             "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"popo1", "=", 
          RowBox[{"Plot", "[", 
           RowBox[{
            RowBox[{"PDF", "[", 
             RowBox[{
              RowBox[{"NormalDistribution", "[", 
               RowBox[{
                RowBox[{"vecF", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"CFMat", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "i"}], "]"}], "]"}], "^", ".5"}]}], 
               "]"}], ",", "x"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", 
              RowBox[{"auxex", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"auxex", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
            RowBox[{"Frame", "\[Rule]", "True"}], ",", 
            RowBox[{"FrameStyle", "\[Rule]", "12"}], ",", 
            RowBox[{"FrameLabel", "\[Rule]", 
             RowBox[{"parnames", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "300"}], ",", 
            RowBox[{"Axes", "\[Rule]", "False"}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"Darker", "[", "Emerald", "]"}]}], ",", 
            RowBox[{"FrameTicks", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Automatic", ",", "None"}], "}"}]}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"popo2", "=", 
          RowBox[{"Plot", "[", 
           RowBox[{"0", ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", 
              RowBox[{"gridspo", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"gridspo", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"All", ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"2", " ", "\[Pi]", " ", 
                    RowBox[{"CFMat", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "i"}], "]"}], "]"}]}], ")"}], "^", 
                  RowBox[{"-", ".5"}]}]}], "}"}]}], "}"}]}], ",", 
            RowBox[{"Filling", "\[Rule]", "Top"}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", "None"}], ",", 
            RowBox[{"FillingStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
              RowBox[{
               RowBox[{"Opacity", "[", "0.15", "]"}], ",", "Emerald"}], 
              "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"popo", "[", "i", "]"}], "=", 
          RowBox[{"Show", "[", 
           RowBox[{"popo1", ",", "popo2"}], "]"}]}], ";"}], 
        "\[IndentingNewLine]", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"GraphicsRow", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"popo", "[", "i", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}], ",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"Row", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<Suggested nrisk-intervals (x-axes) and original intervals \
\>\"", ",", "16"}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<(green areas)\>\"", ",", "16", ",", 
               RowBox[{"Background", "\[Rule]", 
                RowBox[{"Directive", "[", 
                 RowBox[{
                  RowBox[{"Opacity", "[", "0.15", "]"}], ",", "Emerald"}], 
                 "]"}]}]}], "]"}]}], "}"}], "]"}]}], ",", 
         RowBox[{"Spacings", "\[Rule]", 
          RowBox[{"Scaled", "[", 
           RowBox[{"-", ".2"}], "]"}]}]}], "]"}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"this", " ", "updates", " ", "the", " ", "intervals"}], " ", 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"pSet", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], "=", "extremaF"}], 
      ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "the", " ", "following", " ", "makes", " ", "the", " ", "paremeter"}], 
    "-", 
    RowBox[{"space", " ", "grid"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ngrid", "=", 
    RowBox[{"pSet", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ";", 
   RowBox[{"pMin", "=", 
    RowBox[{"pSet", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", 
   RowBox[{"pMax", "=", 
    RowBox[{"pSet", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"ParSpaceTab", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"pTabX", "[", 
        RowBox[{"i", ",", "pMin", ",", "pMax", ",", "ngrid"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "dpar"}], "}"}]}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ParSpaceTab", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"pTabX", "[", 
       RowBox[{"#", ",", "pMin", ",", "pMax", ",", "ngrid"}], "]"}], "&"}], 
     " ", "/@", 
     RowBox[{"Range", "[", "dpar", "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"TableForm", "[", 
  RowBox[{"pSet", ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"parnames", ",", 
      RowBox[{"{", 
       RowBox[{
       "\"\<min\>\"", ",", "\"\<max\>\"", ",", 
        "\"\<grid  -  updated parameter intervals\>\""}], "}"}]}], "}"}]}]}], 
  "]"}]}], "Input",
 CellLabel->
  "(Local) In[140]:=",ExpressionUUID->"fa90cd18-0caf-4752-bbd4-5478e4c4facd"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      StyleBox["\[Null]",
       ShowStringCharacters->False], 
      TagBox["\<\"min\"\>",
       HoldForm], 
      TagBox["\<\"max\"\>",
       HoldForm], 
      TagBox["\<\"grid  -  updated parameter intervals\"\>",
       HoldForm]},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalOmega]\\), \
\\(m\\)]\\)\"\>",
       HoldForm], "0.15`", "0.5`", "40"},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(w\\), \\(0\\)]\\)\"\>",
       HoldForm], 
      RowBox[{"-", "1.5`"}], 
      RowBox[{"-", "0.5`"}], "40"},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(w\\), \\(a\\)]\\)\"\>",
       HoldForm], 
      RowBox[{"-", "1"}], "1", "40"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, 
      "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{
      "\!\(\*SubscriptBox[\(\[CapitalOmega]\), \(m\)]\)", 
       "\!\(\*SubscriptBox[\(w\), \(0\)]\)", 
       "\!\(\*SubscriptBox[\(w\), \(a\)]\)"}, {
      "min", "max", "grid  -  updated parameter intervals"}}]]]], "Output",
 CellLabel->
  "(Local) Out[144]//TableForm=",ExpressionUUID->"d1915789-890e-4d6e-9bbc-\
e6dd768638ba"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["d Flat prior (re)normalization",
 FontColor->RGBColor[0.6, 0.4, 0.2]]], "Subsection",ExpressionUUID->"2651632b-\
f27e-49f2-acec-fa0e5c221d87"],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mvprior", "\[Equal]", "0"}], "\[IndentingNewLine]", ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"normPrior", "=", 
      RowBox[{"(", 
       RowBox[{"Times", "@@", 
        RowBox[{"Flatten", "[", 
         RowBox[{"Map", "[", 
          RowBox[{"Differences", ",", 
           RowBox[{"pSet", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], "]"}], 
         "]"}]}], ")"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Prior", "[", 
       RowBox[{"vec_", "?", "VectorQ"}], "]"}], ":=", 
      RowBox[{"1", "/", "normPrior"}]}], ";", " ", 
     RowBox[{"(*", " ", 
      RowBox[{"normalization", ",", " ", 
       RowBox[{"necessary", " ", "for", " ", "the", " ", "evidence"}]}], " ", 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"chi2P", "[", 
       RowBox[{"vec_", "?", "VectorQ"}], "]"}], ":=", 
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"Log", "[", 
        RowBox[{"Prior", "[", "vec", "]"}], "]"}]}]}], ";", " ", 
     RowBox[{"(*", " ", 
      RowBox[{"step", " ", "function", " ", "for", " ", "prior"}], " ", 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{"chi2minfiF", "=", 
      RowBox[{"chi2", "[", "vecF", "]"}]}], ";"}]}], "\[IndentingNewLine]", 
   "]"}], ";"}]], "Input",
 CellLabel->
  "(Local) In[145]:=",ExpressionUUID->"c3d7182a-d61e-4c8f-b4de-d96366f9417c"],

Cell[BoxData[
 RowBox[{"Save", "[", 
  RowBox[{
   RowBox[{"ToFileName", "[", 
    RowBox[{"\"\<results-chi2\>\"", ",", 
     RowBox[{"rname", "<>", "\"\<_run\>\"", "<>", 
      RowBox[{"ToString", "[", "run", "]"}], "<>", "\"\<-log.txt\>\""}]}], 
    "]"}], ",", 
   RowBox[{"{", "chi2minfiF", "}"}]}], "]"}]], "Input",
 CellLabel->
  "(Local) In[146]:=",ExpressionUUID->"d1f43c11-3e68-4876-9fbc-d387c18576c2"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["6 n-Evidence",
  FontColor->RGBColor[0, 0, 1]],
 " - can be skipped"
}], "Section",ExpressionUUID->"26a50104-84f0-4360-b4f9-20899c453e30"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"nEvi", "=", "0"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"0", " ", "to", " ", "skip", " ", "it"}], ",", " ", 
    RowBox[{"otherwise", " ", "your", " ", "sigma", " ", "value"}]}], " ", 
   "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Which", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"nEvi", "\[Equal]", "0"}], ",", "\[IndentingNewLine]", "Null", 
     "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"mvprior", "\[Equal]", "1"}], "&&", 
      RowBox[{"useFisher", "\[Equal]", "1"}], "&&", 
      RowBox[{"comboLP", "\[Equal]", "1"}]}], "\[IndentingNewLine]", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"FEvi", "=", 
       RowBox[{"Lmax", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", "\[Pi]"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"dpar", "/", "2"}], ")"}]}], 
        RowBox[{
         RowBox[{"Det", "[", "FMat", "]"}], "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "/", "2"}], ")"}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"NEvi", "=", 
       RowBox[{"NEvidence", "[", 
        RowBox[{"vecF", ",", "FMat", ",", "nEvi"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"NFEvi", "=", 
       RowBox[{
        RowBox[{"PLike", "[", "vecF", "]"}], "/", 
        RowBox[{"PosteriorF", "[", "vecF", "]"}]}]}], ";"}], 
     "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"mvprior", "\[Equal]", "1"}], "&&", 
      RowBox[{"useFisher", "\[Equal]", "1"}]}], "\[IndentingNewLine]", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"see", " ", 
       RowBox[{"eq", ".", 
        RowBox[{"(", "14", ")"}]}], " ", "of", " ", 
       RowBox[{"arXiv", ":", "1209.1897"}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"FEvi", "=", 
       RowBox[{"Lmax", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Det", "[", "PMat", "]"}], "/", " ", 
           RowBox[{"Det", "[", "FMat", "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"1", "/", "2"}], ")"}]}], " ", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "1"}], "/", "2"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"vecL", "-", "vecP"}], ")"}], ".", 
           RowBox[{"(", 
            RowBox[{"LMat", ".", 
             RowBox[{"Inverse", "[", "FMat", "]"}], ".", "PMat"}], ")"}], ".", 
           RowBox[{"(", 
            RowBox[{"vecL", "-", "vecP"}], ")"}]}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"NEvi", "=", 
       RowBox[{"NEvidence", "[", 
        RowBox[{"vecF", ",", "FMat", ",", "nEvi"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"NFEvi", "=", 
       RowBox[{
        RowBox[{"PLike", "[", "vecF", "]"}], "/", 
        RowBox[{"PosteriorF", "[", "vecF", "]"}]}]}], ";"}], 
     "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
     RowBox[{"useFisher", "\[Equal]", "1"}], "\[IndentingNewLine]", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"FEvi", "=", 
       RowBox[{
        RowBox[{"1", "/", "normPrior"}], " ", "Lmax", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", "\[Pi]"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"dpar", "/", "2"}], ")"}]}], 
        RowBox[{
         RowBox[{"Det", "[", "LMat", "]"}], "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "/", "2"}], ")"}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"NEvi", "=", " ", 
       RowBox[{"NEvidence", "[", 
        RowBox[{"vecL", ",", "LMat", ",", "nEvi"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"NFEvi", "=", 
       RowBox[{
        RowBox[{"PLike", "[", "vecL", "]"}], "/", 
        RowBox[{"PosteriorF", "[", "vecL", "]"}]}]}], ";"}]}], 
    "\[IndentingNewLine]", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"nEvi", "\[NotEqual]", "0"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Print", "[", 
      RowBox[{"Row", "[", 
       RowBox[{"{", 
        RowBox[{"\"\<Fisher evidence: Log E=\>\"", ",", 
         RowBox[{"logFEvi", "=", 
          RowBox[{"Chop", "[", 
           RowBox[{"Log", "[", "FEvi", "]"}], "]"}]}]}], "}"}], "]"}], "]"}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"Row", "[", 
       RowBox[{"{", 
        RowBox[{"\"\<Numeric evidence: Log E=\>\"", ",", 
         RowBox[{"logNEvi", "=", 
          RowBox[{"Log", "[", "NEvi", "]"}]}], ",", 
         "\"\<  -  limiting the integration within the n-\[Sigma] Fisher \
ellipsoid\>\""}], "}"}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"Row", "[", 
       RowBox[{"{", 
        RowBox[{"\"\<'Numeric' Fisher: Log E=\>\"", ",", 
         RowBox[{"logFNEvi", "=", 
          RowBox[{"Log", "[", "NFEvi", "]"}]}]}], "}"}], "]"}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Save", "[", 
      RowBox[{
       RowBox[{"ToFileName", "[", 
        RowBox[{"\"\<results-chi2\>\"", ",", 
         RowBox[{"rname", "<>", "\"\<_run\>\"", "<>", 
          RowBox[{"ToString", "[", "run", "]"}], "<>", "\"\<-log.txt\>\""}]}],
         "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"logNEvi", ",", "logFEvi"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"(", "normalized", ")"}], " ", "posterior", " ", 
       "distribution"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Posterior", "[", 
       RowBox[{"vec_", "?", "VectorQ"}], "]"}], ":=", 
      RowBox[{
       RowBox[{"PLike", "[", "vec", "]"}], "/", "NEvi"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"PosteriorF2", "[", 
       RowBox[{"vec_", "?", "VectorQ"}], "]"}], ":=", 
      RowBox[{
       RowBox[{"PLike", "[", "vec", "]"}], "/", "FEvi"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Posterior", "[", "vecF", "]"}], ",", 
        RowBox[{"PosteriorF2", "[", "vecF", "]"}], ",", 
        RowBox[{"PosteriorF", "[", "vecF", "]"}]}], "}"}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Posterior", "[", "vecsol", "]"}], ",", 
        RowBox[{"PosteriorF2", "[", "vecsol", "]"}], ",", 
        RowBox[{"PosteriorF", "[", "vecsol", "]"}]}], "}"}], "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}]}], "Input",ExpressionUUID->"38ac59c1-\
bbf1-48b7-8047-f510821e4b02"],

Cell[CellGroupData[{

Cell[BoxData[
 TemplateBox[{
  "\"Fisher evidence: Log E=\"",RowBox[{"-", "21.470763523249822`"}]},
  "RowDefault"]], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[147]:=",ExpressionUUID->"8eec170a-6adb-49ed-ab3f-4beac91401bd"],

Cell[BoxData[
 TemplateBox[{
  "\"Numeric evidence: Log E=\"",RowBox[{"-", "21.745150236397926`"}],
   "\"  -  limiting the integration within the n-\[Sigma] Fisher ellipsoid\""},
  "RowDefault"]], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[147]:=",ExpressionUUID->"a5de355b-7b05-4116-b0ec-cafc1a82cca9"],

Cell[BoxData[
 TemplateBox[{
  "\"'Numeric' Fisher: Log E=\"",RowBox[{"-", "21.470763523249822`"}]},
  "RowDefault"]], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[147]:=",ExpressionUUID->"9894bdc4-ecd0-4c49-8da0-73385de9dadf"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["7 chi2 table",
 FontColor->RGBColor[1, 0, 0]]], "Section",ExpressionUUID->"a4600738-056d-\
4cf4-b4cd-6b8baeb20217"],

Cell[CellGroupData[{

Cell["a Preparation", "Subsection",ExpressionUUID->"2617a760-982e-465c-b90b-518f050d264c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"LaunchKernels", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{"ncompkern", "=", 
  RowBox[{"Length", "[", 
   RowBox[{"Kernels", "[", "]"}], "]"}]}]}], "Input",
 CellLabel->
  "(Local) In[157]:=",ExpressionUUID->"bc3fec40-2bd2-4447-bce7-c926a44fbde9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"5", ",", "\<\"local\"\>"}], "]"}], ",", 
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"6", ",", "\<\"local\"\>"}], "]"}], ",", 
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"7", ",", "\<\"local\"\>"}], "]"}], ",", 
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"8", ",", "\<\"local\"\>"}], "]"}], ",", 
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"9", ",", "\<\"local\"\>"}], "]"}], ",", 
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"10", ",", "\<\"local\"\>"}], "]"}], ",", 
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"11", ",", "\<\"local\"\>"}], "]"}], ",", 
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"12", ",", "\<\"local\"\>"}], "]"}], ",", 
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"13", ",", "\<\"local\"\>"}], "]"}], ",", 
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"14", ",", "\<\"local\"\>"}], "]"}]}], "}"}]], "Output",
 CellLabel->
  "(Local) Out[157]=",ExpressionUUID->"78c80412-9335-404a-a05a-bb254d745a99"],

Cell[BoxData["10"], "Output",
 CellLabel->
  "(Local) Out[158]=",ExpressionUUID->"17d64e48-68d6-4533-99f2-dff9b1eceb18"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"nco", "=", "32"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "number", " ", "of", " ", "points", " ", "to", " ", "be", " ", "computed",
      " ", "in", " ", "order", " ", "to", " ", "estimate", " ", "total", " ", 
     "time"}], " ", "-", " ", 
    RowBox[{"not", " ", "working", " ", "well"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ere", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ParallelTable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"ere", "=", 
       RowBox[{"RandomReal", "[", 
        RowBox[{"{", 
         RowBox[{".9", ",", "1.1"}], "}"}], "]"}]}], ";", 
      RowBox[{
       RowBox[{"AbsoluteTiming", "[", 
        RowBox[{
         RowBox[{"chi2", "[", 
          RowBox[{"Evaluate", "[", 
           RowBox[{"vecsol", " ", "ere"}], "]"}], "]"}], ";"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ",", 
     RowBox[{"{", "$KernelCount", "}"}]}], "]"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"to", " ", "load", " ", "stuff"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AbsoluteTiming", "[", 
   RowBox[{
    RowBox[{"auxte", "=", 
     RowBox[{"ParallelTable", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"ere", "=", 
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{".9", ",", "1.1"}], "}"}], "]"}]}], ";", 
        RowBox[{
         RowBox[{"AbsoluteTiming", "[", 
          RowBox[{
           RowBox[{"chi2", "[", 
            RowBox[{"Evaluate", "[", 
             RowBox[{"vecsol", " ", "ere"}], "]"}], "]"}], ";"}], "]"}], "[", 
         
         RowBox[{"[", "1", "]"}], "]"}]}], ",", 
       RowBox[{"{", "nco", "}"}]}], "]"}]}], ";"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tempo1", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"Total", "[", "auxte", "]"}], "/", "$KernelCount"}], "/", 
     "nco"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"glevel", "=", "0"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "restricting", " ", "the", " ", "grid", " ", "to", " ", "within", " ", 
      "the", " ", "glevel"}], "-", 
     RowBox[{"\[Sigma]", " ", "Fisher", " ", "ellipsoid"}]}], ";", " ", 
    RowBox[{"0", " ", "for", " ", "a", " ", "full", " ", "exploration"}]}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"useFisher", "\[Equal]", "1"}], "&&", 
     RowBox[{"glevel", "\[NotEqual]", "0"}]}], "\[IndentingNewLine]", ",", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"alevel", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"CDF", "[", 
              RowBox[{
               RowBox[{"ChiSquareDistribution", "[", "dpar", "]"}], ",", 
               "x"}], "]"}], "==", 
             RowBox[{"v", "[", "glevel", "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "10"}], "}"}]}], "]"}]}], ")"}], "^", ".5"}]}],
       ";"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"alevel", "=", 
      RowBox[{
       RowBox[{"levhi2", "[", 
        RowBox[{"dpar", ",", "glevel"}], "]"}], "^", 
       RowBox[{"(", 
        RowBox[{"1", "/", "2"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
        RowBox[{"chi2vecx", "[", "vec_", "]"}], ":=", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"gtest", "[", 
           RowBox[{"vec", ",", "alevel", ",", "FMat", ",", "vecF"}], "]"}], 
          ",", 
          RowBox[{"chi2vec", "[", "vec", "]"}], ",", 
          RowBox[{"Join", "[", 
           RowBox[{"vec", ",", 
            RowBox[{"{", 
             RowBox[{"chi2F", "[", "vec", "]"}], "}"}]}], "]"}]}], "]"}]}], 
       ";"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"chi2x", "[", "vec_", "]"}], ":=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"gtest", "[", 
         RowBox[{"vec", ",", "alevel", ",", "FMat", ",", "vecF"}], "]"}], ",", 
        RowBox[{"chi2", "[", "vec", "]"}], ",", "chi2cut"}], 
       RowBox[{"(*", 
        RowBox[{"chi2F", "[", "vec", "]"}], "*)"}], "]"}]}], ";", 
     RowBox[{"(*", " ", 
      RowBox[{
      "using", " ", "Fisher", " ", "to", " ", "give", " ", "the", " ", 
       "right", " ", "order", " ", "of", " ", "magnitude"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"Print", "[", 
        RowBox[{"AbsoluteTiming", "[", 
         RowBox[{
          RowBox[{"ppTab", "=", 
           RowBox[{"ParallelTable", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"btest", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"take", "[", 
                  RowBox[{"ParSpaceTab", ",", 
                   RowBox[{"{", 
                    RowBox[{"i", ",", "i"}], "}"}]}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], ",", "alevel", ",", "FMat", 
                ",", "vecF"}], "]"}], ")"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", 
               RowBox[{"Times", "@@", "ngrid"}]}], "}"}]}], "]"}]}], ";"}], 
         "]"}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"tpoints", "=", 
         RowBox[{"Total", "[", "ppTab", "]"}]}], "]"}], ";"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"volume", " ", "glevel"}], "-", 
       RowBox[{
       "\[Sigma]", " ", "Fisher", " ", "ellipsoid", " ", "over", " ", "total",
         " ", "volume"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"volratio", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["\[Pi]", 
           RowBox[{"dpar", "/", "2"}]], 
          RowBox[{"Gamma", "[", 
           RowBox[{
            RowBox[{"dpar", "/", "2"}], "+", "1"}], "]"}]], 
         RowBox[{"glevel", "^", "dpar"}], " ", 
         RowBox[{"Times", "@@", 
          RowBox[{"Sqrt", "[", 
           RowBox[{"Eigenvalues", "[", "CFMat", "]"}], "]"}]}]}], ")"}], "/", 
       
       RowBox[{"(", 
        RowBox[{"Times", "@@", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Differences", "/@", 
           RowBox[{"pSet", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], "]"}]}], 
        ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"Row", "[", 
       RowBox[{"{", 
        RowBox[{"\"\<Volume reduction: \>\"", ",", 
         RowBox[{"Round", "[", 
          RowBox[{
           RowBox[{"1", "/", "volratio"}], ",", ".1"}], "]"}]}], "}"}], "]"}],
       "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"tpoints", "=", 
      RowBox[{"volratio", " ", 
       RowBox[{"Times", "@@", "ngrid"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"estime1", "=", 
       RowBox[{"Row", "[", 
        RowBox[{"{", 
         RowBox[{"\"\<Estimated wall-clock time: \>\"", ",", 
          RowBox[{"tpoints", " ", 
           RowBox[{"tempo1", "/", "60"}]}], ",", "\"\< min or \>\"", ",", 
          RowBox[{"tpoints", " ", 
           RowBox[{"tempo1", "/", 
            RowBox[{"60", "^", "2"}]}]}], ",", "\"\< hours\>\""}], "}"}], 
        "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"Row", "[", 
       RowBox[{"{", 
        RowBox[{"\"\<Posterior exploration will end on \>\"", ",", 
         RowBox[{"DatePlus", "[", 
          RowBox[{"Quantity", "[", 
           RowBox[{
            RowBox[{"tpoints", " ", "tempo1"}], ",", "\"\<Seconds\>\""}], 
           "]"}], "]"}]}], "}"}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"estime2", "=", 
       RowBox[{"Row", "[", 
        RowBox[{"{", 
         RowBox[{"\"\<Total number of points: \>\"", ",", 
          RowBox[{"Round", "[", "tpoints", "]"}], ",", "\"\< instead of \>\"",
           ",", 
          RowBox[{"Times", "@@", "ngrid"}]}], "}"}], "]"}]}], "]"}], ";"}], 
    "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
       RowBox[{"chi2vecx", "[", "vec_", "]"}], ":=", 
       RowBox[{"chi2vec", "[", "vec", "]"}]}], ";"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"chi2x", "[", "vec_", "]"}], ":=", 
      RowBox[{"chi2", "[", "vec", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"estime1", "=", 
       RowBox[{"Row", "[", 
        RowBox[{"{", 
         RowBox[{"\"\<Estimated wall-clock time: \>\"", ",", 
          RowBox[{
           RowBox[{"Times", "@@", "ngrid"}], " ", 
           RowBox[{"tempo1", "/", "60"}]}], ",", "\"\< min or \>\"", ",", 
          RowBox[{
           RowBox[{"Times", "@@", "ngrid"}], " ", 
           RowBox[{"tempo1", "/", 
            RowBox[{"60", "^", "2"}]}]}], ",", "\"\< hours\>\""}], "}"}], 
        "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"Row", "[", 
       RowBox[{"{", 
        RowBox[{"\"\<Posterior exploration will end on \>\"", ",", 
         RowBox[{"DatePlus", "[", 
          RowBox[{"Quantity", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Times", "@@", "ngrid"}], " ", "tempo1"}], ",", 
            "\"\<Seconds\>\""}], "]"}], "]"}]}], "}"}], "]"}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"estime2", "=", 
       RowBox[{"Row", "[", 
        RowBox[{"{", 
         RowBox[{"\"\<Total number of points: \>\"", ",", 
          RowBox[{"Times", "@@", "ngrid"}]}], "}"}], "]"}]}], "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Save", "[", 
  RowBox[{
   RowBox[{"ToFileName", "[", 
    RowBox[{"\"\<results-chi2\>\"", ",", 
     RowBox[{"rname", "<>", "\"\<_run\>\"", "<>", 
      RowBox[{"ToString", "[", "run", "]"}], "<>", "\"\<-log.txt\>\""}]}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"ncompkern", ",", "estime1", ",", "estime2"}], "}"}]}], 
  "]"}]}], "Input",ExpressionUUID->"c211c595-ca14-4065-a8c9-fbb01301de53"],

Cell[CellGroupData[{

Cell[BoxData[
 TemplateBox[{
  "\"Estimated wall-clock time: \"","0.41658`","\" min or \"","0.006943`",
   "\" hours\""},
  "RowDefault"]], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[159]:=",ExpressionUUID->"4b3da0b5-6a12-4937-b712-6e8c380a78fb"],

Cell[BoxData[
 TemplateBox[{"\"Posterior exploration will end on \"",TemplateBox[{
     RowBox[{"\"Thu 24 May 2018 17:02:17\"", 
       StyleBox[
        RowBox[{"\"GMT\"", "\[InvisibleSpace]", 
          StyleBox[
           RowBox[{"-", "3.`"}], NumberMarks -> False, StripOnInput -> 
           False]}], FontColor -> GrayLevel[0.5]]}], 
     RowBox[{"DateObject", "[", 
       RowBox[{
         RowBox[{"{", 
           
           RowBox[{"2018", ",", "5", ",", "24", ",", "17", ",", "2", ",", 
             "17.559916019439697`"}], "}"}], ",", "\"Instant\"", ",", 
         "\"Gregorian\"", ",", 
         RowBox[{"-", "3.`"}]}], "]"}]}, "DateObject", Editable -> False]},
  "RowDefault"]], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[159]:=",ExpressionUUID->"30818128-1eae-4f22-bbb1-cee6a014c743"],

Cell[BoxData[
 TemplateBox[{"\"Total number of points: \"","64000"},
  "RowDefault"]], "Print",
 CellLabel->
  "During evaluation of (Local) \
In[159]:=",ExpressionUUID->"0eb776de-ac04-4f1f-af6e-ea79277ea486"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["b Computation", "Subsection",ExpressionUUID->"a92f7429-5c41-496c-9b36-2fe2da1919f8"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"AbsoluteTiming", "[", 
   RowBox[{
    RowBox[{"DistributeDefinitions", "[", "\"\<Global`\>\"", "]"}], ";"}], 
   "]"}], "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tta", " ", "=", " ", 
    RowBox[{"SessionTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"chi2Tab", "=", 
     RowBox[{"ParallelMap", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"chi2", "[", "#", "]"}], ")"}], "&"}], ",", 
       RowBox[{"Tuples", "[", "ParSpaceTab", "]"}]}], "]"}]}], ";"}], 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"chi2Tab", "=", 
   RowBox[{"ParallelTable", "[", 
    RowBox[{
     RowBox[{"chi2x", "[", 
      RowBox[{
       RowBox[{"take", "[", 
        RowBox[{"ParSpaceTab", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "i"}], "}"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Times", "@@", "ngrid"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dtt", "=", 
    RowBox[{
     RowBox[{"SessionTime", "[", "]"}], "-", "tta"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", "pronto", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Row", "[", 
  RowBox[{"{", 
   RowBox[{"\"\<Calculation ended on \>\"", ",", 
    RowBox[{"DateString", "[", "]"}]}], "}"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Row", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Round", "[", 
     RowBox[{
      RowBox[{"dtt", "/", 
       RowBox[{"60", "^", "2"}]}], ",", ".1"}], "]"}], ",", "\"\<h or \>\"", 
    ",", 
    RowBox[{"Round", "[", 
     RowBox[{
      RowBox[{"dtt", "/", "60"}], ",", ".1"}], "]"}], ",", 
    "\"\<m of total computation\>\""}], "}"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Row", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Round", "[", 
     RowBox[{
      RowBox[{"dtt", "/", 
       RowBox[{"(", 
        RowBox[{"Times", "@@", "ngrid"}], ")"}]}], ",", ".001"}], "]"}], ",", 
    "\"\<s per grid point\>\""}], "}"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"logrun", "=", 
   RowBox[{"Row", "[", 
    RowBox[{"{", 
     RowBox[{"\"\<Calculation ended on \>\"", ",", 
      RowBox[{"DateString", "[", "]"}], ",", "\"\<  -  \>\"", ",", 
      RowBox[{"Round", "[", 
       RowBox[{
        RowBox[{"dtt", "/", 
         RowBox[{"60", "^", "2"}]}], ",", ".1"}], "]"}], ",", "\"\<h or \>\"",
       ",", 
      RowBox[{"Round", "[", 
       RowBox[{
        RowBox[{"dtt", "/", "60"}], ",", ".1"}], "]"}], ",", 
      "\"\<m of total computation  -  \>\"", ",", 
      RowBox[{"Round", "[", 
       RowBox[{
        RowBox[{"dtt", "/", 
         RowBox[{"(", 
          RowBox[{"Times", "@@", "ngrid"}], ")"}]}], ",", ".00001"}], "]"}], 
      ",", "\"\<s per grid point\>\""}], "}"}], "]"}]}], ";"}]}], "Input",
 CellLabel->
  "(Local) In[167]:=",ExpressionUUID->"7eec9cc2-0419-479b-896c-f4d12e27b804"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.874978`", ",", "Null"}], "}"}]], "Output",
 CellLabel->
  "(Local) Out[167]=",ExpressionUUID->"049f27a4-9e1b-4e35-9f95-3f10fc7ed254"],

Cell[BoxData[
 TemplateBox[{"\"Calculation ended on \"","\"Thu 24 May 2018 17:02:21\""},
  "RowDefault"]], "Output",
 CellLabel->
  "(Local) Out[171]=",ExpressionUUID->"5deb204d-c302-42fe-9f91-c3ebd3d3b50e"],

Cell[BoxData[
 TemplateBox[{"0.`","\"h or \"","0.5`","\"m of total computation\""},
  "RowDefault"]], "Output",
 CellLabel->
  "(Local) Out[172]=",ExpressionUUID->"f3fb1a22-876a-45bc-94e7-71cb29d7f94b"],

Cell[BoxData[
 TemplateBox[{"0.`","\"s per grid point\""},
  "RowDefault"]], "Output",
 CellLabel->
  "(Local) Out[173]=",ExpressionUUID->"0e406588-75af-4519-a454-dd2954709341"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"sanity", " ", "check"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"stest", "=", 
    RowBox[{"Total", "[", 
     RowBox[{"Im", "[", 
      RowBox[{"chi2Tab", "[", 
       RowBox[{"[", "All", "]"}], "]"}], "]"}], "]"}]}], ";", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"stest", "\[NotEqual]", " ", "0"}], ",", 
     "\"\<something funny is going on...\>\""}], "]"}]}]}]], "Input",
 CellLabel->
  "(Local) In[175]:=",ExpressionUUID->"59394994-cfea-456b-a056-2eb213ea0f6b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Save", "[", 
  RowBox[{
   RowBox[{"ToFileName", "[", 
    RowBox[{"\"\<results-chi2\>\"", ",", 
     RowBox[{"rname", "<>", "\"\<_run\>\"", "<>", 
      RowBox[{"ToString", "[", "run", "]"}], "<>", "\"\<-log.txt\>\""}]}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"pSet", ",", "logrun"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"ToFileName", "[", 
    RowBox[{"\"\<results-chi2\>\"", ",", 
     RowBox[{"rname", "<>", "\"\<_run\>\"", "<>", 
      RowBox[{"ToString", "[", "run", "]"}], "<>", "\"\<.r32\>\""}]}], "]"}], 
   ",", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Re", "[", "chi2Tab", "]"}], "]"}], ",", "\"\<Real32\>\""}], 
  "]"}]}], "Input",
 CellLabel->
  "(Local) In[176]:=",ExpressionUUID->"71b910ef-ed05-49ad-b463-799d7e59dccd"],

Cell[BoxData["\<\"results-chi2/Pantheon_run1.r32\"\>"], "Output",
 CellLabel->
  "(Local) Out[177]=",ExpressionUUID->"1d269c36-e9ac-44fd-97eb-b9ffdfe98a6e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["c End", "Subsection",ExpressionUUID->"29fc1c95-49fc-4a02-9057-759ac81c252e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"CloseKernels", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NotebookSave", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Quit", "[", "]"}], ";"}]}], "Input",
 CellLabel->
  "(Local) In[178]:=",ExpressionUUID->"2c32a026-be8f-44ab-b105-0f99a328e530"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1205, 764},
WindowMargins->{{3, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 272, 8, 33, "Text",ExpressionUUID->"1df35057-a96d-495e-94a0-0d484796faf7"],
Cell[CellGroupData[{
Cell[855, 32, 137, 2, 67, "Section",ExpressionUUID->"f66ae1b8-2596-49c1-9dc9-953450f586df"],
Cell[CellGroupData[{
Cell[1017, 38, 703, 18, 136, "Input",ExpressionUUID->"8192d94f-8a8c-4581-ac68-81f6d7aa93e9"],
Cell[1723, 58, 122, 2, 70, "Output",ExpressionUUID->"55985a1f-1899-4b08-9bd6-0d54faf969ab"],
Cell[1848, 62, 163, 2, 70, "Output",ExpressionUUID->"17829436-99f5-4ae2-a55e-30eef06fd457"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2048, 69, 1404, 41, 199, "Input",ExpressionUUID->"3c0fb340-d704-4546-bbfc-942172e359fc"],
Cell[3455, 112, 214, 5, 70, "Print",ExpressionUUID->"e7b0bb63-db06-4b3e-913f-617bfe7edbec"]
}, Open  ]],
Cell[3684, 120, 404, 11, 52, "Input",ExpressionUUID->"f0415793-8b7c-44f3-8211-5ce27648ef6c"]
}, Closed]],
Cell[CellGroupData[{
Cell[4125, 136, 138, 2, 53, "Section",ExpressionUUID->"21cf603a-8223-4a0c-ac28-50742c4960ab"],
Cell[CellGroupData[{
Cell[4288, 142, 1541, 42, 157, "Input",ExpressionUUID->"b7b4c196-1a90-4f67-9696-d8c2fc427ffa"],
Cell[CellGroupData[{
Cell[5854, 188, 272, 5, 25, "Print",ExpressionUUID->"f2685c85-d379-471c-a415-732740497a74"],
Cell[6129, 195, 215, 4, 24, "Print",ExpressionUUID->"676e9fe1-3617-4c1b-a9d7-b0acda0b0dbf"],
Cell[6347, 201, 210, 5, 24, "Print",ExpressionUUID->"501d651f-5a2f-496b-a43e-adf8bef54989"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[6606, 212, 3354, 90, 262, "Input",ExpressionUUID->"c44e4a2a-29b2-459e-81d0-9db8db943e4d"],
Cell[9963, 304, 504, 13, 24, "Print",ExpressionUUID->"5695758a-39d5-422e-9df5-5bf9b4842302"],
Cell[10470, 319, 189, 4, 34, "Output",ExpressionUUID->"f2b60b29-6153-4c87-8b12-8bb86a749b3f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10708, 329, 154, 2, 67, "Section",ExpressionUUID->"f927329e-9eec-4607-9a6b-db479773003e"],
Cell[CellGroupData[{
Cell[10887, 335, 94, 0, 54, "Subsection",ExpressionUUID->"7f57a796-1961-49ed-bb8b-1b7c2f7726c9"],
Cell[10984, 337, 3121, 89, 409, "Input",ExpressionUUID->"118c7763-b43d-4ed1-9e62-a20e9c64efd9"],
Cell[CellGroupData[{
Cell[14130, 430, 4029, 100, 525, "Input",ExpressionUUID->"5326fd69-cb6f-439c-a2a0-5ae0fe888b59"],
Cell[18162, 532, 1753, 50, 98, "Output",ExpressionUUID->"04c582a4-4e96-434a-99be-9559a137de4c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19964, 588, 84, 0, 54, "Subsection",ExpressionUUID->"523ec158-ef57-40d9-b844-1ab3fecc1f57"],
Cell[CellGroupData[{
Cell[20073, 592, 10080, 272, 798, "Input",ExpressionUUID->"142fd9e4-69ff-46a5-9776-04f6675b4067"],
Cell[30156, 866, 46154, 897, 674, "Print",ExpressionUUID->"e7c7b3e2-4321-4f8f-bc88-506a7a7b9537"]
}, Open  ]],
Cell[76325, 1766, 845, 21, 63, "Input",ExpressionUUID->"230ca7fa-08fd-4abc-bc10-d4e5c19e0f35"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[77219, 1793, 175, 4, 67, "Section",ExpressionUUID->"485388a7-09b9-4f22-adb2-203059ac80d4"],
Cell[CellGroupData[{
Cell[77419, 1801, 47497, 1109, 4794, "Input",ExpressionUUID->"e2e11314-00df-48a1-903d-42226ec84113"],
Cell[124919, 2912, 197, 5, 24, "Print",ExpressionUUID->"047ccc12-92c8-4dca-9c73-4838af7783a3"],
Cell[125119, 2919, 553, 11, 41, "Message",ExpressionUUID->"73a2c862-88c4-43c6-89ec-77baf66d9dd0"],
Cell[125675, 2932, 553, 11, 41, "Message",ExpressionUUID->"3f76227e-91a1-4f49-a378-d46d6fded77c"],
Cell[126231, 2945, 553, 11, 41, "Message",ExpressionUUID->"0347ce4c-98ca-48a9-aef6-040ea3091115"],
Cell[126787, 2958, 4494, 107, 96, "Print",ExpressionUUID->"8f9744d7-5d9d-4b84-b2b0-dce704ab0825"],
Cell[131284, 3067, 553, 11, 41, "Message",ExpressionUUID->"f334b86c-ab03-4b7c-b746-424aaffdfcb6"],
Cell[131840, 3080, 553, 11, 41, "Message",ExpressionUUID->"525bfe50-7ee8-41aa-9469-5659eaabe609"],
Cell[132396, 3093, 553, 11, 41, "Message",ExpressionUUID->"437e2e2f-e5a0-43d9-82d6-495c529a26c7"],
Cell[CellGroupData[{
Cell[132974, 3108, 4488, 107, 96, "Print",ExpressionUUID->"27655a7c-7857-49d5-9b06-628deab8c7b0"],
Cell[137465, 3217, 1092, 30, 76, "Print",ExpressionUUID->"2517f5b9-ccda-4e0a-a3ee-2014800a6d2c"],
Cell[138560, 3249, 226, 5, 24, "Print",ExpressionUUID->"0be39c14-c3de-47a6-b32e-892d460c60e4"],
Cell[138789, 3256, 2621, 60, 56, "Print",ExpressionUUID->"b37dea2b-abb6-4a41-9da1-1fe342bb6bfc"],
Cell[141413, 3318, 149, 3, 24, "Print",ExpressionUUID->"bcc79ca6-f7e3-4398-9d46-709c2d739929"],
Cell[141565, 3323, 86693, 1630, 674, "Print",ExpressionUUID->"5f4414fd-eaf8-4730-ab30-b3cb7468a07b"]
}, Open  ]]
}, Open  ]],
Cell[228285, 4957, 575, 14, 52, "Input",ExpressionUUID->"b2772f9d-e242-41ec-8b23-4112dd9a5924"]
}, Open  ]],
Cell[CellGroupData[{
Cell[228897, 4976, 187, 4, 67, "Section",ExpressionUUID->"34c819e1-41c5-4d2d-acfa-07ea615f1f75"],
Cell[229087, 4982, 1021, 27, 94, "Input",ExpressionUUID->"79968256-063a-447f-b16f-9b2b2d39bb65"],
Cell[CellGroupData[{
Cell[230133, 5013, 176, 2, 54, "Subsection",ExpressionUUID->"808ff4c1-0666-4720-aaca-9c46af822220"],
Cell[CellGroupData[{
Cell[230334, 5019, 9263, 243, 682, "Input",ExpressionUUID->"bc043824-8b24-4e63-9b33-3b8d691ab905"],
Cell[239600, 5264, 1769, 50, 70, "Output",ExpressionUUID->"a8fb265a-192f-4c6c-a9af-7c4c08489687"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[241418, 5320, 171, 2, 38, "Subsection",ExpressionUUID->"7f6b054d-1bf1-4b6c-a89f-3e1b15b95074"],
Cell[CellGroupData[{
Cell[241614, 5326, 9256, 243, 682, "Input",ExpressionUUID->"9bcc6932-bb35-463f-be63-3b393d93533c"],
Cell[250873, 5571, 1769, 50, 70, "Output",ExpressionUUID->"1e9911f7-aabd-4c45-9e48-a00952934de4"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[252691, 5627, 176, 2, 38, "Subsection",ExpressionUUID->"d4e21bdf-407a-479e-944e-4c95c97605ff"],
Cell[CellGroupData[{
Cell[252892, 5633, 8281, 217, 661, "Input",ExpressionUUID->"fa90cd18-0caf-4752-bbd4-5478e4c4facd"],
Cell[261176, 5852, 1769, 50, 70, "Output",ExpressionUUID->"d1915789-890e-4d6e-9bbc-e6dd768638ba"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[262994, 5908, 166, 2, 38, "Subsection",ExpressionUUID->"2651632b-f27e-49f2-acec-fa0e5c221d87"],
Cell[263163, 5912, 1565, 41, 189, "Input",ExpressionUUID->"c3d7182a-d61e-4c8f-b4de-d96366f9417c"],
Cell[264731, 5955, 411, 10, 41, "Input",ExpressionUUID->"d1f43c11-3e68-4876-9fbc-d387c18576c2"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[265191, 5971, 165, 4, 67, "Section",ExpressionUUID->"26a50104-84f0-4360-b4f9-20899c453e30"],
Cell[CellGroupData[{
Cell[265381, 5979, 6832, 180, 787, "Input",ExpressionUUID->"38ac59c1-bbf1-48b7-8047-f510821e4b02"],
Cell[CellGroupData[{
Cell[272238, 6163, 240, 6, 24, "Print",ExpressionUUID->"8eec170a-6adb-49ed-ab3f-4beac91401bd"],
Cell[272481, 6171, 320, 7, 24, "Print",ExpressionUUID->"a5de355b-7b05-4116-b0ec-cafc1a82cca9"],
Cell[272804, 6180, 241, 6, 24, "Print",ExpressionUUID->"9894bdc4-ecd0-4c49-8da0-73385de9dadf"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[273106, 6193, 139, 2, 67, "Section",ExpressionUUID->"a4600738-056d-4cf4-b4cd-6b8baeb20217"],
Cell[CellGroupData[{
Cell[273270, 6199, 90, 0, 54, "Subsection",ExpressionUUID->"2617a760-982e-465c-b90b-518f050d264c"],
Cell[CellGroupData[{
Cell[273385, 6203, 275, 6, 52, "Input",ExpressionUUID->"bc3fec40-2bd2-4447-bce7-c926a44fbde9"],
Cell[273663, 6211, 1099, 24, 56, "Output",ExpressionUUID->"78c80412-9335-404a-a05a-bb254d745a99"],
Cell[274765, 6237, 120, 2, 34, "Output",ExpressionUUID->"17d64e48-68d6-4533-99f2-dff9b1eceb18"]
}, Open  ]],
Cell[CellGroupData[{
Cell[274922, 6244, 10516, 281, 765, "Input",ExpressionUUID->"c211c595-ca14-4065-a8c9-fbb01301de53"],
Cell[CellGroupData[{
Cell[285463, 6529, 262, 7, 24, "Print",ExpressionUUID->"4b3da0b5-6a12-4937-b712-6e8c380a78fb"],
Cell[285728, 6538, 819, 19, 33, "Print",ExpressionUUID->"30818128-1eae-4f22-bbb1-cee6a014c743"],
Cell[286550, 6559, 209, 5, 24, "Print",ExpressionUUID->"0eb776de-ac04-4f1f-af6e-ea79277ea486"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[286820, 6571, 90, 0, 54, "Subsection",ExpressionUUID->"a92f7429-5c41-496c-9b36-2fe2da1919f8"],
Cell[CellGroupData[{
Cell[286935, 6575, 3015, 90, 283, "Input",ExpressionUUID->"7eec9cc2-0419-479b-896c-f4d12e27b804"],
Cell[289953, 6667, 175, 4, 34, "Output",ExpressionUUID->"049f27a4-9e1b-4e35-9f95-3f10fc7ed254"],
Cell[290131, 6673, 207, 4, 34, "Output",ExpressionUUID->"5deb204d-c302-42fe-9f91-c3ebd3d3b50e"],
Cell[290341, 6679, 202, 4, 34, "Output",ExpressionUUID->"f3fb1a22-876a-45bc-94e7-71cb29d7f94b"],
Cell[290546, 6685, 177, 4, 34, "Output",ExpressionUUID->"0e406588-75af-4519-a454-dd2954709341"]
}, Open  ]],
Cell[290738, 6692, 554, 15, 52, "Input",ExpressionUUID->"59394994-cfea-456b-a056-2eb213ea0f6b"],
Cell[CellGroupData[{
Cell[291317, 6711, 820, 21, 52, "Input",ExpressionUUID->"71b910ef-ed05-49ad-b463-799d7e59dccd"],
Cell[292140, 6734, 156, 2, 34, "Output",ExpressionUUID->"1d269c36-e9ac-44fd-97eb-b9ffdfe98a6e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[292345, 6742, 82, 0, 54, "Subsection",ExpressionUUID->"29fc1c95-49fc-4a02-9057-759ac81c252e"],
Cell[292430, 6744, 321, 8, 73, "Input",ExpressionUUID->"2c32a026-be8f-44ab-b105-0f99a328e530"]
}, Open  ]]
}, Open  ]]
}
]
*)