FullGP.nb

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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    552232,      10545]
NotebookOptionsPosition[    543599,      10394]
NotebookOutlinePosition[    543967,      10410]
CellTagsIndexPosition[    543924,      10407]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Ireland 2004", "Chapter",
 CellChangeTimes->{{3.7115031019069443`*^9, 3.7115031115949078`*^9}, {
   3.74963726804101*^9, 3.7496372881528573`*^9}, 
   3.7558491411666193`*^9},ExpressionUUID->"cabdf4a6-4d3c-41d0-95e9-\
f91543b630eb"],

Cell["Model Discrepancy", "Section",
 CellChangeTimes->{{3.711521880055153*^9, 3.7115218862585955`*^9}, {
   3.711521972372383*^9, 3.711521974403737*^9}, {3.7496373121447983`*^9, 
   3.749637323173718*^9}, {3.7558485077203646`*^9, 3.7558485095836096`*^9}, 
   3.755849103892019*^9, 
   3.75584913486241*^9},ExpressionUUID->"3262a1e6-b592-4050-9268-\
df117231b172"],

Cell[CellGroupData[{

Cell["Learning (no mean, no R)", "Subchapter",
 CellChangeTimes->{{3.750593540689376*^9, 3.750593552549367*^9}, {
  3.7552418938883886`*^9, 3.75524189879488*^9}, {3.755243865718089*^9, 
  3.7552438725934715`*^9}, {3.7558486275718417`*^9, 3.755848628358365*^9}, {
  3.7591272084573917`*^9, 
  3.7591272107861476`*^9}},ExpressionUUID->"745ac5f5-369b-47d3-89e2-\
99403bfe53d4"],

Cell[CellGroupData[{

Cell["\<\
Auxiliary Functions I (vectorize by columns, inverse of vectorize by columns)\
\>", "Subsubsection",
 CellChangeTimes->{{3.753168025777519*^9, 3.7531680615670276`*^9}, {
  3.7570747159419885`*^9, 3.7570747202357883`*^9}, {3.7571425620688286`*^9, 
  3.757142565365955*^9}, {3.757142872874554*^9, 3.757142883334134*^9}, {
  3.757143714828657*^9, 3.7571437191016364`*^9}, {3.7645954258921895`*^9, 
  3.764595426798487*^9}},ExpressionUUID->"109b67c4-3821-4085-bfda-\
6e553312703b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "This", " ", "vectorize", " ", "is", " ", "equal", " ", "to", " ", "vec", 
    RowBox[{
     RowBox[{"(", ")"}], ".", " ", "For"}], " ", "vech", 
    RowBox[{"(", ")"}], " ", "we", " ", "simply", " ", "use", " ", 
    RowBox[{
     RowBox[{"ArrayReshape", "[", "]"}], ".", "\[IndentingNewLine]", "For"}], 
    " ", "the", " ", "X", " ", "and", " ", "Y", " ", "variables", " ", "we", 
    " ", "use", " ", 
    RowBox[{"vech", ".", " ", "For"}], " ", "all", " ", "other", " ", "we", 
    " ", "use", " ", 
    RowBox[{"vec", "."}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"vectorize", "[", 
      RowBox[{"x_", ",", "len_"}], "]"}], ":=", 
     RowBox[{"ArrayReshape", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", "x", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"len", ",", "1"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"invVectorize", "[", 
      RowBox[{"x_", ",", 
       RowBox[{"{", 
        RowBox[{"r_", ",", "c_"}], "}"}]}], "]"}], ":=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"ArrayReshape", "[", 
       RowBox[{"x", ",", 
        RowBox[{"{", 
         RowBox[{"c", ",", "r"}], "}"}]}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"We", " ", "change", " ", "the", " ", "order", " ", "from", " ", 
      RowBox[{"{", 
       RowBox[{"r", ",", "c"}], "}"}], " ", "to", " ", 
      RowBox[{"{", 
       RowBox[{"c", ",", "r"}], "}"}]}], ",", " ", 
     RowBox[{
     "because", " ", "the", " ", "ArrayReshape", " ", "is", " ", "by", " ", 
      "rows", " ", "instead", " ", "of", " ", "by", " ", 
      RowBox[{"columns", ".", " ", "The"}], " ", "inverse", " ", "of", " ", 
      "vech", " ", "is", " ", 
      RowBox[{
       RowBox[{"ArrayReshape", "[", 
        RowBox[{",", 
         RowBox[{"{", 
          RowBox[{"r", ",", "c"}], "}"}]}], "]"}], ".", " ", 
       RowBox[{"I", "'"}]}], "ll", " ", "only", " ", "use", " ", 
      "ArrayReshape", " ", "if", " ", "I", " ", "want", " ", "to", " ", 
      "rebuild", " ", "an", " ", "original", " ", "matrix", " ", "which", " ",
       "was", " ", "vectorized", " ", "with", " ", "vech"}]}], "*)"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{
  3.7570751546274176`*^9, {3.757142572036839*^9, 3.757142627859654*^9}, {
   3.7571428882761908`*^9, 3.757142953247408*^9}, 3.7571432697652564`*^9, {
   3.7571433079427595`*^9, 3.7571433099747124`*^9}, {3.757143511574705*^9, 
   3.7571436215793014`*^9}, {3.7571442347430067`*^9, 3.757144291582561*^9}, {
   3.757144570600032*^9, 3.7571446074897985`*^9}, {3.757144638290716*^9, 
   3.7571446747657022`*^9}},
 CellLabel->
  "In[191]:=",ExpressionUUID->"e5d008f8-697f-44f7-b405-1bd03bb869d8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Covariance Function", "Subsubsection",
 CellChangeTimes->{{3.753168129673018*^9, 
  3.7531681433890653`*^9}},ExpressionUUID->"bb0224ca-1a58-48f2-88d9-\
dfe3031ce2fb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"k", "[", 
     RowBox[{"\[Nu]_", ",", "l_", ",", "x_", ",", "y_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
         RowBox[{
         "Esta", " ", "fun\[CCedilla]\[ATilde]o", " ", "d\[AAcute]", " ", 
          "problemas", " ", "quando", " ", "calculada", " ", "com", " ", 
          RowBox[{"Norm", "[", 
           RowBox[{"x", "-", "y"}], "]"}]}], "=", 
         RowBox[{
          RowBox[{"0", "..."}], " ", "Tem", " ", "de", " ", "se", " ", 
          "fazer", " ", "o", " ", "limite"}]}], ",", " ", 
        RowBox[{"que", " ", "d\[AAcute]", " ", "1."}]}], 
       "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"If", " ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Norm", "[", 
          RowBox[{"x", "-", "y"}], "]"}], "\[Equal]", "0"}], ",", 
        "\[IndentingNewLine]", "1", ",", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
           RowBox[{"2", "^", 
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Nu]"}], ")"}]}], "/", 
           RowBox[{"Gamma", "[", "\[Nu]", "]"}]}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Norm", "[", 
              RowBox[{"x", "-", "y"}], "]"}], "*", 
             RowBox[{
              RowBox[{"Sqrt", "[", 
               RowBox[{"2", "*", "\[Nu]"}], "]"}], "/", "l"}]}], ")"}], "^", 
           "\[Nu]"}], "*", 
          RowBox[{"BesselK", "[", 
           RowBox[{"\[Nu]", ",", 
            RowBox[{
             RowBox[{"Norm", "[", 
              RowBox[{"x", "-", "y"}], "]"}], "*", 
             RowBox[{
              RowBox[{"Sqrt", "[", 
               RowBox[{"2", "*", "\[Nu]"}], "]"}], "/", "l"}]}]}], "]"}], " ",
           "This", " ", "is", " ", "for", " ", "a", " ", "general", " ", 
          "Matern", " ", "function"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"Norm", "[", 
            RowBox[{"x", "-", "y"}], "]"}]}], "/", "l"}], "]"}]}], 
       "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Kint", " ", "=", " ", 
    RowBox[{"K_", 
     RowBox[{"{", 
      RowBox[{"d1", ",", "d2"}], "}"}], 
     RowBox[{"(", 
      RowBox[{"X1", ",", "X2"}], ")"}]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Kint", "[", 
    RowBox[{"X1_", ",", "X2_", ",", "l_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"k", "[", 
          RowBox[{
           RowBox[{"1", "/", "2"}], ",", "l", ",", 
           RowBox[{
           "X1", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", 
           RowBox[{
           "X2", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}], 
          "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", 
           RowBox[{"Length", "[", "X2", "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "X1", "]"}]}], "}"}]}], "]"}]}], 
    "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
       RowBox[{"we", "'"}], "re", " ", "using", " ", "the", " ", "rows", " ", 
       "as", " ", 
       RowBox[{"vectors", ".", " ", "\[IndentingNewLine]", "In"}], " ", 
       "reality"}], ",", " ", 
      RowBox[{
       RowBox[{"we", "'"}], "ll", " ", "save", " ", "X", " ", "in", " ", 
       "the", " ", "program", " ", "as", " ", "the", " ", "transpose", " ", 
       "of", " ", "the", " ", "X", " ", "in", " ", "the", " ", "text"}]}], 
     "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"KK", "[", 
   RowBox[{"tildeX_", ",", "M1_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "A", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"A", "=", 
      RowBox[{"Kint", "[", 
       RowBox[{"tildeX", ",", "tildeX"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"ArrayFlatten", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{"A", ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", "dim"}], "}"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "1", ",", "dim"}], "}"}]}], "]"}], "]"}], 
       "\[IndentingNewLine]", 
       RowBox[{"It", "'"}], "s", " ", "faster", " ", "with", " ", "the", " ", 
       "kronecker", " ", "product"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"KroneckerProduct", "[", 
      RowBox[{"M1", ",", "A"}], "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.7503978555820837`*^9, 3.7503980309245377`*^9}, {
   3.7503980624565763`*^9, 3.750398089114627*^9}, {3.7503998760435686`*^9, 
   3.7503998780033026`*^9}, {3.7504001690186243`*^9, 
   3.7504001823179092`*^9}, {3.750400450804723*^9, 3.750400459855771*^9}, {
   3.750400591722506*^9, 3.750400614120492*^9}, {3.7504164770689707`*^9, 
   3.750416527787178*^9}, {3.7504167196145787`*^9, 3.750416722476115*^9}, {
   3.7504184989124136`*^9, 3.7504185479291105`*^9}, {3.750418885763271*^9, 
   3.7504189249815655`*^9}, {3.7504198512364235`*^9, 3.750419898975501*^9}, {
   3.7504199290232906`*^9, 3.7504199622873507`*^9}, {3.7504200188559694`*^9, 
   3.7504200221473904`*^9}, {3.750420078540451*^9, 3.7504200864751744`*^9}, {
   3.7504210381715803`*^9, 3.750421053096326*^9}, 3.750421099475024*^9, {
   3.7504212749358325`*^9, 3.7504213035226865`*^9}, {3.750421356617576*^9, 
   3.750421376132209*^9}, {3.750422398981947*^9, 3.750422406195216*^9}, {
   3.7504226269668097`*^9, 3.7504226368042355`*^9}, {3.750427258954834*^9, 
   3.7504272614725137`*^9}, {3.750427313072934*^9, 3.7504273142086926`*^9}, 
   3.7504274895646677`*^9, 3.750427647069739*^9, 3.750593020315071*^9, {
   3.7524114305453777`*^9, 3.752411432743084*^9}, 3.7542193226917443`*^9, {
   3.754219595817067*^9, 3.754219625374365*^9}, {3.754219700163524*^9, 
   3.7542197004571323`*^9}, {3.7542237390992937`*^9, 
   3.7542237749582624`*^9}, {3.7542238371468205`*^9, 3.7542238483700714`*^9}},
 CellLabel->
  "In[193]:=",ExpressionUUID->"b96d0995-52a8-4127-9530-9bf0d0380ed7"]
}, Closed]],

Cell[CellGroupData[{

Cell["RBC Model", "Subsubsection",
 CellChangeTimes->{{3.753168155045887*^9, 
  3.7531681658240156`*^9}},ExpressionUUID->"b9a25c0e-a11f-4a20-950b-\
e41cd910b414"],

Cell[BoxData[
 RowBox[{
  RowBox[{"rbcACmat", "[", 
   RowBox[{"{", 
    RowBox[{
    "\[Beta]_", ",", "\[Delta]_", ",", "\[Theta]_", ",", "\[Rho]_", ",", 
     "aPar_", ",", "\[Gamma]_"}], "}"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "L1", ",", "L2", ",", "K11", ",", "K12", ",", "K22", ",", "S1", ",", 
      "S2", ",", "S3", ",", "S4", ",", "S5", ",", "S6", ",", "MatPi", ",", 
      "W", ",", "U", ",", "Cmat", ",", "CmatStar"}], "}"}], ",", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Eta]", "=", "1.0051"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"L1", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Eta]", "-", 
         RowBox[{"\[Beta]", "*", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Delta]"}], ")"}]}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "*", "\[Eta]", "*", 
         RowBox[{"\[Theta]", "^", "2"}]}], ")"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"L2", "=", 
      RowBox[{"\[Rho]", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Eta]", "-", 
          RowBox[{"\[Beta]", "*", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Delta]"}], ")"}]}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"\[Eta]", "-", 
          RowBox[{"\[Beta]", "*", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Theta]"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Delta]"}], ")"}]}]}], ")"}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"K11", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Eta]", "-", 
         RowBox[{"\[Beta]", "*", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Theta]"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Delta]"}], ")"}]}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "*", "\[Eta]", "*", "\[Theta]"}], ")"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"K12", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Beta]", "*", "\[Eta]", "*", 
          RowBox[{"\[Theta]", "^", "2"}]}], "-", "\[Eta]", "+", 
         RowBox[{"\[Beta]", "*", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"\[Theta]", "^", "2"}]}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Delta]"}], ")"}]}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "*", "\[Eta]", "*", 
         RowBox[{"\[Theta]", "^", "2"}]}], ")"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"K22", "=", 
      RowBox[{"\[Eta]", "*", 
       RowBox[{"\[Theta]", "/", 
        RowBox[{"(", 
         RowBox[{"\[Eta]", "-", 
          RowBox[{"\[Beta]", "*", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Theta]"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Delta]"}], ")"}]}]}], ")"}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"S1", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"K22", "-", "K11"}], ")"}], "/", "K12"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"S2", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"K22", "-", "K11"}], ")"}], "*", "L1"}], "-", 
         RowBox[{"K12", "*", "L2"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"K12", "*", 
         RowBox[{"(", 
          RowBox[{"K11", "-", "\[Rho]"}], ")"}]}], ")"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"S3", "=", "K22"}], ";", "\[IndentingNewLine]", 
     RowBox[{"S4", "=", 
      RowBox[{
       RowBox[{"K12", "*", 
        RowBox[{"L2", "/", 
         RowBox[{"(", 
          RowBox[{"K22", "-", "K11"}], ")"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"K22", "-", "\[Rho]"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"K22", "-", "K11"}], ")"}], "*", "L1"}], "-", 
            RowBox[{"K12", "*", "L2"}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"K22", "-", "K11"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"K11", "-", "\[Rho]"}], ")"}]}], ")"}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"S5", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Theta]"}], ")"}], "/", "\[Theta]"}], "*", 
          "S1"}]}], ",", 
        RowBox[{"S1", "+", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Eta]", "/", "\[Beta]"}], "-", "1", "+", "\[Delta]"}], 
            ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Theta]", "^", "2"}], "*", 
             RowBox[{"(", 
              RowBox[{"\[Eta]", "-", "1", "+", "\[Delta]"}], ")"}]}], ")"}]}],
           "*", 
          RowBox[{"(", 
           RowBox[{"\[Theta]", "-", "S1"}], ")"}]}]}], ",", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"1", "/", "\[Theta]"}], "*", "S1"}]}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"S6", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"1", "/", "\[Theta]"}], "-", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Theta]"}], ")"}], "/", "\[Theta]"}], "*", 
          "S2"}]}], ",", 
        RowBox[{"S2", "+", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Eta]", "/", "\[Beta]"}], "-", "1", "+", "\[Delta]"}], 
            ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Theta]", "^", "2"}], "*", 
             RowBox[{"(", 
              RowBox[{"\[Eta]", "-", "1", "+", "\[Delta]"}], ")"}]}], ")"}]}],
           "*", 
          RowBox[{"(", 
           RowBox[{"1", "-", "S2"}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"1", "/", "\[Theta]"}], "-", 
         RowBox[{
          RowBox[{"1", "/", "\[Theta]"}], "*", "S2"}]}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"U", "=", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"{", 
           RowBox[{"S5", ",", "S1"}], "}"}], "]"}], ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{"{", 
           RowBox[{"S6", ",", "S2"}], "}"}], "]"}]}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MatPi", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"S3", ",", "S4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "\[Rho]"}], "}"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"W", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "0", "}"}], ",", 
          RowBox[{"{", "1", "}"}]}], "}"}]}], ";"}], "*)"}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"ysteady", "=", 
      RowBox[{
       RowBox[{"aPar", "^", 
        RowBox[{"(", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Theta]"}], ")"}]}], ")"}]}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Theta]", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Eta]", "/", "\[Beta]"}], "-", "1", "+", "\[Delta]"}], 
           ")"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"\[Theta]", "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Theta]"}], ")"}]}], ")"}]}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Theta]"}], ")"}], "/", "\[Gamma]"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"\[Theta]", "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"\[Eta]", "-", "1", "+", "\[Delta]"}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Eta]", "/", "\[Beta]"}], "-", "1", "+", "\[Delta]"}],
              ")"}]}]}]}], ")"}], "^", 
        RowBox[{"-", "1"}]}]}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"csteady", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"\[Theta]", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Eta]", "-", "1", "+", "\[Delta]"}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Eta]", "/", "\[Beta]"}], "-", "1", "+", "\[Delta]"}], 
            ")"}]}]}]}], ")"}], "*", "ysteady"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"hstead", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Theta]"}], ")"}], "/", "\[Gamma]"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"\[Theta]", "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"\[Eta]", "-", "1", "+", "\[Delta]"}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Eta]", "/", "\[Beta]"}], "-", "1", "+", "\[Delta]"}],
              ")"}]}]}]}], ")"}], "^", 
        RowBox[{"-", "1"}]}]}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Cmat", "=", 
      RowBox[{"Drop", "[", 
       RowBox[{"U", ",", 
        RowBox[{"{", "2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"CmatStar", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Log", "[", "ysteady", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Log", "[", "hstead", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Log", "[", "csteady", "]"}], "}"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"MatPi", ",", "Cmat", ",", "CmatStar"}], "}"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.7516138349067388`*^9, 3.7516138362929835`*^9}, {
   3.754143389818366*^9, 3.7541436398177223`*^9}, {3.7541437672247734`*^9, 
   3.754143780457819*^9}, {3.754143838895756*^9, 3.754143905113577*^9}, {
   3.7541439436759357`*^9, 3.7541440229583063`*^9}, {3.7541440995360975`*^9, 
   3.754144145691295*^9}, {3.754144356628731*^9, 3.7541443567849803`*^9}, {
   3.754144494599245*^9, 3.7541445001776314`*^9}, {3.7541451617406344`*^9, 
   3.7541452040985794`*^9}, {3.754145703972906*^9, 3.754145705381338*^9}, {
   3.754145760208872*^9, 3.7541457699879713`*^9}, {3.754145901598572*^9, 
   3.7541460094743996`*^9}, {3.7541508144591217`*^9, 3.7541508594429703`*^9}, 
   3.7541508978167443`*^9, {3.754218334720338*^9, 3.7542183366579533`*^9}, 
   3.755531939483754*^9, 3.7555320206088004`*^9, {3.7677637652791185`*^9, 
   3.767763773740328*^9}, 3.7677639131514792`*^9, {3.769179433779237*^9, 
   3.7691794359767694`*^9}},
 CellLabel->
  "In[196]:=",ExpressionUUID->"0b5d3b78-237a-408e-85c9-696f91c27246"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Auxiliary Functions II (reparametrizations, sparse matrices,  etc)\
\>", "Subsubsection",
 CellChangeTimes->{{3.753168025777519*^9, 3.7531680615670276`*^9}, {
  3.7589594344982147`*^9, 3.758959463904327*^9}, {3.76459539098411*^9, 
  3.7645953913747654`*^9}, {3.7645954233451815`*^9, 
  3.7645954240483437`*^9}},ExpressionUUID->"5616ef04-78f0-4391-aba9-\
7f3de3307dc2"],

Cell["\<\
Some functions will not be used in the final simulations, namely those that \
build the matrix derivatives. Check the Appendix on the Phd - Thesis. \
However, I' ve decided to keep them for completeness.\
\>", "Text",
 CellChangeTimes->{{3.845959103730745*^9, 
  3.845959106226884*^9}},ExpressionUUID->"6c953fa5-8c64-4267-815b-\
b923e03fb4b5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"spmatSigma", "[", 
      RowBox[{"T_", ",", "dim_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"idT", "=", 
         RowBox[{"IdentityMatrix", "[", 
          RowBox[{"T", ",", "SparseArray"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"idDim", "=", 
         RowBox[{"IdentityMatrix", "[", 
          RowBox[{"dim", ",", "SparseArray"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"KroneckerProduct", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"KroneckerProduct", "[", 
               RowBox[{"idDim", ",", 
                RowBox[{"Transpose", "[", 
                 RowBox[{"{", 
                  RowBox[{"idT", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "}"}], "]"}]}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", "T"}], "}"}]}], "]"}], ",", "1"}], 
           "]"}], ",", "idDim"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"spmatL", "[", 
      RowBox[{"M1_", ",", "T_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"KroneckerProduct", "[", 
        RowBox[{
         RowBox[{"IdentityMatrix", "[", 
          RowBox[{"T", ",", "SparseArray"}], "]"}], ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"KroneckerProduct", "[", 
              RowBox[{
               RowBox[{"IdentityMatrix", "[", 
                RowBox[{"T", ",", "SparseArray"}], "]"}], ",", 
               RowBox[{"Transpose", "[", 
                RowBox[{"{", 
                 RowBox[{"M1", "[", 
                  RowBox[{"[", 
                   RowBox[{";;", ",", "i"}], "]"}], "]"}], "}"}], "]"}]}], 
              "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "1", ",", 
               RowBox[{"Length", "[", "M1", "]"}]}], "}"}]}], "]"}], ",", 
           "1"}], "]"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"funcHM", "[", 
      RowBox[{"KM_", ",", "dim_", ",", "T_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"KroneckerProduct", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"KroneckerProduct", "[", 
              RowBox[{
               RowBox[{"IdentityMatrix", "[", 
                RowBox[{"dim", ",", "SparseArray"}], "]"}], ",", 
               RowBox[{"Transpose", "[", 
                RowBox[{"{", 
                 RowBox[{"KM", "[", 
                  RowBox[{"[", 
                   RowBox[{";;", ",", "i"}], "]"}], "]"}], "}"}], "]"}]}], 
              "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "T"}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", 
         RowBox[{"IdentityMatrix", "[", 
          RowBox[{"dim", ",", "SparseArray"}], "]"}]}], "]"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"logit", "[", "u_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "x", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"x", "=", 
         RowBox[{"SetPrecision", "[", 
          RowBox[{"u", ",", "50"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Log", "[", 
         RowBox[{"x", "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "x"}], ")"}]}], "]"}]}]}], "\[IndentingNewLine]",
       "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "melhorar", " ", "a", " ", "precis\[ATilde]o", " ", "do", " ", 
     "c\[AAcute]lculo", " ", "nestas", " ", "fun\[CCedilla]\[OTilde]es"}], 
    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"invLogit", "[", "u_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "x", "}"}], ",", 
       RowBox[{
        RowBox[{"x", "=", 
         RowBox[{"SetPrecision", "[", 
          RowBox[{"u", ",", "50"}], "]"}]}], ";", 
        RowBox[{
         RowBox[{"E", "^", "x"}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"E", "^", "x"}]}], ")"}]}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"linTanTransf", "[", "u_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "x", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"x", "=", 
         RowBox[{"SetPrecision", "[", 
          RowBox[{"u", ",", "50"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Tan", "[", 
         RowBox[{"x", "*", 
          RowBox[{"Pi", "/", "2"}]}], "]"}]}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"invLinTanTransf", "[", "u_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "x", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"x", "=", 
         RowBox[{"SetPrecision", "[", 
          RowBox[{"u", ",", "50"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ArcTan", "[", "x", "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"Pi", "/", "2"}], ")"}]}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"reparametrizationMatern", "[", "L_", "]"}], ":=", 
     RowBox[{"Log", "[", "L", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"reparametrizationMaternInv", "[", "tilL_", "]"}], ":=", 
     RowBox[{"Exp", "[", "tilL", "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"reparametrizationF", "[", 
      RowBox[{"{", 
       RowBox[{
       "\[Beta]_", ",", "\[Delta]_", ",", "\[Theta]_", ",", "\[Rho]_", ",", 
        "aPar_", ",", "\[Gamma]_"}], "}"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"logit", "[", "\[Beta]", "]"}], ",", 
         RowBox[{"logit", "[", "\[Delta]", "]"}], ",", 
         RowBox[{"logit", "[", "\[Theta]", "]"}], ",", 
         RowBox[{"logit", "[", "\[Rho]", "]"}], ",", 
         RowBox[{"Log", "[", "aPar", "]"}], ",", 
         RowBox[{"Log", "[", "\[Gamma]", "]"}]}], "}"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "Transforms", " ", "original", " ", "thetas", " ", "into", " ", "tilde", 
      " ", "thetas"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"reparametrizationFInv", "[", 
      RowBox[{"{", 
       RowBox[{
       "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
        "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"invLogit", "[", "til\[Beta]", "]"}], ",", 
         RowBox[{"invLogit", "[", "til\[Delta]", "]"}], ",", 
         RowBox[{"invLogit", "[", "til\[Theta]", "]"}], ",", 
         RowBox[{"invLogit", "[", "til\[Rho]", "]"}], ",", 
         RowBox[{"Exp", "[", "tilaPar", "]"}], ",", 
         RowBox[{"Exp", "[", "til\[Gamma]", "]"}]}], "}"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "Transforms", " ", "tilde", " ", "thetas", " ", "into", " ", "original", 
      " ", "thetas"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"reparametrizationFQS", "[", 
      RowBox[{"{", 
       RowBox[{"Q_", ",", "Sigma_"}], "}"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Dimensions", "[", "Q", "]"}], "==", 
          RowBox[{"{", 
           RowBox[{"2", ",", "2"}], "}"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"DiagonalMatrix", "[", 
            RowBox[{"Log", "[", 
             RowBox[{"Diagonal", "[", "Q", "]"}], "]"}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"DiagonalMatrix", "[", 
            RowBox[{"Log", "[", 
             RowBox[{"Diagonal", "[", "Sigma", "]"}], "]"}], "]"}]}], "}"}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Log", "[", "Q", "]"}], ",", 
           RowBox[{"Log", "[", "Sigma", "]"}]}], "}"}]}], 
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "Transforms", " ", "Q", " ", "and", " ", "Sigma", " ", "into", " ", 
      "tilde", " ", "Q", " ", "and", " ", 
      RowBox[{"Sigma", ".", " ", "Works"}], " ", "either", " ", "with", " ", 
      "main", " ", "diagonals", " ", "or", " ", "the", " ", "whole", " ", 
      RowBox[{"matrices", "."}]}], "*)"}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"reparametrizationFQSInv", "[", 
      RowBox[{"{", 
       RowBox[{"tilQ_", ",", "tilSigma_"}], "}"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Dimensions", "[", "tilQ", "]"}], "==", 
          RowBox[{"{", 
           RowBox[{"2", ",", "2"}], "}"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"DiagonalMatrix", "[", 
            RowBox[{"E", "^", 
             RowBox[{"Diagonal", "[", "tilQ", "]"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"DiagonalMatrix", "[", 
            RowBox[{"E", "^", 
             RowBox[{"Diagonal", "[", "tilSigma", "]"}]}], "]"}]}], "}"}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"E", "^", "tilQ"}], ",", 
           RowBox[{"E", "^", "tilSigma"}]}], "}"}]}], "\[IndentingNewLine]", 
        "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]",
    "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Transforms", " ", "tilde", " ", "Q", " ", "and", " ", "Sigma", " ", 
     "into", " ", "original", " ", "Q", " ", "and", " ", 
     RowBox[{"Sigma", ".", " ", "Works"}], " ", "both", " ", "with", " ", 
     "just", " ", "the", " ", "main", " ", "diagonal", " ", "or", " ", "the", 
     " ", "whole", " ", "matrices"}], "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Astruct", ",", "Cmatstruct", ",", "CmatStarstruct"}], "}"}], 
     "=", 
     RowBox[{"rbcACmat", "[", 
      RowBox[{"reparametrizationFInv", "[", 
       RowBox[{"{", 
        RowBox[{
        "ntil\[Beta]", ",", "ntil\[Delta]", ",", "ntil\[Theta]", ",", 
         "ntil\[Rho]", ",", "ntilaPar", ",", "ntil\[Gamma]"}], "}"}], "]"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"A", ",", 
     RowBox[{
     "Cmat", " ", "e", " ", "CmatStar", " ", "s\[ATilde]o", " ", 
      "reparametrizados", " ", "\[AGrave]", " ", "custa", " ", "dos", " ", 
      "til", " ", "economic", " ", "parameters"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Usar", " ", "FullImplify", "  ", "para", " ", "simplificar", " ", 
     "f\[OAcute]rmulas", " ", "e", " ", "serem", " ", "mais", " ", 
     "r\[AAcute]pidas", " ", "a", " ", 
     RowBox[{"calcular", "."}]}], "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"derAstruct", "[", 
      RowBox[{"{", 
       RowBox[{
       "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
        "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"Astruct", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{
            "ntil\[Beta]", ",", "ntil\[Delta]", ",", "ntil\[Theta]", ",", 
             "ntil\[Rho]", ",", "ntilaPar", ",", "ntil\[Gamma]"}], "}"}], 
           "}"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", "2"}], "}"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ntil\[Beta]", "\[Rule]", "til\[Beta]"}], ",", 
        RowBox[{"ntil\[Delta]", "\[Rule]", "til\[Delta]"}], ",", 
        RowBox[{"ntil\[Theta]", "\[Rule]", "til\[Theta]"}], ",", 
        RowBox[{"ntil\[Rho]", "\[Rule]", "til\[Rho]"}], ",", 
        RowBox[{"ntilaPar", "\[Rule]", "tilaPar"}], ",", 
        RowBox[{"ntil\[Gamma]", "\[Rule]", "til\[Gamma]"}]}], "}"}]}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Derivamos", " ", "A", " ", "em", " ", "rela\[CCedilla]\[ATilde]o", " ", 
     "aos", " ", "par\[AHat]metros", " ", "tilde", " ", "theta"}], "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"derCmatstruct", "[", 
      RowBox[{"{", 
       RowBox[{
       "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
        "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"Cmatstruct", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{
            "ntil\[Beta]", ",", "ntil\[Delta]", ",", "ntil\[Theta]", ",", 
             "ntil\[Rho]", ",", "ntilaPar", ",", "ntil\[Gamma]"}], "}"}], 
           "}"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", "2"}], "}"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ntil\[Beta]", "\[Rule]", "til\[Beta]"}], ",", 
        RowBox[{"ntil\[Delta]", "\[Rule]", "til\[Delta]"}], ",", 
        RowBox[{"ntil\[Theta]", "\[Rule]", "til\[Theta]"}], ",", 
        RowBox[{"ntil\[Rho]", "\[Rule]", "til\[Rho]"}], ",", 
        RowBox[{"ntilaPar", "\[Rule]", "tilaPar"}], ",", 
        RowBox[{"ntil\[Gamma]", "\[Rule]", "til\[Gamma]"}]}], "}"}]}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Derivamos", " ", "Cmat", " ", "em", " ", "rela\[CCedilla]\[ATilde]o", 
     " ", "aos", " ", "par\[AHat]metros", " ", "tilde", " ", "theta"}], 
    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"derCmatStarstruct", "[", 
      RowBox[{"{", 
       RowBox[{
       "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
        "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"CmatStarstruct", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{
            "ntil\[Beta]", ",", "ntil\[Delta]", ",", "ntil\[Theta]", ",", 
             "ntil\[Rho]", ",", "ntilaPar", ",", "ntil\[Gamma]"}], "}"}], 
           "}"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", "1"}], "}"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ntil\[Beta]", "\[Rule]", "til\[Beta]"}], ",", 
        RowBox[{"ntil\[Delta]", "\[Rule]", "til\[Delta]"}], ",", 
        RowBox[{"ntil\[Theta]", "\[Rule]", "til\[Theta]"}], ",", 
        RowBox[{"ntil\[Rho]", "\[Rule]", "til\[Rho]"}], ",", 
        RowBox[{"ntilaPar", "\[Rule]", "tilaPar"}], ",", 
        RowBox[{"ntil\[Gamma]", "\[Rule]", "til\[Gamma]"}]}], "}"}]}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Derivamos", " ", "CmatStar", " ", "em", " ", "rela\[CCedilla]\[ATilde]o",
      " ", "aos", " ", "par\[AHat]metros", " ", "tilde", " ", "theta"}], 
    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"derKM", "[", 
      RowBox[{"X1T_", ",", "tilL_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Table", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"k", "[", 
             RowBox[{
              RowBox[{"1", "/", "2"}], ",", 
              RowBox[{"Exp", "[", "tilL", "]"}], ",", 
              RowBox[{
              "X1T", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
              ",", 
              RowBox[{
              "X1T", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}],
              "]"}], "*", 
            RowBox[{"Norm", "[", 
             RowBox[{
              RowBox[{
              "X1T", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
              "-", 
              RowBox[{
              "X1T", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}],
              "]"}], "*", 
            RowBox[{"Exp", "[", 
             RowBox[{"-", "tilL"}], "]"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"j", ",", "1", ",", 
             RowBox[{"Length", "[", "X1T", "]"}]}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"Length", "[", "X1T", "]"}]}], "}"}]}], "]"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"upperTriangular", "[", 
      RowBox[{"v_", ",", "n_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"i", "=", "0"}], ",", 
         RowBox[{"j", "=", "0"}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Array", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"#", ">", "#2"}], ",", "0", ",", 
            RowBox[{"v", "[", 
             RowBox[{"[", 
              RowBox[{"++", "i"}], "]"}], "]"}]}], "]"}], "&"}], ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "To", " ", "create", " ", "an", " ", "upper", " ", "triangular", " ", 
      "matrix", " ", "from", " ", "a", " ", 
      RowBox[{"vector", ".", " ", "We"}], " ", "shall", " ", "use", " ", 
      "this", " ", "in", " ", "drawProp", " ", "for", " ", "M1", " ", 
      "matrix"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    "\[IndentingNewLine]"}]}]}]], "Input",
 CellChangeTimes->{
  3.754223936311184*^9, {3.7542240664888625`*^9, 3.754224153004478*^9}, {
   3.7542248714029016`*^9, 3.754224874468673*^9}, {3.7542249270663815`*^9, 
   3.7542249303110247`*^9}, {3.7542249669709496`*^9, 3.754225102912212*^9}, {
   3.754225376035632*^9, 3.7542254055337524`*^9}, {3.7542254410821404`*^9, 
   3.754225450003151*^9}, {3.7542256038138466`*^9, 3.754225662464489*^9}, {
   3.7542256983392487`*^9, 3.7542258289553065`*^9}, {3.754225927720621*^9, 
   3.754225973850046*^9}, 3.754226022144638*^9, {3.754226055771836*^9, 
   3.7542260935213346`*^9}, {3.7542261268477144`*^9, 3.754226130613508*^9}, {
   3.754226209297777*^9, 3.7542262113544774`*^9}, {3.7542265465043187`*^9, 
   3.7542265485059776`*^9}, {3.7542267543365335`*^9, 3.754226759751329*^9}, {
   3.7542268068499575`*^9, 3.7542268104692984`*^9}, {3.754226853850893*^9, 
   3.754226884521166*^9}, {3.754829210491446*^9, 3.7548292227726336`*^9}, {
   3.7551839991935005`*^9, 3.755184010334446*^9}, {3.7551840625882034`*^9, 
   3.755184066358521*^9}, {3.7551841743127265`*^9, 3.7551841930733776`*^9}, {
   3.7551842378068132`*^9, 3.7551842546181383`*^9}, {3.755184290883478*^9, 
   3.7551843084223413`*^9}, {3.755184375617835*^9, 3.755184407311882*^9}, 
   3.7551844397768507`*^9, {3.755184509822508*^9, 3.7551845199633265`*^9}, {
   3.755184571103551*^9, 3.755184574578741*^9}, {3.7552439914589405`*^9, 
   3.7552440046565447`*^9}, {3.7552653099844613`*^9, 
   3.7552653138284383`*^9}, {3.7554368180992208`*^9, 
   3.7554368420222936`*^9}, {3.755503454403533*^9, 3.755503456356752*^9}, {
   3.7555252517199326`*^9, 3.755525253998453*^9}, {3.755541995675126*^9, 
   3.7555420270895414`*^9}, {3.7563633745048857`*^9, 3.7563634216167355`*^9}, 
   3.756453023375229*^9, {3.7564571067500715`*^9, 3.7564571601116056`*^9}, {
   3.756478472147174*^9, 3.756478520622056*^9}, {3.75647856457241*^9, 
   3.756478565904142*^9}, 3.7565509723818607`*^9, 3.7565528969123926`*^9, {
   3.756829232795622*^9, 3.75682923343631*^9}, 3.7568313213591566`*^9, {
   3.756831748388461*^9, 3.756831768232089*^9}, {3.7568320208440433`*^9, 
   3.7568321022497234`*^9}, {3.756832135669667*^9, 3.756832139748993*^9}, {
   3.756832581263954*^9, 3.756832629763844*^9}, {3.757054058245234*^9, 
   3.757054086409026*^9}, 3.7570604579182887`*^9, {3.7570605243856*^9, 
   3.757060529720722*^9}, {3.757068376520649*^9, 3.7570683782202826`*^9}, {
   3.7570749833550725`*^9, 3.757075006425042*^9}, {3.7570756390405264`*^9, 
   3.7570756449094267`*^9}, 3.757076137574224*^9, {3.757076171380178*^9, 
   3.757076212180725*^9}, {3.757076516181449*^9, 3.757076518003343*^9}, {
   3.7570765695112944`*^9, 3.757076674646225*^9}, 3.757144745193302*^9, {
   3.7571447923695574`*^9, 3.7571448075866394`*^9}, {3.757316285042549*^9, 
   3.757316324280756*^9}, {3.757513499325259*^9, 3.757513527264227*^9}, {
   3.757513565453734*^9, 3.7575136973512917`*^9}, {3.757513731649969*^9, 
   3.7575137599795856`*^9}, 3.7579377800093718`*^9, {3.7579378711727953`*^9, 
   3.7579379099952917`*^9}, {3.7579380774352264`*^9, 3.757938100190439*^9}, {
   3.757938167452198*^9, 3.75793826014259*^9}, {3.7579383908771763`*^9, 
   3.7579383951281853`*^9}, {3.7579384338724017`*^9, 3.7579384436596093`*^9}, 
   3.757938553529039*^9, 3.7579441881269813`*^9, 3.7579444012306676`*^9, {
   3.7579454018750954`*^9, 3.7579454071755915`*^9}, {3.757945524027506*^9, 
   3.7579455519865885`*^9}, 3.7588859272495117`*^9, {3.7588903145951214`*^9, 
   3.7588903207821856`*^9}, {3.758959507997836*^9, 3.758959510920293*^9}, {
   3.7589595742166643`*^9, 3.7589595847321887`*^9}, {3.75895971279494*^9, 
   3.7589597263422823`*^9}, 3.758959757455155*^9, 3.758979320965925*^9, {
   3.7591267916625648`*^9, 3.7591267970889893`*^9}, {3.7591268691449356`*^9, 
   3.759126880943391*^9}, {3.759642966900665*^9, 3.7596430159344916`*^9}, {
   3.759643048451823*^9, 3.759643053983365*^9}, {3.759643223945421*^9, 
   3.759643274916876*^9}, {3.759645400204101*^9, 3.7596454157200623`*^9}, 
   3.7596456751109943`*^9, {3.7596458799080963`*^9, 3.7596459069865985`*^9}, {
   3.759646089736055*^9, 3.759646092392275*^9}, {3.759646132911873*^9, 
   3.7596461574778395`*^9}, {3.7596465912542686`*^9, 
   3.7596465922856035`*^9}, {3.7596467140012765`*^9, 3.759646739971084*^9}, {
   3.7596484429462867`*^9, 3.7596484432119265`*^9}, {3.7601632230861444`*^9, 
   3.7601632748063602`*^9}, {3.7601633667579384`*^9, 3.760163400995719*^9}, {
   3.7601634732870007`*^9, 3.7601635941316137`*^9}, {3.7601638001023855`*^9, 
   3.7601638021645*^9}, {3.7601638614482985`*^9, 3.760163899618043*^9}, {
   3.7601639624155664`*^9, 3.7601640248203125`*^9}, {3.7601641109779243`*^9, 
   3.760164134148882*^9}, {3.760164236287495*^9, 3.7601642485530195`*^9}, {
   3.7601643144741564`*^9, 3.76016432536782*^9}, {3.7601650185348845`*^9, 
   3.760165027754126*^9}, 3.7601661537486534`*^9, {3.763544569504774*^9, 
   3.763544577636202*^9}, {3.764131083789087*^9, 3.7641311680278535`*^9}, 
   3.7641312077017965`*^9, {3.764131945427787*^9, 3.7641319480060177`*^9}, {
   3.7641322163325357`*^9, 3.7641322195826936`*^9}, {3.764132576070011*^9, 
   3.7641325800702195`*^9}, {3.764132694060566*^9, 3.764132699263934*^9}, 
   3.7641327303593335`*^9, {3.764132906634118*^9, 3.7641329367807713`*^9}, 
   3.7641333424752407`*^9, {3.7641333746487923`*^9, 3.764133445422279*^9}, {
   3.764213533726599*^9, 3.7642135400081873`*^9}, {3.7642136219187183`*^9, 
   3.7642136733276424`*^9}, 3.76421396159208*^9, 3.764305584666644*^9, {
   3.764306152530793*^9, 3.7643062030215974`*^9}, 3.7643065613457756`*^9, {
   3.7643068314010315`*^9, 3.7643069374988527`*^9}, {3.7643070486200237`*^9, 
   3.7643071746561527`*^9}, {3.764307207622156*^9, 3.7643072740084677`*^9}, {
   3.764307324848403*^9, 3.764307338187306*^9}, 3.7643073689518414`*^9, 
   3.76430739955727*^9, 3.764595370170507*^9, {3.765607620320992*^9, 
   3.7656076304152975`*^9}, {3.7682860796975527`*^9, 3.7682860818226824`*^9}, 
   3.768286118480841*^9, {3.8459589433728685`*^9, 3.845959021364352*^9}, {
   3.845959052046276*^9, 
   3.845959090704961*^9}},ExpressionUUID->"48276a99-3329-4e68-b838-\
7c0df5bba5e3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Auxiliary Functions III (Normal density,positivizeMatrix,  etc)\
\>", "Subsubsection",
 CellChangeTimes->{{3.753168025777519*^9, 3.7531680615670276`*^9}, {
  3.7589594344982147`*^9, 3.758959463904327*^9}, {3.76459539098411*^9, 
  3.7645954155322456`*^9}, {3.7691460372390623`*^9, 
  3.7691460376874695`*^9}},ExpressionUUID->"59ae6a86-227a-4c52-8e21-\
e803c81c152a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "transitionDrawPG", " ", "and", " ", "condNormal", " ", "will", " ", "be", 
    " ", "used", " ", "in", " ", "the", " ", "PGASMK", " ", "algorithm"}], 
   "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"transitionDrawPG", "[", 
      RowBox[{"xt1_", ",", "A_", ",", "Q_"}], "]"}], ":=", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{"MultinormalDistribution", "[", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"A", ".", "xt1"}], "]"}], ",", "Q"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"positivizeMatrix", "[", "X_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "res", "}"}], ",", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"res", "=", "X"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"res", "=", 
         RowBox[{"0.5", "*", 
          RowBox[{"(", 
           RowBox[{"res", "+", 
            RowBox[{"Transpose", "[", "res", "]"}]}], ")"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
         "This", " ", "method", " ", "only", " ", "works", " ", "for", " ", 
          "Hermitian", " ", "matrices"}], "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Not", "[", 
            RowBox[{"PositiveDefiniteMatrixQ", "[", "res", "]"}], "]"}], "||", 
           RowBox[{
            RowBox[{"MatrixRank", "[", "res", "]"}], "\[NotEqual]", 
            RowBox[{"Length", "[", "res", "]"}]}]}], ",", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"auxsystDP", "=", 
            RowBox[{"Eigensystem", "[", "res", "]"}]}], ";", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"duDP", "=", 
            RowBox[{"DiagonalMatrix", "[", 
             RowBox[{"auxsystDP", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"wDP", "=", 
            RowBox[{"ReplacePart", "[", 
             RowBox[{"duDP", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"i_", ",", "i_"}], "}"}], "/;", 
                RowBox[{
                 RowBox[{"duDP", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "i"}], "]"}], "]"}], "\[LessEqual]", 
                 "0"}]}], "\[RuleDelayed]", "0"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"lenRes", "=", 
            RowBox[{"Length", "[", "res", "]"}]}], ";", "\[IndentingNewLine]",
            "\[IndentingNewLine]", 
           RowBox[{"powerDP", "=", "30"}], ";", "\[IndentingNewLine]", 
           "\[IndentingNewLine]", 
           RowBox[{"While", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Not", "[", 
               RowBox[{"PositiveDefiniteMatrixQ", "[", "res", "]"}], "]"}], "||", 
              RowBox[{
               RowBox[{"MatrixRank", "[", "res", "]"}], "\[NotEqual]", 
               RowBox[{"Length", "[", "res", "]"}]}]}], ",", 
             "\[IndentingNewLine]", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"res", "=", 
               RowBox[{
                RowBox[{"Transpose", "[", 
                 RowBox[{"auxsystDP", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
                RowBox[{"(", 
                 RowBox[{"wDP", "+", 
                  RowBox[{
                   RowBox[{"IdentityMatrix", "[", "lenRes", "]"}], "*", 
                   "$MinMachineNumber", "*", 
                   RowBox[{"2", "^", 
                    RowBox[{"(", 
                    RowBox[{"-", "powerDP"}], ")"}]}]}]}], ")"}], ".", 
                RowBox[{"auxsystDP", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}]}], ";", 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{"res", "=", 
               RowBox[{"0.5", "*", 
                RowBox[{"(", 
                 RowBox[{"res", "+", 
                  RowBox[{"Transpose", "[", "res", "]"}]}], ")"}]}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{
               "Machine", " ", "Precision", " ", "considerations", " ", 
                "make", " ", "the", " ", "above", " ", 
                RowBox[{"mandatory", "!"}], " ", "Not", " ", "theoretically", 
                " ", 
                RowBox[{"needed", "."}]}], "*)"}], "\[IndentingNewLine]", 
              "\[IndentingNewLine]", 
              RowBox[{"powerDP", "--"}], ";"}]}], "\[IndentingNewLine]", 
            "]"}], ";"}]}], " ", "\[IndentingNewLine]", "]"}], ";", 
        "\[IndentingNewLine]", "res"}]}], "\[IndentingNewLine]", "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"logMultinormalDens", "[", 
      RowBox[{"x_", ",", "mean_", ",", "var2_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "det", ",", "var"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"Theoretically", ",", " ", 
         RowBox[{
          RowBox[{"I", "'"}], "ve", " ", "made", " ", "sure", " ", "var2", 
          " ", "is", " ", "PD", " ", "and", " ", "Sym"}], ",", " ", "however",
          ",", " ", 
         RowBox[{
          RowBox[{"due", " ", "to", " ", "machine"}], "-", 
          RowBox[{"precision", " ", "considerations"}]}], ",", " ", 
         RowBox[{"we", " ", "must", " ", "make", " ", "sure", " ", 
          RowBox[{"it", "'"}], "s", " ", 
          RowBox[{"symmetric", ".", " ", "Otherwise"}], " ", "we", " ", 
          "would", " ", "have", " ", "an", " ", "error", " ", "warning", " ", 
          "from", " ", "mathematica"}]}], "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"var", "=", 
         RowBox[{"positivizeMatrix", "[", "var2", "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"t", "=", 
         RowBox[{"Quiet", "[", 
          RowBox[{"0.5", "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"x", "-", "mean"}], ")"}], ".", 
            RowBox[{"LinearSolve", "[", 
             RowBox[{"var", ",", 
              RowBox[{"(", 
               RowBox[{"x", "-", "mean"}], ")"}], ",", 
              RowBox[{"Method", "\[Rule]", "\"\<Cholesky\>\""}]}], "]"}]}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"det", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"2", "*", "Pi"}], ")"}], "^", 
           RowBox[{"Length", "[", "var", "]"}]}], "*", 
          RowBox[{
           RowBox[{"Det", "[", "var", "]"}], "^", 
           RowBox[{"(", "0.5", ")"}]}]}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"-", "t"}], "-", 
         RowBox[{"Log", "[", "det", "]"}]}]}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"logCondNormal", "[", 
      RowBox[{
      "vecy1T_", ",", "X1T_", ",", "t1_", ",", "t2_", ",", "M1PG_", ",", 
       "tilL_", ",", "CmatPG_", ",", "CmatStarPG_", ",", "SigmaPG_"}], "]"}], 
     ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", " ", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"{", 
         RowBox[{
         "fvecy1T", ",", "vecy1tminus1", ",", "vecytT", ",", "mean", ",", 
          "mean1tminus1", ",", "meantT", ",", "varMat", ",", "varMatTT", ",", 
          "varMat1t", ",", "varMat1tT", ",", "meancond", ",", "varcond", ",", 
          "fvy"}], "}"}], "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"N", 
          RowBox[{"(", 
           RowBox[{"y1", "|", "y2"}], ")"}], " ", "com", " ", "dim", 
          RowBox[{"(", "y1", ")"}]}], "=", 
         RowBox[{
          RowBox[{
           RowBox[{"3", "*", "t1", " ", "e", " ", "dim", 
            RowBox[{"(", "y1", ")"}]}], "+", 
           RowBox[{"dim", 
            RowBox[{"(", "y2", ")"}]}]}], "=", 
          RowBox[{"3", "*", "t2"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
        "vecy1T", " ", "tem", " ", "de", " ", "ser", " ", "flattened"}], 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"fvecy1T", "=", 
         RowBox[{"Flatten", "[", "vecy1T", "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"vecy1tminus1", "=", 
         RowBox[{"fvecy1T", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", 
            RowBox[{"3", "*", "t1"}]}], "]"}], "]"}]}], ";", 
        RowBox[{"(*", 
         RowBox[{"(", 
          RowBox[{"t1", "-", "1"}], ")"}], "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"vecytT", " ", "=", 
         RowBox[{"fvecy1T", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"3", "*", "t1"}], "+", "1"}], ";;", 
            RowBox[{"3", "*", "t2"}]}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"mean", "=", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"KroneckerProduct", "[", 
             RowBox[{
              RowBox[{"IdentityMatrix", "[", "t2", "]"}], ",", "CmatPG"}], 
             "]"}], ".", 
            RowBox[{"ArrayReshape", "[", 
             RowBox[{"X1T", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"2", "*", "t2"}], ",", "1"}], "}"}]}], "]"}]}], "+", 
           RowBox[{
            RowBox[{"KroneckerProduct", "[", 
             RowBox[{
              RowBox[{"ConstantArray", "[", 
               RowBox[{"1", ",", "t2"}], "]"}], ",", 
              RowBox[{"IdentityMatrix", "[", "3", "]"}]}], "]"}], ".", 
            "CmatStarPG"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"We", " ", "must", " ", "use", " ", "ArrayReshape"}], ",", 
          " ", 
          RowBox[{
          "since", " ", "X1T", " ", "was", " ", "made", " ", "using", " ", 
           "observations", " ", "as", " ", "ROWS"}], ",", " ", 
          RowBox[{"Not", " ", "columns"}]}], "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"mean1tminus1", "=", 
         RowBox[{"mean", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", 
            RowBox[{"3", "*", "t1"}]}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"meantT", "=", 
         RowBox[{"mean", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"3", "*", "t1"}], "+", "1"}], ";;"}], "]"}], "]"}]}], 
        ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"X1t2", "=", 
         RowBox[{"X1T", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "t2"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"varMat", "=", 
         RowBox[{"positivizeMatrix", "[", 
          RowBox[{
           RowBox[{"KroneckerProduct", "[", 
            RowBox[{
             RowBox[{"Kint", "[", 
              RowBox[{"X1t2", ",", "X1t2", ",", 
               RowBox[{"Exp", "[", "tilL", "]"}]}], "]"}], ",", "M1PG"}], 
            "]"}], "+", 
           RowBox[{"KroneckerProduct", "[", 
            RowBox[{
             RowBox[{"IdentityMatrix", "[", "t2", "]"}], ",", "SigmaPG"}], 
            "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"varMatTT", "=", 
         RowBox[{"varMat", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"3", "*", "t1"}], "+", "1"}], ";;"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"3", "*", "t1"}], "+", "1"}], ";;"}]}], "]"}], "]"}]}], 
        ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"varMat1t", "=", 
         RowBox[{"varMat", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"1", ";;", 
             RowBox[{"3", "*", "t1"}]}], ",", 
            RowBox[{"1", ";;", 
             RowBox[{"3", "*", "t1"}]}]}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"varMat1tT", "=", 
         RowBox[{"varMat", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"1", ";;", 
             RowBox[{"3", "*", "t1"}]}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"3", "*", "t1"}], "+", "1"}], ";;"}]}], "]"}], "]"}]}], 
        ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"meancond", "=", 
         RowBox[{"Quiet", "[", 
          RowBox[{"Flatten", "[", 
           RowBox[{"meantT", "+", 
            RowBox[{
             RowBox[{"Transpose", "[", "varMat1tT", "]"}], ".", " ", 
             RowBox[{"LinearSolve", "[", 
              RowBox[{"varMat1t", ",", 
               RowBox[{"(", 
                RowBox[{"vecy1tminus1", "-", "mean1tminus1"}], ")"}]}], 
              "]"}]}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"varcond", "=", " ", 
         RowBox[{"Quiet", "[", 
          RowBox[{"varMatTT", "-", 
           RowBox[{
            RowBox[{"Transpose", "[", "varMat1tT", "]"}], ".", " ", 
            RowBox[{"LinearSolve", "[", 
             RowBox[{"varMat1t", ",", "varMat1tT"}], "]"}]}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
          "Theoretically", " ", "the", " ", "next", " ", "lines", " ", "of", 
           " ", "code", " ", 
           RowBox[{"shouldn", "'"}], "t", " ", "be", " ", "needed"}], ",", 
          " ", 
          RowBox[{
          "but", " ", "due", " ", "to", " ", "numerical", " ", "machine", " ",
            "accuracy"}], ",", " ", 
          RowBox[{"we", " ", "sometimes", " ", "need", " ", "this"}]}], 
         "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"varcond", "=", 
         RowBox[{"positivizeMatrix", "[", "varcond", "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"t", "=", 
         RowBox[{"Quiet", "[", 
          RowBox[{"0.5", "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"vecytT", "-", "meancond"}], ")"}], ".", 
            RowBox[{"LinearSolve", "[", 
             RowBox[{"varcond", ",", 
              RowBox[{"(", 
               RowBox[{"vecytT", "-", "meancond"}], ")"}], ",", 
              RowBox[{"Method", "\[Rule]", "\"\<Cholesky\>\""}]}], "]"}]}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
           RowBox[{"Quiet", " ", "quiets", " ", "non"}], "-", 
           RowBox[{"critical", " ", "warnings"}]}], ",", " ", 
          RowBox[{"like", " ", "numerically", " ", "unstable", " ", 
           RowBox[{"matrices", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"det", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"2", "*", "Pi"}], ")"}], "^", 
           RowBox[{"Length", "[", "varcond", "]"}]}], "*", 
          RowBox[{
           RowBox[{"Det", "[", "varcond", "]"}], "^", 
           RowBox[{"(", "0.5", ")"}]}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
          "Theoretically", " ", "the", " ", "above", " ", "line", " ", "of", 
           " ", "code", " ", 
           RowBox[{"shouldn", "'"}], "t", " ", "need", " ", "Abs"}], ",", " ", 
          RowBox[{
          "but", " ", "due", " ", "to", " ", "numerical", " ", "machine", " ",
            "accuracy"}], ",", " ", 
          RowBox[{"we", " ", "sometimes", " ", "need", " ", "this"}]}], 
         "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"-", "t"}], "-", 
         RowBox[{"Log", "[", "det", "]"}]}]}]}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7649200461154804`*^9, 3.764920139741502*^9}, {
   3.7649520847162776`*^9, 3.764952129515501*^9}, {3.7649958155692997`*^9, 
   3.764995845161605*^9}, 3.7649959712675548`*^9, {3.7649960295291233`*^9, 
   3.7649960485375338`*^9}, {3.7649960884460444`*^9, 3.764996117479946*^9}, {
   3.764996399251603*^9, 3.7649964962900553`*^9}, {3.7651711338215065`*^9, 
   3.765171180535687*^9}, {3.7656073888714542`*^9, 3.7656073949655237`*^9}, {
   3.7691457577030597`*^9, 3.7691457582170534`*^9}, {3.7691661394703207`*^9, 
   3.7691662821353145`*^9}, 3.7692764256090345`*^9},
 CellLabel->
  "In[216]:=",ExpressionUUID->"1beb82b5-00ce-4670-bbb5-09e970f44ab4"]
}, Closed]],

Cell[CellGroupData[{

Cell["Mean for Econ", "Subsubsection",
 CellChangeTimes->{{3.7531680718255754`*^9, 3.7531680944404716`*^9}, {
   3.7532616090779924`*^9, 3.7532616549825935`*^9}, {3.755505857598364*^9, 
   3.755505876875003*^9}, 3.7628372209020605`*^9, 3.762841396121271*^9, {
   3.762842738152006*^9, 
   3.762842742527236*^9}},ExpressionUUID->"47232861-358d-4bdf-aac9-\
418b4127af96"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"newMeanEcon", "[", 
    RowBox[{
    "vecy1T_", ",", "vecx2T_", ",", "vecx1T1_", ",", "vecx1T_", ",", "X1T_", 
     ",", "T_", ",", "KM_", ",", 
     RowBox[{"{", 
      RowBox[{"M1_", ",", 
       RowBox[{"{", 
        RowBox[{
        "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
         "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
       "tilL_", ",", 
       RowBox[{"{", 
        RowBox[{"tilQMat_", ",", "tilSigmaMat_"}], "}"}]}], "}"}], ",", 
     "s1_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Tilparam", "=", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
          "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], "+", 
        RowBox[{"s1", "*", 
         RowBox[{"RandomReal", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "6"}], "]"}]}]}]}], 
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "Tilparam"}]}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7505657672869964`*^9, 3.750565846508605*^9}, {
   3.7505659231335907`*^9, 3.7505659236779137`*^9}, {3.7505659861802254`*^9, 
   3.7505659935867558`*^9}, {3.750566038531695*^9, 3.750566040791996*^9}, {
   3.7505660794081597`*^9, 3.750566124263068*^9}, {3.750566172142468*^9, 
   3.7505661814351416`*^9}, {3.7505662368523464`*^9, 
   3.7505662717449665`*^9}, {3.7505663164302397`*^9, 
   3.7505664304624786`*^9}, {3.750566669009137*^9, 3.750566746383494*^9}, {
   3.7505669400371203`*^9, 3.7505669929301486`*^9}, {3.75056777969715*^9, 
   3.750567813788676*^9}, {3.7505684489942303`*^9, 3.750568463273712*^9}, {
   3.750570702493136*^9, 3.7505707048684015`*^9}, {3.7505722371880217`*^9, 
   3.7505722896821284`*^9}, {3.750572683051879*^9, 3.7505726960400352`*^9}, {
   3.7505728188836412`*^9, 3.7505729454974732`*^9}, {3.750580359102162*^9, 
   3.750580434559182*^9}, {3.750580745622156*^9, 3.7505808136569176`*^9}, 
   3.751104775532077*^9, {3.751104923440542*^9, 3.7511049625963116`*^9}, {
   3.751105140360424*^9, 3.7511052776929255`*^9}, {3.7511053294379063`*^9, 
   3.751105556790142*^9}, {3.7511057016106405`*^9, 3.7511057025501328`*^9}, {
   3.751105760658673*^9, 3.751105762000988*^9}, {3.7511058261080847`*^9, 
   3.7511058266413946`*^9}, {3.751106239033055*^9, 3.7511062405767574`*^9}, {
   3.7511063002668967`*^9, 3.751106362769523*^9}, {3.751106471174114*^9, 
   3.751106496719597*^9}, {3.7511065333464327`*^9, 3.7511065604385443`*^9}, {
   3.751106858176976*^9, 3.751106880691366*^9}, {3.75110700967247*^9, 
   3.7511070273001213`*^9}, 3.7511071254870462`*^9, {3.751107181424448*^9, 
   3.751107226140745*^9}, 3.751107256281398*^9, {3.7511073103929415`*^9, 
   3.751107337907714*^9}, {3.7511073695947695`*^9, 3.751107423860882*^9}, 
   3.7511075165638943`*^9, {3.7511075606411657`*^9, 3.751107694484481*^9}, {
   3.7511077324562483`*^9, 3.7511077500119343`*^9}, {3.7511086392855577`*^9, 
   3.751108719106904*^9}, {3.751108787375388*^9, 3.751108836127715*^9}, {
   3.7511089276412845`*^9, 3.7511089450471034`*^9}, {3.7511090051900773`*^9, 
   3.7511090113777275`*^9}, {3.751109116531319*^9, 3.751109121596521*^9}, {
   3.751109976094879*^9, 3.751109983844214*^9}, {3.7511108711735816`*^9, 
   3.7511109035029345`*^9}, {3.751111105064044*^9, 3.751111136347082*^9}, {
   3.751111368985362*^9, 3.7511113701255455`*^9}, {3.751111403375066*^9, 
   3.751111403879157*^9}, {3.7511114823284035`*^9, 3.751111498018744*^9}, 
   3.751111758281865*^9, {3.7511373747616696`*^9, 3.7511375429360247`*^9}, {
   3.751138028732254*^9, 3.7511380399875546`*^9}, {3.751138469606248*^9, 
   3.751138500029875*^9}, {3.751139019706829*^9, 3.7511390687405567`*^9}, {
   3.7511393070494633`*^9, 3.75113930884643*^9}, {3.751139392381897*^9, 
   3.7511394130704327`*^9}, {3.7511791476720867`*^9, 
   3.7511791486729407`*^9}, {3.751190365500287*^9, 3.7511904649218583`*^9}, 
   3.7511907196786785`*^9, {3.751192749202721*^9, 3.751192899282124*^9}, {
   3.7511929347206287`*^9, 3.7511929368446665`*^9}, {3.751197051194865*^9, 
   3.7511970630887847`*^9}, {3.751197140803462*^9, 3.7511971780789003`*^9}, {
   3.7511972549260697`*^9, 3.751197495809845*^9}, 3.7511975294952745`*^9, {
   3.7511975685172553`*^9, 3.7511976190118785`*^9}, {3.7511976787956853`*^9, 
   3.751197806940008*^9}, {3.751197924041108*^9, 3.751197944942025*^9}, {
   3.751198114234748*^9, 3.751198131534266*^9}, {3.7511983444674263`*^9, 
   3.7511983836355066`*^9}, {3.751198458769849*^9, 3.751198534981048*^9}, 
   3.7511987458002415`*^9, 3.751198845370185*^9, {3.751200092354169*^9, 
   3.751200122810151*^9}, {3.7512001644311304`*^9, 3.751200184640587*^9}, {
   3.75120261444986*^9, 3.751202615026245*^9}, 3.7512028464264264`*^9, {
   3.7512029883179026`*^9, 3.7512030044426394`*^9}, 3.7512031472056985`*^9, {
   3.751203450634734*^9, 3.751203455093707*^9}, {3.751203532157016*^9, 
   3.751203586867445*^9}, {3.751204633862773*^9, 3.7512046627673283`*^9}, {
   3.7512052215693398`*^9, 3.751205311409314*^9}, 3.751205346264258*^9, {
   3.7512054758798265`*^9, 3.7512056527103662`*^9}, {3.751206263405012*^9, 
   3.751206427346819*^9}, {3.75120647137586*^9, 3.7512064787841697`*^9}, {
   3.751263901269413*^9, 3.751263934312447*^9}, {3.751264042082356*^9, 
   3.751264060043459*^9}, 3.7512641764125223`*^9, {3.751267855303958*^9, 
   3.751267995582011*^9}, {3.7512680360027657`*^9, 3.751268128769765*^9}, {
   3.75126816054605*^9, 3.7512682292527447`*^9}, {3.751268706507963*^9, 
   3.7512687415783377`*^9}, 3.7512687808470936`*^9, {3.7512688243689823`*^9, 
   3.751268844336131*^9}, {3.751268875378932*^9, 3.7512688778932657`*^9}, {
   3.751268986612778*^9, 3.7512690004846053`*^9}, {3.751269422879591*^9, 
   3.751269481241306*^9}, {3.751269577746869*^9, 3.751269652480719*^9}, 
   3.7512696890115933`*^9, {3.7512697642907677`*^9, 3.7512697929819374`*^9}, {
   3.7512699695505877`*^9, 3.751269970346939*^9}, {3.751270044252699*^9, 
   3.751270066265069*^9}, {3.751270097597247*^9, 3.751270098347725*^9}, {
   3.7512701542683935`*^9, 3.7512702837545433`*^9}, {3.7512703502656617`*^9, 
   3.7512703863591995`*^9}, {3.7512704395976143`*^9, 3.75127044125257*^9}, {
   3.7512704980810995`*^9, 3.751270609775647*^9}, {3.751270709893674*^9, 
   3.75127074975277*^9}, {3.751270803700219*^9, 3.751270806552363*^9}, {
   3.751270849519964*^9, 3.751270956007082*^9}, 3.751271084957001*^9, {
   3.7512711212646217`*^9, 3.7512713022688737`*^9}, {3.751271815778951*^9, 
   3.7512718842347283`*^9}, {3.7512719448782215`*^9, 
   3.7512719635787277`*^9}, {3.751272006753087*^9, 3.7512721236755247`*^9}, 
   3.751272156968498*^9, {3.7512722181278334`*^9, 3.751272293192318*^9}, {
   3.7512723521904583`*^9, 3.7512723990820065`*^9}, {3.751272756752042*^9, 
   3.751272759374689*^9}, {3.7512728082387085`*^9, 3.7512730433945785`*^9}, {
   3.7512732094715147`*^9, 3.7512732499877243`*^9}, 3.751273301132416*^9, {
   3.75127337703487*^9, 3.751273386660244*^9}, {3.751273439019314*^9, 
   3.7512734920037003`*^9}, {3.7514027566170006`*^9, 3.751402805499491*^9}, {
   3.751434938011731*^9, 3.7514349680739107`*^9}, {3.751443081484434*^9, 
   3.751443196012692*^9}, {3.7514432309869814`*^9, 3.75144324735688*^9}, {
   3.7514433577724004`*^9, 3.7514434177803555`*^9}, {3.751443504409037*^9, 
   3.7514435447488956`*^9}, 3.7514436473872385`*^9, {3.7514436930286293`*^9, 
   3.7514437695005465`*^9}, {3.7514438248754187`*^9, 
   3.7514438376889505`*^9}, {3.751443940902675*^9, 3.751443972646812*^9}, {
   3.751444204207996*^9, 3.751444216324063*^9}, {3.7514442780421567`*^9, 
   3.7514442867399483`*^9}, {3.751444470361212*^9, 3.75144449920842*^9}, {
   3.751444736113163*^9, 3.7514447397956157`*^9}, {3.751444773813264*^9, 
   3.7514448960666666`*^9}, {3.7514450441082387`*^9, 3.751445067569861*^9}, {
   3.751445129463076*^9, 3.7514452162308464`*^9}, {3.7514462143034086`*^9, 
   3.7514462368374133`*^9}, {3.751446514170074*^9, 3.7514465161133685`*^9}, {
   3.7514466882469845`*^9, 3.7514467334160585`*^9}, {3.7514467747705956`*^9, 
   3.751446781539102*^9}, {3.751446918697428*^9, 3.7514469766910424`*^9}, 
   3.7514475744900856`*^9, {3.7514476658559194`*^9, 3.75144769756103*^9}, {
   3.751447734813835*^9, 3.7514477793865147`*^9}, {3.7514478478711166`*^9, 
   3.751447861541217*^9}, {3.751447937729946*^9, 3.7514479485311375`*^9}, {
   3.751450104574473*^9, 3.7514501616424694`*^9}, {3.751450411294389*^9, 
   3.751450419802226*^9}, {3.7514504862050333`*^9, 3.75145050269452*^9}, {
   3.7514506695389185`*^9, 3.7514506716548615`*^9}, {3.751483668424836*^9, 
   3.7514837879367666`*^9}, {3.7514840111549044`*^9, 3.751484116999001*^9}, {
   3.7514843193411584`*^9, 3.7514844767961383`*^9}, {3.7514845202034664`*^9, 
   3.751484545562994*^9}, {3.751484611562432*^9, 3.751484664045507*^9}, {
   3.7514855871240025`*^9, 3.7514856005050917`*^9}, 3.751491177468532*^9, {
   3.751491275930093*^9, 3.7514912805831895`*^9}, {3.7515193219423504`*^9, 
   3.7515193298245974`*^9}, {3.751519420248808*^9, 3.75151942938089*^9}, {
   3.7515440610453777`*^9, 3.751544061264138*^9}, {3.7515452962334127`*^9, 
   3.751545337184332*^9}, {3.7515594986899805`*^9, 3.7515595201577816`*^9}, {
   3.7515599630740566`*^9, 3.7515600381391096`*^9}, {3.7515601449462333`*^9, 
   3.7515602533196063`*^9}, {3.7515602902681417`*^9, 3.751560306075667*^9}, {
   3.7515604133386135`*^9, 3.7515604483477845`*^9}, {3.751560531173319*^9, 
   3.751560568114834*^9}, 3.7515607113442483`*^9, 3.7515608055251946`*^9, 
   3.7515608903918505`*^9, {3.7515609237352133`*^9, 3.7515609238418756`*^9}, {
   3.751562795886561*^9, 3.751562832078611*^9}, {3.751563767463195*^9, 
   3.7515637744955425`*^9}, {3.7515638142168555`*^9, 3.751563828430811*^9}, {
   3.7515638783352494`*^9, 3.751563926964904*^9}, {3.7515642759358253`*^9, 
   3.751564318608959*^9}, {3.7515644229363275`*^9, 3.751564425233526*^9}, {
   3.751564468231185*^9, 3.7515644945989494`*^9}, {3.751564532912781*^9, 
   3.7515645651718864`*^9}, {3.7515651629259696`*^9, 3.751565276898184*^9}, {
   3.751565364353394*^9, 3.7515654035975566`*^9}, {3.7515655230115614`*^9, 
   3.751565554257234*^9}, {3.751565620913272*^9, 3.751565634895337*^9}, {
   3.751567661620452*^9, 3.7515676645969877`*^9}, {3.7516177890332737`*^9, 
   3.7516177998071384`*^9}, {3.751617880149107*^9, 3.751617892689335*^9}, {
   3.7516179840959563`*^9, 3.751618022522007*^9}, {3.7516180843003683`*^9, 
   3.751618146533952*^9}, {3.7516182600953674`*^9, 3.751618274779873*^9}, {
   3.7516183719068785`*^9, 3.7516183842980475`*^9}, {3.751618798754757*^9, 
   3.751618850238065*^9}, {3.7516197132007256`*^9, 3.7516197316031613`*^9}, 
   3.751620956195039*^9, {3.7516213346507463`*^9, 3.751621439686392*^9}, {
   3.75162148180729*^9, 3.7516216024258413`*^9}, 3.751621665039417*^9, {
   3.7516217316932864`*^9, 3.7516217986099033`*^9}, 3.7516218577337065`*^9, 
   3.751622032156968*^9, {3.7516220849725513`*^9, 3.75162220441278*^9}, {
   3.751622243857109*^9, 3.7516222870218983`*^9}, {3.7516226074639764`*^9, 
   3.751622685544321*^9}, {3.7516228831378083`*^9, 3.7516228919463177`*^9}, {
   3.7516229500949717`*^9, 3.7516229751179895`*^9}, {3.7519542816824355`*^9, 
   3.7519542911247215`*^9}, {3.7519543531390147`*^9, 3.751954367662685*^9}, {
   3.7519604886781006`*^9, 3.751960503664078*^9}, {3.7519606070411882`*^9, 
   3.751960613928009*^9}, {3.751990179468815*^9, 3.751990188686549*^9}, 
   3.751992123500967*^9, {3.751993122591089*^9, 3.7519931543987603`*^9}, {
   3.751996720785695*^9, 3.751996734536852*^9}, {3.7520375991275463`*^9, 
   3.7520376579712954`*^9}, {3.752037703346653*^9, 3.75203770986129*^9}, {
   3.7520378266166515`*^9, 3.7520379608463535`*^9}, {3.7520379934681115`*^9, 
   3.7520379974791183`*^9}, {3.752038122498396*^9, 3.752038148022621*^9}, {
   3.7520385731743464`*^9, 3.7520385773722*^9}, {3.7521264584437914`*^9, 
   3.752126465590701*^9}, {3.7521264975458403`*^9, 3.7521265924636707`*^9}, {
   3.752126658733886*^9, 3.752126687249611*^9}, 3.7521267504338655`*^9, {
   3.752126780779866*^9, 3.7521268008641195`*^9}, {3.752151238217684*^9, 
   3.752151272828807*^9}, {3.7521513326443257`*^9, 3.752151371740051*^9}, {
   3.752151451619084*^9, 3.7521514642290754`*^9}, {3.752151496324437*^9, 
   3.7521515641247654`*^9}, {3.752151889297434*^9, 3.752151891266282*^9}, {
   3.752152026788722*^9, 3.752152030585817*^9}, {3.7521523535239983`*^9, 
   3.752152365071456*^9}, {3.7521524262620454`*^9, 3.7521524333873777`*^9}, 
   3.7521530890399246`*^9, {3.7521531347297335`*^9, 3.752153135526647*^9}, {
   3.7521533240986395`*^9, 3.7521533341773024`*^9}, 3.752153952786664*^9, {
   3.752154012430299*^9, 3.7521540150866547`*^9}, {3.752154334634045*^9, 
   3.7521543617448115`*^9}, {3.752157070109583*^9, 3.752157070359597*^9}, 
   3.7521574872124586`*^9, 3.7521575281725473`*^9, {3.752159994669336*^9, 
   3.7521600121084347`*^9}, {3.7521606623125134`*^9, 
   3.7521606820467477`*^9}, {3.752161682512416*^9, 3.752161712136483*^9}, {
   3.7521618063200274`*^9, 3.7521618066169496`*^9}, {3.752161939097358*^9, 
   3.752161971810601*^9}, {3.7521621292303057`*^9, 3.7521621470220823`*^9}, {
   3.752162251242768*^9, 3.7521622614789877`*^9}, 3.7521624128262897`*^9, {
   3.7521625644324007`*^9, 3.752162611888942*^9}, {3.752345342451853*^9, 
   3.7523453807873564`*^9}, {3.752665589880958*^9, 3.7526656093654833`*^9}, 
   3.7526657068621573`*^9, {3.7526663591309004`*^9, 3.752666394896655*^9}, {
   3.752666455130684*^9, 3.7526665146929593`*^9}, {3.7526665928959394`*^9, 
   3.752666610427685*^9}, {3.7526666638124237`*^9, 3.7526666785059805`*^9}, {
   3.752666742318694*^9, 3.7526667673663607`*^9}, {3.7526668569131947`*^9, 
   3.752666882829051*^9}, {3.7526670622554164`*^9, 3.752667091630542*^9}, 
   3.752667163409067*^9, {3.7526672136790724`*^9, 3.7526672590679593`*^9}, {
   3.7526673372867613`*^9, 3.7526673745009594`*^9}, {3.7526674862709246`*^9, 
   3.752667512162136*^9}, {3.752667936599702*^9, 3.7526680164904184`*^9}, {
   3.752668130567745*^9, 3.7526681499584785`*^9}, 3.752668279287221*^9, {
   3.752668433474513*^9, 3.7526684344271755`*^9}, {3.7526684713498745`*^9, 
   3.7526684832956305`*^9}, {3.752668660946969*^9, 3.7526686636150694`*^9}, {
   3.752668708756461*^9, 3.7526687091162987`*^9}, {3.752668794130251*^9, 
   3.7526688216306505`*^9}, {3.752668877927391*^9, 3.7526688810373497`*^9}, {
   3.7526689172201176`*^9, 3.7526690274427457`*^9}, {3.752669194376151*^9, 
   3.7526691974116373`*^9}, {3.752669270021693*^9, 3.752669272630577*^9}, {
   3.752669727677882*^9, 3.7526697294435935`*^9}, {3.7526697725836535`*^9, 
   3.752669820208794*^9}, {3.7526698887656665`*^9, 3.752669973881936*^9}, {
   3.7526700178805447`*^9, 3.7526700295217733`*^9}, {3.7526706346685467`*^9, 
   3.7526706594506545`*^9}, {3.7526708762431602`*^9, 
   3.7526708781849294`*^9}, {3.752671001123205*^9, 3.7526710267179046`*^9}, {
   3.7526711397799997`*^9, 3.752671182068529*^9}, {3.7526716193916245`*^9, 
   3.7526716363407087`*^9}, {3.752671669575672*^9, 3.752671741729004*^9}, {
   3.752672232084035*^9, 3.752672234772108*^9}, {3.752672280148831*^9, 
   3.752672280727012*^9}, {3.7526725876085167`*^9, 3.752672596302247*^9}, 
   3.7526728512775335`*^9, 3.7526730231361256`*^9, {3.7526732421256533`*^9, 
   3.7526732540277357`*^9}, {3.7526732936616235`*^9, 3.752673304371353*^9}, {
   3.7526735034703283`*^9, 3.752673516134522*^9}, {3.752673576418618*^9, 
   3.75267357721657*^9}, {3.752673607632244*^9, 3.752673609400045*^9}, {
   3.7526736627709103`*^9, 3.7526737202716246`*^9}, {3.7526737571957655`*^9, 
   3.752673793543724*^9}, {3.7526745000997763`*^9, 3.7526745295626955`*^9}, {
   3.752674703494891*^9, 3.752674725936242*^9}, {3.752674756978424*^9, 
   3.752674828521925*^9}, {3.7526749162666397`*^9, 3.752674946630674*^9}, {
   3.752676296498336*^9, 3.752676360797632*^9}, {3.7526764214207687`*^9, 
   3.7526764326477737`*^9}, {3.7526767037865477`*^9, 
   3.7526767131223974`*^9}, {3.752677273197976*^9, 3.7526772749759145`*^9}, {
   3.752677330183681*^9, 3.7526774261405663`*^9}, 3.752677486505455*^9, {
   3.7526775280015545`*^9, 3.7526775703506317`*^9}, {3.7526782918646455`*^9, 
   3.7526783057118387`*^9}, {3.7526783488188653`*^9, 
   3.7526783564940042`*^9}, {3.752678435954553*^9, 3.752678461369563*^9}, {
   3.7526785013115835`*^9, 3.7526785102091455`*^9}, {3.7526785844434223`*^9, 
   3.7526786274687724`*^9}, 3.752679566668491*^9, {3.752679629074747*^9, 
   3.752679679912033*^9}, {3.752679765187885*^9, 3.7526797728755093`*^9}, {
   3.7526798604008336`*^9, 3.7526798634666967`*^9}, {3.752745988138604*^9, 
   3.752746022638576*^9}, {3.7527509704425373`*^9, 3.7527510842393084`*^9}, {
   3.7527532400857162`*^9, 3.75275328689177*^9}, 3.752753343887947*^9, {
   3.7527533757145014`*^9, 3.752753482042467*^9}, {3.7527544113997726`*^9, 
   3.752754418749231*^9}, 3.752754458391287*^9, {3.752754565431181*^9, 
   3.752754687103303*^9}, {3.752754722786633*^9, 3.7527547328871202`*^9}, {
   3.7527547632918687`*^9, 3.752754801912865*^9}, {3.7527549560034747`*^9, 
   3.752754962530466*^9}, {3.7527552613023634`*^9, 3.752755285036065*^9}, {
   3.7527554070024776`*^9, 3.752755408521305*^9}, {3.752755699949483*^9, 
   3.7527557284836473`*^9}, 3.752755788301222*^9, {3.7527558410408216`*^9, 
   3.752755932529893*^9}, {3.7527634865362206`*^9, 3.752763496829074*^9}, {
   3.7527636689006467`*^9, 3.7527637507081175`*^9}, {3.7527637834369097`*^9, 
   3.752763790287472*^9}, {3.752768767583745*^9, 3.752768767990022*^9}, {
   3.752778291555577*^9, 3.7527783218903666`*^9}, {3.752778592024059*^9, 
   3.752778637638337*^9}, 3.752778808789834*^9, {3.7527789746631985`*^9, 
   3.752778985659359*^9}, {3.7527794093115954`*^9, 3.7527794251405263`*^9}, {
   3.7527807280309267`*^9, 3.752780735201707*^9}, {3.752826067779383*^9, 
   3.752826098931508*^9}, {3.752827854657959*^9, 3.752827859592848*^9}, {
   3.752828540868827*^9, 3.7528286250959883`*^9}, {3.7528286887336516`*^9, 
   3.7528286988221817`*^9}, {3.7528288458428073`*^9, 3.752828873935688*^9}, {
   3.7528289961115923`*^9, 3.7528289963303566`*^9}, {3.7528290509613404`*^9, 
   3.752829143814409*^9}, {3.752829606900943*^9, 3.752829616279752*^9}, {
   3.75282971585106*^9, 3.752829730717065*^9}, {3.752831419396857*^9, 
   3.7528315561107693`*^9}, {3.7528315923188753`*^9, 
   3.7528316183088827`*^9}, {3.7528316567634478`*^9, 3.75283168416971*^9}, {
   3.75283176455752*^9, 3.752831766988679*^9}, {3.7528318161173525`*^9, 
   3.752831850161955*^9}, 3.7528319098300962`*^9, {3.752832155134966*^9, 
   3.752832155463109*^9}, {3.752832397490411*^9, 3.75283242602553*^9}, 
   3.7528325000508485`*^9, {3.7528328180523596`*^9, 3.7528328359347544`*^9}, {
   3.752832866501874*^9, 3.752832874743971*^9}, {3.752832966568694*^9, 
   3.752833005205539*^9}, {3.7528332955088387`*^9, 3.7528333925452857`*^9}, {
   3.7528334474122963`*^9, 3.7528334882906218`*^9}, {3.7528335206736546`*^9, 
   3.752833521021454*^9}, {3.7528336525686274`*^9, 3.752833669131317*^9}, {
   3.752842336638502*^9, 3.752842337262*^9}, {3.7528447074049807`*^9, 
   3.752844707701872*^9}, {3.7528448100785217`*^9, 3.7528448181364374`*^9}, {
   3.752845400433261*^9, 3.7528454118885727`*^9}, {3.752845458200714*^9, 
   3.752845459763857*^9}, {3.752846366127219*^9, 3.752846366595993*^9}, {
   3.7528468407116833`*^9, 3.7528468757772074`*^9}, {3.752847116918248*^9, 
   3.7528471907209406`*^9}, {3.7528472219335318`*^9, 
   3.7528472346534595`*^9}, {3.752848183434478*^9, 3.7528482572931957`*^9}, {
   3.752848366170209*^9, 3.7528484197318907`*^9}, {3.752848513622999*^9, 
   3.752848531669105*^9}, 3.752848681636752*^9, 3.7528505921067753`*^9, {
   3.752931256426008*^9, 3.7529312834481993`*^9}, {3.7529313266463275`*^9, 
   3.752931330510488*^9}, {3.752935138687519*^9, 3.75293524827658*^9}, {
   3.7529352939330177`*^9, 3.7529353158786464`*^9}, {3.7529353465090666`*^9, 
   3.752935359763903*^9}, {3.752935402477379*^9, 3.7529354276041307`*^9}, {
   3.752935459296261*^9, 3.752935556893323*^9}, {3.7529355953479595`*^9, 
   3.752935610651164*^9}, {3.7529358009650373`*^9, 3.7529358045734434`*^9}, {
   3.752936040929016*^9, 3.752936236578554*^9}, 3.7529362711105766`*^9, {
   3.7529363715715494`*^9, 3.7529364308100424`*^9}, {3.7529365334014344`*^9, 
   3.7529365501215825`*^9}, {3.7529555942988253`*^9, 3.752955619487618*^9}, {
   3.752955658052097*^9, 3.7529557390818915`*^9}, {3.7529558082272863`*^9, 
   3.7529559642821407`*^9}, {3.7529562518281727`*^9, 
   3.7529562525625873`*^9}, {3.752956318050294*^9, 3.7529563569116917`*^9}, {
   3.752956575165788*^9, 3.7529565905259237`*^9}, {3.7529566378096*^9, 
   3.752956648513303*^9}, {3.7529567053599434`*^9, 3.7529567808950725`*^9}, {
   3.7529906855127187`*^9, 3.7529909103680058`*^9}, {3.752990942291519*^9, 
   3.7529909670896673`*^9}, {3.752991236744128*^9, 3.7529912403068085`*^9}, {
   3.7529912723084545`*^9, 3.7529914019869566`*^9}, 3.7529915484163713`*^9, 
   3.752991633498863*^9, {3.7529918498602896`*^9, 3.7529918707676115`*^9}, {
   3.7529919269111176`*^9, 3.752991928629956*^9}, {3.752992016509467*^9, 
   3.7529920344635115`*^9}, {3.752992102904497*^9, 3.7529921142019773`*^9}, {
   3.7529922788041754`*^9, 3.7529923829345174`*^9}, {3.7529924428750963`*^9, 
   3.7529924729391108`*^9}, {3.7529925362392607`*^9, 
   3.7529925643813286`*^9}, {3.752992674480728*^9, 3.752992705794835*^9}, {
   3.7529927434217396`*^9, 3.7529927729857826`*^9}, {3.752992809237644*^9, 
   3.7529928889761105`*^9}, {3.7529933147379646`*^9, 3.75299333531068*^9}, {
   3.7529934462356305`*^9, 3.7529934721819267`*^9}, {3.752993674827025*^9, 
   3.752993764728958*^9}, {3.7529941501889334`*^9, 3.7529942528865013`*^9}, {
   3.7529942866720247`*^9, 3.7529943080822983`*^9}, {3.752994373255746*^9, 
   3.752994376462884*^9}, {3.75299447331245*^9, 3.752994515109315*^9}, {
   3.7529945862837644`*^9, 3.7529946553568134`*^9}, {3.7529958259652185`*^9, 
   3.7529958402827635`*^9}, {3.7530145608433046`*^9, 
   3.7530146954240246`*^9}, {3.7530147556101503`*^9, 3.753014982337302*^9}, {
   3.7530150296888676`*^9, 3.7530150826862*^9}, {3.7530151669263597`*^9, 
   3.753015188357647*^9}, {3.7530152192732563`*^9, 3.753015221748908*^9}, {
   3.7530214795645113`*^9, 3.7530215141676407`*^9}, {3.7530227671805887`*^9, 
   3.753022839645647*^9}, {3.7530228817853994`*^9, 3.753022893187793*^9}, {
   3.7530229943388505`*^9, 3.753023011764906*^9}, {3.7530230428586483`*^9, 
   3.7530230834447365`*^9}, {3.753023613711633*^9, 3.7530236442949667`*^9}, {
   3.753023687603938*^9, 3.7530237323233786`*^9}, {3.7530237743981776`*^9, 
   3.7530237965309544`*^9}, {3.753024293479504*^9, 3.753024330410098*^9}, {
   3.7530244349295454`*^9, 3.753024449968669*^9}, {3.7530244828746576`*^9, 
   3.7530246260386553`*^9}, {3.753024746382517*^9, 3.75302474972199*^9}, {
   3.753030958495159*^9, 3.7530310048900824`*^9}, {3.75303140356074*^9, 
   3.7530314085696354`*^9}, {3.753031441015137*^9, 3.75303144484305*^9}, {
   3.7530314787500944`*^9, 3.753031526360135*^9}, {3.7530319123830595`*^9, 
   3.753031981479968*^9}, {3.7530321764265375`*^9, 3.7530322000437546`*^9}, {
   3.7530322350411997`*^9, 3.75303223947752*^9}, {3.753032362738318*^9, 
   3.753032366085385*^9}, {3.753032746178946*^9, 3.7530329291606965`*^9}, {
   3.7530332043631496`*^9, 3.7530332611349125`*^9}, {3.7530333050551324`*^9, 
   3.7530334408900433`*^9}, {3.7530336293278694`*^9, 
   3.7530336312569323`*^9}, {3.753034058359221*^9, 3.7530340634060163`*^9}, 
   3.753034227695133*^9, {3.753034714681469*^9, 3.7530347290346317`*^9}, {
   3.7530348065707674`*^9, 3.7530348949066105`*^9}, {3.7530349387462845`*^9, 
   3.7530349392649174`*^9}, {3.7530349939168577`*^9, 
   3.7530350223433976`*^9}, {3.753035071438715*^9, 3.7530350887274313`*^9}, {
   3.7530355584769707`*^9, 3.753035573648568*^9}, {3.7530356969628105`*^9, 
   3.7530358981741695`*^9}, {3.7530359572180157`*^9, 3.753035958250786*^9}, {
   3.7530361028120112`*^9, 3.753036164135768*^9}, {3.7530362100076933`*^9, 
   3.75303621612012*^9}, {3.7530363142579594`*^9, 3.7530363588430057`*^9}, {
   3.753036543742338*^9, 3.7530366467624636`*^9}, {3.75303675391597*^9, 
   3.753036765882476*^9}, {3.7530368214728975`*^9, 3.7530368306156282`*^9}, {
   3.753036863690925*^9, 3.7530369251325316`*^9}, {3.753037381753392*^9, 
   3.753037384061475*^9}, {3.7530767453679776`*^9, 3.753076746328618*^9}, 
   3.7530775297711134`*^9, {3.7530779921715946`*^9, 3.753078036559185*^9}, {
   3.753078114078968*^9, 3.75307811469538*^9}, {3.7530785095145936`*^9, 
   3.7530785148301373`*^9}, 3.753081451116973*^9, 3.7530815019708767`*^9, {
   3.7531646003809013`*^9, 3.753164621365611*^9}, {3.75316683288827*^9, 
   3.7531669592211018`*^9}, 3.7531679090199723`*^9, 3.753168012004397*^9, {
   3.753168097368709*^9, 3.7531680979624896`*^9}, {3.753427561631744*^9, 
   3.75342757413118*^9}, {3.753428147189768*^9, 3.753428154886628*^9}, {
   3.754226963691388*^9, 3.7542269641601315`*^9}, {3.7551769878409185`*^9, 
   3.7551769913120785`*^9}, {3.755177295128628*^9, 3.7551773130594053`*^9}, {
   3.755177580104129*^9, 3.7551775937793717`*^9}, 3.755177693829558*^9, 
   3.7551779660901327`*^9, {3.7551780276905603`*^9, 3.755178036165874*^9}, {
   3.7551782093151665`*^9, 3.7551782208073673`*^9}, 3.7551782781535387`*^9, {
   3.755178459680495*^9, 3.7551784682922697`*^9}, 3.7551785342086787`*^9, {
   3.7551791495622463`*^9, 3.7551791504016647`*^9}, {3.755179323713098*^9, 
   3.755179330006174*^9}, {3.755179765437233*^9, 3.7551797662519035`*^9}, 
   3.7551799152207956`*^9, 3.7551801045428*^9, {3.7551801728222513`*^9, 
   3.755180179063452*^9}, {3.7551810628559303`*^9, 3.7551810640377183`*^9}, {
   3.755181385087857*^9, 3.755181386388725*^9}, {3.7551823384875917`*^9, 
   3.7551823392000666`*^9}, {3.755182401829818*^9, 3.7551824135015993`*^9}, {
   3.755182454086656*^9, 3.7551824585015993`*^9}, {3.7551824886496983`*^9, 
   3.7551825184985976`*^9}, {3.7551832568222637`*^9, 3.755183263510416*^9}, {
   3.7551847488083897`*^9, 3.7551848028868723`*^9}, {3.7551848575088005`*^9, 
   3.7551848731057673`*^9}, {3.755184904947463*^9, 3.755184925621002*^9}, {
   3.755185998219886*^9, 3.7551860517984095`*^9}, {3.7551861298365755`*^9, 
   3.7551861998534474`*^9}, {3.755186241204938*^9, 3.7551862740094995`*^9}, {
   3.755191107431016*^9, 3.755191156402026*^9}, {3.755191352932624*^9, 
   3.7551913680108676`*^9}, {3.755191438056924*^9, 3.7551914431677127`*^9}, {
   3.7551914756498194`*^9, 3.7551914922664275`*^9}, {3.7551916487298403`*^9, 
   3.7551916532617097`*^9}, {3.7551917373136845`*^9, 3.755191775743816*^9}, {
   3.75519193943247*^9, 3.755191941447687*^9}, {3.7551922120952797`*^9, 
   3.755192215056801*^9}, {3.7552412064702654`*^9, 3.755241213158109*^9}, 
   3.7552412941622677`*^9, 3.755241413730874*^9, {3.755241807148509*^9, 
   3.755241880309567*^9}, {3.755242152473157*^9, 3.755242203176527*^9}, {
   3.755242624153347*^9, 3.755242636857123*^9}, {3.7552427237053347`*^9, 
   3.7552427382998266`*^9}, {3.755242803850045*^9, 3.7552428358829575`*^9}, {
   3.755243922721014*^9, 3.755243926221223*^9}, {3.7552440676285286`*^9, 
   3.7552440681441774`*^9}, 3.755244182884432*^9, {3.755244440382013*^9, 
   3.7552444569453783`*^9}, {3.755244608859424*^9, 3.7552447700551662`*^9}, {
   3.7552451432462163`*^9, 3.7552451465588875`*^9}, {3.755245321724124*^9, 
   3.755245329755762*^9}, {3.7552453845867176`*^9, 3.7552454574810934`*^9}, {
   3.755246129799692*^9, 3.755246170989297*^9}, {3.755246674124442*^9, 
   3.755246680484136*^9}, {3.755246761628915*^9, 3.7552467620508404`*^9}, {
   3.7552468346895905`*^9, 3.7552468410961637`*^9}, {3.755266517921444*^9, 
   3.7552665197965603`*^9}, {3.755266621098613*^9, 3.755266627395832*^9}, {
   3.755435992447477*^9, 3.7554360611853795`*^9}, {3.755436100328006*^9, 
   3.755436101109275*^9}, {3.755436139205008*^9, 3.7554361798320627`*^9}, {
   3.755436232006616*^9, 3.755436355778593*^9}, {3.7554364803318615`*^9, 
   3.755436481394442*^9}, {3.755436612291778*^9, 3.7554366183077087`*^9}, {
   3.7554367024057865`*^9, 3.7554367069216113`*^9}, 3.7554372052128034`*^9, {
   3.7555024630834465`*^9, 3.7555024727089787`*^9}, {3.755504416621894*^9, 
   3.7555044190908003`*^9}, {3.755506055701868*^9, 3.7555060580552564`*^9}, {
   3.75554234810616*^9, 3.7555423493983154`*^9}, {3.7565764428818207`*^9, 
   3.756576478250442*^9}, 3.7566219418752785`*^9, {3.757060712995145*^9, 
   3.7570607140575485`*^9}, 3.7570680565583906`*^9, {3.7570684684074664`*^9, 
   3.7570684843209567`*^9}, {3.7571450199929667`*^9, 
   3.7571450825415497`*^9}, {3.7571452411940126`*^9, 3.7571453135547934`*^9}, 
   3.7571454002980022`*^9, {3.7571455150850196`*^9, 3.7571455226808095`*^9}, {
   3.757145779588254*^9, 3.7571458238746543`*^9}, {3.7571460676173253`*^9, 
   3.757146119711866*^9}, {3.7571462909111814`*^9, 3.7571462926100593`*^9}, {
   3.7571465831309342`*^9, 3.757146658041704*^9}, {3.757146715765914*^9, 
   3.75714675933827*^9}, {3.757146963387889*^9, 3.757146975963447*^9}, {
   3.75714706795979*^9, 3.7571471004278946`*^9}, {3.7571474412036886`*^9, 
   3.7571474579744873`*^9}, {3.757148489381488*^9, 3.7571484913815937`*^9}, {
   3.7571509079752216`*^9, 3.7571509252417545`*^9}, {3.7571510544360423`*^9, 
   3.7571510548579392`*^9}, {3.757151126486673*^9, 3.757151131549439*^9}, {
   3.757151178860036*^9, 3.7571513673386893`*^9}, {3.757151561051981*^9, 
   3.757151561833256*^9}, {3.7571516713546643`*^9, 3.757151672557824*^9}, {
   3.7571520583437495`*^9, 3.7571521819127126`*^9}, {3.7571522384782133`*^9, 
   3.7571522568541512`*^9}, {3.7571523547030716`*^9, 
   3.7571524163156743`*^9}, {3.7571527778659306`*^9, 3.757152870855195*^9}, {
   3.7571540922787466`*^9, 3.7571540927943993`*^9}, {3.757154296695739*^9, 
   3.757154319118791*^9}, {3.757154391075697*^9, 3.757154458047967*^9}, {
   3.757154553302972*^9, 3.7571545578344593`*^9}, 3.7571545879922657`*^9, {
   3.757154623900431*^9, 3.7571546315570555`*^9}, 3.757155125551791*^9, 
   3.757155167975896*^9, {3.757155592466922*^9, 3.757155592982573*^9}, {
   3.7571556511575236`*^9, 3.757155675861928*^9}, {3.7571557906961155`*^9, 
   3.757155814713002*^9}, {3.7571558786850843`*^9, 3.7571559479387245`*^9}, 
   3.757156528109864*^9, {3.7571565727996826`*^9, 3.7571566088484716`*^9}, 
   3.7571567313861685`*^9, {3.7571567633565702`*^9, 3.757156780107478*^9}, {
   3.7571568108122187`*^9, 3.757156826891159*^9}, 3.757156865111947*^9, {
   3.7571570864517016`*^9, 3.7571571407826815`*^9}, {3.757157442642284*^9, 
   3.7571574456111984`*^9}, {3.757165597179059*^9, 3.757165619445826*^9}, {
   3.7571656798732805`*^9, 3.7571656808421125`*^9}, {3.7571657189212074`*^9, 
   3.757165750928825*^9}, 3.757166005389525*^9, {3.757166987171872*^9, 
   3.757167010204363*^9}, 3.7571675317942696`*^9, {3.757167576015341*^9, 
   3.757167607423244*^9}, {3.7571677501494646`*^9, 3.757167767916049*^9}, {
   3.7573073241885414`*^9, 3.757307340189382*^9}, {3.757307505604353*^9, 
   3.7573075183862734`*^9}, {3.757307664097056*^9, 3.757307700552097*^9}, {
   3.7573077828845186`*^9, 3.757307932220519*^9}, {3.7573116422327795`*^9, 
   3.7573116691068935`*^9}, 3.75731179087792*^9, 3.757311821521502*^9, {
   3.757311906431336*^9, 3.757311937168823*^9}, {3.7573119831657386`*^9, 
   3.7573120040874405`*^9}, 3.7573120654475613`*^9, {3.7573214126907654`*^9, 
   3.7573214281040583`*^9}, {3.757942769684799*^9, 3.757942799984666*^9}, 
   3.7579431471755323`*^9, {3.7579431932828317`*^9, 3.7579432009214587`*^9}, {
   3.757943330529606*^9, 3.7579433319380217`*^9}, {3.7579441983931475`*^9, 
   3.7579442028892765`*^9}, {3.757944405158984*^9, 3.757944412080834*^9}, {
   3.757945736497373*^9, 3.757945738015188*^9}, {3.757945810611866*^9, 
   3.757945840001964*^9}, {3.7579461897684336`*^9, 3.7579461911858754`*^9}, {
   3.7579462769960527`*^9, 3.7579462772929153`*^9}, {3.757947155468666*^9, 
   3.757947193217351*^9}, 3.7579473634398575`*^9, {3.7579477209718504`*^9, 
   3.7579477318257017`*^9}, {3.7588869120910945`*^9, 3.758886914970995*^9}, {
   3.7588870325332313`*^9, 3.7588870466399307`*^9}, {3.7588870839425135`*^9, 
   3.758887101314685*^9}, {3.7588871916120157`*^9, 3.7588871954554157`*^9}, {
   3.7588873163581*^9, 3.7588873191145735`*^9}, {3.7588873696652184`*^9, 
   3.7588873950888076`*^9}, {3.7588874345804996`*^9, 
   3.7588874496933193`*^9}, {3.7588875198622475`*^9, 
   3.7588875449833374`*^9}, {3.758887686363428*^9, 3.7588877072389727`*^9}, {
   3.7588877866002426`*^9, 3.7588877928821263`*^9}, {3.758887905938057*^9, 
   3.758887911423415*^9}, {3.758887972642374*^9, 3.758887981275861*^9}, 
   3.758888202168353*^9, {3.7588883236426244`*^9, 3.7588883291568594`*^9}, {
   3.758888520849062*^9, 3.7588885320324774`*^9}, {3.7588888522016087`*^9, 
   3.758888938095615*^9}, {3.758889017760379*^9, 3.7588890563938556`*^9}, {
   3.7628403556416616`*^9, 3.7628403567198424`*^9}, {3.762840397784501*^9, 
   3.762840399534591*^9}, {3.76284045111084*^9, 3.7628405225851393`*^9}, {
   3.762840556403928*^9, 3.762840561358364*^9}, {3.762840606822338*^9, 
   3.7628406133851504`*^9}, 3.7628406999769115`*^9, 3.762840898780592*^9, {
   3.7656056527027845`*^9, 3.765605664937827*^9}, {3.7656057074556694`*^9, 
   3.7656057097057867`*^9}, {3.765605777959347*^9, 3.7656057945383034`*^9}, {
   3.7656058389312744`*^9, 3.7656058840117493`*^9}, {3.7656059545466766`*^9, 
   3.765606053567462*^9}, {3.765606105632678*^9, 3.7656061138362308`*^9}, {
   3.7681074643277864`*^9, 3.768107555004376*^9}},
 CellLabel->
  "In[220]:=",ExpressionUUID->"fc337273-7327-485d-a17e-1f637973013e"]
}, Closed]],

Cell[CellGroupData[{

Cell["Mean for Vars", "Subsubsection",
 CellChangeTimes->{{3.7531680718255754`*^9, 3.7531680944404716`*^9}, {
   3.7532616090779924`*^9, 3.7532616549825935`*^9}, {3.755505857598364*^9, 
   3.755505876875003*^9}, 3.7628372209020605`*^9, 3.762841396121271*^9, {
   3.762842738152006*^9, 
   3.7628427614914083`*^9}},ExpressionUUID->"74a5260f-bd0a-42fa-9c6f-\
9ea788e51644"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"newMeanVars", "[", 
    RowBox[{
    "vecy1T_", ",", "vecx2T_", ",", "vecx1T1_", ",", "vecx1T_", ",", "X1T_", 
     ",", "T_", ",", "KM_", ",", 
     RowBox[{"{", 
      RowBox[{"M1_", ",", 
       RowBox[{"{", 
        RowBox[{
        "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
         "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
       "tilL_", ",", 
       RowBox[{"{", 
        RowBox[{"tilQMat_", ",", "tilSigmaMat_"}], "}"}]}], "}"}], ",", 
     "s1_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"resTilVars", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"tilQMat", "+", 
          RowBox[{"s1", "*", 
           RowBox[{"DiagonalMatrix", "[", 
            RowBox[{"RandomReal", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "2"}], "]"}], 
            "]"}]}]}], ",", 
         RowBox[{"tilSigmaMat", "+", 
          RowBox[{"s1", "*", 
           RowBox[{"DiagonalMatrix", "[", 
            RowBox[{"RandomReal", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "3"}], "]"}], 
            "]"}]}]}]}], "}"}]}], ";", "\[IndentingNewLine]", 
      "resTilVars"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.7505657672869964`*^9, 3.750565846508605*^9}, {
   3.7505659231335907`*^9, 3.7505659236779137`*^9}, {3.7505659861802254`*^9, 
   3.7505659935867558`*^9}, {3.750566038531695*^9, 3.750566040791996*^9}, {
   3.7505660794081597`*^9, 3.750566124263068*^9}, {3.750566172142468*^9, 
   3.7505661814351416`*^9}, {3.7505662368523464`*^9, 
   3.7505662717449665`*^9}, {3.7505663164302397`*^9, 
   3.7505664304624786`*^9}, {3.750566669009137*^9, 3.750566746383494*^9}, {
   3.7505669400371203`*^9, 3.7505669929301486`*^9}, {3.75056777969715*^9, 
   3.750567813788676*^9}, {3.7505684489942303`*^9, 3.750568463273712*^9}, {
   3.750570702493136*^9, 3.7505707048684015`*^9}, {3.7505722371880217`*^9, 
   3.7505722896821284`*^9}, {3.750572683051879*^9, 3.7505726960400352`*^9}, {
   3.7505728188836412`*^9, 3.7505729454974732`*^9}, {3.750580359102162*^9, 
   3.750580434559182*^9}, {3.750580745622156*^9, 3.7505808136569176`*^9}, 
   3.751104775532077*^9, {3.751104923440542*^9, 3.7511049625963116`*^9}, {
   3.751105140360424*^9, 3.7511052776929255`*^9}, {3.7511053294379063`*^9, 
   3.751105556790142*^9}, {3.7511057016106405`*^9, 3.7511057025501328`*^9}, {
   3.751105760658673*^9, 3.751105762000988*^9}, {3.7511058261080847`*^9, 
   3.7511058266413946`*^9}, {3.751106239033055*^9, 3.7511062405767574`*^9}, {
   3.7511063002668967`*^9, 3.751106362769523*^9}, {3.751106471174114*^9, 
   3.751106496719597*^9}, {3.7511065333464327`*^9, 3.7511065604385443`*^9}, {
   3.751106858176976*^9, 3.751106880691366*^9}, {3.75110700967247*^9, 
   3.7511070273001213`*^9}, 3.7511071254870462`*^9, {3.751107181424448*^9, 
   3.751107226140745*^9}, 3.751107256281398*^9, {3.7511073103929415`*^9, 
   3.751107337907714*^9}, {3.7511073695947695`*^9, 3.751107423860882*^9}, 
   3.7511075165638943`*^9, {3.7511075606411657`*^9, 3.751107694484481*^9}, {
   3.7511077324562483`*^9, 3.7511077500119343`*^9}, {3.7511086392855577`*^9, 
   3.751108719106904*^9}, {3.751108787375388*^9, 3.751108836127715*^9}, {
   3.7511089276412845`*^9, 3.7511089450471034`*^9}, {3.7511090051900773`*^9, 
   3.7511090113777275`*^9}, {3.751109116531319*^9, 3.751109121596521*^9}, {
   3.751109976094879*^9, 3.751109983844214*^9}, {3.7511108711735816`*^9, 
   3.7511109035029345`*^9}, {3.751111105064044*^9, 3.751111136347082*^9}, {
   3.751111368985362*^9, 3.7511113701255455`*^9}, {3.751111403375066*^9, 
   3.751111403879157*^9}, {3.7511114823284035`*^9, 3.751111498018744*^9}, 
   3.751111758281865*^9, {3.7511373747616696`*^9, 3.7511375429360247`*^9}, {
   3.751138028732254*^9, 3.7511380399875546`*^9}, {3.751138469606248*^9, 
   3.751138500029875*^9}, {3.751139019706829*^9, 3.7511390687405567`*^9}, {
   3.7511393070494633`*^9, 3.75113930884643*^9}, {3.751139392381897*^9, 
   3.7511394130704327`*^9}, {3.7511791476720867`*^9, 
   3.7511791486729407`*^9}, {3.751190365500287*^9, 3.7511904649218583`*^9}, 
   3.7511907196786785`*^9, {3.751192749202721*^9, 3.751192899282124*^9}, {
   3.7511929347206287`*^9, 3.7511929368446665`*^9}, {3.751197051194865*^9, 
   3.7511970630887847`*^9}, {3.751197140803462*^9, 3.7511971780789003`*^9}, {
   3.7511972549260697`*^9, 3.751197495809845*^9}, 3.7511975294952745`*^9, {
   3.7511975685172553`*^9, 3.7511976190118785`*^9}, {3.7511976787956853`*^9, 
   3.751197806940008*^9}, {3.751197924041108*^9, 3.751197944942025*^9}, {
   3.751198114234748*^9, 3.751198131534266*^9}, {3.7511983444674263`*^9, 
   3.7511983836355066`*^9}, {3.751198458769849*^9, 3.751198534981048*^9}, 
   3.7511987458002415`*^9, 3.751198845370185*^9, {3.751200092354169*^9, 
   3.751200122810151*^9}, {3.7512001644311304`*^9, 3.751200184640587*^9}, {
   3.75120261444986*^9, 3.751202615026245*^9}, 3.7512028464264264`*^9, {
   3.7512029883179026`*^9, 3.7512030044426394`*^9}, 3.7512031472056985`*^9, {
   3.751203450634734*^9, 3.751203455093707*^9}, {3.751203532157016*^9, 
   3.751203586867445*^9}, {3.751204633862773*^9, 3.7512046627673283`*^9}, {
   3.7512052215693398`*^9, 3.751205311409314*^9}, 3.751205346264258*^9, {
   3.7512054758798265`*^9, 3.7512056527103662`*^9}, {3.751206263405012*^9, 
   3.751206427346819*^9}, {3.75120647137586*^9, 3.7512064787841697`*^9}, {
   3.751263901269413*^9, 3.751263934312447*^9}, {3.751264042082356*^9, 
   3.751264060043459*^9}, 3.7512641764125223`*^9, {3.751267855303958*^9, 
   3.751267995582011*^9}, {3.7512680360027657`*^9, 3.751268128769765*^9}, {
   3.75126816054605*^9, 3.7512682292527447`*^9}, {3.751268706507963*^9, 
   3.7512687415783377`*^9}, 3.7512687808470936`*^9, {3.7512688243689823`*^9, 
   3.751268844336131*^9}, {3.751268875378932*^9, 3.7512688778932657`*^9}, {
   3.751268986612778*^9, 3.7512690004846053`*^9}, {3.751269422879591*^9, 
   3.751269481241306*^9}, {3.751269577746869*^9, 3.751269652480719*^9}, 
   3.7512696890115933`*^9, {3.7512697642907677`*^9, 3.7512697929819374`*^9}, {
   3.7512699695505877`*^9, 3.751269970346939*^9}, {3.751270044252699*^9, 
   3.751270066265069*^9}, {3.751270097597247*^9, 3.751270098347725*^9}, {
   3.7512701542683935`*^9, 3.7512702837545433`*^9}, {3.7512703502656617`*^9, 
   3.7512703863591995`*^9}, {3.7512704395976143`*^9, 3.75127044125257*^9}, {
   3.7512704980810995`*^9, 3.751270609775647*^9}, {3.751270709893674*^9, 
   3.75127074975277*^9}, {3.751270803700219*^9, 3.751270806552363*^9}, {
   3.751270849519964*^9, 3.751270956007082*^9}, 3.751271084957001*^9, {
   3.7512711212646217`*^9, 3.7512713022688737`*^9}, {3.751271815778951*^9, 
   3.7512718842347283`*^9}, {3.7512719448782215`*^9, 
   3.7512719635787277`*^9}, {3.751272006753087*^9, 3.7512721236755247`*^9}, 
   3.751272156968498*^9, {3.7512722181278334`*^9, 3.751272293192318*^9}, {
   3.7512723521904583`*^9, 3.7512723990820065`*^9}, {3.751272756752042*^9, 
   3.751272759374689*^9}, {3.7512728082387085`*^9, 3.7512730433945785`*^9}, {
   3.7512732094715147`*^9, 3.7512732499877243`*^9}, 3.751273301132416*^9, {
   3.75127337703487*^9, 3.751273386660244*^9}, {3.751273439019314*^9, 
   3.7512734920037003`*^9}, {3.7514027566170006`*^9, 3.751402805499491*^9}, {
   3.751434938011731*^9, 3.7514349680739107`*^9}, {3.751443081484434*^9, 
   3.751443196012692*^9}, {3.7514432309869814`*^9, 3.75144324735688*^9}, {
   3.7514433577724004`*^9, 3.7514434177803555`*^9}, {3.751443504409037*^9, 
   3.7514435447488956`*^9}, 3.7514436473872385`*^9, {3.7514436930286293`*^9, 
   3.7514437695005465`*^9}, {3.7514438248754187`*^9, 
   3.7514438376889505`*^9}, {3.751443940902675*^9, 3.751443972646812*^9}, {
   3.751444204207996*^9, 3.751444216324063*^9}, {3.7514442780421567`*^9, 
   3.7514442867399483`*^9}, {3.751444470361212*^9, 3.75144449920842*^9}, {
   3.751444736113163*^9, 3.7514447397956157`*^9}, {3.751444773813264*^9, 
   3.7514448960666666`*^9}, {3.7514450441082387`*^9, 3.751445067569861*^9}, {
   3.751445129463076*^9, 3.7514452162308464`*^9}, {3.7514462143034086`*^9, 
   3.7514462368374133`*^9}, {3.751446514170074*^9, 3.7514465161133685`*^9}, {
   3.7514466882469845`*^9, 3.7514467334160585`*^9}, {3.7514467747705956`*^9, 
   3.751446781539102*^9}, {3.751446918697428*^9, 3.7514469766910424`*^9}, 
   3.7514475744900856`*^9, {3.7514476658559194`*^9, 3.75144769756103*^9}, {
   3.751447734813835*^9, 3.7514477793865147`*^9}, {3.7514478478711166`*^9, 
   3.751447861541217*^9}, {3.751447937729946*^9, 3.7514479485311375`*^9}, {
   3.751450104574473*^9, 3.7514501616424694`*^9}, {3.751450411294389*^9, 
   3.751450419802226*^9}, {3.7514504862050333`*^9, 3.75145050269452*^9}, {
   3.7514506695389185`*^9, 3.7514506716548615`*^9}, {3.751483668424836*^9, 
   3.7514837879367666`*^9}, {3.7514840111549044`*^9, 3.751484116999001*^9}, {
   3.7514843193411584`*^9, 3.7514844767961383`*^9}, {3.7514845202034664`*^9, 
   3.751484545562994*^9}, {3.751484611562432*^9, 3.751484664045507*^9}, {
   3.7514855871240025`*^9, 3.7514856005050917`*^9}, 3.751491177468532*^9, {
   3.751491275930093*^9, 3.7514912805831895`*^9}, {3.7515193219423504`*^9, 
   3.7515193298245974`*^9}, {3.751519420248808*^9, 3.75151942938089*^9}, {
   3.7515440610453777`*^9, 3.751544061264138*^9}, {3.7515452962334127`*^9, 
   3.751545337184332*^9}, {3.7515594986899805`*^9, 3.7515595201577816`*^9}, {
   3.7515599630740566`*^9, 3.7515600381391096`*^9}, {3.7515601449462333`*^9, 
   3.7515602533196063`*^9}, {3.7515602902681417`*^9, 3.751560306075667*^9}, {
   3.7515604133386135`*^9, 3.7515604483477845`*^9}, {3.751560531173319*^9, 
   3.751560568114834*^9}, 3.7515607113442483`*^9, 3.7515608055251946`*^9, 
   3.7515608903918505`*^9, {3.7515609237352133`*^9, 3.7515609238418756`*^9}, {
   3.751562795886561*^9, 3.751562832078611*^9}, {3.751563767463195*^9, 
   3.7515637744955425`*^9}, {3.7515638142168555`*^9, 3.751563828430811*^9}, {
   3.7515638783352494`*^9, 3.751563926964904*^9}, {3.7515642759358253`*^9, 
   3.751564318608959*^9}, {3.7515644229363275`*^9, 3.751564425233526*^9}, {
   3.751564468231185*^9, 3.7515644945989494`*^9}, {3.751564532912781*^9, 
   3.7515645651718864`*^9}, {3.7515651629259696`*^9, 3.751565276898184*^9}, {
   3.751565364353394*^9, 3.7515654035975566`*^9}, {3.7515655230115614`*^9, 
   3.751565554257234*^9}, {3.751565620913272*^9, 3.751565634895337*^9}, {
   3.751567661620452*^9, 3.7515676645969877`*^9}, {3.7516177890332737`*^9, 
   3.7516177998071384`*^9}, {3.751617880149107*^9, 3.751617892689335*^9}, {
   3.7516179840959563`*^9, 3.751618022522007*^9}, {3.7516180843003683`*^9, 
   3.751618146533952*^9}, {3.7516182600953674`*^9, 3.751618274779873*^9}, {
   3.7516183719068785`*^9, 3.7516183842980475`*^9}, {3.751618798754757*^9, 
   3.751618850238065*^9}, {3.7516197132007256`*^9, 3.7516197316031613`*^9}, 
   3.751620956195039*^9, {3.7516213346507463`*^9, 3.751621439686392*^9}, {
   3.75162148180729*^9, 3.7516216024258413`*^9}, 3.751621665039417*^9, {
   3.7516217316932864`*^9, 3.7516217986099033`*^9}, 3.7516218577337065`*^9, 
   3.751622032156968*^9, {3.7516220849725513`*^9, 3.75162220441278*^9}, {
   3.751622243857109*^9, 3.7516222870218983`*^9}, {3.7516226074639764`*^9, 
   3.751622685544321*^9}, {3.7516228831378083`*^9, 3.7516228919463177`*^9}, {
   3.7516229500949717`*^9, 3.7516229751179895`*^9}, {3.7519542816824355`*^9, 
   3.7519542911247215`*^9}, {3.7519543531390147`*^9, 3.751954367662685*^9}, {
   3.7519604886781006`*^9, 3.751960503664078*^9}, {3.7519606070411882`*^9, 
   3.751960613928009*^9}, {3.751990179468815*^9, 3.751990188686549*^9}, 
   3.751992123500967*^9, {3.751993122591089*^9, 3.7519931543987603`*^9}, {
   3.751996720785695*^9, 3.751996734536852*^9}, {3.7520375991275463`*^9, 
   3.7520376579712954`*^9}, {3.752037703346653*^9, 3.75203770986129*^9}, {
   3.7520378266166515`*^9, 3.7520379608463535`*^9}, {3.7520379934681115`*^9, 
   3.7520379974791183`*^9}, {3.752038122498396*^9, 3.752038148022621*^9}, {
   3.7520385731743464`*^9, 3.7520385773722*^9}, {3.7521264584437914`*^9, 
   3.752126465590701*^9}, {3.7521264975458403`*^9, 3.7521265924636707`*^9}, {
   3.752126658733886*^9, 3.752126687249611*^9}, 3.7521267504338655`*^9, {
   3.752126780779866*^9, 3.7521268008641195`*^9}, {3.752151238217684*^9, 
   3.752151272828807*^9}, {3.7521513326443257`*^9, 3.752151371740051*^9}, {
   3.752151451619084*^9, 3.7521514642290754`*^9}, {3.752151496324437*^9, 
   3.7521515641247654`*^9}, {3.752151889297434*^9, 3.752151891266282*^9}, {
   3.752152026788722*^9, 3.752152030585817*^9}, {3.7521523535239983`*^9, 
   3.752152365071456*^9}, {3.7521524262620454`*^9, 3.7521524333873777`*^9}, 
   3.7521530890399246`*^9, {3.7521531347297335`*^9, 3.752153135526647*^9}, {
   3.7521533240986395`*^9, 3.7521533341773024`*^9}, 3.752153952786664*^9, {
   3.752154012430299*^9, 3.7521540150866547`*^9}, {3.752154334634045*^9, 
   3.7521543617448115`*^9}, {3.752157070109583*^9, 3.752157070359597*^9}, 
   3.7521574872124586`*^9, 3.7521575281725473`*^9, {3.752159994669336*^9, 
   3.7521600121084347`*^9}, {3.7521606623125134`*^9, 
   3.7521606820467477`*^9}, {3.752161682512416*^9, 3.752161712136483*^9}, {
   3.7521618063200274`*^9, 3.7521618066169496`*^9}, {3.752161939097358*^9, 
   3.752161971810601*^9}, {3.7521621292303057`*^9, 3.7521621470220823`*^9}, {
   3.752162251242768*^9, 3.7521622614789877`*^9}, 3.7521624128262897`*^9, {
   3.7521625644324007`*^9, 3.752162611888942*^9}, {3.752345342451853*^9, 
   3.7523453807873564`*^9}, {3.752665589880958*^9, 3.7526656093654833`*^9}, 
   3.7526657068621573`*^9, {3.7526663591309004`*^9, 3.752666394896655*^9}, {
   3.752666455130684*^9, 3.7526665146929593`*^9}, {3.7526665928959394`*^9, 
   3.752666610427685*^9}, {3.7526666638124237`*^9, 3.7526666785059805`*^9}, {
   3.752666742318694*^9, 3.7526667673663607`*^9}, {3.7526668569131947`*^9, 
   3.752666882829051*^9}, {3.7526670622554164`*^9, 3.752667091630542*^9}, 
   3.752667163409067*^9, {3.7526672136790724`*^9, 3.7526672590679593`*^9}, {
   3.7526673372867613`*^9, 3.7526673745009594`*^9}, {3.7526674862709246`*^9, 
   3.752667512162136*^9}, {3.752667936599702*^9, 3.7526680164904184`*^9}, {
   3.752668130567745*^9, 3.7526681499584785`*^9}, 3.752668279287221*^9, {
   3.752668433474513*^9, 3.7526684344271755`*^9}, {3.7526684713498745`*^9, 
   3.7526684832956305`*^9}, {3.752668660946969*^9, 3.7526686636150694`*^9}, {
   3.752668708756461*^9, 3.7526687091162987`*^9}, {3.752668794130251*^9, 
   3.7526688216306505`*^9}, {3.752668877927391*^9, 3.7526688810373497`*^9}, {
   3.7526689172201176`*^9, 3.7526690274427457`*^9}, {3.752669194376151*^9, 
   3.7526691974116373`*^9}, {3.752669270021693*^9, 3.752669272630577*^9}, {
   3.752669727677882*^9, 3.7526697294435935`*^9}, {3.7526697725836535`*^9, 
   3.752669820208794*^9}, {3.7526698887656665`*^9, 3.752669973881936*^9}, {
   3.7526700178805447`*^9, 3.7526700295217733`*^9}, {3.7526706346685467`*^9, 
   3.7526706594506545`*^9}, {3.7526708762431602`*^9, 
   3.7526708781849294`*^9}, {3.752671001123205*^9, 3.7526710267179046`*^9}, {
   3.7526711397799997`*^9, 3.752671182068529*^9}, {3.7526716193916245`*^9, 
   3.7526716363407087`*^9}, {3.752671669575672*^9, 3.752671741729004*^9}, {
   3.752672232084035*^9, 3.752672234772108*^9}, {3.752672280148831*^9, 
   3.752672280727012*^9}, {3.7526725876085167`*^9, 3.752672596302247*^9}, 
   3.7526728512775335`*^9, 3.7526730231361256`*^9, {3.7526732421256533`*^9, 
   3.7526732540277357`*^9}, {3.7526732936616235`*^9, 3.752673304371353*^9}, {
   3.7526735034703283`*^9, 3.752673516134522*^9}, {3.752673576418618*^9, 
   3.75267357721657*^9}, {3.752673607632244*^9, 3.752673609400045*^9}, {
   3.7526736627709103`*^9, 3.7526737202716246`*^9}, {3.7526737571957655`*^9, 
   3.752673793543724*^9}, {3.7526745000997763`*^9, 3.7526745295626955`*^9}, {
   3.752674703494891*^9, 3.752674725936242*^9}, {3.752674756978424*^9, 
   3.752674828521925*^9}, {3.7526749162666397`*^9, 3.752674946630674*^9}, {
   3.752676296498336*^9, 3.752676360797632*^9}, {3.7526764214207687`*^9, 
   3.7526764326477737`*^9}, {3.7526767037865477`*^9, 
   3.7526767131223974`*^9}, {3.752677273197976*^9, 3.7526772749759145`*^9}, {
   3.752677330183681*^9, 3.7526774261405663`*^9}, 3.752677486505455*^9, {
   3.7526775280015545`*^9, 3.7526775703506317`*^9}, {3.7526782918646455`*^9, 
   3.7526783057118387`*^9}, {3.7526783488188653`*^9, 
   3.7526783564940042`*^9}, {3.752678435954553*^9, 3.752678461369563*^9}, {
   3.7526785013115835`*^9, 3.7526785102091455`*^9}, {3.7526785844434223`*^9, 
   3.7526786274687724`*^9}, 3.752679566668491*^9, {3.752679629074747*^9, 
   3.752679679912033*^9}, {3.752679765187885*^9, 3.7526797728755093`*^9}, {
   3.7526798604008336`*^9, 3.7526798634666967`*^9}, {3.752745988138604*^9, 
   3.752746022638576*^9}, {3.7527509704425373`*^9, 3.7527510842393084`*^9}, {
   3.7527532400857162`*^9, 3.75275328689177*^9}, 3.752753343887947*^9, {
   3.7527533757145014`*^9, 3.752753482042467*^9}, {3.7527544113997726`*^9, 
   3.752754418749231*^9}, 3.752754458391287*^9, {3.752754565431181*^9, 
   3.752754687103303*^9}, {3.752754722786633*^9, 3.7527547328871202`*^9}, {
   3.7527547632918687`*^9, 3.752754801912865*^9}, {3.7527549560034747`*^9, 
   3.752754962530466*^9}, {3.7527552613023634`*^9, 3.752755285036065*^9}, {
   3.7527554070024776`*^9, 3.752755408521305*^9}, {3.752755699949483*^9, 
   3.7527557284836473`*^9}, 3.752755788301222*^9, {3.7527558410408216`*^9, 
   3.752755932529893*^9}, {3.7527634865362206`*^9, 3.752763496829074*^9}, {
   3.7527636689006467`*^9, 3.7527637507081175`*^9}, {3.7527637834369097`*^9, 
   3.752763790287472*^9}, {3.752768767583745*^9, 3.752768767990022*^9}, {
   3.752778291555577*^9, 3.7527783218903666`*^9}, {3.752778592024059*^9, 
   3.752778637638337*^9}, 3.752778808789834*^9, {3.7527789746631985`*^9, 
   3.752778985659359*^9}, {3.7527794093115954`*^9, 3.7527794251405263`*^9}, {
   3.7527807280309267`*^9, 3.752780735201707*^9}, {3.752826067779383*^9, 
   3.752826098931508*^9}, {3.752827854657959*^9, 3.752827859592848*^9}, {
   3.752828540868827*^9, 3.7528286250959883`*^9}, {3.7528286887336516`*^9, 
   3.7528286988221817`*^9}, {3.7528288458428073`*^9, 3.752828873935688*^9}, {
   3.7528289961115923`*^9, 3.7528289963303566`*^9}, {3.7528290509613404`*^9, 
   3.752829143814409*^9}, {3.752829606900943*^9, 3.752829616279752*^9}, {
   3.75282971585106*^9, 3.752829730717065*^9}, {3.752831419396857*^9, 
   3.7528315561107693`*^9}, {3.7528315923188753`*^9, 
   3.7528316183088827`*^9}, {3.7528316567634478`*^9, 3.75283168416971*^9}, {
   3.75283176455752*^9, 3.752831766988679*^9}, {3.7528318161173525`*^9, 
   3.752831850161955*^9}, 3.7528319098300962`*^9, {3.752832155134966*^9, 
   3.752832155463109*^9}, {3.752832397490411*^9, 3.75283242602553*^9}, 
   3.7528325000508485`*^9, {3.7528328180523596`*^9, 3.7528328359347544`*^9}, {
   3.752832866501874*^9, 3.752832874743971*^9}, {3.752832966568694*^9, 
   3.752833005205539*^9}, {3.7528332955088387`*^9, 3.7528333925452857`*^9}, {
   3.7528334474122963`*^9, 3.7528334882906218`*^9}, {3.7528335206736546`*^9, 
   3.752833521021454*^9}, {3.7528336525686274`*^9, 3.752833669131317*^9}, {
   3.752842336638502*^9, 3.752842337262*^9}, {3.7528447074049807`*^9, 
   3.752844707701872*^9}, {3.7528448100785217`*^9, 3.7528448181364374`*^9}, {
   3.752845400433261*^9, 3.7528454118885727`*^9}, {3.752845458200714*^9, 
   3.752845459763857*^9}, {3.752846366127219*^9, 3.752846366595993*^9}, {
   3.7528468407116833`*^9, 3.7528468757772074`*^9}, {3.752847116918248*^9, 
   3.7528471907209406`*^9}, {3.7528472219335318`*^9, 
   3.7528472346534595`*^9}, {3.752848183434478*^9, 3.7528482572931957`*^9}, {
   3.752848366170209*^9, 3.7528484197318907`*^9}, {3.752848513622999*^9, 
   3.752848531669105*^9}, 3.752848681636752*^9, 3.7528505921067753`*^9, {
   3.752931256426008*^9, 3.7529312834481993`*^9}, {3.7529313266463275`*^9, 
   3.752931330510488*^9}, {3.752935138687519*^9, 3.75293524827658*^9}, {
   3.7529352939330177`*^9, 3.7529353158786464`*^9}, {3.7529353465090666`*^9, 
   3.752935359763903*^9}, {3.752935402477379*^9, 3.7529354276041307`*^9}, {
   3.752935459296261*^9, 3.752935556893323*^9}, {3.7529355953479595`*^9, 
   3.752935610651164*^9}, {3.7529358009650373`*^9, 3.7529358045734434`*^9}, {
   3.752936040929016*^9, 3.752936236578554*^9}, 3.7529362711105766`*^9, {
   3.7529363715715494`*^9, 3.7529364308100424`*^9}, {3.7529365334014344`*^9, 
   3.7529365501215825`*^9}, {3.7529555942988253`*^9, 3.752955619487618*^9}, {
   3.752955658052097*^9, 3.7529557390818915`*^9}, {3.7529558082272863`*^9, 
   3.7529559642821407`*^9}, {3.7529562518281727`*^9, 
   3.7529562525625873`*^9}, {3.752956318050294*^9, 3.7529563569116917`*^9}, {
   3.752956575165788*^9, 3.7529565905259237`*^9}, {3.7529566378096*^9, 
   3.752956648513303*^9}, {3.7529567053599434`*^9, 3.7529567808950725`*^9}, {
   3.7529906855127187`*^9, 3.7529909103680058`*^9}, {3.752990942291519*^9, 
   3.7529909670896673`*^9}, {3.752991236744128*^9, 3.7529912403068085`*^9}, {
   3.7529912723084545`*^9, 3.7529914019869566`*^9}, 3.7529915484163713`*^9, 
   3.752991633498863*^9, {3.7529918498602896`*^9, 3.7529918707676115`*^9}, {
   3.7529919269111176`*^9, 3.752991928629956*^9}, {3.752992016509467*^9, 
   3.7529920344635115`*^9}, {3.752992102904497*^9, 3.7529921142019773`*^9}, {
   3.7529922788041754`*^9, 3.7529923829345174`*^9}, {3.7529924428750963`*^9, 
   3.7529924729391108`*^9}, {3.7529925362392607`*^9, 
   3.7529925643813286`*^9}, {3.752992674480728*^9, 3.752992705794835*^9}, {
   3.7529927434217396`*^9, 3.7529927729857826`*^9}, {3.752992809237644*^9, 
   3.7529928889761105`*^9}, {3.7529933147379646`*^9, 3.75299333531068*^9}, {
   3.7529934462356305`*^9, 3.7529934721819267`*^9}, {3.752993674827025*^9, 
   3.752993764728958*^9}, {3.7529941501889334`*^9, 3.7529942528865013`*^9}, {
   3.7529942866720247`*^9, 3.7529943080822983`*^9}, {3.752994373255746*^9, 
   3.752994376462884*^9}, {3.75299447331245*^9, 3.752994515109315*^9}, {
   3.7529945862837644`*^9, 3.7529946553568134`*^9}, {3.7529958259652185`*^9, 
   3.7529958402827635`*^9}, {3.7530145608433046`*^9, 
   3.7530146954240246`*^9}, {3.7530147556101503`*^9, 3.753014982337302*^9}, {
   3.7530150296888676`*^9, 3.7530150826862*^9}, {3.7530151669263597`*^9, 
   3.753015188357647*^9}, {3.7530152192732563`*^9, 3.753015221748908*^9}, {
   3.7530214795645113`*^9, 3.7530215141676407`*^9}, {3.7530227671805887`*^9, 
   3.753022839645647*^9}, {3.7530228817853994`*^9, 3.753022893187793*^9}, {
   3.7530229943388505`*^9, 3.753023011764906*^9}, {3.7530230428586483`*^9, 
   3.7530230834447365`*^9}, {3.753023613711633*^9, 3.7530236442949667`*^9}, {
   3.753023687603938*^9, 3.7530237323233786`*^9}, {3.7530237743981776`*^9, 
   3.7530237965309544`*^9}, {3.753024293479504*^9, 3.753024330410098*^9}, {
   3.7530244349295454`*^9, 3.753024449968669*^9}, {3.7530244828746576`*^9, 
   3.7530246260386553`*^9}, {3.753024746382517*^9, 3.75302474972199*^9}, {
   3.753030958495159*^9, 3.7530310048900824`*^9}, {3.75303140356074*^9, 
   3.7530314085696354`*^9}, {3.753031441015137*^9, 3.75303144484305*^9}, {
   3.7530314787500944`*^9, 3.753031526360135*^9}, {3.7530319123830595`*^9, 
   3.753031981479968*^9}, {3.7530321764265375`*^9, 3.7530322000437546`*^9}, {
   3.7530322350411997`*^9, 3.75303223947752*^9}, {3.753032362738318*^9, 
   3.753032366085385*^9}, {3.753032746178946*^9, 3.7530329291606965`*^9}, {
   3.7530332043631496`*^9, 3.7530332611349125`*^9}, {3.7530333050551324`*^9, 
   3.7530334408900433`*^9}, {3.7530336293278694`*^9, 
   3.7530336312569323`*^9}, {3.753034058359221*^9, 3.7530340634060163`*^9}, 
   3.753034227695133*^9, {3.753034714681469*^9, 3.7530347290346317`*^9}, {
   3.7530348065707674`*^9, 3.7530348949066105`*^9}, {3.7530349387462845`*^9, 
   3.7530349392649174`*^9}, {3.7530349939168577`*^9, 
   3.7530350223433976`*^9}, {3.753035071438715*^9, 3.7530350887274313`*^9}, {
   3.7530355584769707`*^9, 3.753035573648568*^9}, {3.7530356969628105`*^9, 
   3.7530358981741695`*^9}, {3.7530359572180157`*^9, 3.753035958250786*^9}, {
   3.7530361028120112`*^9, 3.753036164135768*^9}, {3.7530362100076933`*^9, 
   3.75303621612012*^9}, {3.7530363142579594`*^9, 3.7530363588430057`*^9}, {
   3.753036543742338*^9, 3.7530366467624636`*^9}, {3.75303675391597*^9, 
   3.753036765882476*^9}, {3.7530368214728975`*^9, 3.7530368306156282`*^9}, {
   3.753036863690925*^9, 3.7530369251325316`*^9}, {3.753037381753392*^9, 
   3.753037384061475*^9}, {3.7530767453679776`*^9, 3.753076746328618*^9}, 
   3.7530775297711134`*^9, {3.7530779921715946`*^9, 3.753078036559185*^9}, {
   3.753078114078968*^9, 3.75307811469538*^9}, {3.7530785095145936`*^9, 
   3.7530785148301373`*^9}, 3.753081451116973*^9, 3.7530815019708767`*^9, {
   3.7531646003809013`*^9, 3.753164621365611*^9}, {3.75316683288827*^9, 
   3.7531669592211018`*^9}, 3.7531679090199723`*^9, 3.753168012004397*^9, {
   3.753168097368709*^9, 3.7531680979624896`*^9}, {3.753427561631744*^9, 
   3.75342757413118*^9}, {3.753428147189768*^9, 3.753428154886628*^9}, {
   3.754226963691388*^9, 3.7542269641601315`*^9}, {3.7551769878409185`*^9, 
   3.7551769913120785`*^9}, {3.755177295128628*^9, 3.7551773130594053`*^9}, {
   3.755177580104129*^9, 3.7551775937793717`*^9}, 3.755177693829558*^9, 
   3.7551779660901327`*^9, {3.7551780276905603`*^9, 3.755178036165874*^9}, {
   3.7551782093151665`*^9, 3.7551782208073673`*^9}, 3.7551782781535387`*^9, {
   3.755178459680495*^9, 3.7551784682922697`*^9}, 3.7551785342086787`*^9, {
   3.7551791495622463`*^9, 3.7551791504016647`*^9}, {3.755179323713098*^9, 
   3.755179330006174*^9}, {3.755179765437233*^9, 3.7551797662519035`*^9}, 
   3.7551799152207956`*^9, 3.7551801045428*^9, {3.7551801728222513`*^9, 
   3.755180179063452*^9}, {3.7551810628559303`*^9, 3.7551810640377183`*^9}, {
   3.755181385087857*^9, 3.755181386388725*^9}, {3.7551823384875917`*^9, 
   3.7551823392000666`*^9}, {3.755182401829818*^9, 3.7551824135015993`*^9}, {
   3.755182454086656*^9, 3.7551824585015993`*^9}, {3.7551824886496983`*^9, 
   3.7551825184985976`*^9}, {3.7551832568222637`*^9, 3.755183263510416*^9}, {
   3.7551847488083897`*^9, 3.7551848028868723`*^9}, {3.7551848575088005`*^9, 
   3.7551848731057673`*^9}, {3.755184904947463*^9, 3.755184925621002*^9}, {
   3.755185998219886*^9, 3.7551860517984095`*^9}, {3.7551861298365755`*^9, 
   3.7551861998534474`*^9}, {3.755186241204938*^9, 3.7551862740094995`*^9}, {
   3.755191107431016*^9, 3.755191156402026*^9}, {3.755191352932624*^9, 
   3.7551913680108676`*^9}, {3.755191438056924*^9, 3.7551914431677127`*^9}, {
   3.7551914756498194`*^9, 3.7551914922664275`*^9}, {3.7551916487298403`*^9, 
   3.7551916532617097`*^9}, {3.7551917373136845`*^9, 3.755191775743816*^9}, {
   3.75519193943247*^9, 3.755191941447687*^9}, {3.7551922120952797`*^9, 
   3.755192215056801*^9}, {3.7552412064702654`*^9, 3.755241213158109*^9}, 
   3.7552412941622677`*^9, 3.755241413730874*^9, {3.755241807148509*^9, 
   3.755241880309567*^9}, {3.755242152473157*^9, 3.755242203176527*^9}, {
   3.755242624153347*^9, 3.755242636857123*^9}, {3.7552427237053347`*^9, 
   3.7552427382998266`*^9}, {3.755242803850045*^9, 3.7552428358829575`*^9}, {
   3.755243922721014*^9, 3.755243926221223*^9}, {3.7552440676285286`*^9, 
   3.7552440681441774`*^9}, 3.755244182884432*^9, {3.755244440382013*^9, 
   3.7552444569453783`*^9}, {3.755244608859424*^9, 3.7552447700551662`*^9}, {
   3.7552451432462163`*^9, 3.7552451465588875`*^9}, {3.755245321724124*^9, 
   3.755245329755762*^9}, {3.7552453845867176`*^9, 3.7552454574810934`*^9}, {
   3.755246129799692*^9, 3.755246170989297*^9}, {3.755246674124442*^9, 
   3.755246680484136*^9}, {3.755246761628915*^9, 3.7552467620508404`*^9}, {
   3.7552468346895905`*^9, 3.7552468410961637`*^9}, {3.755266517921444*^9, 
   3.7552665197965603`*^9}, {3.755266621098613*^9, 3.755266627395832*^9}, {
   3.755435992447477*^9, 3.7554360611853795`*^9}, {3.755436100328006*^9, 
   3.755436101109275*^9}, {3.755436139205008*^9, 3.7554361798320627`*^9}, {
   3.755436232006616*^9, 3.755436355778593*^9}, {3.7554364803318615`*^9, 
   3.755436481394442*^9}, {3.755436612291778*^9, 3.7554366183077087`*^9}, {
   3.7554367024057865`*^9, 3.7554367069216113`*^9}, 3.7554372052128034`*^9, {
   3.7555024630834465`*^9, 3.7555024727089787`*^9}, {3.755504416621894*^9, 
   3.7555044190908003`*^9}, {3.755506055701868*^9, 3.7555060580552564`*^9}, {
   3.75554234810616*^9, 3.7555423493983154`*^9}, {3.7565764428818207`*^9, 
   3.756576478250442*^9}, 3.7566219418752785`*^9, {3.757060712995145*^9, 
   3.7570607140575485`*^9}, 3.7570680565583906`*^9, {3.7570684684074664`*^9, 
   3.7570684843209567`*^9}, {3.7571450199929667`*^9, 
   3.7571450825415497`*^9}, {3.7571452411940126`*^9, 3.7571453135547934`*^9}, 
   3.7571454002980022`*^9, {3.7571455150850196`*^9, 3.7571455226808095`*^9}, {
   3.757145779588254*^9, 3.7571458238746543`*^9}, {3.7571460676173253`*^9, 
   3.757146119711866*^9}, {3.7571462909111814`*^9, 3.7571462926100593`*^9}, {
   3.7571465831309342`*^9, 3.757146658041704*^9}, {3.757146715765914*^9, 
   3.75714675933827*^9}, {3.757146963387889*^9, 3.757146975963447*^9}, {
   3.75714706795979*^9, 3.7571471004278946`*^9}, {3.7571474412036886`*^9, 
   3.7571474579744873`*^9}, {3.757148489381488*^9, 3.7571484913815937`*^9}, {
   3.7571509079752216`*^9, 3.7571509252417545`*^9}, {3.7571510544360423`*^9, 
   3.7571510548579392`*^9}, {3.757151126486673*^9, 3.757151131549439*^9}, {
   3.757151178860036*^9, 3.7571513673386893`*^9}, {3.757151561051981*^9, 
   3.757151561833256*^9}, {3.7571516713546643`*^9, 3.757151672557824*^9}, {
   3.7571520583437495`*^9, 3.7571521819127126`*^9}, {3.7571522384782133`*^9, 
   3.7571522568541512`*^9}, {3.7571523547030716`*^9, 
   3.7571524163156743`*^9}, {3.7571527778659306`*^9, 3.757152870855195*^9}, {
   3.7571540922787466`*^9, 3.7571540927943993`*^9}, {3.757154296695739*^9, 
   3.757154319118791*^9}, {3.757154391075697*^9, 3.757154458047967*^9}, {
   3.757154553302972*^9, 3.7571545578344593`*^9}, 3.7571545879922657`*^9, {
   3.757154623900431*^9, 3.7571546315570555`*^9}, 3.757155125551791*^9, 
   3.757155167975896*^9, {3.757155592466922*^9, 3.757155592982573*^9}, {
   3.7571556511575236`*^9, 3.757155675861928*^9}, {3.7571557906961155`*^9, 
   3.757155814713002*^9}, {3.7571558786850843`*^9, 3.7571559479387245`*^9}, 
   3.757156528109864*^9, {3.7571565727996826`*^9, 3.7571566088484716`*^9}, 
   3.7571567313861685`*^9, {3.7571567633565702`*^9, 3.757156780107478*^9}, {
   3.7571568108122187`*^9, 3.757156826891159*^9}, 3.757156865111947*^9, {
   3.7571570864517016`*^9, 3.7571571407826815`*^9}, {3.757157442642284*^9, 
   3.7571574456111984`*^9}, {3.757165597179059*^9, 3.757165619445826*^9}, {
   3.7571656798732805`*^9, 3.7571656808421125`*^9}, {3.7571657189212074`*^9, 
   3.757165750928825*^9}, 3.757166005389525*^9, {3.757166987171872*^9, 
   3.757167010204363*^9}, 3.7571675317942696`*^9, {3.757167576015341*^9, 
   3.757167607423244*^9}, {3.7571677501494646`*^9, 3.757167767916049*^9}, {
   3.7573073241885414`*^9, 3.757307340189382*^9}, {3.757307505604353*^9, 
   3.7573075183862734`*^9}, {3.757307664097056*^9, 3.757307700552097*^9}, {
   3.7573077828845186`*^9, 3.757307932220519*^9}, {3.7573116422327795`*^9, 
   3.7573116691068935`*^9}, 3.75731179087792*^9, 3.757311821521502*^9, {
   3.757311906431336*^9, 3.757311937168823*^9}, {3.7573119831657386`*^9, 
   3.7573120040874405`*^9}, 3.7573120654475613`*^9, {3.7573214126907654`*^9, 
   3.7573214281040583`*^9}, {3.757942769684799*^9, 3.757942799984666*^9}, 
   3.7579431471755323`*^9, {3.7579431932828317`*^9, 3.7579432009214587`*^9}, {
   3.757943330529606*^9, 3.7579433319380217`*^9}, {3.7579441983931475`*^9, 
   3.7579442028892765`*^9}, {3.757944405158984*^9, 3.757944412080834*^9}, {
   3.757945736497373*^9, 3.757945738015188*^9}, {3.757945810611866*^9, 
   3.757945840001964*^9}, {3.7579461897684336`*^9, 3.7579461911858754`*^9}, {
   3.7579462769960527`*^9, 3.7579462772929153`*^9}, {3.757947155468666*^9, 
   3.757947193217351*^9}, 3.7579473634398575`*^9, {3.7579477209718504`*^9, 
   3.7579477318257017`*^9}, {3.7588869120910945`*^9, 3.758886914970995*^9}, {
   3.7588870325332313`*^9, 3.7588870466399307`*^9}, {3.7588870839425135`*^9, 
   3.758887101314685*^9}, {3.7588871916120157`*^9, 3.7588871954554157`*^9}, {
   3.7588873163581*^9, 3.7588873191145735`*^9}, {3.7588873696652184`*^9, 
   3.7588873950888076`*^9}, {3.7588874345804996`*^9, 
   3.7588874496933193`*^9}, {3.7588875198622475`*^9, 
   3.7588875449833374`*^9}, {3.758887686363428*^9, 3.7588877072389727`*^9}, {
   3.7588877866002426`*^9, 3.7588877928821263`*^9}, {3.758887905938057*^9, 
   3.758887911423415*^9}, {3.758887972642374*^9, 3.758887981275861*^9}, 
   3.758888202168353*^9, {3.7588883236426244`*^9, 3.7588883291568594`*^9}, {
   3.758888520849062*^9, 3.7588885320324774`*^9}, {3.7588888522016087`*^9, 
   3.758888938095615*^9}, {3.758889017760379*^9, 3.7588890563938556`*^9}, {
   3.762840922939204*^9, 3.7628411163828897`*^9}, {3.7628411497406893`*^9, 
   3.7628411556159983`*^9}, {3.7628414244529595`*^9, 
   3.7628414263592796`*^9}, {3.7628416334081807`*^9, 3.762841638549075*^9}, {
   3.762842393270873*^9, 3.7628424331959066`*^9}, {3.7628852503621306`*^9, 
   3.762885279293558*^9}, {3.7656068777823105`*^9, 3.765606882345046*^9}, {
   3.7656069154404917`*^9, 3.7656069440669975`*^9}, {3.765606991131968*^9, 
   3.76560701780521*^9}, {3.7656070754644904`*^9, 3.765607080574132*^9}, {
   3.765615299687826*^9, 3.765615307641365*^9}, {3.768107618585788*^9, 
   3.7681077026682625`*^9}, 3.7681077770783625`*^9, {3.7692550901945467`*^9, 
   3.7692551346101933`*^9}, {3.7692555073746367`*^9, 3.769255529250239*^9}, {
   3.7692556394207754`*^9, 3.7692556751936536`*^9}, {3.7692581492769556`*^9, 
   3.769258179987455*^9}, {3.7692582176035643`*^9, 3.769258219946127*^9}},
 CellLabel->
  "In[221]:=",ExpressionUUID->"60e79e73-cc01-4a66-bfaf-902092b31b54"]
}, Closed]],

Cell[CellGroupData[{

Cell["Mean for tilL", "Subsubsection",
 CellChangeTimes->{{3.7531680718255754`*^9, 3.7531680944404716`*^9}, {
   3.7532616090779924`*^9, 3.7532616549825935`*^9}, {3.755505857598364*^9, 
   3.755505876875003*^9}, 3.7628372209020605`*^9, 3.762841396121271*^9, {
   3.762842738152006*^9, 3.762842742527236*^9}, {3.76284278282063*^9, 
   3.7628427857270575`*^9}},ExpressionUUID->"13b27cb7-d30b-4ef0-aaa4-\
09d466085e97"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"newMeanL", "[", 
    RowBox[{
    "vecy1T_", ",", "vecx2T_", ",", "vecx1T1_", ",", "vecx1T_", ",", "X1T_", 
     ",", "T_", ",", "KM_", ",", 
     RowBox[{"{", 
      RowBox[{"M1_", ",", 
       RowBox[{"{", 
        RowBox[{
        "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
         "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
       "tilL_", ",", 
       RowBox[{"{", 
        RowBox[{"tilQMat_", ",", "tilSigmaMat_"}], "}"}]}], "}"}], ",", 
     "s1_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"newtiL", "=", 
       RowBox[{"tilL", "+", 
        RowBox[{"s1", "*", 
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}]}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "newtiL"}]}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7505657672869964`*^9, 3.750565846508605*^9}, {
   3.7505659231335907`*^9, 3.7505659236779137`*^9}, {3.7505659861802254`*^9, 
   3.7505659935867558`*^9}, {3.750566038531695*^9, 3.750566040791996*^9}, {
   3.7505660794081597`*^9, 3.750566124263068*^9}, {3.750566172142468*^9, 
   3.7505661814351416`*^9}, {3.7505662368523464`*^9, 
   3.7505662717449665`*^9}, {3.7505663164302397`*^9, 
   3.7505664304624786`*^9}, {3.750566669009137*^9, 3.750566746383494*^9}, {
   3.7505669400371203`*^9, 3.7505669929301486`*^9}, {3.75056777969715*^9, 
   3.750567813788676*^9}, {3.7505684489942303`*^9, 3.750568463273712*^9}, {
   3.750570702493136*^9, 3.7505707048684015`*^9}, {3.7505722371880217`*^9, 
   3.7505722896821284`*^9}, {3.750572683051879*^9, 3.7505726960400352`*^9}, {
   3.7505728188836412`*^9, 3.7505729454974732`*^9}, {3.750580359102162*^9, 
   3.750580434559182*^9}, {3.750580745622156*^9, 3.7505808136569176`*^9}, 
   3.751104775532077*^9, {3.751104923440542*^9, 3.7511049625963116`*^9}, {
   3.751105140360424*^9, 3.7511052776929255`*^9}, {3.7511053294379063`*^9, 
   3.751105556790142*^9}, {3.7511057016106405`*^9, 3.7511057025501328`*^9}, {
   3.751105760658673*^9, 3.751105762000988*^9}, {3.7511058261080847`*^9, 
   3.7511058266413946`*^9}, {3.751106239033055*^9, 3.7511062405767574`*^9}, {
   3.7511063002668967`*^9, 3.751106362769523*^9}, {3.751106471174114*^9, 
   3.751106496719597*^9}, {3.7511065333464327`*^9, 3.7511065604385443`*^9}, {
   3.751106858176976*^9, 3.751106880691366*^9}, {3.75110700967247*^9, 
   3.7511070273001213`*^9}, 3.7511071254870462`*^9, {3.751107181424448*^9, 
   3.751107226140745*^9}, 3.751107256281398*^9, {3.7511073103929415`*^9, 
   3.751107337907714*^9}, {3.7511073695947695`*^9, 3.751107423860882*^9}, 
   3.7511075165638943`*^9, {3.7511075606411657`*^9, 3.751107694484481*^9}, {
   3.7511077324562483`*^9, 3.7511077500119343`*^9}, {3.7511086392855577`*^9, 
   3.751108719106904*^9}, {3.751108787375388*^9, 3.751108836127715*^9}, {
   3.7511089276412845`*^9, 3.7511089450471034`*^9}, {3.7511090051900773`*^9, 
   3.7511090113777275`*^9}, {3.751109116531319*^9, 3.751109121596521*^9}, {
   3.751109976094879*^9, 3.751109983844214*^9}, {3.7511108711735816`*^9, 
   3.7511109035029345`*^9}, {3.751111105064044*^9, 3.751111136347082*^9}, {
   3.751111368985362*^9, 3.7511113701255455`*^9}, {3.751111403375066*^9, 
   3.751111403879157*^9}, {3.7511114823284035`*^9, 3.751111498018744*^9}, 
   3.751111758281865*^9, {3.7511373747616696`*^9, 3.7511375429360247`*^9}, {
   3.751138028732254*^9, 3.7511380399875546`*^9}, {3.751138469606248*^9, 
   3.751138500029875*^9}, {3.751139019706829*^9, 3.7511390687405567`*^9}, {
   3.7511393070494633`*^9, 3.75113930884643*^9}, {3.751139392381897*^9, 
   3.7511394130704327`*^9}, {3.7511791476720867`*^9, 
   3.7511791486729407`*^9}, {3.751190365500287*^9, 3.7511904649218583`*^9}, 
   3.7511907196786785`*^9, {3.751192749202721*^9, 3.751192899282124*^9}, {
   3.7511929347206287`*^9, 3.7511929368446665`*^9}, {3.751197051194865*^9, 
   3.7511970630887847`*^9}, {3.751197140803462*^9, 3.7511971780789003`*^9}, {
   3.7511972549260697`*^9, 3.751197495809845*^9}, 3.7511975294952745`*^9, {
   3.7511975685172553`*^9, 3.7511976190118785`*^9}, {3.7511976787956853`*^9, 
   3.751197806940008*^9}, {3.751197924041108*^9, 3.751197944942025*^9}, {
   3.751198114234748*^9, 3.751198131534266*^9}, {3.7511983444674263`*^9, 
   3.7511983836355066`*^9}, {3.751198458769849*^9, 3.751198534981048*^9}, 
   3.7511987458002415`*^9, 3.751198845370185*^9, {3.751200092354169*^9, 
   3.751200122810151*^9}, {3.7512001644311304`*^9, 3.751200184640587*^9}, {
   3.75120261444986*^9, 3.751202615026245*^9}, 3.7512028464264264`*^9, {
   3.7512029883179026`*^9, 3.7512030044426394`*^9}, 3.7512031472056985`*^9, {
   3.751203450634734*^9, 3.751203455093707*^9}, {3.751203532157016*^9, 
   3.751203586867445*^9}, {3.751204633862773*^9, 3.7512046627673283`*^9}, {
   3.7512052215693398`*^9, 3.751205311409314*^9}, 3.751205346264258*^9, {
   3.7512054758798265`*^9, 3.7512056527103662`*^9}, {3.751206263405012*^9, 
   3.751206427346819*^9}, {3.75120647137586*^9, 3.7512064787841697`*^9}, {
   3.751263901269413*^9, 3.751263934312447*^9}, {3.751264042082356*^9, 
   3.751264060043459*^9}, 3.7512641764125223`*^9, {3.751267855303958*^9, 
   3.751267995582011*^9}, {3.7512680360027657`*^9, 3.751268128769765*^9}, {
   3.75126816054605*^9, 3.7512682292527447`*^9}, {3.751268706507963*^9, 
   3.7512687415783377`*^9}, 3.7512687808470936`*^9, {3.7512688243689823`*^9, 
   3.751268844336131*^9}, {3.751268875378932*^9, 3.7512688778932657`*^9}, {
   3.751268986612778*^9, 3.7512690004846053`*^9}, {3.751269422879591*^9, 
   3.751269481241306*^9}, {3.751269577746869*^9, 3.751269652480719*^9}, 
   3.7512696890115933`*^9, {3.7512697642907677`*^9, 3.7512697929819374`*^9}, {
   3.7512699695505877`*^9, 3.751269970346939*^9}, {3.751270044252699*^9, 
   3.751270066265069*^9}, {3.751270097597247*^9, 3.751270098347725*^9}, {
   3.7512701542683935`*^9, 3.7512702837545433`*^9}, {3.7512703502656617`*^9, 
   3.7512703863591995`*^9}, {3.7512704395976143`*^9, 3.75127044125257*^9}, {
   3.7512704980810995`*^9, 3.751270609775647*^9}, {3.751270709893674*^9, 
   3.75127074975277*^9}, {3.751270803700219*^9, 3.751270806552363*^9}, {
   3.751270849519964*^9, 3.751270956007082*^9}, 3.751271084957001*^9, {
   3.7512711212646217`*^9, 3.7512713022688737`*^9}, {3.751271815778951*^9, 
   3.7512718842347283`*^9}, {3.7512719448782215`*^9, 
   3.7512719635787277`*^9}, {3.751272006753087*^9, 3.7512721236755247`*^9}, 
   3.751272156968498*^9, {3.7512722181278334`*^9, 3.751272293192318*^9}, {
   3.7512723521904583`*^9, 3.7512723990820065`*^9}, {3.751272756752042*^9, 
   3.751272759374689*^9}, {3.7512728082387085`*^9, 3.7512730433945785`*^9}, {
   3.7512732094715147`*^9, 3.7512732499877243`*^9}, 3.751273301132416*^9, {
   3.75127337703487*^9, 3.751273386660244*^9}, {3.751273439019314*^9, 
   3.7512734920037003`*^9}, {3.7514027566170006`*^9, 3.751402805499491*^9}, {
   3.751434938011731*^9, 3.7514349680739107`*^9}, {3.751443081484434*^9, 
   3.751443196012692*^9}, {3.7514432309869814`*^9, 3.75144324735688*^9}, {
   3.7514433577724004`*^9, 3.7514434177803555`*^9}, {3.751443504409037*^9, 
   3.7514435447488956`*^9}, 3.7514436473872385`*^9, {3.7514436930286293`*^9, 
   3.7514437695005465`*^9}, {3.7514438248754187`*^9, 
   3.7514438376889505`*^9}, {3.751443940902675*^9, 3.751443972646812*^9}, {
   3.751444204207996*^9, 3.751444216324063*^9}, {3.7514442780421567`*^9, 
   3.7514442867399483`*^9}, {3.751444470361212*^9, 3.75144449920842*^9}, {
   3.751444736113163*^9, 3.7514447397956157`*^9}, {3.751444773813264*^9, 
   3.7514448960666666`*^9}, {3.7514450441082387`*^9, 3.751445067569861*^9}, {
   3.751445129463076*^9, 3.7514452162308464`*^9}, {3.7514462143034086`*^9, 
   3.7514462368374133`*^9}, {3.751446514170074*^9, 3.7514465161133685`*^9}, {
   3.7514466882469845`*^9, 3.7514467334160585`*^9}, {3.7514467747705956`*^9, 
   3.751446781539102*^9}, {3.751446918697428*^9, 3.7514469766910424`*^9}, 
   3.7514475744900856`*^9, {3.7514476658559194`*^9, 3.75144769756103*^9}, {
   3.751447734813835*^9, 3.7514477793865147`*^9}, {3.7514478478711166`*^9, 
   3.751447861541217*^9}, {3.751447937729946*^9, 3.7514479485311375`*^9}, {
   3.751450104574473*^9, 3.7514501616424694`*^9}, {3.751450411294389*^9, 
   3.751450419802226*^9}, {3.7514504862050333`*^9, 3.75145050269452*^9}, {
   3.7514506695389185`*^9, 3.7514506716548615`*^9}, {3.751483668424836*^9, 
   3.7514837879367666`*^9}, {3.7514840111549044`*^9, 3.751484116999001*^9}, {
   3.7514843193411584`*^9, 3.7514844767961383`*^9}, {3.7514845202034664`*^9, 
   3.751484545562994*^9}, {3.751484611562432*^9, 3.751484664045507*^9}, {
   3.7514855871240025`*^9, 3.7514856005050917`*^9}, 3.751491177468532*^9, {
   3.751491275930093*^9, 3.7514912805831895`*^9}, {3.7515193219423504`*^9, 
   3.7515193298245974`*^9}, {3.751519420248808*^9, 3.75151942938089*^9}, {
   3.7515440610453777`*^9, 3.751544061264138*^9}, {3.7515452962334127`*^9, 
   3.751545337184332*^9}, {3.7515594986899805`*^9, 3.7515595201577816`*^9}, {
   3.7515599630740566`*^9, 3.7515600381391096`*^9}, {3.7515601449462333`*^9, 
   3.7515602533196063`*^9}, {3.7515602902681417`*^9, 3.751560306075667*^9}, {
   3.7515604133386135`*^9, 3.7515604483477845`*^9}, {3.751560531173319*^9, 
   3.751560568114834*^9}, 3.7515607113442483`*^9, 3.7515608055251946`*^9, 
   3.7515608903918505`*^9, {3.7515609237352133`*^9, 3.7515609238418756`*^9}, {
   3.751562795886561*^9, 3.751562832078611*^9}, {3.751563767463195*^9, 
   3.7515637744955425`*^9}, {3.7515638142168555`*^9, 3.751563828430811*^9}, {
   3.7515638783352494`*^9, 3.751563926964904*^9}, {3.7515642759358253`*^9, 
   3.751564318608959*^9}, {3.7515644229363275`*^9, 3.751564425233526*^9}, {
   3.751564468231185*^9, 3.7515644945989494`*^9}, {3.751564532912781*^9, 
   3.7515645651718864`*^9}, {3.7515651629259696`*^9, 3.751565276898184*^9}, {
   3.751565364353394*^9, 3.7515654035975566`*^9}, {3.7515655230115614`*^9, 
   3.751565554257234*^9}, {3.751565620913272*^9, 3.751565634895337*^9}, {
   3.751567661620452*^9, 3.7515676645969877`*^9}, {3.7516177890332737`*^9, 
   3.7516177998071384`*^9}, {3.751617880149107*^9, 3.751617892689335*^9}, {
   3.7516179840959563`*^9, 3.751618022522007*^9}, {3.7516180843003683`*^9, 
   3.751618146533952*^9}, {3.7516182600953674`*^9, 3.751618274779873*^9}, {
   3.7516183719068785`*^9, 3.7516183842980475`*^9}, {3.751618798754757*^9, 
   3.751618850238065*^9}, {3.7516197132007256`*^9, 3.7516197316031613`*^9}, 
   3.751620956195039*^9, {3.7516213346507463`*^9, 3.751621439686392*^9}, {
   3.75162148180729*^9, 3.7516216024258413`*^9}, 3.751621665039417*^9, {
   3.7516217316932864`*^9, 3.7516217986099033`*^9}, 3.7516218577337065`*^9, 
   3.751622032156968*^9, {3.7516220849725513`*^9, 3.75162220441278*^9}, {
   3.751622243857109*^9, 3.7516222870218983`*^9}, {3.7516226074639764`*^9, 
   3.751622685544321*^9}, {3.7516228831378083`*^9, 3.7516228919463177`*^9}, {
   3.7516229500949717`*^9, 3.7516229751179895`*^9}, {3.7519542816824355`*^9, 
   3.7519542911247215`*^9}, {3.7519543531390147`*^9, 3.751954367662685*^9}, {
   3.7519604886781006`*^9, 3.751960503664078*^9}, {3.7519606070411882`*^9, 
   3.751960613928009*^9}, {3.751990179468815*^9, 3.751990188686549*^9}, 
   3.751992123500967*^9, {3.751993122591089*^9, 3.7519931543987603`*^9}, {
   3.751996720785695*^9, 3.751996734536852*^9}, {3.7520375991275463`*^9, 
   3.7520376579712954`*^9}, {3.752037703346653*^9, 3.75203770986129*^9}, {
   3.7520378266166515`*^9, 3.7520379608463535`*^9}, {3.7520379934681115`*^9, 
   3.7520379974791183`*^9}, {3.752038122498396*^9, 3.752038148022621*^9}, {
   3.7520385731743464`*^9, 3.7520385773722*^9}, {3.7521264584437914`*^9, 
   3.752126465590701*^9}, {3.7521264975458403`*^9, 3.7521265924636707`*^9}, {
   3.752126658733886*^9, 3.752126687249611*^9}, 3.7521267504338655`*^9, {
   3.752126780779866*^9, 3.7521268008641195`*^9}, {3.752151238217684*^9, 
   3.752151272828807*^9}, {3.7521513326443257`*^9, 3.752151371740051*^9}, {
   3.752151451619084*^9, 3.7521514642290754`*^9}, {3.752151496324437*^9, 
   3.7521515641247654`*^9}, {3.752151889297434*^9, 3.752151891266282*^9}, {
   3.752152026788722*^9, 3.752152030585817*^9}, {3.7521523535239983`*^9, 
   3.752152365071456*^9}, {3.7521524262620454`*^9, 3.7521524333873777`*^9}, 
   3.7521530890399246`*^9, {3.7521531347297335`*^9, 3.752153135526647*^9}, {
   3.7521533240986395`*^9, 3.7521533341773024`*^9}, 3.752153952786664*^9, {
   3.752154012430299*^9, 3.7521540150866547`*^9}, {3.752154334634045*^9, 
   3.7521543617448115`*^9}, {3.752157070109583*^9, 3.752157070359597*^9}, 
   3.7521574872124586`*^9, 3.7521575281725473`*^9, {3.752159994669336*^9, 
   3.7521600121084347`*^9}, {3.7521606623125134`*^9, 
   3.7521606820467477`*^9}, {3.752161682512416*^9, 3.752161712136483*^9}, {
   3.7521618063200274`*^9, 3.7521618066169496`*^9}, {3.752161939097358*^9, 
   3.752161971810601*^9}, {3.7521621292303057`*^9, 3.7521621470220823`*^9}, {
   3.752162251242768*^9, 3.7521622614789877`*^9}, 3.7521624128262897`*^9, {
   3.7521625644324007`*^9, 3.752162611888942*^9}, {3.752345342451853*^9, 
   3.7523453807873564`*^9}, {3.752665589880958*^9, 3.7526656093654833`*^9}, 
   3.7526657068621573`*^9, {3.7526663591309004`*^9, 3.752666394896655*^9}, {
   3.752666455130684*^9, 3.7526665146929593`*^9}, {3.7526665928959394`*^9, 
   3.752666610427685*^9}, {3.7526666638124237`*^9, 3.7526666785059805`*^9}, {
   3.752666742318694*^9, 3.7526667673663607`*^9}, {3.7526668569131947`*^9, 
   3.752666882829051*^9}, {3.7526670622554164`*^9, 3.752667091630542*^9}, 
   3.752667163409067*^9, {3.7526672136790724`*^9, 3.7526672590679593`*^9}, {
   3.7526673372867613`*^9, 3.7526673745009594`*^9}, {3.7526674862709246`*^9, 
   3.752667512162136*^9}, {3.752667936599702*^9, 3.7526680164904184`*^9}, {
   3.752668130567745*^9, 3.7526681499584785`*^9}, 3.752668279287221*^9, {
   3.752668433474513*^9, 3.7526684344271755`*^9}, {3.7526684713498745`*^9, 
   3.7526684832956305`*^9}, {3.752668660946969*^9, 3.7526686636150694`*^9}, {
   3.752668708756461*^9, 3.7526687091162987`*^9}, {3.752668794130251*^9, 
   3.7526688216306505`*^9}, {3.752668877927391*^9, 3.7526688810373497`*^9}, {
   3.7526689172201176`*^9, 3.7526690274427457`*^9}, {3.752669194376151*^9, 
   3.7526691974116373`*^9}, {3.752669270021693*^9, 3.752669272630577*^9}, {
   3.752669727677882*^9, 3.7526697294435935`*^9}, {3.7526697725836535`*^9, 
   3.752669820208794*^9}, {3.7526698887656665`*^9, 3.752669973881936*^9}, {
   3.7526700178805447`*^9, 3.7526700295217733`*^9}, {3.7526706346685467`*^9, 
   3.7526706594506545`*^9}, {3.7526708762431602`*^9, 
   3.7526708781849294`*^9}, {3.752671001123205*^9, 3.7526710267179046`*^9}, {
   3.7526711397799997`*^9, 3.752671182068529*^9}, {3.7526716193916245`*^9, 
   3.7526716363407087`*^9}, {3.752671669575672*^9, 3.752671741729004*^9}, {
   3.752672232084035*^9, 3.752672234772108*^9}, {3.752672280148831*^9, 
   3.752672280727012*^9}, {3.7526725876085167`*^9, 3.752672596302247*^9}, 
   3.7526728512775335`*^9, 3.7526730231361256`*^9, {3.7526732421256533`*^9, 
   3.7526732540277357`*^9}, {3.7526732936616235`*^9, 3.752673304371353*^9}, {
   3.7526735034703283`*^9, 3.752673516134522*^9}, {3.752673576418618*^9, 
   3.75267357721657*^9}, {3.752673607632244*^9, 3.752673609400045*^9}, {
   3.7526736627709103`*^9, 3.7526737202716246`*^9}, {3.7526737571957655`*^9, 
   3.752673793543724*^9}, {3.7526745000997763`*^9, 3.7526745295626955`*^9}, {
   3.752674703494891*^9, 3.752674725936242*^9}, {3.752674756978424*^9, 
   3.752674828521925*^9}, {3.7526749162666397`*^9, 3.752674946630674*^9}, {
   3.752676296498336*^9, 3.752676360797632*^9}, {3.7526764214207687`*^9, 
   3.7526764326477737`*^9}, {3.7526767037865477`*^9, 
   3.7526767131223974`*^9}, {3.752677273197976*^9, 3.7526772749759145`*^9}, {
   3.752677330183681*^9, 3.7526774261405663`*^9}, 3.752677486505455*^9, {
   3.7526775280015545`*^9, 3.7526775703506317`*^9}, {3.7526782918646455`*^9, 
   3.7526783057118387`*^9}, {3.7526783488188653`*^9, 
   3.7526783564940042`*^9}, {3.752678435954553*^9, 3.752678461369563*^9}, {
   3.7526785013115835`*^9, 3.7526785102091455`*^9}, {3.7526785844434223`*^9, 
   3.7526786274687724`*^9}, 3.752679566668491*^9, {3.752679629074747*^9, 
   3.752679679912033*^9}, {3.752679765187885*^9, 3.7526797728755093`*^9}, {
   3.7526798604008336`*^9, 3.7526798634666967`*^9}, {3.752745988138604*^9, 
   3.752746022638576*^9}, {3.7527509704425373`*^9, 3.7527510842393084`*^9}, {
   3.7527532400857162`*^9, 3.75275328689177*^9}, 3.752753343887947*^9, {
   3.7527533757145014`*^9, 3.752753482042467*^9}, {3.7527544113997726`*^9, 
   3.752754418749231*^9}, 3.752754458391287*^9, {3.752754565431181*^9, 
   3.752754687103303*^9}, {3.752754722786633*^9, 3.7527547328871202`*^9}, {
   3.7527547632918687`*^9, 3.752754801912865*^9}, {3.7527549560034747`*^9, 
   3.752754962530466*^9}, {3.7527552613023634`*^9, 3.752755285036065*^9}, {
   3.7527554070024776`*^9, 3.752755408521305*^9}, {3.752755699949483*^9, 
   3.7527557284836473`*^9}, 3.752755788301222*^9, {3.7527558410408216`*^9, 
   3.752755932529893*^9}, {3.7527634865362206`*^9, 3.752763496829074*^9}, {
   3.7527636689006467`*^9, 3.7527637507081175`*^9}, {3.7527637834369097`*^9, 
   3.752763790287472*^9}, {3.752768767583745*^9, 3.752768767990022*^9}, {
   3.752778291555577*^9, 3.7527783218903666`*^9}, {3.752778592024059*^9, 
   3.752778637638337*^9}, 3.752778808789834*^9, {3.7527789746631985`*^9, 
   3.752778985659359*^9}, {3.7527794093115954`*^9, 3.7527794251405263`*^9}, {
   3.7527807280309267`*^9, 3.752780735201707*^9}, {3.752826067779383*^9, 
   3.752826098931508*^9}, {3.752827854657959*^9, 3.752827859592848*^9}, {
   3.752828540868827*^9, 3.7528286250959883`*^9}, {3.7528286887336516`*^9, 
   3.7528286988221817`*^9}, {3.7528288458428073`*^9, 3.752828873935688*^9}, {
   3.7528289961115923`*^9, 3.7528289963303566`*^9}, {3.7528290509613404`*^9, 
   3.752829143814409*^9}, {3.752829606900943*^9, 3.752829616279752*^9}, {
   3.75282971585106*^9, 3.752829730717065*^9}, {3.752831419396857*^9, 
   3.7528315561107693`*^9}, {3.7528315923188753`*^9, 
   3.7528316183088827`*^9}, {3.7528316567634478`*^9, 3.75283168416971*^9}, {
   3.75283176455752*^9, 3.752831766988679*^9}, {3.7528318161173525`*^9, 
   3.752831850161955*^9}, 3.7528319098300962`*^9, {3.752832155134966*^9, 
   3.752832155463109*^9}, {3.752832397490411*^9, 3.75283242602553*^9}, 
   3.7528325000508485`*^9, {3.7528328180523596`*^9, 3.7528328359347544`*^9}, {
   3.752832866501874*^9, 3.752832874743971*^9}, {3.752832966568694*^9, 
   3.752833005205539*^9}, {3.7528332955088387`*^9, 3.7528333925452857`*^9}, {
   3.7528334474122963`*^9, 3.7528334882906218`*^9}, {3.7528335206736546`*^9, 
   3.752833521021454*^9}, {3.7528336525686274`*^9, 3.752833669131317*^9}, {
   3.752842336638502*^9, 3.752842337262*^9}, {3.7528447074049807`*^9, 
   3.752844707701872*^9}, {3.7528448100785217`*^9, 3.7528448181364374`*^9}, {
   3.752845400433261*^9, 3.7528454118885727`*^9}, {3.752845458200714*^9, 
   3.752845459763857*^9}, {3.752846366127219*^9, 3.752846366595993*^9}, {
   3.7528468407116833`*^9, 3.7528468757772074`*^9}, {3.752847116918248*^9, 
   3.7528471907209406`*^9}, {3.7528472219335318`*^9, 
   3.7528472346534595`*^9}, {3.752848183434478*^9, 3.7528482572931957`*^9}, {
   3.752848366170209*^9, 3.7528484197318907`*^9}, {3.752848513622999*^9, 
   3.752848531669105*^9}, 3.752848681636752*^9, 3.7528505921067753`*^9, {
   3.752931256426008*^9, 3.7529312834481993`*^9}, {3.7529313266463275`*^9, 
   3.752931330510488*^9}, {3.752935138687519*^9, 3.75293524827658*^9}, {
   3.7529352939330177`*^9, 3.7529353158786464`*^9}, {3.7529353465090666`*^9, 
   3.752935359763903*^9}, {3.752935402477379*^9, 3.7529354276041307`*^9}, {
   3.752935459296261*^9, 3.752935556893323*^9}, {3.7529355953479595`*^9, 
   3.752935610651164*^9}, {3.7529358009650373`*^9, 3.7529358045734434`*^9}, {
   3.752936040929016*^9, 3.752936236578554*^9}, 3.7529362711105766`*^9, {
   3.7529363715715494`*^9, 3.7529364308100424`*^9}, {3.7529365334014344`*^9, 
   3.7529365501215825`*^9}, {3.7529555942988253`*^9, 3.752955619487618*^9}, {
   3.752955658052097*^9, 3.7529557390818915`*^9}, {3.7529558082272863`*^9, 
   3.7529559642821407`*^9}, {3.7529562518281727`*^9, 
   3.7529562525625873`*^9}, {3.752956318050294*^9, 3.7529563569116917`*^9}, {
   3.752956575165788*^9, 3.7529565905259237`*^9}, {3.7529566378096*^9, 
   3.752956648513303*^9}, {3.7529567053599434`*^9, 3.7529567808950725`*^9}, {
   3.7529906855127187`*^9, 3.7529909103680058`*^9}, {3.752990942291519*^9, 
   3.7529909670896673`*^9}, {3.752991236744128*^9, 3.7529912403068085`*^9}, {
   3.7529912723084545`*^9, 3.7529914019869566`*^9}, 3.7529915484163713`*^9, 
   3.752991633498863*^9, {3.7529918498602896`*^9, 3.7529918707676115`*^9}, {
   3.7529919269111176`*^9, 3.752991928629956*^9}, {3.752992016509467*^9, 
   3.7529920344635115`*^9}, {3.752992102904497*^9, 3.7529921142019773`*^9}, {
   3.7529922788041754`*^9, 3.7529923829345174`*^9}, {3.7529924428750963`*^9, 
   3.7529924729391108`*^9}, {3.7529925362392607`*^9, 
   3.7529925643813286`*^9}, {3.752992674480728*^9, 3.752992705794835*^9}, {
   3.7529927434217396`*^9, 3.7529927729857826`*^9}, {3.752992809237644*^9, 
   3.7529928889761105`*^9}, {3.7529933147379646`*^9, 3.75299333531068*^9}, {
   3.7529934462356305`*^9, 3.7529934721819267`*^9}, {3.752993674827025*^9, 
   3.752993764728958*^9}, {3.7529941501889334`*^9, 3.7529942528865013`*^9}, {
   3.7529942866720247`*^9, 3.7529943080822983`*^9}, {3.752994373255746*^9, 
   3.752994376462884*^9}, {3.75299447331245*^9, 3.752994515109315*^9}, {
   3.7529945862837644`*^9, 3.7529946553568134`*^9}, {3.7529958259652185`*^9, 
   3.7529958402827635`*^9}, {3.7530145608433046`*^9, 
   3.7530146954240246`*^9}, {3.7530147556101503`*^9, 3.753014982337302*^9}, {
   3.7530150296888676`*^9, 3.7530150826862*^9}, {3.7530151669263597`*^9, 
   3.753015188357647*^9}, {3.7530152192732563`*^9, 3.753015221748908*^9}, {
   3.7530214795645113`*^9, 3.7530215141676407`*^9}, {3.7530227671805887`*^9, 
   3.753022839645647*^9}, {3.7530228817853994`*^9, 3.753022893187793*^9}, {
   3.7530229943388505`*^9, 3.753023011764906*^9}, {3.7530230428586483`*^9, 
   3.7530230834447365`*^9}, {3.753023613711633*^9, 3.7530236442949667`*^9}, {
   3.753023687603938*^9, 3.7530237323233786`*^9}, {3.7530237743981776`*^9, 
   3.7530237965309544`*^9}, {3.753024293479504*^9, 3.753024330410098*^9}, {
   3.7530244349295454`*^9, 3.753024449968669*^9}, {3.7530244828746576`*^9, 
   3.7530246260386553`*^9}, {3.753024746382517*^9, 3.75302474972199*^9}, {
   3.753030958495159*^9, 3.7530310048900824`*^9}, {3.75303140356074*^9, 
   3.7530314085696354`*^9}, {3.753031441015137*^9, 3.75303144484305*^9}, {
   3.7530314787500944`*^9, 3.753031526360135*^9}, {3.7530319123830595`*^9, 
   3.753031981479968*^9}, {3.7530321764265375`*^9, 3.7530322000437546`*^9}, {
   3.7530322350411997`*^9, 3.75303223947752*^9}, {3.753032362738318*^9, 
   3.753032366085385*^9}, {3.753032746178946*^9, 3.7530329291606965`*^9}, {
   3.7530332043631496`*^9, 3.7530332611349125`*^9}, {3.7530333050551324`*^9, 
   3.7530334408900433`*^9}, {3.7530336293278694`*^9, 
   3.7530336312569323`*^9}, {3.753034058359221*^9, 3.7530340634060163`*^9}, 
   3.753034227695133*^9, {3.753034714681469*^9, 3.7530347290346317`*^9}, {
   3.7530348065707674`*^9, 3.7530348949066105`*^9}, {3.7530349387462845`*^9, 
   3.7530349392649174`*^9}, {3.7530349939168577`*^9, 
   3.7530350223433976`*^9}, {3.753035071438715*^9, 3.7530350887274313`*^9}, {
   3.7530355584769707`*^9, 3.753035573648568*^9}, {3.7530356969628105`*^9, 
   3.7530358981741695`*^9}, {3.7530359572180157`*^9, 3.753035958250786*^9}, {
   3.7530361028120112`*^9, 3.753036164135768*^9}, {3.7530362100076933`*^9, 
   3.75303621612012*^9}, {3.7530363142579594`*^9, 3.7530363588430057`*^9}, {
   3.753036543742338*^9, 3.7530366467624636`*^9}, {3.75303675391597*^9, 
   3.753036765882476*^9}, {3.7530368214728975`*^9, 3.7530368306156282`*^9}, {
   3.753036863690925*^9, 3.7530369251325316`*^9}, {3.753037381753392*^9, 
   3.753037384061475*^9}, {3.7530767453679776`*^9, 3.753076746328618*^9}, 
   3.7530775297711134`*^9, {3.7530779921715946`*^9, 3.753078036559185*^9}, {
   3.753078114078968*^9, 3.75307811469538*^9}, {3.7530785095145936`*^9, 
   3.7530785148301373`*^9}, 3.753081451116973*^9, 3.7530815019708767`*^9, {
   3.7531646003809013`*^9, 3.753164621365611*^9}, {3.75316683288827*^9, 
   3.7531669592211018`*^9}, 3.7531679090199723`*^9, 3.753168012004397*^9, {
   3.753168097368709*^9, 3.7531680979624896`*^9}, {3.753427561631744*^9, 
   3.75342757413118*^9}, {3.753428147189768*^9, 3.753428154886628*^9}, {
   3.754226963691388*^9, 3.7542269641601315`*^9}, {3.7551769878409185`*^9, 
   3.7551769913120785`*^9}, {3.755177295128628*^9, 3.7551773130594053`*^9}, {
   3.755177580104129*^9, 3.7551775937793717`*^9}, 3.755177693829558*^9, 
   3.7551779660901327`*^9, {3.7551780276905603`*^9, 3.755178036165874*^9}, {
   3.7551782093151665`*^9, 3.7551782208073673`*^9}, 3.7551782781535387`*^9, {
   3.755178459680495*^9, 3.7551784682922697`*^9}, 3.7551785342086787`*^9, {
   3.7551791495622463`*^9, 3.7551791504016647`*^9}, {3.755179323713098*^9, 
   3.755179330006174*^9}, {3.755179765437233*^9, 3.7551797662519035`*^9}, 
   3.7551799152207956`*^9, 3.7551801045428*^9, {3.7551801728222513`*^9, 
   3.755180179063452*^9}, {3.7551810628559303`*^9, 3.7551810640377183`*^9}, {
   3.755181385087857*^9, 3.755181386388725*^9}, {3.7551823384875917`*^9, 
   3.7551823392000666`*^9}, {3.755182401829818*^9, 3.7551824135015993`*^9}, {
   3.755182454086656*^9, 3.7551824585015993`*^9}, {3.7551824886496983`*^9, 
   3.7551825184985976`*^9}, {3.7551832568222637`*^9, 3.755183263510416*^9}, {
   3.7551847488083897`*^9, 3.7551848028868723`*^9}, {3.7551848575088005`*^9, 
   3.7551848731057673`*^9}, {3.755184904947463*^9, 3.755184925621002*^9}, {
   3.755185998219886*^9, 3.7551860517984095`*^9}, {3.7551861298365755`*^9, 
   3.7551861998534474`*^9}, {3.755186241204938*^9, 3.7551862740094995`*^9}, {
   3.755191107431016*^9, 3.755191156402026*^9}, {3.755191352932624*^9, 
   3.7551913680108676`*^9}, {3.755191438056924*^9, 3.7551914431677127`*^9}, {
   3.7551914756498194`*^9, 3.7551914922664275`*^9}, {3.7551916487298403`*^9, 
   3.7551916532617097`*^9}, {3.7551917373136845`*^9, 3.755191775743816*^9}, {
   3.75519193943247*^9, 3.755191941447687*^9}, {3.7551922120952797`*^9, 
   3.755192215056801*^9}, {3.7552412064702654`*^9, 3.755241213158109*^9}, 
   3.7552412941622677`*^9, 3.755241413730874*^9, {3.755241807148509*^9, 
   3.755241880309567*^9}, {3.755242152473157*^9, 3.755242203176527*^9}, {
   3.755242624153347*^9, 3.755242636857123*^9}, {3.7552427237053347`*^9, 
   3.7552427382998266`*^9}, {3.755242803850045*^9, 3.7552428358829575`*^9}, {
   3.755243922721014*^9, 3.755243926221223*^9}, {3.7552440676285286`*^9, 
   3.7552440681441774`*^9}, 3.755244182884432*^9, {3.755244440382013*^9, 
   3.7552444569453783`*^9}, {3.755244608859424*^9, 3.7552447700551662`*^9}, {
   3.7552451432462163`*^9, 3.7552451465588875`*^9}, {3.755245321724124*^9, 
   3.755245329755762*^9}, {3.7552453845867176`*^9, 3.7552454574810934`*^9}, {
   3.755246129799692*^9, 3.755246170989297*^9}, {3.755246674124442*^9, 
   3.755246680484136*^9}, {3.755246761628915*^9, 3.7552467620508404`*^9}, {
   3.7552468346895905`*^9, 3.7552468410961637`*^9}, {3.755266517921444*^9, 
   3.7552665197965603`*^9}, {3.755266621098613*^9, 3.755266627395832*^9}, {
   3.755435992447477*^9, 3.7554360611853795`*^9}, {3.755436100328006*^9, 
   3.755436101109275*^9}, {3.755436139205008*^9, 3.7554361798320627`*^9}, {
   3.755436232006616*^9, 3.755436355778593*^9}, {3.7554364803318615`*^9, 
   3.755436481394442*^9}, {3.755436612291778*^9, 3.7554366183077087`*^9}, {
   3.7554367024057865`*^9, 3.7554367069216113`*^9}, 3.7554372052128034`*^9, {
   3.7555024630834465`*^9, 3.7555024727089787`*^9}, {3.755504416621894*^9, 
   3.7555044190908003`*^9}, {3.755506055701868*^9, 3.7555060580552564`*^9}, {
   3.75554234810616*^9, 3.7555423493983154`*^9}, {3.7565764428818207`*^9, 
   3.756576478250442*^9}, 3.7566219418752785`*^9, {3.757060712995145*^9, 
   3.7570607140575485`*^9}, 3.7570680565583906`*^9, {3.7570684684074664`*^9, 
   3.7570684843209567`*^9}, {3.7571450199929667`*^9, 
   3.7571450825415497`*^9}, {3.7571452411940126`*^9, 3.7571453135547934`*^9}, 
   3.7571454002980022`*^9, {3.7571455150850196`*^9, 3.7571455226808095`*^9}, {
   3.757145779588254*^9, 3.7571458238746543`*^9}, {3.7571460676173253`*^9, 
   3.757146119711866*^9}, {3.7571462909111814`*^9, 3.7571462926100593`*^9}, {
   3.7571465831309342`*^9, 3.757146658041704*^9}, {3.757146715765914*^9, 
   3.75714675933827*^9}, {3.757146963387889*^9, 3.757146975963447*^9}, {
   3.75714706795979*^9, 3.7571471004278946`*^9}, {3.7571474412036886`*^9, 
   3.7571474579744873`*^9}, {3.757148489381488*^9, 3.7571484913815937`*^9}, {
   3.7571509079752216`*^9, 3.7571509252417545`*^9}, {3.7571510544360423`*^9, 
   3.7571510548579392`*^9}, {3.757151126486673*^9, 3.757151131549439*^9}, {
   3.757151178860036*^9, 3.7571513673386893`*^9}, {3.757151561051981*^9, 
   3.757151561833256*^9}, {3.7571516713546643`*^9, 3.757151672557824*^9}, {
   3.7571520583437495`*^9, 3.7571521819127126`*^9}, {3.7571522384782133`*^9, 
   3.7571522568541512`*^9}, {3.7571523547030716`*^9, 
   3.7571524163156743`*^9}, {3.7571527778659306`*^9, 3.757152870855195*^9}, {
   3.7571540922787466`*^9, 3.7571540927943993`*^9}, {3.757154296695739*^9, 
   3.757154319118791*^9}, {3.757154391075697*^9, 3.757154458047967*^9}, {
   3.757154553302972*^9, 3.7571545578344593`*^9}, 3.7571545879922657`*^9, {
   3.757154623900431*^9, 3.7571546315570555`*^9}, 3.757155125551791*^9, 
   3.757155167975896*^9, {3.757155592466922*^9, 3.757155592982573*^9}, {
   3.7571556511575236`*^9, 3.757155675861928*^9}, {3.7571557906961155`*^9, 
   3.757155814713002*^9}, {3.7571558786850843`*^9, 3.7571559479387245`*^9}, 
   3.757156528109864*^9, {3.7571565727996826`*^9, 3.7571566088484716`*^9}, 
   3.7571567313861685`*^9, {3.7571567633565702`*^9, 3.757156780107478*^9}, {
   3.7571568108122187`*^9, 3.757156826891159*^9}, 3.757156865111947*^9, {
   3.7571570864517016`*^9, 3.7571571407826815`*^9}, {3.757157442642284*^9, 
   3.7571574456111984`*^9}, {3.757165597179059*^9, 3.757165619445826*^9}, {
   3.7571656798732805`*^9, 3.7571656808421125`*^9}, {3.7571657189212074`*^9, 
   3.757165750928825*^9}, 3.757166005389525*^9, {3.757166987171872*^9, 
   3.757167010204363*^9}, 3.7571675317942696`*^9, {3.757167576015341*^9, 
   3.757167607423244*^9}, {3.7571677501494646`*^9, 3.757167767916049*^9}, {
   3.7573073241885414`*^9, 3.757307340189382*^9}, {3.757307505604353*^9, 
   3.7573075183862734`*^9}, {3.757307664097056*^9, 3.757307700552097*^9}, {
   3.7573077828845186`*^9, 3.757307932220519*^9}, {3.7573116422327795`*^9, 
   3.7573116691068935`*^9}, 3.75731179087792*^9, 3.757311821521502*^9, {
   3.757311906431336*^9, 3.757311937168823*^9}, {3.7573119831657386`*^9, 
   3.7573120040874405`*^9}, 3.7573120654475613`*^9, {3.7573214126907654`*^9, 
   3.7573214281040583`*^9}, {3.757942769684799*^9, 3.757942799984666*^9}, 
   3.7579431471755323`*^9, {3.7579431932828317`*^9, 3.7579432009214587`*^9}, {
   3.757943330529606*^9, 3.7579433319380217`*^9}, {3.7579441983931475`*^9, 
   3.7579442028892765`*^9}, {3.757944405158984*^9, 3.757944412080834*^9}, {
   3.757945736497373*^9, 3.757945738015188*^9}, {3.757945810611866*^9, 
   3.757945840001964*^9}, {3.7579461897684336`*^9, 3.7579461911858754`*^9}, {
   3.7579462769960527`*^9, 3.7579462772929153`*^9}, {3.757947155468666*^9, 
   3.757947193217351*^9}, 3.7579473634398575`*^9, {3.7579477209718504`*^9, 
   3.7579477318257017`*^9}, {3.7588869120910945`*^9, 3.758886914970995*^9}, {
   3.7588870325332313`*^9, 3.7588870466399307`*^9}, {3.7588870839425135`*^9, 
   3.758887101314685*^9}, {3.7588871916120157`*^9, 3.7588871954554157`*^9}, {
   3.7588873163581*^9, 3.7588873191145735`*^9}, {3.7588873696652184`*^9, 
   3.7588873950888076`*^9}, {3.7588874345804996`*^9, 
   3.7588874496933193`*^9}, {3.7588875198622475`*^9, 
   3.7588875449833374`*^9}, {3.758887686363428*^9, 3.7588877072389727`*^9}, {
   3.7588877866002426`*^9, 3.7588877928821263`*^9}, {3.758887905938057*^9, 
   3.758887911423415*^9}, {3.758887972642374*^9, 3.758887981275861*^9}, 
   3.758888202168353*^9, {3.7588883236426244`*^9, 3.7588883291568594`*^9}, {
   3.758888520849062*^9, 3.7588885320324774`*^9}, {3.7588888522016087`*^9, 
   3.758888938095615*^9}, {3.758889017760379*^9, 3.7588890563938556`*^9}, {
   3.7628414367116027`*^9, 3.7628415096317368`*^9}, 3.762841623188866*^9, {
   3.7628420497829633`*^9, 3.7628420904211426`*^9}, 3.762842178664629*^9, {
   3.7628422257926435`*^9, 3.7628422316679215`*^9}, 3.76284226210912*^9, 
   3.7628422979462013`*^9, {3.765606138540613*^9, 3.765606241295989*^9}, {
   3.7656064690109987`*^9, 3.7656064736518345`*^9}, {3.7681078289716578`*^9, 
   3.768107875083431*^9}, 3.7681101548748837`*^9},
 CellLabel->
  "In[222]:=",ExpressionUUID->"f627602d-3466-4e69-b163-96b31810ffa9"]
}, Closed]],

Cell[CellGroupData[{

Cell["Mean for M1(in the proposal we adjust for the d.f.)", "Subsubsection",
 CellChangeTimes->{{3.7531680718255754`*^9, 3.7531680944404716`*^9}, {
   3.7532616090779924`*^9, 3.7532616549825935`*^9}, {3.755505857598364*^9, 
   3.755505876875003*^9}, 3.7628372209020605`*^9, 3.762841396121271*^9, {
   3.762842738152006*^9, 3.762842742527236*^9}, {3.762842800352826*^9, 
   3.7628428030560923`*^9}, {3.7628430599011803`*^9, 
   3.7628431103681135`*^9}},ExpressionUUID->"3052e5a3-f455-460d-807c-\
45c8f73e0b2d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"newMeanM1", "[", 
    RowBox[{
    "vecy1T_", ",", "vecx2T_", ",", "vecx1T1_", ",", "vecx1T_", ",", "X1T_", 
     ",", "T_", ",", "KM_", ",", 
     RowBox[{"{", 
      RowBox[{"M1_", ",", 
       RowBox[{"{", 
        RowBox[{
        "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
         "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
       "tilL_", ",", 
       RowBox[{"{", 
        RowBox[{"tilQMat_", ",", "tilSigmaMat_"}], "}"}]}], "}"}], ",", 
     "s1_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"CovMat", "=", 
       RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ";", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"RandomVariate", "[", 
         RowBox[{"InverseWishartMatrixDistribution", "[", 
          RowBox[{"3", ",", 
           RowBox[{"IdentityMatrix", "[", "3", "]"}]}], "]"}], "]"}], ";"}], 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"newM1", "=", 
       RowBox[{"M1", "+", 
        RowBox[{"s1", "*", "s1M1", "*", 
         RowBox[{"RandomVariate", "[", 
          RowBox[{"InverseWishartMatrixDistribution", "[", 
           RowBox[{"nuM1", ",", "CovMat"}], "]"}], "]"}]}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "newM1"}]}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7505657672869964`*^9, 3.750565846508605*^9}, {
   3.7505659231335907`*^9, 3.7505659236779137`*^9}, {3.7505659861802254`*^9, 
   3.7505659935867558`*^9}, {3.750566038531695*^9, 3.750566040791996*^9}, {
   3.7505660794081597`*^9, 3.750566124263068*^9}, {3.750566172142468*^9, 
   3.7505661814351416`*^9}, {3.7505662368523464`*^9, 
   3.7505662717449665`*^9}, {3.7505663164302397`*^9, 
   3.7505664304624786`*^9}, {3.750566669009137*^9, 3.750566746383494*^9}, {
   3.7505669400371203`*^9, 3.7505669929301486`*^9}, {3.75056777969715*^9, 
   3.750567813788676*^9}, {3.7505684489942303`*^9, 3.750568463273712*^9}, {
   3.750570702493136*^9, 3.7505707048684015`*^9}, {3.7505722371880217`*^9, 
   3.7505722896821284`*^9}, {3.750572683051879*^9, 3.7505726960400352`*^9}, {
   3.7505728188836412`*^9, 3.7505729454974732`*^9}, {3.750580359102162*^9, 
   3.750580434559182*^9}, {3.750580745622156*^9, 3.7505808136569176`*^9}, 
   3.751104775532077*^9, {3.751104923440542*^9, 3.7511049625963116`*^9}, {
   3.751105140360424*^9, 3.7511052776929255`*^9}, {3.7511053294379063`*^9, 
   3.751105556790142*^9}, {3.7511057016106405`*^9, 3.7511057025501328`*^9}, {
   3.751105760658673*^9, 3.751105762000988*^9}, {3.7511058261080847`*^9, 
   3.7511058266413946`*^9}, {3.751106239033055*^9, 3.7511062405767574`*^9}, {
   3.7511063002668967`*^9, 3.751106362769523*^9}, {3.751106471174114*^9, 
   3.751106496719597*^9}, {3.7511065333464327`*^9, 3.7511065604385443`*^9}, {
   3.751106858176976*^9, 3.751106880691366*^9}, {3.75110700967247*^9, 
   3.7511070273001213`*^9}, 3.7511071254870462`*^9, {3.751107181424448*^9, 
   3.751107226140745*^9}, 3.751107256281398*^9, {3.7511073103929415`*^9, 
   3.751107337907714*^9}, {3.7511073695947695`*^9, 3.751107423860882*^9}, 
   3.7511075165638943`*^9, {3.7511075606411657`*^9, 3.751107694484481*^9}, {
   3.7511077324562483`*^9, 3.7511077500119343`*^9}, {3.7511086392855577`*^9, 
   3.751108719106904*^9}, {3.751108787375388*^9, 3.751108836127715*^9}, {
   3.7511089276412845`*^9, 3.7511089450471034`*^9}, {3.7511090051900773`*^9, 
   3.7511090113777275`*^9}, {3.751109116531319*^9, 3.751109121596521*^9}, {
   3.751109976094879*^9, 3.751109983844214*^9}, {3.7511108711735816`*^9, 
   3.7511109035029345`*^9}, {3.751111105064044*^9, 3.751111136347082*^9}, {
   3.751111368985362*^9, 3.7511113701255455`*^9}, {3.751111403375066*^9, 
   3.751111403879157*^9}, {3.7511114823284035`*^9, 3.751111498018744*^9}, 
   3.751111758281865*^9, {3.7511373747616696`*^9, 3.7511375429360247`*^9}, {
   3.751138028732254*^9, 3.7511380399875546`*^9}, {3.751138469606248*^9, 
   3.751138500029875*^9}, {3.751139019706829*^9, 3.7511390687405567`*^9}, {
   3.7511393070494633`*^9, 3.75113930884643*^9}, {3.751139392381897*^9, 
   3.7511394130704327`*^9}, {3.7511791476720867`*^9, 
   3.7511791486729407`*^9}, {3.751190365500287*^9, 3.7511904649218583`*^9}, 
   3.7511907196786785`*^9, {3.751192749202721*^9, 3.751192899282124*^9}, {
   3.7511929347206287`*^9, 3.7511929368446665`*^9}, {3.751197051194865*^9, 
   3.7511970630887847`*^9}, {3.751197140803462*^9, 3.7511971780789003`*^9}, {
   3.7511972549260697`*^9, 3.751197495809845*^9}, 3.7511975294952745`*^9, {
   3.7511975685172553`*^9, 3.7511976190118785`*^9}, {3.7511976787956853`*^9, 
   3.751197806940008*^9}, {3.751197924041108*^9, 3.751197944942025*^9}, {
   3.751198114234748*^9, 3.751198131534266*^9}, {3.7511983444674263`*^9, 
   3.7511983836355066`*^9}, {3.751198458769849*^9, 3.751198534981048*^9}, 
   3.7511987458002415`*^9, 3.751198845370185*^9, {3.751200092354169*^9, 
   3.751200122810151*^9}, {3.7512001644311304`*^9, 3.751200184640587*^9}, {
   3.75120261444986*^9, 3.751202615026245*^9}, 3.7512028464264264`*^9, {
   3.7512029883179026`*^9, 3.7512030044426394`*^9}, 3.7512031472056985`*^9, {
   3.751203450634734*^9, 3.751203455093707*^9}, {3.751203532157016*^9, 
   3.751203586867445*^9}, {3.751204633862773*^9, 3.7512046627673283`*^9}, {
   3.7512052215693398`*^9, 3.751205311409314*^9}, 3.751205346264258*^9, {
   3.7512054758798265`*^9, 3.7512056527103662`*^9}, {3.751206263405012*^9, 
   3.751206427346819*^9}, {3.75120647137586*^9, 3.7512064787841697`*^9}, {
   3.751263901269413*^9, 3.751263934312447*^9}, {3.751264042082356*^9, 
   3.751264060043459*^9}, 3.7512641764125223`*^9, {3.751267855303958*^9, 
   3.751267995582011*^9}, {3.7512680360027657`*^9, 3.751268128769765*^9}, {
   3.75126816054605*^9, 3.7512682292527447`*^9}, {3.751268706507963*^9, 
   3.7512687415783377`*^9}, 3.7512687808470936`*^9, {3.7512688243689823`*^9, 
   3.751268844336131*^9}, {3.751268875378932*^9, 3.7512688778932657`*^9}, {
   3.751268986612778*^9, 3.7512690004846053`*^9}, {3.751269422879591*^9, 
   3.751269481241306*^9}, {3.751269577746869*^9, 3.751269652480719*^9}, 
   3.7512696890115933`*^9, {3.7512697642907677`*^9, 3.7512697929819374`*^9}, {
   3.7512699695505877`*^9, 3.751269970346939*^9}, {3.751270044252699*^9, 
   3.751270066265069*^9}, {3.751270097597247*^9, 3.751270098347725*^9}, {
   3.7512701542683935`*^9, 3.7512702837545433`*^9}, {3.7512703502656617`*^9, 
   3.7512703863591995`*^9}, {3.7512704395976143`*^9, 3.75127044125257*^9}, {
   3.7512704980810995`*^9, 3.751270609775647*^9}, {3.751270709893674*^9, 
   3.75127074975277*^9}, {3.751270803700219*^9, 3.751270806552363*^9}, {
   3.751270849519964*^9, 3.751270956007082*^9}, 3.751271084957001*^9, {
   3.7512711212646217`*^9, 3.7512713022688737`*^9}, {3.751271815778951*^9, 
   3.7512718842347283`*^9}, {3.7512719448782215`*^9, 
   3.7512719635787277`*^9}, {3.751272006753087*^9, 3.7512721236755247`*^9}, 
   3.751272156968498*^9, {3.7512722181278334`*^9, 3.751272293192318*^9}, {
   3.7512723521904583`*^9, 3.7512723990820065`*^9}, {3.751272756752042*^9, 
   3.751272759374689*^9}, {3.7512728082387085`*^9, 3.7512730433945785`*^9}, {
   3.7512732094715147`*^9, 3.7512732499877243`*^9}, 3.751273301132416*^9, {
   3.75127337703487*^9, 3.751273386660244*^9}, {3.751273439019314*^9, 
   3.7512734920037003`*^9}, {3.7514027566170006`*^9, 3.751402805499491*^9}, {
   3.751434938011731*^9, 3.7514349680739107`*^9}, {3.751443081484434*^9, 
   3.751443196012692*^9}, {3.7514432309869814`*^9, 3.75144324735688*^9}, {
   3.7514433577724004`*^9, 3.7514434177803555`*^9}, {3.751443504409037*^9, 
   3.7514435447488956`*^9}, 3.7514436473872385`*^9, {3.7514436930286293`*^9, 
   3.7514437695005465`*^9}, {3.7514438248754187`*^9, 
   3.7514438376889505`*^9}, {3.751443940902675*^9, 3.751443972646812*^9}, {
   3.751444204207996*^9, 3.751444216324063*^9}, {3.7514442780421567`*^9, 
   3.7514442867399483`*^9}, {3.751444470361212*^9, 3.75144449920842*^9}, {
   3.751444736113163*^9, 3.7514447397956157`*^9}, {3.751444773813264*^9, 
   3.7514448960666666`*^9}, {3.7514450441082387`*^9, 3.751445067569861*^9}, {
   3.751445129463076*^9, 3.7514452162308464`*^9}, {3.7514462143034086`*^9, 
   3.7514462368374133`*^9}, {3.751446514170074*^9, 3.7514465161133685`*^9}, {
   3.7514466882469845`*^9, 3.7514467334160585`*^9}, {3.7514467747705956`*^9, 
   3.751446781539102*^9}, {3.751446918697428*^9, 3.7514469766910424`*^9}, 
   3.7514475744900856`*^9, {3.7514476658559194`*^9, 3.75144769756103*^9}, {
   3.751447734813835*^9, 3.7514477793865147`*^9}, {3.7514478478711166`*^9, 
   3.751447861541217*^9}, {3.751447937729946*^9, 3.7514479485311375`*^9}, {
   3.751450104574473*^9, 3.7514501616424694`*^9}, {3.751450411294389*^9, 
   3.751450419802226*^9}, {3.7514504862050333`*^9, 3.75145050269452*^9}, {
   3.7514506695389185`*^9, 3.7514506716548615`*^9}, {3.751483668424836*^9, 
   3.7514837879367666`*^9}, {3.7514840111549044`*^9, 3.751484116999001*^9}, {
   3.7514843193411584`*^9, 3.7514844767961383`*^9}, {3.7514845202034664`*^9, 
   3.751484545562994*^9}, {3.751484611562432*^9, 3.751484664045507*^9}, {
   3.7514855871240025`*^9, 3.7514856005050917`*^9}, 3.751491177468532*^9, {
   3.751491275930093*^9, 3.7514912805831895`*^9}, {3.7515193219423504`*^9, 
   3.7515193298245974`*^9}, {3.751519420248808*^9, 3.75151942938089*^9}, {
   3.7515440610453777`*^9, 3.751544061264138*^9}, {3.7515452962334127`*^9, 
   3.751545337184332*^9}, {3.7515594986899805`*^9, 3.7515595201577816`*^9}, {
   3.7515599630740566`*^9, 3.7515600381391096`*^9}, {3.7515601449462333`*^9, 
   3.7515602533196063`*^9}, {3.7515602902681417`*^9, 3.751560306075667*^9}, {
   3.7515604133386135`*^9, 3.7515604483477845`*^9}, {3.751560531173319*^9, 
   3.751560568114834*^9}, 3.7515607113442483`*^9, 3.7515608055251946`*^9, 
   3.7515608903918505`*^9, {3.7515609237352133`*^9, 3.7515609238418756`*^9}, {
   3.751562795886561*^9, 3.751562832078611*^9}, {3.751563767463195*^9, 
   3.7515637744955425`*^9}, {3.7515638142168555`*^9, 3.751563828430811*^9}, {
   3.7515638783352494`*^9, 3.751563926964904*^9}, {3.7515642759358253`*^9, 
   3.751564318608959*^9}, {3.7515644229363275`*^9, 3.751564425233526*^9}, {
   3.751564468231185*^9, 3.7515644945989494`*^9}, {3.751564532912781*^9, 
   3.7515645651718864`*^9}, {3.7515651629259696`*^9, 3.751565276898184*^9}, {
   3.751565364353394*^9, 3.7515654035975566`*^9}, {3.7515655230115614`*^9, 
   3.751565554257234*^9}, {3.751565620913272*^9, 3.751565634895337*^9}, {
   3.751567661620452*^9, 3.7515676645969877`*^9}, {3.7516177890332737`*^9, 
   3.7516177998071384`*^9}, {3.751617880149107*^9, 3.751617892689335*^9}, {
   3.7516179840959563`*^9, 3.751618022522007*^9}, {3.7516180843003683`*^9, 
   3.751618146533952*^9}, {3.7516182600953674`*^9, 3.751618274779873*^9}, {
   3.7516183719068785`*^9, 3.7516183842980475`*^9}, {3.751618798754757*^9, 
   3.751618850238065*^9}, {3.7516197132007256`*^9, 3.7516197316031613`*^9}, 
   3.751620956195039*^9, {3.7516213346507463`*^9, 3.751621439686392*^9}, {
   3.75162148180729*^9, 3.7516216024258413`*^9}, 3.751621665039417*^9, {
   3.7516217316932864`*^9, 3.7516217986099033`*^9}, 3.7516218577337065`*^9, 
   3.751622032156968*^9, {3.7516220849725513`*^9, 3.75162220441278*^9}, {
   3.751622243857109*^9, 3.7516222870218983`*^9}, {3.7516226074639764`*^9, 
   3.751622685544321*^9}, {3.7516228831378083`*^9, 3.7516228919463177`*^9}, {
   3.7516229500949717`*^9, 3.7516229751179895`*^9}, {3.7519542816824355`*^9, 
   3.7519542911247215`*^9}, {3.7519543531390147`*^9, 3.751954367662685*^9}, {
   3.7519604886781006`*^9, 3.751960503664078*^9}, {3.7519606070411882`*^9, 
   3.751960613928009*^9}, {3.751990179468815*^9, 3.751990188686549*^9}, 
   3.751992123500967*^9, {3.751993122591089*^9, 3.7519931543987603`*^9}, {
   3.751996720785695*^9, 3.751996734536852*^9}, {3.7520375991275463`*^9, 
   3.7520376579712954`*^9}, {3.752037703346653*^9, 3.75203770986129*^9}, {
   3.7520378266166515`*^9, 3.7520379608463535`*^9}, {3.7520379934681115`*^9, 
   3.7520379974791183`*^9}, {3.752038122498396*^9, 3.752038148022621*^9}, {
   3.7520385731743464`*^9, 3.7520385773722*^9}, {3.7521264584437914`*^9, 
   3.752126465590701*^9}, {3.7521264975458403`*^9, 3.7521265924636707`*^9}, {
   3.752126658733886*^9, 3.752126687249611*^9}, 3.7521267504338655`*^9, {
   3.752126780779866*^9, 3.7521268008641195`*^9}, {3.752151238217684*^9, 
   3.752151272828807*^9}, {3.7521513326443257`*^9, 3.752151371740051*^9}, {
   3.752151451619084*^9, 3.7521514642290754`*^9}, {3.752151496324437*^9, 
   3.7521515641247654`*^9}, {3.752151889297434*^9, 3.752151891266282*^9}, {
   3.752152026788722*^9, 3.752152030585817*^9}, {3.7521523535239983`*^9, 
   3.752152365071456*^9}, {3.7521524262620454`*^9, 3.7521524333873777`*^9}, 
   3.7521530890399246`*^9, {3.7521531347297335`*^9, 3.752153135526647*^9}, {
   3.7521533240986395`*^9, 3.7521533341773024`*^9}, 3.752153952786664*^9, {
   3.752154012430299*^9, 3.7521540150866547`*^9}, {3.752154334634045*^9, 
   3.7521543617448115`*^9}, {3.752157070109583*^9, 3.752157070359597*^9}, 
   3.7521574872124586`*^9, 3.7521575281725473`*^9, {3.752159994669336*^9, 
   3.7521600121084347`*^9}, {3.7521606623125134`*^9, 
   3.7521606820467477`*^9}, {3.752161682512416*^9, 3.752161712136483*^9}, {
   3.7521618063200274`*^9, 3.7521618066169496`*^9}, {3.752161939097358*^9, 
   3.752161971810601*^9}, {3.7521621292303057`*^9, 3.7521621470220823`*^9}, {
   3.752162251242768*^9, 3.7521622614789877`*^9}, 3.7521624128262897`*^9, {
   3.7521625644324007`*^9, 3.752162611888942*^9}, {3.752345342451853*^9, 
   3.7523453807873564`*^9}, {3.752665589880958*^9, 3.7526656093654833`*^9}, 
   3.7526657068621573`*^9, {3.7526663591309004`*^9, 3.752666394896655*^9}, {
   3.752666455130684*^9, 3.7526665146929593`*^9}, {3.7526665928959394`*^9, 
   3.752666610427685*^9}, {3.7526666638124237`*^9, 3.7526666785059805`*^9}, {
   3.752666742318694*^9, 3.7526667673663607`*^9}, {3.7526668569131947`*^9, 
   3.752666882829051*^9}, {3.7526670622554164`*^9, 3.752667091630542*^9}, 
   3.752667163409067*^9, {3.7526672136790724`*^9, 3.7526672590679593`*^9}, {
   3.7526673372867613`*^9, 3.7526673745009594`*^9}, {3.7526674862709246`*^9, 
   3.752667512162136*^9}, {3.752667936599702*^9, 3.7526680164904184`*^9}, {
   3.752668130567745*^9, 3.7526681499584785`*^9}, 3.752668279287221*^9, {
   3.752668433474513*^9, 3.7526684344271755`*^9}, {3.7526684713498745`*^9, 
   3.7526684832956305`*^9}, {3.752668660946969*^9, 3.7526686636150694`*^9}, {
   3.752668708756461*^9, 3.7526687091162987`*^9}, {3.752668794130251*^9, 
   3.7526688216306505`*^9}, {3.752668877927391*^9, 3.7526688810373497`*^9}, {
   3.7526689172201176`*^9, 3.7526690274427457`*^9}, {3.752669194376151*^9, 
   3.7526691974116373`*^9}, {3.752669270021693*^9, 3.752669272630577*^9}, {
   3.752669727677882*^9, 3.7526697294435935`*^9}, {3.7526697725836535`*^9, 
   3.752669820208794*^9}, {3.7526698887656665`*^9, 3.752669973881936*^9}, {
   3.7526700178805447`*^9, 3.7526700295217733`*^9}, {3.7526706346685467`*^9, 
   3.7526706594506545`*^9}, {3.7526708762431602`*^9, 
   3.7526708781849294`*^9}, {3.752671001123205*^9, 3.7526710267179046`*^9}, {
   3.7526711397799997`*^9, 3.752671182068529*^9}, {3.7526716193916245`*^9, 
   3.7526716363407087`*^9}, {3.752671669575672*^9, 3.752671741729004*^9}, {
   3.752672232084035*^9, 3.752672234772108*^9}, {3.752672280148831*^9, 
   3.752672280727012*^9}, {3.7526725876085167`*^9, 3.752672596302247*^9}, 
   3.7526728512775335`*^9, 3.7526730231361256`*^9, {3.7526732421256533`*^9, 
   3.7526732540277357`*^9}, {3.7526732936616235`*^9, 3.752673304371353*^9}, {
   3.7526735034703283`*^9, 3.752673516134522*^9}, {3.752673576418618*^9, 
   3.75267357721657*^9}, {3.752673607632244*^9, 3.752673609400045*^9}, {
   3.7526736627709103`*^9, 3.7526737202716246`*^9}, {3.7526737571957655`*^9, 
   3.752673793543724*^9}, {3.7526745000997763`*^9, 3.7526745295626955`*^9}, {
   3.752674703494891*^9, 3.752674725936242*^9}, {3.752674756978424*^9, 
   3.752674828521925*^9}, {3.7526749162666397`*^9, 3.752674946630674*^9}, {
   3.752676296498336*^9, 3.752676360797632*^9}, {3.7526764214207687`*^9, 
   3.7526764326477737`*^9}, {3.7526767037865477`*^9, 
   3.7526767131223974`*^9}, {3.752677273197976*^9, 3.7526772749759145`*^9}, {
   3.752677330183681*^9, 3.7526774261405663`*^9}, 3.752677486505455*^9, {
   3.7526775280015545`*^9, 3.7526775703506317`*^9}, {3.7526782918646455`*^9, 
   3.7526783057118387`*^9}, {3.7526783488188653`*^9, 
   3.7526783564940042`*^9}, {3.752678435954553*^9, 3.752678461369563*^9}, {
   3.7526785013115835`*^9, 3.7526785102091455`*^9}, {3.7526785844434223`*^9, 
   3.7526786274687724`*^9}, 3.752679566668491*^9, {3.752679629074747*^9, 
   3.752679679912033*^9}, {3.752679765187885*^9, 3.7526797728755093`*^9}, {
   3.7526798604008336`*^9, 3.7526798634666967`*^9}, {3.752745988138604*^9, 
   3.752746022638576*^9}, {3.7527509704425373`*^9, 3.7527510842393084`*^9}, {
   3.7527532400857162`*^9, 3.75275328689177*^9}, 3.752753343887947*^9, {
   3.7527533757145014`*^9, 3.752753482042467*^9}, {3.7527544113997726`*^9, 
   3.752754418749231*^9}, 3.752754458391287*^9, {3.752754565431181*^9, 
   3.752754687103303*^9}, {3.752754722786633*^9, 3.7527547328871202`*^9}, {
   3.7527547632918687`*^9, 3.752754801912865*^9}, {3.7527549560034747`*^9, 
   3.752754962530466*^9}, {3.7527552613023634`*^9, 3.752755285036065*^9}, {
   3.7527554070024776`*^9, 3.752755408521305*^9}, {3.752755699949483*^9, 
   3.7527557284836473`*^9}, 3.752755788301222*^9, {3.7527558410408216`*^9, 
   3.752755932529893*^9}, {3.7527634865362206`*^9, 3.752763496829074*^9}, {
   3.7527636689006467`*^9, 3.7527637507081175`*^9}, {3.7527637834369097`*^9, 
   3.752763790287472*^9}, {3.752768767583745*^9, 3.752768767990022*^9}, {
   3.752778291555577*^9, 3.7527783218903666`*^9}, {3.752778592024059*^9, 
   3.752778637638337*^9}, 3.752778808789834*^9, {3.7527789746631985`*^9, 
   3.752778985659359*^9}, {3.7527794093115954`*^9, 3.7527794251405263`*^9}, {
   3.7527807280309267`*^9, 3.752780735201707*^9}, {3.752826067779383*^9, 
   3.752826098931508*^9}, {3.752827854657959*^9, 3.752827859592848*^9}, {
   3.752828540868827*^9, 3.7528286250959883`*^9}, {3.7528286887336516`*^9, 
   3.7528286988221817`*^9}, {3.7528288458428073`*^9, 3.752828873935688*^9}, {
   3.7528289961115923`*^9, 3.7528289963303566`*^9}, {3.7528290509613404`*^9, 
   3.752829143814409*^9}, {3.752829606900943*^9, 3.752829616279752*^9}, {
   3.75282971585106*^9, 3.752829730717065*^9}, {3.752831419396857*^9, 
   3.7528315561107693`*^9}, {3.7528315923188753`*^9, 
   3.7528316183088827`*^9}, {3.7528316567634478`*^9, 3.75283168416971*^9}, {
   3.75283176455752*^9, 3.752831766988679*^9}, {3.7528318161173525`*^9, 
   3.752831850161955*^9}, 3.7528319098300962`*^9, {3.752832155134966*^9, 
   3.752832155463109*^9}, {3.752832397490411*^9, 3.75283242602553*^9}, 
   3.7528325000508485`*^9, {3.7528328180523596`*^9, 3.7528328359347544`*^9}, {
   3.752832866501874*^9, 3.752832874743971*^9}, {3.752832966568694*^9, 
   3.752833005205539*^9}, {3.7528332955088387`*^9, 3.7528333925452857`*^9}, {
   3.7528334474122963`*^9, 3.7528334882906218`*^9}, {3.7528335206736546`*^9, 
   3.752833521021454*^9}, {3.7528336525686274`*^9, 3.752833669131317*^9}, {
   3.752842336638502*^9, 3.752842337262*^9}, {3.7528447074049807`*^9, 
   3.752844707701872*^9}, {3.7528448100785217`*^9, 3.7528448181364374`*^9}, {
   3.752845400433261*^9, 3.7528454118885727`*^9}, {3.752845458200714*^9, 
   3.752845459763857*^9}, {3.752846366127219*^9, 3.752846366595993*^9}, {
   3.7528468407116833`*^9, 3.7528468757772074`*^9}, {3.752847116918248*^9, 
   3.7528471907209406`*^9}, {3.7528472219335318`*^9, 
   3.7528472346534595`*^9}, {3.752848183434478*^9, 3.7528482572931957`*^9}, {
   3.752848366170209*^9, 3.7528484197318907`*^9}, {3.752848513622999*^9, 
   3.752848531669105*^9}, 3.752848681636752*^9, 3.7528505921067753`*^9, {
   3.752931256426008*^9, 3.7529312834481993`*^9}, {3.7529313266463275`*^9, 
   3.752931330510488*^9}, {3.752935138687519*^9, 3.75293524827658*^9}, {
   3.7529352939330177`*^9, 3.7529353158786464`*^9}, {3.7529353465090666`*^9, 
   3.752935359763903*^9}, {3.752935402477379*^9, 3.7529354276041307`*^9}, {
   3.752935459296261*^9, 3.752935556893323*^9}, {3.7529355953479595`*^9, 
   3.752935610651164*^9}, {3.7529358009650373`*^9, 3.7529358045734434`*^9}, {
   3.752936040929016*^9, 3.752936236578554*^9}, 3.7529362711105766`*^9, {
   3.7529363715715494`*^9, 3.7529364308100424`*^9}, {3.7529365334014344`*^9, 
   3.7529365501215825`*^9}, {3.7529555942988253`*^9, 3.752955619487618*^9}, {
   3.752955658052097*^9, 3.7529557390818915`*^9}, {3.7529558082272863`*^9, 
   3.7529559642821407`*^9}, {3.7529562518281727`*^9, 
   3.7529562525625873`*^9}, {3.752956318050294*^9, 3.7529563569116917`*^9}, {
   3.752956575165788*^9, 3.7529565905259237`*^9}, {3.7529566378096*^9, 
   3.752956648513303*^9}, {3.7529567053599434`*^9, 3.7529567808950725`*^9}, {
   3.7529906855127187`*^9, 3.7529909103680058`*^9}, {3.752990942291519*^9, 
   3.7529909670896673`*^9}, {3.752991236744128*^9, 3.7529912403068085`*^9}, {
   3.7529912723084545`*^9, 3.7529914019869566`*^9}, 3.7529915484163713`*^9, 
   3.752991633498863*^9, {3.7529918498602896`*^9, 3.7529918707676115`*^9}, {
   3.7529919269111176`*^9, 3.752991928629956*^9}, {3.752992016509467*^9, 
   3.7529920344635115`*^9}, {3.752992102904497*^9, 3.7529921142019773`*^9}, {
   3.7529922788041754`*^9, 3.7529923829345174`*^9}, {3.7529924428750963`*^9, 
   3.7529924729391108`*^9}, {3.7529925362392607`*^9, 
   3.7529925643813286`*^9}, {3.752992674480728*^9, 3.752992705794835*^9}, {
   3.7529927434217396`*^9, 3.7529927729857826`*^9}, {3.752992809237644*^9, 
   3.7529928889761105`*^9}, {3.7529933147379646`*^9, 3.75299333531068*^9}, {
   3.7529934462356305`*^9, 3.7529934721819267`*^9}, {3.752993674827025*^9, 
   3.752993764728958*^9}, {3.7529941501889334`*^9, 3.7529942528865013`*^9}, {
   3.7529942866720247`*^9, 3.7529943080822983`*^9}, {3.752994373255746*^9, 
   3.752994376462884*^9}, {3.75299447331245*^9, 3.752994515109315*^9}, {
   3.7529945862837644`*^9, 3.7529946553568134`*^9}, {3.7529958259652185`*^9, 
   3.7529958402827635`*^9}, {3.7530145608433046`*^9, 
   3.7530146954240246`*^9}, {3.7530147556101503`*^9, 3.753014982337302*^9}, {
   3.7530150296888676`*^9, 3.7530150826862*^9}, {3.7530151669263597`*^9, 
   3.753015188357647*^9}, {3.7530152192732563`*^9, 3.753015221748908*^9}, {
   3.7530214795645113`*^9, 3.7530215141676407`*^9}, {3.7530227671805887`*^9, 
   3.753022839645647*^9}, {3.7530228817853994`*^9, 3.753022893187793*^9}, {
   3.7530229943388505`*^9, 3.753023011764906*^9}, {3.7530230428586483`*^9, 
   3.7530230834447365`*^9}, {3.753023613711633*^9, 3.7530236442949667`*^9}, {
   3.753023687603938*^9, 3.7530237323233786`*^9}, {3.7530237743981776`*^9, 
   3.7530237965309544`*^9}, {3.753024293479504*^9, 3.753024330410098*^9}, {
   3.7530244349295454`*^9, 3.753024449968669*^9}, {3.7530244828746576`*^9, 
   3.7530246260386553`*^9}, {3.753024746382517*^9, 3.75302474972199*^9}, {
   3.753030958495159*^9, 3.7530310048900824`*^9}, {3.75303140356074*^9, 
   3.7530314085696354`*^9}, {3.753031441015137*^9, 3.75303144484305*^9}, {
   3.7530314787500944`*^9, 3.753031526360135*^9}, {3.7530319123830595`*^9, 
   3.753031981479968*^9}, {3.7530321764265375`*^9, 3.7530322000437546`*^9}, {
   3.7530322350411997`*^9, 3.75303223947752*^9}, {3.753032362738318*^9, 
   3.753032366085385*^9}, {3.753032746178946*^9, 3.7530329291606965`*^9}, {
   3.7530332043631496`*^9, 3.7530332611349125`*^9}, {3.7530333050551324`*^9, 
   3.7530334408900433`*^9}, {3.7530336293278694`*^9, 
   3.7530336312569323`*^9}, {3.753034058359221*^9, 3.7530340634060163`*^9}, 
   3.753034227695133*^9, {3.753034714681469*^9, 3.7530347290346317`*^9}, {
   3.7530348065707674`*^9, 3.7530348949066105`*^9}, {3.7530349387462845`*^9, 
   3.7530349392649174`*^9}, {3.7530349939168577`*^9, 
   3.7530350223433976`*^9}, {3.753035071438715*^9, 3.7530350887274313`*^9}, {
   3.7530355584769707`*^9, 3.753035573648568*^9}, {3.7530356969628105`*^9, 
   3.7530358981741695`*^9}, {3.7530359572180157`*^9, 3.753035958250786*^9}, {
   3.7530361028120112`*^9, 3.753036164135768*^9}, {3.7530362100076933`*^9, 
   3.75303621612012*^9}, {3.7530363142579594`*^9, 3.7530363588430057`*^9}, {
   3.753036543742338*^9, 3.7530366467624636`*^9}, {3.75303675391597*^9, 
   3.753036765882476*^9}, {3.7530368214728975`*^9, 3.7530368306156282`*^9}, {
   3.753036863690925*^9, 3.7530369251325316`*^9}, {3.753037381753392*^9, 
   3.753037384061475*^9}, {3.7530767453679776`*^9, 3.753076746328618*^9}, 
   3.7530775297711134`*^9, {3.7530779921715946`*^9, 3.753078036559185*^9}, {
   3.753078114078968*^9, 3.75307811469538*^9}, {3.7530785095145936`*^9, 
   3.7530785148301373`*^9}, 3.753081451116973*^9, 3.7530815019708767`*^9, {
   3.7531646003809013`*^9, 3.753164621365611*^9}, {3.75316683288827*^9, 
   3.7531669592211018`*^9}, 3.7531679090199723`*^9, 3.753168012004397*^9, {
   3.753168097368709*^9, 3.7531680979624896`*^9}, {3.753427561631744*^9, 
   3.75342757413118*^9}, {3.753428147189768*^9, 3.753428154886628*^9}, {
   3.754226963691388*^9, 3.7542269641601315`*^9}, {3.7551769878409185`*^9, 
   3.7551769913120785`*^9}, {3.755177295128628*^9, 3.7551773130594053`*^9}, {
   3.755177580104129*^9, 3.7551775937793717`*^9}, 3.755177693829558*^9, 
   3.7551779660901327`*^9, {3.7551780276905603`*^9, 3.755178036165874*^9}, {
   3.7551782093151665`*^9, 3.7551782208073673`*^9}, 3.7551782781535387`*^9, {
   3.755178459680495*^9, 3.7551784682922697`*^9}, 3.7551785342086787`*^9, {
   3.7551791495622463`*^9, 3.7551791504016647`*^9}, {3.755179323713098*^9, 
   3.755179330006174*^9}, {3.755179765437233*^9, 3.7551797662519035`*^9}, 
   3.7551799152207956`*^9, 3.7551801045428*^9, {3.7551801728222513`*^9, 
   3.755180179063452*^9}, {3.7551810628559303`*^9, 3.7551810640377183`*^9}, {
   3.755181385087857*^9, 3.755181386388725*^9}, {3.7551823384875917`*^9, 
   3.7551823392000666`*^9}, {3.755182401829818*^9, 3.7551824135015993`*^9}, {
   3.755182454086656*^9, 3.7551824585015993`*^9}, {3.7551824886496983`*^9, 
   3.7551825184985976`*^9}, {3.7551832568222637`*^9, 3.755183263510416*^9}, {
   3.7551847488083897`*^9, 3.7551848028868723`*^9}, {3.7551848575088005`*^9, 
   3.7551848731057673`*^9}, {3.755184904947463*^9, 3.755184925621002*^9}, {
   3.755185998219886*^9, 3.7551860517984095`*^9}, {3.7551861298365755`*^9, 
   3.7551861998534474`*^9}, {3.755186241204938*^9, 3.7551862740094995`*^9}, {
   3.755191107431016*^9, 3.755191156402026*^9}, {3.755191352932624*^9, 
   3.7551913680108676`*^9}, {3.755191438056924*^9, 3.7551914431677127`*^9}, {
   3.7551914756498194`*^9, 3.7551914922664275`*^9}, {3.7551916487298403`*^9, 
   3.7551916532617097`*^9}, {3.7551917373136845`*^9, 3.755191775743816*^9}, {
   3.75519193943247*^9, 3.755191941447687*^9}, {3.7551922120952797`*^9, 
   3.755192215056801*^9}, {3.7552412064702654`*^9, 3.755241213158109*^9}, 
   3.7552412941622677`*^9, 3.755241413730874*^9, {3.755241807148509*^9, 
   3.755241880309567*^9}, {3.755242152473157*^9, 3.755242203176527*^9}, {
   3.755242624153347*^9, 3.755242636857123*^9}, {3.7552427237053347`*^9, 
   3.7552427382998266`*^9}, {3.755242803850045*^9, 3.7552428358829575`*^9}, {
   3.755243922721014*^9, 3.755243926221223*^9}, {3.7552440676285286`*^9, 
   3.7552440681441774`*^9}, 3.755244182884432*^9, {3.755244440382013*^9, 
   3.7552444569453783`*^9}, {3.755244608859424*^9, 3.7552447700551662`*^9}, {
   3.7552451432462163`*^9, 3.7552451465588875`*^9}, {3.755245321724124*^9, 
   3.755245329755762*^9}, {3.7552453845867176`*^9, 3.7552454574810934`*^9}, {
   3.755246129799692*^9, 3.755246170989297*^9}, {3.755246674124442*^9, 
   3.755246680484136*^9}, {3.755246761628915*^9, 3.7552467620508404`*^9}, {
   3.7552468346895905`*^9, 3.7552468410961637`*^9}, {3.755266517921444*^9, 
   3.7552665197965603`*^9}, {3.755266621098613*^9, 3.755266627395832*^9}, {
   3.755435992447477*^9, 3.7554360611853795`*^9}, {3.755436100328006*^9, 
   3.755436101109275*^9}, {3.755436139205008*^9, 3.7554361798320627`*^9}, {
   3.755436232006616*^9, 3.755436355778593*^9}, {3.7554364803318615`*^9, 
   3.755436481394442*^9}, {3.755436612291778*^9, 3.7554366183077087`*^9}, {
   3.7554367024057865`*^9, 3.7554367069216113`*^9}, 3.7554372052128034`*^9, {
   3.7555024630834465`*^9, 3.7555024727089787`*^9}, {3.755504416621894*^9, 
   3.7555044190908003`*^9}, {3.755506055701868*^9, 3.7555060580552564`*^9}, {
   3.75554234810616*^9, 3.7555423493983154`*^9}, {3.7565764428818207`*^9, 
   3.756576478250442*^9}, 3.7566219418752785`*^9, {3.757060712995145*^9, 
   3.7570607140575485`*^9}, 3.7570680565583906`*^9, {3.7570684684074664`*^9, 
   3.7570684843209567`*^9}, {3.7571450199929667`*^9, 
   3.7571450825415497`*^9}, {3.7571452411940126`*^9, 3.7571453135547934`*^9}, 
   3.7571454002980022`*^9, {3.7571455150850196`*^9, 3.7571455226808095`*^9}, {
   3.757145779588254*^9, 3.7571458238746543`*^9}, {3.7571460676173253`*^9, 
   3.757146119711866*^9}, {3.7571462909111814`*^9, 3.7571462926100593`*^9}, {
   3.7571465831309342`*^9, 3.757146658041704*^9}, {3.757146715765914*^9, 
   3.75714675933827*^9}, {3.757146963387889*^9, 3.757146975963447*^9}, {
   3.75714706795979*^9, 3.7571471004278946`*^9}, {3.7571474412036886`*^9, 
   3.7571474579744873`*^9}, {3.757148489381488*^9, 3.7571484913815937`*^9}, {
   3.7571509079752216`*^9, 3.7571509252417545`*^9}, {3.7571510544360423`*^9, 
   3.7571510548579392`*^9}, {3.757151126486673*^9, 3.757151131549439*^9}, {
   3.757151178860036*^9, 3.7571513673386893`*^9}, {3.757151561051981*^9, 
   3.757151561833256*^9}, {3.7571516713546643`*^9, 3.757151672557824*^9}, {
   3.7571520583437495`*^9, 3.7571521819127126`*^9}, {3.7571522384782133`*^9, 
   3.7571522568541512`*^9}, {3.7571523547030716`*^9, 
   3.7571524163156743`*^9}, {3.7571527778659306`*^9, 3.757152870855195*^9}, {
   3.7571540922787466`*^9, 3.7571540927943993`*^9}, {3.757154296695739*^9, 
   3.757154319118791*^9}, {3.757154391075697*^9, 3.757154458047967*^9}, {
   3.757154553302972*^9, 3.7571545578344593`*^9}, 3.7571545879922657`*^9, {
   3.757154623900431*^9, 3.7571546315570555`*^9}, 3.757155125551791*^9, 
   3.757155167975896*^9, {3.757155592466922*^9, 3.757155592982573*^9}, {
   3.7571556511575236`*^9, 3.757155675861928*^9}, {3.7571557906961155`*^9, 
   3.757155814713002*^9}, {3.7571558786850843`*^9, 3.7571559479387245`*^9}, 
   3.757156528109864*^9, {3.7571565727996826`*^9, 3.7571566088484716`*^9}, 
   3.7571567313861685`*^9, {3.7571567633565702`*^9, 3.757156780107478*^9}, {
   3.7571568108122187`*^9, 3.757156826891159*^9}, 3.757156865111947*^9, {
   3.7571570864517016`*^9, 3.7571571407826815`*^9}, {3.757157442642284*^9, 
   3.7571574456111984`*^9}, {3.757165597179059*^9, 3.757165619445826*^9}, {
   3.7571656798732805`*^9, 3.7571656808421125`*^9}, {3.7571657189212074`*^9, 
   3.757165750928825*^9}, 3.757166005389525*^9, {3.757166987171872*^9, 
   3.757167010204363*^9}, 3.7571675317942696`*^9, {3.757167576015341*^9, 
   3.757167607423244*^9}, {3.7571677501494646`*^9, 3.757167767916049*^9}, {
   3.7573073241885414`*^9, 3.757307340189382*^9}, {3.757307505604353*^9, 
   3.7573075183862734`*^9}, {3.757307664097056*^9, 3.757307700552097*^9}, {
   3.7573077828845186`*^9, 3.757307932220519*^9}, {3.7573116422327795`*^9, 
   3.7573116691068935`*^9}, 3.75731179087792*^9, 3.757311821521502*^9, {
   3.757311906431336*^9, 3.757311937168823*^9}, {3.7573119831657386`*^9, 
   3.7573120040874405`*^9}, 3.7573120654475613`*^9, {3.7573214126907654`*^9, 
   3.7573214281040583`*^9}, {3.757942769684799*^9, 3.757942799984666*^9}, 
   3.7579431471755323`*^9, {3.7579431932828317`*^9, 3.7579432009214587`*^9}, {
   3.757943330529606*^9, 3.7579433319380217`*^9}, {3.7579441983931475`*^9, 
   3.7579442028892765`*^9}, {3.757944405158984*^9, 3.757944412080834*^9}, {
   3.757945736497373*^9, 3.757945738015188*^9}, {3.757945810611866*^9, 
   3.757945840001964*^9}, {3.7579461897684336`*^9, 3.7579461911858754`*^9}, {
   3.7579462769960527`*^9, 3.7579462772929153`*^9}, {3.757947155468666*^9, 
   3.757947193217351*^9}, 3.7579473634398575`*^9, {3.7579477209718504`*^9, 
   3.7579477318257017`*^9}, {3.7588869120910945`*^9, 3.758886914970995*^9}, {
   3.7588870325332313`*^9, 3.7588870466399307`*^9}, {3.7588870839425135`*^9, 
   3.758887101314685*^9}, {3.7588871916120157`*^9, 3.7588871954554157`*^9}, {
   3.7588873163581*^9, 3.7588873191145735`*^9}, {3.7588873696652184`*^9, 
   3.7588873950888076`*^9}, {3.7588874345804996`*^9, 
   3.7588874496933193`*^9}, {3.7588875198622475`*^9, 
   3.7588875449833374`*^9}, {3.758887686363428*^9, 3.7588877072389727`*^9}, {
   3.7588877866002426`*^9, 3.7588877928821263`*^9}, {3.758887905938057*^9, 
   3.758887911423415*^9}, {3.758887972642374*^9, 3.758887981275861*^9}, 
   3.758888202168353*^9, {3.7588883236426244`*^9, 3.7588883291568594`*^9}, {
   3.758888520849062*^9, 3.7588885320324774`*^9}, {3.7588888522016087`*^9, 
   3.758888938095615*^9}, {3.758889017760379*^9, 3.7588890563938556`*^9}, {
   3.7628421681328583`*^9, 3.762842169086031*^9}, {3.762842560845733*^9, 
   3.762842616767011*^9}, 3.7628427085410647`*^9, {3.7628429117850504`*^9, 
   3.7628429931708794`*^9}, {3.763056160034953*^9, 3.763056161394861*^9}, {
   3.765172175049512*^9, 3.7651722177340035`*^9}, {3.7656066339570975`*^9, 
   3.7656066347227325`*^9}, {3.76560667147468*^9, 3.7656067527601666`*^9}, {
   3.765606797778139*^9, 3.765606820216777*^9}, {3.768107922277376*^9, 
   3.768107949116871*^9}, 3.768107998476385*^9, {3.76810827359819*^9, 
   3.768108283539669*^9}, {3.7681083627754545`*^9, 3.768108444675897*^9}, {
   3.7681085923936744`*^9, 3.768108598871847*^9}, {3.768108637085824*^9, 
   3.7681086409922433`*^9}, 3.7692602531442604`*^9, 3.769261917746413*^9, 
   3.769261971030442*^9, {3.7704405410080314`*^9, 3.7704405497428646`*^9}, 
   3.770440606167572*^9, {3.7706121456570835`*^9, 3.7706121480321956`*^9}},
 CellLabel->
  "In[223]:=",ExpressionUUID->"c7f3783a-9e0c-4439-8990-9608d932c3c7"]
}, Closed]],

Cell[CellGroupData[{

Cell["Marginal Likelihood", "Subsubsection",
 CellChangeTimes->{{3.7531678695984945`*^9, 3.753167887109066*^9}, {
  3.7564892276555877`*^9, 
  3.75648922992841*^9}},ExpressionUUID->"55c985fe-5ac8-4cb2-bf5e-\
d609d52c321a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"logMarginalLikelihood", "[", 
    RowBox[{"vecy1T_", ",", "X1T_", ",", "T_", ",", 
     RowBox[{"{", 
      RowBox[{"M1_", ",", 
       RowBox[{"{", 
        RowBox[{
        "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
         "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
       "tilL_", ",", 
       RowBox[{"{", 
        RowBox[{"tilQMat_", ",", "tilSigmaMat_"}], "}"}]}], "}"}]}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"vecx1TLik", "=", 
       RowBox[{"ArrayReshape", "[", 
        RowBox[{"X1T", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Times", "@@", 
            RowBox[{"Dimensions", "[", "X1T", "]"}]}], ",", "1"}], "}"}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "We", " ", "must", " ", "use", " ", "ArrayReshape", " ", "since", " ", 
        "X1T", " ", "is", " ", "has", " ", "in", " ", "each", " ", "ROW", " ",
         "an", " ", "observation"}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"ALik", ",", "CmatLik", ",", "CmatStarLik"}], "}"}], "=", 
       RowBox[{"rbcACmat", "[", 
        RowBox[{"reparametrizationFInv", "[", 
         RowBox[{"{", 
          RowBox[{
          "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
           "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], "]"}], 
        "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"QLik", ",", "SigmaLik"}], "}"}], "=", 
       RowBox[{"reparametrizationFQSInv", "[", 
        RowBox[{"{", 
         RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"T", "==", "1"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"KMLik", "=", 
          RowBox[{"{", 
           RowBox[{"{", "1", "}"}], "}"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"resLik", "=", 
          RowBox[{
           RowBox[{"logMultinormalDens", "[", 
            RowBox[{
             RowBox[{"X1T", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}], ",", 
             RowBox[{"IdentityMatrix", "[", "2", "]"}]}], "]"}], "+", 
           RowBox[{"logMultinormalDens", "[", 
            RowBox[{
             RowBox[{"Flatten", "[", "vecy1T", "]"}], ",", 
             RowBox[{"Flatten", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"KroneckerProduct", "[", 
                 RowBox[{
                  RowBox[{"IdentityMatrix", "[", "T", "]"}], ",", "CmatLik"}],
                  "]"}], ".", 
                RowBox[{"Flatten", "[", "vecx1TLik", "]"}]}], "+", 
               RowBox[{
                RowBox[{"KroneckerProduct", "[", 
                 RowBox[{
                  RowBox[{"ConstantArray", "[", 
                   RowBox[{"1", ",", "T"}], "]"}], ",", 
                  RowBox[{"IdentityMatrix", "[", "3", "]"}]}], "]"}], ".", 
                "CmatStarLik"}]}], "]"}], ",", 
             RowBox[{
              RowBox[{"KroneckerProduct", "[", 
               RowBox[{"KMLik", ",", "M1"}], "]"}], "+", 
              RowBox[{"KroneckerProduct", "[", 
               RowBox[{
                RowBox[{"IdentityMatrix", "[", "T", "]"}], ",", "SigmaLik"}], 
               "]"}]}]}], "]"}]}]}]}]}], "\[IndentingNewLine]", "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"T", "\[GreaterEqual]", "2"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"x2TLik", "=", 
          RowBox[{"Drop", "[", 
           RowBox[{"X1T", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"x1T1Lik", "=", 
          RowBox[{"Drop", "[", 
           RowBox[{"X1T", ",", 
            RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
          "We", " ", "must", " ", "use", " ", "ArrayReshape", " ", "since", 
           " ", "X1T", "  ", "has", " ", "in", " ", "each", " ", "ROW", " ", 
           "an", " ", "observation"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{"vecx2TLik", "=", 
          RowBox[{"ArrayReshape", "[", 
           RowBox[{"x2TLik", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Times", "@@", 
               RowBox[{"Dimensions", "[", "x2TLik", "]"}]}], ",", "1"}], 
             "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"vecx1T1Lik", "=", 
          RowBox[{"ArrayReshape", "[", 
           RowBox[{"x1T1Lik", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Times", "@@", 
               RowBox[{"Dimensions", "[", "x1T1Lik", "]"}]}], ",", "1"}], 
             "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"KMLik", "=", 
          RowBox[{"Kint", "[", 
           RowBox[{"X1T", ",", "X1T", ",", 
            RowBox[{"Exp", "[", "tilL", "]"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"resLik", "=", 
          RowBox[{
           RowBox[{"logMultinormalDens", "[", 
            RowBox[{
             RowBox[{"X1T", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}], ",", 
             RowBox[{"IdentityMatrix", "[", "2", "]"}]}], "]"}], "+", 
           RowBox[{"logMultinormalDens", "[", 
            RowBox[{
             RowBox[{"Flatten", "[", "vecx2TLik", "]"}], ",", 
             RowBox[{"Flatten", "[", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"KroneckerProduct", "[", 
                 RowBox[{
                  RowBox[{"IdentityMatrix", "[", 
                   RowBox[{"T", "-", "1"}], "]"}], ",", "ALik"}], "]"}], ".", 
                "vecx1T1Lik"}], ")"}], "]"}], ",", 
             RowBox[{"KroneckerProduct", "[", 
              RowBox[{
               RowBox[{"IdentityMatrix", "[", 
                RowBox[{"T", "-", "1"}], "]"}], ",", "QLik"}], "]"}]}], "]"}],
            "+", 
           RowBox[{"logMultinormalDens", "[", 
            RowBox[{
             RowBox[{"Flatten", "[", "vecy1T", "]"}], ",", 
             RowBox[{"Flatten", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"KroneckerProduct", "[", 
                 RowBox[{
                  RowBox[{"IdentityMatrix", "[", "T", "]"}], ",", "CmatLik"}],
                  "]"}], ".", "vecx1TLik"}], "+", 
               RowBox[{
                RowBox[{"KroneckerProduct", "[", 
                 RowBox[{
                  RowBox[{"ConstantArray", "[", 
                   RowBox[{"1", ",", "T"}], "]"}], ",", 
                  RowBox[{"IdentityMatrix", "[", "3", "]"}]}], "]"}], ".", 
                "CmatStarLik"}]}], "]"}], ",", 
             RowBox[{
              RowBox[{"KroneckerProduct", "[", 
               RowBox[{"KMLik", ",", "M1"}], "]"}], "+", 
              RowBox[{"KroneckerProduct", "[", 
               RowBox[{
                RowBox[{"IdentityMatrix", "[", "T", "]"}], ",", "SigmaLik"}], 
               "]"}]}]}], "]"}]}]}], ";"}]}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "resLik"}]}],
     "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7523453984445066`*^9, 3.7523454299929757`*^9}, {
   3.7523457686194487`*^9, 3.752345768963216*^9}, {3.752345982161481*^9, 
   3.752345992193237*^9}, {3.7523460279606466`*^9, 3.7523460298045125`*^9}, {
   3.752346092588931*^9, 3.7523460950265512`*^9}, {3.7523475837267246`*^9, 
   3.7523475977586823`*^9}, {3.752347741390935*^9, 3.7523477600168753`*^9}, 
   3.752347854756032*^9, {3.7523480188111944`*^9, 3.7523480765953493`*^9}, {
   3.7523481268635225`*^9, 3.75234822297775*^9}, {3.752348293356305*^9, 
   3.752348307685152*^9}, {3.7523487108930097`*^9, 3.752348736863073*^9}, {
   3.752348771489822*^9, 3.752348776224436*^9}, {3.7523493812862372`*^9, 
   3.752349415631722*^9}, {3.7523504663722763`*^9, 3.752350560267642*^9}, {
   3.7523505968632402`*^9, 3.7523506136922145`*^9}, {3.7523506656792145`*^9, 
   3.752350699649682*^9}, {3.7530136234343667`*^9, 3.7530136852645864`*^9}, {
   3.753031058115451*^9, 3.753031070619811*^9}, 3.7530313173742127`*^9, {
   3.7530313492257185`*^9, 3.7530313526921816`*^9}, {3.7530334605454884`*^9, 
   3.7530334651053305`*^9}, {3.7530335344134493`*^9, 
   3.7530335623975773`*^9}, {3.753034123577615*^9, 3.7530341790372124`*^9}, {
   3.753034302882497*^9, 3.7530343054991446`*^9}, 3.7530347826481185`*^9, {
   3.7530351833867483`*^9, 3.753035202770445*^9}, {3.753035232808394*^9, 
   3.7530352482182446`*^9}, {3.7530353752105427`*^9, 3.7530354082241*^9}, {
   3.7530370392805643`*^9, 3.7530370912376165`*^9}, {3.753077278279453*^9, 
   3.7530773045799875`*^9}, {3.7530773391820545`*^9, 3.753077398591663*^9}, {
   3.7530782082397428`*^9, 3.753078232892178*^9}, {3.7534288814185467`*^9, 
   3.753428984105077*^9}, {3.753429017424926*^9, 3.753429089531474*^9}, {
   3.7534291200804396`*^9, 3.753429120847026*^9}, {3.753429318082881*^9, 
   3.753429325764099*^9}, {3.755266464137457*^9, 3.7552664677938714`*^9}, 
   3.7554359285066967`*^9, {3.7554359611333537`*^9, 3.755435969243163*^9}, {
   3.7554378829520893`*^9, 3.755437895824692*^9}, {3.755437968901642*^9, 
   3.7554379922102947`*^9}, {3.755438044159296*^9, 3.7554380450510244`*^9}, {
   3.755438094822624*^9, 3.7554381582535086`*^9}, {3.7554382127368*^9, 
   3.7554382130805674`*^9}, {3.755438371273867*^9, 3.755438379485854*^9}, {
   3.755439343953133*^9, 3.7554393720308485`*^9}, {3.7554394668244123`*^9, 
   3.75543946760676*^9}, {3.7555242673569756`*^9, 3.755524279762256*^9}, {
   3.7555315724141755`*^9, 3.755531608283117*^9}, {3.75648944008261*^9, 
   3.756489493146965*^9}, {3.757308377322031*^9, 3.7573083926978407`*^9}, {
   3.7573086156314287`*^9, 3.75730864610178*^9}, {3.7573086901196895`*^9, 
   3.7573086907603774`*^9}, {3.7573088339397745`*^9, 3.757308836189895*^9}, {
   3.7573089647600183`*^9, 3.757308965088151*^9}, {3.758889267299371*^9, 
   3.7588892997853127`*^9}, {3.758959797446833*^9, 3.7589599130131826`*^9}, {
   3.7589601047427216`*^9, 3.7589602359204597`*^9}, {3.7589602826698017`*^9, 
   3.7589603269040365`*^9}, 3.769054851027437*^9, 3.769054885230419*^9, {
   3.7691663322957106`*^9, 3.769166369570532*^9}, {3.769166424078826*^9, 
   3.7691664258570085`*^9}, {3.769167769494664*^9, 3.7691677923769007`*^9}},
 CellLabel->
  "In[224]:=",ExpressionUUID->"17bf0f38-9076-437e-9d9e-5ca77b370a12"]
}, Closed]],

Cell[CellGroupData[{

Cell["Prior(Options for M1: Chang Eaves, Wishart, Inv-Wishart)", \
"Subsubsection",
 CellChangeTimes->{{3.75316784391166*^9, 3.7531678550122166`*^9}, {
   3.7568180533332863`*^9, 3.756818069568514*^9}, 3.7568351211757345`*^9, {
   3.7568952406035643`*^9, 3.7568952498370657`*^9}, {3.756896069186839*^9, 
   3.7568960785976443`*^9}, {3.7573152576664715`*^9, 3.757315267027993*^9}, {
   3.7591273284236193`*^9, 3.7591273538804*^9}, {3.7628739120897427`*^9, 
   3.7628739144492416`*^9}},ExpressionUUID->"7cb9c57e-3ec7-4cda-8739-\
ff7f1526d79c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Define", " ", "multivariate", " ", "gamma", " ", "for", " ", "the", " ", 
    "density", " ", "of", " ", "Inverse", " ", "Wishart"}], "*)"}], 
  RowBox[{
   RowBox[{"multi\[CapitalGamma]", "[", 
    RowBox[{"p_", ",", "a_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"\[Pi]", "^", 
     RowBox[{"(", 
      RowBox[{"p", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"p", "-", "1"}], ")"}], "/", "4"}]}], ")"}]}], " ", 
    RowBox[{"Product", "[", 
     RowBox[{
      RowBox[{"Gamma", "[", 
       RowBox[{"a", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "j"}], ")"}], "/", "2"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "p"}], "}"}]}], "]"}]}]}]}]], "Input",
 CellLabel->
  "In[225]:=",ExpressionUUID->"050c4bb6-c491-4970-85e7-27c9e2dfdbfd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Density", " ", "function", " ", "of", " ", "inverse", " ", "Wishart"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"logDensInvWish", "[", 
     RowBox[{"\[CapitalSigma]_", ",", "\[Nu]_", ",", "X2_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "len", ",", "eigen", ",", "lbnugget", ",", "cond", ",", 
        "logpropconst"}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "\[Nu]", " ", "must", " ", "be", " ", "greater", " ", "than", " ", 
        "number", " ", "of", " ", 
        RowBox[{"lines", "/", "columns"}], " ", "of", " ", 
        "\[CapitalSigma]"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"machine", "-", 
        RowBox[{"precision", " ", "considerations"}]}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"len", "=", 
        RowBox[{"Length", "[", "\[CapitalSigma]", "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"Xdens", "=", 
        RowBox[{"0.5", "*", 
         RowBox[{"(", 
          RowBox[{"X2", "+", 
           RowBox[{"Transpose", "[", "X2", "]"}]}], ")"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"cond", "=", 
        RowBox[{"0.5", "*", 
         RowBox[{"Tr", "[", 
          RowBox[{"\[CapitalSigma]", ".", 
           RowBox[{"Inverse", "[", "Xdens", "]"}]}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"logpropconst", "=", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{"Det", "[", "\[CapitalSigma]", "]"}], "]"}], "^", 
           RowBox[{"(", 
            RowBox[{"\[Nu]", "/", "2"}], ")"}]}], "]"}], "-", 
         RowBox[{"Log", "[", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "^", 
             RowBox[{"(", 
              RowBox[{"\[Nu]", "*", 
               RowBox[{"len", "/", "2"}]}], ")"}]}], "*", 
            RowBox[{"multi\[CapitalGamma]", "[", 
             RowBox[{"len", ",", 
              RowBox[{"\[Nu]", "/", "2"}]}], "]"}]}], ")"}], "]"}], "+", 
         RowBox[{"Log", "[", 
          RowBox[{
           RowBox[{"Norm", "[", 
            RowBox[{"Det", "[", "Xdens", "]"}], "]"}], "^", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{"\[Nu]", "+", "len", "+", "1"}], ")"}]}], "/", "2"}], 
            ")"}]}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", "cond"}], "+", 
            RowBox[{"Log", "[", "propconst", "]"}]}], "<", 
           RowBox[{"10.", " ", 
            RowBox[{"Log", "[", "$MinMachineNumber", "]"}]}]}], ",", 
          "\[IndentingNewLine]", "0", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"We", " ", "need", " ", "this"}], ",", " ", 
            RowBox[{"otherwise", " ", 
             RowBox[{"we", "'"}], "ll", " ", "have", " ", "underflow", " ", 
             "problems"}], ",", " ", 
            RowBox[{"coming", " ", "from", " ", 
             RowBox[{"Exp", "[", 
              RowBox[{"-", "cond"}], "]"}]}]}], "*)"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"propconst", "*", 
           RowBox[{"Exp", "[", 
            RowBox[{"-", "cond"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], 
        "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"-", "cond"}], "+", "logpropconst"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.764307557850929*^9, 3.764307560757869*^9}, {
   3.764308179007581*^9, 3.7643082259595637`*^9}, {3.7645955200846014`*^9, 
   3.764595533663434*^9}, {3.764649854379897*^9, 3.764649869514105*^9}, {
   3.7648737243223596`*^9, 3.7648737738588057`*^9}, {3.769173984022195*^9, 
   3.7691740160002155`*^9}, 3.769259369874689*^9, {3.7692597705981674`*^9, 
   3.769259799222274*^9}, {3.76925986246749*^9, 3.769259875871437*^9}, {
   3.769260722414495*^9, 3.7692607994008813`*^9}},
 CellLabel->
  "In[226]:=",ExpressionUUID->"abe94d8a-ad13-42ac-b85c-9ff096adbc49"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Kernel", " ", "density", " ", "for", " ", "Chang", " ", "and", " ", 
    RowBox[{"Eaves", " ", "'"}], "s", " ", "Objective", " ", "Prior"}], 
   "*)"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"logChangEaves", "[", "X_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"len", ",", "cond", ",", "eigen", ",", "lbnugget"}], "}"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"len", "=", 
         RowBox[{"Length", "[", "X", "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Xdens", "=", 
         RowBox[{"0.5", "*", 
          RowBox[{"(", 
           RowBox[{"X", "+", 
            RowBox[{"Transpose", "[", "X", "]"}]}], ")"}]}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{
           RowBox[{"Norm", "[", 
            RowBox[{"Det", "[", "Xdens", "]"}], "]"}], "^", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "0.5"}], "*", 
             RowBox[{"(", 
              RowBox[{"len", "+", "1"}], ")"}]}], ")"}]}], "]"}], "+", 
         RowBox[{"Log", "[", 
          RowBox[{
           RowBox[{"Norm", "[", 
            RowBox[{"Det", "[", 
             RowBox[{
              RowBox[{"IdentityMatrix", "[", "len", "]"}], "+", 
              RowBox[{"Xdens", "*", 
               RowBox[{"Inverse", "[", "Xdens", "]"}]}]}], "]"}], "]"}], "^", 
           RowBox[{"(", 
            RowBox[{"-", "0.5"}], ")"}]}], "]"}]}]}]}], "\[IndentingNewLine]",
       "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "The", " ", "density", " ", "is", " ", "PROPORTIONAL", " ", "to", " ", 
        "the", " ", "result"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"absDetJacob", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
         "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
       "tilL_", ",", 
       RowBox[{"{", 
        RowBox[{"tilQMat_", ",", "tilSigmaMat_"}], "}"}]}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Abs", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"E", "^", "til\[Beta]"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"E", "^", "til\[Beta]"}]}], ")"}], "^", "2"}]}], "*", 
         RowBox[{
          RowBox[{"E", "^", "til\[Delta]"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"E", "^", "til\[Delta]"}]}], ")"}], "^", "2"}]}], "*", 
         RowBox[{
          RowBox[{"E", "^", "til\[Theta]"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"E", "^", "til\[Theta]"}]}], ")"}], "^", "2"}]}], "*", 
         RowBox[{
          RowBox[{"E", "^", "til\[Rho]"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"E", "^", "til\[Rho]"}]}], ")"}], "^", "2"}]}], "*", 
         RowBox[{"Exp", "[", 
          RowBox[{"tilaPar", "+", "til\[Gamma]", "+", "tilL"}], "]"}], "*", 
         RowBox[{"Apply", "[", 
          RowBox[{"Times", ",", " ", 
           RowBox[{"E", "^", 
            RowBox[{"Diagonal", "[", "tilQMat", "]"}]}]}], "]"}], "*", 
         RowBox[{"Apply", "[", 
          RowBox[{"Times", ",", 
           RowBox[{"E", "^", 
            RowBox[{"Diagonal", "[", "tilSigmaMat", "]"}]}]}], "]"}]}], 
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
   RowBox[{"(*", 
    RowBox[{"Absolute", " ", "Value", " ", "of", " ", 
     RowBox[{"Jacobian", "'"}], "s", " ", "Determinant"}], "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"logPriorTheta", "[", 
      RowBox[{"{", 
       RowBox[{"M1_", ",", 
        RowBox[{"{", 
         RowBox[{
         "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
          "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
        "tilL_", ",", 
        RowBox[{"{", 
         RowBox[{"tilQMat_", ",", "tilSigmaMat_"}], "}"}]}], "}"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\[Beta]prior", ",", "\[Delta]prior", ",", "\[Theta]prior", ",", 
           "\[Rho]prior", ",", "aParprior", ",", "\[Gamma]prior"}], "}"}], 
         "=", 
         RowBox[{"reparametrizationFInv", "[", 
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], "]"}]}],
         ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Qprior", ",", "Sigmaprior"}], "}"}], "=", 
         RowBox[{"reparametrizationFQSInv", "[", 
          RowBox[{"{", 
           RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
          "If", " ", "a", " ", "rho", " ", "draw", " ", "is", " ", 
           "negative"}], ",", " ", 
          RowBox[{"then", " ", 
           RowBox[{"we", "'"}], "ll", " ", "get", " ", "a", " ", "zero", " ", 
           "from", " ", "the", " ", 
           RowBox[{"prior", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"PDF", "[", 
            RowBox[{
             RowBox[{"BetaDistribution", "[", 
              RowBox[{"9.9", ",", "1.7"}], "]"}], ",", "\[Beta]prior"}], 
            "]"}], "*", 
           RowBox[{"PDF", "[", 
            RowBox[{
             RowBox[{"BetaDistribution", "[", 
              RowBox[{"1", ",", "10"}], "]"}], ",", "\[Delta]prior"}], "]"}], 
           "*", 
           RowBox[{"PDF", "[", 
            RowBox[{
             RowBox[{"BetaDistribution", "[", 
              RowBox[{"5", ",", "10"}], "]"}], ",", "\[Theta]prior"}], "]"}], 
           "*", 
           RowBox[{"PDF", "[", 
            RowBox[{
             RowBox[{"BetaDistribution", "[", 
              RowBox[{"9.9", ",", "1.7"}], "]"}], ",", "\[Rho]prior"}], "]"}],
            "*", 
           RowBox[{"PDF", "[", 
            RowBox[{
             RowBox[{"GammaDistribution", "[", 
              RowBox[{"10", ",", "0.5"}], "]"}], ",", "aParprior"}], "]"}], 
           "*", 
           RowBox[{"PDF", "[", 
            RowBox[{
             RowBox[{"GammaDistribution", "[", 
              RowBox[{"0.25", ",", "0.1"}], "]"}], ",", "\[Gamma]prior"}], 
            "]"}], "*", 
           RowBox[{"PDF", "[", 
            RowBox[{
             RowBox[{"GammaDistribution", "[", 
              RowBox[{"2", ",", "2"}], "]"}], ",", 
             RowBox[{"Exp", "[", "tilL", "]"}]}], "]"}], "*", 
           RowBox[{"PDF", "[", 
            RowBox[{
             RowBox[{"InverseGammaDistribution", "[", 
              RowBox[{"2.5", ",", "0.5"}], "]"}], ",", 
             RowBox[{"Qprior", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "*", 
           RowBox[{"PDF", "[", 
            RowBox[{
             RowBox[{"InverseGammaDistribution", "[", 
              RowBox[{"2.5", ",", "0.5"}], "]"}], ",", 
             RowBox[{"Qprior", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "]"}], "*", 
           RowBox[{"PDF", "[", 
            RowBox[{
             RowBox[{"InverseGammaDistribution", "[", 
              RowBox[{"2.5", ",", "0.5"}], "]"}], ",", 
             RowBox[{"Sigmaprior", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "*", 
           RowBox[{"PDF", "[", 
            RowBox[{
             RowBox[{"InverseGammaDistribution", "[", 
              RowBox[{"2.5", ",", "0.5"}], "]"}], ",", 
             RowBox[{"Sigmaprior", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "]"}], "*", 
           RowBox[{"PDF", "[", 
            RowBox[{
             RowBox[{"InverseGammaDistribution", "[", 
              RowBox[{"2.5", ",", "0.5"}], "]"}], ",", 
             RowBox[{"Sigmaprior", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "*", 
           RowBox[{"absDetJacob", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
              "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
               "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
             "tilL", ",", 
             RowBox[{"{", 
              RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}]}], "]"}]}], 
          "\[IndentingNewLine]", "]"}], "+", 
         RowBox[{"logDensInvWish", "[", 
          RowBox[{
           RowBox[{"IdentityMatrix", "[", "3", "]"}], ",", "15", ",", "M1"}], 
          "]"}]}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], 
    ";"}], "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.7526738176094465`*^9, 3.7526738423741407`*^9}, {
   3.752762621130259*^9, 3.752762625788213*^9}, {3.7527644437004914`*^9, 
   3.7527644505577164`*^9}, {3.7527644921280313`*^9, 3.7527645388844185`*^9}, 
   3.7527645934100266`*^9, {3.7527646491860914`*^9, 3.7527646626837177`*^9}, 
   3.7527648024614472`*^9, {3.7527648382776117`*^9, 3.752764853971403*^9}, {
   3.7527650758910055`*^9, 3.752765091346429*^9}, {3.7527651358744726`*^9, 
   3.752765188379989*^9}, {3.752767830195572*^9, 3.75276785673211*^9}, 
   3.7527679098895607`*^9, {3.75276794071559*^9, 3.752768028251552*^9}, {
   3.752768061216699*^9, 3.7527680617479763`*^9}, {3.7527682564029284`*^9, 
   3.7527682601464744`*^9}, {3.752768475574975*^9, 3.752768534408969*^9}, {
   3.752776919608793*^9, 3.7527769274049826`*^9}, {3.752777348578514*^9, 
   3.7527773859914255`*^9}, {3.7527783362221613`*^9, 
   3.7527783442984724`*^9}, {3.752778386983982*^9, 3.7527783926537294`*^9}, {
   3.7528340873494673`*^9, 3.75283415855042*^9}, {3.7528342173031025`*^9, 
   3.7528343120927954`*^9}, {3.7528343493298297`*^9, 3.752834350638856*^9}, {
   3.7528345748268394`*^9, 3.752834593275306*^9}, {3.752842306720594*^9, 
   3.7528423232984753`*^9}, {3.7528424847316856`*^9, 
   3.7528424849711294`*^9}, {3.7528427560333652`*^9, 
   3.7528427643765783`*^9}, {3.7528454695754633`*^9, 
   3.7528454947784534`*^9}, {3.752845543106475*^9, 3.7528455784503455`*^9}, {
   3.7528457731236873`*^9, 3.7528457764096403`*^9}, {3.75284584513645*^9, 
   3.7528458497626567`*^9}, {3.752845885111824*^9, 3.7528459353088703`*^9}, {
   3.7528459884313354`*^9, 3.7528460233922553`*^9}, {3.7528460849032516`*^9, 
   3.75284612410701*^9}, {3.752847321268004*^9, 3.7528473363404465`*^9}, {
   3.752847482845423*^9, 3.752847625276989*^9}, 3.752848018467513*^9, 
   3.7528489470805454`*^9, {3.752849003763858*^9, 3.7528490159374514`*^9}, {
   3.7528491206422*^9, 3.7528492933763*^9}, {3.7528493370639744`*^9, 
   3.752849358950361*^9}, {3.7528494007770367`*^9, 3.752849441872691*^9}, {
   3.7528494771684675`*^9, 3.75284954637654*^9}, {3.7528496159086194`*^9, 
   3.75284963905891*^9}, 3.7528497159188623`*^9, {3.7528497915116134`*^9, 
   3.7528498720017214`*^9}, {3.7528501596107435`*^9, 
   3.7528501605427275`*^9}, {3.7528502009563227`*^9, 3.7528502066588573`*^9}, 
   3.7528503328454533`*^9, {3.7528503983775377`*^9, 3.7528505160747414`*^9}, {
   3.7528506931437054`*^9, 3.7528506962522526`*^9}, {3.752852351215247*^9, 
   3.752852413017973*^9}, {3.7528524716917086`*^9, 3.7528524833088655`*^9}, 
   3.7528526157939186`*^9, {3.7528526645958815`*^9, 3.7528527540752563`*^9}, {
   3.752852981825179*^9, 3.7528530420281725`*^9}, {3.7528532671421137`*^9, 
   3.7528532967161264`*^9}, {3.752853341558948*^9, 3.752853421950513*^9}, 
   3.7528534821110277`*^9, {3.7529327677998266`*^9, 3.7529328042611322`*^9}, {
   3.7529328492871494`*^9, 3.7529328519219065`*^9}, {3.752933406419572*^9, 
   3.7529334171177034`*^9}, {3.7529334834140053`*^9, 3.752933626889655*^9}, {
   3.752933698631483*^9, 3.752933721841957*^9}, {3.7529338166591682`*^9, 
   3.7529338219727106`*^9}, {3.7529340500847855`*^9, 
   3.7529340727198753`*^9}, {3.752934136649495*^9, 3.752934140140823*^9}, {
   3.752934280725545*^9, 3.752934306332616*^9}, 3.7529564441349115`*^9, {
   3.7529938892859974`*^9, 3.7529940054104133`*^9}, {3.7529954257714243`*^9, 
   3.752995443596306*^9}, 3.7529955609925704`*^9, 3.7529957069969077`*^9, {
   3.752995885013584*^9, 3.7529959204392014`*^9}, {3.7529959783778267`*^9, 
   3.7529960475269265`*^9}, {3.752996210541604*^9, 3.7529962140559464`*^9}, 
   3.753003127589785*^9, {3.753003173055097*^9, 3.753003175253561*^9}, {
   3.7530032467692385`*^9, 3.753003248063101*^9}, 3.7530033399043283`*^9, {
   3.753003422061103*^9, 3.75300343029659*^9}, {3.7530034706524963`*^9, 
   3.7530036126931887`*^9}, {3.7530036466338143`*^9, 3.753003646754897*^9}, {
   3.7530036910294113`*^9, 3.7530036929747114`*^9}, {3.753003880026411*^9, 
   3.7530039272598987`*^9}, {3.753003973156496*^9, 3.753004039822941*^9}, {
   3.75300413451807*^9, 3.753004140727212*^9}, {3.7530041816675053`*^9, 
   3.7530042767769113`*^9}, {3.753004322411335*^9, 3.753004335786251*^9}, {
   3.7530045184580307`*^9, 3.7530046046494913`*^9}, 3.753004650683182*^9, {
   3.75300879391558*^9, 3.753008822694766*^9}, 3.7530088713271894`*^9, {
   3.753008939783826*^9, 3.753008986083799*^9}, {3.753009016822291*^9, 
   3.7530091972395678`*^9}, {3.7530093218616486`*^9, 3.753009323986066*^9}, {
   3.7530093766481743`*^9, 3.753009421488067*^9}, {3.753009460811283*^9, 
   3.7530094642115498`*^9}, {3.753009632729895*^9, 3.753009634443039*^9}, {
   3.753009707815954*^9, 3.753009782488736*^9}, {3.7530098543846645`*^9, 
   3.7530100304880695`*^9}, {3.753010067447707*^9, 3.7530101055010757`*^9}, {
   3.753010208438703*^9, 3.753010335572457*^9}, {3.7530106564543786`*^9, 
   3.753010664474725*^9}, {3.7530107247348986`*^9, 3.753010778470723*^9}, {
   3.7530108088960075`*^9, 3.7530109717615833`*^9}, {3.7530110306718564`*^9, 
   3.753011111420689*^9}, {3.753011158233898*^9, 3.753011161542104*^9}, {
   3.7530112450998087`*^9, 3.753011247483399*^9}, {3.7530116950998106`*^9, 
   3.753011698964385*^9}, {3.753012061482065*^9, 3.7530120676331635`*^9}, {
   3.753012116889002*^9, 3.753012155391671*^9}, {3.7530123249867334`*^9, 
   3.7530123257312293`*^9}, {3.7530123595197544`*^9, 
   3.7530124115774612`*^9}, {3.753012471814618*^9, 3.753012487528094*^9}, {
   3.753012637064784*^9, 3.753012650072457*^9}, {3.7530126993453054`*^9, 
   3.753012742678194*^9}, {3.753012796451044*^9, 3.7530127972685866`*^9}, {
   3.753012895165854*^9, 3.7530129287872667`*^9}, {3.7530130909904027`*^9, 
   3.7530131923319635`*^9}, {3.753013346019422*^9, 3.7530133926555123`*^9}, {
   3.753013432668189*^9, 3.75301353786732*^9}, {3.753013829558781*^9, 
   3.7530138505217557`*^9}, {3.753013973234564*^9, 3.753014017062784*^9}, {
   3.7530140757959394`*^9, 3.753014123342637*^9}, {3.753014183260582*^9, 
   3.7530142068583164`*^9}, {3.753015513298273*^9, 3.753015514928362*^9}, {
   3.7530156005864663`*^9, 3.753015647510749*^9}, {3.7530156984657183`*^9, 
   3.753015790660287*^9}, {3.7530768599283504`*^9, 3.7530769520787835`*^9}, {
   3.7530782958081207`*^9, 3.7530783323494844`*^9}, {3.7530786640876417`*^9, 
   3.7530786803544855`*^9}, {3.7530787181476803`*^9, 3.75307873371706*^9}, {
   3.7530788165042524`*^9, 3.753078816959555*^9}, 3.7530788520209293`*^9, {
   3.7530790730012517`*^9, 3.7530790763464794`*^9}, {3.753081941509901*^9, 
   3.7530819551900225`*^9}, {3.7530821941275024`*^9, 
   3.7530822036279917`*^9}, {3.7530823115662203`*^9, 3.753082350271331*^9}, {
   3.753082543656227*^9, 3.753082573517161*^9}, {3.7530826079564285`*^9, 
   3.7530826379110904`*^9}, {3.753082784840504*^9, 3.7530827894657435`*^9}, {
   3.753164859030961*^9, 3.7531648814027243`*^9}, {3.7531649893795786`*^9, 
   3.753164993355621*^9}, {3.7531650618363667`*^9, 3.7531651232254457`*^9}, {
   3.753165363959486*^9, 3.7531653641782503`*^9}, {3.7531656816986322`*^9, 
   3.7531656987262487`*^9}, {3.7531657305195613`*^9, 
   3.7531657606905503`*^9}, {3.753165823303762*^9, 3.753165825856551*^9}, {
   3.7531659163027773`*^9, 3.7531659292495103`*^9}, {3.753166042890994*^9, 
   3.7531660440483594`*^9}, {3.753166134980248*^9, 3.753166171456955*^9}, {
   3.7531662423469877`*^9, 3.7531662510589557`*^9}, {3.7531663485342016`*^9, 
   3.753166350460204*^9}, {3.753166450134029*^9, 3.753166452237977*^9}, {
   3.753166513151165*^9, 3.753166522374915*^9}, {3.7531666129701033`*^9, 
   3.7531666217830563`*^9}, {3.7531670003959637`*^9, 3.753167029773165*^9}, 
   3.753167790981037*^9, {3.7554398975922747`*^9, 3.7554399169255867`*^9}, {
   3.7554399873786364`*^9, 3.7554401115909724`*^9}, {3.7554401567038937`*^9, 
   3.7554402093218656`*^9}, {3.7554404144356227`*^9, 3.755440532239342*^9}, {
   3.755440714754317*^9, 3.7554407381243863`*^9}, {3.7554407906975913`*^9, 
   3.755440825125579*^9}, {3.7554408756213174`*^9, 3.755440925426396*^9}, {
   3.7554416683833637`*^9, 3.755441741853264*^9}, {3.755441895583347*^9, 
   3.755441964223146*^9}, {3.7554421190961447`*^9, 3.7554421503498545`*^9}, {
   3.7554430277167835`*^9, 3.7554430452990065`*^9}, {3.755499952872223*^9, 
   3.7554999564919205`*^9}, {3.755499998491894*^9, 3.755500014116268*^9}, {
   3.755500044794201*^9, 3.755500054196625*^9}, {3.7563768752303996`*^9, 
   3.756376889021242*^9}, {3.756474875797467*^9, 3.756474895266471*^9}, {
   3.7565540483661966`*^9, 3.756554059952697*^9}, {3.7565549119284067`*^9, 
   3.7565549162721004`*^9}, 3.7565579969204865`*^9, 3.756564176886639*^9, {
   3.7565733285587435`*^9, 3.7565733317473583`*^9}, {3.756573796572909*^9, 
   3.7565738031380506`*^9}, 3.756576109628251*^9, 3.7566320966031013`*^9, 
   3.7566481901094313`*^9, {3.756648228843302*^9, 3.756648334312744*^9}, 
   3.7566483708131227`*^9, {3.756648430781283*^9, 3.756648625970647*^9}, {
   3.756648709623518*^9, 3.756648712985764*^9}, {3.7566487559914875`*^9, 
   3.756648763279357*^9}, {3.7566489191384544`*^9, 3.7566489917809706`*^9}, {
   3.7566490234110966`*^9, 3.756649025895755*^9}, 3.756741486358604*^9, {
   3.756744614510955*^9, 3.7567446378387747`*^9}, {3.7568179218888607`*^9, 
   3.756817923717102*^9}, {3.7568179554531126`*^9, 3.7568180372386894`*^9}, {
   3.7568271368751965`*^9, 3.756827151485031*^9}, {3.7568351580472307`*^9, 
   3.756835181223172*^9}, 3.756835782810508*^9, {3.756876092629552*^9, 
   3.756876157963082*^9}, {3.7568762491465836`*^9, 3.7568762871019325`*^9}, {
   3.756876351637621*^9, 3.7568763550368943`*^9}, {3.7568764018521595`*^9, 
   3.756876536081279*^9}, {3.7568766073936796`*^9, 3.756876607867486*^9}, {
   3.7568947139776917`*^9, 3.756894718215139*^9}, {3.7573150757558265`*^9, 
   3.7573150785131135`*^9}, {3.7573151154808784`*^9, 
   3.7573151475890217`*^9}, {3.757315211933031*^9, 3.757315213153965*^9}, 
   3.760024762211735*^9, {3.764269393051431*^9, 3.76426944939474*^9}, {
   3.7642696150019503`*^9, 3.7642696171841*^9}, {3.7643044210276036`*^9, 
   3.764304451122925*^9}, {3.764304483968358*^9, 3.7643045215797205`*^9}, {
   3.7643047338303413`*^9, 3.764304783661042*^9}, 3.764305031224229*^9, {
   3.764305069597843*^9, 3.764305083210929*^9}, {3.7643051308887568`*^9, 
   3.7643051555191956`*^9}, {3.7643075137484922`*^9, 3.764307531736497*^9}, {
   3.764595561743023*^9, 3.764595586556805*^9}, {3.764595749107581*^9, 
   3.764595756232952*^9}, {3.7646030068798194`*^9, 3.764603111073374*^9}, 
   3.7646040461023183`*^9, {3.764664893610671*^9, 3.764664910314636*^9}, 
   3.7648736993657084`*^9, {3.764873799579467*^9, 3.764873824139979*^9}, {
   3.764909959760525*^9, 3.7649099641982384`*^9}, {3.7682861809372754`*^9, 
   3.7682861921409883`*^9}, {3.7682862661604767`*^9, 3.768286267176154*^9}, {
   3.769167839834979*^9, 3.769167880954358*^9}, {3.7691679487835217`*^9, 
   3.7691679647971845`*^9}, {3.769168316441037*^9, 3.769168316795272*^9}, {
   3.76916843524401*^9, 3.7691684390005107`*^9}, {3.7692606865615616`*^9, 
   3.7692606913017263`*^9}, {3.771241072733282*^9, 3.771241103910762*^9}},
 CellLabel->
  "In[227]:=",ExpressionUUID->"3a6fe064-0bc6-4576-a0b9-a18950fe391f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Draws for Proposals and Pdfs", "Subsubsection",
 CellChangeTimes->{{3.7531679205933485`*^9, 3.75316794807627*^9}, {
  3.756826502484705*^9, 3.756826526672309*^9}, {3.759125984517962*^9, 
  3.759125986221176*^9}, {3.7628748817255116`*^9, 
  3.762874898898289*^9}},ExpressionUUID->"c75353cc-a14a-40bf-9a88-\
e9dbf885f73b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"drawPropEcon", "[", 
     RowBox[{"mean_", ",", "s2_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "draw", "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"scaleMatrixEcon", "=", 
        RowBox[{"IdentityMatrix", "[", "6", "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Select", "[", 
             RowBox[{"mean", ",", 
              RowBox[{
               RowBox[{"Element", "[", 
                RowBox[{"#", ",", "Reals"}], "]"}], "&"}]}], "]"}], 
            "\[NotEqual]", "mean"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"mean2", "=", 
             RowBox[{"{", 
              RowBox[{
              "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
               "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}]}], 
            ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"mean2", "=", "mean"}], ";"}]}], "\[IndentingNewLine]", 
          "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
          RowBox[{"scaleMatrixEcon", "[", 
           RowBox[{"[", 
            RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", "5"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"draw", "=", 
        RowBox[{"RandomVariate", "[", 
         RowBox[{"MultivariateTDistribution", "[", 
          RowBox[{"mean", ",", 
           RowBox[{"s2", "*", "scaleMatrixEcon"}], ",", "3"}], "]"}], "]"}]}],
        ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "draw"}]}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pdfPropEcon", "[", 
    RowBox[{"x_", ",", "mean_", ",", "s2_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "pdf", "}"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"pdf", "=", 
       RowBox[{"PDF", "[", 
        RowBox[{
         RowBox[{"MultivariateTDistribution", "[", 
          RowBox[{"mean", ",", 
           RowBox[{"s2", "*", "scaleMatrixEcon"}], ",", "3"}], "]"}], ",", 
         "x"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Check", "[", 
         RowBox[{
          RowBox[{"pdf", "=", 
           RowBox[{"PDF", "[", 
            RowBox[{
             RowBox[{"MultivariateTDistribution", "[", 
              RowBox[{"mean", ",", 
               RowBox[{"s2", "*", "scaleMatrixEcon"}], ",", "3"}], "]"}], ",",
              "x"}], "]"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Print", "[", 
            RowBox[{"\"\<x = \>\"", ",", " ", 
             RowBox[{"InputForm", "[", "x", "]"}]}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<mean = \>\"", ",", " ", 
             RowBox[{"InputForm", "[", "mean", "]"}]}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"pdf", "=", 
            RowBox[{"PDF", "[", 
             RowBox[{
              RowBox[{"MultivariateTDistribution", "[", 
               RowBox[{"mean", ",", 
                RowBox[{"s2", "*", "scaleMatrixEcon"}], ",", "3"}], "]"}], 
              ",", "x"}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}], ";"}], 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "pdf"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.755243936002967*^9, 3.7552439661295013`*^9}, {
   3.7552654942126827`*^9, 3.7552655061820574`*^9}, {3.755265654642791*^9, 
   3.755265686441306*^9}, {3.755265978612521*^9, 3.7552660527882214`*^9}, {
   3.755266091305833*^9, 3.755266114650764*^9}, {3.75526618790454*^9, 
   3.755266226937793*^9}, {3.755266260736401*^9, 3.7552662615958223`*^9}, {
   3.755266310317072*^9, 3.7552663477252235`*^9}, {3.7552665335472765`*^9, 
   3.755266593190931*^9}, {3.755266649443841*^9, 3.755266662616401*^9}, {
   3.7552666971962967`*^9, 3.755266721635041*^9}, {3.7552669576159124`*^9, 
   3.7552670131031337`*^9}, {3.755267123593178*^9, 3.7552671386095743`*^9}, {
   3.755267251662238*^9, 3.755267262147156*^9}, {3.755437237495739*^9, 
   3.7554375188070498`*^9}, {3.7555057313710732`*^9, 
   3.7555057368748727`*^9}, {3.7555058925294237`*^9, 3.755505896496546*^9}, {
   3.7555254692201195`*^9, 3.7555254745997133`*^9}, {3.7555256493336134`*^9, 
   3.7555256505994596`*^9}, {3.7565741351859355`*^9, 3.756574137980626*^9}, {
   3.7568260970317636`*^9, 3.7568261063599634`*^9}, 3.7568262294211683`*^9, {
   3.756826351579318*^9, 3.75682636857841*^9}, {3.756826652779454*^9, 
   3.7568266631868973`*^9}, {3.756827300859104*^9, 3.756827304312977*^9}, {
   3.756829266594247*^9, 3.756829312623912*^9}, {3.756829343203432*^9, 
   3.7568293721234045`*^9}, {3.7568304502830677`*^9, 
   3.7568304692176704`*^9}, {3.756830602373698*^9, 3.7568307103754125`*^9}, {
   3.756830800000521*^9, 3.756830815233876*^9}, {3.757308136981279*^9, 
   3.7573082051723614`*^9}, {3.762849434108203*^9, 3.762849498482236*^9}, {
   3.76284960955476*^9, 3.7628496555138564`*^9}, 3.7628497395336742`*^9, 
   3.7628507477168236`*^9, 3.762874908680053*^9, {3.7628749425412073`*^9, 
   3.762875020466049*^9}, 3.7630983428575945`*^9, {3.7648741944677076`*^9, 
   3.7648742429834995`*^9}, {3.764874285467368*^9, 3.7648743371233835`*^9}, {
   3.7648744232007465`*^9, 3.7648744352635417`*^9}, {3.7648753784212985`*^9, 
   3.7648753854050164`*^9}, {3.764918000075096*^9, 3.764918023867978*^9}, 
   3.7649183022069783`*^9, {3.764928368511441*^9, 3.7649283808558044`*^9}, {
   3.7649284153833127`*^9, 3.764928416508373*^9}, {3.76492845225004*^9, 
   3.764928452718815*^9}, {3.76494113087385*^9, 3.764941205649708*^9}, {
   3.7649415748991795`*^9, 3.7649416156708956`*^9}, {3.7649419404423075`*^9, 
   3.764941945915522*^9}, {3.7649421075998316`*^9, 3.764942120951669*^9}, {
   3.764946754420685*^9, 3.764946765135785*^9}, 3.764947328532601*^9, {
   3.7649965549212956`*^9, 3.7649966490199547`*^9}, {3.7649969679610896`*^9, 
   3.764997009403895*^9}, {3.768106229961201*^9, 3.7681062852609406`*^9}, {
   3.768106387547452*^9, 3.7681064027826424`*^9}, {3.768106490115285*^9, 
   3.7681065045222797`*^9}, {3.7682258412101383`*^9, 3.76822586258708*^9}, {
   3.768226316055747*^9, 3.7682263166825657`*^9}, 3.7682865383466516`*^9},
 CellLabel->
  "In[230]:=",ExpressionUUID->"89276290-6ccd-4b9b-8b03-c02bef00e0ae"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"drawPropVars", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"meanQ_", ",", "meanSigma_"}], "}"}], ",", "s2_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"scaleMatrixVars", "=", 
        RowBox[{"IdentityMatrix", "[", "5", "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"mean", "=", 
        RowBox[{"Flatten", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Diagonal", "[", "meanQ", "]"}], ",", 
           RowBox[{"Diagonal", "[", "meanSigma", "]"}]}], "}"}], "]"}]}], ";",
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"tSampleDP", "=", 
        RowBox[{"RandomVariate", "[", 
         RowBox[{"MultivariateTDistribution", "[", 
          RowBox[{"mean", ",", 
           RowBox[{"s2", "*", "scaleMatrixVars"}], ",", "3"}], "]"}], "]"}]}],
        ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"newtilQDP", "=", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"tSampleDP", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "2"}], "]"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"newtilSigmaDP", "=", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"tSampleDP", "[", 
          RowBox[{"[", 
           RowBox[{"3", ";;", "5"}], "]"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"newtilQDP", ",", "newtilSigmaDP"}], "}"}]}]}], 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
       "drawProp", " ", "outputs", " ", "the", " ", "tilde", " ", 
        "parameters", " ", "for", " ", "the", " ", "economic", " ", 
        "structural", " ", "parameters"}], ",", " ", 
       RowBox[{
       "and", " ", "also", " ", "tilde", " ", "Q", " ", "and", " ", "tilde", 
        " ", 
        RowBox[{"Sigma", ".", "\[IndentingNewLine]", "Everything"}], " ", 
        "as", " ", "matrices"}], ",", " ", 
       RowBox[{
       "except", " ", "resnewstruc", " ", "which", " ", "goes", " ", "out", 
        " ", "as", " ", "a", " ", "vector"}], ",", " ", 
       RowBox[{
       "and", " ", "resnewLgp", " ", "as", " ", "a", " ", "number"}]}], 
      "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pdfPropVars", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"xQ_", ",", "xSigma_"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"meanQ_", ",", "meanSigma_"}], "}"}], ",", "s2_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "pdf", "}"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"pdf", "=", 
       RowBox[{"PDF", "[", 
        RowBox[{
         RowBox[{"MultivariateTDistribution", "[", 
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Diagonal", "[", "meanQ", "]"}], ",", 
              RowBox[{"Diagonal", "[", "meanSigma", "]"}]}], "}"}], "]"}], 
           ",", 
           RowBox[{"s2", "*", "scaleMatrixVars"}], ",", "3"}], "]"}], ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Diagonal", "[", "xQ", "]"}], ",", 
            RowBox[{"Diagonal", "[", "xSigma", "]"}]}], "}"}], "]"}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "pdf"}]}],
     "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.755243936002967*^9, 3.7552439661295013`*^9}, {
   3.7552654942126827`*^9, 3.7552655061820574`*^9}, {3.755265654642791*^9, 
   3.755265686441306*^9}, {3.755265978612521*^9, 3.7552660527882214`*^9}, {
   3.755266091305833*^9, 3.755266114650764*^9}, {3.75526618790454*^9, 
   3.755266226937793*^9}, {3.755266260736401*^9, 3.7552662615958223`*^9}, {
   3.755266310317072*^9, 3.7552663477252235`*^9}, {3.7552665335472765`*^9, 
   3.755266593190931*^9}, {3.755266649443841*^9, 3.755266662616401*^9}, {
   3.7552666971962967`*^9, 3.755266721635041*^9}, {3.7552669576159124`*^9, 
   3.7552670131031337`*^9}, {3.755267123593178*^9, 3.7552671386095743`*^9}, {
   3.755267251662238*^9, 3.755267262147156*^9}, {3.755437237495739*^9, 
   3.7554375188070498`*^9}, {3.7555057313710732`*^9, 
   3.7555057368748727`*^9}, {3.7555058925294237`*^9, 3.755505896496546*^9}, {
   3.7555254692201195`*^9, 3.7555254745997133`*^9}, {3.7555256493336134`*^9, 
   3.7555256505994596`*^9}, {3.7565741351859355`*^9, 3.756574137980626*^9}, {
   3.7568260970317636`*^9, 3.7568261063599634`*^9}, 3.7568262294211683`*^9, {
   3.756826351579318*^9, 3.75682636857841*^9}, {3.756826652779454*^9, 
   3.7568266631868973`*^9}, {3.756827300859104*^9, 3.756827304312977*^9}, {
   3.756829266594247*^9, 3.756829312623912*^9}, {3.756829343203432*^9, 
   3.7568293721234045`*^9}, {3.7568304502830677`*^9, 
   3.7568304692176704`*^9}, {3.756830602373698*^9, 3.7568307103754125`*^9}, {
   3.756830800000521*^9, 3.756830815233876*^9}, {3.757308136981279*^9, 
   3.7573082051723614`*^9}, {3.762849664216047*^9, 3.7628496652700596`*^9}, {
   3.762849779123449*^9, 3.762849870271798*^9}, {3.7628752488171444`*^9, 
   3.7628752855221987`*^9}, {3.762875496017637*^9, 3.7628755668182306`*^9}, {
   3.7628755976167235`*^9, 3.76287559886679*^9}, {3.7628758554784813`*^9, 
   3.7628759161371164`*^9}, {3.7628759584725285`*^9, 
   3.7628759633790364`*^9}, {3.762885404476029*^9, 3.762885444829458*^9}, {
   3.7628854957480087`*^9, 3.76288549839529*^9}, {3.7648744953743086`*^9, 
   3.764874607671357*^9}, {3.7648746474656096`*^9, 3.7648746562640777`*^9}, {
   3.7648747256855197`*^9, 3.764874740936489*^9}, {3.7648749630917296`*^9, 
   3.7648749805227594`*^9}, {3.764875075404533*^9, 3.764875089686733*^9}, {
   3.7648754025940013`*^9, 3.764875404232195*^9}, {3.764910090751726*^9, 
   3.764910099174045*^9}, {3.76491018373112*^9, 3.764910214743621*^9}, {
   3.7649103284787483`*^9, 3.764910334135263*^9}, {3.764910375778088*^9, 
   3.7649104288277287`*^9}, {3.764928508328885*^9, 3.7649285244078517`*^9}, {
   3.7649285594565525`*^9, 3.764928569753964*^9}, {3.764941683161691*^9, 
   3.764941733445732*^9}, {3.764941806029324*^9, 3.7649418994648542`*^9}, {
   3.7649419314355707`*^9, 3.7649419610079536`*^9}, {3.76494209870049*^9, 
   3.764942100045374*^9}, 3.7649421641798105`*^9, {3.764947355394635*^9, 
   3.764947364449105*^9}, {3.764997026623543*^9, 3.76499720699232*^9}, {
   3.7679352069942484`*^9, 3.767935222151318*^9}, {3.7681057938136454`*^9, 
   3.768105796876305*^9}, 3.768105853691713*^9, 3.768105909382124*^9, {
   3.768106471270561*^9, 3.7681064762083154`*^9}, {3.768106535492605*^9, 
   3.7681065998240843`*^9}, {3.7692552088357463`*^9, 3.769255221677312*^9}, {
   3.7692552615919533`*^9, 3.769255262775742*^9}, {3.769255297994253*^9, 
   3.7692553134735823`*^9}, {3.769255752335144*^9, 3.7692557541333447`*^9}, {
   3.769256888980609*^9, 3.76925689053965*^9}, {3.769256987158142*^9, 
   3.7692569896978354`*^9}, {3.7692570490274367`*^9, 3.769257122000148*^9}, {
   3.7692571792063313`*^9, 3.7692571853764505`*^9}, {3.769257291640378*^9, 
   3.7692573371777735`*^9}, {3.769257550533189*^9, 3.7692575520732136`*^9}, {
   3.7692582553857846`*^9, 3.7692582856109576`*^9}},
 CellLabel->
  "In[232]:=",ExpressionUUID->"541a3b29-eeeb-4b43-8baf-f5247e5717de"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"drawPropL", "[", 
     RowBox[{"mean_", ",", "s2_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"RandomVariate", "[", 
       RowBox[{"StudentTDistribution", "[", 
        RowBox[{"mean", ",", "s2", ",", "3"}], "]"}], "]"}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pdfPropL", "[", 
    RowBox[{"x_", ",", "mean_", ",", "s2_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"StudentTDistribution", "[", 
        RowBox[{"mean", ",", "s2", ",", "3"}], "]"}], ",", "x"}], "]"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.755243936002967*^9, 3.7552439661295013`*^9}, {
   3.7552654942126827`*^9, 3.7552655061820574`*^9}, {3.755265654642791*^9, 
   3.755265686441306*^9}, {3.755265978612521*^9, 3.7552660527882214`*^9}, {
   3.755266091305833*^9, 3.755266114650764*^9}, {3.75526618790454*^9, 
   3.755266226937793*^9}, {3.755266260736401*^9, 3.7552662615958223`*^9}, {
   3.755266310317072*^9, 3.7552663477252235`*^9}, {3.7552665335472765`*^9, 
   3.755266593190931*^9}, {3.755266649443841*^9, 3.755266662616401*^9}, {
   3.7552666971962967`*^9, 3.755266721635041*^9}, {3.7552669576159124`*^9, 
   3.7552670131031337`*^9}, {3.755267123593178*^9, 3.7552671386095743`*^9}, {
   3.755267251662238*^9, 3.755267262147156*^9}, {3.755437237495739*^9, 
   3.7554375188070498`*^9}, {3.7555057313710732`*^9, 
   3.7555057368748727`*^9}, {3.7555058925294237`*^9, 3.755505896496546*^9}, {
   3.7555254692201195`*^9, 3.7555254745997133`*^9}, {3.7555256493336134`*^9, 
   3.7555256505994596`*^9}, {3.7565741351859355`*^9, 3.756574137980626*^9}, {
   3.7568260970317636`*^9, 3.7568261063599634`*^9}, 3.7568262294211683`*^9, {
   3.756826351579318*^9, 3.75682636857841*^9}, {3.756826652779454*^9, 
   3.7568266631868973`*^9}, {3.756827300859104*^9, 3.756827304312977*^9}, {
   3.756829266594247*^9, 3.756829312623912*^9}, {3.756829343203432*^9, 
   3.7568293721234045`*^9}, {3.7568304502830677`*^9, 
   3.7568304692176704`*^9}, {3.756830602373698*^9, 3.7568307103754125`*^9}, {
   3.756830800000521*^9, 3.756830815233876*^9}, {3.757308136981279*^9, 
   3.7573082051723614`*^9}, {3.7628499319764023`*^9, 3.7628499563578587`*^9}, 
   3.762850030304264*^9, {3.762850088338025*^9, 3.7628501480607176`*^9}, 
   3.7628507356068134`*^9, {3.7628760658531694`*^9, 3.762876117746522*^9}, {
   3.762876160623744*^9, 3.7628761885002394`*^9}},
 CellLabel->
  "In[234]:=",ExpressionUUID->"bbfda3c8-f0fe-41d0-b6fc-1d35d893b57f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"drawPropM1", "[", 
     RowBox[{"mean_", ",", "s2_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"nu", "=", "5"}], ";"}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"matrixM1Prop", "=", 
        RowBox[{"(*", 
         RowBox[{"mean", ";"}], "*)"}], 
        RowBox[{"positivizeMatrix", "[", 
         RowBox[{"mean", "*", 
          RowBox[{"(", 
           RowBox[{"nuM1", "+", 
            RowBox[{"Length", "[", "mean", "]"}], "+", "1"}], ")"}]}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"We", " ", "need", " ", "this"}], ",", " ", 
         RowBox[{
          RowBox[{
           RowBox[{
           "since", " ", "sometimes", " ", "multiplying", " ", "by", " ", 
            "nu"}], "+", 
           RowBox[{"Length", "[", "mean", "]"}], "+", 
           RowBox[{"1", " ", "will", " ", "return", " ", "a", " ", "non"}], 
           "-", 
           RowBox[{
           "SPD", " ", "matrix", " ", "due", " ", "to", " ", "machine", " ", 
            "precision", " ", "considerations"}]}], "..."}]}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"RandomVariate", "[", 
        RowBox[{"InverseWishartMatrixDistribution", "[", 
         RowBox[{"nuM1", ",", "matrixM1Prop"}], "]"}], "]"}]}]}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"logPdfPropM1", "[", 
   RowBox[{"x_", ",", "mean_", ",", "s2_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"nu", "=", "5"}], ";"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"logDensInvWish", "[", 
     RowBox[{
      RowBox[{"mean", "*", 
       RowBox[{"(", 
        RowBox[{"nuM1", "+", 
         RowBox[{"Length", "[", "mean", "]"}], "+", "1"}], ")"}]}], ",", 
      "nuM1", ",", "x"}], "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.755243936002967*^9, 3.7552439661295013`*^9}, {
   3.7552654942126827`*^9, 3.7552655061820574`*^9}, {3.755265654642791*^9, 
   3.755265686441306*^9}, {3.755265978612521*^9, 3.7552660527882214`*^9}, {
   3.755266091305833*^9, 3.755266114650764*^9}, {3.75526618790454*^9, 
   3.755266226937793*^9}, {3.755266260736401*^9, 3.7552662615958223`*^9}, {
   3.755266310317072*^9, 3.7552663477252235`*^9}, {3.7552665335472765`*^9, 
   3.755266593190931*^9}, {3.755266649443841*^9, 3.755266662616401*^9}, {
   3.7552666971962967`*^9, 3.755266721635041*^9}, {3.7552669576159124`*^9, 
   3.7552670131031337`*^9}, {3.755267123593178*^9, 3.7552671386095743`*^9}, {
   3.755267251662238*^9, 3.755267262147156*^9}, {3.755437237495739*^9, 
   3.7554375188070498`*^9}, {3.7555057313710732`*^9, 
   3.7555057368748727`*^9}, {3.7555058925294237`*^9, 3.755505896496546*^9}, {
   3.7555254692201195`*^9, 3.7555254745997133`*^9}, {3.7555256493336134`*^9, 
   3.7555256505994596`*^9}, {3.7565741351859355`*^9, 3.756574137980626*^9}, {
   3.7568260970317636`*^9, 3.7568261063599634`*^9}, 3.7568262294211683`*^9, {
   3.756826351579318*^9, 3.75682636857841*^9}, {3.756826652779454*^9, 
   3.7568266631868973`*^9}, {3.756827300859104*^9, 3.756827304312977*^9}, {
   3.756829266594247*^9, 3.756829312623912*^9}, {3.756829343203432*^9, 
   3.7568293721234045`*^9}, {3.7568304502830677`*^9, 
   3.7568304692176704`*^9}, {3.756830602373698*^9, 3.7568307103754125`*^9}, {
   3.756830800000521*^9, 3.756830815233876*^9}, {3.757308136981279*^9, 
   3.7573082051723614`*^9}, {3.7628502423156695`*^9, 
   3.7628502571133223`*^9}, {3.7628502875055447`*^9, 3.7628502936152115`*^9}, 
   3.7628505756326504`*^9, {3.762850630437172*^9, 3.762850730262783*^9}, {
   3.7628762577381396`*^9, 3.762876301053977*^9}, {3.7628764744121256`*^9, 
   3.7628765108827925`*^9}, {3.762876581073981*^9, 3.7628766280451984`*^9}, {
   3.762876772319464*^9, 3.7628767750227027`*^9}, {3.7628770461334224`*^9, 
   3.762877055040141*^9}, {3.7628777673380036`*^9, 3.762877785073311*^9}, {
   3.762877847873485*^9, 3.762877851608057*^9}, {3.7628778868286552`*^9, 
   3.762877890078829*^9}, {3.762877929409022*^9, 3.7628779318778996`*^9}, {
   3.762877994811105*^9, 3.76287803595387*^9}, {3.762878086753435*^9, 
   3.7628781042856073`*^9}, {3.7629591930799437`*^9, 3.762959200267831*^9}, {
   3.762959244260006*^9, 3.7629592875446205`*^9}, {3.7629595551361732`*^9, 
   3.7629595637001925`*^9}, {3.763097630246587*^9, 3.7630976304809732`*^9}, {
   3.7630983521549883`*^9, 3.7630983547176213`*^9}, {3.7631005098979816`*^9, 
   3.763100519382855*^9}, {3.763100567337408*^9, 3.763100590682387*^9}, {
   3.763105896774617*^9, 3.763105940792554*^9}, {3.7631059792789516`*^9, 
   3.7631060376726446`*^9}, {3.769170004378335*^9, 3.7691700177272234`*^9}, {
   3.7692592898722944`*^9, 3.769259311536749*^9}, 3.7692617253770065`*^9, 
   3.769263173314333*^9, {3.769263227067135*^9, 3.769263229926659*^9}, {
   3.7692634672508297`*^9, 3.769263470212422*^9}, {3.769263511396407*^9, 
   3.7692635156057663`*^9}, {3.7692635601150694`*^9, 
   3.7692635744125357`*^9}, {3.769263608991522*^9, 3.769263613137225*^9}, {
   3.769263667684046*^9, 3.769263682792238*^9}, 3.7692638540683107`*^9, {
   3.770386676476684*^9, 3.77038668728976*^9}, {3.7703867190570545`*^9, 
   3.7703867218696833`*^9}, {3.7705272410862923`*^9, 3.770527253399397*^9}, {
   3.7706122126604443`*^9, 3.7706122302082253`*^9}, {3.77061229343017*^9, 
   3.7706123029306393`*^9}},
 CellLabel->
  "In[236]:=",ExpressionUUID->"22b248e2-dd89-407c-8e64-913cf16a3e36"]
}, Closed]],

Cell[CellGroupData[{

Cell["Auxiliary Functions 4 (Acceptance Step for MH Steps) ", "Subsubsection",
 CellChangeTimes->{{3.753167802475073*^9, 3.7531678196870766`*^9}, {
   3.753261711386198*^9, 3.7532617675796614`*^9}, {3.75560969643717*^9, 
   3.755609777263081*^9}, {3.7558488884684715`*^9, 3.7558488947986946`*^9}, 
   3.756361731704565*^9, {3.756659269476293*^9, 3.7566592746367435`*^9}, {
   3.7575186697357063`*^9, 3.7575186706963167`*^9}, 3.757600531020064*^9, 
   3.7587015919453073`*^9, {3.75870180049432*^9, 3.7587018086425567`*^9}, {
   3.7650149326227303`*^9, 3.765014945129737*^9}, {3.7677852004570293`*^9, 
   3.76778520418752*^9}, {3.7677876812082057`*^9, 3.767787742296137*^9}, {
   3.7677912002954655`*^9, 3.767791201893386*^9}, {3.767932608980437*^9, 
   3.7679326095116887`*^9}},ExpressionUUID->"f45a89c0-a2d2-4ec1-94bd-\
2091b2daa857"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"AcceptanceStep", "[", 
    RowBox[{
    "vecy1T_", ",", "X1T_", ",", "T_", ",", "thetaMinusList_", ",", 
     "thetaStarList_", ",", "newMeanGivenThetaMinus1_", ",", 
     "newMeanGivenThetaStarList_", ",", "s1_", ",", "s2_", ",", "option_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"thetaMinusList", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
          "tilL", ",", "tilQMat"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
      "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"option", "\[Equal]", "1"}], ",", " ", 
       RowBox[{
        RowBox[{"Econ", " ", "Step", "\[IndentingNewLine]", " ", "option"}], 
        "\[Equal]", "2"}], ",", " ", 
       RowBox[{
        RowBox[{"L", " ", "Step", "\[IndentingNewLine]", " ", "option"}], 
        "\[Equal]", "3"}], ",", " ", "Q", ",", 
       RowBox[{
        RowBox[{
        "Sigma", " ", "Step", " ", "\[IndentingNewLine]", " ", "option"}], 
        "\[Equal]", "4"}], ",", " ", 
       RowBox[{"M1", " ", "step"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"logdenominatorprior", "=", 
       RowBox[{"logPriorTheta", "[", "thetaMinusList", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"logdenominatorproposal", "=", 
       RowBox[{"Which", "[", 
        RowBox[{
         RowBox[{"option", "\[Equal]", "1"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"pdfPropEcon", "[", 
           RowBox[{
            RowBox[{"thetaStarList", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "newMeanGivenThetaMinus1", 
            ",", "s2"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"option", "\[Equal]", "2"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"pdfPropL", "[", 
           RowBox[{
            RowBox[{"thetaStarList", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "newMeanGivenThetaMinus1", 
            ",", "s2"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"option", "\[Equal]", "3"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"pdfPropVars", "[", 
           RowBox[{
            RowBox[{"thetaStarList", "[", 
             RowBox[{"[", "4", "]"}], "]"}], ",", "newMeanGivenThetaMinus1", 
            ",", "s2"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"option", "\[Equal]", "4"}], ",", 
         RowBox[{"logPdfPropM1", "[", 
          RowBox[{
           RowBox[{"thetaStarList", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "newMeanGivenThetaMinus1", 
           ",", "s2"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"thetaStarList", "=", 
         RowBox[{"{", 
          RowBox[{"M1", ",", 
           RowBox[{"drawPropEcon", "[", 
            RowBox[{"newMeanEconGivenThetaMinus1", ",", "s2"}], "]"}], ",", 
           "tilL", ",", 
           RowBox[{"{", 
            RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}]}], "}"}]}], ";"}], 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"logdenominatorlikelihood", "=", 
       RowBox[{"logMarginalLikelihood", "[", 
        RowBox[{"vecy1T", ",", "X1T", ",", "T", ",", "thetaMinusList"}], 
        "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"logdenominator", "=", 
       RowBox[{
       "logdenominatorprior", "+", "logdenominatorproposal", "+", 
        "logdenominatorlikelihood"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"--", 
         RowBox[{"-", " ", 
          RowBox[{"Numerator", " ", "--"}]}]}], "-"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"lognumeratorprior", "=", 
       RowBox[{"logPriorTheta", "[", "thetaStarList", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"lognumeratorlik", "=", 
       RowBox[{"logMarginalLikelihood", "[", 
        RowBox[{"vecy1T", ",", "X1T", ",", "T", ",", "thetaStarList"}], 
        "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"lognumeratorproposal", "=", 
       RowBox[{"Which", "[", 
        RowBox[{
         RowBox[{"option", "\[Equal]", "1"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"pdfPropEcon", "[", 
           RowBox[{
            RowBox[{"thetaMinusList", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "newMeanGivenThetaStarList",
             ",", "s2"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"option", "\[Equal]", "2"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"pdfPropL", "[", 
           RowBox[{
            RowBox[{"thetaMinusList", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "newMeanGivenThetaStarList",
             ",", "s2"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"option", "\[Equal]", "3"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"pdfPropVars", "[", 
           RowBox[{
            RowBox[{"thetaMinusList", "[", 
             RowBox[{"[", "4", "]"}], "]"}], ",", "newMeanGivenThetaStarList",
             ",", "s2"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"option", "\[Equal]", "4"}], ",", "\[IndentingNewLine]", 
         RowBox[{"logPdfPropM1", "[", 
          RowBox[{
           RowBox[{"thetaMinusList", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "newMeanGivenThetaStarList", 
           ",", "s2"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"thetaStarList", "=", 
         RowBox[{"{", 
          RowBox[{"M1", ",", 
           RowBox[{"drawPropEcon", "[", 
            RowBox[{"newMeanEconGivenThetaMinus1", ",", "s2"}], "]"}], ",", 
           "tilL", ",", 
           RowBox[{"{", 
            RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}]}], "}"}]}], ";"}], 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"logAcceptprob", "=", 
       RowBox[{"Min", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"(", 
           RowBox[{
           "lognumeratorprior", "+", "lognumeratorproposal", "+", 
            "lognumeratorlik", "-", "logdenominator"}], ")"}]}], "}"}], 
        "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Log", "[", "1", "]"}], "=", "0"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"u", "=", 
       RowBox[{
        RowBox[{"RandomVariate", "[", 
         RowBox[{
          RowBox[{"UniformDistribution", "[", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}], "]"}], ",", "1"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Log", "[", "u", "]"}], "\[LessEqual]", " ", 
         "logAcceptprob"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"res", "=", "thetaStarList"}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"counterMH", "=", "1"}], ";"}], ",", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"counterMH", "=", "0"}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"res", "=", "thetaMinusList"}], ";"}]}], "  ", 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"res", ",", "counterMH"}], "}"}]}]}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7677877041348114`*^9, 3.76778770454111*^9}, {
   3.767787778126306*^9, 3.767787806454131*^9}, {3.76779033669755*^9, 
   3.7677903967356644`*^9}, {3.767790480548044*^9, 3.7677904948218546`*^9}, {
   3.7677910834881163`*^9, 3.7677911189587526`*^9}, {3.7677911950761213`*^9, 
   3.767791196648156*^9}, {3.767792674032771*^9, 3.7677929571860237`*^9}, {
   3.767793177607278*^9, 3.7677931830201206`*^9}, {3.7677932149475007`*^9, 
   3.767793279310334*^9}, {3.767793508683343*^9, 3.767793529324113*^9}, {
   3.767933240899785*^9, 3.767933259588258*^9}, {3.7679334279452267`*^9, 
   3.7679334336173964`*^9}, {3.767933469822406*^9, 3.7679334971675553`*^9}, {
   3.767933563202278*^9, 3.7679336834272947`*^9}, {3.767933714725803*^9, 
   3.7679337788228664`*^9}, {3.7679341417949295`*^9, 
   3.7679341429981294`*^9}, {3.7679341869066396`*^9, 3.767934246722286*^9}, 
   3.767935582086147*^9, 3.769168865484357*^9, {3.769168895813554*^9, 
   3.769168932485238*^9}, 3.7691690128287344`*^9, {3.7691694326740713`*^9, 
   3.7691694487978077`*^9}, {3.7691694890956397`*^9, 3.76916952645778*^9}, {
   3.7691696634447923`*^9, 3.769169676461458*^9}, {3.769169759688383*^9, 
   3.769169807658429*^9}, {3.769169870026199*^9, 3.7691698861059055`*^9}, {
   3.7691699301935277`*^9, 3.7691699473909826`*^9}, {3.7691700344153385`*^9, 
   3.7691700446331396`*^9}, {3.769170079462331*^9, 3.76917008030189*^9}, {
   3.7691715318133593`*^9, 3.7691716323663116`*^9}, {3.7691718345449314`*^9, 
   3.769171842822443*^9}, {3.769173933029443*^9, 3.769173956738562*^9}, {
   3.7691743679862556`*^9, 3.769174375344969*^9}, {3.7692545689216037`*^9, 
   3.7692545692668343`*^9}, {3.769254624746866*^9, 3.7692546251421323`*^9}, {
   3.7692549582144513`*^9, 3.7692549757791758`*^9}, {3.769256200196373*^9, 
   3.769256227349497*^9}, {3.769260125722213*^9, 3.7692601271331515`*^9}},
 CellLabel->
  "In[238]:=",ExpressionUUID->"50b5cdd9-4513-40f7-b677-e3744008251d"]
}, Closed]],

Cell[CellGroupData[{

Cell["M-H step Econ ", "Subsubsection",
 CellChangeTimes->{{3.753167802475073*^9, 3.7531678196870766`*^9}, {
   3.753261711386198*^9, 3.7532617675796614`*^9}, {3.75560969643717*^9, 
   3.755609777263081*^9}, {3.7558488884684715`*^9, 3.7558488947986946`*^9}, 
   3.756361731704565*^9, {3.756659269476293*^9, 3.7566592746367435`*^9}, {
   3.7575186697357063`*^9, 3.7575186706963167`*^9}, 3.757600531020064*^9, 
   3.7587015919453073`*^9, {3.75870180049432*^9, 3.7587018086425567`*^9}, {
   3.762850919569603*^9, 3.76285092994515*^9}, {3.762852034138788*^9, 
   3.762852045092491*^9}},ExpressionUUID->"2e1962b3-0b29-42fd-ba43-\
be07490aaff2"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"MHstepEcon", "[", 
     RowBox[{"vecy1T_", ",", "X1T_", ",", "T_", ",", "dim_", ",", 
      RowBox[{"{", 
       RowBox[{"M1_", ",", 
        RowBox[{"{", 
         RowBox[{
         "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
          "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
        "tilL_", ",", 
        RowBox[{"{", 
         RowBox[{"tilQMat_", ",", "tilSigmaMat_"}], "}"}]}], "}"}], ",", 
      "s1_", ",", "s2_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "\"\< - - Entrando no MH - - \>\"", "]"}], 
        ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"x2TMH", "=", 
         RowBox[{"Drop", "[", 
          RowBox[{"X1T", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"x1T1MH", "=", 
         RowBox[{"Drop", "[", 
          RowBox[{"X1T", ",", 
           RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
         "We", " ", "use", " ", "ArrayReshape", " ", "since", " ", "the", " ",
           "matrix", " ", "X1T", " ", "is", " ", "made", " ", "of", " ", 
          "ROWS", " ", "of", " ", "observations"}], "*)"}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"vecx2TMH", "=", 
         RowBox[{"ArrayReshape", "[", 
          RowBox[{"x2TMH", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Times", "@@", 
              RowBox[{"Dimensions", "[", "x2TMH", "]"}]}], ",", "1"}], 
            "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"vecx1TMH", "=", 
         RowBox[{"ArrayReshape", "[", 
          RowBox[{"X1T", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Times", "@@", 
              RowBox[{"Dimensions", "[", "X1T", "]"}]}], ",", "1"}], "}"}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"vecx1T1MH", "=", 
         RowBox[{"ArrayReshape", "[", 
          RowBox[{"x1T1MH", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Times", "@@", 
              RowBox[{"Dimensions", "[", "x1T1MH", "]"}]}], ",", "1"}], 
            "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "The", " ", "Vectorizations", " ", "above", " ", "will", " ", "be", 
        " ", "in", " ", "the", " ", "MHGlobal", " ", "to", " ", "be", " ", 
        "more", " ", 
        RowBox[{"efficient", "."}]}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"KMMH", "=", 
        RowBox[{"Kint", "[", 
         RowBox[{"X1T", ",", "X1T", ",", 
          RowBox[{"Exp", "[", "tilL", "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"AMH", ",", "CmatMH", ",", "CmatStarMH"}], "}"}], "=", 
        RowBox[{"rbcACmat", "[", 
         RowBox[{"reparametrizationFInv", "[", 
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"QMH", ",", "SigmaMH"}], "}"}], "=", 
        RowBox[{"reparametrizationFQSInv", "[", 
         RowBox[{"{", 
          RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"thetaMinusList", "=", 
        RowBox[{"{", 
         RowBox[{"M1", ",", 
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
          "tilL", ",", 
          RowBox[{"{", 
           RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}]}], "}"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"newMeanEconGivenThetaMinus1", "=", 
        RowBox[{"newMeanEcon", "[", 
         RowBox[{
         "vecy1T", ",", "vecx2TMH", ",", "vecx1T1MH", ",", "vecx1TMH", ",", 
          "X1T", ",", "T", ",", "KMMH", ",", 
          RowBox[{"{", 
           RowBox[{"M1", ",", 
            RowBox[{"{", 
             RowBox[{
             "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
              "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
            "tilL", ",", 
            RowBox[{"{", 
             RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}]}], "}"}], ",", 
          "s1"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"mean", " ", "for", " ", "q", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Theta]_", "*"}], " ", "|", " ", 
            RowBox[{"\[Theta]", "[", 
             RowBox[{"n", "-", "1"}], "]"}]}], ",", " ", 
           RowBox[{"X1", ":", "T"}], ",", " ", 
           RowBox[{"y1", ":", "T"}]}], ")"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"thetaStarList", "=", 
        RowBox[{"{", 
         RowBox[{"M1", ",", 
          RowBox[{"drawPropEcon", "[", 
           RowBox[{"newMeanEconGivenThetaMinus1", ",", "s2"}], "]"}], ",", 
          "tilL", ",", 
          RowBox[{"{", 
           RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}]}], "}"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "thetastarlist", " ", "is", " ", "the", " ", "candidate", " ", 
          "theta", " ", "draw", " ", "as", " ", "a", " ", "list", " ", "of", 
          " ", 
          RowBox[{"lists", ".", " ", 
           RowBox[{"We", "'"}]}], "ll", " ", "need", " ", "to", " ", 
          "transform", " ", "it", " ", "into", " ", "a", " ", "proper", " ", 
          "vector", " ", "using", " ", "only", " ", "the", " ", "upper", " ", 
          "triangular", " ", "matrix", " ", "of", " ", "M1"}], ",", " ", 
         RowBox[{
         "the", " ", "main", " ", "diagonal", " ", "of", " ", "Q", " ", "and",
           " ", "Sigma"}]}], "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"KMMHThetaStar", "=", "KMMH"}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"In", " ", "this", " ", "MH", " ", "step"}], ",", " ", 
         RowBox[{
          RowBox[{"KMMH", " ", "=", " ", 
           RowBox[{"Kint", "[", 
            RowBox[{"X1T", ",", "X1T", ",", 
             RowBox[{"Exp", "[", 
              RowBox[{
              "thetaStarList", "\[LeftDoubleBracket]", "3", 
               "\[RightDoubleBracket]"}], "]"}]}], "]"}]}], ";"}]}], " ", 
        "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"newMeanEconGivenThetaStarList", "=", 
        RowBox[{"newMeanEcon", "[", 
         RowBox[{
         "vecy1T", ",", "vecx2TMH", ",", "vecx1T1MH", ",", "vecx1TMH", ",", 
          "X1T", ",", "T", ",", "KMMHThetaStar", ",", "thetaStarList", ",", 
          "s1"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"mean", " ", "for", " ", "q", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Theta]", "[", 
             RowBox[{"n", "-", "1"}], "]"}], "|", 
            RowBox[{"\[Theta]_", "*"}]}], " ", ",", " ", 
           RowBox[{"X1", ":", "T"}], ",", " ", 
           RowBox[{"y1", ":", "T"}]}], ")"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
        "thetaStar", " ", "is", " ", "the", " ", "theta_", "*", " ", "vector",
          " ", "which", " ", "will", " ", "enter", " ", "in", " ", "the", " ",
          "proposal", " ", "density"}], "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"AcceptanceStep", "[", 
        RowBox[{
        "vecy1T", ",", "X1T", ",", "T", ",", "thetaMinusList", ",", 
         "thetaStarList", ",", "newMeanEconGivenThetaMinus1", ",", 
         "newMeanEconGivenThetaStarList", ",", "s1", ",", "s2", ",", "1"}], 
        "]"}]}]}], "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"AcceptanceStep", "[", 
       RowBox[{
       "vecy1T_", ",", "X1T_", ",", "T_", ",", "thetaMinusList_", ",", 
        "thetaStarList_", ",", "newMeanGivenThetaMinus1_", ",", 
        "newMeanGivenThetaStarList_", ",", "s1_", ",", "s2_", ",", 
        "option_"}], "]"}], "*)"}], "\[IndentingNewLine]", "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.7531684432370644`*^9, 3.753168443799622*^9}, {
   3.753261488465584*^9, 3.753261505351841*^9}, {3.7534280018249025`*^9, 
   3.753428012320969*^9}, {3.753429372645896*^9, 3.75342938219312*^9}, {
   3.755500152757572*^9, 3.7555001544939785`*^9}, {3.755500245602987*^9, 
   3.7555002497426696`*^9}, 3.7555002875238595`*^9, {3.755500375712425*^9, 
   3.755500377798619*^9}, {3.7555004982294044`*^9, 3.755500499778499*^9}, {
   3.75550053063223*^9, 3.7555006268824463`*^9}, {3.7555008900249815`*^9, 
   3.7555008918552995`*^9}, {3.755500952684757*^9, 3.7555010195863733`*^9}, {
   3.755501075851124*^9, 3.755501101847068*^9}, {3.7555011325701447`*^9, 
   3.75550116319732*^9}, {3.755501204696529*^9, 3.755501266736082*^9}, 
   3.7555260330602927`*^9, {3.7555260652397723`*^9, 3.7555260683818684`*^9}, {
   3.755526103934602*^9, 3.755526108136594*^9}, {3.7555267099043274`*^9, 
   3.755526712977377*^9}, {3.75552677274926*^9, 3.7555268376697445`*^9}, {
   3.7555269032825403`*^9, 3.755526924373891*^9}, {3.7555272440555105`*^9, 
   3.7555272991282716`*^9}, 3.7555273337994137`*^9, {3.755527768640174*^9, 
   3.755527771160856*^9}, {3.75552806376054*^9, 3.7555280654026346`*^9}, {
   3.755528137497758*^9, 3.755528142183885*^9}, {3.7555283288735247`*^9, 
   3.7555283440235453`*^9}, {3.755528878859112*^9, 3.755528929471895*^9}, {
   3.755529092644082*^9, 3.7555290959753075`*^9}, {3.7555295166084766`*^9, 
   3.7555295175270896`*^9}, {3.7555301653449335`*^9, 3.755530166097436*^9}, {
   3.75553133058478*^9, 3.7555313314793777`*^9}, {3.7558447867299557`*^9, 
   3.755844836897441*^9}, {3.7564752542292213`*^9, 3.7564752916342025`*^9}, {
   3.756475513144149*^9, 3.7564755376455135`*^9}, {3.7564755816709175`*^9, 
   3.756475600482482*^9}, {3.7564813237647552`*^9, 3.756481339709405*^9}, {
   3.756481394914277*^9, 3.7564813951164107`*^9}, {3.7564814265719523`*^9, 
   3.7564814314442053`*^9}, {3.756481703918624*^9, 3.7564817346281347`*^9}, {
   3.756481764654182*^9, 3.756481765036438*^9}, 3.7564818885317535`*^9, {
   3.756482155997269*^9, 3.7564821664019437`*^9}, {3.756486488740775*^9, 
   3.75648655547716*^9}, {3.7564867418367615`*^9, 3.7564867490812683`*^9}, 
   3.7564869286504717`*^9, {3.7565551269126167`*^9, 3.756555135475237*^9}, {
   3.7565551658410635`*^9, 3.756555302053189*^9}, {3.756555500481775*^9, 
   3.756555656756198*^9}, {3.756555853124647*^9, 3.7565558591326838`*^9}, {
   3.75655611247618*^9, 3.75655614166353*^9}, {3.756556452153594*^9, 
   3.756556458530512*^9}, {3.7565566895028553`*^9, 3.7565567010374413`*^9}, {
   3.75655676803086*^9, 3.756556783607879*^9}, {3.756620255289236*^9, 
   3.7566202673757896`*^9}, {3.7566593570037527`*^9, 3.75665936028094*^9}, {
   3.75670611386351*^9, 3.756706151662369*^9}, {3.756706183101516*^9, 
   3.7567062404326334`*^9}, {3.7567062720280437`*^9, 3.75670633418756*^9}, {
   3.7567063997535353`*^9, 3.7567064813984203`*^9}, {3.7567067175435605`*^9, 
   3.7567067232162237`*^9}, {3.7567067551388283`*^9, 3.756706773197563*^9}, {
   3.756821037344*^9, 3.756821039576949*^9}, {3.756821130499963*^9, 
   3.7568212590006866`*^9}, {3.756826427591666*^9, 3.756826436030303*^9}, {
   3.756826474733343*^9, 3.756826484843964*^9}, {3.756826702234287*^9, 
   3.756826749966615*^9}, {3.756829545154735*^9, 3.756829588171277*^9}, {
   3.7568307478425264`*^9, 3.756830783108801*^9}, {3.75683295096911*^9, 
   3.7568331191400194`*^9}, {3.756833814295746*^9, 3.7568338325463285`*^9}, {
   3.756833951437146*^9, 3.7568340388269424`*^9}, {3.7568340792181416`*^9, 
   3.7568340877815027`*^9}, {3.75683418598385*^9, 3.756834210943344*^9}, {
   3.75683544876544*^9, 3.7568354731667395`*^9}, {3.7568738416775813`*^9, 
   3.7568738725072966`*^9}, {3.7568739161814985`*^9, 3.7568739231193314`*^9}, 
   3.7568742682624674`*^9, {3.756874319608945*^9, 3.7568743286719217`*^9}, 
   3.756874694097374*^9, {3.756874957160054*^9, 3.756874995878129*^9}, {
   3.7568751700674744`*^9, 3.7568752125345592`*^9}, {3.7570540759948606`*^9, 
   3.7570540763239937`*^9}, {3.757308854018956*^9, 3.757308869644778*^9}, {
   3.7573090469369755`*^9, 3.757309048437054*^9}, 3.757315574167002*^9, {
   3.757315626815372*^9, 3.7573156295527754`*^9}, {3.757315777257266*^9, 
   3.7573158898106236`*^9}, {3.7573159492402163`*^9, 3.757316005662812*^9}, {
   3.757574731622512*^9, 3.7575747478319955`*^9}, {3.757574778480777*^9, 
   3.757574808403496*^9}, {3.7575929730040517`*^9, 3.757592998566194*^9}, 
   3.7579442100808444`*^9, {3.757945849826558*^9, 3.7579458514849634`*^9}, {
   3.76285113456631*^9, 3.7628511855175505`*^9}, {3.762852025450832*^9, 
   3.7628520264821367`*^9}, {3.7628520938763037`*^9, 
   3.7628521388786697`*^9}, {3.7628522585935435`*^9, 3.762852380631209*^9}, {
   3.762852413742323*^9, 3.762852473557966*^9}, {3.762874031581403*^9, 
   3.762874074239884*^9}, {3.7628741405028687`*^9, 3.762874234054658*^9}, {
   3.7628743402544622`*^9, 3.762874366896456*^9}, {3.7628745985678873`*^9, 
   3.7628746736187057`*^9}, {3.7628748394420385`*^9, 3.762874841317136*^9}, {
   3.7628782804354563`*^9, 3.76287830726501*^9}, {3.762878347173369*^9, 
   3.7628783948008413`*^9}, {3.7628784502100124`*^9, 3.7628784529133*^9}, {
   3.762878483477406*^9, 3.762878486649417*^9}, {3.7628806638002367`*^9, 
   3.762880666816019*^9}, {3.762880702521021*^9, 3.762880732616352*^9}, {
   3.76288118873407*^9, 3.7628812373091617`*^9}, {3.7629584386691446`*^9, 
   3.762958504469479*^9}, 3.7629586238042817`*^9, 3.762958930917271*^9, {
   3.7629602455019364`*^9, 3.762960250002203*^9}, {3.762960936233672*^9, 
   3.762960961875677*^9}, {3.7691683351324816`*^9, 3.769168498118876*^9}, {
   3.7691685842472243`*^9, 3.769168652075386*^9}, 3.7691687581045046`*^9, {
   3.7691718750438986`*^9, 3.7691718888155985`*^9}, 3.769171919092759*^9, 
   3.769171963522607*^9, {3.769174233251134*^9, 3.769174234467129*^9}, {
   3.7691742966262083`*^9, 3.769174344772952*^9}, {3.769174410736362*^9, 
   3.7691744315488787`*^9}, {3.7692545377538023`*^9, 3.7692545416814213`*^9}, 
   3.7692546651418295`*^9, {3.8459589157779675`*^9, 
   3.845958916475816*^9}},ExpressionUUID->"d86c06d7-e1fb-49c7-8d26-\
e7cc15b80224"]
}, Open  ]],

Cell[CellGroupData[{

Cell["M-H Step L ", "Subsubsection",
 CellChangeTimes->{{3.753167802475073*^9, 3.7531678196870766`*^9}, {
   3.753261711386198*^9, 3.7532617675796614`*^9}, {3.75560969643717*^9, 
   3.755609777263081*^9}, {3.7558488884684715`*^9, 3.7558488947986946`*^9}, 
   3.756361731704565*^9, {3.756659269476293*^9, 3.7566592746367435`*^9}, {
   3.7575186697357063`*^9, 3.7575186706963167`*^9}, 3.757600531020064*^9, 
   3.7587015919453073`*^9, {3.75870180049432*^9, 3.7587018086425567`*^9}, {
   3.7628509460084944`*^9, 3.7628509605404778`*^9}, {3.7628814990581703`*^9, 
   3.762881501573928*^9}},ExpressionUUID->"b6b51092-e298-4e5c-81d7-\
bcc2f99deb02"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"MHstepL", "[", 
     RowBox[{"vecy1T_", ",", "X1T_", ",", "T_", ",", "dim_", ",", 
      RowBox[{"{", 
       RowBox[{"M1_", ",", 
        RowBox[{"{", 
         RowBox[{
         "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
          "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
        "tilL_", ",", 
        RowBox[{"{", 
         RowBox[{"tilQMat_", ",", "tilSigmaMat_"}], "}"}]}], "}"}], ",", 
      "s1_", ",", "s2_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"KMMH", "=", 
        RowBox[{"Kint", "[", 
         RowBox[{"X1T", ",", "X1T", ",", 
          RowBox[{"Exp", "[", "tilL", "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"AMH", ",", "CmatMH", ",", "CmatStarMH"}], "}"}], "=", 
        RowBox[{"rbcACmat", "[", 
         RowBox[{"reparametrizationFInv", "[", 
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"QMH", ",", "SigmaMH"}], "}"}], "=", 
        RowBox[{"reparametrizationFQSInv", "[", 
         RowBox[{"{", 
          RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"thetaMinusList", "=", 
        RowBox[{"{", 
         RowBox[{"M1", ",", 
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
          "tilL", ",", 
          RowBox[{"{", 
           RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}]}], "}"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"newMeanLGivenThetaMinus1", "=", 
        RowBox[{"newMeanL", "[", 
         RowBox[{
         "vecy1T", ",", "vecx2TMH", ",", "vecx1T1MH", ",", "vecx1TMH", ",", 
          "X1T", ",", "T", ",", "KMMH", ",", 
          RowBox[{"{", 
           RowBox[{"M1", ",", 
            RowBox[{"{", 
             RowBox[{
             "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
              "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
            "tilL", ",", 
            RowBox[{"{", 
             RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}]}], "}"}], ",", 
          "s1"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"mean", " ", "for", " ", "q", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Theta]_", "*"}], " ", "|", " ", 
            RowBox[{"\[Theta]", "[", 
             RowBox[{"n", "-", "1"}], "]"}]}], ",", " ", 
           RowBox[{"X1", ":", "T"}], ",", " ", 
           RowBox[{"y1", ":", "T"}]}], ")"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"thetaStarList", "=", 
        RowBox[{"{", 
         RowBox[{"M1", ",", 
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
          RowBox[{"drawPropL", "[", 
           RowBox[{"newMeanLGivenThetaMinus1", ",", "s2"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}]}], "}"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "thetastarlist", " ", "is", " ", "the", " ", "candidate", " ", 
          "theta", " ", "draw", " ", "as", " ", "a", " ", "list", " ", "of", 
          " ", 
          RowBox[{"lists", ".", " ", 
           RowBox[{"We", "'"}]}], "ll", " ", "need", " ", "to", " ", 
          "transform", " ", "it", " ", "into", " ", "a", " ", "proper", " ", 
          "vector", " ", "using", " ", "only", " ", "the", " ", "upper", " ", 
          "triangular", " ", "matrix", " ", "of", " ", "M1"}], ",", " ", 
         RowBox[{
         "the", " ", "main", " ", "diagonal", " ", "of", " ", "Q", " ", "and",
           " ", "Sigma"}]}], "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"KMMHThetaStar", "=", 
        RowBox[{"Kint", "[", 
         RowBox[{"X1T", ",", "X1T", ",", 
          RowBox[{"Exp", "[", 
           RowBox[{
           "thetaStarList", "\[LeftDoubleBracket]", "3", 
            "\[RightDoubleBracket]"}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "In", " ", "this", " ", "MH", " ", "step", " ", "KMMH", " ", "is", 
          " ", "different"}], ",", " ", 
         RowBox[{"because", " ", 
          RowBox[{
          "thetaStarList", "\[LeftDoubleBracket]", "3", 
           "\[RightDoubleBracket]"}], " ", "is", " ", "different", " ", 
          "from", " ", "tilL"}]}], "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"newMeanLGivenThetaStarList", "=", 
        RowBox[{"newMeanL", "[", 
         RowBox[{
         "vecy1T", ",", "vecx2TMH", ",", "vecx1T1MH", ",", "vecx1TMH", ",", 
          "X1T", ",", "T", ",", "KMMHThetaStar", ",", "thetaStarList", ",", 
          "s1"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"mean", " ", "for", " ", "q", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Theta]", "[", 
             RowBox[{"n", "-", "1"}], "]"}], "|", 
            RowBox[{"\[Theta]_", "*"}]}], " ", ",", " ", 
           RowBox[{"X1", ":", "T"}], ",", " ", 
           RowBox[{"y1", ":", "T"}]}], ")"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"AcceptanceStep", "[", 
        RowBox[{
        "vecy1T", ",", "X1T", ",", "T", ",", "thetaMinusList", ",", 
         "thetaStarList", ",", "newMeanLGivenThetaMinus1", ",", 
         "newMeanLGivenThetaStarList", ",", "s1", ",", "s2", ",", "2"}], 
        "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.7531684432370644`*^9, 3.753168443799622*^9}, {
   3.753261488465584*^9, 3.753261505351841*^9}, {3.7534280018249025`*^9, 
   3.753428012320969*^9}, {3.753429372645896*^9, 3.75342938219312*^9}, {
   3.755500152757572*^9, 3.7555001544939785`*^9}, {3.755500245602987*^9, 
   3.7555002497426696`*^9}, 3.7555002875238595`*^9, {3.755500375712425*^9, 
   3.755500377798619*^9}, {3.7555004982294044`*^9, 3.755500499778499*^9}, {
   3.75550053063223*^9, 3.7555006268824463`*^9}, {3.7555008900249815`*^9, 
   3.7555008918552995`*^9}, {3.755500952684757*^9, 3.7555010195863733`*^9}, {
   3.755501075851124*^9, 3.755501101847068*^9}, {3.7555011325701447`*^9, 
   3.75550116319732*^9}, {3.755501204696529*^9, 3.755501266736082*^9}, 
   3.7555260330602927`*^9, {3.7555260652397723`*^9, 3.7555260683818684`*^9}, {
   3.755526103934602*^9, 3.755526108136594*^9}, {3.7555267099043274`*^9, 
   3.755526712977377*^9}, {3.75552677274926*^9, 3.7555268376697445`*^9}, {
   3.7555269032825403`*^9, 3.755526924373891*^9}, {3.7555272440555105`*^9, 
   3.7555272991282716`*^9}, 3.7555273337994137`*^9, {3.755527768640174*^9, 
   3.755527771160856*^9}, {3.75552806376054*^9, 3.7555280654026346`*^9}, {
   3.755528137497758*^9, 3.755528142183885*^9}, {3.7555283288735247`*^9, 
   3.7555283440235453`*^9}, {3.755528878859112*^9, 3.755528929471895*^9}, {
   3.755529092644082*^9, 3.7555290959753075`*^9}, {3.7555295166084766`*^9, 
   3.7555295175270896`*^9}, {3.7555301653449335`*^9, 3.755530166097436*^9}, {
   3.75553133058478*^9, 3.7555313314793777`*^9}, {3.7558447867299557`*^9, 
   3.755844836897441*^9}, {3.7564752542292213`*^9, 3.7564752916342025`*^9}, {
   3.756475513144149*^9, 3.7564755376455135`*^9}, {3.7564755816709175`*^9, 
   3.756475600482482*^9}, {3.7564813237647552`*^9, 3.756481339709405*^9}, {
   3.756481394914277*^9, 3.7564813951164107`*^9}, {3.7564814265719523`*^9, 
   3.7564814314442053`*^9}, {3.756481703918624*^9, 3.7564817346281347`*^9}, {
   3.756481764654182*^9, 3.756481765036438*^9}, 3.7564818885317535`*^9, {
   3.756482155997269*^9, 3.7564821664019437`*^9}, {3.756486488740775*^9, 
   3.75648655547716*^9}, {3.7564867418367615`*^9, 3.7564867490812683`*^9}, 
   3.7564869286504717`*^9, {3.7565551269126167`*^9, 3.756555135475237*^9}, {
   3.7565551658410635`*^9, 3.756555302053189*^9}, {3.756555500481775*^9, 
   3.756555656756198*^9}, {3.756555853124647*^9, 3.7565558591326838`*^9}, {
   3.75655611247618*^9, 3.75655614166353*^9}, {3.756556452153594*^9, 
   3.756556458530512*^9}, {3.7565566895028553`*^9, 3.7565567010374413`*^9}, {
   3.75655676803086*^9, 3.756556783607879*^9}, {3.756620255289236*^9, 
   3.7566202673757896`*^9}, {3.7566593570037527`*^9, 3.75665936028094*^9}, {
   3.75670611386351*^9, 3.756706151662369*^9}, {3.756706183101516*^9, 
   3.7567062404326334`*^9}, {3.7567062720280437`*^9, 3.75670633418756*^9}, {
   3.7567063997535353`*^9, 3.7567064813984203`*^9}, {3.7567067175435605`*^9, 
   3.7567067232162237`*^9}, {3.7567067551388283`*^9, 3.756706773197563*^9}, {
   3.756821037344*^9, 3.756821039576949*^9}, {3.756821130499963*^9, 
   3.7568212590006866`*^9}, {3.756826427591666*^9, 3.756826436030303*^9}, {
   3.756826474733343*^9, 3.756826484843964*^9}, {3.756826702234287*^9, 
   3.756826749966615*^9}, {3.756829545154735*^9, 3.756829588171277*^9}, {
   3.7568307478425264`*^9, 3.756830783108801*^9}, {3.75683295096911*^9, 
   3.7568331191400194`*^9}, {3.756833814295746*^9, 3.7568338325463285`*^9}, {
   3.756833951437146*^9, 3.7568340388269424`*^9}, {3.7568340792181416`*^9, 
   3.7568340877815027`*^9}, {3.75683418598385*^9, 3.756834210943344*^9}, {
   3.75683544876544*^9, 3.7568354731667395`*^9}, {3.7568738416775813`*^9, 
   3.7568738725072966`*^9}, {3.7568739161814985`*^9, 3.7568739231193314`*^9}, 
   3.7568742682624674`*^9, {3.756874319608945*^9, 3.7568743286719217`*^9}, 
   3.756874694097374*^9, {3.756874957160054*^9, 3.756874995878129*^9}, {
   3.7568751700674744`*^9, 3.7568752125345592`*^9}, {3.7570540759948606`*^9, 
   3.7570540763239937`*^9}, {3.757308854018956*^9, 3.757308869644778*^9}, {
   3.7573090469369755`*^9, 3.757309048437054*^9}, 3.757315574167002*^9, {
   3.757315626815372*^9, 3.7573156295527754`*^9}, {3.757315777257266*^9, 
   3.7573158898106236`*^9}, {3.7573159492402163`*^9, 3.757316005662812*^9}, {
   3.757574731622512*^9, 3.7575747478319955`*^9}, {3.757574778480777*^9, 
   3.757574808403496*^9}, {3.7575929730040517`*^9, 3.757592998566194*^9}, 
   3.7579442100808444`*^9, {3.757945849826558*^9, 3.7579458514849634`*^9}, {
   3.76285113456631*^9, 3.7628511855175505`*^9}, {3.762852025450832*^9, 
   3.7628520264821367`*^9}, {3.7628520938763037`*^9, 
   3.7628521388786697`*^9}, {3.7628522585935435`*^9, 3.762852380631209*^9}, {
   3.762852413742323*^9, 3.762852473557966*^9}, {3.762874031581403*^9, 
   3.762874074239884*^9}, {3.7628741405028687`*^9, 3.762874234054658*^9}, {
   3.7628743402544622`*^9, 3.762874366896456*^9}, {3.7628745985678873`*^9, 
   3.7628746736187057`*^9}, {3.7628748394420385`*^9, 3.762874841317136*^9}, {
   3.7628782804354563`*^9, 3.76287830726501*^9}, {3.762878347173369*^9, 
   3.7628783948008413`*^9}, {3.7628784502100124`*^9, 3.7628784529133*^9}, {
   3.762878483477406*^9, 3.762878486649417*^9}, {3.762879815240635*^9, 
   3.7628798162713966`*^9}, {3.7628798864634624`*^9, 
   3.7628798943701296`*^9}, {3.7628799477008734`*^9, 
   3.7628799579670663`*^9}, {3.7628799948131657`*^9, 
   3.7628800055788293`*^9}, {3.7628800923807087`*^9, 3.762880170337929*^9}, {
   3.762880595796664*^9, 3.7628805965154204`*^9}, 3.762880886640071*^9, {
   3.762880989536103*^9, 3.762880990348646*^9}, 3.76288150590228*^9, {
   3.7628833304815845`*^9, 3.762883457210332*^9}, {3.762883515280116*^9, 
   3.762883547554671*^9}, {3.7628835818635874`*^9, 3.7628835895617285`*^9}, 
   3.7628848105502253`*^9, 3.762884851881962*^9, 3.7629585255018387`*^9, {
   3.762958971875619*^9, 3.7629589829230447`*^9}, {3.7629610393590307`*^9, 
   3.7629610440467944`*^9}, {3.7691744627269077`*^9, 3.769174482285824*^9}, {
   3.845957917077225*^9, 3.8459579384353476`*^9}},
 CellLabel->
  "In[240]:=",ExpressionUUID->"f2dbcc92-93db-4314-a476-1fb01b7e37da"]
}, Closed]],

Cell[CellGroupData[{

Cell["M-H Step Vars ", "Subsubsection",
 CellChangeTimes->{{3.753167802475073*^9, 3.7531678196870766`*^9}, {
   3.753261711386198*^9, 3.7532617675796614`*^9}, {3.75560969643717*^9, 
   3.755609777263081*^9}, {3.7558488884684715`*^9, 3.7558488947986946`*^9}, 
   3.756361731704565*^9, {3.756659269476293*^9, 3.7566592746367435`*^9}, {
   3.7575186697357063`*^9, 3.7575186706963167`*^9}, 3.757600531020064*^9, 
   3.7587015919453073`*^9, {3.75870180049432*^9, 3.7587018086425567`*^9}, {
   3.7628509341328697`*^9, 3.7628509412426186`*^9}, {3.762879819255929*^9, 
   3.762879822131079*^9}},ExpressionUUID->"9c2c4df6-968b-4d33-95bc-\
25bbfcfc98ab"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"MHstepVars", "[", 
     RowBox[{"vecy1T_", ",", "X1T_", ",", "T_", ",", "dim_", ",", 
      RowBox[{"{", 
       RowBox[{"M1_", ",", 
        RowBox[{"{", 
         RowBox[{
         "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
          "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
        "tilL_", ",", 
        RowBox[{"{", 
         RowBox[{"tilQMat_", ",", "tilSigmaMat_"}], "}"}]}], "}"}], ",", 
      "s1_", ",", "s2_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"KMMH", "=", 
        RowBox[{"Kint", "[", 
         RowBox[{"X1T", ",", "X1T", ",", 
          RowBox[{"Exp", "[", "tilL", "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"AMH", ",", "CmatMH", ",", "CmatStarMH"}], "}"}], "=", 
        RowBox[{"rbcACmat", "[", 
         RowBox[{"reparametrizationFInv", "[", 
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"QMH", ",", "SigmaMH"}], "}"}], "=", 
        RowBox[{"reparametrizationFQSInv", "[", 
         RowBox[{"{", 
          RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"thetaMinusList", "=", 
        RowBox[{"{", 
         RowBox[{"M1", ",", 
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
          "tilL", ",", 
          RowBox[{"{", 
           RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}]}], "}"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"newMeanVarsGivenThetaMinus1", "=", 
        RowBox[{"newMeanVars", "[", 
         RowBox[{
         "vecy1T", ",", "vecx2TMH", ",", "vecx1T1MH", ",", "vecx1TMH", ",", 
          "X1T", ",", "T", ",", "KMMH", ",", 
          RowBox[{"{", 
           RowBox[{"M1", ",", 
            RowBox[{"{", 
             RowBox[{
             "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
              "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
            "tilL", ",", 
            RowBox[{"{", 
             RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}]}], "}"}], ",", 
          "s1"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"mean", " ", "for", " ", "q", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Theta]_", "*"}], " ", "|", " ", 
            RowBox[{"\[Theta]", "[", 
             RowBox[{"n", "-", "1"}], "]"}]}], ",", " ", 
           RowBox[{"X1", ":", "T"}], ",", " ", 
           RowBox[{"y1", ":", "T"}]}], ")"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"thetaStarList", "=", 
        RowBox[{"{", 
         RowBox[{"M1", ",", 
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
          "tilL", ",", 
          RowBox[{"drawPropVars", "[", 
           RowBox[{"newMeanVarsGivenThetaMinus1", ",", "s2"}], "]"}]}], 
         "}"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "thetastarlist", " ", "is", " ", "the", " ", "candidate", " ", 
          "theta", " ", "draw", " ", "as", " ", "a", " ", "list", " ", "of", 
          " ", 
          RowBox[{"lists", ".", " ", 
           RowBox[{"We", "'"}]}], "ll", " ", "need", " ", "to", " ", 
          "transform", " ", "it", " ", "into", " ", "a", " ", "proper", " ", 
          "vector", " ", "using", " ", "only", " ", "the", " ", "upper", " ", 
          "triangular", " ", "matrix", " ", "of", " ", "M1"}], ",", " ", 
         RowBox[{
         "the", " ", "main", " ", "diagonal", " ", "of", " ", "Q", " ", "and",
           " ", "Sigma"}]}], "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<2\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"KMMHThetaStar", "=", "KMMH"}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"In", " ", "this", " ", "MH", " ", "step"}], ",", " ", 
         RowBox[{
          RowBox[{"KMMH", " ", "=", " ", 
           RowBox[{"Kint", "[", 
            RowBox[{"X1T", ",", "X1T", ",", 
             RowBox[{"Exp", "[", 
              RowBox[{
              "thetaStarList", "\[LeftDoubleBracket]", "3", 
               "\[RightDoubleBracket]"}], "]"}]}], "]"}]}], ";"}]}], " ", 
        "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"newMeanVarsGivenThetaStarList", "=", 
        RowBox[{"newMeanVars", "[", 
         RowBox[{
         "vecy1T", ",", "vecx2TMH", ",", "vecx1T1MH", ",", "vecx1TMH", ",", 
          "X1T", ",", "T", ",", "KMMHThetaStar", ",", "thetaStarList", ",", 
          "s1"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"mean", " ", "for", " ", "q", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Theta]", "[", 
             RowBox[{"n", "-", "1"}], "]"}], "|", 
            RowBox[{"\[Theta]_", "*"}]}], " ", ",", " ", 
           RowBox[{"X1", ":", "T"}], ",", " ", 
           RowBox[{"y1", ":", "T"}]}], ")"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<3\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"AcceptanceStep", "[", 
        RowBox[{
        "vecy1T", ",", "X1T", ",", "T", ",", "thetaMinusList", ",", 
         "thetaStarList", ",", "newMeanVarsGivenThetaMinus1", ",", 
         "newMeanVarsGivenThetaStarList", ",", "s1", ",", "s2", ",", "3"}], 
        "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.7531684432370644`*^9, 3.753168443799622*^9}, {
   3.753261488465584*^9, 3.753261505351841*^9}, {3.7534280018249025`*^9, 
   3.753428012320969*^9}, {3.753429372645896*^9, 3.75342938219312*^9}, {
   3.755500152757572*^9, 3.7555001544939785`*^9}, {3.755500245602987*^9, 
   3.7555002497426696`*^9}, 3.7555002875238595`*^9, {3.755500375712425*^9, 
   3.755500377798619*^9}, {3.7555004982294044`*^9, 3.755500499778499*^9}, {
   3.75550053063223*^9, 3.7555006268824463`*^9}, {3.7555008900249815`*^9, 
   3.7555008918552995`*^9}, {3.755500952684757*^9, 3.7555010195863733`*^9}, {
   3.755501075851124*^9, 3.755501101847068*^9}, {3.7555011325701447`*^9, 
   3.75550116319732*^9}, {3.755501204696529*^9, 3.755501266736082*^9}, 
   3.7555260330602927`*^9, {3.7555260652397723`*^9, 3.7555260683818684`*^9}, {
   3.755526103934602*^9, 3.755526108136594*^9}, {3.7555267099043274`*^9, 
   3.755526712977377*^9}, {3.75552677274926*^9, 3.7555268376697445`*^9}, {
   3.7555269032825403`*^9, 3.755526924373891*^9}, {3.7555272440555105`*^9, 
   3.7555272991282716`*^9}, 3.7555273337994137`*^9, {3.755527768640174*^9, 
   3.755527771160856*^9}, {3.75552806376054*^9, 3.7555280654026346`*^9}, {
   3.755528137497758*^9, 3.755528142183885*^9}, {3.7555283288735247`*^9, 
   3.7555283440235453`*^9}, {3.755528878859112*^9, 3.755528929471895*^9}, {
   3.755529092644082*^9, 3.7555290959753075`*^9}, {3.7555295166084766`*^9, 
   3.7555295175270896`*^9}, {3.7555301653449335`*^9, 3.755530166097436*^9}, {
   3.75553133058478*^9, 3.7555313314793777`*^9}, {3.7558447867299557`*^9, 
   3.755844836897441*^9}, {3.7564752542292213`*^9, 3.7564752916342025`*^9}, {
   3.756475513144149*^9, 3.7564755376455135`*^9}, {3.7564755816709175`*^9, 
   3.756475600482482*^9}, {3.7564813237647552`*^9, 3.756481339709405*^9}, {
   3.756481394914277*^9, 3.7564813951164107`*^9}, {3.7564814265719523`*^9, 
   3.7564814314442053`*^9}, {3.756481703918624*^9, 3.7564817346281347`*^9}, {
   3.756481764654182*^9, 3.756481765036438*^9}, 3.7564818885317535`*^9, {
   3.756482155997269*^9, 3.7564821664019437`*^9}, {3.756486488740775*^9, 
   3.75648655547716*^9}, {3.7564867418367615`*^9, 3.7564867490812683`*^9}, 
   3.7564869286504717`*^9, {3.7565551269126167`*^9, 3.756555135475237*^9}, {
   3.7565551658410635`*^9, 3.756555302053189*^9}, {3.756555500481775*^9, 
   3.756555656756198*^9}, {3.756555853124647*^9, 3.7565558591326838`*^9}, {
   3.75655611247618*^9, 3.75655614166353*^9}, {3.756556452153594*^9, 
   3.756556458530512*^9}, {3.7565566895028553`*^9, 3.7565567010374413`*^9}, {
   3.75655676803086*^9, 3.756556783607879*^9}, {3.756620255289236*^9, 
   3.7566202673757896`*^9}, {3.7566593570037527`*^9, 3.75665936028094*^9}, {
   3.75670611386351*^9, 3.756706151662369*^9}, {3.756706183101516*^9, 
   3.7567062404326334`*^9}, {3.7567062720280437`*^9, 3.75670633418756*^9}, {
   3.7567063997535353`*^9, 3.7567064813984203`*^9}, {3.7567067175435605`*^9, 
   3.7567067232162237`*^9}, {3.7567067551388283`*^9, 3.756706773197563*^9}, {
   3.756821037344*^9, 3.756821039576949*^9}, {3.756821130499963*^9, 
   3.7568212590006866`*^9}, {3.756826427591666*^9, 3.756826436030303*^9}, {
   3.756826474733343*^9, 3.756826484843964*^9}, {3.756826702234287*^9, 
   3.756826749966615*^9}, {3.756829545154735*^9, 3.756829588171277*^9}, {
   3.7568307478425264`*^9, 3.756830783108801*^9}, {3.75683295096911*^9, 
   3.7568331191400194`*^9}, {3.756833814295746*^9, 3.7568338325463285`*^9}, {
   3.756833951437146*^9, 3.7568340388269424`*^9}, {3.7568340792181416`*^9, 
   3.7568340877815027`*^9}, {3.75683418598385*^9, 3.756834210943344*^9}, {
   3.75683544876544*^9, 3.7568354731667395`*^9}, {3.7568738416775813`*^9, 
   3.7568738725072966`*^9}, {3.7568739161814985`*^9, 3.7568739231193314`*^9}, 
   3.7568742682624674`*^9, {3.756874319608945*^9, 3.7568743286719217`*^9}, 
   3.756874694097374*^9, {3.756874957160054*^9, 3.756874995878129*^9}, {
   3.7568751700674744`*^9, 3.7568752125345592`*^9}, {3.7570540759948606`*^9, 
   3.7570540763239937`*^9}, {3.757308854018956*^9, 3.757308869644778*^9}, {
   3.7573090469369755`*^9, 3.757309048437054*^9}, 3.757315574167002*^9, {
   3.757315626815372*^9, 3.7573156295527754`*^9}, {3.757315777257266*^9, 
   3.7573158898106236`*^9}, {3.7573159492402163`*^9, 3.757316005662812*^9}, {
   3.757574731622512*^9, 3.7575747478319955`*^9}, {3.757574778480777*^9, 
   3.757574808403496*^9}, {3.7575929730040517`*^9, 3.757592998566194*^9}, 
   3.7579442100808444`*^9, {3.757945849826558*^9, 3.7579458514849634`*^9}, {
   3.76285113456631*^9, 3.7628511855175505`*^9}, {3.762852025450832*^9, 
   3.7628520264821367`*^9}, {3.7628520938763037`*^9, 
   3.7628521388786697`*^9}, {3.7628522585935435`*^9, 3.762852380631209*^9}, {
   3.762852413742323*^9, 3.762852473557966*^9}, {3.762874031581403*^9, 
   3.762874074239884*^9}, {3.7628741405028687`*^9, 3.762874234054658*^9}, {
   3.7628743402544622`*^9, 3.762874366896456*^9}, {3.7628745985678873`*^9, 
   3.7628746736187057`*^9}, {3.7628748394420385`*^9, 3.762874841317136*^9}, {
   3.7628782804354563`*^9, 3.76287830726501*^9}, {3.762878347173369*^9, 
   3.7628783948008413`*^9}, {3.7628784502100124`*^9, 3.7628784529133*^9}, {
   3.762878483477406*^9, 3.762878486649417*^9}, {3.762879815240635*^9, 
   3.7628798162713966`*^9}, {3.7628798864634624`*^9, 
   3.7628798943701296`*^9}, {3.7628799477008734`*^9, 
   3.7628799579670663`*^9}, {3.7628799948131657`*^9, 
   3.7628800055788293`*^9}, {3.7628800923807087`*^9, 3.762880170337929*^9}, {
   3.762880595796664*^9, 3.7628805965154204`*^9}, 3.762880886640071*^9, {
   3.762880989536103*^9, 3.762880990348646*^9}, 3.762881274779883*^9, {
   3.7628849170062103`*^9, 3.762884919372237*^9}, 3.762958515595064*^9, {
   3.762958955465438*^9, 3.7629589570935926`*^9}, 3.762960897492858*^9, 
   3.7629609744544306`*^9, 3.7629610170922346`*^9, {3.7691745145919466`*^9, 
   3.7691745768168573`*^9}, {3.7692559674029837`*^9, 
   3.7692559810871177`*^9}, {3.7692560197799463`*^9, 3.769256022104496*^9}, {
   3.7692584733332596`*^9, 3.769258476919654*^9}, {3.84595797075854*^9, 
   3.8459579757973337`*^9}},
 CellLabel->
  "In[241]:=",ExpressionUUID->"1599ea3d-ab46-4945-8087-a1d3a65ae0fe"]
}, Closed]],

Cell[CellGroupData[{

Cell["M-H Step M1", "Subsubsection",
 CellChangeTimes->{{3.753167802475073*^9, 3.7531678196870766`*^9}, {
   3.753261711386198*^9, 3.7532617675796614`*^9}, {3.75560969643717*^9, 
   3.755609777263081*^9}, {3.7558488884684715`*^9, 3.7558488947986946`*^9}, 
   3.756361731704565*^9, {3.756659269476293*^9, 3.7566592746367435`*^9}, {
   3.7575186697357063`*^9, 3.7575186706963167`*^9}, 3.757600531020064*^9, 
   3.7587015919453073`*^9, {3.75870180049432*^9, 3.7587018086425567`*^9}, {
   3.7628509713223248`*^9, 3.7628509733380537`*^9}, {3.762883734365547*^9, 
   3.762883736222788*^9}},ExpressionUUID->"0d2e0872-edb9-4417-b2b7-\
28429f5e872e"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"MHstepM1", "[", 
     RowBox[{"vecy1T_", ",", "X1T_", ",", "T_", ",", "dim_", ",", 
      RowBox[{"{", 
       RowBox[{"M1_", ",", 
        RowBox[{"{", 
         RowBox[{
         "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
          "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
        "tilL_", ",", 
        RowBox[{"{", 
         RowBox[{"tilQMat_", ",", "tilSigmaMat_"}], "}"}]}], "}"}], ",", 
      "s1_", ",", "s2_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"KMMH", "=", 
        RowBox[{"Kint", "[", 
         RowBox[{"X1T", ",", "X1T", ",", 
          RowBox[{"Exp", "[", "tilL", "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"AMH", ",", "CmatMH", ",", "CmatStarMH"}], "}"}], "=", 
        RowBox[{"rbcACmat", "[", 
         RowBox[{"reparametrizationFInv", "[", 
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"QMH", ",", "SigmaMH"}], "}"}], "=", 
        RowBox[{"reparametrizationFQSInv", "[", 
         RowBox[{"{", 
          RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"thetaMinusList", "=", 
        RowBox[{"{", 
         RowBox[{"M1", ",", 
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
          "tilL", ",", 
          RowBox[{"{", 
           RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}]}], "}"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"newMeanM1GivenThetaMinus1", "=", 
        RowBox[{"newMeanM1", "[", 
         RowBox[{
         "vecy1T", ",", "vecx2TMH", ",", "vecx1T1MH", ",", "vecx1TMH", ",", 
          "X1T", ",", "T", ",", "KMMH", ",", 
          RowBox[{"{", 
           RowBox[{"M1", ",", 
            RowBox[{"{", 
             RowBox[{
             "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
              "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
            "tilL", ",", 
            RowBox[{"{", 
             RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}]}], "}"}], ",", 
          "s1"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"mean", " ", "for", " ", "q", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Theta]_", "*"}], " ", "|", " ", 
            RowBox[{"\[Theta]", "[", 
             RowBox[{"n", "-", "1"}], "]"}]}], ",", " ", 
           RowBox[{"X1", ":", "T"}], ",", " ", 
           RowBox[{"y1", ":", "T"}]}], ")"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "1", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"thetaStarList", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"drawPropM1", "[", 
           RowBox[{"newMeanM1GivenThetaMinus1", ",", "s2"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
          "tilL", ",", 
          RowBox[{"{", 
           RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}]}], "}"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "thetastarlist", " ", "is", " ", "the", " ", "candidate", " ", 
          "theta", " ", "draw", " ", "as", " ", "a", " ", "list", " ", "of", 
          " ", 
          RowBox[{"lists", ".", " ", 
           RowBox[{"We", "'"}]}], "ll", " ", "need", " ", "to", " ", 
          "transform", " ", "it", " ", "into", " ", "a", " ", "proper", " ", 
          "vector", " ", "using", " ", "only", " ", "the", " ", "upper", " ", 
          "triangular", " ", "matrix", " ", "of", " ", "M1"}], ",", " ", 
         RowBox[{
         "the", " ", "main", " ", "diagonal", " ", "of", " ", "Q", " ", "and",
           " ", "Sigma"}]}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "2", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"KMMHThetaStar", "=", "KMMH"}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"In", " ", "this", " ", "MH", " ", "step", " ", "KMMH"}], 
         " ", "=", " ", 
         RowBox[{"Kint", "[", 
          RowBox[{"X1T", ",", "X1T", ",", 
           RowBox[{"Exp", "[", 
            RowBox[{
            "thetaStarList", "\[LeftDoubleBracket]", "3", 
             "\[RightDoubleBracket]"}], "]"}]}], "]"}]}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"newMeanM1GivenThetaStarList", "=", 
        RowBox[{"newMeanM1", "[", 
         RowBox[{
         "vecy1T", ",", "vecx2TMH", ",", "vecx1T1MH", ",", "vecx1TMH", ",", 
          "X1T", ",", "T", ",", "KMMHThetaStar", ",", "thetaStarList", ",", 
          "s1"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"mean", " ", "for", " ", "q", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Theta]", "[", 
             RowBox[{"n", "-", "1"}], "]"}], "|", 
            RowBox[{"\[Theta]_", "*"}]}], " ", ",", " ", 
           RowBox[{"X1", ":", "T"}], ",", " ", 
           RowBox[{"y1", ":", "T"}]}], ")"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<Before acceptstep\>\"", "]"}], ";"}], 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{"AcceptanceStep", "[", 
        RowBox[{
        "vecy1T", ",", "X1T", ",", "T", ",", "thetaMinusList", ",", 
         "thetaStarList", ",", "newMeanM1GivenThetaMinus1", ",", 
         "newMeanM1GivenThetaStarList", ",", "s1", ",", "s2", ",", "4"}], 
        "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.7531684432370644`*^9, 3.753168443799622*^9}, {
   3.753261488465584*^9, 3.753261505351841*^9}, {3.7534280018249025`*^9, 
   3.753428012320969*^9}, {3.753429372645896*^9, 3.75342938219312*^9}, {
   3.755500152757572*^9, 3.7555001544939785`*^9}, {3.755500245602987*^9, 
   3.7555002497426696`*^9}, 3.7555002875238595`*^9, {3.755500375712425*^9, 
   3.755500377798619*^9}, {3.7555004982294044`*^9, 3.755500499778499*^9}, {
   3.75550053063223*^9, 3.7555006268824463`*^9}, {3.7555008900249815`*^9, 
   3.7555008918552995`*^9}, {3.755500952684757*^9, 3.7555010195863733`*^9}, {
   3.755501075851124*^9, 3.755501101847068*^9}, {3.7555011325701447`*^9, 
   3.75550116319732*^9}, {3.755501204696529*^9, 3.755501266736082*^9}, 
   3.7555260330602927`*^9, {3.7555260652397723`*^9, 3.7555260683818684`*^9}, {
   3.755526103934602*^9, 3.755526108136594*^9}, {3.7555267099043274`*^9, 
   3.755526712977377*^9}, {3.75552677274926*^9, 3.7555268376697445`*^9}, {
   3.7555269032825403`*^9, 3.755526924373891*^9}, {3.7555272440555105`*^9, 
   3.7555272991282716`*^9}, 3.7555273337994137`*^9, {3.755527768640174*^9, 
   3.755527771160856*^9}, {3.75552806376054*^9, 3.7555280654026346`*^9}, {
   3.755528137497758*^9, 3.755528142183885*^9}, {3.7555283288735247`*^9, 
   3.7555283440235453`*^9}, {3.755528878859112*^9, 3.755528929471895*^9}, {
   3.755529092644082*^9, 3.7555290959753075`*^9}, {3.7555295166084766`*^9, 
   3.7555295175270896`*^9}, {3.7555301653449335`*^9, 3.755530166097436*^9}, {
   3.75553133058478*^9, 3.7555313314793777`*^9}, {3.7558447867299557`*^9, 
   3.755844836897441*^9}, {3.7564752542292213`*^9, 3.7564752916342025`*^9}, {
   3.756475513144149*^9, 3.7564755376455135`*^9}, {3.7564755816709175`*^9, 
   3.756475600482482*^9}, {3.7564813237647552`*^9, 3.756481339709405*^9}, {
   3.756481394914277*^9, 3.7564813951164107`*^9}, {3.7564814265719523`*^9, 
   3.7564814314442053`*^9}, {3.756481703918624*^9, 3.7564817346281347`*^9}, {
   3.756481764654182*^9, 3.756481765036438*^9}, 3.7564818885317535`*^9, {
   3.756482155997269*^9, 3.7564821664019437`*^9}, {3.756486488740775*^9, 
   3.75648655547716*^9}, {3.7564867418367615`*^9, 3.7564867490812683`*^9}, 
   3.7564869286504717`*^9, {3.7565551269126167`*^9, 3.756555135475237*^9}, {
   3.7565551658410635`*^9, 3.756555302053189*^9}, {3.756555500481775*^9, 
   3.756555656756198*^9}, {3.756555853124647*^9, 3.7565558591326838`*^9}, {
   3.75655611247618*^9, 3.75655614166353*^9}, {3.756556452153594*^9, 
   3.756556458530512*^9}, {3.7565566895028553`*^9, 3.7565567010374413`*^9}, {
   3.75655676803086*^9, 3.756556783607879*^9}, {3.756620255289236*^9, 
   3.7566202673757896`*^9}, {3.7566593570037527`*^9, 3.75665936028094*^9}, {
   3.75670611386351*^9, 3.756706151662369*^9}, {3.756706183101516*^9, 
   3.7567062404326334`*^9}, {3.7567062720280437`*^9, 3.75670633418756*^9}, {
   3.7567063997535353`*^9, 3.7567064813984203`*^9}, {3.7567067175435605`*^9, 
   3.7567067232162237`*^9}, {3.7567067551388283`*^9, 3.756706773197563*^9}, {
   3.756821037344*^9, 3.756821039576949*^9}, {3.756821130499963*^9, 
   3.7568212590006866`*^9}, {3.756826427591666*^9, 3.756826436030303*^9}, {
   3.756826474733343*^9, 3.756826484843964*^9}, {3.756826702234287*^9, 
   3.756826749966615*^9}, {3.756829545154735*^9, 3.756829588171277*^9}, {
   3.7568307478425264`*^9, 3.756830783108801*^9}, {3.75683295096911*^9, 
   3.7568331191400194`*^9}, {3.756833814295746*^9, 3.7568338325463285`*^9}, {
   3.756833951437146*^9, 3.7568340388269424`*^9}, {3.7568340792181416`*^9, 
   3.7568340877815027`*^9}, {3.75683418598385*^9, 3.756834210943344*^9}, {
   3.75683544876544*^9, 3.7568354731667395`*^9}, {3.7568738416775813`*^9, 
   3.7568738725072966`*^9}, {3.7568739161814985`*^9, 3.7568739231193314`*^9}, 
   3.7568742682624674`*^9, {3.756874319608945*^9, 3.7568743286719217`*^9}, 
   3.756874694097374*^9, {3.756874957160054*^9, 3.756874995878129*^9}, {
   3.7568751700674744`*^9, 3.7568752125345592`*^9}, {3.7570540759948606`*^9, 
   3.7570540763239937`*^9}, {3.757308854018956*^9, 3.757308869644778*^9}, {
   3.7573090469369755`*^9, 3.757309048437054*^9}, 3.757315574167002*^9, {
   3.757315626815372*^9, 3.7573156295527754`*^9}, {3.757315777257266*^9, 
   3.7573158898106236`*^9}, {3.7573159492402163`*^9, 3.757316005662812*^9}, {
   3.757574731622512*^9, 3.7575747478319955`*^9}, {3.757574778480777*^9, 
   3.757574808403496*^9}, {3.7575929730040517`*^9, 3.757592998566194*^9}, 
   3.7579442100808444`*^9, {3.757945849826558*^9, 3.7579458514849634`*^9}, {
   3.76285113456631*^9, 3.7628511855175505`*^9}, {3.762852025450832*^9, 
   3.7628520264821367`*^9}, {3.7628520938763037`*^9, 
   3.7628521388786697`*^9}, {3.7628522585935435`*^9, 3.762852380631209*^9}, {
   3.762852413742323*^9, 3.762852473557966*^9}, {3.762874031581403*^9, 
   3.762874074239884*^9}, {3.7628741405028687`*^9, 3.762874234054658*^9}, {
   3.7628743402544622`*^9, 3.762874366896456*^9}, {3.7628745985678873`*^9, 
   3.7628746736187057`*^9}, {3.7628748394420385`*^9, 3.762874841317136*^9}, {
   3.7628782804354563`*^9, 3.76287830726501*^9}, {3.762878347173369*^9, 
   3.7628783948008413`*^9}, {3.7628784502100124`*^9, 3.7628784529133*^9}, {
   3.762878483477406*^9, 3.762878486649417*^9}, {3.762879815240635*^9, 
   3.7628798162713966`*^9}, {3.7628798864634624`*^9, 
   3.7628798943701296`*^9}, {3.7628799477008734`*^9, 
   3.7628799579670663`*^9}, {3.7628799948131657`*^9, 
   3.7628800055788293`*^9}, {3.7628800923807087`*^9, 3.762880170337929*^9}, {
   3.762880595796664*^9, 3.7628805965154204`*^9}, 3.762880886640071*^9, {
   3.762880989536103*^9, 3.762880990348646*^9}, 3.76288150590228*^9, {
   3.7628833304815845`*^9, 3.762883457210332*^9}, {3.762883515280116*^9, 
   3.762883547554671*^9}, {3.7628835818635874`*^9, 3.7628835895617285`*^9}, {
   3.7628837870427303`*^9, 3.7628838644294167`*^9}, {3.7628839019604845`*^9, 
   3.7628839024418077`*^9}, {3.762884556560063*^9, 3.762884595530712*^9}, {
   3.762884722647055*^9, 3.7628847240301914`*^9}, {3.7628847659165335`*^9, 
   3.762884766300679*^9}, 3.762958538083767*^9, {3.7629590049710793`*^9, 
   3.762959010002594*^9}, {3.762961076626641*^9, 3.762961087658441*^9}, {
   3.769174601905257*^9, 3.7691746410623713`*^9}, {3.769261076494376*^9, 
   3.7692611340124245`*^9}, {3.7692613516047106`*^9, 3.769261354823628*^9}, 
   3.769261413978751*^9, {3.845957989020673*^9, 3.8459579921092014`*^9}},
 CellLabel->
  "In[242]:=",ExpressionUUID->"e85329eb-2c76-4475-a0f1-7a03a1d7f0fd"]
}, Closed]],

Cell[CellGroupData[{

Cell["M-H Global", "Subsubsection",
 CellChangeTimes->{{3.753167802475073*^9, 3.7531678196870766`*^9}, {
   3.753261711386198*^9, 3.7532617675796614`*^9}, {3.75560969643717*^9, 
   3.755609777263081*^9}, {3.7558488884684715`*^9, 3.7558488947986946`*^9}, 
   3.756361731704565*^9, {3.756659269476293*^9, 3.7566592746367435`*^9}, {
   3.7575186697357063`*^9, 3.7575186706963167`*^9}, 3.757600531020064*^9, 
   3.7587015919453073`*^9, {3.75870180049432*^9, 3.7587018086425567`*^9}, {
   3.7628509713223248`*^9, 3.7628509733380537`*^9}, {3.762883734365547*^9, 
   3.762883736222788*^9}, {3.7629600832446594`*^9, 
   3.7629600848541174`*^9}},ExpressionUUID->"6dcf37fa-8f29-4e49-8212-\
f1b5568f60b6"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"MHstepGlobal", "[", 
     RowBox[{"vecy1T_", ",", "X1T_", ",", "T_", ",", "dim_", ",", 
      RowBox[{"{", 
       RowBox[{"M1_", ",", 
        RowBox[{"{", 
         RowBox[{
         "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
          "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
        "tilL_", ",", 
        RowBox[{"{", 
         RowBox[{"tilQMat_", ",", "tilSigmaMat_"}], "}"}]}], "}"}], ",", 
      "s1_", ",", "s2_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"x2TMH", "=", 
        RowBox[{"Drop", "[", 
         RowBox[{"X1T", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"x1T1MH", "=", 
        RowBox[{"Drop", "[", 
         RowBox[{"X1T", ",", 
          RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
        "We", " ", "use", " ", "ArrayReshape", " ", "since", " ", "the", " ", 
         "matrix", " ", "X1T", " ", "is", " ", "made", " ", "of", " ", "ROWS",
          " ", "of", " ", "observations"}], "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"vecx2TMH", "=", 
        RowBox[{"ArrayReshape", "[", 
         RowBox[{"x2TMH", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Times", "@@", 
             RowBox[{"Dimensions", "[", "x2TMH", "]"}]}], ",", "1"}], "}"}]}],
          "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"vecx1TMH", "=", 
        RowBox[{"ArrayReshape", "[", 
         RowBox[{"X1T", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Times", "@@", 
             RowBox[{"Dimensions", "[", "X1T", "]"}]}], ",", "1"}], "}"}]}], 
         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"vecx1T1MH", "=", 
        RowBox[{"ArrayReshape", "[", 
         RowBox[{"x1T1MH", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Times", "@@", 
             RowBox[{"Dimensions", "[", "x1T1MH", "]"}]}], ",", "1"}], 
           "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
        "The", " ", "vectorizations", " ", "above", " ", "will", " ", "be", 
         " ", "used", " ", "by", " ", "all", " ", "the", " ", "MH", " ", 
         "Steps", " ", "defined", " ", 
         RowBox[{"above", "."}]}], "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<MHstepEcon\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"resGlobal", ",", "acceptEcon"}], "}"}], "=", 
        RowBox[{"MHstepEcon", "[", 
         RowBox[{"vecy1T", ",", "X1T", ",", "T", ",", "dim", ",", 
          RowBox[{"{", 
           RowBox[{"M1", ",", 
            RowBox[{"{", 
             RowBox[{
             "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
              "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
            "tilL", ",", 
            RowBox[{"{", 
             RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}]}], "}"}], ",", 
          "s1", ",", "s2"}], "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<MHstepVars\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"resGlobal", ",", "acceptVars"}], "}"}], "=", 
        RowBox[{"MHstepVars", "[", 
         RowBox[{
         "vecy1T", ",", "X1T", ",", "T", ",", "dim", ",", "resGlobal", ",", 
          "s1", ",", "s2"}], "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<MHstepL\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"resGlobal", ",", "acceptL"}], "}"}], "=", 
        RowBox[{"MHstepL", "[", 
         RowBox[{
         "vecy1T", ",", "X1T", ",", "T", ",", "dim", ",", "resGlobal", ",", 
          "s1", ",", "s2"}], "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<MHstepM1\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"resGlobal", ",", "acceptM1"}], "}"}], "=", 
        RowBox[{"MHstepM1", "[", 
         RowBox[{
         "vecy1T", ",", "X1T", ",", "T", ",", "dim", ",", "resGlobal", ",", 
          "s1", ",", "s2"}], "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"resGlobal", ",", 
         RowBox[{"{", 
          RowBox[{
          "acceptEcon", ",", "acceptVars", ",", "acceptL", ",", "acceptM1"}], 
          "}"}]}], "}"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
     "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.7531684432370644`*^9, 3.753168443799622*^9}, {
   3.753261488465584*^9, 3.753261505351841*^9}, {3.7534280018249025`*^9, 
   3.753428012320969*^9}, {3.753429372645896*^9, 3.75342938219312*^9}, {
   3.755500152757572*^9, 3.7555001544939785`*^9}, {3.755500245602987*^9, 
   3.7555002497426696`*^9}, 3.7555002875238595`*^9, {3.755500375712425*^9, 
   3.755500377798619*^9}, {3.7555004982294044`*^9, 3.755500499778499*^9}, {
   3.75550053063223*^9, 3.7555006268824463`*^9}, {3.7555008900249815`*^9, 
   3.7555008918552995`*^9}, {3.755500952684757*^9, 3.7555010195863733`*^9}, {
   3.755501075851124*^9, 3.755501101847068*^9}, {3.7555011325701447`*^9, 
   3.75550116319732*^9}, {3.755501204696529*^9, 3.755501266736082*^9}, 
   3.7555260330602927`*^9, {3.7555260652397723`*^9, 3.7555260683818684`*^9}, {
   3.755526103934602*^9, 3.755526108136594*^9}, {3.7555267099043274`*^9, 
   3.755526712977377*^9}, {3.75552677274926*^9, 3.7555268376697445`*^9}, {
   3.7555269032825403`*^9, 3.755526924373891*^9}, {3.7555272440555105`*^9, 
   3.7555272991282716`*^9}, 3.7555273337994137`*^9, {3.755527768640174*^9, 
   3.755527771160856*^9}, {3.75552806376054*^9, 3.7555280654026346`*^9}, {
   3.755528137497758*^9, 3.755528142183885*^9}, {3.7555283288735247`*^9, 
   3.7555283440235453`*^9}, {3.755528878859112*^9, 3.755528929471895*^9}, {
   3.755529092644082*^9, 3.7555290959753075`*^9}, {3.7555295166084766`*^9, 
   3.7555295175270896`*^9}, {3.7555301653449335`*^9, 3.755530166097436*^9}, {
   3.75553133058478*^9, 3.7555313314793777`*^9}, {3.7558447867299557`*^9, 
   3.755844836897441*^9}, {3.7564752542292213`*^9, 3.7564752916342025`*^9}, {
   3.756475513144149*^9, 3.7564755376455135`*^9}, {3.7564755816709175`*^9, 
   3.756475600482482*^9}, {3.7564813237647552`*^9, 3.756481339709405*^9}, {
   3.756481394914277*^9, 3.7564813951164107`*^9}, {3.7564814265719523`*^9, 
   3.7564814314442053`*^9}, {3.756481703918624*^9, 3.7564817346281347`*^9}, {
   3.756481764654182*^9, 3.756481765036438*^9}, 3.7564818885317535`*^9, {
   3.756482155997269*^9, 3.7564821664019437`*^9}, {3.756486488740775*^9, 
   3.75648655547716*^9}, {3.7564867418367615`*^9, 3.7564867490812683`*^9}, 
   3.7564869286504717`*^9, {3.7565551269126167`*^9, 3.756555135475237*^9}, {
   3.7565551658410635`*^9, 3.756555302053189*^9}, {3.756555500481775*^9, 
   3.756555656756198*^9}, {3.756555853124647*^9, 3.7565558591326838`*^9}, {
   3.75655611247618*^9, 3.75655614166353*^9}, {3.756556452153594*^9, 
   3.756556458530512*^9}, {3.7565566895028553`*^9, 3.7565567010374413`*^9}, {
   3.75655676803086*^9, 3.756556783607879*^9}, {3.756620255289236*^9, 
   3.7566202673757896`*^9}, {3.7566593570037527`*^9, 3.75665936028094*^9}, {
   3.75670611386351*^9, 3.756706151662369*^9}, {3.756706183101516*^9, 
   3.7567062404326334`*^9}, {3.7567062720280437`*^9, 3.75670633418756*^9}, {
   3.7567063997535353`*^9, 3.7567064813984203`*^9}, {3.7567067175435605`*^9, 
   3.7567067232162237`*^9}, {3.7567067551388283`*^9, 3.756706773197563*^9}, {
   3.756821037344*^9, 3.756821039576949*^9}, {3.756821130499963*^9, 
   3.7568212590006866`*^9}, {3.756826427591666*^9, 3.756826436030303*^9}, {
   3.756826474733343*^9, 3.756826484843964*^9}, {3.756826702234287*^9, 
   3.756826749966615*^9}, {3.756829545154735*^9, 3.756829588171277*^9}, {
   3.7568307478425264`*^9, 3.756830783108801*^9}, {3.75683295096911*^9, 
   3.7568331191400194`*^9}, {3.756833814295746*^9, 3.7568338325463285`*^9}, {
   3.756833951437146*^9, 3.7568340388269424`*^9}, {3.7568340792181416`*^9, 
   3.7568340877815027`*^9}, {3.75683418598385*^9, 3.756834210943344*^9}, {
   3.75683544876544*^9, 3.7568354731667395`*^9}, {3.7568738416775813`*^9, 
   3.7568738725072966`*^9}, {3.7568739161814985`*^9, 3.7568739231193314`*^9}, 
   3.7568742682624674`*^9, {3.756874319608945*^9, 3.7568743286719217`*^9}, 
   3.756874694097374*^9, {3.756874957160054*^9, 3.756874995878129*^9}, {
   3.7568751700674744`*^9, 3.7568752125345592`*^9}, {3.7570540759948606`*^9, 
   3.7570540763239937`*^9}, {3.757308854018956*^9, 3.757308869644778*^9}, {
   3.7573090469369755`*^9, 3.757309048437054*^9}, 3.757315574167002*^9, {
   3.757315626815372*^9, 3.7573156295527754`*^9}, {3.757315777257266*^9, 
   3.7573158898106236`*^9}, {3.7573159492402163`*^9, 3.757316005662812*^9}, {
   3.757574731622512*^9, 3.7575747478319955`*^9}, {3.757574778480777*^9, 
   3.757574808403496*^9}, {3.7575929730040517`*^9, 3.757592998566194*^9}, 
   3.7579442100808444`*^9, {3.757945849826558*^9, 3.7579458514849634`*^9}, {
   3.76285113456631*^9, 3.7628511855175505`*^9}, {3.762852025450832*^9, 
   3.7628520264821367`*^9}, {3.7628520938763037`*^9, 
   3.7628521388786697`*^9}, {3.7628522585935435`*^9, 3.762852380631209*^9}, {
   3.762852413742323*^9, 3.762852473557966*^9}, {3.762874031581403*^9, 
   3.762874074239884*^9}, {3.7628741405028687`*^9, 3.762874234054658*^9}, {
   3.7628743402544622`*^9, 3.762874366896456*^9}, {3.7628745985678873`*^9, 
   3.7628746736187057`*^9}, {3.7628748394420385`*^9, 3.762874841317136*^9}, {
   3.7628782804354563`*^9, 3.76287830726501*^9}, {3.762878347173369*^9, 
   3.7628783948008413`*^9}, {3.7628784502100124`*^9, 3.7628784529133*^9}, {
   3.762878483477406*^9, 3.762878486649417*^9}, {3.762879815240635*^9, 
   3.7628798162713966`*^9}, {3.7628798864634624`*^9, 
   3.7628798943701296`*^9}, {3.7628799477008734`*^9, 
   3.7628799579670663`*^9}, {3.7628799948131657`*^9, 
   3.7628800055788293`*^9}, {3.7628800923807087`*^9, 3.762880170337929*^9}, {
   3.762880595796664*^9, 3.7628805965154204`*^9}, 3.762880886640071*^9, {
   3.762880989536103*^9, 3.762880990348646*^9}, 3.76288150590228*^9, {
   3.7628833304815845`*^9, 3.762883457210332*^9}, {3.762883515280116*^9, 
   3.762883547554671*^9}, {3.7628835818635874`*^9, 3.7628835895617285`*^9}, {
   3.7628837870427303`*^9, 3.7628838644294167`*^9}, {3.7628839019604845`*^9, 
   3.7628839024418077`*^9}, {3.762884556560063*^9, 3.762884595530712*^9}, {
   3.762884722647055*^9, 3.7628847240301914`*^9}, {3.7628847659165335`*^9, 
   3.762884766300679*^9}, 3.762958538083767*^9, {3.7629590049710793`*^9, 
   3.762959010002594*^9}, 3.7629601147596507`*^9, {3.7629602063905077`*^9, 
   3.7629602090938044`*^9}, {3.762960271505411*^9, 3.7629602933044906`*^9}, {
   3.7629603784808407`*^9, 3.7629604385777454`*^9}, {3.7629604905648255`*^9, 
   3.762960509834643*^9}, {3.7629606273349886`*^9, 3.762960693338456*^9}, {
   3.7629612814374356`*^9, 3.7629614486899185`*^9}, {3.7629616287025595`*^9, 
   3.762961640328167*^9}, {3.764310423648472*^9, 3.7643104706578503`*^9}, {
   3.769261645622851*^9, 3.7692616650613613`*^9}, {3.8459582267216005`*^9, 
   3.845958247410808*^9}},
 CellLabel->
  "In[243]:=",ExpressionUUID->"93b23485-b3b4-482b-9c0a-68f6d678319a"]
}, Closed]],

Cell[CellGroupData[{

Cell["PGASMK (Parallelized)", "Subsubsection",
 CellChangeTimes->{{3.753167758086465*^9, 3.7531677632918916`*^9}, {
  3.753261040531967*^9, 3.753261069895543*^9}, {3.755861398434972*^9, 
  3.7558613988881283`*^9}, {3.7559422438623285`*^9, 3.7559422460287843`*^9}, {
  3.756121757432315*^9, 3.7561217819023714`*^9}, {3.7563634311641088`*^9, 
  3.756363436320634*^9}},ExpressionUUID->"c4ebc413-3cec-4767-927d-\
7845587ddf48"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Particle", " ", "Gibbs", " ", "Ancestor", " ", "Sampling", " ", "Markov", 
    " ", "Kernel"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"PGASMK", "[", 
      RowBox[{
      "vecy1T_", ",", "X1T_", ",", "numParticles_", ",", "T_", ",", " ", 
       "dim_", ",", 
       RowBox[{"{", 
        RowBox[{"M1_", ",", 
         RowBox[{"{", 
          RowBox[{
          "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
           "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
         "tilL_", ",", 
         RowBox[{"{", 
          RowBox[{"tilQMat_", ",", "tilSigmaMat_"}], "}"}]}], "}"}]}], "]"}], 
     ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"APG", ",", "CmatPG", ",", "CmatStarPG"}], "}"}], "=", 
         RowBox[{"rbcACmat", "[", 
          RowBox[{"reparametrizationFInv", "[", 
           RowBox[{"{", 
            RowBox[{
            "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
             "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"QPG", ",", "SigmaPG"}], "}"}], "=", 
         RowBox[{"reparametrizationFQSInv", "[", 
          RowBox[{"{", 
           RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"M1PG", "=", "M1"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"refX1TPG", "=", "X1T"}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"with", " ", "dimensions", " ", "T", "*", "2"}], "  ", 
         "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"partmatXPG", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", 
            RowBox[{"T", ",", "numParticles"}], "}"}]}], "]"}]}], ";", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"each", " ", "line", " ", "t"}], ",", " ", 
          RowBox[{"with", " ", "row", " ", "i"}], ",", " ", 
          RowBox[{"will", " ", "have", " ", "a", " ", "x_", 
           RowBox[{
            RowBox[{
             RowBox[{"{", "t", "}"}], "^", "i"}], ".", " ", "See"}], " ", 
           "step", " ", "7"}]}], "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"matX1tPG", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", "numParticles", "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"normWlistPG", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{"0", ",", "T"}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"ancmatPG", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", 
            RowBox[{"T", ",", "numParticles"}], "}"}]}], "]"}]}], ";", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
          "ancmat", " ", "is", " ", "the", " ", "matrix", " ", "where", " ", 
           "each", " ", "column", " ", "will", " ", "give", " ", "the", " ", 
           "history", " ", "for", " ", "each", " ", 
           RowBox[{"particle", ".", "\[IndentingNewLine]", "Column"}], " ", 
           "i"}], ",", " ", 
          RowBox[{
          "is", " ", "the", " ", "whole", " ", "ancestry", " ", "of", " ", 
           "particle", " ", "i"}], ",", " ", 
          RowBox[{"up", " ", "to", " ", "time", " ", "t"}], ",", " ", 
          RowBox[{
           RowBox[{"i", ".", "e", ".", " ", 
            RowBox[{"{", 
             RowBox[{"1", ",", 
              RowBox[{
               RowBox[{"a", "^", "i_"}], "1"}]}], "}"}]}], " ", "to", " ", 
           RowBox[{"{", 
            RowBox[{"t", ",", 
             RowBox[{
              RowBox[{"a", "^", "i_"}], 
              RowBox[{"{", "t", "}"}]}]}], "}"}], "\[IndentingNewLine]", 
           "The", " ", "first", " ", "line", " ", "will", " ", "have", " ", 
           "only", " ", "zeros"}], ",", " ", 
          RowBox[{
          "since", " ", "x_", "1", " ", "has", " ", "no", " ", 
           "ancestors"}]}], "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"partmatXPG", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "=", 
         RowBox[{"RandomVariate", "[", 
          RowBox[{
           RowBox[{"MultinormalDistribution", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}], ",", 
             RowBox[{"2", "*", 
              RowBox[{"IdentityMatrix", "[", "2", "]"}]}]}], "]"}], ",", 
           "numParticles"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"each", " ", "line", " ", "t"}], ",", " ", 
          RowBox[{"with", " ", "row", " ", "i"}], ",", " ", 
          RowBox[{"will", " ", "have", " ", "a", " ", "x_", 
           RowBox[{
            RowBox[{"{", "t", "}"}], "^", "i"}]}]}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
           RowBox[{
           "supposedly", " ", "we", " ", "only", " ", "need", " ", "up", " ", 
            "to", " ", "num"}], "-", "1"}], ",", " ", 
          RowBox[{"but", " ", 
           RowBox[{"it", "'"}], "s", " ", "faster", " ", "this", " ", "way", 
           "\[IndentingNewLine]", "Also"}], ",", " ", 
          RowBox[{
           RowBox[{"partmatX", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", "is", " ", "x_", "0"}]}], 
         "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"matX1tPG", "=", 
         RowBox[{"Transpose", "[", 
          RowBox[{"{", 
           RowBox[{"partmatXPG", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "}"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"This", " ", "is", " ", "step", " ", "2"}], "*)"}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"partmatXPG", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "numParticles"}], "]"}], "]"}], "=", 
         RowBox[{"refX1TPG", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"matX1tPG", "[", 
          RowBox[{"[", 
           RowBox[{"numParticles", ",", "1"}], "]"}], "]"}], "=", 
         RowBox[{"refX1TPG", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"this", " ", "is", " ", "step", " ", "3"}], "*)"}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"normWPG", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{
           RowBox[{"1", "/", "numParticles"}], ",", "numParticles"}], "]"}]}],
         ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"columnlistPG", "=", 
         RowBox[{"Table", "[", 
          RowBox[{"i", ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", "numParticles"}], "}"}]}], "]"}]}], 
        ";", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
          "n\.ba", " ", "of", " ", "columns", " ", "in", " ", "vector", " ", 
           "for", " ", "partmatX"}], ",", " ", 
          RowBox[{"or", " ", "ancmat"}]}], "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"timePG", "=", "2"}], ";", 
        RowBox[{"(*", " ", 
         RowBox[{"time", "=", 
          RowBox[{
          "1", " ", "\[EAcute]", " ", "tempo", " ", "0", " ", "para", " ", 
           "partmatX"}]}], "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"While", "[", 
         RowBox[{
          RowBox[{"timePG", "\[LessEqual]", "T"}], 
          RowBox[{"(*", "T", "*)"}], ",", "\[IndentingNewLine]", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"normWlistPG", "[", 
             RowBox[{"[", 
              RowBox[{"timePG", "-", "1"}], "]"}], "]"}], "=", "normWPG"}], 
           ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", 
              RowBox[{"\"\<normWlistPG=\>\"", ",", "normWlistPG"}], "]"}], 
             ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"aitPG", "=", 
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{
               RowBox[{"RandomVariate", "[", 
                RowBox[{
                 RowBox[{"MultinomialDistribution", "[", 
                  RowBox[{"1", ",", "normWPG"}], "]"}], ",", "numParticles"}],
                 "]"}], ",", "1"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{";;", ",", "2"}], "]"}], "]"}]}], ";", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{
             "ait", " ", "is", " ", "a", " ", "vector", " ", "of", " ", 
              "categories"}], ",", " ", 
             RowBox[{
             "stating", " ", "where", " ", "each", " ", "comes", " ", 
              "from"}], ",", " ", 
             RowBox[{
              RowBox[{"i", ".", "e", ".", " ", 
               RowBox[{"it", "'"}]}], "s", " ", 
              RowBox[{"a_t", "^", "i"}]}]}], "*)"}], "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"This", " ", "is", " ", "step", " ", "6"}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", "\"\<2\>\"", "]"}], ";"}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"ait2PG", "=", 
            RowBox[{"Transpose", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"ConstantArray", "[", 
                RowBox[{
                 RowBox[{"timePG", "-", "1"}], ",", "numParticles"}], "]"}], 
               ",", "aitPG"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"vector", " ", "with", " ", "elements", " ", 
              RowBox[{"ait2", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], "=", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"t", "-", "1"}], ")"}], "-", 
                RowBox[{"th", " ", "time"}]}], ",", " ", 
               RowBox[{"a_t", "^", "i"}]}], "}"}]}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"ancmatPG", "[", 
             RowBox[{"[", "timePG", "]"}], "]"}], "=", "ait2PG"}], ";", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"ancestry", " ", "for", " ", "time"}], " ", "=", " ", 
             "timePG"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"xt1aitPG", "=", 
            RowBox[{"Extract", "[", 
             RowBox[{"partmatXPG", ",", "ait2PG"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"This", " ", "creates", " ", "x_", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"t", "-", "1"}], "}"}], "^", 
               RowBox[{"{", 
                RowBox[{"a_t", "^", "i"}], "}"}]}]}], ",", " ", 
             RowBox[{
             "which", " ", "is", " ", "the", " ", "only", " ", "value", " ", 
              "need", " ", "for", " ", "step", " ", "7"}]}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", "\"\<3\>\"", "]"}], ";"}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"partmatXPG", "[", 
             RowBox[{"[", "timePG", "]"}], "]"}], "=", 
            RowBox[{"ParallelMap", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"transitionDrawPG", "[", 
                RowBox[{"#", ",", "APG", ",", "QPG"}], "]"}], "&"}], ",", 
              "xt1aitPG"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
            "This", " ", "is", " ", "step", " ", "7.", "\[IndentingNewLine]", 
             RowBox[{"It", "'"}], "s", " ", "faster", " ", "to", " ", "do", 
             " ", "for", " ", "every", " ", 
             RowBox[{"column", ".", " ", "Last"}], " ", "column", " ", "will",
              " ", "be", " ", "changed", " ", 
             RowBox[{"below", "."}]}], "*)"}], "\[IndentingNewLine]", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"partmatXPG", "[", 
             RowBox[{"[", 
              RowBox[{"timePG", ",", "numParticles"}], "]"}], "]"}], "=", 
            RowBox[{"refX1TPG", "[", 
             RowBox[{"[", "timePG", "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{
             "This", " ", "is", " ", "step", " ", "10.", " ", "Its", " ", 
              "order", " ", "is", " ", "interchangeable"}], ",", " ", 
             RowBox[{"as", " ", "long", " ", "as", " ", 
              RowBox[{"it", "'"}], "s", " ", "computed", " ", "before", " ", 
              "normW"}]}], "*)"}], "\[IndentingNewLine]", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", "\"\<4\>\"", "]"}], ";"}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"matX1TrefX1TPG", "=", 
            RowBox[{"Parallelize", "[", 
             RowBox[{"Map", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Join", "[", 
                 RowBox[{
                  RowBox[{"matX1tPG", "[", 
                   RowBox[{"[", "#", "]"}], "]"}], ",", 
                  RowBox[{"refX1TPG", "[", 
                   RowBox[{"[", 
                    RowBox[{"timePG", ";;", "T"}], "]"}], "]"}]}], "]"}], 
                "&"}], ",", "columnlistPG"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"At", " ", "the", " ", "least"}], ",", " ", 
             RowBox[{
              RowBox[{
              "we", " ", "always", " ", "use", " ", "x_", "1.", 
               "\[IndentingNewLine]", "matX1TrefX1TPG", " ", "is", " ", "a", 
               " ", "matrix", " ", "in", " ", "which", " ", "each", " ", 
               "i"}], "-", 
              RowBox[{"th", " ", "ROW", " ", "has", " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"x_", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"1", ":", 
                    RowBox[{"t", "-", "1"}]}], "}"}], "^", "i"}]}], ",", 
                  RowBox[{
                   RowBox[{"\\", "tilde"}], 
                   RowBox[{"{", "x", "}"}], "_", 
                   RowBox[{"{", 
                    RowBox[{"t", ":", "T"}], "}"}]}]}], ")"}], ".", 
                "\[IndentingNewLine]", "We"}], " ", "need", " ", "this", " ", 
               "for", " ", "tilde", " ", "weights"}]}]}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", "\"\<5\>\"", "]"}], ";"}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"normWPG", "=", 
            RowBox[{"(", 
             RowBox[{"normWPG", "/.", 
              RowBox[{"{", 
               RowBox[{"0.", "\[Rule]", "$MinMachineNumber"}], "}"}]}], 
             ")"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{
             "So", " ", "that", " ", "we", " ", "can", " ", "use", " ", 
              RowBox[{
               RowBox[{"Log", "[", "]"}], ".", " ", "If"}], " ", "the", " ", 
              "other", " ", "elements", " ", "are", " ", "very", " ", 
              "different"}], ",", " ", 
             RowBox[{"when", " ", "we", " ", "normalize", " ", "tildeWPG"}], 
             ",", " ", 
             RowBox[{
             "they", " ", "will", " ", "have", " ", "a", " ", "negligible", 
              " ", "effect"}]}], "*)"}], "\[IndentingNewLine]", 
           "\[IndentingNewLine]", 
           RowBox[{"tildeWPG", "=", 
            RowBox[{
             RowBox[{"Log", "[", "normWPG", "]"}], "+", 
             RowBox[{"Parallelize", "[", 
              RowBox[{"MapThread", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"logMultinormalDens", "[", 
                   RowBox[{
                    RowBox[{"refX1TPG", "[", 
                    RowBox[{"[", "timePG", "]"}], "]"}], ",", 
                    RowBox[{"APG", ".", 
                    RowBox[{"(", 
                    RowBox[{"#2", "[", 
                    RowBox[{"[", 
                    RowBox[{"timePG", "-", "1"}], "]"}], "]"}], ")"}]}], ",", 
                    "QPG"}], "]"}], "+", 
                  RowBox[{"logCondNormal", "[", 
                   RowBox[{"vecy1T", ",", "#1", ",", 
                    RowBox[{"timePG", "-", "1"}], ",", "T", ",", "M1PG", ",", 
                    "tilL", ",", "CmatPG", ",", "CmatStarPG", ",", 
                    "SigmaPG"}], "]"}]}], "&"}], ",", 
                RowBox[{"{", 
                 RowBox[{"matX1TrefX1TPG", ",", "matX1tPG"}], "}"}]}], "]"}], 
              "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"multinormalDens", "[", 
             RowBox[{"x_", ",", "mean_", ",", "var2_"}], "]"}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"min", "=", 
            RowBox[{"Min", "[", "tildeWPG", "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", "\"\<6\>\"", "]"}], ";"}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"tildeWPG", "=", 
            RowBox[{"Exp", "[", 
             RowBox[{"tildeWPG", "-", "min"}], "]"}]}], ";", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"tildeWPG", "=", 
            RowBox[{"tildeWPG", "/.", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Indeterminate", "\[Rule]", "1"}], ",", 
               RowBox[{
                RowBox[{"Underflow", "[", "]"}], "\[Rule]", 
                "$MinMachineNumber"}], ",", 
               RowBox[{
                RowBox[{"Overflow", "[", "]"}], "\[Rule]", 
                "$MaxMachineNumber"}]}], "}"}]}]}], ";", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"tildeWPG", "=", 
            RowBox[{"Normalize", "[", 
             RowBox[{
              RowBox[{"Threshold", "[", 
               RowBox[{
                RowBox[{"Normalize", "[", 
                 RowBox[{"tildeWPG", ",", "Total"}], "]"}], ",", 
                RowBox[{"$MachineEpsilon", "/", "10"}]}], "]"}], ",", 
              "Total"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"We", " ", "need", " ", "Threshold"}], ",", " ", 
             RowBox[{"because", " ", "when", " ", 
              RowBox[{"there", "'"}], "s", " ", "path", " ", "degeneracy"}], 
             ",", " ", 
             RowBox[{
              RowBox[{"we", " ", "get", " ", "non"}], "-", 
              RowBox[{
              "machine", " ", "level", " ", "numbers", " ", "in", " ", "the", 
               " ", "normalization", " ", "s"}]}]}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Select", "[", 
                RowBox[{"tildeWPG", ",", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"#", "===", "Indeterminate"}], "||", 
                    RowBox[{"#", "===", 
                    RowBox[{"Underflow", "[", "]"}]}], "||", 
                    RowBox[{"#", "===", 
                    RowBox[{"Overflow", "[", "]"}]}]}], ")"}], "&"}]}], "]"}],
                "\[NotEqual]", 
               RowBox[{"{", "}"}]}], "||", 
              RowBox[{
               RowBox[{"Total", "[", "tildeWPG", "]"}], "\[NotEqual]", 
               "1"}]}], ",", 
             RowBox[{
              RowBox[{"tildeWPG", "=", 
               RowBox[{"ConstantArray", "[", 
                RowBox[{
                 RowBox[{"1", "/", "numParticles"}], ",", "numParticles"}], 
                "]"}]}], ";", "\[IndentingNewLine]", 
              RowBox[{"Print", "[", "\"\<tildeWPG is constant\>\"", "]"}], 
              ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"ancmatPG", "[", 
             RowBox[{"[", 
              RowBox[{"timePG", ",", "numParticles"}], "]"}], "]"}], "=", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"timePG", "-", "1"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{
                  RowBox[{"RandomVariate", "[", 
                   RowBox[{
                    RowBox[{"MultinomialDistribution", "[", 
                    RowBox[{"1", ",", "tildeWPG"}], "]"}], ",", "1"}], "]"}], 
                  ",", "1"}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{";;", ",", "2"}], "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ";", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", "\"\<7\>\"", "]"}], ";"}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"matX1tPG", "=", 
            RowBox[{"ParallelTable", "[", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Join", "[", 
               RowBox[{
                RowBox[{"matX1tPG", "[", 
                 RowBox[{"[", 
                  RowBox[{"ancmatPG", "\[LeftDoubleBracket]", 
                   RowBox[{"timePG", ",", "i", ",", "2"}], 
                   "\[RightDoubleBracket]"}], "]"}], "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"partmatXPG", "[", 
                  RowBox[{"[", 
                   RowBox[{"timePG", ",", "i"}], "]"}], "]"}], "}"}]}], "]"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", "numParticles"}], "}"}]}], "]"}]}],
            ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{
              RowBox[{
              "This", " ", "is", " ", "step", " ", "11.", " ", 
               "\[IndentingNewLine]", "Each", " ", "i"}], "-", 
              RowBox[{"th", " ", "ROW", " ", "has", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"x_", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"1", ":", 
                    RowBox[{"t", "-", "1"}]}], "}"}], "^", 
                   RowBox[{"{", "a_i", "}"}]}]}], ",", 
                 RowBox[{"x_t", "^", "i"}]}], ")"}]}]}], "=", 
             RowBox[{
              RowBox[{"x", "^", "i_"}], 
              RowBox[{"{", 
               RowBox[{"1", ":", "t"}], "}"}]}]}], " ", "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", "\"\<8\>\"", "]"}], ";"}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"normWPG", "=", 
            RowBox[{"ParallelMap", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"logCondNormal", "[", 
                 RowBox[{"vecy1T", ",", 
                  RowBox[{"matX1tPG", "[", 
                   RowBox[{"[", "#", "]"}], "]"}], ",", 
                  RowBox[{"timePG", "-", "1"}], ",", "timePG", ",", "M1PG", 
                  ",", "tilL", ",", "CmatPG", ",", "CmatStarPG", ",", 
                  "SigmaPG"}], "]"}], ")"}], "&"}], ",", 
              RowBox[{"Table", "[", 
               RowBox[{"i", ",", 
                RowBox[{"{", 
                 RowBox[{"i", ",", "1", ",", "numParticles"}], "}"}]}], 
               "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           "\[IndentingNewLine]", 
           RowBox[{"min2", "=", 
            RowBox[{"Min", "[", "normWPG", "]"}]}], ";", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"normWPG", "=", 
            RowBox[{"Exp", "[", 
             RowBox[{"normWPG", "-", "min2"}], "]"}]}], ";", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"normWPG", "=", 
            RowBox[{"normWPG", "/.", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Indeterminate", "\[Rule]", "1"}], ",", 
               RowBox[{
                RowBox[{"Underflow", "[", "]"}], "\[Rule]", 
                "$MinMachineNumber"}], ",", 
               RowBox[{
                RowBox[{"Overflow", "[", "]"}], "\[Rule]", 
                "$MaxMachineNumber"}]}], "}"}]}]}], ";", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"normWPG", "=", 
            RowBox[{"Normalize", "[", 
             RowBox[{
              RowBox[{"Threshold", "[", 
               RowBox[{
                RowBox[{"Normalize", "[", 
                 RowBox[{"normWPG", ",", "Total"}], "]"}], ",", 
                RowBox[{"$MachineEpsilon", "/", "10"}]}], "]"}], ",", 
              "Total"}], "]"}]}], ";", " ", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"We", " ", "need", " ", "Threshold"}], ",", " ", 
             RowBox[{"because", " ", "when", " ", 
              RowBox[{"there", "'"}], "s", " ", "path", " ", "degeneracy"}], 
             ",", " ", 
             RowBox[{
              RowBox[{"we", " ", "get", " ", "non"}], "-", 
              RowBox[{
              "machine", " ", "level", " ", "numbers", " ", "in", " ", "the", 
               " ", "normalization", " ", "s"}]}]}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Select", "[", 
                RowBox[{"normWPG", ",", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"#", "===", "Indeterminate"}], "||", 
                    RowBox[{"#", "===", 
                    RowBox[{"Underflow", "[", "]"}]}], "||", 
                    RowBox[{"#", "===", 
                    RowBox[{"Overflow", "[", "]"}]}]}], ")"}], "&"}]}], "]"}],
                "\[NotEqual]", 
               RowBox[{"{", "}"}]}], "||", 
              RowBox[{
               RowBox[{"Total", "[", "normWPG", "]"}], "\[NotEqual]", "1"}]}],
              ",", 
             RowBox[{
              RowBox[{"normWPG", "=", 
               RowBox[{"ConstantArray", "[", 
                RowBox[{
                 RowBox[{"1", "/", "numParticles"}], ",", "numParticles"}], 
                "]"}]}], ";", "\[IndentingNewLine]", 
              RowBox[{"Print", "[", "\"\<normWPG is constant\>\"", "]"}], 
              ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"timePG", "++"}], ";"}]}], "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Print", "[", "\"\<9\>\"", "]"}], ";"}], "*)"}], 
         "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"kappaPG", "=", 
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{"RandomVariate", "[", 
             RowBox[{
              RowBox[{"MultinomialDistribution", "[", 
               RowBox[{"1", ",", "normWPG"}], "]"}], ",", "1"}], "]"}], ",", 
            "1"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{";;", ",", "2"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"matX1tPG", "[", 
             RowBox[{"[", "kappaPG", "]"}], "]"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "tildeWPG", ",", "normWPG"}], 
         "}"}]}]}], "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"\[EAcute]", " ", "preciso", "  ", 
        RowBox[{"p\[OHat]r", " ", "[", 
         RowBox[{"[", "1", "]"}], "]"}], " ", "pois", " ", "queremos", " ", 
        "que", " ", "tenha", " ", "as", " ", "dimens\[OTilde]es", " ", 
        RowBox[{"correctas", ".", " ", "Caso"}], " ", "contr\[AAcute]rio", 
        " ", "teria", " ", "1", " ", "n\[IAcute]vel", " ", "de", " ", 
        RowBox[{"{", "}"}], " ", "a", " ", "mais"}], "*)"}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.751350799915455*^9, 3.7513508289316807`*^9}, {
   3.7513509070630727`*^9, 3.751350933564644*^9}, 3.751350972199663*^9, {
   3.7513511925574284`*^9, 3.751351212135214*^9}, {3.751351285368889*^9, 
   3.751351300462658*^9}, {3.7513518220258603`*^9, 3.751351886223297*^9}, {
   3.7513519594242516`*^9, 3.751352057900463*^9}, {3.751352142253954*^9, 
   3.751352179614009*^9}, {3.751352402026395*^9, 3.751352449763897*^9}, {
   3.7513534650564923`*^9, 3.75135347614972*^9}, {3.7513535248847675`*^9, 
   3.751353552025344*^9}, 3.7513537453790097`*^9, {3.7513537901314964`*^9, 
   3.7513538023195953`*^9}, {3.751559565173708*^9, 3.7515595655018854`*^9}, {
   3.751993064821044*^9, 3.7519931042717857`*^9}, {3.7519931703191724`*^9, 
   3.751993173982523*^9}, 3.752038177154779*^9, {3.752038680224766*^9, 
   3.752038727685157*^9}, {3.752038758819694*^9, 3.752038791268103*^9}, 
   3.752038879111518*^9, {3.7520389660509043`*^9, 3.752038969099533*^9}, {
   3.752039722734229*^9, 3.752039724472266*^9}, 3.752039759239149*^9, 
   3.7520398532197547`*^9, {3.752040031924823*^9, 3.752040036591957*^9}, {
   3.752040071394006*^9, 3.752040101765557*^9}, {3.752040135240097*^9, 
   3.752040160538185*^9}, {3.7520402252220087`*^9, 3.752040255702756*^9}, {
   3.752040324287303*^9, 3.7520403251750536`*^9}, {3.7520404039397593`*^9, 
   3.7520404523894653`*^9}, {3.7520405455349135`*^9, 3.752040559862053*^9}, {
   3.7520406358770156`*^9, 3.752040701377614*^9}, {3.7520408819994917`*^9, 
   3.752040882296382*^9}, {3.7520413276724358`*^9, 3.7520414311840916`*^9}, 
   3.752041718320741*^9, {3.7520418196339083`*^9, 3.7520418260499864`*^9}, {
   3.7520418669719*^9, 3.752041870422057*^9}, {3.752042940174329*^9, 
   3.75204303186154*^9}, 3.752043083037712*^9, {3.7520431881364946`*^9, 
   3.7520432212602363`*^9}, {3.7520434286941633`*^9, 3.752043490503767*^9}, {
   3.75204363433289*^9, 3.7520436678303194`*^9}, {3.75204372008547*^9, 
   3.7520437666544757`*^9}, {3.7520438040525813`*^9, 
   3.7520438072092223`*^9}, {3.7520439176718044`*^9, 3.7520439577720942`*^9}, 
   3.7520440867962418`*^9, {3.752044126633119*^9, 3.752044127790073*^9}, {
   3.7520442175411797`*^9, 3.7520442225842133`*^9}, {3.7520444802996235`*^9, 
   3.7520444995001993`*^9}, {3.75204453356606*^9, 3.7520445905306063`*^9}, {
   3.7520447899720106`*^9, 3.7520447973079834`*^9}, {3.752046513241409*^9, 
   3.7520465820828185`*^9}, {3.7520466709002223`*^9, 3.7520466714471245`*^9}, 
   3.75204928590884*^9, {3.7520493360802355`*^9, 3.752049338002725*^9}, {
   3.7520494223934345`*^9, 3.752049422627822*^9}, {3.7520494535650206`*^9, 
   3.752049474846361*^9}, {3.7520495894706383`*^9, 3.7520496036582937`*^9}, 
   3.752049735298752*^9, {3.752049777069214*^9, 3.752049853035261*^9}, {
   3.7520498840802402`*^9, 3.7520499722813644`*^9}, {3.752050009986156*^9, 
   3.7520500944877996`*^9}, {3.7520501833616056`*^9, 
   3.7520502277879715`*^9}, {3.752050362334138*^9, 3.7520503687213383`*^9}, {
   3.7520506403308477`*^9, 3.7520506742062063`*^9}, {3.7520509192060614`*^9, 
   3.752050955955375*^9}, {3.752050992830413*^9, 3.752051021333912*^9}, {
   3.7520510688774166`*^9, 3.7520510925628843`*^9}, {3.7520513151087475`*^9, 
   3.7520513180803986`*^9}, {3.7520516260575123`*^9, 3.752051699909705*^9}, {
   3.752054181791478*^9, 3.7520541995845337`*^9}, {3.7520542759521008`*^9, 
   3.752054276662321*^9}, {3.752054307019912*^9, 3.7520544147933445`*^9}, {
   3.7520545221284943`*^9, 3.7520545585022764`*^9}, {3.752054700794834*^9, 
   3.752054701667348*^9}, {3.7520551470463037`*^9, 3.752055208814846*^9}, {
   3.752055254002536*^9, 3.752055255598219*^9}, {3.7520553041299067`*^9, 
   3.7520553057668967`*^9}, {3.7520557445198803`*^9, 3.752055744861436*^9}, {
   3.752056196493734*^9, 3.7520562151871805`*^9}, {3.7520562525360494`*^9, 
   3.7520562840501375`*^9}, {3.7520569248067837`*^9, 3.752056944300763*^9}, {
   3.7520570250375223`*^9, 3.7520570561822586`*^9}, {3.752058056892791*^9, 
   3.752058062861784*^9}, {3.7520580975360994`*^9, 3.7520581501024475`*^9}, {
   3.7520585364179325`*^9, 3.7520585407802725`*^9}, {3.752058617876851*^9, 
   3.7520586213299003`*^9}, {3.7520593978766613`*^9, 3.7520594081442165`*^9}, 
   3.7520595475372043`*^9, {3.7520595795984526`*^9, 3.752059659521455*^9}, 
   3.7520597917993164`*^9, {3.752059942508989*^9, 3.752059991296624*^9}, 
   3.752060080596582*^9, {3.7520601109858904`*^9, 3.752060164841623*^9}, {
   3.752060326137483*^9, 3.7520603739258456`*^9}, {3.7520653669293613`*^9, 
   3.752065370444543*^9}, {3.752065599131049*^9, 3.752065745852168*^9}, {
   3.7520657793103247`*^9, 3.7520658056328692`*^9}, {3.752065852038446*^9, 
   3.7520658859286823`*^9}, 3.75206613201999*^9, {3.7520662046014795`*^9, 
   3.7520662120239286`*^9}, {3.752066259507244*^9, 3.7520663003049192`*^9}, {
   3.7520664388122787`*^9, 3.7520664889915595`*^9}, {3.752066548688237*^9, 
   3.7520665493587737`*^9}, {3.752068682819561*^9, 3.7520687972112484`*^9}, {
   3.752069487643553*^9, 3.7520695321721997`*^9}, {3.7520695766718283`*^9, 
   3.752069655202117*^9}, {3.7520697423941755`*^9, 3.7520697710832777`*^9}, {
   3.7520698013844523`*^9, 3.752069802238022*^9}, 3.7520698385281844`*^9, {
   3.7520699347562957`*^9, 3.7520699703960266`*^9}, 3.7520703644614143`*^9, {
   3.7520739598200464`*^9, 3.7520740023520555`*^9}, {3.7520741049445825`*^9, 
   3.752074106882538*^9}, {3.752074180164193*^9, 3.752074189397665*^9}, {
   3.7520742500870495`*^9, 3.7520742744301634`*^9}, {3.7520751642303476`*^9, 
   3.7520752136172323`*^9}, {3.7520764086021523`*^9, 
   3.7520764089601727`*^9}, {3.752076491069943*^9, 3.7520764924447637`*^9}, {
   3.7520765244836397`*^9, 3.7520765261491814`*^9}, {3.7520778636748962`*^9, 
   3.752077901929395*^9}, {3.752077956445449*^9, 3.7520779936335783`*^9}, {
   3.752124608374694*^9, 3.752124651035261*^9}, {3.7521252374192963`*^9, 
   3.7521252747968364`*^9}, {3.752125872532747*^9, 3.7521259471902328`*^9}, {
   3.7521268874055405`*^9, 3.7521269148902645`*^9}, {3.7521427536642756`*^9, 
   3.752142757555097*^9}, {3.752142848919086*^9, 3.7521428610446873`*^9}, {
   3.7521429749879227`*^9, 3.752143005583246*^9}, 3.752143260471117*^9, 
   3.7521434476368155`*^9, {3.7521437470425596`*^9, 3.752143748933281*^9}, {
   3.7521440703870115`*^9, 3.7521441012479153`*^9}, {3.7521441528599243`*^9, 
   3.752144158360175*^9}, {3.7521443529481244`*^9, 3.7521443749961443`*^9}, {
   3.7521447319672904`*^9, 3.7521447324516916`*^9}, 3.7521448756776433`*^9, {
   3.7521450627339635`*^9, 3.7521450643434486`*^9}, {3.752145909057976*^9, 
   3.752145911823739*^9}, {3.752147367537839*^9, 3.752147367725377*^9}, {
   3.7521474826374297`*^9, 3.752147555391103*^9}, {3.7521480220552907`*^9, 
   3.7521480517911673`*^9}, 3.752148108981555*^9, {3.752148155171389*^9, 
   3.7521481940483527`*^9}, {3.752148344587202*^9, 3.752148358119136*^9}, {
   3.752148693511041*^9, 3.7521487312786016`*^9}, {3.7521487982976108`*^9, 
   3.752148815689085*^9}, {3.7521489062561693`*^9, 3.7521489242102175`*^9}, {
   3.7521489636809607`*^9, 3.7521489838382297`*^9}, {3.7521490154960775`*^9, 
   3.7521490516697516`*^9}, {3.752149106578799*^9, 3.752149186160946*^9}, {
   3.752149240944932*^9, 3.752149249414138*^9}, 3.7521493844365816`*^9, 
   3.7521494415175886`*^9, {3.7521495664770226`*^9, 3.7521495989786644`*^9}, {
   3.752149767955945*^9, 3.7521497705654535`*^9}, {3.752149831146637*^9, 
   3.7521498535383635`*^9}, {3.752151751462348*^9, 3.752151751993597*^9}, {
   3.752152526860875*^9, 3.752152550690205*^9}, {3.752152598598844*^9, 
   3.7521526600394726`*^9}, {3.7521527119952235`*^9, 
   3.7521527405747924`*^9}, {3.752152773451451*^9, 3.7521527787329683`*^9}, 
   3.752152852121683*^9, 3.7521529260160694`*^9, 3.752153067773226*^9, 
   3.7521573368258104`*^9, 3.752157422830822*^9, {3.7521575899672585`*^9, 
   3.752157608543759*^9}, 3.752157690705755*^9, {3.7521577248099203`*^9, 
   3.7521577684037857`*^9}, {3.752157840698*^9, 3.7521578545625343`*^9}, {
   3.752158193859439*^9, 3.7521581941407394`*^9}, {3.7521582617939377`*^9, 
   3.7521582906705475`*^9}, {3.7521627212777867`*^9, 
   3.7521627328897123`*^9}, {3.7521631288110576`*^9, 
   3.7521632022681046`*^9}, {3.7521632371892915`*^9, 3.752163258344669*^9}, {
   3.752346295677311*^9, 3.7523462960523305`*^9}, {3.75234670549485*^9, 
   3.75234672412082*^9}, {3.752346766107314*^9, 3.752346824000863*^9}, 
   3.7523468733158245`*^9, {3.7523472056295085`*^9, 3.752347208926549*^9}, {
   3.7523473127598877`*^9, 3.752347314181863*^9}, {3.75234735805905*^9, 
   3.7523473582153077`*^9}, {3.7523474614236727`*^9, 3.752347477018182*^9}, {
   3.7523489700935693`*^9, 3.7523490279558964`*^9}, {3.7523490588324547`*^9, 
   3.752349059457487*^9}, {3.752349108053688*^9, 3.752349133039327*^9}, {
   3.7523492200905895`*^9, 3.75234925763934*^9}, {3.7523495088082714`*^9, 
   3.752349526606075*^9}, {3.752349602531783*^9, 3.7523496546437607`*^9}, {
   3.7523498484660783`*^9, 3.752350023053017*^9}, {3.752350063664443*^9, 
   3.7523500759931793`*^9}, {3.7523503338968363`*^9, 
   3.7523503495695033`*^9}, {3.752350401681509*^9, 3.7523504157759705`*^9}, 
   3.752350799498471*^9, {3.7523508436256704`*^9, 3.7523510601835074`*^9}, {
   3.752351285022986*^9, 3.7523513111961827`*^9}, {3.7523513750119057`*^9, 
   3.7523514080291986`*^9}, {3.752352000668494*^9, 3.752352001246621*^9}, {
   3.752352047608367*^9, 3.7523521533480806`*^9}, {3.75235234474837*^9, 
   3.75235234990488*^9}, {3.7523823257695637`*^9, 3.7523823397077684`*^9}, {
   3.7523823863038683`*^9, 3.752382443416129*^9}, {3.7523829611552863`*^9, 
   3.7523829833116093`*^9}, {3.752383035170921*^9, 3.7523830407962337`*^9}, {
   3.7523830816421475`*^9, 3.752383093295473*^9}, 3.7523831260607977`*^9, {
   3.7523831960560045`*^9, 3.752383216807574*^9}, 3.752383373566781*^9, {
   3.7523834214938197`*^9, 3.7523834256992507`*^9}, {3.752384022873704*^9, 
   3.752384027889552*^9}, {3.7523842575421476`*^9, 3.752384263206316*^9}, {
   3.7523843397961926`*^9, 3.752384346567255*^9}, {3.7523843793107996`*^9, 
   3.752384383871676*^9}, {3.7523844375912485`*^9, 3.7523844438635807`*^9}, {
   3.7523844779190493`*^9, 3.7523845538636727`*^9}, {3.7523855712363987`*^9, 
   3.7523855877243657`*^9}, 3.752386114219489*^9, {3.7523861679841213`*^9, 
   3.7523862358035593`*^9}, {3.7523864242805443`*^9, 3.752386457559351*^9}, {
   3.7523865239524994`*^9, 3.7523865322618628`*^9}, {3.752386936289366*^9, 
   3.752386984709431*^9}, {3.752387044087264*^9, 3.752387145596131*^9}, {
   3.752387371571362*^9, 3.752387410485466*^9}, 3.7523874696160984`*^9, {
   3.7523875508826027`*^9, 3.752387649864773*^9}, {3.7523877841783695`*^9, 
   3.7523877924493484`*^9}, {3.7523885447646933`*^9, 
   3.7523885580872216`*^9}, {3.75238860710277*^9, 3.7523886464556985`*^9}, {
   3.7523886905453243`*^9, 3.752388696297063*^9}, {3.752388914201004*^9, 
   3.752388916962249*^9}, {3.75239760322453*^9, 3.7523976107069864`*^9}, {
   3.7523976669871607`*^9, 3.752397667690322*^9}, {3.7523977660340233`*^9, 
   3.7523977675190845`*^9}, {3.7523978773881674`*^9, 
   3.7523978777988844`*^9}, {3.752397924425709*^9, 3.752397926284126*^9}, {
   3.7523980615973673`*^9, 3.7523981164879665`*^9}, {3.752398218160203*^9, 
   3.7523982482524443`*^9}, {3.752398288668255*^9, 3.752398327362871*^9}, {
   3.7523983858777857`*^9, 3.752398401233994*^9}, {3.7523984660334067`*^9, 
   3.7523984687270803`*^9}, {3.752411580201296*^9, 3.7524115840246167`*^9}, 
   3.7524120886294813`*^9, {3.752412395247692*^9, 3.7524124136834435`*^9}, {
   3.752412468142793*^9, 3.7524124694084806`*^9}, {3.7524132050158243`*^9, 
   3.752413271324669*^9}, {3.752413321419035*^9, 3.7524133477613373`*^9}, 
   3.7524138410920663`*^9, {3.752414157327063*^9, 3.7524141873015165`*^9}, {
   3.752414725855446*^9, 3.7524147331376266`*^9}, {3.7524148366940937`*^9, 
   3.7524148391160955`*^9}, {3.7524149042797213`*^9, 3.752414922142666*^9}, {
   3.752414971806303*^9, 3.7524150325492535`*^9}, {3.752415091210764*^9, 
   3.7524151111528735`*^9}, {3.752415163097518*^9, 3.75241517695604*^9}, {
   3.752415211819106*^9, 3.752415263148497*^9}, {3.7524153794042735`*^9, 
   3.7524154091655006`*^9}, {3.752415477121746*^9, 3.75241548208819*^9}, {
   3.752415771522051*^9, 3.75241578224485*^9}, {3.7524159739857564`*^9, 
   3.7524159803711357`*^9}, 3.7524160205070047`*^9, {3.75241606108873*^9, 
   3.7524160651020308`*^9}, {3.7524180434270954`*^9, 3.752418045897033*^9}, {
   3.7524181189012814`*^9, 3.7524181300811553`*^9}, {3.752418165352147*^9, 
   3.7524181862044535`*^9}, {3.7524182884483013`*^9, 3.752418307158764*^9}, {
   3.752418538047966*^9, 3.7524186243658295`*^9}, {3.752418655750665*^9, 
   3.752418665927882*^9}, {3.7524187163542166`*^9, 3.7524187941610885`*^9}, {
   3.75266454009906*^9, 3.752664590349162*^9}, {3.7526646204858055`*^9, 
   3.752664848389425*^9}, {3.7526648810989656`*^9, 3.7526649256887727`*^9}, {
   3.7531666604943247`*^9, 3.753166661182886*^9}, 3.7531674246957397`*^9, {
   3.753167606358162*^9, 3.7531676121189556`*^9}, {3.7531677169055033`*^9, 
   3.75316773265175*^9}, 3.753260643789095*^9, {3.753260673918914*^9, 
   3.7532607482897034`*^9}, {3.7532609949019003`*^9, 3.75326099747268*^9}, {
   3.753263092812784*^9, 3.7532631735175877`*^9}, {3.7532647838350983`*^9, 
   3.7532648432907343`*^9}, {3.7532649048807936`*^9, 
   3.7532649537202168`*^9}, {3.7532651032669125`*^9, 3.753265127175851*^9}, {
   3.753425570700124*^9, 3.753425574050685*^9}, {3.7534267520515327`*^9, 
   3.7534267554486303`*^9}, {3.75342686088596*^9, 3.753426949040413*^9}, {
   3.753428540901566*^9, 3.753428548916742*^9}, {3.753429167841654*^9, 
   3.7534291714210615`*^9}, {3.7556098726252017`*^9, 
   3.7556099066701508`*^9}, {3.7556106738644557`*^9, 
   3.7556107269868245`*^9}, {3.755610949091507*^9, 3.755611012873431*^9}, {
   3.7556110459348946`*^9, 3.7556110495029035`*^9}, {3.755611131341614*^9, 
   3.7556111524660006`*^9}, {3.755611189096188*^9, 3.7556111926771116`*^9}, {
   3.755611243263863*^9, 3.7556112473100767`*^9}, {3.7556113182896166`*^9, 
   3.7556114847824287`*^9}, {3.7556115329200125`*^9, 3.755611533216915*^9}, {
   3.7556120102011385`*^9, 3.7556120879739156`*^9}, {3.755612123872785*^9, 
   3.755612203545467*^9}, {3.7556122565824947`*^9, 3.755612259248001*^9}, {
   3.755612307639657*^9, 3.755612437372925*^9}, {3.7556125829034224`*^9, 
   3.755612583231547*^9}, {3.7556126650762825`*^9, 3.755612749747444*^9}, {
   3.755612784169876*^9, 3.7556128054526725`*^9}, {3.7556128355918026`*^9, 
   3.7556129500780087`*^9}, {3.7556131512323933`*^9, 3.755613157434991*^9}, {
   3.755613230717534*^9, 3.7556132609093237`*^9}, {3.7556133084839067`*^9, 
   3.75561340988978*^9}, 3.75561407268547*^9, {3.755614112267905*^9, 
   3.755614115924346*^9}, {3.755615635341316*^9, 3.7556156570144033`*^9}, {
   3.7556158163469667`*^9, 3.755615840051214*^9}, {3.7556158980772324`*^9, 
   3.7556159016069946`*^9}, {3.7556162122787437`*^9, 
   3.7556162596195555`*^9}, {3.7556163094580107`*^9, 
   3.7556163102019477`*^9}, {3.755616993578849*^9, 3.755616997206271*^9}, {
   3.755617035082552*^9, 3.7556170390361886`*^9}, {3.7556171001941137`*^9, 
   3.7556171331691246`*^9}, {3.755617165411646*^9, 3.7556171685007076`*^9}, 
   3.7556172157082195`*^9, {3.755617275677247*^9, 3.755617286373386*^9}, 
   3.7558432292928605`*^9, 3.7558434214495363`*^9, 3.7558445785598736`*^9, 
   3.7558446608898273`*^9, {3.7559326915503654`*^9, 3.7559326955193243`*^9}, {
   3.7559403370366*^9, 3.7559403846556835`*^9}, {3.755940608703034*^9, 
   3.7559406124574375`*^9}, {3.7561218332175665`*^9, 
   3.7561218675943747`*^9}, {3.756121930785194*^9, 3.756122023338343*^9}, {
   3.756122208633584*^9, 3.756122210977476*^9}, {3.756122357594534*^9, 
   3.75612237211095*^9}, {3.7561224132068605`*^9, 3.7561224364268017`*^9}, {
   3.7561250939189186`*^9, 3.756125108841589*^9}, {3.7561251975806227`*^9, 
   3.7561252121282625`*^9}, {3.7561255068468447`*^9, 3.756125523597725*^9}, {
   3.7561937195442343`*^9, 3.7561937301058626`*^9}, {3.756193775800726*^9, 
   3.7561938100916753`*^9}, {3.756193868199559*^9, 3.756193872060034*^9}, {
   3.756193905621398*^9, 3.756193911247116*^9}, {3.7561944621920133`*^9, 
   3.7561944672346373`*^9}, 3.7561946534764285`*^9, {3.7562060145186453`*^9, 
   3.7562060154349947`*^9}, 3.756207083464978*^9, 3.7562082338156705`*^9, {
   3.7562181068259687`*^9, 3.7562181367646484`*^9}, {3.7562194039447136`*^9, 
   3.7562194454602*^9}, {3.756219482329137*^9, 3.756219483084967*^9}, {
   3.75621977788925*^9, 3.7562198685612745`*^9}, {3.7562200263015027`*^9, 
   3.7562201128099265`*^9}, {3.756220171038499*^9, 3.7562202022570896`*^9}, {
   3.7562202679347725`*^9, 3.7562202846690907`*^9}, {3.7562203776719317`*^9, 
   3.756220407133382*^9}, 3.756220510132972*^9, 3.7562208431298*^9, 
   3.75622095684223*^9, {3.756221572013078*^9, 3.7562215750926332`*^9}, {
   3.7562216454414835`*^9, 3.7562216482105093`*^9}, {3.756221678305303*^9, 
   3.7562216879991064`*^9}, {3.7562219312479725`*^9, 3.756222051295545*^9}, {
   3.7562221046235657`*^9, 3.756222161929058*^9}, {3.7562222164194965`*^9, 
   3.756222283844157*^9}, {3.7562224257669716`*^9, 3.7562224618127365`*^9}, {
   3.7562224954916487`*^9, 3.7562225365004153`*^9}, {3.7562262670774984`*^9, 
   3.7562262754124393`*^9}, {3.756278491262721*^9, 3.756278584415743*^9}, {
   3.75627863869557*^9, 3.7562787176143813`*^9}, {3.7562787803083572`*^9, 
   3.7562788084380407`*^9}, {3.756279241640337*^9, 3.7562792555312715`*^9}, {
   3.7562794529674716`*^9, 3.756279453686286*^9}, {3.7562795522182164`*^9, 
   3.7562795613276567`*^9}, {3.7562796005914745`*^9, 
   3.7562796302925444`*^9}, {3.7562797865642242`*^9, 3.756279821671397*^9}, {
   3.756280669668727*^9, 3.7562806842778473`*^9}, {3.7562807187777357`*^9, 
   3.7562807209804354`*^9}, {3.756280849873191*^9, 3.756280855156164*^9}, {
   3.7562808937406178`*^9, 3.7562809025445137`*^9}, {3.756280987532547*^9, 
   3.756280988131152*^9}, {3.7562810271112633`*^9, 3.7562810743718033`*^9}, {
   3.756281274146628*^9, 3.7562813270133286`*^9}, {3.7562813931033072`*^9, 
   3.756281449509715*^9}, {3.7562817520762005`*^9, 3.7562817569341354`*^9}, {
   3.756281800293278*^9, 3.756281805999447*^9}, {3.7562820257846246`*^9, 
   3.756282054531988*^9}, 3.7562821065290623`*^9, 3.756282172729966*^9, {
   3.7562853440632277`*^9, 3.756285401017875*^9}, {3.756285446808784*^9, 
   3.7562854491723576`*^9}, 3.7562854942942104`*^9, {3.756285530141079*^9, 
   3.7562855652596235`*^9}, {3.7562856276064773`*^9, 3.7562856853172016`*^9}, 
   3.756361648231411*^9, 3.756363357628976*^9, 3.7563634508995*^9, {
   3.75645321537152*^9, 3.75645322774096*^9}, {3.7564749454439845`*^9, 
   3.756474968296248*^9}, {3.7564750116992335`*^9, 3.7564750379707813`*^9}, 
   3.7565508749033546`*^9, 3.756550918732729*^9, {3.756551101491017*^9, 
   3.7565511086955*^9}, {3.7565514371793437`*^9, 3.756551437398114*^9}, 
   3.7565523088029833`*^9, {3.7565529584989324`*^9, 3.756552980046012*^9}, {
   3.757076809977522*^9, 3.757076840824876*^9}, {3.757320283695614*^9, 
   3.757320476484378*^9}, {3.757320579926465*^9, 3.7573206083574553`*^9}, {
   3.769084275280222*^9, 3.7690843471432567`*^9}, {3.76908443274131*^9, 
   3.769084439538518*^9}, {3.769084485165821*^9, 3.769084604453122*^9}, {
   3.7690846437363586`*^9, 3.7690846463458643`*^9}, {3.769084684004015*^9, 
   3.769084695863986*^9}, {3.7690847946814785`*^9, 3.7690848145731077`*^9}, {
   3.769084898967965*^9, 3.7690849012805815`*^9}, {3.7690849358135753`*^9, 
   3.7690850208960247`*^9}, {3.76908506277314*^9, 3.7690851021188765`*^9}, {
   3.769085135339303*^9, 3.7690851476524253`*^9}, {3.7690851807322197`*^9, 
   3.7690852264008064`*^9}, {3.769085259089985*^9, 3.769085351985297*^9}, 
   3.769085561480254*^9, {3.769085613436001*^9, 3.7690856267960515`*^9}, {
   3.769085691127427*^9, 3.7690857441557355`*^9}, {3.769085966495118*^9, 
   3.7690859696515245`*^9}, {3.7690860103723326`*^9, 3.769086053046332*^9}, {
   3.769086201553831*^9, 3.7690862747294292`*^9}, {3.769086306856023*^9, 
   3.7690863398465204`*^9}, {3.7690864081257277`*^9, 3.769086433064458*^9}, {
   3.7690870587835817`*^9, 3.7690870940040803`*^9}, {3.7690882203891087`*^9, 
   3.7690882760012913`*^9}, {3.769088343114026*^9, 3.769088375990715*^9}, {
   3.76908893109684*^9, 3.769088943206855*^9}, 3.769089294896488*^9, {
   3.769089332804623*^9, 3.769089365946951*^9}, 3.769089400933092*^9, {
   3.7690894981880035`*^9, 3.7690895130012226`*^9}, {3.769089545346634*^9, 
   3.769089615318888*^9}, {3.7690900935305357`*^9, 3.7690901241414857`*^9}, {
   3.769090325911662*^9, 3.769090333349538*^9}, {3.7690914976739798`*^9, 
   3.7690915564269457`*^9}, 3.769091713653636*^9, {3.769091935026953*^9, 
   3.769092009355883*^9}, {3.769092686160858*^9, 3.769092686348338*^9}, {
   3.769093401340025*^9, 3.769093403418254*^9}, {3.7690935928340387`*^9, 
   3.7690936006313057`*^9}, {3.7690939204287047`*^9, 3.769093940382866*^9}, 
   3.7690939736032934`*^9, {3.7690940262465773`*^9, 3.769094039481589*^9}, {
   3.7690941151572857`*^9, 3.7690941367365313`*^9}, {3.769094197161455*^9, 
   3.7690942675556364`*^9}, {3.7690946820579414`*^9, 3.76909470224643*^9}, {
   3.7690947530615263`*^9, 3.769094758155533*^9}, {3.7690949441905794`*^9, 
   3.7690949499877167`*^9}, {3.7690950816506453`*^9, 3.769095082744449*^9}, 
   3.7690951640624385`*^9, 3.769095207955277*^9, {3.7690952706928496`*^9, 
   3.769095320429706*^9}, {3.7690954343759694`*^9, 3.769095437891801*^9}, {
   3.7690954679557896`*^9, 3.7690954707996836`*^9}, {3.7690955378756247`*^9, 
   3.769095554892138*^9}, {3.7691013431375265`*^9, 3.76910134784086*^9}, {
   3.76910166562256*^9, 3.7691016712478437`*^9}, {3.769101739391909*^9, 
   3.769101740595094*^9}, {3.7691022511671753`*^9, 3.7691022660117035`*^9}, {
   3.7691024002840796`*^9, 3.7691024259103727`*^9}, {3.769102459005793*^9, 
   3.769102461365287*^9}, 3.7691038448310347`*^9, {3.769104311770951*^9, 
   3.7691043119584293`*^9}, {3.769104477044921*^9, 3.769104483842108*^9}, {
   3.7691045502204895`*^9, 3.7691045526112356`*^9}, {3.769104739304158*^9, 
   3.7691047526329556`*^9}, {3.7691399264640045`*^9, 
   3.7691399440430284`*^9}, {3.7691407856781807`*^9, 3.769140818695446*^9}, {
   3.7691409902197323`*^9, 3.7691409959856462`*^9}, 3.7691416281894445`*^9, {
   3.7691423914311075`*^9, 3.769142431886277*^9}, 3.7691429213172364`*^9, {
   3.769142965272581*^9, 3.7691429748355656`*^9}, {3.7691458322990274`*^9, 
   3.769145906715891*^9}, {3.76914596157629*^9, 3.7691459638531513`*^9}, {
   3.76914620429819*^9, 3.7691462048907986`*^9}, {3.7691463688575106`*^9, 
   3.76914639586656*^9}, {3.7691464929031334`*^9, 3.769146495440051*^9}, {
   3.7692654207642775`*^9, 3.7692654342649813`*^9}, {3.769265511315843*^9, 
   3.7692655375516157`*^9}, {3.7692655825070558`*^9, 
   3.7692657161077695`*^9}, {3.769265783142514*^9, 3.769265864865525*^9}, {
   3.769274565075025*^9, 3.7692745674996433`*^9}, {3.7692760906696978`*^9, 
   3.76927609712901*^9}, {3.769276801232774*^9, 3.7692768031050243`*^9}, {
   3.7703865484403863`*^9, 3.770386550737354*^9}, 3.770386591286355*^9},
 CellLabel->
  "In[244]:=",ExpressionUUID->"2f1c9f06-2daf-4afe-9c6c-655d7f1d4a37"]
}, Closed]],

Cell[CellGroupData[{

Cell["Bayesian Learning and Filtering/Smoothing of SSMs", "Subsubsection",
 CellChangeTimes->{{3.753261807816057*^9, 3.7532618203643136`*^9}, {
   3.7558613562019095`*^9, 3.75586139155151*^9}, 3.7560464449398317`*^9, {
   3.759127245986102*^9, 
   3.759127267440011*^9}},ExpressionUUID->"2f04a1ba-ff60-4cbc-bbba-\
998b51c88086"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bayesianLS", "[", 
    RowBox[{"time_", ",", "vecy1T_", ",", 
     RowBox[{"{", 
      RowBox[{"M1_", ",", 
       RowBox[{"{", 
        RowBox[{
        "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
         "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
       "tilL_", ",", 
       RowBox[{"{", 
        RowBox[{"tilQMat_", ",", "tilSigmaMat_"}], "}"}]}], "}"}], ",", 
     "X1Tinitial_", ",", "sampleSize_", ",", "numParticles_", ",", " ", 
     "stepSize_", ",", "varSize_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"scaleMatrix", "=", 
        RowBox[{"0.5", "*", 
         RowBox[{"IdentityMatrix", "[", "18", "]"}]}]}], ";"}], "*)"}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"outputDim", "=", "3"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"stateSamples", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0", ",", "sampleSize"}], "]"}]}], ";", "\[IndentingNewLine]",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"stateSamples", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "=", "X1Tinitial"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"parameterSamples", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0", ",", "sampleSize"}], "]"}]}], ";", "\[IndentingNewLine]",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"parameterSamples", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"M1", ",", 
         RowBox[{"{", 
          RowBox[{
          "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
           "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
         "tilL", ",", 
         RowBox[{"{", 
          RowBox[{"tilQMat", ",", "tilSigmaMat"}], "}"}]}], "}"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"acceptanceRecord", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0", ",", "sampleSize"}], "]"}]}], ";", "\[IndentingNewLine]",
       "\[IndentingNewLine]", 
      RowBox[{"tildeWRecord", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0", ",", "sampleSize"}], "]"}]}], ";", "\[IndentingNewLine]",
       "\[IndentingNewLine]", 
      RowBox[{"normWRecord", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0", ",", "sampleSize"}], "]"}]}], ";", "\[IndentingNewLine]",
       "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"thetaStarRecord", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{"0", ",", "sampleSize"}], "]"}]}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"counterBLS", "=", "2"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{"counterBLS", "<=", "sampleSize"}], ",", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", "\"\<Entrando no PGASMK\>\"", "]"}], ";"}], 
         "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"stateSamples", "[", 
             RowBox[{"[", "counterBLS", "]"}], "]"}], ",", 
            RowBox[{"tildeWRecord", "[", 
             RowBox[{"[", 
              RowBox[{"counterBLS", "-", "1"}], "]"}], "]"}], ",", 
            RowBox[{"normWRecord", "[", 
             RowBox[{"[", 
              RowBox[{"counterBLS", "-", "1"}], "]"}], "]"}]}], "}"}], "=", 
          RowBox[{"PGASMK", "[", 
           RowBox[{"vecy1T", ",", 
            RowBox[{"stateSamples", "[", 
             RowBox[{"[", 
              RowBox[{"counterBLS", "-", "1"}], "]"}], "]"}], ",", 
            "numParticles", ",", "time", ",", "outputDim", ",", 
            RowBox[{"parameterSamples", "[", 
             RowBox[{"[", 
              RowBox[{"counterBLS", "-", "1"}], "]"}], "]"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Print", "[", "\"\<Entrando no MH-Step\>\"", "]"}], ";"}], 
          "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"parameterSamples", "[", 
             RowBox[{"[", "counterBLS", "]"}], "]"}], ",", 
            RowBox[{"acceptanceRecord", "[", 
             RowBox[{"[", 
              RowBox[{"counterBLS", "-", "1"}], "]"}], "]"}]}], "}"}], "=", 
          RowBox[{"MHstepGlobal", "[", 
           RowBox[{"vecy1T", ",", 
            RowBox[{"stateSamples", "[", 
             RowBox[{"[", "counterBLS", "]"}], "]"}], ",", "time", ",", 
            "outputDim", ",", 
            RowBox[{"parameterSamples", "[", 
             RowBox[{"[", 
              RowBox[{"counterBLS", "-", "1"}], "]"}], "]"}], ",", "stepSize",
             ",", "varSize"}], "]"}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{
            RowBox[{"thetaStarRecord", "[", 
             RowBox[{"[", 
              RowBox[{"counterBLS", "-", "1"}], "]"}], "]"}], "=", 
            "thetaStarList"}], ";"}], "*)"}], "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Print", "[", 
            RowBox[{"\"\<counterBLS=\>\"", ",", "counterBLS"}], "]"}], ";"}], 
          "*)"}], "\[IndentingNewLine]", 
         RowBox[{"counterBLS", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "pathname", " ", "is", " ", "defined", " ", "below", " ", "at", " ", 
        "Run", " ", "Code"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"fileDataStates", "=", 
       RowBox[{"Compress", "[", "stateSamples", "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"pathname", "<>", 
         RowBox[{"ToString", "[", "time", "]"}], "<>", 
         "\"\< - EstimationAllSampleStates.m\>\""}], ",", "fileDataStates"}], 
       "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"fileDataParameters", "=", 
       RowBox[{"Compress", "[", "parameterSamples", "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"pathname", "<>", 
         RowBox[{"ToString", "[", "time", "]"}], "<>", 
         "\"\< - EstimationAllSampleParameters.m\>\""}], ",", 
        "fileDataParameters"}], "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"fileDataAcceptCounterBLS", "=", 
       RowBox[{"Compress", "[", 
        RowBox[{"{", 
         RowBox[{"acceptanceRecord", ",", "counterBLS"}], "}"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"pathname", "<>", 
         RowBox[{"ToString", "[", "time", "]"}], "<>", 
         "\"\< - EstimationAllSampleAcceptCounterBLS.m\>\""}], ",", 
        "fileDataAcceptCounterBLS"}], "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"fileDataTildeW", "=", 
       RowBox[{"Compress", "[", "tildeWRecord", "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"pathname", "<>", 
         RowBox[{"ToString", "[", "time", "]"}], "<>", 
         "\"\< - EstimationAllSampleStatesTildeW.m\>\""}], ",", 
        "fileDataTildeW"}], "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"fileDataNormW", "=", 
       RowBox[{"Compress", "[", "normWRecord", "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"pathname", "<>", 
         RowBox[{"ToString", "[", "time", "]"}], "<>", 
         "\"\< - EstimationAllSampleStatesNormW.m\>\""}], ",", 
        "fileDataNormW"}], "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"fileDataThetaStarRecord", "=", 
         RowBox[{"Compress", "[", "thetaStarRecord", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Export", "[", 
         RowBox[{
          RowBox[{"pathname", "<>", 
           RowBox[{"ToString", "[", "time", "]"}], "<>", 
           "\"\< - EstimationAllSampleThetaStarRecord.m\>\""}], ",", 
          "fileDataThetaStarRecord"}], "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"stateSamples", ",", "parameterSamples"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7532618450988026`*^9, 3.7532618762055426`*^9}, {
   3.753261961853642*^9, 3.753261971173853*^9}, {3.7532620051214857`*^9, 
   3.7532620689990697`*^9}, 3.753262099362316*^9, {3.7532626020812*^9, 
   3.7532628848140135`*^9}, 3.75326295770861*^9, {3.7532632060682907`*^9, 
   3.753263212222392*^9}, {3.7532632463781614`*^9, 3.7532632643071127`*^9}, {
   3.7532633056076465`*^9, 3.7532635043082438`*^9}, {3.7532637004520063`*^9, 
   3.7532638396393948`*^9}, {3.753264293276821*^9, 3.7532643255563393`*^9}, {
   3.753264396395568*^9, 3.7532644650188494`*^9}, {3.7532645097832904`*^9, 
   3.753264632702344*^9}, 3.7532647187246895`*^9, 3.75584569729928*^9, {
   3.7558457701807365`*^9, 3.7558457879826183`*^9}, {3.755845943549264*^9, 
   3.755845988194065*^9}, {3.7558461126491613`*^9, 3.7558463658289423`*^9}, {
   3.7558464449840865`*^9, 3.755846476758294*^9}, {3.755846684482332*^9, 
   3.7558466878816004`*^9}, {3.7558467384313407`*^9, 
   3.7558467802422485`*^9}, {3.7558468623608236`*^9, 
   3.7558468639598923`*^9}, {3.7558468972571173`*^9, 
   3.7558469046970835`*^9}, {3.75584718343896*^9, 3.755847214262534*^9}, {
   3.755848154239938*^9, 3.755848194070122*^9}, 3.755858481687297*^9, {
   3.7559305466046844`*^9, 3.755930682424267*^9}, {3.755930735223895*^9, 
   3.7559308551051345`*^9}, {3.7559308923258266`*^9, 
   3.7559309121862445`*^9}, {3.755930987174529*^9, 3.75593100230031*^9}, {
   3.7559314890131817`*^9, 3.7559315052796664`*^9}, {3.7559315468911877`*^9, 
   3.7559315894559107`*^9}, {3.755931656992933*^9, 3.7559316600712013`*^9}, {
   3.755931712152054*^9, 3.7559317152147007`*^9}, {3.7559319642004004`*^9, 
   3.755931965106697*^9}, {3.755932176041534*^9, 3.7559322029960537`*^9}, {
   3.75593282519796*^9, 3.7559328651219316`*^9}, {3.75594044045421*^9, 
   3.7559404970507207`*^9}, {3.7559405585933666`*^9, 3.755940584489914*^9}, {
   3.755940621488624*^9, 3.7559407057754555`*^9}, {3.755941919987187*^9, 
   3.755941936365511*^9}, 3.7559419704726877`*^9, {3.755942073489609*^9, 
   3.755942086547904*^9}, {3.755942173549883*^9, 3.755942185692232*^9}, {
   3.7560429852583876`*^9, 3.7560430227759686`*^9}, {3.756043161845786*^9, 
   3.7560431683148675`*^9}, {3.756043203097953*^9, 3.756043269335805*^9}, {
   3.7560434185936437`*^9, 3.7560434433136983`*^9}, {3.7560438025301003`*^9, 
   3.756043858533074*^9}, {3.756043889706578*^9, 3.756043890456627*^9}, {
   3.75604392163013*^9, 3.756043960288421*^9}, {3.756043993508899*^9, 
   3.75604406124685*^9}, {3.756044236006033*^9, 3.7560443073691573`*^9}, {
   3.756044377075935*^9, 3.756044403155432*^9}, {3.7560444364540434`*^9, 
   3.7560444517673645`*^9}, {3.756044551710111*^9, 3.756044784206713*^9}, {
   3.7560455479239635`*^9, 3.7560456260218234`*^9}, 3.756045664133199*^9, {
   3.756474043765793*^9, 3.756474084629774*^9}, {3.7564750651239157`*^9, 
   3.756475072856081*^9}, {3.7566203159797*^9, 3.756620391348967*^9}, {
   3.756620457950823*^9, 3.756620487477871*^9}, {3.75662052647815*^9, 
   3.7566205351664886`*^9}, {3.7566210989213877`*^9, 3.756621106893715*^9}, {
   3.756621277749056*^9, 3.756621296690343*^9}, {3.7566216225820465`*^9, 
   3.7566216436741266`*^9}, {3.7566218582023926`*^9, 
   3.7566218732914724`*^9}, {3.756659312876281*^9, 3.7566593241007776`*^9}, {
   3.756706361204603*^9, 3.7567063665955133`*^9}, 3.7567066505077667`*^9, {
   3.756716659510638*^9, 3.7567168650801907`*^9}, {3.7567240356571293`*^9, 
   3.756724038142793*^9}, {3.756835493964629*^9, 3.7568355167498465`*^9}, 
   3.756875607080064*^9, 3.756876647284092*^9, {3.7573156379048653`*^9, 
   3.7573156636655836`*^9}, 3.757320784029784*^9, 3.757784182320156*^9, {
   3.7577842536908255`*^9, 3.757784257977688*^9}, {3.757944216842476*^9, 
   3.7579442198091965`*^9}, {3.757945859015688*^9, 3.757945865877756*^9}, 
   3.758893754033327*^9, {3.7590631238022428`*^9, 3.759063125688438*^9}, {
   3.759077495088916*^9, 3.75907751480609*^9}, {3.7590802727567034`*^9, 
   3.7590802746289544`*^9}, {3.759080311774764*^9, 3.7590803218995256`*^9}, {
   3.7590803800303516`*^9, 3.7590803872902*^9}, {3.759080430508065*^9, 
   3.75908044334664*^9}, 3.7590806437835116`*^9, {3.7590810334024425`*^9, 
   3.759081137051669*^9}, {3.759122938705059*^9, 3.7591229390957055`*^9}, {
   3.759122979847847*^9, 3.759122999817646*^9}, {3.7591276870167613`*^9, 
   3.7591277017623463`*^9}, {3.759127843978074*^9, 3.7591278496678934`*^9}, {
   3.7591279324822197`*^9, 3.7591279396927967`*^9}, {3.7591283844994917`*^9, 
   3.7591283894738145`*^9}, {3.7591287916083975`*^9, 3.75912881031089*^9}, {
   3.75912993502721*^9, 3.7591299471783257`*^9}, 3.7600247965156927`*^9, {
   3.762961819059462*^9, 3.762961846560907*^9}, {3.7630470410174685`*^9, 
   3.76304708902698*^9}, {3.7643089660246854`*^9, 3.7643089685414977`*^9}, {
   3.764310383534698*^9, 3.764310395077403*^9}, {3.845957853145915*^9, 
   3.8459578557156305`*^9}, {3.845958186876568*^9, 3.8459582048759613`*^9}},
 CellLabel->
  "In[245]:=",ExpressionUUID->"538fbb64-ded1-47b2-b7bf-fe188d957c93"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Data(Unfiltered)", "Subchapter",
 CellChangeTimes->{{3.750593540689376*^9, 3.750593552549367*^9}, {
  3.7552418938883886`*^9, 3.75524189879488*^9}, {3.755243865718089*^9, 
  3.7552438725934715`*^9}, {3.7558486275718417`*^9, 3.755848628358365*^9}, {
  3.75584871390839*^9, 3.7558487180141315`*^9}, {3.755849145766692*^9, 
  3.755849149138938*^9}},ExpressionUUID->"2cce6738-32ea-4f37-9053-\
5617ad5a2c64"],

Cell[CellGroupData[{

Cell["Importing Data from File", "Subsubsection",
 CellChangeTimes->{{3.750396688677575*^9, 3.750396698240569*^9}, {
  3.755848722902397*^9, 
  3.7558487672594357`*^9}},ExpressionUUID->"1766c24e-1935-4b24-945a-\
23fbefbe63e5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Import", "[", 
     "\"\<C:\\\\Users\\\\William \
Wallace\\\\Desktop\\\\Ivo\\\\ISEG\\\\Tese\\\\Mathematica Files\\\\Ireland \
2004\\\\Data\\\\method data.xlsx\>\"", "]"}], ";"}], "*)"}], " ", 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.7539371842093425`*^9, 3.753937193616054*^9}, {
  3.7539372240238657`*^9, 3.7539373028873158`*^9}, {3.7542216225212536`*^9, 
  3.7542216837673597`*^9}, {3.7570748478791513`*^9, 3.7570748603137813`*^9}},
 CellLabel->
  "In[246]:=",ExpressionUUID->"ea91abde-34c1-4d96-adb0-64a0761ea33f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<GDPC1\>\"", ",", "\"\<PCECC96\>\"", ",", 
        "\"\<GDPIC1\>\"", ",", "\"\<CNP16OV\>\"", ",", "\"\<PNF_HOURS\>\"", 
        ",", "\"\<\>\"", ",", "\"\<y\>\"", ",", "\"\<c\>\"", ",", 
        "\"\<h\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1948.`", ",", "1196.5`", ",", "986.7`", ",", "209.8`", ",", 
        "0.102690666666667`", ",", "81.67266666666667`", ",", "\"\<\>\"", ",",
         "2912.874263159252`", ",", "2402.117037575624`", ",", 
        "198.83176660001496`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1948.25`", ",", "1218.2`", ",", "997.8`", ",", "220.4`", ",", 
        "0.102915333333333`", ",", "81.24266666666666`", ",", "\"\<\>\"", ",",
         "2959.2286215853906`", ",", "2423.8370699539505`", ",", 
        "197.3531640895759`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1948.5`", ",", "1220.8`", ",", "999.7`", ",", "221.1`", ",", 
        "0.103249`", ",", "82.021`", ",", "\"\<\>\"", ",", 
        "2955.9608325504364`", ",", "2420.6045579133943`", ",", 
        "198.59998644054664`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1948.75`", ",", "1218.1`", ",", "1008.`", ",", "210.1`", ",", 
        "0.103417666666667`", ",", "81.39966666666668`", ",", "\"\<\>\"", ",",
         "2944.6129449191367`", ",", "2436.7209986688204`", ",", 
        "196.77408437629873`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1949.`", ",", "1187.3`", ",", "1009.`", ",", "178.3`", ",", 
        "0.103584333333333`", ",", "79.61099999999999`", ",", "\"\<\>\"", ",",
         "2865.539512088388`", ",", "2435.213819335622`", ",", 
        "192.14054248872958`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1949.25`", ",", "1178.5`", ",", "1024.6`", ",", "153.9`", ",", 
        "0.103838`", ",", "78.05166666666666`", ",", "\"\<\>\"", ",", 
        "2837.3524143377185`", ",", "2466.823320942237`", ",", 
        "187.91691545163297`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1949.5`", ",", "1194.1000000000001`", ",", "1026.7`", ",", "167.4`", 
        ",", "0.104127333333333`", ",", "77.17399999999999`", ",", "\"\<\>\"",
         ",", "2866.9225499548725`", ",", "2465.0107880735845`", ",", 
        "185.28756458438764`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1949.75`", ",", "1198.6999999999998`", ",", "1041.1`", ",", "157.6`", 
        ",", "0.104427666666667`", ",", "76.173`", ",", "\"\<\>\"", ",", 
        "2869.6897054739547`", ",", "2492.3950549503083`", ",", 
        "182.3582830858994`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1950.`", ",", "1257.`", ",", "1058.9`", ",", "198.1`", ",", 
        "0.104733333333333`", ",", "77.07233333333333`", ",", "\"\<\>\"", ",",
         "3000.477402928081`", ",", "2527.609802673465`", ",", 
        "183.97278803310053`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1950.25`", ",", "1296.3000000000002`", ",", "1075.9`", ",", "220.4`", 
        ",", "0.105020333333333`", ",", "79.76200000000001`", ",", "\"\<\>\"",
         ",", "3085.830997806784`", ",", "2561.1706939291207`", ",", 
        "189.8727547998648`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1950.5`", ",", "1370.7`", ",", "1131.`", ",", "239.7`", ",", 
        "0.105248333333333`", ",", "82.855`", ",", "\"\<\>\"", ",", 
        "3255.871035170797`", ",", "2686.5033492216908`", ",", 
        "196.80834217485693`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1950.75`", ",", "1369.3999999999999`", ",", "1097.6`", ",", "271.8`", 
        ",", "0.104982333333333`", ",", "84.277`", ",", "\"\<\>\"", ",", 
        "3261.0248708512963`", ",", "2613.773111031388`", ",", 
        "200.6932912521796`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1951.`", ",", "1365.7`", ",", "1122.8`", ",", "242.9`", ",", 
        "0.104692333333333`", ",", "85.74866666666667`", ",", "\"\<\>\"", ",",
         "3261.222566440724`", ",", "2681.189644577612`", ",", 
        "204.76348156662286`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1951.25`", ",", "1340.6000000000001`", ",", "1091.4`", ",", "249.2`", 
        ",", "0.104506666666667`", ",", "86.29466666666666`", ",", "\"\<\>\"",
         ",", "3206.972441949467`", ",", "2610.838224036736`", ",", 
        "206.43340137790184`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1951.5`", ",", "1334.`", ",", "1103.9`", ",", "230.1`", ",", 
        "0.104542666666667`", ",", "85.82066666666667`", ",", "\"\<\>\"", ",",
         "3190.0850689351614`", ",", "2639.8312650656108`", ",", 
        "205.22880610149537`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1951.75`", ",", "1321.1`", ",", "1110.5`", ",", "210.6`", ",", 
        "0.104746666666667`", ",", "85.83300000000001`", ",", "\"\<\>\"", ",",
         "3153.083630346222`", ",", "2650.442337067201`", ",", 
        "204.85854760692402`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1952.`", ",", "1329.1999999999998`", ",", "1113.6`", ",", "215.6`", 
        ",", "0.104863333333333`", ",", "86.86366666666667`", ",", "\"\<\>\"",
         ",", "3168.8864871737915`", ",", "2654.8841349057584`", ",", 
        "207.08779681490262`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1952.25`", ",", "1332.8`", ",", "1135.1`", ",", "197.7`", ",", 
        "0.105006666666667`", ",", "86.21433333333334`", ",", "\"\<\>\"", ",",
         "3173.1318646435047`", ",", "2702.4474636530927`", ",", 
        "205.2591898927046`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1952.5`", ",", "1348.2`", ",", "1140.4`", ",", "207.8`", ",", 
        "0.105342666666667`", ",", "86.93599999999999`", ",", "\"\<\>\"", ",",
         "3199.558266988991`", ",", "2706.405761514794`", ",", 
        "206.31716177047537`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1952.75`", ",", "1403.8`", ",", "1180.5`", ",", "223.3`", ",", 
        "0.105703`", ",", "89.24266666666666`", ",", "\"\<\>\"", ",", 
        "3320.151745929633`", ",", "2792.0210400840087`", ",", 
        "211.06937992929875`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1953.`", ",", "1422.4`", ",", "1194.9`", ",", "227.5`", ",", 
        "0.106672`", ",", "90.17633333333333`", ",", "\"\<\>\"", ",", 
        "3333.5833208339586`", ",", "2800.406854657267`", ",", 
        "211.34021423928803`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1953.25`", ",", "1431.`", ",", "1202.5`", ",", "228.5`", ",", 
        "0.106904666666667`", ",", "90.43033333333334`", ",", "\"\<\>\"", ",",
         "3346.43950685033`", ",", "2812.0849105433417`", ",", 
        "211.47424184787627`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1953.5`", ",", "1422.6`", ",", "1199.8`", ",", "222.8`", ",", 
        "0.107139666666667`", ",", "89.65166666666666`", ",", "\"\<\>\"", ",",
         "3319.498847298998`", ",", "2799.616699697271`", ",", 
        "209.19345153833405`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1953.75`", ",", "1396.8`", ",", "1191.8`", ",", "205.`", ",", 
        "0.107503333333333`", ",", "88.28633333333333`", ",", "\"\<\>\"", ",",
         "3248.271371430353`", ",", "2771.541967690933`", ",", 
        "205.31068804068153`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1954.`", ",", "1399.6000000000001`", ",", "1196.2`", ",", "203.4`", 
        ",", "0.107876666666667`", ",", "86.53599999999966`", ",", "\"\<\>\"",
         ",", "3243.5188332354755`", ",", "2772.147205141666`", ",", 
        "200.54383091802228`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1954.25`", ",", "1414.3`", ",", "1211.3`", ",", "203.`", ",", 
        "0.108177`", ",", "85.866`", ",", "\"\<\>\"", ",", 
        "3268.4859073555376`", ",", "2799.3473658910857`", ",", 
        "198.43866995756954`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1954.5`", ",", "1440.6`", ",", "1227.3`", ",", "213.3`", ",", 
        "0.108443333333333`", ",", "85.33733333333333`", ",", "\"\<\>\"", ",",
         "3321.0893554237337`", ",", "2829.357882765201`", ",", 
        "196.73254848922693`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1954.75`", ",", "1475.8999999999999`", ",", "1252.6`", ",", "223.3`", 
        ",", "0.108786`", ",", "86.30133333333333`", ",", "\"\<\>\"", ",", 
        "3391.7507767543616`", ",", "2878.5873182210944`", ",", 
        "198.32821625331692`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1955.`", ",", "1527.3`", ",", "1280.1`", ",", "247.2`", ",", 
        "0.109130333333333`", ",", "87.74466666666667`", ",", "\"\<\>\"", ",",
         "3498.7980732518718`", ",", "2932.5027260981606`", ",", 
        "201.0088854000269`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1955.25`", ",", "1567.1`", ",", "1304.3`", ",", "262.8`", ",", 
        "0.109533666666667`", ",", "89.61899999999999`", ",", "\"\<\>\"", ",",
         "3576.7541790803934`", ",", "2976.938597265367`", ",", 
        "204.54669949269717`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1955.5`", ",", "1586.6999999999998`", ",", "1320.3`", ",", "266.4`", 
        ",", "0.109883666666667`", ",", "90.55066666666666`", ",", "\"\<\>\"",
         ",", "3609.9541636457834`", ",", "3003.8586262441095`", ",", 
        "206.01484600380337`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1955.75`", ",", "1608.7`", ",", "1336.7`", ",", "272.`", ",", 
        "0.110186`", ",", "91.622`", ",", "\"\<\>\"", ",", 
        "3649.964605303759`", ",", "3032.826311872652`", ",", 
        "207.8803114733269`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1956.`", ",", "1602.1`", ",", "1339.2`", ",", "262.9`", ",", 
        "0.110483333333333`", ",", "92.18400000000001`", ",", "\"\<\>\"", ",",
         "3625.2074219339374`", ",", "3030.321315432201`", ",", 
        "208.59254789561083`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1956.25`", ",", "1603.7`", ",", "1343.7`", ",", "260.`", ",", 
        "0.110787666666667`", ",", "92.09466666666667`", ",", "\"\<\>\"", ",",
         "3618.859500004502`", ",", "3032.1515932880525`", ",", 
        "207.81795807595847`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1956.5`", ",", "1603.9`", ",", "1346.8`", ",", "257.1`", ",", 
        "0.111113333333333`", ",", "91.43700000000001`", ",", "\"\<\>\"", ",",
         "3608.7028259434924`", ",", "3030.2393952121047`", ",", 
        "205.7291354172923`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1956.75`", ",", "1619.7`", ",", "1365.3`", ",", "254.4`", ",", 
        "0.111431`", ",", "92.60799999999999`", ",", "\"\<\>\"", ",", 
        "3633.8631081117464`", ",", "3063.1063169136055`", ",", 
        "207.76983065753691`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1957.`", ",", "1624.2`", ",", "1374.2`", ",", "250.`", ",", 
        "0.111720333333333`", ",", "92.66133333333335`", ",", "\"\<\>\"", ",",
         "3634.5219163327583`", ",", "3075.0892854478984`", ",", 
        "207.35109395186257`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1957.25`", ",", "1626.4`", ",", "1376.5`", ",", "249.9`", ",", 
        "0.112045333333333`", ",", "92.`", ",", "\"\<\>\"", ",", 
        "3628.8883071137984`", ",", "3071.301497013123`", ",", 
        "205.27405573934422`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1957.5`", ",", "1643.3`", ",", "1387.7`", ",", "255.6`", ",", 
        "0.112430666666667`", ",", "91.49933333333333`", ",", "\"\<\>\"", ",",
         "3654.0297427747955`", ",", "3085.6794706070614`", ",", 
        "203.45724179642502`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1957.75`", ",", "1622.8999999999999`", ",", "1388.8`", ",", "234.1`", 
        ",", "0.112865666666667`", ",", "89.802`", ",", "\"\<\>\"", ",", 
        "3594.760142588376`", ",", "3076.223356970076`", ",", 
        "198.91345759117715`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1958.`", ",", "1586.8`", ",", "1370.1`", ",", "216.7`", ",", 
        "0.113236333333333`", ",", "87.63366666666667`", ",", "\"\<\>\"", ",",
         "3503.292523895462`", ",", "3024.8683431996296`", ",", 
        "193.4751507908245`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1958.25`", ",", "1592.2`", ",", "1380.9`", ",", "211.3`", ",", 
        "0.113532`", ",", "85.92833333333334`", ",", "\"\<\>\"", ",", 
        "3506.05996547229`", ",", "3040.772645597717`", ",", 
        "189.21610940821387`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1958.5`", ",", "1630.7`", ",", "1402.3`", ",", "228.4`", ",", 
        "0.113846333333333`", ",", "86.90233333333333`", ",", "\"\<\>\"", ",",
         "3580.9234084540967`", ",", "3079.3701451371676`", ",", 
        "190.83252571448705`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1958.75`", ",", "1668.3999999999999`", ",", "1418.8`", ",", "249.6`", 
        ",", "0.114283333333333`", ",", "88.46733333333333`", ",", "\"\<\>\"",
         ",", "3649.7010354382487`", ",", "3103.689660201263`", ",", 
        "193.52632346507275`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1959.`", ",", "1708.2`", ",", "1445.2`", ",", "263.`", ",", 
        "0.114714333333333`", ",", "90.45566666666667`", ",", "\"\<\>\"", ",",
         "3722.7257273865916`", ",", "3149.5628270806124`", ",", 
        "197.132442037177`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1959.25`", ",", "1754.4`", ",", "1468.2`", ",", "286.2`", ",", 
        "0.115139`", ",", "92.32`", ",", "\"\<\>\"", ",", 
        "3809.308748556093`", ",", "3187.8859465515593`", ",", 
        "200.45336506309764`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1959.5`", ",", "1750.4`", ",", "1483.8`", ",", "266.6`", ",", 
        "0.115550666666667`", ",", "91.72333333333334`", ",", "\"\<\>\"", ",",
         "3787.0832996780528`", ",", "3210.2800503098115`", ",", 
        "198.4482997357575`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1959.75`", ",", "1761.1999999999998`", ",", "1485.6`", ",", "275.6`", 
        ",", "0.115918`", ",", "91.87466666666667`", ",", "\"\<\>\"", ",", 
        "3798.3747131593022`", ",", "3203.989026725789`", ",", 
        "198.14581572030806`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1960.`", ",", "1804.5`", ",", "1499.2`", ",", "305.3`", ",", 
        "0.116707666666667`", ",", "93.04133333333334`", ",", "\"\<\>\"", ",",
         "3865.427292694271`", ",", "3211.4428358034083`", ",", 
        "199.30424450835793`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1960.25`", ",", "1792.1`", ",", "1518.1`", ",", "274.`", ",", 
        "0.117036666666667`", ",", "93.03166666666668`", ",", "\"\<\>\"", ",",
         "3828.073823018416`", ",", "3242.7871607188536`", ",", 
        "198.72333456751392`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1960.5`", ",", "1784.5`", ",", "1512.1`", ",", "272.4`", ",", 
        "0.117411`", ",", "92.387`", ",", "\"\<\>\"", ",", 
        "3799.6865711049218`", ",", "3219.6727734198666`", ",", 
        "196.71708783674444`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1960.75`", ",", "1753.`", ",", "1513.5`", ",", "239.5`", ",", 
        "0.117824333333333`", ",", "91.27333333333333`", ",", "\"\<\>\"", ",",
         "3719.5203028237056`", ",", "3211.3485329855553`", ",", 
        "193.66401394165945`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1961.`", ",", "1757.8`", ",", "1512.8`", ",", "245.`", ",", 
        "0.118254333333333`", ",", "90.258`", ",", "\"\<\>\"", ",", 
        "3716.1428897602163`", ",", "3198.1914686706423`", ",", 
        "190.81330352939904`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1961.25`", ",", "1798.5`", ",", "1535.2`", ",", "263.3`", ",", 
        "0.118636`", ",", "90.49433333333333`", ",", "\"\<\>\"", ",", 
        "3789.954145453319`", ",", "3235.1057014734142`", ",", 
        "190.6974555222136`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1961.5`", ",", "1828.4`", ",", "1542.9`", ",", "285.5`", ",", 
        "0.119000666666667`", ",", "91.459`", ",", "\"\<\>\"", ",", 
        "3841.154951512866`", ",", "3241.368395695253`", ",", 
        "192.13967988974798`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1961.75`", ",", "1864.4`", ",", "1574.2`", ",", "290.2`", ",", 
        "0.119189666666667`", ",", "92.52499999999999`", ",", "\"\<\>\"", ",",
         "3910.573903218669`", ",", "3301.880196549468`", ",", 
        "194.0709345608814`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1962.`", ",", "1897.8999999999999`", ",", "1590.6`", ",", "307.3`", 
        ",", "0.119378666666667`", ",", "92.94366666666667`", ",", "\"\<\>\"",
         ",", "3974.537605825709`", ",", "3330.997163088873`", ",", 
        "194.64044385373103`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1962.25`", ",", "1914.4`", ",", "1609.9`", ",", "304.5`", ",", 
        "0.119819333333333`", ",", "94.33166666666666`", ",", "\"\<\>\"", ",",
         "3994.347044717336`", ",", "3359.015517807375`", ",", 
        "196.8206299484229`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1962.5`", ",", "1932.9`", ",", "1622.9`", ",", "310.`", ",", 
        "0.120368`", ",", "94.49933333333333`", ",", "\"\<\>\"", ",", 
        "4014.563671407683`", ",", "3370.7048384952814`", ",", 
        "196.2717111967743`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1962.75`", ",", "1945.4`", ",", "1645.9`", ",", "299.5`", ",", 
        "0.121045666666667`", ",", "94.36766666666666`", ",", "\"\<\>\"", ",",
         "4017.905088162308`", ",", "3399.3368893833367`", ",", 
        "194.90096024365405`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1963.`", ",", "1972.5`", ",", "1657.1`", ",", "315.4`", ",", 
        "0.12164`", ",", "94.65266666666668`", ",", "\"\<\>\"", ",", 
        "4053.9707333114106`", ",", "3405.746464978625`", ",", 
        "194.53441850268555`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1963.25`", ",", "1993.8`", ",", "1673.`", ",", "320.8`", ",", 
        "0.122166666666667`", ",", "95.73200000000001`", ",", "\"\<\>\"", ",",
         "4080.0818553888016`", ",", "3423.6016371077667`", ",", 
        "195.9045020463842`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1963.5`", ",", "2027.2`", ",", "1695.7`", ",", "331.5`", ",", 
        "0.122669666666667`", ",", "96.13166666666666`", ",", "\"\<\>\"", ",",
         "4131.420698950286`", ",", "3455.8258086079327`", ",", 
        "195.91572488716255`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1963.75`", ",", "2045.2`", ",", "1710.`", ",", "335.2`", ",", 
        "0.123188666666667`", ",", "96.539`", ",", "\"\<\>\"", ",", 
        "4150.544151788844`", ",", "3470.2867688044803`", ",", 
        "195.91696746995072`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1964.`", ",", "2092.7`", ",", "1743.8`", ",", "348.9`", ",", 
        "0.123708`", ",", "96.78166666666665`", ",", "\"\<\>\"", ",", 
        "4229.112102693439`", ",", "3524.0243153231804`", ",", 
        "195.58489884782443`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1964.25`", ",", "2122.5`", ",", "1775.`", ",", "347.5`", ",", 
        "0.124203`", ",", "97.884`", ",", "\"\<\>\"", ",", 
        "4272.239800970991`", ",", "3572.780045570558`", ",", 
        "197.02422646795972`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1964.5`", ",", "2163.5`", ",", "1807.8`", ",", "355.7`", ",", 
        "0.124739333333333`", ",", "98.53833333333334`", ",", "\"\<\>\"", ",",
         "4336.042093111514`", ",", "3623.15548690871`", ",", 
        "197.48849601034746`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1964.75`", ",", "2171.1`", ",", "1812.8`", ",", "358.3`", ",", 
        "0.125289`", ",", "99.63533333333334`", ",", "\"\<\>\"", ",", 
        "4332.1839906137`", ",", "3617.236948175817`", ",", 
        "198.8110155986027`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1965.`", ",", "2247.4`", ",", "1852.5`", ",", "394.9`", ",", 
        "0.125814`", ",", "101.022`", ",", "\"\<\>\"", ",", "4465.719236333`",
         ",", "3681.029138251705`", ",", "200.7368019457294`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1965.25`", ",", "2267.8`", ",", "1873.2`", ",", "394.6`", ",", 
        "0.126324666666667`", ",", "101.94666666666666`", ",", "\"\<\>\"", 
        ",", "4488.038757276213`", ",", "3707.114472232914`", ",", 
        "201.7552655327273`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1965.5`", ",", "2313.7`", ",", "1905.3`", ",", "408.4`", ",", 
        "0.126745`", ",", "102.78166666666668`", ",", "\"\<\>\"", ",", 
        "4563.690875379699`", ",", "3758.1364156376976`", ",", 
        "202.73317816613414`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1965.75`", ",", "2369.4`", ",", "1959.3`", ",", "410.1`", ",", 
        "0.127169333333333`", ",", "104.29233333333333`", ",", "\"\<\>\"", 
        ",", "4657.962611531095`", ",", "3851.754091657328`", ",", 
        "205.02650009960527`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1966.`", ",", "2432.7`", ",", "1988.6`", ",", "444.1`", ",", 
        "0.127511333333333`", ",", "105.87933333333332`", ",", "\"\<\>\"", 
        ",", "4769.5760376855515`", ",", "3898.8691201305082`", ",", 
        "207.58808367360862`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1966.25`", ",", "2430.5`", ",", "1994.`", ",", "436.5`", ",", 
        "0.127868666666667`", ",", "106.843`", ",", "\"\<\>\"", ",", 
        "4751.9460071010235`", ",", "3898.5313055582974`", ",", 
        "208.8920663388993`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1966.5`", ",", "2449.2999999999997`", ",", "2016.6`", ",", "432.7`", 
        ",", "0.128233666666667`", ",", "107.649`", ",", "\"\<\>\"", ",", 
        "4775.072068957437`", ",", "3931.4948492465473`", ",", 
        "209.86883319772966`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1966.75`", ",", "2460.9`", ",", "2025.1`", ",", "435.8`", ",", 
        "0.128617`", ",", "108.16333333333334`", ",", "\"\<\>\"", ",", 
        "4783.387888070783`", ",", "3936.2992450453667`", ",", 
        "210.2430731033482`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1967.`", ",", "2462.2`", ",", "2037.3`", ",", "424.9`", ",", 
        "0.129043666666667`", ",", "107.937`", ",", "\"\<\>\"", ",", 
        "4770.0907444766635`", ",", "3946.91977650975`", ",", 
        "209.1094487395734`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1967.25`", ",", "2469.6`", ",", "2064.6`", ",", "405.`", ",", 
        "0.129527`", ",", "107.59233333333333`", ",", "\"\<\>\"", ",", 
        "4766.573764543299`", ",", "3984.883460591228`", ",", 
        "207.6639104845579`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1967.5`", ",", "2490.3999999999996`", ",", "2075.2`", ",", "415.2`", 
        ",", "0.130165666666667`", ",", "108.32966666666668`", ",", 
        "\"\<\>\"", ",", "4783.135337787473`", ",", "3985.6900309093176`", 
        ",", "208.0611374735268`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1967.75`", ",", "2511.5`", ",", "2087.9`", ",", "423.6`", ",", 
        "0.130757333333333`", ",", "109.16066666666667`", ",", "\"\<\>\"", 
        ",", "4801.833931557707`", ",", "3991.9367173797878`", ",", 
        "208.70849818493343`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1968.`", ",", "2570.`", ",", "2136.2`", ",", "433.8`", ",", 
        "0.131267`", ",", "109.403`", ",", "\"\<\>\"", ",", 
        "4894.604127465395`", ",", "4068.425422992831`", ",", 
        "208.35967912727497`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1968.25`", ",", "2621.4`", ",", "2169.6`", ",", "451.8`", ",", 
        "0.131712333333333`", ",", "110.41366666666666`", ",", "\"\<\>\"", 
        ",", "4975.616052154076`", ",", "4118.065379855605`", ",", 
        "209.57351500871903`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1968.5`", ",", "2648.`", ",", "2210.7`", ",", "437.3`", ",", 
        "0.13225`", ",", "111.56633333333333`", ",", "\"\<\>\"", ",", 
        "5005.671077504726`", ",", "4179.017013232514`", ",", 
        "210.9004410838059`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1968.75`", ",", "2662.6`", ",", "2220.4`", ",", "442.2`", ",", 
        "0.13288`", ",", "112.31966666666666`", ",", "\"\<\>\"", ",", 
        "5009.406983744732`", ",", "4177.453341360626`", ",", 
        "211.317855709412`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1969.`", ",", "2715.6000000000004`", ",", "2244.8`", ",", "470.8`", 
        ",", "0.133476`", ",", "113.47833333333334`", ",", "\"\<\>\"", ",", 
        "5086.30765081363`", ",", "4204.501183733405`", ",", 
        "212.5444524358936`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1969.25`", ",", "2725.9`", ",", "2258.8`", ",", "467.1`", ",", 
        "0.134020333333333`", ",", "114.54466666666667`", ",", "\"\<\>\"", 
        ",", "5084.862744707906`", ",", "4213.539736507655`", ",", 
        "213.6703137086169`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1969.5`", ",", "2746.2`", ",", "2269.`", ",", "477.2`", ",", 
        "0.134595`", ",", "115.42`", ",", "\"\<\>\"", ",", 
        "5100.858129945392`", ",", "4214.495337865448`", ",", 
        "214.38389241799473`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1969.75`", ",", "2739.1`", ",", "2286.5`", ",", "452.6`", ",", 
        "0.135246666666667`", ",", "115.51466666666666`", ",", "\"\<\>\"", 
        ",", "5063.156208409314`", ",", "4226.5366983782615`", ",", 
        "213.52590328781926`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1970.`", ",", "2738.8`", ",", "2300.8`", ",", "438.`", ",", 
        "0.135949666666667`", ",", "115.00133333333333`", ",", "\"\<\>\"", 
        ",", "5036.42279373002`", ",", "4230.977641234859`", ",", 
        "211.4777773146429`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1970.25`", ",", "2751.4`", ",", "2312.`", ",", "439.4`", ",", 
        "0.136676666666667`", ",", "113.884`", ",", "\"\<\>\"", ",", 
        "5032.680535570556`", ",", "4228.958856669014`", ",", 
        "208.3091481111133`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1970.5`", ",", "2778.7`", ",", "2332.2`", ",", "446.5`", ",", 
        "0.137456`", ",", "113.00500000000001`", ",", "\"\<\>\"", ",", 
        "5053.799033872658`", ",", "4241.720987079501`", ",", 
        "205.52940577348392`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1970.75`", ",", "2745.9`", ",", "2324.9`", ",", "421.`", ",", 
        "0.138260333333333`", ",", "111.73799999999967`", ",", "\"\<\>\"", 
        ",", "4965.090011355402`", ",", "4203.844920572553`", ",", 
        "202.0427647360895`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1971.`", ",", "2845.7000000000003`", ",", "2369.8`", ",", "475.9`", 
        ",", "0.139033666666667`", ",", "112.06599999999999`", ",", 
        "\"\<\>\"", ",", "5116.926116216444`", ",", "4261.19812707233`", ",", 
        "201.5087472818329`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1971.25`", ",", "2881.6`", ",", "2391.4`", ",", "490.2`", ",", 
        "0.139827333333333`", ",", "112.54866666666665`", ",", "\"\<\>\"", 
        ",", "5152.068503535324`", ",", "4275.630420375616`", ",", 
        "201.2279430345049`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1971.5`", ",", "2906.3`", ",", "2409.8`", ",", "496.5`", ",", 
        "0.140602666666667`", ",", "112.51666666666667`", ",", "\"\<\>\"", 
        ",", "5167.5762432196525`", ",", "4284.769373743495`", ",", 
        "200.06140234419405`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1971.75`", ",", "2930.4`", ",", "2449.8`", ",", "480.6`", ",", 
        "0.141401666666667`", ",", "113.745`", ",", "\"\<\>\"", ",", 
        "5180.9856083732975`", ",", "4331.278509211338`", ",", 
        "201.1026508409844`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1972.`", ",", "2995.7999999999997`", ",", "2482.2`", ",", "513.6`", 
        ",", "0.143005333333333`", ",", "115.03166666666668`", ",", 
        "\"\<\>\"", ",", "5237.217259962344`", ",", "4339.348649001446`", ",",
         "201.09681224010342`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1972.25`", ",", "3072.4`", ",", "2527.5`", ",", "544.9`", ",", 
        "0.143758666666667`", ",", "116.43566666666668`", ",", "\"\<\>\"", 
        ",", "5342.982220202363`", ",", "4395.387176657165`", ",", 
        "202.4846038267833`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1972.5`", ",", "3120.`", ",", "2565.9`", ",", "554.1`", ",", 
        "0.144522666666667`", ",", "117.14633333333335`", ",", "\"\<\>\"", 
        ",", "5397.077275075639`", ",", "4438.577109011725`", ",", 
        "202.64352996531065`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1972.75`", ",", "3185.7000000000003`", ",", "2626.3`", ",", "559.4`", 
        ",", "0.145215`", ",", "118.84933333333333`", ",", "\"\<\>\"", ",", 
        "5484.454085321764`", ",", "4521.399304479565`", ",", 
        "204.609257537674`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1973.`", ",", "3269.3999999999996`", ",", "2674.2`", ",", "595.2`", 
        ",", "0.145964333333333`", ",", "120.585`", ",", "\"\<\>\"", ",", 
        "5599.655623634097`", ",", "4580.22850331018`", ",", 
        "206.53161845473713`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1973.25`", ",", "3289.6000000000004`", ",", "2671.4`", ",", "618.2`", 
        ",", "0.146719666666667`", ",", "121.85833333333333`", ",", 
        "\"\<\>\"", ",", "5605.247194763699`", ",", "4551.877844142675`", ",",
         "207.63803534631757`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1973.5`", ",", "3280.`", ",", "2682.5`", ",", "597.5`", ",", 
        "0.147478333333333`", ",", "122.443`", ",", "\"\<\>\"", ",", 
        "5560.138777447548`", ",", "4547.278131250929`", ",", 
        "207.5609976606738`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1973.75`", ",", "3290.8999999999996`", ",", "2675.6`", ",", "615.3`", 
        ",", "0.148226`", ",", "123.449333333333`", ",", "\"\<\>\"", ",", 
        "5550.476974349978`", ",", "4512.70357427172`", ",", 
        "208.21133494348663`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1974.`", ",", "3231.6000000000004`", ",", "2652.4`", ",", "579.2`", 
        ",", "0.148986666666667`", ",", "123.375`", ",", "\"\<\>\"", ",", 
        "5422.632897798449`", ",", "4450.733846429202`", ",", 
        "207.02355915518123`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1974.25`", ",", "3239.3`", ",", "2662.`", ",", "577.3`", ",", 
        "0.149746666666667`", ",", "123.23666666666666`", ",", "\"\<\>\"", 
        ",", "5407.966788353652`", ",", "4444.172380019579`", ",", 
        "205.74191968658133`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1974.5`", ",", "3215.6`", ",", "2672.2`", ",", "543.4`", ",", 
        "0.150498`", ",", "123.20299999999999`", ",", "\"\<\>\"", ",", 
        "5341.599223909952`", ",", "4438.929420988983`", ",", 
        "204.65886589855015`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1974.75`", ",", "3175.4`", ",", "2628.4`", ",", "547.`", ",", 
        "0.151253`", ",", "121.32666666666667`", ",", "\"\<\>\"", ",", 
        "5248.490939022698`", ",", "4344.37664046333`", ",", 
        "200.53596733067553`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1975.`", ",", "3099.6000000000004`", ",", "2648.8`", ",", "450.8`", 
        ",", "0.151987333333333`", ",", "117.47699999999999`", ",", 
        "\"\<\>\"", ",", "5098.4511867217125`", ",", "4356.942025870587`", 
        ",", "193.2348529044091`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1975.25`", ",", "3131.8`", ",", "2695.4`", ",", "436.4`", ",", 
        "0.152707666666667`", ",", "116.42433333333332`", ",", "\"\<\>\"", 
        ",", "5127.116516743309`", ",", "4412.679564221827`", ",", 
        "190.60001353348295`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1975.5`", ",", "3209.6`", ",", "2734.7`", ",", "474.9`", ",", 
        "0.153579`", ",", "117.81933333333335`", ",", "\"\<\>\"", ",", 
        "5224.672644046386`", ",", "4451.61773419543`", ",", 
        "191.78945906232843`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1975.75`", ",", "3251.4`", ",", "2764.6`", ",", "486.8`", ",", 
        "0.154336333333333`", ",", "119.45933333333333`", ",", "\"\<\>\"", 
        ",", "5266.744274949311`", ",", "4478.206687127042`", ",", 
        "193.50487787494455`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1976.`", ",", "3359.7999999999997`", ",", "2824.7`", ",", "535.1`", 
        ",", "0.155075`", ",", "121.42533333333334`", ",", "\"\<\>\"", ",", 
        "5416.4114138320165`", ",", "4553.7643075931`", ",", 
        "195.7525928314257`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1976.25`", ",", "3410.7`", ",", "2850.9`", ",", "559.8`", ",", 
        "0.155773666666667`", ",", "122.07066666666667`", ",", "\"\<\>\"", 
        ",", "5473.807083353828`", ",", "4575.388223512308`", ",", 
        "195.91030576413172`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1976.5`", ",", "3441.4`", ",", "2880.3`", ",", "561.1`", ",", 
        "0.156526666666667`", ",", "122.48633333333333`", ",", "\"\<\>\"", 
        ",", "5496.5075173559235`", ",", "4600.334341326282`", ",", 
        "195.63173474168363`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1976.75`", ",", "3485.5`", ",", "2919.6`", ",", "565.9`", ",", 
        "0.157222`", ",", "123.206`", ",", "\"\<\>\"", ",", 
        "5542.322321303634`", ",", "4642.480060042488`", ",", 
        "195.91087761254786`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1977.`", ",", "3550.2`", ",", "2954.7`", ",", "595.5`", ",", 
        "0.157910666666667`", ",", "124.52499999999999`", ",", "\"\<\>\"", 
        ",", "5620.582945631695`", ",", "4677.803061646659`", ",", 
        "197.14469362424282`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1977.25`", ",", "3605.5`", ",", "2970.5`", ",", "635.`", ",", 
        "0.158652333333333`", ",", "126.74633333333333`", ",", "\"\<\>\"", 
        ",", "5681.448114010311`", ",", "4680.832512180732`", ",", 
        "199.72339938271776`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1977.5`", ",", "3669.8`", ",", "2999.1`", ",", "670.7`", ",", 
        "0.159429666666667`", ",", "128.15233333333333`", ",", "\"\<\>\"", 
        ",", "5754.575162715418`", ",", "4702.857477382911`", ",", 
        "200.95433932204128`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1977.75`", ",", "3700.4`", ",", "3044.`", ",", "656.4`", ",", 
        "0.160140333333333`", ",", "129.63233333333332`", ",", "\"\<\>\"", 
        ",", "5776.808257757271`", ",", "4752.08202805457`", ",", 
        "202.3730228278951`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1978.`", ",", "3728.`", ",", "3060.8`", ",", "667.2`", ",", 
        "0.160828666666667`", ",", "130.17466666666667`", ",", "\"\<\>\"", 
        ",", "5794.986797544372`", ",", "4757.858259099736`", ",", 
        "202.34991274358177`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1978.25`", ",", "3836.7`", ",", "3127.`", ",", "709.7`", ",", 
        "0.161525333333333`", ",", "133.63233333333332`", ",", "\"\<\>\"", 
        ",", "5938.232599220774`", ",", "4839.798091527448`", ",", 
        "206.82875338440246`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1978.5`", ",", "3871.8999999999996`", ",", "3143.1`", ",", "728.8`", 
        ",", "0.162265`", ",", "134.89333333333335`", ",", "\"\<\>\"", ",", 
        "5965.3961112994175`", ",", "4842.541521585062`", ",", 
        "207.82875748518373`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1978.75`", ",", "3914.1000000000004`", ",", "3167.8`", ",", "746.3`", 
        ",", "0.163024`", ",", "136.34233333333336`", ",", "\"\<\>\"", ",", 
        "6002.337079203063`", ",", "4857.873687309844`", ",", 
        "209.08322292014267`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1979.`", ",", "3934.6`", ",", "3188.6`", ",", "746.`", ",", 
        "0.163756333333333`", ",", "137.6763333333333`", ",", "\"\<\>\"", ",",
         "6006.790577056574`", ",", "4867.9033279120085`", ",", 
        "210.18474603526823`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1979.25`", ",", "3930.`", ",", "3184.3`", ",", "745.7`", ",", 
        "0.164447333333333`", ",", "138.04266666666666`", ",", "\"\<\>\"", 
        ",", "5974.557203724811`", ",", "4840.911578580386`", ",", 
        "209.85847545921533`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1979.5`", ",", "3946.`", ",", "3213.9`", ",", "732.1`", ",", 
        "0.165199666666667`", ",", "138.91600000000003`", ",", "\"\<\>\"", 
        ",", "5971.561685959807`", ",", "4863.659934745621`", ",", 
        "210.2243951258978`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1979.75`", ",", "3943.5`", ",", "3225.7`", ",", "717.8`", ",", 
        "0.166054666666667`", ",", "139.35833333333332`", ",", "\"\<\>\"", 
        ",", "5937.050850723846`", ",", "4856.382637043213`", ",", 
        "209.8079146626408`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1980.`", ",", "3934.1000000000004`", ",", "3222.4`", ",", "711.7`", 
        ",", "0.166762333333333`", ",", "139.34266666666664`", ",", 
        "\"\<\>\"", ",", "5897.764683071929`", ",", "4830.827105241601`", ",",
         "208.89409478959115`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1980.25`", ",", "3796.6`", ",", "3149.2`", ",", "647.4`", ",", 
        "0.167415666666667`", ",", "137.02833333333334`", ",", "\"\<\>\"", 
        ",", "5669.42161924311`", ",", "4702.666218016226`", ",", 
        "204.6229245769508`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1980.5`", ",", "3781.`", ",", "3181.2`", ",", "599.8`", ",", 
        "0.168110666666667`", ",", "136.35666666666665`", ",", "\"\<\>\"", 
        ",", "5622.784197711021`", ",", "4730.812242728986`", ",", 
        "202.77813027926007`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1980.75`", ",", "3881.6000000000004`", ",", "3219.4`", ",", "662.2`", 
        ",", "0.168693666666667`", ",", "138.30766666666668`", ",", 
        "\"\<\>\"", ",", "5752.438838841993`", ",", "4771.074195632706`", ",",
         "204.96867102301766`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1981.`", ",", "3959.3999999999996`", ",", "3233.1`", ",", "726.3`", 
        ",", "0.169279`", ",", "139.617`", ",", "\"\<\>\"", ",", 
        "5847.447113936164`", ",", "4774.809633799821`", ",", 
        "206.19362118159958`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1981.25`", ",", "3928.9`", ",", "3235.5`", ",", "693.4`", ",", 
        "0.169837333333333`", ",", "139.457`", ",", "\"\<\>\"", ",", 
        "5783.327968723024`", ",", "4762.645433277341`", ",", 
        "205.2802485515556`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1981.5`", ",", "3984.4`", ",", "3250.5`", ",", "733.9`", ",", 
        "0.170412666666667`", ",", "139.62733333333333`", ",", "\"\<\>\"", 
        ",", "5845.222772955051`", ",", "4768.57158505431`", ",", 
        "204.8370817505737`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1981.75`", ",", "3933.8`", ",", "3225.`", ",", "708.8`", ",", 
        "0.170990333333333`", ",", "138.86666666666633`", ",", "\"\<\>\"", 
        ",", "5751.494723873291`", ",", "4715.178830772119`", ",", 
        "203.03291998962897`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1982.`", ",", "3879.1000000000004`", ",", "3244.3`", ",", "634.8`", 
        ",", "0.171497`", ",", "137.38633333333334`", ",", "\"\<\>\"", ",", 
        "5654.763640180295`", ",", "4729.38302127734`", ",", 
        "200.27512628986707`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1982.25`", ",", "3885.`", ",", "3253.4`", ",", "631.6`", ",", 
        "0.17202`", ",", "135.93466666666666`", ",", "\"\<\>\"", ",", 
        "5646.1457970003485`", ",", "4728.229275665621`", ",", 
        "197.55648567995968`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1982.5`", ",", "3898.1`", ",", "3274.6`", ",", "623.5`", ",", 
        "0.172521666666667`", ",", "134.728333333333`", ",", "\"\<\>\"", ",", 
        "5648.7107899490775`", ",", "4745.201085853942`", ",", 
        "195.23393196989667`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1982.75`", ",", "3900.7`", ",", "3329.6`", ",", "571.1`", ",", 
        "0.173046`", ",", "133.556`", ",", "\"\<\>\"", ",", 
        "5635.351293875617`", ",", "4810.281659212001`", ",", 
        "192.94869572252466`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1983.`", ",", "3950.8`", ",", "3360.1`", ",", "590.7`", ",", 
        "0.173505`", ",", "133.898`", ",", "\"\<\>\"", ",", 
        "5692.631336272731`", ",", "4841.503126711046`", ",", 
        "192.93103945131264`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1983.25`", ",", "4080.8`", ",", "3430.1`", ",", "650.7`", ",", 
        "0.173957333333333`", ",", "135.637`", ",", "\"\<\>\"", ",", 
        "5864.656467486292`", ",", "4929.51336726248`", ",", 
        "194.92854569702953`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1983.5`", ",", "4176.099999999999`", ",", "3484.7`", ",", "691.4`", 
        ",", "0.174449333333333`", ",", "137.8803333333333`", ",", "\"\<\>\"",
         ",", "5984.688964130952`", ",", "4993.856860062529`", ",", 
        "197.59366616477024`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1983.75`", ",", "4304.4`", ",", "3542.2`", ",", "762.2`", ",", 
        "0.174950333333333`", ",", "140.694`", ",", "\"\<\>\"", ",", 
        "6150.888537889812`", ",", "5061.72227927546`", ",", 
        "201.0484880470842`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1984.`", ",", "4424.7`", ",", "3579.7`", ",", "845.`", ",", 
        "0.175678666666667`", ",", "143.06733333333332`", ",", "\"\<\>\"", 
        ",", "6296.581258206258`", ",", "5094.101731191028`", ",", 
        "203.59235422248153`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1984.25`", ",", "4501.5`", ",", "3628.3`", ",", "873.2`", ",", 
        "0.176125333333333`", ",", "144.76533333333333`", ",", "\"\<\>\"", 
        ",", "6389.6259481884235`", ",", "5150.167683619251`", ",", 
        "205.48624464396605`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1984.5`", ",", "4544.2`", ",", "3653.5`", ",", "890.7`", ",", 
        "0.176595333333333`", ",", "145.94899999999998`", ",", "\"\<\>\"", 
        ",", "6433.069201526666`", ",", "5172.135541520548`", ",", 
        "206.61502946472766`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1984.75`", ",", "4577.8`", ",", "3700.9`", ",", "876.9`", ",", 
        "0.177132333333333`", ",", "147.13366666666636`", ",", "\"\<\>\"", 
        ",", "6460.988677015502`", ",", "5223.354667038025`", ",", 
        "207.66065672181057`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1985.`", ",", "4605.7`", ",", "3756.8`", ",", "848.9`", ",", 
        "0.177522333333333`", ",", "148.05666666666667`", ",", "\"\<\>\"", 
        ",", "6486.0853188425235`", ",", "5290.601933653428`", ",", 
        "208.50428209032893`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1985.25`", ",", "4654.3`", ",", "3791.5`", ",", "862.8`", ",", 
        "0.177946333333333`", ",", "148.7913333333333`", ",", "\"\<\>\"", ",",
         "6538.909671267941`", ",", "5326.746453518767`", ",", 
        "209.03961681330924`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1985.5`", ",", "4715.`", ",", "3860.9`", ",", "854.1`", ",", 
        "0.178413333333333`", ",", "149.42133333333334`", ",", "\"\<\>\"", 
        ",", "6606.849263881635`", ",", "5410.049697332048`", ",", 
        "209.37523354009454`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1985.75`", ",", "4762.`", ",", "3874.2`", ",", "887.8`", ",", 
        "0.178940666666667`", ",", "150.46333333333334`", ",", "\"\<\>\"", 
        ",", "6653.043280640498`", ",", "5412.688004589965`", ",", 
        "210.2140001713786`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1986.`", ",", "4794.1`", ",", "3907.9`", ",", "886.2`", ",", 
        "0.179825333333333`", ",", "151.16066666666666`", ",", "\"\<\>\"", 
        ",", "6664.939682210157`", ",", "5432.910824577933`", ",", 
        "210.14929301766938`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1986.25`", ",", "4818.7`", ",", "3950.4`", ",", "868.3`", ",", 
        "0.180320666666667`", ",", "151.03533333333334`", ",", "\"\<\>\"", 
        ",", "6680.73727914344`", ",", "5476.909653543123`", ",", 
        "209.39825717887726`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1986.5`", ",", "4857.7`", ",", "4019.7`", ",", "838.`", ",", 
        "0.180835666666667`", ",", "151.625`", ",", "\"\<\>\"", ",", 
        "6715.6276324545`", ",", "5557.117235353635`", ",", 
        "209.61711093128713`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1986.75`", ",", "4885.`", ",", "4046.8`", ",", "838.2`", ",", 
        "0.181365333333333`", ",", "152.37166666666667`", ",", "\"\<\>\"", 
        ",", "6733.646268305606`", ",", "5578.243545256731`", ",", 
        "210.034166764689`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1987.`", ",", "4913.099999999999`", ",", "4049.7`", ",", "863.4`", 
        ",", "0.182001333333333`", ",", "153.96266666666665`", ",", 
        "\"\<\>\"", ",", "6748.714295133381`", ",", "5562.733972644899`", ",",
         "211.4856301419041`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1987.25`", ",", "4965.4`", ",", "4101.5`", ",", "863.9`", ",", 
        "0.182526666666667`", ",", "155.15833333333333`", ",", "\"\<\>\"", 
        ",", "6800.9240658899025`", ",", "5617.672303590332`", ",", 
        "212.51460973738958`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1987.5`", ",", "5007.5`", ",", "4147.`", ",", "860.5`", ",", 
        "0.183016`", ",", "156.67933333333335`", ",", "\"\<\>\"", ",", 
        "6840.248939983389`", ",", "5664.805262927831`", ",", 
        "214.02409261121068`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1987.75`", ",", "5084.6`", ",", "4155.3`", ",", "929.3`", ",", 
        "0.183467`", ",", "157.77366666666666`", ",", "\"\<\>\"", ",", 
        "6928.49395259093`", ",", "5662.189930614225`", ",", 
        "214.9891624470159`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1988.`", ",", "5112.6`", ",", "4228.`", ",", "884.6`", ",", 
        "0.183967333333333`", ",", "158.735`", ",", "\"\<\>\"", ",", 
        "6947.700859935291`", ",", "5745.585266949577`", ",", 
        "215.71085083946102`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1988.25`", ",", "5159.3`", ",", "4256.8`", ",", "902.5`", ",", 
        "0.184389333333333`", ",", "159.95133333333334`", ",", "\"\<\>\"", 
        ",", "6995.117215746405`", ",", "5771.48352760826`", ",", 
        "216.86630463078166`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1988.5`", ",", "5199.1`", ",", "4291.6`", ",", "907.5`", ",", 
        "0.184840333333333`", ",", "160.97166666666632`", ",", "\"\<\>\"", 
        ",", "7031.879766501192`", ",", "5804.469082325117`", ",", 
        "217.7171829380672`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1988.75`", ",", "5258.099999999999`", ",", "4341.4`", ",", "916.7`", 
        ",", "0.185253333333333`", ",", "162.45499999999998`", ",", 
        "\"\<\>\"", ",", "7095.823736864846`", ",", "5858.733985893202`", ",",
         "219.23357204548765`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1989.`", ",", "5309.8`", ",", "4357.1`", ",", "952.7`", ",", 
        "0.185772666666667`", ",", "163.56433333333334`", ",", "\"\<\>\"", 
        ",", "7145.561420948171`", ",", "5863.483684359727`", ",", 
        "220.11356173674596`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1989.25`", ",", "5315.900000000001`", ",", "4374.8`", ",", "941.1`", 
        ",", "0.186178`", ",", "164.037`", ",", "\"\<\>\"", ",", 
        "7138.195705185361`", ",", "5874.485707226418`", ",", 
        "220.26904360343326`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1989.5`", ",", "5342.7`", ",", "4413.4`", ",", "929.3`", ",", 
        "0.186602333333333`", ",", "164.28833333333333`", ",", "\"\<\>\"", 
        ",", "7157.868694032062`", ",", "5912.841389979056`", ",", 
        "220.1048754302826`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1989.75`", ",", "5352.299999999999`", ",", "4429.4`", ",", "922.9`", 
        ",", "0.187017666666667`", ",", "164.81266666666667`", ",", 
        "\"\<\>\"", ",", "7154.8053392460115`", ",", "5921.098363256223`", 
        ",", "220.3169754016105`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1990.`", ",", "5400.`", ",", "4466.`", ",", "934.`", ",", 
        "0.188519666666667`", ",", "166.05866666666668`", ",", "\"\<\>\"", 
        ",", "7161.0565829559655`", ",", "5922.459018422471`", ",", 
        "220.21398297967107`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1990.25`", ",", "5411.8`", ",", "4478.8`", ",", "933.`", ",", 
        "0.188916333333333`", ",", "166.13399999999967`", ",", "\"\<\>\"", 
        ",", "7161.635927015323`", ",", "5926.962376642934`", ",", 
        "219.85129219460464`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1990.5`", ",", "5408.200000000001`", ",", "4495.6`", ",", "912.6`", 
        ",", "0.189352666666667`", ",", "165.66699999999966`", ",", 
        "\"\<\>\"", ",", "7140.380031616478`", ",", "5935.485460991649`", ",",
         "218.7281052286906`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1990.75`", ",", "5307.3`", ",", "4457.7`", ",", "849.6`", ",", 
        "0.189866333333333`", ",", "164.54566666666668`", ",", "\"\<\>\"", 
        ",", "6988.20573772076`", ",", "5869.523998462086`", ",", 
        "216.6598782652361`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1991.`", ",", "5252.6`", ",", "4437.5`", ",", "815.1`", ",", 
        "0.190271666666667`", ",", "163.02999999999966`", ",", "\"\<\>\"", 
        ",", "6901.447929714519`", ",", "5830.479227070056`", ",", 
        "214.20687963700942`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1991.25`", ",", "5278.7`", ",", "4469.9`", ",", "808.8`", ",", 
        "0.190655666666667`", ",", "162.26`", ",", "\"\<\>\"", ",", 
        "6921.77171060567`", ",", "5861.221014499078`", ",", 
        "212.7657714518491`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1991.5`", ",", "5314.1`", ",", "4484.3`", ",", "829.8`", ",", 
        "0.191121333333333`", ",", "162.496`", ",", "\"\<\>\"", ",", 
        "6951.212493285256`", ",", "5865.7763654502305`", ",", 
        "212.55607258216457`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1991.75`", ",", "5339.`", ",", "4474.8`", ",", "864.2`", ",", 
        "0.191650666666667`", ",", "162.42266666666666`", ",", "\"\<\>\"", 
        ",", "6964.494427360881`", ",", "5837.182930053282`", ",", 
        "211.87333899177634`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1992.`", ",", "5388.6`", ",", "4544.8`", ",", "843.8`", ",", 
        "0.192074666666667`", ",", "162.064`", ",", "\"\<\>\"", ",", 
        "7013.678708280101`", ",", "5915.407896928962`", ",", 
        "210.93880157716404`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1992.25`", ",", "5468.5`", ",", "4566.7`", ",", "901.8`", ",", 
        "0.192506666666667`", ",", "163.16466666666668`", ",", "\"\<\>\"", 
        ",", "7101.702105554774`", ",", "5930.5738329408405`", ",", 
        "211.89482615320648`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1992.5`", ",", "5512.6`", ",", "4600.5`", ",", "912.1`", ",", 
        "0.193024333333333`", ",", "163.32433333333333`", ",", "\"\<\>\"", 
        ",", "7139.773396445712`", ",", "5958.445653656803`", ",", 
        "211.53334726364415`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1992.75`", ",", "5607.5`", ",", "4665.9`", ",", "941.6`", ",", 
        "0.193615666666667`", ",", "164.36533333333333`", ",", "\"\<\>\"", 
        ",", "7240.503953708968`", ",", "6024.693249685362`", ",", 
        "212.2314482126959`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1993.`", ",", "5639.7`", ",", "4674.9`", ",", "964.8`", ",", 
        "0.194106`", ",", "165.43566666666666`", ",", "\"\<\>\"", ",", 
        "7263.685821149269`", ",", "6021.06580940311`", ",", 
        "213.0738702908033`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1993.25`", ",", "5688.5`", ",", "4721.5`", ",", "967.`", ",", 
        "0.194555333333333`", ",", "166.65333333333334`", ",", "\"\<\>\"", 
        ",", "7309.617144051576`", ",", "6067.040053729369`", ",", 
        "214.14644676921426`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1993.5`", ",", "5741.`", ",", "4776.9`", ",", "964.1`", ",", 
        "0.195068`", ",", "168.0106666666663`", ",", "\"\<\>\"", ",", 
        "7357.69065146513`", ",", "6122.095884512068`", ",", 
        "215.32320353244293`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1993.75`", ",", "5837.900000000001`", ",", "4822.3`", ",", "1015.6`", 
        ",", "0.195621`", ",", "169.49633333333333`", ",", "\"\<\>\"", ",", 
        "7460.727631491508`", ",", "6162.8097187929725`", ",", 
        "216.61316184526882`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1994.`", ",", "5923.900000000001`", ",", "4866.6`", ",", "1057.3`", 
        ",", "0.196085333333333`", ",", "170.641`", ",", "\"\<\>\"", ",", 
        "7552.7066447261195`", ",", "6204.696594679878`", ",", 
        "217.5596169014854`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1994.25`", ",", "6026.4`", ",", "4907.9`", ",", "1118.5`", ",", 
        "0.196522`", ",", "173.06033333333335`", ",", "\"\<\>\"", ",", 
        "7666.317257100985`", ",", "6243.44857064349`", ",", 
        "220.15389286356407`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1994.5`", ",", "6046.3`", ",", "4944.5`", ",", "1101.8`", ",", 
        "0.19705`", ",", "174.57966666666667`", ",", "\"\<\>\"", ",", 
        "7671.022583100736`", ",", "6273.154021821872`", ",", 
        "221.49158420028758`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1994.75`", ",", "6144.1`", ",", "4993.6`", ",", "1150.5`", ",", 
        "0.197600666666667`", ",", "176.17466666666667`", ",", "\"\<\>\"", 
        ",", "7773.379644468123`", ",", "6317.7924500929375`", ",", 
        "222.8922979342171`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1995.`", ",", "6174.`", ",", "5011.6`", ",", "1162.4`", ",", 
        "0.197882`", ",", "177.057`", ",", "\"\<\>\"", ",", 
        "7800.103091741543`", ",", "6331.5511264288825`", ",", 
        "223.69012846039558`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1995.25`", ",", "6188.1`", ",", "5059.6`", ",", "1128.5`", ",", 
        "0.198295666666667`", ",", "177.27866666666668`", ",", "\"\<\>\"", 
        ",", "7801.607700285924`", ",", "6378.85850590111`", ",", 
        "223.50295098060604`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1995.5`", ",", "6218.299999999999`", ",", "5099.2`", ",", "1119.1`", 
        ",", "0.198807`", ",", "178.24233333333333`", ",", "\"\<\>\"", ",", 
        "7819.518427419556`", ",", "6412.249065676761`", ",", 
        "224.13991123719654`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1995.75`", ",", "6284.5`", ",", "5132.1`", ",", "1152.4`", ",", 
        "0.199351666666667`", ",", "178.99833333333333`", ",", "\"\<\>\"", 
        ",", "7881.173136249997`", ",", "6435.988328832622`", ",", 
        "224.47559170979218`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1996.`", ",", "6346.6`", ",", "5174.3`", ",", "1172.3`", ",", 
        "0.199776`", ",", "179.5956666666667`", ",", "\"\<\>\"", ",", 
        "7942.145202626943`", ",", "6475.127142399488`", ",", 
        "224.7462991884244`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1996.25`", ",", "6462.9`", ",", "5229.5`", ",", "1233.4`", ",", 
        "0.200279333333333`", ",", "181.45766666666668`", ",", "\"\<\>\"", 
        ",", "8067.357590565191`", ",", "6527.757898135615`", ",", 
        "226.50573032997286`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1996.5`", ",", "6535.700000000001`", ",", "5254.3`", ",", "1281.4`", 
        ",", "0.200849666666667`", ",", "182.971`", ",", "\"\<\>\"", ",", 
        "8135.064534170652`", ",", "6540.090515460142`", ",", 
        "227.74620819219643`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1996.75`", ",", "6575.599999999999`", ",", "5291.9`", ",", "1283.7`", 
        ",", "0.201457333333333`", ",", "184.46433333333334`", ",", 
        "\"\<\>\"", ",", "8160.040504854639`", ",", "6567.02329029142`", ",", 
        "228.91240825187177`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1997.`", ",", "6676.1`", ",", "5350.7`", ",", "1325.4`", ",", 
        "0.202395666666667`", ",", "185.9606666666663`", ",", "\"\<\>\"", ",",
         "8246.347500852278`", ",", "6609.207707016114`", ",", 
        "229.69941714825828`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1997.25`", ",", "6776.299999999999`", ",", "5375.7`", ",", "1400.6`", 
        ",", "0.202835333333333`", ",", "187.58366666666666`", ",", 
        "\"\<\>\"", ",", "8351.97187866678`", ",", "6625.694734316517`", ",", 
        "231.20191090967094`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1997.5`", ",", "6870.700000000001`", ",", "5462.1`", ",", "1408.6`", 
        ",", "0.203366666666667`", ",", "188.985`", ",", "\"\<\>\"", ",", 
        "8446.197344697577`", ",", "6714.595967874108`", ",", 
        "232.32052122602815`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1997.75`", ",", "6945.6`", ",", "5507.1`", ",", "1438.5`", ",", 
        "0.203935333333333`", ",", "190.75766666666667`", ",", "\"\<\>\"", 
        ",", "8514.463735236348`", ",", "6751.037093457741`", ",", 
        "233.84577790999145`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1998.`", ",", "7119.6`", ",", "5576.3`", ",", "1543.3`", ",", 
        "0.204395`", ",", "192.26066666666668`", ",", "\"\<\>\"", ",", 
        "8708.138653098169`", ",", "6820.494630494875`", ",", 
        "235.158231202655`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1998.25`", ",", "7177.`", ",", "5660.2`", ",", "1516.8`", ",", 
        "0.204905`", ",", "192.9463333333333`", ",", "\"\<\>\"", ",", 
        "8756.49691320368`", ",", "6905.883214172421`", ",", 
        "235.40949871078465`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1998.5`", ",", "7273.4`", ",", "5713.7`", ",", "1559.7`", ",", 
        "0.205482666666667`", ",", "194.06466666666665`", ",", "\"\<\>\"", 
        ",", "8849.16489306477`", ",", "6951.5595800456695`", ",", 
        "236.1083173276574`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1998.75`", ",", "7396.799999999999`", ",", "5784.7`", ",", "1612.1`", 
        ",", "0.206097666666667`", ",", "195.379`", ",", "\"\<\>\"", ",", 
        "8972.445102888098`", ",", "7016.940188551371`", ",", 
        "236.99807372879806`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1999.`", ",", "7491.7`", ",", "5851.4`", ",", "1640.3`", ",", 
        "0.206876`", ",", "196.072`", ",", "\"\<\>\"", ",", 
        "9053.37013476672`", ",", "7071.144066977319`", ",", 
        "236.94386975772926`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1999.25`", ",", "7553.3`", ",", "5932.8`", ",", "1620.5`", ",", 
        "0.207431666666667`", ",", "197.13866666666635`", ",", "\"\<\>\"", 
        ",", "9103.359339220131`", ",", "7150.306526647319`", ",", 
        "237.5947099044658`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1999.5`", ",", "7663.5`", ",", "6000.1`", ",", "1663.4`", ",", 
        "0.208043666666667`", ",", "198.38566666666668`", ",", "\"\<\>\"", 
        ",", "9209.004199438885`", ",", "7210.144985587951`", ",", 
        "238.3942633838085`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1999.75`", ",", "7791.400000000001`", ",", "6073.6`", ",", "1717.8`", 
        ",", "0.208660333333333`", ",", "199.81499999999997`", ",", 
        "\"\<\>\"", ",", "9335.027740458592`", ",", "7276.898180615717`", ",",
         "239.40223425311666`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "2000.`", ",", "7879.7`", ",", "6151.9`", ",", "1727.8`", ",", 
        "0.208914`", ",", "201.11333333333334`", ",", "\"\<\>\"", ",", 
        "9429.358492011068`", ",", "7361.761298907684`", ",", 
        "240.66521790465617`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "2000.25`", ",", "7996.299999999999`", ",", "6198.2`", ",", "1798.1`", 
        ",", "0.209376666666667`", ",", "201.418`", ",", "\"\<\>\"", ",", 
        "9547.744893572972`", ",", "7400.7769092385215`", ",", 
        "240.49719007211846`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "2000.5`", ",", "8027.1`", ",", "6256.8`", ",", "1770.3`", ",", 
        "0.209941`", ",", "201.61833333333334`", ",", "\"\<\>\"", ",", 
        "9558.756984105059`", ",", "7450.664710561539`", ",", 
        "240.08927905141604`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "2000.75`", ",", "8044.`", ",", "6288.8`", ",", "1755.2`", ",", 
        "0.210566`", ",", "201.787`", ",", "\"\<\>\"", ",", 
        "9550.449740223969`", ",", "7466.542556728057`", ",", 
        "239.57690225392514`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "2001.`", ",", "7987.8`", ",", "6326.`", ",", "1661.8`", ",", 
        "0.211028666666667`", ",", "201.74599999999964`", ",", "\"\<\>\"", 
        ",", "9462.932366218793`", ",", "7494.242488382293`", ",", 
        "239.00307383199043`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "2001.25`", ",", "7931.5`", ",", "6348.`", ",", "1583.5`", ",", 
        "0.211532666666667`", ",", "200.987`", ",", "\"\<\>\"", ",", 
        "9373.847695706558`", ",", "7502.387338125856`", ",", 
        "237.53659797225922`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "2001.5`", ",", "7933.599999999999`", ",", "6370.9`", ",", "1562.7`", 
        ",", "0.212137666666667`", ",", "199.697`", ",", "\"\<\>\"", ",", 
        "9349.589024737066`", ",", "7507.978309682537`", ",", 
        "235.33892299497302`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "2001.75`", ",", "7954.3`", ",", "6464.`", ",", "1490.3`", ",", 
        "0.212758333333333`", ",", "197.80266666666634`", ",", "\"\<\>\"", 
        ",", "9346.637421174273`", ",", "7595.472171086143`", ",", 
        "232.4264619482198`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "2002.`", ",", "8067.8`", ",", "6513.8`", ",", "1554.`", ",", 
        "0.213209666666667`", ",", "197.48566666666667`", ",", "\"\<\>\"", 
        ",", "9459.936932190365`", ",", "7637.786904596247`", ",", 
        "231.56274965644113`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "2002.25`", ",", "8129.200000000001`", ",", "6543.8`", ",", "1585.4`", 
        ",", "0.213664`", ",", "197.43266666666668`", ",", "\"\<\>\"", ",", 
        "9511.663172083272`", ",", "7656.64782087764`", ",", 
        "231.00834331785734`"}], "}"}]}], "}"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.757074871858198*^9, 3.7570748910708203`*^9}},
 CellLabel->
  "In[247]:=",ExpressionUUID->"11a73872-422c-4fc1-be87-7cbfe446a705"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"output", "=", 
   RowBox[{"Drop", "[", 
    RowBox[{
     RowBox[{"data", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "All", ",", "8"}], "]"}], "]"}], ",", "1"}], "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"consumption", "=", 
   RowBox[{"Drop", "[", 
    RowBox[{
     RowBox[{"data", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "All", ",", "9"}], "]"}], "]"}], ",", "1"}], "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hours", "=", 
   RowBox[{"Drop", "[", 
    RowBox[{
     RowBox[{"data", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "All", ",", "10"}], "]"}], "]"}], ",", "1"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"invest", "=", 
   RowBox[{"output", "-", "consumption"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7496367022404146`*^9, 3.749636842893637*^9}, {
  3.749636963424161*^9, 3.7496370426052985`*^9}, {3.749637129192546*^9, 
  3.7496371995834107`*^9}, {3.749638370879083*^9, 3.7496384102707214`*^9}, {
  3.7539394505967407`*^9, 3.7539394655032434`*^9}, {3.7558494974209957`*^9, 
  3.7558494983025846`*^9}, {3.7563619312347083`*^9, 3.7563619321566057`*^9}},
 CellLabel->
  "In[248]:=",ExpressionUUID->"ffd5ee29-f6ca-44de-a669-f9691bc5508d"]
}, Closed]],

Cell[CellGroupData[{

Cell["Data Plots", "Subsubsection",
 CellChangeTimes->{{3.750396688677575*^9, 3.750396698240569*^9}, {
  3.755848722902397*^9, 3.7558487672594357`*^9}, {3.7559623494427276`*^9, 
  3.7559623686586747`*^9}},ExpressionUUID->"1edf7230-aa07-4bee-adb1-\
031861e56e19"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Drop", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Log", "[", "output", "]"}], "-", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{"i", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"Length", "[", "output", "]"}]}], "}"}]}], "]"}], "*", 
      RowBox[{"Log", "[", "1.0051", "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"218", "-", "50"}]}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7496369509772873`*^9, 3.749636959305768*^9}, {
  3.7496373669280095`*^9, 3.7496373726049337`*^9}, {3.7542216923480167`*^9, 
  3.7542217476425643`*^9}, {3.756362892670246*^9, 3.756362924995473*^9}},
 CellLabel->
  "In[252]:=",ExpressionUUID->"18e0b8e5-b0d1-4d6a-8015-6a8d2d4c88dd"],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.011000000000000001`],
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7G8b/Qjq5VBwgAo4uM04pvGXFcbncLAUX3fy
DiOML+DAuGHy45IX8lC+iEPcCa66kmswvoSD40uHM45XYHwZB+X+xY9TLsP4
Cg5BOy0OK1+A8ZUcgmtPsyhfgvFVHE5L3vu16SaMr+YQJhHL9B3O13CYoH6T
R+oxjK/lYKqsUaX1EMbXcTj0Rywu8xGMr+fAFrHT9hVcvYFD+Awln09vYHxD
hxmHrl/y+ALjGznwuKwyiP0H4xs7TE87Un/iJ4xv4hD1YsotIXh4mDqsm8Pw
ypIBxjdzCP8bf6vgN0y9uUPcBo3iKT9gfAuHGCudvZlweUuHTA+5Egm4fVYO
66+oHC5mgZln7eBstrZYgQ3Gt3Hg/rWtShweP7YOO54FHrjPDuPbOTAzT9Q5
yQ3j2zuo6HXffsMH4zs4VE9MtygUgPIbHBxu5DDWRknC5B0dRA9oTpkK4zc4
OvD05C2Ik4HJOzkkmx91vKkAk3dyWOafHHtdCSbv7GA2f2EonzJM3tkhTznw
ebQaTN7F4eu9wNXbtGDyLg5sl1v2OurC5F0duANeRHAZwuRdHQ4smLWKTR8m
7+Zwzoblw09tmLybQwVrZPsKFZi8u8Pxzbv+mcrC5N0dPrMunOoO95+Hw+TW
sLxmMZi8h8Pr98lfhaVg8p4Oi6cJvHMG8gFPcr09
      "]]}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011000000000000001`], AbsoluteThickness[1.6]}, {}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011000000000000001`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., 7.945343609812388},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 50.}, {7.945343609812388, 8.095782068594437}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7496368432608285`*^9, {3.749636954940429*^9, 3.7496369599094133`*^9}, 
   3.749637375053513*^9, 3.753937171021162*^9, 3.7542217032573986`*^9, 
   3.7542217494642725`*^9, 3.755849505906664*^9, 3.756362261590211*^9, 
   3.75636285927784*^9, {3.7563629103586464`*^9, 3.7563629256986165`*^9}, 
   3.7563638744543114`*^9, 3.756452983216509*^9, 3.756463596668167*^9, 
   3.7565498342470846`*^9, 3.7565519290480347`*^9, 3.756552629118396*^9, 
   3.7565530340816174`*^9, 3.7565732980634127`*^9, 3.756620205335064*^9, 
   3.75662173724102*^9, 3.7566454382049665`*^9, 3.7567060446723456`*^9, 
   3.7567164550111914`*^9, 3.756723793726085*^9, 3.756738710880904*^9, 
   3.7568178627451153`*^9, 3.75682588807859*^9, 3.756875139268192*^9, 
   3.756876671768852*^9, 3.757074539225422*^9, 3.757074906133102*^9, 
   3.7570753396524496`*^9, {3.757143879083441*^9, 3.7571438961818676`*^9}, 
   3.757143935364058*^9, 3.757307297421527*^9, 3.7573211820997577`*^9, {
   3.7574829052375793`*^9, 3.7574829437864785`*^9}, 3.7574831931861367`*^9, 
   3.7574834029276915`*^9, 3.757568369816465*^9, 3.757660996523903*^9, 
   3.7577842125823717`*^9, 3.7577847622334785`*^9, 3.757784895849723*^9, 
   3.757869246456802*^9, 3.757944266590768*^9, 3.7579444453409758`*^9, 
   3.757945974295831*^9, 3.757960374993579*^9, 3.75796054435415*^9, 
   3.7588860133330665`*^9, 3.758890765254471*^9, 3.758979089110109*^9, 
   3.7589794137133403`*^9, 3.759053058976983*^9, 3.7591231918393517`*^9, 
   3.759126930006289*^9, 3.759127582227939*^9, 3.7591277687672343`*^9, 
   3.7591278885708647`*^9, 3.759128126291213*^9, 3.7591284278154225`*^9, 
   3.7591289307933598`*^9, 3.759129247892273*^9, 3.759129681981201*^9, 
   3.7591300123524694`*^9, 3.7591310466111445`*^9, 3.7592214379298754`*^9, 
   3.759221706891469*^9, 3.7592230233135357`*^9, 3.75922365256022*^9, 
   3.7592252444617076`*^9, 3.75964736571157*^9, 3.7596488763608403`*^9, 
   3.7600248267826366`*^9, 3.760164399708502*^9, 3.7601660306390953`*^9, 
   3.760249431842533*^9, 3.760250328437252*^9, 3.763046725008192*^9, 
   3.7630472365939064`*^9, 3.7631006280765405`*^9, 3.763107082416565*^9, 
   3.764131987726838*^9, 3.764308790144156*^9, 3.7643088362825713`*^9, 
   3.7681102715026875`*^9, 3.768110337637189*^9, 3.768286322132167*^9, 
   3.8459581161675406`*^9, 3.8459586686230774`*^9, 3.8459587260192137`*^9},
 CellLabel->
  "Out[252]=",ExpressionUUID->"26308fad-c101-4707-93e3-a9e1167bf226"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Drop", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Log", "[", "consumption", "]"}], "-", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{"i", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"Length", "[", "output", "]"}]}], "}"}]}], "]"}], "*", 
      RowBox[{"Log", "[", "1.0051", "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"218", "-", "50"}]}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.754221796003332*^9, 3.7542217965826726`*^9}, {
  3.755849508718537*^9, 3.7558495098723087`*^9}, {3.756362958059714*^9, 
  3.7563629767950687`*^9}},
 CellLabel->
  "In[253]:=",ExpressionUUID->"6763adb9-9d8d-4856-a53d-dfb4c3c80d22"],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.011000000000000001`],
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7BfX5/xe7CfvABVw0Jvts9nUC8bncDj9OelO
hRuML+Age7D/1EVTGF/EoWPO1LnHNGF8CQfr1usLPsP5Mg7+27wPdKrC+AoO
P/ZutgmWhvGVHM7XNKXtV4bxVRw2ahwT01SE8dUcYm79WXFAAcbXcOCZ2b3g
rhqMr+Xw0JDNlAuuXsfhR1bC+nlw8/QcprGKuKxUh/ENHNQ9Pnvbwt1n6GDx
p6j4uxaMb+SQxv9QQEkHxjd2+Pz/6oUT2jC+iYPapIsc13RhfFOHiNp3h2/B
9Zs56EYoznaBy5s7tKwL3JwO51s48ETcuP8Lbp6lw9lpz1f/gttn5cD1h9GF
3wDGt3ZIqnrTcgIub+PQzhjii3CPrYPfoi1+inDz7RykOrseV8DdY+/wOeFI
4EsjGN/BYd2CzoV2xlB+g4NDjxJjbIsFTN7RIfZOXjiPA0ze0SFr6tNP0xxh
8k4OIamGad9dYfJODq9fnhJc7AGTd3a4Vxry/TIsPTU4O7CcYpJQD4LJuzhI
K/UkJobB5F0cOiuOu3HHwuRdHXbFV8fbw/gNrg4RYWV/X8XB5N0ctr4waHwc
DZN3c7iR3r6hIgom7+6gFJv0LB5uvrtDrN6MpW8DYfIeDlaXEkOmRsDkPRy2
VPFqCETC5D0dlNUKtUDuAwCgZrsv
      "]]}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011000000000000001`], AbsoluteThickness[1.6]}, {}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011000000000000001`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., 7.773017568619696},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 50.}, {7.773017568619696, 7.842693291042075}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7542217980522413`*^9, {3.7558495107869186`*^9, 3.755849513596794*^9}, 
   3.756362269512475*^9, 3.7563628593403435`*^9, 3.7563629788576593`*^9, 
   3.756363874485564*^9, 3.7564529832477584`*^9, 3.7564635966961837`*^9, 
   3.75654983427831*^9, 3.7565519290636625`*^9, 3.756552629149647*^9, 
   3.7565530341128693`*^9, 3.756573298113685*^9, 3.7566202054444184`*^9, 
   3.756621737272275*^9, 3.756645438236201*^9, 3.756706044703597*^9, 
   3.7567164550267887`*^9, 3.7567237937581005`*^9, 3.756738710916926*^9, 
   3.756817862870124*^9, 3.7568258880941887`*^9, 3.756875139283818*^9, 
   3.756876671800103*^9, 3.7570745397275114`*^9, 3.7570749101799116`*^9, 
   3.7570753396680484`*^9, {3.7571438791459436`*^9, 3.7571438963391333`*^9}, 
   3.757143935489064*^9, 3.7573072975308905`*^9, 3.7573211821257715`*^9, {
   3.757482905346959*^9, 3.7574829268637133`*^9}, 3.7574831932173867`*^9, 
   3.7574834029433193`*^9, 3.757568369925849*^9, 3.7576609965551567`*^9, 
   3.757784212696443*^9, 3.757784762262498*^9, 3.7577848958817415`*^9, 
   3.757869246488038*^9, 3.7579442667167654`*^9, 3.7579444453722286`*^9, 
   3.7579459743270802`*^9, 3.75796037502483*^9, 3.757960544385401*^9, 
   3.758886013364317*^9, 3.758890765301347*^9, 3.7589790891411343`*^9, 
   3.7589794137445917`*^9, 3.7590530590082245`*^9, 3.7591231918549757`*^9, 
   3.7591269300495358`*^9, 3.7591275822591925`*^9, 3.7591277687984858`*^9, 
   3.7591278886021185`*^9, 3.759128126322464*^9, 3.7591284278424425`*^9, 
   3.7591289308203773`*^9, 3.7591292479202914`*^9, 3.759129682009218*^9, 
   3.7591300123837214`*^9, 3.7591310466423955`*^9, 3.7592214380392437`*^9, 
   3.759221706907096*^9, 3.7592230233331685`*^9, 3.75922365259147*^9, 
   3.7592252444929633`*^9, 3.759648876376465*^9, 3.7600248269615145`*^9, 
   3.7601643997397437`*^9, 3.760166030685975*^9, 3.7602494318737817`*^9, 
   3.760250328468504*^9, 3.763046725118558*^9, 3.7630472366251574`*^9, 
   3.763100628201519*^9, 3.763107082447817*^9, 3.764131987758092*^9, 
   3.764308790253536*^9, 3.7643088363138247`*^9, 3.768110271628769*^9, 
   3.7681103376722126`*^9, 3.7682863221946707`*^9, 3.845958116401493*^9, 
   3.845958668779464*^9, 3.845958726185708*^9},
 CellLabel->
  "Out[253]=",ExpressionUUID->"6d5666f2-053f-4c10-964e-89531cd9237e"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Data Treatment and Selection - End Time, Start Time. (See RBC section )\
\>", "Subsubsection",
 CellChangeTimes->{{3.750396688677575*^9, 3.750396698240569*^9}, {
   3.755848722902397*^9, 3.7558487919699316`*^9}, {3.7558492765259686`*^9, 
   3.755849286210905*^9}, {3.7563625794350357`*^9, 3.7563626006080256`*^9}, 
   3.756463089859869*^9, 3.7564657308325963`*^9, {3.7574828637822876`*^9, 
   3.7574828772205005`*^9}, {3.759073126150857*^9, 3.7590731274176307`*^9}, {
   3.7591248913668003`*^9, 
   3.7591249189307485`*^9}},ExpressionUUID->"2b2cc7bc-16e7-4915-a8d1-\
db3346dc3532"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"To", " ", "define", " ", "correctly", " ", "this"}], ",", " ", 
    RowBox[{
     RowBox[{
     "we", " ", "must", " ", "obey", " ", "the", " ", "order", " ", "in", " ",
       "the", " ", "RBC", " ", "section", " ", "Y_t"}], "=", 
     RowBox[{"(", 
      RowBox[{"output", ",", "hours", ",", "consumption"}], ")"}]}]}], "*)"}],
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"intercept", "=", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{"i", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"Length", "[", "output", "]"}]}], "}"}]}], "]"}], "*", 
      RowBox[{"Log", "[", "1.0051", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"loutput", ",", "lhours", ",", "lconsumption"}], "}"}], "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Log", "[", "output", "]"}], "-", "intercept"}], ",", 
       RowBox[{"Log", "[", "hours", "]"}], ",", 
       RowBox[{
        RowBox[{"Log", "[", "consumption", "]"}], "-", "intercept"}]}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Y1Ttest", "=", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{"loutput", ",", "lhours", ",", "lconsumption"}], "}"}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"endTime", "=", "50"}], ";", "\[IndentingNewLine]", 
     RowBox[{"startTime", "=", "11"}], ";", "\[IndentingNewLine]", 
     RowBox[{"loutput", "=", 
      RowBox[{"Drop", "[", 
       RowBox[{"loutput", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", 
          RowBox[{
           RowBox[{"Length", "[", "output", "]"}], "-", "endTime"}]}], 
         "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"lconsumption", "=", 
      RowBox[{"Drop", "[", 
       RowBox[{"lconsumption", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", 
          RowBox[{
           RowBox[{"Length", "[", "output", "]"}], "-", "endTime"}]}], 
         "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"lhours", "=", 
      RowBox[{"Drop", "[", 
       RowBox[{"lhours", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", 
          RowBox[{
           RowBox[{"Length", "[", "output", "]"}], "-", "endTime"}]}], 
         "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Y1T", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"loutput", ",", "lhours", ",", "lconsumption"}], "}"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Y1T", ":", " ", 
     RowBox[{
     "each", " ", "observation", " ", "is", " ", "stored", " ", "in", " ", 
      "a", " ", 
      RowBox[{"row", "."}]}]}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.7558492206286573`*^9, 3.755849231396847*^9}, {
   3.7558492897542195`*^9, 3.755849367022792*^9}, {3.7558494796971664`*^9, 
   3.7558494898729577`*^9}, {3.755849550160198*^9, 3.7558495614428787`*^9}, {
   3.7558496464826417`*^9, 3.7558496473522224`*^9}, {3.755849732068865*^9, 
   3.755849771952924*^9}, {3.755850613120446*^9, 3.7558506267725625`*^9}, {
   3.7563624614444623`*^9, 3.756362461741352*^9}, {3.7563625123377533`*^9, 
   3.7563625318387833`*^9}, {3.7563626175151625`*^9, 3.756362673486854*^9}, {
   3.7563627195986557`*^9, 3.7563628390268335`*^9}, {3.756363180744708*^9, 
   3.7563631831667085`*^9}, {3.756452911456498*^9, 3.7564529644318233`*^9}, 
   3.75646309926011*^9, 3.756465723038503*^9, 3.7568329134678016`*^9, {
   3.757074644969114*^9, 3.757074655842831*^9}, {3.757075169812171*^9, 
   3.7570751748839135`*^9}, {3.7571438644274783`*^9, 
   3.7571438682294292`*^9}, {3.7571440667654753`*^9, 3.757144071119184*^9}, {
   3.7571448616789618`*^9, 3.757144910800666*^9}, {3.7590731362848673`*^9, 
   3.759073136456749*^9}, {3.759073502060461*^9, 3.7590735168701224`*^9}, {
   3.759073687760145*^9, 3.7590737802357984`*^9}, {3.759073844367112*^9, 
   3.759073968692217*^9}, {3.7590766228914766`*^9, 3.7590766305222874`*^9}, {
   3.7590770572691336`*^9, 3.759077074828225*^9}, {3.759077107197381*^9, 
   3.7590771092278557`*^9}, {3.7590772471903152`*^9, 3.759077272770194*^9}, {
   3.7590773096228576`*^9, 3.7590773112326965`*^9}, {3.7590817207375517`*^9, 
   3.7590817216594443`*^9}, {3.7590832548772917`*^9, 
   3.7590832572524185`*^9}, {3.759084060939204*^9, 3.759084080190217*^9}, {
   3.759123502293194*^9, 3.759123519887868*^9}, 3.759123591735364*^9, 
   3.7591236575513225`*^9, {3.7591237106635084`*^9, 3.759123725742432*^9}, {
   3.759123802709673*^9, 3.7591238231013384`*^9}, 3.7591238877610154`*^9, {
   3.7591239568271174`*^9, 3.7591239697496996`*^9}, {3.75912404609746*^9, 
   3.7591240482694507`*^9}, {3.759124592501172*^9, 3.759124592923071*^9}, {
   3.759124626721719*^9, 3.7591246409255915`*^9}},
 CellLabel->
  "In[254]:=",ExpressionUUID->"4f53b2f8-596c-4740-a92b-6d0ef8320712"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Prediction Functions", "Subchapter",
 CellChangeTimes->{{3.750593540689376*^9, 3.750593552549367*^9}, {
   3.7552418938883886`*^9, 3.75524189879488*^9}, {3.755243865718089*^9, 
   3.7552438725934715`*^9}, {3.7558486275718417`*^9, 3.755848628358365*^9}, {
   3.7560470915239525`*^9, 3.756047106595093*^9}, {3.756363575265439*^9, 
   3.7563635930944915`*^9}, 3.7564532656352167`*^9, 3.756463824683773*^9, 
   3.757669090977857*^9, {3.758699523847086*^9, 3.7586995271340065`*^9}, {
   3.7591271769162483`*^9, 
   3.7591271892225*^9}},ExpressionUUID->"287bcb65-9516-4abc-a9ee-\
afcdb657282a"],

Cell[CellGroupData[{

Cell["Initial Values", "Subsubsection",
 CellChangeTimes->{{3.750396688677575*^9, 3.750396698240569*^9}, {
  3.755848722902397*^9, 3.7558487919699316`*^9}, {3.75584899615912*^9, 
  3.7558490085964212`*^9}, {3.755851097232693*^9, 3.7558511163744698`*^9}, {
  3.756363504996093*^9, 3.756363505824262*^9}, {3.759077528079832*^9, 
  3.759077536443704*^9}},ExpressionUUID->"4fe9a518-ada0-47e7-bee5-\
08b44d3fd6e8"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"initValues", "[", "time_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "X1", ",", "counter", ",", "M1", ",", "\[Beta]", ",", "\[Delta]", ",",
          "\[Theta]", ",", "\[Rho]", ",", "aPar", ",", "\[Gamma]", ",", "A", 
         ",", "Cmat", ",", "CmatStar", ",", "Sigma", ",", "Q", ",", "Lgp"}], 
        "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"M1", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"6.528", ",", "1.065", ",", "6.565"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1.065", ",", "1.607", ",", "0.968"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6.565", ",", "0.968", ",", "6.621"}], "}"}]}], "}"}]}], 
        ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\[Beta]", ",", "\[Delta]", ",", "\[Theta]", ",", "\[Rho]", ",", 
           "aPar", ",", "\[Gamma]"}], "}"}], "=", 
         RowBox[{"{", 
          RowBox[{
          "0.7", ",", "0.3", ",", "0.6", ",", "0.7", ",", "2", ",", "0.6"}], 
          "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"A", ",", "Cmat", ",", "CmatStar"}], "}"}], "=", 
         RowBox[{"rbcACmat", "[", 
          RowBox[{"{", 
           RowBox[{
           "\[Beta]", ",", "\[Delta]", ",", "\[Theta]", ",", "\[Rho]", ",", 
            "aPar", ",", "\[Gamma]"}], "}"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"Sigma", "=", 
         RowBox[{"DiagonalMatrix", "[", 
          RowBox[{"{", 
           RowBox[{"0.5", ",", "0.2", ",", "0.3"}], "}"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"Q", "=", 
         RowBox[{"DiagonalMatrix", "[", 
          RowBox[{"{", 
           RowBox[{"1.5", ",", "0.6"}], "}"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"Lgp", "=", "20"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"X1", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{"1", ",", "time"}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"X1", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "=", 
         RowBox[{"RandomVariate", "[", 
          RowBox[{"MultinormalDistribution", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", 
            RowBox[{"IdentityMatrix", "[", "2", "]"}]}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"counter", "=", "2"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"While", "[", 
         RowBox[{
          RowBox[{"counter", "\[LessEqual]", "time"}], ",", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"X1", "[", 
             RowBox[{"[", "counter", "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{"A", ".", 
              RowBox[{"X1", "[", 
               RowBox[{"[", 
                RowBox[{"counter", "-", "1"}], "]"}], "]"}]}], "+", 
             RowBox[{"RandomVariate", "[", 
              RowBox[{"MultinormalDistribution", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", "Q"}], "]"}], "]"}]}]}],
            ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"counter", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"X1", ",", 
          RowBox[{"{", 
           RowBox[{"M1", ",", 
            RowBox[{"reparametrizationF", "[", 
             RowBox[{"{", 
              RowBox[{
              "\[Beta]", ",", "\[Delta]", ",", "\[Theta]", ",", "\[Rho]", ",",
                "aPar", ",", "\[Gamma]"}], "}"}], "]"}], ",", 
            RowBox[{"reparametrizationMatern", "[", "Lgp", "]"}], ",", 
            RowBox[{"reparametrizationFQS", "[", 
             RowBox[{"{", 
              RowBox[{"Q", ",", "Sigma"}], "}"}], "]"}]}], "}"}]}], "}"}]}]}],
       "\[IndentingNewLine]", "]"}]}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.755848963309189*^9, 3.755848964577035*^9}, {
   3.7558505867348356`*^9, 3.7558506025313797`*^9}, {3.755850639533078*^9, 
   3.755850643227543*^9}, {3.7558509255220757`*^9, 3.755850948813624*^9}, {
   3.755962261841407*^9, 3.7559623101557713`*^9}, 3.7566455141157827`*^9, {
   3.7566488262163925`*^9, 3.7566488450659823`*^9}, {3.759082180210918*^9, 
   3.7590824131664915`*^9}, {3.759082502968086*^9, 3.7590825118904285`*^9}, {
   3.7590825814353724`*^9, 3.7590825820135293`*^9}, 3.7602483817558594`*^9, {
   3.760248425476942*^9, 3.760248473276369*^9}, {3.7602485490772896`*^9, 
   3.76024855087426*^9}, {3.760248583063478*^9, 3.7602485835010004`*^9}, {
   3.760248643004177*^9, 3.7602487852930193`*^9}, {3.760248828170308*^9, 
   3.760249044869372*^9}, 3.760249929244102*^9, 3.760250238416822*^9},
 CellLabel->
  "In[257]:=",ExpressionUUID->"9e3d938a-f805-4556-91ae-68780d2daa54"]
}, Closed]],

Cell[CellGroupData[{

Cell["Prediction 1 Step ", "Subsubsection",
 CellChangeTimes->{{3.750396688677575*^9, 3.750396698240569*^9}, {
   3.755848722902397*^9, 3.7558487919699316`*^9}, {3.75584899615912*^9, 
   3.7558490085964212`*^9}, {3.755851097232693*^9, 3.7558511163744698`*^9}, {
   3.756363504996093*^9, 3.756363518481205*^9}, {3.7590631658958197`*^9, 
   3.759063173721311*^9}, {3.759648526102664*^9, 3.759648551932001*^9}, {
   3.7641733725991707`*^9, 3.7641733906993494`*^9}, 
   3.7666535359736013`*^9},ExpressionUUID->"041b0654-a27c-4664-ab04-\
4748101f44d3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"prediction1Step", "[", 
    RowBox[{
    "stateSamples_", ",", "parameterSamples_", ",", "time_", ",", "vecy1T_", 
     ",", "sizeApproxY_", ",", "sizeBurnIn_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "len", "}"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"len", "=", 
       RowBox[{"Length", "[", "stateSamples", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
         RowBox[{"For", " ", "a", " ", "Burn"}], "-", "In"}], ",", " ", 
        RowBox[{
        "the", " ", "prediction", " ", "will", " ", "only", " ", "use", " ", 
         "data", " ", "after", " ", "sizeBurnIn"}], ",", " ", 
        RowBox[{
         RowBox[{"i", ".", "e", ".", " ", "sizeBurnIn"}], "+", "1"}]}], " ", 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"econParSampleList", "=", 
       RowBox[{"ParallelTable", "[", 
        RowBox[{
         RowBox[{"reparametrizationFInv", "[", 
          RowBox[{"parameterSamples", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"sizeBurnIn", "+", "1"}], ",", " ", "len"}], "}"}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"listACCstar", "=", 
       RowBox[{"ParallelTable", "[", 
        RowBox[{
         RowBox[{"rbcACmat", "[", 
          RowBox[{"econParSampleList", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", " ", 
           RowBox[{"len", "-", "sizeBurnIn"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"listQSigma", "=", 
       RowBox[{"ParallelTable", "[", 
        RowBox[{
         RowBox[{"reparametrizationFQSInv", "[", 
          RowBox[{"parameterSamples", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "4"}], "]"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"sizeBurnIn", "+", "1"}], ",", " ", "len"}], "}"}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"predictedState", "=", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"ParallelTable", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"listACCstar", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"i", "-", "sizeBurnIn"}], ",", "1"}], "]"}], "]"}], 
            ".", 
            RowBox[{"stateSamples", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"-", "1"}]}], "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"sizeBurnIn", "+", "1"}], ",", " ", "len"}], "}"}]}], 
          "]"}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"len", "-", "sizeBurnIn"}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
         RowBox[{"This", " ", "computes", " ", "x_", "*", " ", 
          RowBox[{".", " ", "Computing"}], " ", "the", " ", "mean", " ", 
          "state", " ", "at", " ", "T"}], "+", "1"}], ",", " ", 
        RowBox[{
         RowBox[{
         "we", " ", "must", " ", "take", " ", "care", " ", "to", " ", "use", 
          " ", "only", " ", "the", " ", "data", " ", "after", " ", "Burn"}], 
         "-", 
         RowBox[{"In", "."}]}]}], "\[IndentingNewLine]", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "\"\<1\>\"", "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"KStarX1TList", "=", 
       RowBox[{"ParallelTable", "[", 
        RowBox[{
         RowBox[{"KroneckerProduct", "[", 
          RowBox[{
           RowBox[{"Kint", "[", 
            RowBox[{
             RowBox[{"{", "predictedState", "}"}], ",", 
             RowBox[{"stateSamples", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", 
             RowBox[{"Exp", "[", 
              RowBox[{"parameterSamples", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3"}], "]"}], "]"}], "]"}]}], "]"}], ",", 
           RowBox[{"parameterSamples", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"sizeBurnIn", "+", "1"}], ",", "len"}], "}"}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "KStarX1TList", " ", "is", " ", "a", " ", "list", " ", "with", " ", 
        "K_M", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x_", "*"}], ",", 
           RowBox[{"x_", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ":", "T"}], "}"}], "[", "i", "]"}]}]}], ")"}], 
         "\\", "otimes"}], " ", 
        RowBox[{"M1", "[", "i", "]"}], " ", "as", " ", "components"}], "*)"}],
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "2", "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"KStarStarList", "=", 
       RowBox[{"ParallelTable", "[", 
        RowBox[{
         RowBox[{"KroneckerProduct", "[", 
          RowBox[{
           RowBox[{"Kint", "[", 
            RowBox[{
             RowBox[{"{", "predictedState", "}"}], ",", 
             RowBox[{"{", "predictedState", "}"}], ",", 
             RowBox[{"Exp", "[", 
              RowBox[{"parameterSamples", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3"}], "]"}], "]"}], "]"}]}], "]"}], ",", 
           RowBox[{"parameterSamples", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"sizeBurnIn", "+", "1"}], ",", "len"}], "}"}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "KStarStarList", " ", "is", " ", "a", " ", "list", " ", "with", " ", 
        RowBox[{
         RowBox[{"K_M", "[", 
          RowBox[{
           RowBox[{"x_", "*"}], ",", 
           RowBox[{"x_", "*"}]}], " ", "]"}], " ", "\\", "otimes"}], " ", 
        RowBox[{"M1", "[", "i", "]"}], " ", "as", " ", "components"}], "*)"}],
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "3", "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"KX1TList", "=", 
       RowBox[{"ParallelTable", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"KroneckerProduct", "[", 
           RowBox[{
            RowBox[{"Kint", "[", 
             RowBox[{
              RowBox[{"stateSamples", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ",", 
              RowBox[{"stateSamples", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ",", 
              RowBox[{"Exp", "[", 
               RowBox[{"parameterSamples", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "3"}], "]"}], "]"}], "]"}]}], "]"}], ",", 
            RowBox[{"parameterSamples", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "]"}], "+", 
          RowBox[{"KroneckerProduct", "[", 
           RowBox[{
            RowBox[{"IdentityMatrix", "[", "time", "]"}], ",", 
            RowBox[{"listQSigma", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"i", "-", "sizeBurnIn"}], ",", "2"}], "]"}], "]"}]}], 
           "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"sizeBurnIn", "+", "1"}], ",", "len"}], "}"}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
        "KX1TList", " ", "is", " ", "a", " ", "list", " ", "with", " ", 
         RowBox[{
          RowBox[{"K_M", "[", 
           RowBox[{
            RowBox[{"x_", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ":", "T"}], "}"}], "[", "i", "]"}]}], ",", 
            RowBox[{"x_", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ":", "T"}], "}"}], "[", "i", "]"}]}]}], " ", 
           "]"}], " ", "\\", "otimes"}], " ", 
         RowBox[{"M1", "[", "i", "]"}]}], " ", "+", 
        RowBox[{
         RowBox[{"I_T", " ", "\\", "otimes"}], " ", 
         RowBox[{"Sigma", "[", "i", "]"}], " ", "as", " ", "components"}]}], 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "4", "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"vecX1TList", "=", 
       RowBox[{"ParallelTable", "[", 
        RowBox[{
         RowBox[{"ArrayReshape", "[", 
          RowBox[{
           RowBox[{"stateSamples", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Times", "@@", 
              RowBox[{"Dimensions", "[", 
               RowBox[{"stateSamples", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", "1"}], "}"}]}], 
          "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"sizeBurnIn", "+", "1"}], ",", "len"}], "}"}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"meanDifList", "=", 
       RowBox[{"ParallelTable", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"vecy1T", "-", 
           RowBox[{
            RowBox[{"KroneckerProduct", "[", 
             RowBox[{
              RowBox[{"IdentityMatrix", "[", "time", "]"}], ",", 
              RowBox[{"listACCstar", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "]"}], ".", 
            RowBox[{"vecX1TList", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], "-", 
           RowBox[{
            RowBox[{"KroneckerProduct", "[", 
             RowBox[{
              RowBox[{"ConstantArray", "[", 
               RowBox[{"1", ",", "time"}], "]"}], ",", 
              RowBox[{"IdentityMatrix", "[", "3", "]"}]}], "]"}], ".", 
            RowBox[{"listACCstar", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}], ")"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"len", "-", "sizeBurnIn"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
        "meanDifList", " ", "is", " ", "a", " ", "list", " ", "with", " ", 
         "y_", 
         RowBox[{"{", 
          RowBox[{"1", ":", "T"}], "}"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"I_T", "\\", "otimes"}], " ", "C"}], ")"}], "x_", 
         RowBox[{"{", 
          RowBox[{"1", ":", "T"}], "}"}]}], "-", 
        RowBox[{"C_", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"*", "1"}], ":", "T"}], "}"}], " ", "as", " ", 
         RowBox[{"components", ".", "\[IndentingNewLine]", "All"}], " ", 
         "the", " ", "lists", " ", "used", " ", "to", " ", "create", " ", 
         "meanDifList", " ", "have", " ", "length", " ", "len"}], "-", 
        "sizeBurnIn"}], "*)"}], "\n", "\[IndentingNewLine]", 
      RowBox[{"meanbStarList", "=", 
       RowBox[{"ParallelTable", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"listACCstar", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 
          RowBox[{
           RowBox[{"listACCstar", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2"}], "]"}], "]"}], ".", "predictedState"}], 
          "+", 
          RowBox[{
           RowBox[{"KStarX1TList", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ".", 
           RowBox[{"LinearSolve", "[", 
            RowBox[{
             RowBox[{"KX1TList", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", 
             RowBox[{"meanDifList", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"len", "-", "sizeBurnIn"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"meanbStarList", " ", "gives", " ", "a", " ", "list", " ", 
         RowBox[{"with", " ", "\\", "hat", "\\", "tilde"}], " ", "b_", "*", 
         RowBox[{"[", "i", "]"}], " ", "as", " ", 
         RowBox[{"components", ".", "  ", "All"}], " ", "the", " ", "lists", 
         " ", "used", " ", "to", " ", "create", " ", "meanDifList", " ", 
         "have", " ", "length", " ", "len"}], "-", "sizeBurnIn"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"varbStarList", "=", 
       RowBox[{"ParallelTable", "[", 
        RowBox[{
         RowBox[{"positivizeMatrix", "[", 
          RowBox[{
           RowBox[{"KStarStarList", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "-", 
           RowBox[{
            RowBox[{"KStarX1TList", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ".", 
            RowBox[{"LinearSolve", "[", 
             RowBox[{
              RowBox[{"KX1TList", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ",", 
              RowBox[{"Transpose", "[", 
               RowBox[{
               "KStarX1TList", "\[LeftDoubleBracket]", "i", 
                "\[RightDoubleBracket]"}], "]"}]}], "]"}]}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"len", "-", "sizeBurnIn"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"varbStarList", " ", "is", " ", "a", " ", "list", " ", 
         RowBox[{"with", " ", "\\", "tilde"}], " ", "Sigma_", "*", 
         RowBox[{"[", "i", "]"}], " ", "as", " ", 
         RowBox[{
         "components", ".", "\[IndentingNewLine]", "Theoretically"}]}], ",", 
        " ", 
        RowBox[{
        "there", " ", "should", " ", "be", " ", "no", " ", "need", " ", "for",
          " ", "using", " ", "positivizeMatrix", " ", "here"}], ",", " ", 
        "however", ",", " ", 
        RowBox[{
        "due", " ", "to", " ", "machine", " ", "precision", " ", 
         "considerations", 
         RowBox[{"(", 
          RowBox[{"rounding", " ", "errors"}], ")"}]}], ",", " ", 
        RowBox[{"we", " ", "must", " ", "ensure", " ", "that", " ", 
         RowBox[{"it", "'"}], "s", " ", "symmetric", " ", "and", " ", 
         RowBox[{"PD", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"bCatList", "=", 
       RowBox[{"Ceiling", "[", 
        RowBox[{
         RowBox[{"RandomVariate", "[", 
          RowBox[{
           RowBox[{"UniformDistribution", "[", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], "]"}], ",", 
           RowBox[{"len", "-", "sizeBurnIn"}]}], "]"}], "*", 
         RowBox[{"(", 
          RowBox[{"len", "-", "sizeBurnIn"}], ")"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Distribution", " ", 
         RowBox[{"of", " ", "\\", "tilde"}], " ", "b_", "*", " ", "is", " ", 
         "a", " ", "mixture", " ", "of", " ", "distributions"}], ",", " ", 
        RowBox[{"so", " ", "we", " ", "need", " ", 
         RowBox[{"to", " ", "'"}], 
         RowBox[{"randomize", "'"}]}], ",", " ", 
        RowBox[{"with", " ", "equal", " ", "prob", " ", 
         RowBox[{"(", 
          RowBox[{"hence", " ", "the", " ", "UniformDist"}], ")"}]}], ",", 
        "  ", 
        RowBox[{
        "the", " ", "choosing", " ", "of", " ", "each", " ", "component", " ", 
         RowBox[{"distribution", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"bStarList", "=", 
       RowBox[{"ParallelTable", "[", 
        RowBox[{
         RowBox[{"RandomVariate", "[", 
          RowBox[{"MultinormalDistribution", "[", 
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{"meanbStarList", "\[LeftDoubleBracket]", 
              RowBox[{
              "bCatList", "\[LeftDoubleBracket]", "i", 
               "\[RightDoubleBracket]"}], "\[RightDoubleBracket]"}], "]"}], 
            ",", 
            RowBox[{"varbStarList", "\[LeftDoubleBracket]", 
             RowBox[{
             "bCatList", "\[LeftDoubleBracket]", "i", 
              "\[RightDoubleBracket]"}], "\[RightDoubleBracket]"}]}], "]"}], 
          "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"len", "-", "sizeBurnIn"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"bStarList", " ", "is", " ", "a", " ", "list", " ", 
         RowBox[{"of", " ", "\\", "tilde"}], " ", "b_", "*", 
         RowBox[{"[", "i", "]"}], " ", "as", " ", "components"}], ",", " ", 
        RowBox[{
        "which", " ", "will", " ", "be", " ", "used", " ", "for", " ", "the", 
         " ", "approximation", " ", "of", " ", "the", " ", "posterior", " ", 
         "predictive", " ", 
         RowBox[{"distribution", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"yCatList", "=", 
       RowBox[{"Ceiling", "[", 
        RowBox[{
         RowBox[{"RandomVariate", "[", 
          RowBox[{
           RowBox[{"UniformDistribution", "[", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], "]"}], ",", "sizeApproxY"}], 
          "]"}], "*", 
         RowBox[{"(", 
          RowBox[{"len", "-", "sizeBurnIn"}], ")"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
        "The", " ", "posterior", " ", "predictive", " ", "distribution", " ", 
         "of", " ", "y_", "*", " ", "is", " ", "also", " ", "a", " ", 
         "mixture", " ", "of", " ", "distributions"}], ",", " ", 
        RowBox[{"so", " ", "we", " ", "need", " ", 
         RowBox[{"to", " ", "'"}], 
         RowBox[{"randomize", "'"}]}], ",", " ", 
        RowBox[{"with", " ", "equal", " ", "prob", " ", 
         RowBox[{"(", 
          RowBox[{"hence", " ", "the", " ", "UniformDist"}], ")"}]}], ",", 
        "  ", 
        RowBox[{
        "the", " ", "choosing", " ", "of", " ", "each", " ", "component", " ", 
         RowBox[{"distribution", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"yStarList", "=", 
       RowBox[{"ParallelTable", "[", 
        RowBox[{
         RowBox[{"RandomVariate", "[", 
          RowBox[{"MultinormalDistribution", "[", 
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{"bStarList", "\[LeftDoubleBracket]", 
              RowBox[{
              "yCatList", "\[LeftDoubleBracket]", "i", 
               "\[RightDoubleBracket]"}], "\[RightDoubleBracket]"}], "]"}], 
            ",", 
            RowBox[{"listQSigma", "\[LeftDoubleBracket]", 
             RowBox[{
              RowBox[{
              "yCatList", "\[LeftDoubleBracket]", "i", 
               "\[RightDoubleBracket]"}], ",", "2"}], 
             "\[RightDoubleBracket]"}]}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "sizeApproxY"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "prediction1Step", " ", "returns", " ", "a", " ", "sample", " ", 
        "drawn", " ", "from", " ", "an", " ", "approximation", " ", "to", " ",
         "the", " ", "posterior", " ", "distribution", " ", "of", " ", 
        "yStar"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"fileDataYStarList", "=", 
       RowBox[{"Compress", "[", "yStarList", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "pathname", " ", "is", " ", "defined", " ", "below", " ", "at", " ", 
        "Run", " ", "Code"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"pathname", "<>", 
         RowBox[{"ToString", "[", 
          RowBox[{"time", "+", "1"}], "]"}], "<>", "\"\< - yStarList.m\>\""}],
         ",", "fileDataYStarList"}], "]"}], ";"}]}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7587006508308935`*^9, 3.7587006760216184`*^9}, {
   3.75870071332071*^9, 3.758700756602827*^9}, 3.7587008086402817`*^9, {
   3.7587009097980356`*^9, 3.758701034451104*^9}, {3.7587013181671867`*^9, 
   3.7587013258766313`*^9}, {3.75870137659167*^9, 3.7587013864724274`*^9}, {
   3.7587014251800833`*^9, 3.7587015097929296`*^9}, {3.7587023053616962`*^9, 
   3.7587023299950533`*^9}, {3.758706317868842*^9, 3.7587063648712564`*^9}, 
   3.758982298112241*^9, {3.7589824926016216`*^9, 3.758982494261125*^9}, 
   3.758982550878931*^9, 3.758982581853737*^9, 3.758983626013934*^9, {
   3.7589838402088757`*^9, 3.758983869213684*^9}, {3.758983900706843*^9, 
   3.7589839343930616`*^9}, 3.7589839666848154`*^9, {3.758985268824751*^9, 
   3.758985346041088*^9}, {3.7589853800743556`*^9, 3.758985422062727*^9}, {
   3.7589855034472075`*^9, 3.758985607782076*^9}, {3.758985696406201*^9, 
   3.7589857114259176`*^9}, {3.758986215003459*^9, 3.758986254211565*^9}, {
   3.7589864364625273`*^9, 3.7589864479370604`*^9}, {3.758986481359826*^9, 
   3.7589864819379816`*^9}, {3.7589866431897755`*^9, 
   3.7589866669584923`*^9}, {3.7589866990968103`*^9, 
   3.7589867449957414`*^9}, {3.7589867843993797`*^9, 
   3.7589868413141613`*^9}, {3.758987153649209*^9, 3.758987177888623*^9}, {
   3.7589873271502504`*^9, 3.7589873586781373`*^9}, {3.75898801781471*^9, 
   3.758988114683205*^9}, {3.7590379084567957`*^9, 3.7590380373854456`*^9}, {
   3.75903830859117*^9, 3.759038390532975*^9}, {3.759039904428032*^9, 
   3.7590399415404053`*^9}, {3.759039989250108*^9, 3.759040048829219*^9}, {
   3.759040400843154*^9, 3.7590404013093357`*^9}, {3.759040529393056*^9, 
   3.7590405366884565`*^9}, {3.759040916338295*^9, 3.7590409356893644`*^9}, {
   3.7590409890590086`*^9, 3.7590411623394947`*^9}, {3.7590412279225764`*^9, 
   3.759041284466139*^9}, {3.759041322034523*^9, 3.759041331187827*^9}, {
   3.7590416340431595`*^9, 3.759041640543442*^9}, {3.7590416727309227`*^9, 
   3.75904167806194*^9}, 3.759041842411789*^9, {3.7590421304821153`*^9, 
   3.759042226371339*^9}, {3.7590422756769533`*^9, 3.7590424209501925`*^9}, {
   3.7590533278130665`*^9, 3.759053418867073*^9}, {3.7590535446959724`*^9, 
   3.759053575218405*^9}, {3.7590538584321747`*^9, 3.7590539195119123`*^9}, {
   3.759054055121388*^9, 3.759054066548498*^9}, 3.7590542339447994`*^9, {
   3.759054308453555*^9, 3.7590543291606236`*^9}, 3.7590544147249703`*^9, {
   3.759054488909028*^9, 3.7590545379189444`*^9}, {3.7590545806721087`*^9, 
   3.759054605673806*^9}, {3.7590546502140512`*^9, 3.759054652840178*^9}, {
   3.7590548702946777`*^9, 3.759054875997463*^9}, {3.7590549406862164`*^9, 
   3.7590550141719275`*^9}, {3.759055153960718*^9, 3.759055154429493*^9}, {
   3.759055809151512*^9, 3.7590558263994055`*^9}, {3.7590563287383175`*^9, 
   3.759056416642416*^9}, {3.7590564828163953`*^9, 3.7590566826949043`*^9}, {
   3.759056714493156*^9, 3.759056793806579*^9}, {3.759056842840198*^9, 
   3.759056931759717*^9}, {3.759056965862238*^9, 3.7590569960968266`*^9}, {
   3.7590570900035458`*^9, 3.759057096033778*^9}, {3.7590571810225344`*^9, 
   3.7590571890011773`*^9}, {3.7590572361205063`*^9, 3.759057285369478*^9}, {
   3.759057487445539*^9, 3.759057489145666*^9}, {3.759057551007821*^9, 
   3.7590576144623823`*^9}, {3.7590576932013893`*^9, 
   3.7590576972928925`*^9}, {3.7590581555562024`*^9, 
   3.7590581709507217`*^9}, {3.759058715367077*^9, 3.7590587760179467`*^9}, {
   3.7590589723829346`*^9, 3.759058972712142*^9}, {3.7590590189178824`*^9, 
   3.7590590266427574`*^9}, {3.7590592133190937`*^9, 
   3.7590592622549515`*^9}, {3.759061729627599*^9, 3.759061779385649*^9}, {
   3.759061880221916*^9, 3.7590619294953737`*^9}, {3.759062682519349*^9, 
   3.7590626856643496`*^9}, {3.7590630786676445`*^9, 
   3.7590630823116093`*^9}, {3.7590827396289663`*^9, 3.7590827563329363`*^9}, 
   3.7590829519769044`*^9, {3.759083023042386*^9, 3.759083044309126*^9}, {
   3.7590832836287766`*^9, 3.7590832911916757`*^9}, {3.759083581941785*^9, 
   3.759083583598153*^9}, {3.7590836520728707`*^9, 3.7590836548699236`*^9}, {
   3.759083703669363*^9, 3.7590837141386623`*^9}, 3.7590838500506477`*^9, {
   3.7591257026594296`*^9, 3.7591257485055904`*^9}, {3.759126837492993*^9, 
   3.7591268547611036`*^9}, {3.7591314591177473`*^9, 
   3.7591317908002815`*^9}, {3.7591318526816096`*^9, 3.7591319083668013`*^9}, 
   3.759132159571658*^9, {3.75913220283953*^9, 3.7591322540141025`*^9}, {
   3.759132314829817*^9, 3.7591323797086697`*^9}, {3.759222107637211*^9, 
   3.759222115374292*^9}, {3.759222312945319*^9, 3.7592223213668222`*^9}, {
   3.759222352694559*^9, 3.759222355690673*^9}, 3.7592223932203827`*^9, {
   3.759222446195298*^9, 3.7592224778203325`*^9}, {3.7592226246129723`*^9, 
   3.759222702033567*^9}, {3.759223335684471*^9, 3.759223362591425*^9}, {
   3.7596469443080964`*^9, 3.759646965680613*^9}, {3.759648140370577*^9, 
   3.759648150026263*^9}, {3.7596482689304953`*^9, 3.759648281730936*^9}, {
   3.759648330883857*^9, 3.759648341773986*^9}, {3.759648391586662*^9, 
   3.759648414055319*^9}, {3.76417053198139*^9, 3.764170532629823*^9}, {
   3.764170622636901*^9, 3.764170643033516*^9}, {3.764170848987501*^9, 
   3.764170869306288*^9}, {3.7641710102199855`*^9, 3.764171072585956*^9}, {
   3.764171105625255*^9, 3.764171128792239*^9}, {3.7641712035204334`*^9, 
   3.764171263979652*^9}, {3.764171707406102*^9, 3.7641717388633275`*^9}, {
   3.7641717824899406`*^9, 3.7641717853682103`*^9}, {3.764172809471895*^9, 
   3.7641729837909*^9}, {3.764173029875783*^9, 3.7641730585017657`*^9}, {
   3.7643089171016088`*^9, 3.7643089394597163`*^9}},
 CellLabel->
  "In[258]:=",ExpressionUUID->"93a45684-6d4a-41a3-9b7c-0e9173d43fc9"]
}, Closed]],

Cell[CellGroupData[{

Cell["Prediction N Steps", "Subsubsection",
 CellChangeTimes->{{3.750396688677575*^9, 3.750396698240569*^9}, {
  3.755848722902397*^9, 3.7558487919699316`*^9}, {3.75584899615912*^9, 
  3.7558490085964212`*^9}, {3.755851097232693*^9, 3.7558511163744698`*^9}, {
  3.756363504996093*^9, 3.756363518481205*^9}, {3.7590631658958197`*^9, 
  3.7590631932345114`*^9}},ExpressionUUID->"9c11d45d-17ea-4669-98ba-\
6ae31ccddabf"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"predictionNSteps", "[", 
    RowBox[{
    "Y1T_", ",", "startTime_", ",", "endTime_", ",", "sizeApproxY_", ",", 
     "sampleSize_", ",", "numParticles_", ",", " ", "stepSize_", ",", 
     "varSize_", ",", "sizeBurnIn_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Y1TEnd", "=", 
       RowBox[{"Drop", "[", 
        RowBox[{"Y1T", ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", 
           RowBox[{
            RowBox[{"Length", "[", "Y1T", "]"}], "-", "endTime"}]}], "}"}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"We", " ", "drop", " ", "the", " ", "first", " ", 
         RowBox[{"Length", "[", "Y1T", "]"}]}], "-", 
        RowBox[{"endTime", " ", 
         RowBox[{"obs", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"currentTime", "=", "startTime"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{"currentTime", "<", "endTime"}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"we", " ", 
           RowBox[{"don", "'"}], "t", " ", "have", " ", "endTime"}], "+", 
          RowBox[{"1", " ", 
           RowBox[{"observations", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"startValues", "=", 
          RowBox[{"initValues", "[", "currentTime", "]"}]}], ";", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Print", "[", "\"\<Y1T treatment\>\"", "]"}], ";"}], 
          "*)"}], "\[IndentingNewLine]", 
         RowBox[{"Y1TCurrent", "=", 
          RowBox[{"Drop", "[", 
           RowBox[{"Y1TEnd", ",", 
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{"endTime", "-", "currentTime"}], ")"}]}]}], "]"}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{
           "We", " ", "drop", " ", "the", " ", "last", " ", "endTime"}], "-", 
           RowBox[{"currentTime", " ", "obs"}]}], "*)"}], 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"vecy1TCurrent", "=", 
          RowBox[{"ArrayReshape", "[", 
           RowBox[{"Y1TCurrent", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Times", "@@", 
               RowBox[{"Dimensions", "[", "Y1TCurrent", "]"}]}], ",", "1"}], 
             "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Print", "[", 
            RowBox[{"\"\<Y1TCurrent Dimensions = \>\"", ",", 
             RowBox[{"Dimensions", "[", "Y1TCurrent", "]"}]}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<vecy1TCurrent Dimensions = \>\"", ",", 
             RowBox[{"Dimensions", "[", "vecy1TCurrent", "]"}]}], "]"}], 
           ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Print", "[", "\"\<BayesianLS\>\"", "]"}], ";"}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"stateSamplesTime", ",", "parameterSamplesTime"}], "}"}], 
          "=", 
          RowBox[{"bayesianLS", "[", 
           RowBox[{"currentTime", ",", "vecy1TCurrent", ",", 
            RowBox[{"startValues", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"startValues", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "sampleSize", ",", 
            "numParticles", ",", " ", "stepSize", ",", "varSize"}], "]"}]}], 
         ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Print", "[", "\"\<prediction1Step\>\"", "]"}], ";"}], 
          "*)"}], "\[IndentingNewLine]", 
         RowBox[{"prediction1Step", "[", 
          RowBox[{
          "stateSamplesTime", ",", "parameterSamplesTime", ",", "currentTime",
            ",", "vecy1TCurrent", ",", "sizeApproxY", ",", "sizeBurnIn"}], 
          "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"currentTime", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}],
       ";"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.759058687305132*^9, 3.7590587006493673`*^9}, {
   3.759063142291919*^9, 3.759063150424934*^9}, {3.759063197785869*^9, 
   3.7590632442846193`*^9}, 3.759063309408107*^9, {3.759063360060439*^9, 
   3.759063365081596*^9}, {3.759063865144388*^9, 3.7590638756699963`*^9}, {
   3.759070368475601*^9, 3.7590703982686567`*^9}, {3.7590773864611907`*^9, 
   3.7590773903061266`*^9}, 3.7590813526674194`*^9, {3.7590826523118753`*^9, 
   3.759082693345282*^9}, {3.7590838732066836`*^9, 3.759083876847472*^9}, {
   3.7590839427884655`*^9, 3.7590839541015615`*^9}, {3.7590839843570557`*^9, 
   3.759084044360207*^9}, {3.759123091400572*^9, 3.7591231068232713`*^9}, {
   3.7591232741562047`*^9, 3.759123283969211*^9}, {3.759123367942384*^9, 
   3.7591233883965826`*^9}, {3.7591234637286663`*^9, 
   3.7591234660100093`*^9}, {3.7591235093404384`*^9, 3.759123510137355*^9}, {
   3.75912357564077*^9, 3.7591236250183887`*^9}, {3.759123669880124*^9, 
   3.759123679005604*^9}, {3.7591238514934864`*^9, 3.759123877416723*^9}, {
   3.7591240533634663`*^9, 3.7591240663328967`*^9}, {3.759124108256977*^9, 
   3.7591241158667517`*^9}, 3.7591241461808457`*^9, 3.7591241844016037`*^9, {
   3.7591252279001074`*^9, 3.7591252675115633`*^9}, {3.7591255204623322`*^9, 
   3.7591255888253126`*^9}, {3.7591258291973104`*^9, 
   3.7591258376352725`*^9}, {3.7591263777008715`*^9, 3.7591263792790804`*^9}, 
   3.7591265545764675`*^9, {3.7591270856128197`*^9, 3.7591270878470125`*^9}, {
   3.7591271184600105`*^9, 3.7591271468023553`*^9}, {3.759128248903928*^9, 
   3.759128256010673*^9}, {3.7591282912992425`*^9, 3.759128356014468*^9}, 
   3.7591286075914927`*^9, {3.7591288369857044`*^9, 3.759128887364353*^9}, {
   3.759129140621504*^9, 3.759129177862501*^9}, {3.759129230786849*^9, 
   3.7591292398779197`*^9}, {3.7591295340523987`*^9, 
   3.7591296166245503`*^9}, {3.7591298776859117`*^9, 
   3.7591299140501986`*^9}, {3.7591324493217044`*^9, 
   3.7591324596227045`*^9}, {3.7592241106122055`*^9, 
   3.7592242217951055`*^9}, {3.759224615769025*^9, 3.7592246444240217`*^9}, {
   3.7592247007414875`*^9, 3.7592248132793427`*^9}, {3.759224846211696*^9, 
   3.759224876877984*^9}, {3.7592251112484756`*^9, 3.7592251642232027`*^9}, {
   3.7592259708436975`*^9, 3.7592259862818127`*^9}, {3.7643086822109013`*^9, 
   3.764308697910487*^9}, 3.7696566619625483`*^9},
 CellLabel->
  "In[259]:=",ExpressionUUID->"f924eabd-aa45-46b6-bea1-7abc71bd6721"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Run Code for Predictions", "Subchapter",
 CellChangeTimes->{{3.750593540689376*^9, 3.750593552549367*^9}, {
  3.7552418938883886`*^9, 3.75524189879488*^9}, {3.755243865718089*^9, 
  3.7552438725934715`*^9}, {3.7558486275718417`*^9, 3.755848628358365*^9}, {
  3.7564635147779183`*^9, 3.756463517151938*^9}, {3.757145675069667*^9, 
  3.757145677709821*^9}, {3.7575124655703526`*^9, 3.7575124660703773`*^9}, {
  3.7583460658440447`*^9, 3.75834606735975*^9}, {3.7583462115704527`*^9, 
  3.7583462156800427`*^9}, {3.759053007746519*^9, 3.7590530391630387`*^9}, {
  3.7592260536235085`*^9, 
  3.759226054610709*^9}},ExpressionUUID->"61e849a3-292d-4d99-bf30-\
e2777acf4fcb"],

Cell["\<\
In my simulations, I used:
startTime=10;
endTime=15;
sizeApproxY=50000;
sampleSize=15000;
numParticles=20;
stepSize=0.0001;
nuM1=15;
s1M1=1;
varSize=0.1;
sizeBurnIn=5000;

Change the below to your needs, and run the simulation.\
\>", "Text",
 CellChangeTimes->{{3.845958808392758*^9, 
  3.845958858424806*^9}},ExpressionUUID->"d2ba773d-e24b-49a4-9449-\
3af7e62ffdb5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"pathname", "=", 
    RowBox[{"NotebookDirectory", "[", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"startTime", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"endTime", "=", "15"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sizeApproxY", "=", "50"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sampleSize", "=", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"numParticles", "=", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"stepSize", "=", "0.0001"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nuM1", "=", "15"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s1M1", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"varSize", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sizeBurnIn", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"predictionNSteps", "[", 
  RowBox[{
  "Y1T", ",", "startTime", ",", "endTime", ",", "sizeApproxY", ",", 
   "sampleSize", ",", "numParticles", ",", " ", "stepSize", ",", "varSize", 
   ",", "sizeBurnIn"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7591271591377573`*^9, 3.7591271613261356`*^9}, {
   3.759127369420742*^9, 3.7591275398336396`*^9}, 3.7591279596829166`*^9, 
   3.7591289037763176`*^9, {3.759132482617482*^9, 3.75913249144607*^9}, {
   3.7592214951343107`*^9, 3.759221505201518*^9}, 3.7592216881662226`*^9, {
   3.7592238321512785`*^9, 3.7592238431671996`*^9}, 3.7596488646420703`*^9, {
   3.764308705128646*^9, 3.7643087061286964`*^9}, {3.7643087722235208`*^9, 
   3.7643088210920734`*^9}, 3.764309044990387*^9, {3.7643090864584503`*^9, 
   3.7643090867084637`*^9}, {3.7643091322432375`*^9, 
   3.7643091546599035`*^9}, {3.764309560396171*^9, 3.7643095627940183`*^9}, {
   3.764310562184946*^9, 3.7643105661565957`*^9}, {3.7643116932436256`*^9, 
   3.76431170181642*^9}, {3.764473148664214*^9, 3.7644731620847664`*^9}, {
   3.764578476071766*^9, 3.7645784858535237`*^9}, 3.764578734225853*^9, 
   3.764680236737992*^9, {3.764760899756192*^9, 3.764760900130442*^9}, 
   3.7648756244442244`*^9, {3.7649123189023066`*^9, 3.764912319276558*^9}, 
   3.765607865099408*^9, {3.768109139004508*^9, 3.7681091691746492`*^9}, 
   3.768226032280632*^9, 3.7682863174756746`*^9, {3.7690597628070345`*^9, 
   3.769059796135389*^9}, {3.769143092779046*^9, 3.76914309324782*^9}, 
   3.7691466294859414`*^9, {3.769266058484994*^9, 3.7692660648603344`*^9}, {
   3.7693084077901154`*^9, 3.7693084099464808`*^9}, {3.769493875399037*^9, 
   3.7694938756371946`*^9}, 3.769493947559213*^9, 3.7703868767058992`*^9, {
   3.7704405078813677`*^9, 3.7704405206007576`*^9}, {3.7704407248767047`*^9, 
   3.770440728861284*^9}, {3.770527279572607*^9, 3.7705272892293477`*^9}, {
   3.7706124625480676`*^9, 3.7706124665951667`*^9}, 3.770612528504531*^9, {
   3.7710472695502357`*^9, 3.7710472759758725`*^9}, {3.771047348563219*^9, 
   3.771047351951045*^9}, {3.7712409669465494`*^9, 3.771240980732868*^9}, {
   3.8459580762233047`*^9, 3.8459581088938107`*^9}, 3.8459584065156317`*^9, 
   3.845958487245283*^9, {3.8459585311892605`*^9, 3.845958549791358*^9}, {
   3.845958688558709*^9, 3.84595868896109*^9}, 3.845958752304883*^9, {
   3.8459588624843817`*^9, 
   3.8459588646849804`*^9}},ExpressionUUID->"67dcd4e3-1064-4ea3-bcec-\
82da1905b6d8"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.845958803388425*^9, 
  3.8459588057697706`*^9}},ExpressionUUID->"0d0b41ef-ca59-4ae9-a607-\
6ae9ef721cee"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{679, 522},
WindowMargins->{{Automatic, 198}, {Automatic, 0}},
Magnification->1.25,
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"ReverseColor.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 237, 4, 86, "Chapter",ExpressionUUID->"cabdf4a6-4d3c-41d0-95e9-f91543b630eb"],
Cell[820, 28, 364, 6, 83, "Section",ExpressionUUID->"3262a1e6-b592-4050-9268-df117231b172"],
Cell[CellGroupData[{
Cell[1209, 38, 374, 6, 58, "Subchapter",ExpressionUUID->"745ac5f5-369b-47d3-89e2-99403bfe53d4"],
Cell[CellGroupData[{
Cell[1608, 48, 487, 8, 89, "Subsubsection",ExpressionUUID->"109b67c4-3821-4085-bfda-6e553312703b"],
Cell[2098, 58, 2859, 68, 9108752, "Input",ExpressionUUID->"e5d008f8-697f-44f7-b405-1bd03bb869d8"]
}, Closed]],
Cell[CellGroupData[{
Cell[4994, 131, 172, 3, 45, "Subsubsection",ExpressionUUID->"bb0224ca-1a58-48f2-88d9-dfe3031ce2fb"],
Cell[5169, 136, 6568, 154, 684, "Input",ExpressionUUID->"b96d0995-52a8-4127-9530-9bf0d0380ed7"]
}, Closed]],
Cell[CellGroupData[{
Cell[11774, 295, 162, 3, 45, "Subsubsection",ExpressionUUID->"b9a25c0e-a11f-4a20-950b-e41cd910b414"],
Cell[11939, 300, 11202, 308, 1140, "Input",ExpressionUUID->"0b5d3b78-237a-408e-85c9-696f91c27246"]
}, Closed]],
Cell[CellGroupData[{
Cell[23178, 613, 378, 7, 78, "Subsubsection",ExpressionUUID->"5616ef04-78f0-4391-aba9-7f3de3307dc2"],
Cell[23559, 622, 353, 7, 115, "Text",ExpressionUUID->"6c953fa5-8c64-4267-815b-b923e03fb4b5"],
Cell[23915, 631, 26008, 585, 3300, "Input",ExpressionUUID->"48276a99-3329-4e68-b838-7c0df5bba5e3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49960, 1221, 375, 7, 89, "Subsubsection",ExpressionUUID->"59ae6a86-227a-4c52-8e21-e803c81c152a"],
Cell[50338, 1230, 17471, 410, 3661, "Input",ExpressionUUID->"1beb82b5-00ce-4670-bbb5-09e970f44ab4"]
}, Closed]],
Cell[CellGroupData[{
Cell[67846, 1645, 369, 6, 45, "Subsubsection",ExpressionUUID->"47232861-358d-4bdf-aac9-418b4127af96"],
Cell[68218, 1653, 33635, 468, 276, "Input",ExpressionUUID->"fc337273-7327-485d-a17e-1f637973013e"]
}, Closed]],
Cell[CellGroupData[{
Cell[101890, 2126, 371, 6, 45, "Subsubsection",ExpressionUUID->"74a5260f-bd0a-42fa-9c6f-9ea788e51644"],
Cell[102264, 2134, 34139, 480, 300, "Input",ExpressionUUID->"60e79e73-cc01-4a66-bfaf-902092b31b54"]
}, Closed]],
Cell[CellGroupData[{
Cell[136440, 2619, 416, 6, 45, "Subsubsection",ExpressionUUID->"13b27cb7-d30b-4ef0-aaa4-09d466085e97"],
Cell[136859, 2627, 33196, 460, 252, "Input",ExpressionUUID->"f627602d-3466-4e69-b163-96b31810ffa9"]
}, Closed]],
Cell[CellGroupData[{
Cell[170092, 3092, 509, 7, 45, "Subsubsection",ExpressionUUID->"3052e5a3-f455-460d-807c-45c8f73e0b2d"],
Cell[170604, 3101, 34086, 474, 396, "Input",ExpressionUUID->"c7f3783a-9e0c-4439-8990-9608d932c3c7"]
}, Closed]],
Cell[CellGroupData[{
Cell[204727, 3580, 222, 4, 45, "Subsubsection",ExpressionUUID->"55c985fe-5ac8-4cb2-bf5e-d609d52c321a"],
Cell[204952, 3586, 11064, 226, 1692, "Input",ExpressionUUID->"17bf0f38-9076-437e-9d9e-5ca77b370a12"]
}, Closed]],
Cell[CellGroupData[{
Cell[216053, 3817, 541, 8, 78, "Subsubsection",ExpressionUUID->"7cb9c57e-3ec7-4cda-8739-ff7f1526d79c"],
Cell[216597, 3827, 871, 26, 108, "Input",ExpressionUUID->"050c4bb6-c491-4970-85e7-27c9e2dfdbfd"],
Cell[217471, 3855, 4465, 108, 660, "Input",ExpressionUUID->"abe94d8a-ad13-42ac-b85c-9ff096adbc49"],
Cell[221939, 3965, 20718, 388, 1572, "Input",ExpressionUUID->"3a6fe064-0bc6-4576-a0b9-a18950fe391f"]
}, Closed]],
Cell[CellGroupData[{
Cell[242694, 4358, 326, 5, 45, "Subsubsection",ExpressionUUID->"c75353cc-a14a-40bf-9a88-e9dbf885f73b"],
Cell[243023, 4365, 6762, 135, 852, "Input",ExpressionUUID->"89276290-6ccd-4b9b-8b03-c02bef00e0ae"],
Cell[249788, 4502, 7605, 146, 900, "Input",ExpressionUUID->"541a3b29-eeeb-4b43-8baf-f5247e5717de"],
Cell[257396, 4650, 2784, 52, 180, "Input",ExpressionUUID->"bbfda3c8-f0fe-41d0-b6fc-1d35d893b57f"],
Cell[260183, 4704, 5813, 108, 516, "Input",ExpressionUUID->"22b248e2-dd89-407c-8e64-913cf16a3e36"]
}, Closed]],
Cell[CellGroupData[{
Cell[266033, 4817, 834, 11, 45, "Subsubsection",ExpressionUUID->"f45a89c0-a2d2-4ec1-94bd-2091b2daa857"],
Cell[266870, 4830, 10197, 215, 2172, "Input",ExpressionUUID->"50b5cdd9-4513-40f7-b677-e3744008251d"]
}, Closed]],
Cell[CellGroupData[{
Cell[277104, 5050, 639, 9, 45, "Subsubsection",ExpressionUUID->"2e1962b3-0b29-42fd-ba43-be07490aaff2"],
Cell[277746, 5061, 15226, 291, 1934, "Input",ExpressionUUID->"d86c06d7-e1fb-49c7-8d26-e7cc15b80224"]
}, Open  ]],
Cell[CellGroupData[{
Cell[293009, 5357, 643, 9, 56, "Subsubsection",ExpressionUUID->"b6b51092-e298-4e5c-81d7-bcc2f99deb02"],
Cell[293655, 5368, 12636, 233, 1310, "Input",ExpressionUUID->"f2dbcc92-93db-4314-a476-1fb01b7e37da"]
}, Closed]],
Cell[CellGroupData[{
Cell[306328, 5606, 644, 9, 45, "Subsubsection",ExpressionUUID->"9c2c4df6-968b-4d33-95bc-25bbfcfc98ab"],
Cell[306975, 5617, 12687, 234, 1310, "Input",ExpressionUUID->"1599ea3d-ab46-4945-8087-a1d3a65ae0fe"]
}, Closed]],
Cell[CellGroupData[{
Cell[319699, 5856, 641, 9, 45, "Subsubsection",ExpressionUUID->"0d2e0872-edb9-4417-b2b7-28429f5e872e"],
Cell[320343, 5867, 13110, 241, 1358, "Input",ExpressionUUID->"e85329eb-2c76-4475-a0f1-7a03a1d7f0fd"]
}, Closed]],
Cell[CellGroupData[{
Cell[333490, 6113, 694, 10, 45, "Subsubsection",ExpressionUUID->"6dcf37fa-8f29-4e49-8212-f1b5568f60b6"],
Cell[334187, 6125, 11992, 222, 1140, "Input",ExpressionUUID->"93b23485-b3b4-482b-9c0a-68f6d678319a"]
}, Closed]],
Cell[CellGroupData[{
Cell[346216, 6352, 423, 6, 45, "Subsubsection",ExpressionUUID->"c4ebc413-3cec-4767-927d-7845587ddf48"],
Cell[346642, 6360, 52954, 990, 5498, "Input",ExpressionUUID->"2f1c9f06-2daf-4afe-9c6c-655d7f1d4a37"]
}, Closed]],
Cell[CellGroupData[{
Cell[399633, 7355, 328, 5, 45, "Subsubsection",ExpressionUUID->"2f04a1ba-ff60-4cbc-bbba-998b51c88086"],
Cell[399964, 7362, 13953, 278, 2124, "Input",ExpressionUUID->"538fbb64-ded1-47b2-b7bf-fe188d957c93"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[413966, 7646, 409, 6, 79, "Subchapter",ExpressionUUID->"2cce6738-32ea-4f37-9053-5617ad5a2c64"],
Cell[CellGroupData[{
Cell[414400, 7656, 226, 4, 56, "Subsubsection",ExpressionUUID->"1766c24e-1935-4b24-945a-23fbefbe63e5"],
Cell[414629, 7662, 607, 14, 8755145, "Input",ExpressionUUID->"ea91abde-34c1-4d96-adb0-64a0761ea33f"],
Cell[415239, 7678, 64729, 1321, 1117254140, "Input",ExpressionUUID->"11a73872-422c-4fc1-be87-7cbfe446a705"],
Cell[479971, 9001, 1279, 34, 6067090, "Input",ExpressionUUID->"ffd5ee29-f6ca-44de-a669-f9691bc5508d"]
}, Closed]],
Cell[CellGroupData[{
Cell[481287, 9040, 262, 4, 45, "Subsubsection",ExpressionUUID->"1edf7230-aa07-4bee-adb1-031861e56e19"],
Cell[CellGroupData[{
Cell[481574, 9048, 807, 20, 822243762, "Input",ExpressionUUID->"18e0b8e5-b0d1-4d6a-8015-6a8d2d4c88dd"],
Cell[482384, 9070, 4569, 85, 70, "Output",ExpressionUUID->"26308fad-c101-4707-93e3-a9e1167bf226"]
}, Open  ]],
Cell[CellGroupData[{
Cell[486990, 9160, 762, 20, 822243762, "Input",ExpressionUUID->"6763adb9-9d8d-4856-a53d-dfb4c3c80d22"],
Cell[487755, 9182, 4402, 83, 70, "Output",ExpressionUUID->"6d5666f2-053f-4c10-964e-89531cd9237e"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[492206, 9271, 591, 10, 78, "Subsubsection",ExpressionUUID->"2b2cc7bc-16e7-4915-a8d1-db3346dc3532"],
Cell[492800, 9283, 5144, 110, 6915190, "Input",ExpressionUUID->"4f53b2f8-596c-4740-a92b-6d0ef8320712"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[497993, 9399, 594, 9, 79, "Subchapter",ExpressionUUID->"287bcb65-9516-4abc-a9ee-afcdb657282a"],
Cell[CellGroupData[{
Cell[498612, 9412, 409, 6, 56, "Subsubsection",ExpressionUUID->"4fe9a518-ada0-47e7-bee5-08b44d3fd6e8"],
Cell[499024, 9420, 5400, 119, 972, "Input",ExpressionUUID->"9e3d938a-f805-4556-91ae-68780d2daa54"]
}, Closed]],
Cell[CellGroupData[{
Cell[504461, 9544, 547, 8, 45, "Subsubsection",ExpressionUUID->"041b0654-a27c-4664-ab04-4748101f44d3"],
Cell[505011, 9554, 26455, 579, 3996, "Input",ExpressionUUID->"93a45684-6d4a-41a3-9b7c-0e9173d43fc9"]
}, Closed]],
Cell[CellGroupData[{
Cell[531503, 10138, 417, 6, 45, "Subsubsection",ExpressionUUID->"9c11d45d-17ea-4669-98ba-6ae31ccddabf"],
Cell[531923, 10146, 7020, 141, 1020, "Input",ExpressionUUID->"f924eabd-aa45-46b6-bea1-7abc71bd6721"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[538992, 10293, 673, 10, 79, "Subchapter",ExpressionUUID->"61e849a3-292d-4d99-bf30-e2777acf4fcb"],
Cell[539668, 10305, 377, 17, 337, "Text",ExpressionUUID->"d2ba773d-e24b-49a4-9449-3af7e62ffdb5"],
Cell[540048, 10324, 3366, 61, 348, "Input",ExpressionUUID->"67dcd4e3-1064-4ea3-bcec-82da1905b6d8"],
Cell[543417, 10387, 154, 3, 35, "Input",ExpressionUUID->"0d0b41ef-ca59-4ae9-a607-6ae9ef721cee"]
}, Open  ]]
}, Open  ]]
}
]
*)