AproxGP.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[    516086,      10050]
NotebookOptionsPosition[    507685,       9906]
NotebookOutlinePosition[    508051,       9922]
CellTagsIndexPosition[    508008,       9919]
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->"8649c492-6067-4082-8f8d-\
019876197836"],

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->"924b7e6f-6afb-467b-b0fa-\
0318b4b56f06"],

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->"581aee13-6e17-4ba8-a8f7-\
9d4aeb1ccfba"],

Cell[CellGroupData[{

Cell["\<\
Auxiliary Functions 1(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.762678446650282*^9},ExpressionUUID->"7e7fe8ee-429f-4a0f-908c-\
0be618109dc2"],

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[114]:=",ExpressionUUID->"daf8ac34-2e05-46c5-b1f5-981ff2174a9b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Covariance Function, Eigenfunctions, etc.", "Subsubsection",
 CellChangeTimes->{{3.753168129673018*^9, 3.7531681433890653`*^9}, {
  3.761631516846362*^9, 3.761631532205432*^9}, {3.7616321931116676`*^9, 
  3.7616321964127755`*^9}},ExpressionUUID->"884f8b6c-2f5f-42e4-b28c-\
ab3078c17164"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "phiEigen", " ", "is", " ", "the", " ", "eigenfunction", " ", "\[Phi]_j", 
    RowBox[{"(", "x_t", ")"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"phiEigen", "[", 
      RowBox[{"x_", ",", 
       RowBox[{"{", 
        RowBox[{"j1_", ",", "j2_"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"L1_", ",", "L2_"}], "}"}]}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"L1", "^", 
         RowBox[{"(", 
          RowBox[{"-", "0.5"}], ")"}]}], "*", 
        RowBox[{"Sin", "[", 
         RowBox[{"Pi", "*", "j1", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "+", "L1"}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{"2", "*", "L1"}], ")"}]}]}], "]"}], "*", 
        RowBox[{"L2", "^", 
         RowBox[{"(", 
          RowBox[{"-", "0.5"}], ")"}]}], "*", 
        RowBox[{"Sin", "[", 
         RowBox[{"Pi", "*", "j2", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "+", "L2"}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{"2", "*", "L2"}], ")"}]}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"PhiEigen", " ", "=", " ", 
     RowBox[{"\[Phi]", 
      RowBox[{"(", "x_t", ")"}]}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PhiEigen", "[", 
      RowBox[{"x_", ",", 
       RowBox[{"{", 
        RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1_", ",", "m2_"}], "}"}]}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"phiEigen", "[", 
             RowBox[{"x", ",", 
              RowBox[{"{", 
               RowBox[{"j1", ",", "j2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"L1", ",", "L2"}], "}"}]}], "]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"j1", ",", "1", ",", "m1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"j2", ",", "1", ",", "m2"}], "}"}]}], "]"}], ",", "1"}], 
        "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Here", " ", "the", " ", "order", " ", "is", " ", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]}], ",", "...", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "m2"}], "}"}], ",", "..", ",", 
     RowBox[{"{", 
      RowBox[{"m1", ",", "1"}], "}"}], ",", "...", ",", 
     RowBox[{"{", 
      RowBox[{"m1", ",", "m2"}], "}"}]}], "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"vecPhiEigen", " ", "=", " ", 
     RowBox[{
      RowBox[{"\[Phi]_", 
       RowBox[{"{", 
        RowBox[{"1", ":", "T"}], "}"}]}], "=", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Phi]", 
          RowBox[{"(", 
           RowBox[{"x_", "1"}], ")"}]}], ",", "...", ",", 
         RowBox[{"\[Phi]", 
          RowBox[{"(", "x_T", ")"}]}]}], ")"}], "^", "Transpose"}]}]}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"vecPhiEigen", "[", 
      RowBox[{"X1T_", ",", 
       RowBox[{"{", 
        RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1_", ",", "m2_"}], "}"}]}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
        "X1T", " ", "has", " ", "in", " ", "each", " ", "ROW", " ", "an", " ",
          "observation"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"phiEigen", "[", 
             RowBox[{
              RowBox[{"X1T", "[", 
               RowBox[{"[", "row", "]"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"j1", ",", "j2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"L1", ",", "L2"}], "}"}]}], "]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"row", ",", "1", ",", 
             RowBox[{"Length", "[", "X1T", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"j1", ",", "1", ",", "m1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"j2", ",", "1", ",", "m2"}], "}"}]}], "]"}], ",", "2"}], 
        "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]",
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"lambda", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"j1_", ",", "j2_"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"L1_", ",", "L2_"}], "}"}]}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Pi", "*", 
           RowBox[{"j1", "/", 
            RowBox[{"(", 
             RowBox[{"2.", "*", "L1"}], ")"}]}]}], ")"}], "^", "2"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Pi", "*", 
           RowBox[{"j2", "/", 
            RowBox[{"(", 
             RowBox[{"2.", "*", "L2"}], ")"}]}]}], ")"}], "^", "2"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"expansionM", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"j1_", ",", "j2_"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1_", ",", "m2_"}], "}"}]}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"j1", "-", "1"}], ")"}], "*", "m2"}], "+", 
        RowBox[{"(", 
         RowBox[{"j2", "-", "1"}], ")"}]}]}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"j1", "\[LessEqual]", "m1"}], " ", ",", " ", 
        RowBox[{"j2", "\[LessEqual]", "m2"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Spectral", " ", "Density", " ", "for", " ", 
      RowBox[{"Mat\[EGrave]rn", ":", " ", "D"}]}], "=", 
     RowBox[{"dim", " ", "of", " ", "x"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"spectralDens", "[", 
      RowBox[{"s_", ",", "D_", ",", "\[Nu]_", ",", "l_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", "*", 
           RowBox[{"Pi", "^", "0.5"}]}], ")"}], "^", "D"}], "*", 
        RowBox[{"Gamma", "[", 
         RowBox[{"\[Nu]", "+", 
          RowBox[{"D", "/", "2"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"2", "*", "\[Nu]"}], ")"}], "^", "\[Nu]"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Gamma", "[", "\[Nu]", "]"}], "*", 
           RowBox[{"l", "^", 
            RowBox[{"(", 
             RowBox[{"2", "*", "\[Nu]"}], ")"}]}]}], ")"}]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "*", 
            RowBox[{"\[Nu]", "/", 
             RowBox[{"l", "^", "2"}]}]}], "+", 
           RowBox[{"4", "*", 
            RowBox[{"Pi", "^", "2"}], "*", 
            RowBox[{"s", "^", "2"}]}]}], ")"}], "^", 
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{"\[Nu]", "+", 
            RowBox[{"D", "/", "2"}]}], ")"}]}]}]}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}], "\[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}, {3.760604731735895*^9, 3.7606048205042562`*^9}, {
   3.760604964052249*^9, 3.760605004167076*^9}, {3.7606050926702585`*^9, 
   3.7606051452354107`*^9}, {3.7606052111725035`*^9, 
   3.7606052800035315`*^9}, {3.7606053647722178`*^9, 
   3.7606054754142075`*^9}, {3.760605543889997*^9, 3.760605549199548*^9}, {
   3.760605594308713*^9, 3.7606056035799155`*^9}, {3.7606057281972466`*^9, 
   3.760605786149108*^9}, {3.7606058369640856`*^9, 3.7606058880852714`*^9}, {
   3.760605936800851*^9, 3.76060597405576*^9}, {3.760606190288499*^9, 
   3.7606061904291587`*^9}, {3.7606063637538037`*^9, 3.760606370050272*^9}, {
   3.7606064825448365`*^9, 3.7606065080645275`*^9}, {3.7606069146994643`*^9, 
   3.760606946647829*^9}, {3.7606071183286366`*^9, 3.7606071211385155`*^9}, {
   3.760607261989704*^9, 3.760607314747983*^9}, {3.760607417482686*^9, 
   3.7606074407922726`*^9}, {3.760609852742244*^9, 3.7606099759121566`*^9}, {
   3.7606100287541604`*^9, 3.7606100763495665`*^9}, {3.760610121057895*^9, 
   3.760610132193962*^9}, {3.761631412313356*^9, 3.7616314416896715`*^9}, {
   3.7620098011531744`*^9, 3.762009811344981*^9}, {3.7620104515025396`*^9, 
   3.762010474407838*^9}, {3.762014382351715*^9, 3.762014402446133*^9}, {
   3.7620150999771175`*^9, 3.7620151235568657`*^9}, {3.7631858010953856`*^9, 
   3.7631858017516685`*^9}, {3.7631858368316364`*^9, 
   3.7631858830684414`*^9}, {3.7677595817986083`*^9, 
   3.7677595917277803`*^9}, {3.7677596929838657`*^9, 3.767759700861019*^9}, {
   3.767762547296482*^9, 3.767762665026553*^9}},
 CellLabel->
  "In[116]:=",ExpressionUUID->"b27750d8-740e-44d9-82a0-161b1935b405"]
}, Closed]],

Cell[CellGroupData[{

Cell["RBC Model", "Subsubsection",
 CellChangeTimes->{{3.753168155045887*^9, 
  3.7531681658240156`*^9}},ExpressionUUID->"b1236490-4c5d-4160-b1f1-\
c0a03e50db45"],

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]", 
     RowBox[{"csteady", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"\[Theta]", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Eta]", "-", "1", "+", "\[Delta]"}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Eta]", "/", "\[Beta]"}], "-", "1", "+", "\[Delta]"}], 
            ")"}]}]}]}], ")"}], "*", "ysteady"}]}], ";", 
     "\[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},
 CellLabel->
  "In[122]:=",ExpressionUUID->"180b121d-b441-4744-897f-016389f9dd49"]
}, Closed]],

Cell[CellGroupData[{

Cell["Auxiliary Functions 2 (reparametrizations)", "Subsubsection",
 CellChangeTimes->{{3.753168025777519*^9, 3.7531680615670276`*^9}, {
   3.7589594344982147`*^9, 3.758959463904327*^9}, {3.762678450770961*^9, 
   3.762678455239439*^9}, {3.7677647687190685`*^9, 3.767764774651513*^9}, 
   3.767775085141697*^9},ExpressionUUID->"ae5868f7-074a-4d8e-8fc9-\
86136209183b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"logit", "[", "u_", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "x", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"x", "=", 
        RowBox[{"SetPrecision", "[", 
         RowBox[{"u", ",", "500"}], "]"}]}], ";", "\[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[{
    RowBox[{"invLogit", "[", "u_", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "x", "}"}], ",", 
      RowBox[{
       RowBox[{"x", "=", 
        RowBox[{"SetPrecision", "[", 
         RowBox[{"u", ",", "500"}], "]"}]}], ";", 
       RowBox[{
        RowBox[{"E", "^", "x"}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"E", "^", "x"}]}], ")"}]}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"linTanTransf", "[", "u_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "x", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"x", "=", 
         RowBox[{"SetPrecision", "[", 
          RowBox[{"u", ",", "500"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Tan", "[", 
         RowBox[{"x", "*", 
          RowBox[{"Pi", "/", "2"}]}], "]"}]}]}], "\[IndentingNewLine]", 
      "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"invLinTanTransf", "[", "u_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "x", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"x", "=", 
         RowBox[{"SetPrecision", "[", 
          RowBox[{"u", ",", "500"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ArcTan", "[", "x", "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"Pi", "/", "2"}], ")"}]}]}]}], "]"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"reparametrizationMatern", "[", "L_", "]"}], ":=", 
   RowBox[{"Log", "[", "L", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"reparametrizationMaternInv", "[", "tilL_", "]"}], ":=", 
    RowBox[{"Exp", "[", "tilL", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  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[{
   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[{
   RowBox[{
    RowBox[{"reparametrizationFQ", "[", "Q_", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", "Q", "]"}], "==", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"Log", "[", 
          RowBox[{"Diagonal", "[", "Q", "]"}], "]"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Log", "[", "Q", "]"}]}], "\[IndentingNewLine]", "]"}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"Transforms", " ", "Q", " ", "into", " ", "tilde", " ", 
    RowBox[{"Q", ".", " ", "Works"}], " ", "either", " ", "with", " ", "main",
     " ", "diagonals", " ", "or", " ", "the", " ", "whole", " ", 
    RowBox[{"matrices", "."}]}], "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"reparametrizationFQInv", "[", "tilQ_", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", "tilQ", "]"}], "==", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"E", "^", 
          RowBox[{"Diagonal", "[", "tilQ", "]"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"E", "^", "tilQ"}]}], "\[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[{"{", 
      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[{"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[{"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[{"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[{"derSpectralDens", "[", 
      RowBox[{"Lm_", ",", 
       RowBox[{"{", 
        RowBox[{"L1_", ",", "L2_"}], "}"}]}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "The", " ", "same", " ", "ordering", " ", "must", " ", "be", " ", 
          "followed", " ", "when", " ", "defining", " ", "Wmat"}], ",", " ", 
         RowBox[{
          RowBox[{"i", ".", "e", ".", " ", "j1"}], " ", "first"}], ",", " ", 
         RowBox[{"then", " ", "j2"}]}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"DiagonalMatrix", "[", 
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"spectralDens", "[", 
               RowBox[{
                RowBox[{"lambda", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"j1", ",", "j2"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"L1", ",", "L2"}], "}"}]}], "]"}], ",", "2", ",", 
                "0.5", ",", "nL"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"j1", ",", "1", ",", "12"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"j2", ",", "1", ",", "12"}], "}"}]}], "]"}], ",", 
            "nL"}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{"nL", "\[Rule]", "Lm"}], "}"}]}], "]"}], "]"}]}], 
      "\[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.761632234271421*^9, 
   3.7616322750180607`*^9}, {3.761632326161456*^9, 3.761632339829998*^9}, {
   3.761632571550623*^9, 3.7616326012840686`*^9}, {3.7616326759752846`*^9, 
   3.761632696752533*^9}, {3.7616328813341875`*^9, 3.761633000769188*^9}, {
   3.7616330326892295`*^9, 3.76163313939263*^9}, {3.761633723939842*^9, 
   3.761633724799062*^9}, 3.7616341456124516`*^9, {3.7616341936117797`*^9, 
   3.7616342167055235`*^9}, {3.761634256173836*^9, 3.7616342864874587`*^9}, {
   3.761634327315415*^9, 3.7616343380179515`*^9}, {3.7616351420034947`*^9, 
   3.7616352428469396`*^9}, {3.7618946919298816`*^9, 
   3.7618946990470624`*^9}, {3.7618947367979507`*^9, 
   3.7618947395653543`*^9}, {3.7618948720489254`*^9, 3.761894893034854*^9}, {
   3.761895085241539*^9, 3.761895085790655*^9}, {3.762071120974249*^9, 
   3.762071122652711*^9}, {3.7621522587299895`*^9, 3.762152304451335*^9}, {
   3.762152385033003*^9, 3.7621523901889296`*^9}, {3.7626698048812284`*^9, 
   3.762669847539719*^9}, 3.7626728610767164`*^9, {3.7626729750345616`*^9, 
   3.7626730290216894`*^9}, {3.7626828056464443`*^9, 
   3.7626828082261486`*^9}, {3.7626829233958826`*^9, 3.762682979020769*^9}, {
   3.763544631070986*^9, 3.7635446380036125`*^9}, {3.764997496956808*^9, 
   3.7649975275209*^9}, 3.7670952433235865`*^9, {3.7677644728079004`*^9, 
   3.7677644874512844`*^9}, {3.767764657611*^9, 3.767764665566882*^9}, {
   3.767764713895294*^9, 3.767764715632818*^9}, 3.767764789670929*^9, {
   3.773669430273041*^9, 3.7736694392290297`*^9}, {3.7736696518231945`*^9, 
   3.7736696717545233`*^9}, 3.773669704036112*^9},
 CellLabel->
  "In[123]:=",ExpressionUUID->"0b2ad542-c16f-4442-a669-bcfbf1380a9c"]
}, Closed]],

Cell[CellGroupData[{

Cell["Auxiliary Functions 3 (Multivariate Normal density, etc)", \
"Subsubsection",
 CellChangeTimes->{{3.753168025777519*^9, 3.7531680615670276`*^9}, {
   3.7589594344982147`*^9, 3.758959463904327*^9}, {3.762678450770961*^9, 
   3.762678455239439*^9}, {3.767764752885889*^9, 3.7677647576639905`*^9}, 
   3.7677750824540577`*^9},ExpressionUUID->"7095e36c-aa04-4b2a-9a88-\
5c54b2619f57"],

Cell[BoxData[
 RowBox[{"\[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", "]"}], "*", 
                   "$MachineEpsilon", "*", 
                   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[{
      RowBox[{"multinormalDens", "[", 
       RowBox[{"x_", ",", "mean_", ",", "var2_"}], "]"}], ":=", 
      RowBox[{"Module", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"(*", 
          RowBox[{"t", ",", "det", ",", "var"}], "*)"}], "}"}], ",", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"var", "=", 
          RowBox[{"positivizeMatrix", "[", "var2", "]"}]}], ";", 
         "\[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", " ", "symmetric", " ", "and", " ", 
            RowBox[{"PD", ".", " ", "Otherwise"}], " ", "we", " ", "would", 
            " ", "have", " ", "a", " ", "error", " ", "warning", " ", "from", 
            " ", "mathematica"}]}], "*)"}], "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"t", "=", 
          RowBox[{"0.5", "*", 
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{"(", 
              RowBox[{"x", "-", "mean"}], ")"}], "]"}], ".", 
            RowBox[{"LinearSolve", "[", 
             RowBox[{"var", ",", 
              RowBox[{"Flatten", "[", 
               RowBox[{"(", 
                RowBox[{"x", "-", "mean"}], ")"}], "]"}], ",", 
              RowBox[{"Method", "\[Rule]", "\"\<Cholesky\>\""}]}], 
             "]"}]}]}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{"Flatten", " ", "-", " ", 
           RowBox[{
           "The", " ", "LinearSolve", " ", "receives", " ", "only", " ", 
            RowBox[{"{", "}"}], " ", "not", " ", 
            RowBox[{"{", 
             RowBox[{"{", "}"}], "}"}]}]}], "*)"}], "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"det", "=", 
          RowBox[{
           RowBox[{"Det", "[", 
            RowBox[{"2", "*", "Pi", "*", "var"}], "]"}], "^", 
           RowBox[{"(", "0.5", ")"}]}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"-", "t"}], "-", 
             RowBox[{"Log", "[", "det", "]"}]}], "<", 
            RowBox[{"10.", " ", 
             RowBox[{"Log", "[", "$MinMachineNumber", "]"}]}]}], ",", "0.", 
           ",", 
           RowBox[{
            RowBox[{"Exp", "[", 
             RowBox[{"-", "t"}], "]"}], "/", "det"}]}], "]"}]}]}], 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "This", " ", "is", " ", "to", " ", "prevent", " ", "machine"}], "-", 
         RowBox[{"precision", " ", "related", " ", "warnings"}]}], "*)"}], 
       "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"logMultinormalDens", "[", 
      RowBox[{"x_", ",", "mean_", ",", "var2_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "det", ",", "var"}], "}"}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"var", "=", 
         RowBox[{"positivizeMatrix", "[", "var2", "]"}]}], ";", 
        "\[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", " ", "symmetric", " ", "and", " ", 
           RowBox[{"PD", ".", " ", "Otherwise"}], " ", "we", " ", "would", 
           " ", "have", " ", "a", " ", "error", " ", "warning", " ", "from", 
           " ", "mathematica"}]}], "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"t", "=", 
         RowBox[{"0.5", "*", 
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{"(", 
             RowBox[{"x", "-", "mean"}], ")"}], "]"}], ".", 
           RowBox[{"LinearSolve", "[", 
            RowBox[{"var", ",", 
             RowBox[{"Flatten", "[", 
              RowBox[{"(", 
               RowBox[{"x", "-", "mean"}], ")"}], "]"}], ",", 
             RowBox[{"Method", "\[Rule]", "\"\<Cholesky\>\""}]}], "]"}]}]}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"Flatten", " ", "-", " ", 
          RowBox[{
          "The", " ", "LinearSolve", " ", "receives", " ", "only", " ", 
           RowBox[{"{", "}"}], " ", "not", " ", 
           RowBox[{"{", 
            RowBox[{"{", "}"}], "}"}]}]}], "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"det", "=", 
         RowBox[{
          RowBox[{"Det", "[", 
           RowBox[{"2", "*", "Pi", "*", "var"}], "]"}], "^", 
          RowBox[{"(", "0.5", ")"}]}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"-", "t"}], "-", 
         RowBox[{"Log", "[", "det", "]"}]}]}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7677648764454184`*^9, 3.767764912323202*^9}, {
   3.76776497184479*^9, 3.767764978845162*^9}, {3.7677650097296867`*^9, 
   3.767765015176253*^9}, {3.767765051570076*^9, 3.767765051913212*^9}, {
   3.767775540587294*^9, 3.7677755867147217`*^9}, {3.774181126395876*^9, 
   3.774181135610283*^9}, 3.77418121931409*^9, {3.774183954424329*^9, 
   3.774183955177492*^9}, {3.829456498163528*^9, 3.8294565055072527`*^9}, {
   3.8294565462412934`*^9, 3.8294565485237865`*^9}},
 CellLabel->
  "In[131]:=",ExpressionUUID->"fba8d491-82dc-460d-9ae9-9c1242927a59"]
}, 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.762149291330901*^9, 3.762149298255916*^9}, {
  3.7639624718400707`*^9, 3.763962477246597*^9}, {3.7650156500987873`*^9, 
  3.765015650692568*^9}},ExpressionUUID->"74e049ea-4f9d-4a72-be57-\
308352c5971b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"newMeanEcon", "[", 
    RowBox[{
    "vecy1T_", ",", "vecx2T_", ",", "vecx1T1_", ",", "vecx1T_", ",", "X1T_", 
     ",", "T_", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
         "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
       "tilL_", ",", "tilQMat_"}], "}"}], ",", "Wmat_", ",", "SigmaMat_", ",",
      "Vmat_", ",", 
     RowBox[{"{", 
      RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"m1_", ",", "m2_"}], "}"}], ",", "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]", "]"}]}], ";"}]], "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.7616345127989364`*^9, 3.761634513109912*^9}, {3.7616345611425304`*^9, 
   3.7616345715492783`*^9}, {3.761635109345708*^9, 3.761635113814345*^9}, {
   3.7616352548303733`*^9, 3.7616353191274195`*^9}, 3.761635959742055*^9, 
   3.7616363461077747`*^9, {3.7616364105124693`*^9, 3.761636511951291*^9}, {
   3.7616365933954287`*^9, 3.7616366055062943`*^9}, {3.7618918345467076`*^9, 
   3.7618918413542557`*^9}, 3.761892318173066*^9, {3.761892659603106*^9, 
   3.761892660872954*^9}, {3.761895161110696*^9, 3.7618951626942434`*^9}, {
   3.761895312706555*^9, 3.761895358538418*^9}, {3.761895686654896*^9, 
   3.7618958840569687`*^9}, {3.761895927602934*^9, 3.761896052439567*^9}, {
   3.7618960826601954`*^9, 3.761896086337764*^9}, {3.7619010501241846`*^9, 
   3.761901050536544*^9}, {3.761902048934952*^9, 3.761902102027939*^9}, {
   3.7619023920481687`*^9, 3.7619023943815875`*^9}, {3.7619024884382124`*^9, 
   3.761902489768194*^9}, {3.7619025697777543`*^9, 3.7619026017856736`*^9}, {
   3.762005650626629*^9, 3.7620056919952574`*^9}, {3.7620057413632317`*^9, 
   3.762005749626751*^9}, 3.7620062359375577`*^9, {3.762006451775713*^9, 
   3.76200645711528*^9}, 3.76200649885716*^9, {3.7620725787692056`*^9, 
   3.7620725813337183`*^9}, {3.76215217891197*^9, 3.7621521892358227`*^9}, {
   3.762152766630103*^9, 3.7621527672995014`*^9}, 3.762152813755189*^9, {
   3.7625886992642107`*^9, 3.7625887060397353`*^9}, {3.7625887850096707`*^9, 
   3.762588788024685*^9}, {3.763183149592283*^9, 3.7631831513110914`*^9}, {
   3.76501567021027*^9, 3.7650156931250706`*^9}, {3.7650160868881683`*^9, 
   3.7650161302049913`*^9}, 3.7650161764365044`*^9, {3.7650163163892574`*^9, 
   3.7650163240970078`*^9}, 3.765016431991356*^9, {3.7670936972168646`*^9, 
   3.767093720077425*^9}, {3.767093793565637*^9, 3.76709379397188*^9}, {
   3.7670938457871103`*^9, 3.76709384772471*^9}, {3.7670938790232115`*^9, 
   3.7670938807420573`*^9}, {3.7670939322603683`*^9, 3.767093939541999*^9}, {
   3.7670940626108837`*^9, 3.767094091768655*^9}, {3.767094145318351*^9, 
   3.7670941535531263`*^9}, {3.767094305248564*^9, 3.7670943144052896`*^9}, {
   3.7670945263466*^9, 3.767094550113492*^9}, {3.7670948600379796`*^9, 
   3.767094868819686*^9}, {3.7670948989618554`*^9, 3.767094915868985*^9}, {
   3.7670950124052663`*^9, 3.7670950165773907`*^9}, {3.767791894422885*^9, 
   3.7677919508509703`*^9}, {3.767792024080682*^9, 3.7677921309506063`*^9}, {
   3.767792177667759*^9, 3.7677921795729685`*^9}, {3.767792387152238*^9, 
   3.76779239638501*^9}, {3.7677924627072687`*^9, 3.767792466291936*^9}, {
   3.767793763988497*^9, 3.767793789432303*^9}, {3.767795830743019*^9, 
   3.7677958838051496`*^9}, {3.7736700220282364`*^9, 3.773670082572839*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"18f1f8f6-cb33-4f45-84e2-b3840b0b2c2c"]
}, Closed]],

Cell[CellGroupData[{

Cell["Mean for tilQmat", "Subsubsection",
 CellChangeTimes->{{3.7531680718255754`*^9, 3.7531680944404716`*^9}, {
  3.7532616090779924`*^9, 3.7532616549825935`*^9}, {3.755505857598364*^9, 
  3.755505876875003*^9}, {3.762149291330901*^9, 3.762149298255916*^9}, {
  3.7639624718400707`*^9, 3.763962477246597*^9}, {3.7650156592274227`*^9, 
  3.7650156625724087`*^9}},ExpressionUUID->"2f01d03a-5613-43c3-8f1e-\
05af80cae937"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"newMeanQ", "[", 
    RowBox[{
    "vecy1T_", ",", "vecx2T_", ",", "vecx1T1_", ",", "vecx1T_", ",", "X1T_", 
     ",", "T_", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
         "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
       "tilL_", ",", "tilQMat_"}], "}"}], ",", "Wmat_", ",", "SigmaMat_", ",",
      "Vmat_", ",", 
     RowBox[{"{", 
      RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"m1_", ",", "m2_"}], "}"}], ",", "s1_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"Output", ":", " ", "Tilparam"}], ",", "newtilL", ",", 
       "newtilQMat"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"newtilQMat", "=", 
       RowBox[{"tilQMat", "+", 
        RowBox[{"s1", "*", 
         RowBox[{"DiagonalMatrix", "[", 
          RowBox[{"RandomReal", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "2"}], "]"}], 
          "]"}]}]}]}], ";", "\[IndentingNewLine]", "newtilQMat"}]}], 
    "\[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.7616345127989364`*^9, 3.761634513109912*^9}, {3.7616345611425304`*^9, 
   3.7616345715492783`*^9}, {3.761635109345708*^9, 3.761635113814345*^9}, {
   3.7616352548303733`*^9, 3.7616353191274195`*^9}, 3.761635959742055*^9, 
   3.7616363461077747`*^9, {3.7616364105124693`*^9, 3.761636511951291*^9}, {
   3.7616365933954287`*^9, 3.7616366055062943`*^9}, {3.7618918345467076`*^9, 
   3.7618918413542557`*^9}, 3.761892318173066*^9, {3.761892659603106*^9, 
   3.761892660872954*^9}, {3.761895161110696*^9, 3.7618951626942434`*^9}, {
   3.761895312706555*^9, 3.761895358538418*^9}, {3.761895686654896*^9, 
   3.7618958840569687`*^9}, {3.761895927602934*^9, 3.761896052439567*^9}, {
   3.7618960826601954`*^9, 3.761896086337764*^9}, {3.7619010501241846`*^9, 
   3.761901050536544*^9}, {3.761902048934952*^9, 3.761902102027939*^9}, {
   3.7619023920481687`*^9, 3.7619023943815875`*^9}, {3.7619024884382124`*^9, 
   3.761902489768194*^9}, {3.7619025697777543`*^9, 3.7619026017856736`*^9}, {
   3.762005650626629*^9, 3.7620056919952574`*^9}, {3.7620057413632317`*^9, 
   3.762005749626751*^9}, 3.7620062359375577`*^9, {3.762006451775713*^9, 
   3.76200645711528*^9}, 3.76200649885716*^9, {3.7620725787692056`*^9, 
   3.7620725813337183`*^9}, {3.76215217891197*^9, 3.7621521892358227`*^9}, {
   3.762152766630103*^9, 3.7621527672995014`*^9}, 3.762152813755189*^9, {
   3.7625886992642107`*^9, 3.7625887060397353`*^9}, {3.7625887850096707`*^9, 
   3.762588788024685*^9}, {3.763183149592283*^9, 3.7631831513110914`*^9}, {
   3.7650171188395414`*^9, 3.765017161594026*^9}, {3.765017213962515*^9, 
   3.7650172781492443`*^9}, {3.76501732689526*^9, 3.7650173606739535`*^9}, {
   3.76709546205374*^9, 3.767095521088067*^9}, {3.7670955686686745`*^9, 
   3.7670955740908327`*^9}, {3.76779389139758*^9, 3.7677938967349963`*^9}, {
   3.7677961487135115`*^9, 3.7677961491071677`*^9}, {3.7736701092070913`*^9, 
   3.7736701598861446`*^9}, 3.7736701977200303`*^9, {3.773758416401499*^9, 
   3.773758416828662*^9}, {3.773758519131815*^9, 3.7737585650334597`*^9}, {
   3.773758988054283*^9, 3.773758997647333*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"bdfaad6c-fa4d-49de-a7c1-e9b4f1b25828"]
}, 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.762149291330901*^9, 3.762149298255916*^9}, {
  3.7639624718400707`*^9, 3.763962477246597*^9}, {3.7650156543500633`*^9, 
  3.765015655240734*^9}},ExpressionUUID->"a8fdb71b-a921-4d3f-9d7e-\
6d9d44d08348"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"newMeanL", "[", 
    RowBox[{
    "vecy1T_", ",", "vecx2T_", ",", "vecx1T1_", ",", "vecx1T_", ",", "X1T_", 
     ",", "T_", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
         "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
       "tilL_", ",", "tilQMat_"}], "}"}], ",", "Wmat_", ",", "SigmaMat_", ",",
      "Vmat_", ",", 
     RowBox[{"{", 
      RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"m1_", ",", "m2_"}], "}"}], ",", "s1_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"tilL", "+", 
      RowBox[{"s1", "*", 
       RowBox[{"RandomReal", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}]}]}]}], 
    "\[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.7616345127989364`*^9, 3.761634513109912*^9}, {3.7616345611425304`*^9, 
   3.7616345715492783`*^9}, {3.761635109345708*^9, 3.761635113814345*^9}, {
   3.7616352548303733`*^9, 3.7616353191274195`*^9}, 3.761635959742055*^9, 
   3.7616363461077747`*^9, {3.7616364105124693`*^9, 3.761636511951291*^9}, {
   3.7616365933954287`*^9, 3.7616366055062943`*^9}, {3.7618918345467076`*^9, 
   3.7618918413542557`*^9}, 3.761892318173066*^9, {3.761892659603106*^9, 
   3.761892660872954*^9}, {3.761895161110696*^9, 3.7618951626942434`*^9}, {
   3.761895312706555*^9, 3.761895358538418*^9}, {3.761895686654896*^9, 
   3.7618958840569687`*^9}, {3.761895927602934*^9, 3.761896052439567*^9}, {
   3.7618960826601954`*^9, 3.761896086337764*^9}, {3.7619010501241846`*^9, 
   3.761901050536544*^9}, {3.761902048934952*^9, 3.761902102027939*^9}, {
   3.7619023920481687`*^9, 3.7619023943815875`*^9}, {3.7619024884382124`*^9, 
   3.761902489768194*^9}, {3.7619025697777543`*^9, 3.7619026017856736`*^9}, {
   3.762005650626629*^9, 3.7620056919952574`*^9}, {3.7620057413632317`*^9, 
   3.762005749626751*^9}, 3.7620062359375577`*^9, {3.762006451775713*^9, 
   3.76200645711528*^9}, 3.76200649885716*^9, {3.7620725787692056`*^9, 
   3.7620725813337183`*^9}, {3.76215217891197*^9, 3.7621521892358227`*^9}, {
   3.762152766630103*^9, 3.7621527672995014`*^9}, 3.762152813755189*^9, {
   3.7625886992642107`*^9, 3.7625887060397353`*^9}, {3.7625887850096707`*^9, 
   3.762588788024685*^9}, {3.763183149592283*^9, 3.7631831513110914`*^9}, {
   3.765016486282261*^9, 3.7650165144036503`*^9}, {3.7650165831438904`*^9, 
   3.7650166643377895`*^9}, {3.7670968061081896`*^9, 3.767096868970808*^9}, {
   3.7670970592545896`*^9, 3.7670970640517163`*^9}, {3.7670971743074617`*^9, 
   3.767097179385851*^9}, {3.767245027481556*^9, 3.767245031153653*^9}, {
   3.7672451063201942`*^9, 3.767245106960881*^9}, {3.7672454512165804`*^9, 
   3.7672454612640076`*^9}, {3.7677961238670287`*^9, 
   3.7677961244599323`*^9}, {3.773670242977948*^9, 3.773670252133836*^9}},
 CellLabel->
  "In[136]:=",ExpressionUUID->"8ba99a8c-0798-49c2-8bec-1d635fb90c13"]
}, 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->"3f2da3e6-4615-46f0-9d6e-\
35ce78f34c3a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"drawPropEcon", "[", 
     RowBox[{"mean_", ",", "s2_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"scaleMatrixEcon", "=", 
        RowBox[{"IdentityMatrix", "[", "6", "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"RandomVariate", "[", 
        RowBox[{"MultivariateTDistribution", "[", 
         RowBox[{"mean", ",", 
          RowBox[{"s2", "*", "scaleMatrixEcon"}], ",", "degfredEcon"}], "]"}],
         "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pdfPropEcon", "[", 
    RowBox[{"x_", ",", "mean_", ",", "s2_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"MultivariateTDistribution", "[", 
        RowBox[{"mean", ",", 
         RowBox[{"s2", "*", "scaleMatrixEcon"}], ",", "degfredEcon"}], "]"}], 
       ",", "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.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.773907157279834*^9, 
   3.7739071844793816`*^9}},
 CellLabel->
  "In[137]:=",ExpressionUUID->"8bd605ba-4b08-4c89-a8bd-2bd234027e5f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"drawPropQ", "[", 
     RowBox[{"meanQ_", ",", "s2_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"mean", "=", 
        RowBox[{"Diagonal", "[", "meanQ", "]"}]}], ";", "\[IndentingNewLine]",
        "\[IndentingNewLine]", 
       RowBox[{"tSampleDP", "=", 
        RowBox[{"RandomVariate", "[", 
         RowBox[{"MultivariateTDistribution", "[", 
          RowBox[{"mean", ",", 
           RowBox[{"s2", "*", 
            RowBox[{"IdentityMatrix", "[", "2", "]"}]}], ",", "3"}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"DiagonalMatrix", "[", "tSampleDP", "]"}]}]}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pdfPropQ", "[", 
    RowBox[{"xQ_", ",", "meanQ_", ",", "s2_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"MultivariateTDistribution", "[", 
        RowBox[{
         RowBox[{"Diagonal", "[", "meanQ", "]"}], ",", 
         RowBox[{"s2", "*", 
          RowBox[{"IdentityMatrix", "[", "2", "]"}]}], ",", "3"}], "]"}], ",", 
       RowBox[{"Diagonal", "[", "xQ", "]"}]}], "\[IndentingNewLine]", "]"}]}],
     "\[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.7650285558067465`*^9, 
   3.765028685582765*^9}, {3.765028759574233*^9, 3.7650287762738404`*^9}, 
   3.7650288377128096`*^9, {3.7650348234184847`*^9, 3.765034832763347*^9}, 
   3.765034953939999*^9, {3.767933918736437*^9, 3.7679339231897945`*^9}, {
   3.7679339593010483`*^9, 3.7679339689734306`*^9}, {3.773758793292843*^9, 
   3.7737588152008557`*^9}},
 CellLabel->
  "In[139]:=",ExpressionUUID->"db3f5b5b-3862-42df-828d-b831580fbf5c"],

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[141]:=",ExpressionUUID->"456ed8b6-2306-44bb-a9b1-dfb481fd5af7"]
}, Closed]],

Cell[CellGroupData[{

Cell["Marginal Likelihood", "Subsubsection",
 CellChangeTimes->{{3.7531678695984945`*^9, 3.753167887109066*^9}, {
  3.7564892276555877`*^9, 
  3.75648922992841*^9}},ExpressionUUID->"dd45dbc3-54ae-4c1e-90ed-\
9876cbbd328e"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"logMarginalLikelihood", "[", 
     RowBox[{"vecy1T_", ",", "X1T_", ",", "T_", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
          "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
        "tilL_", ",", "tilQMat_"}], "}"}], ",", "Wmat_", ",", "SigmaMat_", 
      ",", 
      RowBox[{"{", 
       RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"m1_", ",", "m2_"}], "}"}]}], "]"}], ":=", 
    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[{"QLik", "=", 
        RowBox[{"reparametrizationFQInv", "[", "tilQMat", "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"phi1TLik", "=", 
        RowBox[{"vecPhiEigen", "[", 
         RowBox[{"X1T", ",", 
          RowBox[{"{", 
           RowBox[{"L1", ",", "L2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"m1", ",", "m2"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"T", "==", "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"}],
                  "]"}], ".", "vecx1TLik"}], "+", 
               RowBox[{
                RowBox[{"KroneckerProduct", "[", 
                 RowBox[{
                  RowBox[{"ConstantArray", "[", 
                   RowBox[{"1", ",", "T"}], "]"}], ",", 
                  RowBox[{"IdentityMatrix", "[", "3", "]"}]}], "]"}], ".", 
                "CmatStarLik"}], "+", 
               RowBox[{
                RowBox[{"KroneckerProduct", "[", 
                 RowBox[{
                  RowBox[{"IdentityMatrix", "[", "T", "]"}], ",", "Wmat"}], 
                 "]"}], ".", "phi1TLik"}]}], "]"}], ",", 
             RowBox[{"KroneckerProduct", "[", 
              RowBox[{
               RowBox[{"IdentityMatrix", "[", "T", "]"}], ",", "SigmaMat"}], 
              "]"}]}], "]"}]}]}]}], "\[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[{"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[{
                   RowBox[{"IdentityMatrix", "[", "T", "]"}], ",", "Wmat"}], 
                  "]"}], ".", "phi1TLik"}]}], "]"}], ",", 
              RowBox[{"KroneckerProduct", "[", 
               RowBox[{
                RowBox[{"IdentityMatrix", "[", "T", "]"}], ",", "SigmaMat"}], 
               "]"}]}], "]"}]}]}], ";"}]}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
       "resLik"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.7677905358860054`*^9, 3.7677905696983805`*^9}, {
   3.7677906085066967`*^9, 3.7677906509254303`*^9}, {3.7736715179429307`*^9, 
   3.7736715601901827`*^9}, 3.774184029603072*^9},
 CellLabel->
  "In[143]:=",ExpressionUUID->"0a30a68c-e105-4028-9678-b9426e9ba591"]
}, Closed]],

Cell[CellGroupData[{

Cell["Priors and Jacobian", "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.7620649727528996`*^9, 
   3.762064986973849*^9}, {3.764999604066389*^9, 3.764999615723231*^9}, 
   3.765029515272795*^9},ExpressionUUID->"8b9d0ce3-1ca3-46fa-92f6-\
5f4e490e1c6e"],

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[144]:=",ExpressionUUID->"23eaa940-51c6-4213-8bc6-ded59639f6b3"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"(*", 
   RowBox[{
   "Density", " ", "function", " ", "of", " ", "inverse", " ", "Wishart"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"densInvWish", "[", 
     RowBox[{"\[CapitalSigma]_", ",", "\[Nu]_", ",", "X2_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"len", ",", "cond", ",", "propconst"}], "}"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "\[Nu]", " ", "must", " ", "be", " ", "greater", " ", "than", " ", 
        "number", " ", "of", " ", 
        RowBox[{"lines", "/", "columns"}], " ", "of", " ", 
        "\[CapitalSigma]"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"X", "=", 
        RowBox[{"0.5", "*", 
         RowBox[{"(", 
          RowBox[{"X2", "+", 
           RowBox[{"Transpose", "[", "X2", "]"}]}], ")"}]}]}], ";", 
       RowBox[{"(*", 
        RowBox[{"machine", "-", 
         RowBox[{"precision", " ", "considerations"}]}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"len", "=", 
        RowBox[{"Length", "[", "\[CapitalSigma]", "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"Xdens", "=", "X"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"cond", "=", 
        RowBox[{"0.5", "*", 
         RowBox[{"Tr", "[", 
          RowBox[{"\[CapitalSigma]", ".", 
           RowBox[{"Inverse", "[", "Xdens", "]"}]}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"propconst", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"Det", "[", "\[CapitalSigma]", "]"}], "]"}], "^", 
            RowBox[{"(", 
             RowBox[{"\[Nu]", "/", "2"}], ")"}]}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", "^", 
              RowBox[{"(", 
               RowBox[{"\[Nu]", "*", 
                RowBox[{"len", "/", "2"}]}], ")"}]}], "*", 
             RowBox[{"multi\[CapitalGamma]", "[", 
              RowBox[{"len", ",", 
               RowBox[{"\[Nu]", "/", "2"}]}], "]"}]}], ")"}]}], ")"}], " ", 
         "*", 
         RowBox[{
          RowBox[{"Det", "[", "Xdens", "]"}], "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{"\[Nu]", "+", "len", "+", "1"}], ")"}]}], "/", "2"}], 
           ")"}]}]}]}], " ", ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       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]", "]"}]}], ";"}], "*)"}]], "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.765028944771273*^9, 3.7650289454275575`*^9}},
 CellLabel->
  "In[145]:=",ExpressionUUID->"70c49fd3-d18f-4449-aabf-ea37bcdd12eb"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"logDensInvWish", "[", 
    RowBox[{"\[CapitalSigma]_", ",", "\[Nu]_", ",", "X2_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"len", ",", "cond", ",", "propconst"}], "}"}], ",", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
      "\[Nu]", " ", "must", " ", "be", " ", "greater", " ", "than", " ", 
       "number", " ", "of", " ", 
       RowBox[{"lines", "/", "columns"}], " ", "of", " ", "\[CapitalSigma]"}],
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"X", "=", 
       RowBox[{"0.5", "*", 
        RowBox[{"(", 
         RowBox[{"X2", "+", 
          RowBox[{"Transpose", "[", "X2", "]"}]}], ")"}]}]}], ";", 
      RowBox[{"(*", 
       RowBox[{"machine", "-", 
        RowBox[{"precision", " ", "considerations"}]}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"len", "=", 
       RowBox[{"Length", "[", "\[CapitalSigma]", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Xdens", "=", "X"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"cond", "=", 
       RowBox[{"0.5", "*", 
        RowBox[{"Tr", "[", 
         RowBox[{"\[CapitalSigma]", ".", 
          RowBox[{"Inverse", "[", "Xdens", "]"}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"propconst", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{"Det", "[", "\[CapitalSigma]", "]"}], "]"}], "^", 
           RowBox[{"(", 
            RowBox[{"\[Nu]", "/", "2"}], ")"}]}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "^", 
             RowBox[{"(", 
              RowBox[{"\[Nu]", "*", 
               RowBox[{"len", "/", "2"}]}], ")"}]}], "*", 
            RowBox[{"multi\[CapitalGamma]", "[", 
             RowBox[{"len", ",", 
              RowBox[{"\[Nu]", "/", "2"}]}], "]"}]}], ")"}]}], ")"}], " ", 
        "*", 
        RowBox[{
         RowBox[{"Det", "[", "Xdens", "]"}], "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{"\[Nu]", "+", "len", "+", "1"}], ")"}]}], "/", "2"}], 
          ")"}]}]}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"-", "cond"}], "+", 
       RowBox[{"Log", "[", "propconst", "]"}]}]}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7677878653701277`*^9, 3.767787888121133*^9}},
 CellLabel->
  "In[146]:=",ExpressionUUID->"8b2b373b-f267-4971-a18c-33c0eb63f0bb"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"matrixNormalDens", "[", 
     RowBox[{"X_", ",", "M_", ",", "U_", ",", "V_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"n", ",", "p"}], "}"}], "=", 
        RowBox[{"Dimensions", "[", "X", "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"t", "=", 
        RowBox[{"0.5", "*", 
         RowBox[{"Tr", "[", 
          RowBox[{
           RowBox[{"LinearSolve", "[", 
            RowBox[{"V", ",", 
             RowBox[{"Transpose", "[", 
              RowBox[{"X", "-", "M"}], "]"}], ",", 
             RowBox[{"Method", "\[Rule]", "\"\<Cholesky\>\""}]}], "]"}], ".", 
           RowBox[{"LinearSolve", "[", 
            RowBox[{"U", ",", 
             RowBox[{"X", "-", "M"}], ",", 
             RowBox[{"Method", "\[Rule]", "\"\<Cholesky\>\""}]}], "]"}]}], 
          "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"det", "=", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"2", "*", "Pi"}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"n", "*", "p", "*", "0.5"}], ")"}]}], "*", 
          RowBox[{
           RowBox[{"Det", "[", "V", "]"}], "^", 
           RowBox[{"(", 
            RowBox[{"n", "*", "0.5"}], ")"}]}], "*", 
          RowBox[{
           RowBox[{"Det", "[", "U", "]"}], "^", 
           RowBox[{"(", 
            RowBox[{"p", "*", "0.5"}], ")"}]}]}], ")"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", "t"}], "-", 
           RowBox[{"Log", "[", "det", "]"}]}], "<", " ", 
          RowBox[{"Log", "[", "$MinMachineNumber", "]"}]}], ",", 
         "\[IndentingNewLine]", "0.", ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{"-", "t"}], "]"}], "/", "det"}]}], "\[IndentingNewLine]", 
        "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]", "*)"}]], "Input",
 CellChangeTimes->{{3.767788308214021*^9, 3.76778832233984*^9}},
 CellLabel->
  "In[147]:=",ExpressionUUID->"859bef1e-9908-462e-a36c-be33d32d1bd5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"logMatrixNormalDens", "[", 
     RowBox[{"X_", ",", "M_", ",", "U_", ",", "V_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"n", ",", "p"}], "}"}], "=", 
        RowBox[{"Dimensions", "[", "X", "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"t", "=", 
        RowBox[{"0.5", "*", 
         RowBox[{"Tr", "[", 
          RowBox[{
           RowBox[{"LinearSolve", "[", 
            RowBox[{"V", ",", 
             RowBox[{"Transpose", "[", 
              RowBox[{"X", "-", "M"}], "]"}], ",", 
             RowBox[{"Method", "\[Rule]", "\"\<Cholesky\>\""}]}], "]"}], ".", 
           RowBox[{"LinearSolve", "[", 
            RowBox[{"U", ",", 
             RowBox[{"X", "-", "M"}], ",", 
             RowBox[{"Method", "\[Rule]", "\"\<Cholesky\>\""}]}], "]"}]}], 
          "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "This", " ", "density", " ", "will", " ", "only", " ", "be", " ", 
          "used", " ", "on", " ", "the", " ", "prior"}], ",", " ", 
         RowBox[{
         "where", " ", "V", " ", "is", " ", "a", " ", "Diagonal", " ", 
          "Matrix"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"logdet", "=", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"2", "*", "Pi"}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"n", "*", "p", "*", "0.5"}], ")"}]}], "]"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Plus", "@@", 
            RowBox[{"Log", "[", 
             RowBox[{"Diagonal", "[", "V", "]"}], "]"}]}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"n", "*", "0.5"}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Log", "[", 
           RowBox[{"Det", "[", "U", "]"}], "]"}], "*", 
          RowBox[{"(", 
           RowBox[{"p", "*", "0.5"}], ")"}]}]}]}], ";", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
          RowBox[{"it", "'"}], "s", " ", "only", " ", "used", " ", "in", " ", 
          "MH"}], ",", " ", 
         RowBox[{"for", " ", "the", " ", "prior"}], ",", " ", 
         RowBox[{"which", " ", "has", " ", "V", " ", "as", " ", "a", " ", 
          RowBox[{"diagonal", "!"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
          RowBox[{"Log", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"2", "*", "Pi"}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{"n", "*", "p", "*", "0.5"}], ")"}]}], "]"}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Plus", "@@", 
             RowBox[{"Log", "[", 
              RowBox[{"Diagonal", "[", "V", "]"}], "]"}]}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{"n", "*", "0.5"}], ")"}]}], "+", 
          RowBox[{"Log", "[", 
           RowBox[{
            RowBox[{"Det", "[", "U", "]"}], "^", 
            RowBox[{"(", 
             RowBox[{"p", "*", "0.5"}], ")"}]}], "]"}]}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"-", "t"}], "-", "logdet"}]}]}], "\[IndentingNewLine]", 
     "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.7677879256418924`*^9, 3.7677879276633625`*^9}, {
  3.767788331625791*^9, 3.767788346222424*^9}, {3.767788440654385*^9, 
  3.7677885227914333`*^9}, {3.7677886512143135`*^9, 3.767788660345976*^9}, {
  3.767788847652364*^9, 3.767788885020358*^9}, {3.7736730233817596`*^9, 
  3.7736730425062337`*^9}, {3.7736730839444942`*^9, 3.7736731576156445`*^9}, {
  3.7737613331785164`*^9, 3.773761370341921*^9}, {3.7737614288976145`*^9, 
  3.7737614474196167`*^9}},
 CellLabel->
  "In[148]:=",ExpressionUUID->"f87c52d2-d097-47f4-81aa-06c95f32deb6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"logAbsDetJacob", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
         "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
       "tilL_", ",", "tilQMat_"}], "}"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Log", "[", 
        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"}]}]}], "]"}],
         "]"}], "+", "tilaPar", "+", "til\[Gamma]", "+", "tilL", "+", 
       RowBox[{"Apply", "[", 
        RowBox[{"Plus", ",", " ", 
         RowBox[{"Diagonal", "[", "tilQMat", "]"}]}], "]"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"Absolute", " ", "Value", " ", "of", " ", 
    RowBox[{"Jacobian", "'"}], "s", " ", "Determinant"}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"AbsDetJacob", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
          "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
        "tilL_", ",", "tilQMat_"}], "}"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        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[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"tilaPar", "+", "til\[Gamma]", "+", "tilL"}], ")"}]}], "*", 
        RowBox[{"Apply", "[", 
         RowBox[{"Times", ",", " ", 
          RowBox[{"E", "^", 
           RowBox[{"Diagonal", "[", "tilQMat", "]"}]}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "*)"}], "\[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.762063817286515*^9, 3.762063845188151*^9}, {
   3.7620644408751125`*^9, 3.762064459538579*^9}, {3.762064494225744*^9, 
   3.762064497370844*^9}, {3.7620648841462297`*^9, 3.762064886981243*^9}, {
   3.762065052815835*^9, 3.762065053450936*^9}, {3.762065095489579*^9, 
   3.7620651136559143`*^9}, {3.76206594660855*^9, 3.762065960671341*^9}, {
   3.7620704598174973`*^9, 3.7620704773020086`*^9}, {3.762070772333548*^9, 
   3.762070777817097*^9}, {3.762070821480197*^9, 3.7620708324728317`*^9}, {
   3.7620708637689824`*^9, 3.7620708658178596`*^9}, {3.76207092701891*^9, 
   3.7620710395523643`*^9}, {3.762071138074704*^9, 3.762071159418481*^9}, 
   3.762071244630766*^9, {3.762071301490436*^9, 3.76207130386357*^9}, 
   3.762071650834038*^9, {3.762071780433237*^9, 3.7620717832708364`*^9}, {
   3.762072480575482*^9, 3.76207253652105*^9}, {3.7620727698802557`*^9, 
   3.762072862724334*^9}, {3.7620729215058947`*^9, 3.762072932412553*^9}, {
   3.762589808942769*^9, 3.762589863190836*^9}, {3.7650109635661335`*^9, 
   3.765010980707643*^9}, {3.7650112875182915`*^9, 3.7650113135040207`*^9}, {
   3.7650289174437933`*^9, 3.7650289192261972`*^9}, {3.7650312149524527`*^9, 
   3.7650312286615467`*^9}, 3.7650313051159115`*^9, {3.7650333892749968`*^9, 
   3.765033433355485*^9}, {3.7677668700831547`*^9, 3.767766877669871*^9}, {
   3.767767019151201*^9, 3.7677670326326413`*^9}, {3.7677676117691374`*^9, 
   3.767767612129504*^9}, {3.767787914557184*^9, 3.7677879168571405`*^9}, 
   3.7736732283710585`*^9, {3.7736732697935357`*^9, 3.7736733368647184`*^9}, {
   3.7736733711154995`*^9, 3.77367345916958*^9}, 3.7736734932271986`*^9, {
   3.7736735300621176`*^9, 3.7736735383246703`*^9}},
 CellLabel->
  "In[149]:=",ExpressionUUID->"b25d75cf-4478-4830-9e31-c796cacad744"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"priortheta", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
          "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
        "tilL_", ",", "tilQMat_"}], "}"}], ",", "Wmat_", ",", "SigmaMat_", 
      ",", 
      RowBox[{"{", 
       RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"m1_", ",", "m2_"}], "}"}]}], "]"}], ":=", 
    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[{"Qprior", "=", 
        RowBox[{"reparametrizationFQInv", "[", "tilQMat", "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"VmatPrior", "=", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"spectralDens", "[", 
             RowBox[{
              RowBox[{"Sqrt", "[", 
               RowBox[{"lambda", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"j1", ",", "j2"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"L1", ",", "L2"}], "}"}]}], "]"}], "]"}], ",", "2", 
              ",", "0.5", ",", 
              RowBox[{"Exp", "[", "tilL", "]"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"j1", ",", "1", ",", "m1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"j2", ",", "1", ",", "m2"}], "}"}]}], "]"}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"SparseArray", "[", 
          RowBox[{"DiagonalMatrix", "[", 
           RowBox[{"Flatten", "[", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"spectralDens", "[", 
               RowBox[{
                RowBox[{"lambda", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"j1", ",", "j2"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"L1", ",", "L2"}], "}"}]}], "]"}], ",", "2", ",", 
                "0.5", ",", 
                RowBox[{"Exp", "[", "tilL", "]"}]}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"j1", ",", "1", ",", "m1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"j2", ",", "1", ",", "m2"}], "}"}]}], "]"}], "]"}], 
           "]"}], "]"}], ";", " ", 
         RowBox[{
          RowBox[{"It", "'"}], "s", " ", 
          RowBox[{"faster", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"meanPrior", "=", 
        RowBox[{"ConstantArray", "[", 
         RowBox[{"0", ",", 
          RowBox[{"Dimensions", "[", "Wmat", "]"}]}], "]"}]}], ";", 
       "\[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[{"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[{"densInvWish", "[", 
         RowBox[{
          RowBox[{"IdentityMatrix", "[", "3", "]"}], ",", "4", ",", 
          "SigmaMat"}], "]"}], "*", 
        RowBox[{"absDetJacob", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
             "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
           "tilL", ",", "tilQMat"}], "}"}], "]"}], "*", 
        RowBox[{"matrixNormalDens", "[", 
         RowBox[{
         "Wmat", ",", "meanPrior", ",", "SigmaMat", ",", "VmatPrior"}], 
         "]"}]}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], 
   ";"}], "*)"}]], "Input",
 CellLabel->
  "In[150]:=",ExpressionUUID->"d808280e-2448-4454-b02c-8e532895ba97"],

Cell[BoxData[
 RowBox[{
  RowBox[{"logPriortheta", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
        "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
      "tilL_", ",", "tilQMat_"}], "}"}], ",", "Wmat_", ",", "SigmaMat_", ",", 
    RowBox[{"{", 
     RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"m1_", ",", "m2_"}], "}"}]}], "]"}], ":=", 
  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[{"Qprior", "=", 
      RowBox[{"reparametrizationFQInv", "[", "tilQMat", "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"VmatPrior", "=", 
      RowBox[{"DiagonalMatrix", "[", 
       RowBox[{"Flatten", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"spectralDens", "[", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"lambda", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"j1", ",", "j2"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"L1", ",", "L2"}], "}"}]}], "]"}], "]"}], ",", "2", 
            ",", "0.5", ",", 
            RowBox[{"Exp", "[", "tilL", "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"j1", ",", "1", ",", "m1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"j2", ",", "1", ",", "m2"}], "}"}]}], "]"}], "]"}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"SparseArray", "[", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"spectralDens", "[", 
             RowBox[{
              RowBox[{"lambda", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"j1", ",", "j2"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"L1", ",", "L2"}], "}"}]}], "]"}], ",", "2", ",", 
              "0.5", ",", 
              RowBox[{"Exp", "[", "tilL", "]"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"j1", ",", "1", ",", "m1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"j2", ",", "1", ",", "m2"}], "}"}]}], "]"}], "]"}], 
         "]"}], "]"}], ";", " ", 
       RowBox[{
        RowBox[{"It", "'"}], "s", " ", 
        RowBox[{"faster", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"meanPrior", "=", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{"0", ",", 
        RowBox[{"Dimensions", "[", "Wmat", "]"}]}], "]"}]}], ";", 
     "\[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", "[", 
       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[{"logAbsDetJacob", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
           "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
         "tilL", ",", "tilQMat"}], "}"}], "]"}], "+", 
      RowBox[{"logDensInvWish", "[", 
       RowBox[{
        RowBox[{"IdentityMatrix", "[", "3", "]"}], ",", "4", ",", 
        "SigmaMat"}], "]"}], "+", 
      RowBox[{"logMatrixNormalDens", "[", 
       RowBox[{"Wmat", ",", "meanPrior", ",", "SigmaMat", ",", "VmatPrior"}], 
       "]"}]}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.767789277984234*^9, 3.767789305755349*^9}, {
  3.7677893615349026`*^9, 3.7677893764603047`*^9}, {3.773673853056846*^9, 
  3.7736738612493243`*^9}},
 CellLabel->
  "In[151]:=",ExpressionUUID->"89bf3615-00e1-47ab-8f9f-81be08d0f4dc"]
}, 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->"46f1a966-fbfe-4e4d-8e4f-\
690dd7913ab5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"AcceptanceStep", "[", 
    RowBox[{
    "vecy1T_", ",", "X1T_", ",", "T_", ",", "thetaMinusList_", ",", 
     "thetaStarList_", ",", "newMeanGivenThetaMinus1_", ",", 
     "newMeanGivenThetaStarList_", ",", "Wmat_", ",", "SigmaMat_", ",", 
     RowBox[{"{", 
      RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"m1_", ",", "m2_"}], "}"}], ",", "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"}], ",", " ", 
       RowBox[{"Q", " ", "Step"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"Print", "[", 
        RowBox[{"\"\<thetaMinusList\>\"", " ", ",", "thetaMinusList"}], "]"}],
        ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"logdenominatorprior", "=", 
       RowBox[{"logPriortheta", "[", 
        RowBox[{"thetaMinusList", ",", "Wmat", ",", "SigmaMat", ",", 
         RowBox[{"{", 
          RowBox[{"L1", ",", "L2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m1", ",", "m2"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "\"\<Acceptance-1\>\"", "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"logdenominatorproposal", "=", 
       RowBox[{"Which", "[", 
        RowBox[{
         RowBox[{"option", "\[Equal]", "1"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"pdfPropEcon", "[", 
           RowBox[{
            RowBox[{"thetaStarList", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "newMeanGivenThetaMinus1", 
            ",", "s2"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"option", "\[Equal]", "2"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"pdfPropL", "[", 
           RowBox[{
            RowBox[{"thetaStarList", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "newMeanGivenThetaMinus1", 
            ",", "s2"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"option", "\[Equal]", "3"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"pdfPropQ", "[", 
           RowBox[{
            RowBox[{"thetaStarList", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "newMeanGivenThetaMinus1", 
            ",", "s2"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "\"\<Acceptance-2\>\"", "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"logdenominatorlikelihood", "=", 
       RowBox[{"logMarginalLikelihood", "[", 
        RowBox[{
        "vecy1T", ",", "X1T", ",", "T", ",", "thetaMinusList", ",", "Wmat", 
         ",", "SigmaMat", ",", 
         RowBox[{"{", 
          RowBox[{"L1", ",", "L2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m1", ",", "m2"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "\"\<Acceptance-3\>\"", "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"logdenominator", "=", 
       RowBox[{
       "logdenominatorprior", "+", "logdenominatorproposal", "+", 
        "logdenominatorlikelihood"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "\"\<Acceptance-4\>\"", "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"lognumeratorprior", "=", 
       RowBox[{"logPriortheta", "[", 
        RowBox[{"thetaStarList", ",", "Wmat", ",", "SigmaMat", ",", 
         RowBox[{"{", 
          RowBox[{"L1", ",", "L2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m1", ",", "m2"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"lognumeratorproposal", "=", 
       RowBox[{"Which", "[", 
        RowBox[{
         RowBox[{"option", "\[Equal]", "1"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"pdfPropEcon", "[", 
           RowBox[{
            RowBox[{"thetaMinusList", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "newMeanGivenThetaStarList",
             ",", "s2"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"option", "\[Equal]", "2"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"pdfPropL", "[", 
           RowBox[{
            RowBox[{"thetaMinusList", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "newMeanGivenThetaStarList",
             ",", "s2"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"option", "\[Equal]", "3"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"pdfPropQ", "[", 
           RowBox[{
            RowBox[{"thetaMinusList", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "newMeanGivenThetaStarList",
             ",", "s2"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]",
       "\[IndentingNewLine]", 
      RowBox[{"lognumeratorlik", "=", 
       RowBox[{"logMarginalLikelihood", "[", 
        RowBox[{
        "vecy1T", ",", "X1T", ",", "T", ",", "thetaStarList", ",", "Wmat", 
         ",", "SigmaMat", ",", 
         RowBox[{"{", 
          RowBox[{"L1", ",", "L2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m1", ",", "m2"}], "}"}]}], "]"}]}], ";", 
      "\[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]", 
      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.773760620558189*^9, 3.7737606358913746`*^9}, {
   3.7737606787198334`*^9, 3.7737607017291937`*^9}, {3.7737607544508743`*^9, 
   3.7737607711324244`*^9}, {3.773761548553463*^9, 3.7737615640387616`*^9}},
 CellLabel->
  "In[152]:=",ExpressionUUID->"d67f3b68-ee44-40bc-b1d3-5db22f59f25a"]
}, Closed]],

Cell[CellGroupData[{

Cell["M-H Econ Step", "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.7650149127236924`*^9, 
   3.7650149157092776`*^9}},ExpressionUUID->"c233c022-fc58-4790-9b4f-\
4ef3d039c34c"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"MHstepEcon", "[", 
     RowBox[{"vecy1T_", ",", "X1T_", ",", "T_", ",", "dim_", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
            "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
          "tilL_", ",", "tilQMat_"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Wmat_", ",", "SigmaMat_"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"m1_", ",", "m2_"}], "}"}], ",", "s1_", ",", "s2_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "\"\< - - Entrando no MH - - \>\"", "]"}], 
        ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "We", " ", "use", " ", "ArrayReshape", " ", "since", " ", "the", " ", 
        "matrix", " ", "X1T", " ", "is", " ", "made", " ", "of", " ", "ROWS", 
        " ", "of", " ", "observations"}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       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[{"QMH", "=", 
        RowBox[{"reparametrizationFQInv", "[", "tilQMat", "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"VmatMH", "=", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"spectralDens", "[", 
             RowBox[{
              RowBox[{"lambda", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"j1", ",", "j2"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"L1", ",", "L2"}], "}"}]}], "]"}], ",", "2", ",", 
              "0.5", ",", 
              RowBox[{"Exp", "[", "tilL", "]"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"j1", ",", "1", ",", "m1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"j2", ",", "1", ",", "m2"}], "}"}]}], "]"}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"thetaMinusList", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
          "tilL", ",", "tilQMat"}], "}"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<1\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"newMeanEconGivenThetaMinus1", "=", 
        RowBox[{"newMeanEcon", "[", 
         RowBox[{
         "vecy1T", ",", "vecx2TMH", ",", "vecx1T1MH", ",", "vecx1TMH", ",", 
          "X1T", ",", "T", ",", "thetaMinusList", ",", "Wmat", " ", ",", 
          "SigmaMat", ",", "VmatMH", ",", 
          RowBox[{"{", 
           RowBox[{"L1", ",", "L2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"m1", ",", "m2"}], "}"}], ",", "s1"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"thetaStarList", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"drawPropEcon", "[", 
           RowBox[{"newMeanEconGivenThetaMinus1", ",", "s2"}], "]"}], ",", 
          "tilL", ",", "tilQMat"}], "}"}]}], ";", "\[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[{"VmatStarMH", "=", "VmatMH"}], ";", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"=", 
          RowBox[{"DiagonalMatrix", "[", 
           RowBox[{"Flatten", "[", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"spectralDens", "[", 
               RowBox[{
                RowBox[{"lambda", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"j1", ",", "j2"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"L1", ",", "L2"}], "}"}]}], "]"}], ",", "2", ",", 
                "0.5", ",", 
                RowBox[{"Exp", "[", 
                 RowBox[{"thetaStarList", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"j1", ",", "1", ",", "m1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"j2", ",", "1", ",", "m2"}], "}"}]}], "]"}], "]"}], 
           "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<2\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"newMeanEconGivenThetaStarList", "=", 
        RowBox[{"newMeanEcon", "[", 
         RowBox[{
         "vecy1T", ",", "vecx2TMH", ",", "vecx1T1MH", ",", "vecx1TMH", ",", 
          "X1T", ",", "T", ",", "thetaStarList", ",", "Wmat", " ", ",", 
          "SigmaMat", ",", "VmatStarMH", ",", 
          RowBox[{"{", 
           RowBox[{"L1", ",", "L2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"m1", ",", "m2"}], "}"}], ",", "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", "[", "\"\<3\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"AcceptanceStep", "[", 
        RowBox[{
        "vecy1T", ",", "X1T", ",", "T", ",", "thetaMinusList", ",", 
         "thetaStarList", ",", "newMeanEconGivenThetaMinus1", ",", 
         "newMeanEconGivenThetaStarList", ",", "Wmat", ",", "SigmaMat", ",", 
         RowBox[{"{", 
          RowBox[{"L1", ",", "L2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m1", ",", "m2"}], "}"}], ",", "s2", ",", "1"}], "]"}]}]}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"Print", "[", "\"\<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.762149440842417*^9, {3.7621495798800936`*^9, 3.762149618172799*^9}, {
   3.7621496961425076`*^9, 3.7621498678900714`*^9}, {3.762149947745415*^9, 
   3.7621499852835307`*^9}, {3.7621500314393663`*^9, 
   3.7621500903464723`*^9}, {3.762150129214629*^9, 3.7621501673929367`*^9}, {
   3.7621502002993994`*^9, 3.762150211138784*^9}, {3.7621502626732693`*^9, 
   3.76215028933505*^9}, {3.762150951245661*^9, 3.7621509519117785`*^9}, {
   3.762151059141781*^9, 3.7621511102301598`*^9}, {3.7621512611243696`*^9, 
   3.7621512619812374`*^9}, {3.7621513059650774`*^9, 
   3.7621513070577755`*^9}, {3.762589255289995*^9, 3.762589322051834*^9}, 
   3.762589427079416*^9, {3.763207224979101*^9, 3.76320723324516*^9}, {
   3.7639632739737654`*^9, 3.7639633234919424`*^9}, {3.7639633573062334`*^9, 
   3.7639634173093615`*^9}, {3.763963458158408*^9, 3.7639634786751027`*^9}, {
   3.7639636923529*^9, 3.7639637267921667`*^9}, {3.763965399463144*^9, 
   3.763965426808322*^9}, {3.763966786060132*^9, 3.7639667888905277`*^9}, {
   3.7650295280589075`*^9, 3.765029556853252*^9}, {3.7650297443887186`*^9, 
   3.76502980222423*^9}, {3.7650298790525312`*^9, 3.765029908219777*^9}, 
   3.765029961571577*^9, {3.765030050651507*^9, 3.765030061972887*^9}, {
   3.7650302439975667`*^9, 3.7650302525949264`*^9}, {3.7650303003255076`*^9, 
   3.7650303019985323`*^9}, 3.765030374738841*^9, {3.7650304078520136`*^9, 
   3.765030469542699*^9}, {3.765030543912245*^9, 3.7650305483364706`*^9}, {
   3.765030618374728*^9, 3.7650306808376436`*^9}, 3.765030906727478*^9, {
   3.7650335066108494`*^9, 3.7650335072369432`*^9}, 3.7650358873297796`*^9, {
   3.7670950557981844`*^9, 3.7670950753148274`*^9}, {3.7670964637622137`*^9, 
   3.7670964741690063`*^9}, {3.767771877057744*^9, 3.7677718778709345`*^9}, {
   3.767771915747783*^9, 3.7677720544793696`*^9}, {3.7677843725421505`*^9, 
   3.767784418966446*^9}, {3.767793334872967*^9, 3.7677933587538424`*^9}, {
   3.7677934033539944`*^9, 3.767793406594495*^9}, {3.76779343749469*^9, 
   3.7677934772073755`*^9}, {3.7677935409834704`*^9, 3.7677935705880136`*^9}, 
   3.767793622983944*^9, {3.7677969061263905`*^9, 3.767796913850464*^9}, {
   3.7679326420759125`*^9, 3.7679326563735046`*^9}, {3.7679343013813577`*^9, 
   3.7679343019126654`*^9}, {3.7679359368762655`*^9, 3.767935938266991*^9}, {
   3.77376168682862*^9, 3.773761698323514*^9}},
 CellLabel->
  "In[153]:=",ExpressionUUID->"775eb904-582a-49ed-8001-be3239374fe3"]
}, Closed]],

Cell[CellGroupData[{

Cell["M-H L Step", "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.765014920070989*^9, 3.7650149262609324`*^9}, {3.765031551138459*^9, 
   3.7650315518426795`*^9}},ExpressionUUID->"24f794b0-78cf-45f8-940c-\
eb393aa6735c"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"MHstepL", "[", 
     RowBox[{"vecy1T_", ",", "X1T_", ",", "T_", ",", "dim_", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
            "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
          "tilL_", ",", "tilQMat_"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Wmat_", ",", "SigmaMat_"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"m1_", ",", "m2_"}], "}"}], ",", "s1_", ",", "s2_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "\"\< - - Entrando no MH - - \>\"", "]"}], 
        ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       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[{"QMH", "=", 
        RowBox[{"reparametrizationFQInv", "[", "tilQMat", "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"VmatMH", "=", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"spectralDens", "[", 
             RowBox[{
              RowBox[{"lambda", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"j1", ",", "j2"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"L1", ",", "L2"}], "}"}]}], "]"}], ",", "2", ",", 
              "0.5", ",", 
              RowBox[{"Exp", "[", "tilL", "]"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"j1", ",", "1", ",", "m1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"j2", ",", "1", ",", "m2"}], "}"}]}], "]"}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"thetaMinusList", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
          "tilL", ",", "tilQMat"}], "}"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<1\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"newMeanLGivenThetaMinus1", "=", 
        RowBox[{"newMeanL", "[", 
         RowBox[{
         "vecy1T", ",", "vecx2TMH", ",", "vecx1T1MH", ",", "vecx1TMH", ",", 
          "X1T", ",", "T", ",", "thetaMinusList", ",", "Wmat", " ", ",", 
          "SigmaMat", ",", "VmatMH", ",", 
          RowBox[{"{", 
           RowBox[{"L1", ",", "L2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"m1", ",", "m2"}], "}"}], ",", "s1"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<2\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"thetaStarList", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
          RowBox[{"drawPropL", "[", 
           RowBox[{"newMeanLGivenThetaMinus1", ",", "s2"}], "]"}], ",", 
          "tilQMat"}], "}"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
        "thetastarlist", " ", "is", " ", "the", " ", "candidate", " ", "tilL",
          " ", 
         RowBox[{"draw", "."}]}], "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<3\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"VmatStarMH", "=", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"spectralDens", "[", 
             RowBox[{
              RowBox[{"lambda", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"j1", ",", "j2"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"L1", ",", "L2"}], "}"}]}], "]"}], ",", "2", ",", 
              "0.5", ",", 
              RowBox[{"Exp", "[", 
               RowBox[{"thetaStarList", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"j1", ",", "1", ",", "m1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"j2", ",", "1", ",", "m2"}], "}"}]}], "]"}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"newMeanLGivenThetaStarList", "=", 
        RowBox[{"newMeanL", "[", 
         RowBox[{
         "vecy1T", ",", "vecx2TMH", ",", "vecx1T1MH", ",", "vecx1TMH", ",", 
          "X1T", ",", "T", ",", "thetaStarList", ",", "Wmat", " ", ",", 
          "SigmaMat", ",", "VmatStarMH", ",", 
          RowBox[{"{", 
           RowBox[{"L1", ",", "L2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"m1", ",", "m2"}], "}"}], ",", "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", "[", "\"\<4\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"AcceptanceStep", "[", 
        RowBox[{
        "vecy1T", ",", "X1T", ",", "T", ",", "thetaMinusList", ",", 
         "thetaStarList", ",", "newMeanLGivenThetaMinus1", ",", 
         "newMeanLGivenThetaStarList", ",", "Wmat", ",", "SigmaMat", ",", 
         RowBox[{"{", 
          RowBox[{"L1", ",", "L2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m1", ",", "m2"}], "}"}], ",", "s2", ",", "2"}], "]"}]}]}], 
     "\[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.762149440842417*^9, {3.7621495798800936`*^9, 3.762149618172799*^9}, {
   3.7621496961425076`*^9, 3.7621498678900714`*^9}, {3.762149947745415*^9, 
   3.7621499852835307`*^9}, {3.7621500314393663`*^9, 
   3.7621500903464723`*^9}, {3.762150129214629*^9, 3.7621501673929367`*^9}, {
   3.7621502002993994`*^9, 3.762150211138784*^9}, {3.7621502626732693`*^9, 
   3.76215028933505*^9}, {3.762150951245661*^9, 3.7621509519117785`*^9}, {
   3.762151059141781*^9, 3.7621511102301598`*^9}, {3.7621512611243696`*^9, 
   3.7621512619812374`*^9}, {3.7621513059650774`*^9, 
   3.7621513070577755`*^9}, {3.762589255289995*^9, 3.762589322051834*^9}, 
   3.762589427079416*^9, {3.763207224979101*^9, 3.76320723324516*^9}, {
   3.7639632739737654`*^9, 3.7639633234919424`*^9}, {3.7639633573062334`*^9, 
   3.7639634173093615`*^9}, {3.763963458158408*^9, 3.7639634786751027`*^9}, {
   3.7639636923529*^9, 3.7639637267921667`*^9}, {3.763965399463144*^9, 
   3.763965426808322*^9}, {3.763966786060132*^9, 3.7639667888905277`*^9}, 
   3.7650315711676083`*^9, {3.7650316831536417`*^9, 3.765031777969132*^9}, {
   3.765031811691695*^9, 3.7650318300895624`*^9}, {3.765032267205103*^9, 
   3.7650323207211246`*^9}, {3.7650324443927116`*^9, 3.765032491163907*^9}, {
   3.765032540750956*^9, 3.765032564750057*^9}, {3.7650335169281187`*^9, 
   3.765033517631281*^9}, 3.765035870495572*^9, {3.767097195183551*^9, 
   3.7670972168253045`*^9}, 3.767242902424456*^9, {3.7672441682748995`*^9, 
   3.7672442626548195`*^9}, {3.76777209040594*^9, 3.767772094341127*^9}, {
   3.7677721618947945`*^9, 3.767772173448678*^9}, {3.7677722097374516`*^9, 
   3.7677722460821333`*^9}, {3.7677844502649536`*^9, 3.767784481532237*^9}, 
   3.7677845622395687`*^9, {3.767794008278622*^9, 3.7677940299731913`*^9}, 
   3.7679327316899595`*^9, {3.7679330556331606`*^9, 3.7679330586801662`*^9}, {
   3.7679330937496743`*^9, 3.7679330977499113`*^9}, {3.767934281677234*^9, 
   3.7679342825522804`*^9}, {3.7737503634514446`*^9, 3.7737503703880873`*^9}, 
   3.7737504341427193`*^9},
 CellLabel->
  "In[154]:=",ExpressionUUID->"0a6e20cd-e506-4177-bd05-893ffab25d86"]
}, Closed]],

Cell[CellGroupData[{

Cell["M-H Q Step", "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.767787682825672*^9}},ExpressionUUID->"cbce8631-3e7f-4642-87b3-\
6e5ba739a0d7"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"MHstepQ", "[", 
     RowBox[{"vecy1T_", ",", "X1T_", ",", "T_", ",", "dim_", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
            "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
          "tilL_", ",", "tilQMat_"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Wmat_", ",", "SigmaMat_"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"m1_", ",", "m2_"}], "}"}], ",", "s1_", ",", "s2_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "\"\< - - Entrando no MH - - \>\"", "]"}], 
        ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{
        "scaleMatrix", " ", "which", " ", "will", " ", "be", " ", "needed", 
         " ", "for", " ", "the", " ", "newMeanTheta"}], ",", " ", 
        RowBox[{
        "is", " ", "defined", " ", "in", " ", "the", " ", "main", " ", 
         "program"}], ",", " ", 
        RowBox[{
         RowBox[{
         "bayesianLS", ".", "\[IndentingNewLine]", "\[IndentingNewLine]", 
          "Variable"}], " ", "dim", " ", "is", " ", "not", " ", "used", " ", 
         "in", " ", "this", " ", 
         RowBox[{"step", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "We", " ", "use", " ", "ArrayReshape", " ", "since", " ", "the", " ", 
        "matrix", " ", "X1T", " ", "is", " ", "made", " ", "of", " ", "ROWS", 
        " ", "of", " ", "observations"}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       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[{"QMH", "=", 
        RowBox[{"reparametrizationFQInv", "[", "tilQMat", "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<1\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"VmatMH", "=", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"spectralDens", "[", 
             RowBox[{
              RowBox[{"lambda", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"j1", ",", "j2"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"L1", ",", "L2"}], "}"}]}], "]"}], ",", "2", ",", 
              "0.5", ",", 
              RowBox[{"Exp", "[", "tilL", "]"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"j1", ",", "1", ",", "m1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"j2", ",", "1", ",", "m2"}], "}"}]}], "]"}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"thetaMinusList", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
          "tilL", ",", "tilQMat"}], "}"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<2\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"newMeanQGivenThetaMinus1", "=", 
        RowBox[{"newMeanQ", "[", 
         RowBox[{
         "vecy1T", ",", "vecx2TMH", ",", "vecx1T1MH", ",", "vecx1TMH", ",", 
          "X1T", ",", "T", ",", "thetaMinusList", ",", "Wmat", " ", ",", 
          "SigmaMat", ",", "VmatMH", ",", 
          RowBox[{"{", 
           RowBox[{"L1", ",", "L2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"m1", ",", "m2"}], "}"}], ",", "s1"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<3\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"thetaStarList", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
          "tilL", ",", 
          RowBox[{"drawPropQ", "[", 
           RowBox[{"newMeanQGivenThetaMinus1", ",", "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", "[", "\"\<3\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"VmatStarMH", "=", "VmatMH"}], ";", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"DiagonalMatrix", "[", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"spectralDens", "[", 
              RowBox[{
               RowBox[{"lambda", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"j1", ",", "j2"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"L1", ",", "L2"}], "}"}]}], "]"}], ",", "2", ",", 
               "0.5", ",", 
               RowBox[{"Exp", "[", 
                RowBox[{"thetaStarList", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"j1", ",", "1", ",", "m1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"j2", ",", "1", ",", "m2"}], "}"}]}], "]"}], "]"}], 
          "]"}], ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<4\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"newMeanQGivenThetaStarList", "=", 
        RowBox[{"newMeanQ", "[", 
         RowBox[{
         "vecy1T", ",", "vecx2TMH", ",", "vecx1T1MH", ",", "vecx1TMH", ",", 
          "X1T", ",", "T", ",", "thetaStarList", ",", "Wmat", " ", ",", 
          "SigmaMat", ",", "VmatStarMH", ",", 
          RowBox[{"{", 
           RowBox[{"L1", ",", "L2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"m1", ",", "m2"}], "}"}], ",", "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", "[", "\"\<4\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"AcceptanceStep", "[", 
        RowBox[{
        "vecy1T", ",", "X1T", ",", "T", ",", "thetaMinusList", ",", 
         "thetaStarList", ",", "newMeanQGivenThetaMinus1", ",", 
         "newMeanQGivenThetaStarList", ",", "Wmat", ",", "SigmaMat", ",", 
         RowBox[{"{", 
          RowBox[{"L1", ",", "L2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m1", ",", "m2"}], "}"}], ",", "s2", ",", "3"}], "]"}]}]}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
      "vecy1T_", ",", "X1T_", ",", "T_", ",", "thetaMinusList_", ",", 
       "thetaStarList_", ",", "newMeanGivenThetaMinus1_", ",", 
       "newMeanGivenThetaStarList_", ",", "Wmat_", ",", "SigmaMat_", ",", 
       RowBox[{"{", 
        RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1_", ",", "m2_"}], "}"}], ",", "s2_", ",", "option_"}], 
      "*)"}], "\[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.762149440842417*^9, {3.7621495798800936`*^9, 3.762149618172799*^9}, {
   3.7621496961425076`*^9, 3.7621498678900714`*^9}, {3.762149947745415*^9, 
   3.7621499852835307`*^9}, {3.7621500314393663`*^9, 
   3.7621500903464723`*^9}, {3.762150129214629*^9, 3.7621501673929367`*^9}, {
   3.7621502002993994`*^9, 3.762150211138784*^9}, {3.7621502626732693`*^9, 
   3.76215028933505*^9}, {3.762150951245661*^9, 3.7621509519117785`*^9}, {
   3.762151059141781*^9, 3.7621511102301598`*^9}, {3.7621512611243696`*^9, 
   3.7621512619812374`*^9}, {3.7621513059650774`*^9, 
   3.7621513070577755`*^9}, {3.762589255289995*^9, 3.762589322051834*^9}, 
   3.762589427079416*^9, {3.763207224979101*^9, 3.76320723324516*^9}, {
   3.7639632739737654`*^9, 3.7639633234919424`*^9}, {3.7639633573062334`*^9, 
   3.7639634173093615`*^9}, {3.763963458158408*^9, 3.7639634786751027`*^9}, {
   3.7639636923529*^9, 3.7639637267921667`*^9}, {3.763965399463144*^9, 
   3.763965426808322*^9}, {3.763966786060132*^9, 3.7639667888905277`*^9}, 
   3.765033581298407*^9, {3.7650342304304495`*^9, 3.7650343239302635`*^9}, {
   3.7650344165146604`*^9, 3.7650345564719386`*^9}, 3.7650348889915037`*^9, 
   3.765035852988302*^9, {3.7670955873102703`*^9, 3.767095613655367*^9}, 
   3.7670962076550827`*^9, {3.76709636367887*^9, 3.7670963918678093`*^9}, {
   3.7674189682004795`*^9, 3.767419025934944*^9}, {3.767772268810585*^9, 
   3.767772269888794*^9}, {3.7677845963506937`*^9, 3.767784620242592*^9}, 
   3.767785093292494*^9, {3.7679327553474417`*^9, 3.767932784505187*^9}, {
   3.767935521294898*^9, 3.7679355498224154`*^9}, {3.7737583475004296`*^9, 
   3.7737583807377434`*^9}, {3.7737608545824184`*^9, 3.773760865573964*^9}, {
   3.773761497793312*^9, 3.7737615216333385`*^9}},
 CellLabel->
  "In[155]:=",ExpressionUUID->"35bf9dc6-dce0-40ee-8798-a53b1ac90f18"]
}, 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.7650149041722403`*^9, 3.765014905203539*^9}, {3.765014952257226*^9, 
   3.765014952804099*^9}},ExpressionUUID->"d899e737-24d5-4f79-bd9c-\
d9befd2acd57"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"MHstepGlobal", "[", 
     RowBox[{"vecy1T_", ",", "X1T_", ",", "T_", ",", "dim_", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
            "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
          "tilL_", ",", "tilQMat_"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Wmat_", ",", "SigmaMat_"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"m1_", ",", "m2_"}], "}"}], ",", "s1_", ",", "s2_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "\"\< - - Entrando no MH - - \>\"", "]"}], 
        ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{
        "scaleMatrix", " ", "which", " ", "will", " ", "be", " ", "needed", 
         " ", "for", " ", "the", " ", "newMeanTheta"}], ",", " ", 
        RowBox[{
        "is", " ", "defined", " ", "in", " ", "the", " ", "main", " ", 
         "program"}], ",", " ", 
        RowBox[{
         RowBox[{
         "bayesianLS", ".", "\[IndentingNewLine]", "\[IndentingNewLine]", 
          "Variable"}], " ", "dim", " ", "is", " ", "not", " ", "used", " ", 
         "in", " ", "this", " ", 
         RowBox[{"step", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"x2TMH", "=", 
        RowBox[{"Drop", "[", 
         RowBox[{"X1T", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"x1T1MH", "=", 
        RowBox[{"Drop", "[", 
         RowBox[{"X1T", ",", 
          RowBox[{"-", "1"}]}], "]"}]}], ";", "\[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]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<MHstepEcon\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"resGlobal", ",", "acceptEcon"}], "}"}], "=", 
        RowBox[{"MHstepEcon", "[", 
         RowBox[{"vecy1T", ",", "X1T", ",", "T", ",", "dim", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
               "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
                "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",",
               "tilL", ",", "tilQMat"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"Wmat", ",", "SigmaMat"}], "}"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"L1", ",", "L2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"m1", ",", "m2"}], "}"}], ",", "s1", ",", "s2Econ"}], 
         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<MHstepQ\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"resGlobal", ",", "acceptQ"}], "}"}], "=", 
        RowBox[{"MHstepQ", "[", 
         RowBox[{"vecy1T", ",", "X1T", ",", "T", ",", "dim", ",", 
          RowBox[{"{", 
           RowBox[{"resGlobal", ",", 
            RowBox[{"{", 
             RowBox[{"Wmat", ",", "SigmaMat"}], "}"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"L1", ",", "L2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"m1", ",", "m2"}], "}"}], ",", "s1", ",", "s2"}], "]"}]}], 
       ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<MHstepL\>\"", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"resGlobal", ",", "acceptL"}], "}"}], "=", 
        RowBox[{"MHstepL", "[", 
         RowBox[{"vecy1T", ",", "X1T", ",", "T", ",", "dim", ",", 
          RowBox[{"{", 
           RowBox[{"resGlobal", ",", 
            RowBox[{"{", 
             RowBox[{"Wmat", ",", "SigmaMat"}], "}"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"L1", ",", "L2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"m1", ",", "m2"}], "}"}], ",", "s1", ",", "s2"}], "]"}]}], 
       ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"resGlobal", ",", 
         RowBox[{"{", 
          RowBox[{"acceptEcon", ",", "acceptL", ",", "acceptQ"}], "}"}]}], 
        "}"}]}]}], "\[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.762149440842417*^9, {3.7621495798800936`*^9, 3.762149618172799*^9}, {
   3.7621496961425076`*^9, 3.7621498678900714`*^9}, {3.762149947745415*^9, 
   3.7621499852835307`*^9}, {3.7621500314393663`*^9, 
   3.7621500903464723`*^9}, {3.762150129214629*^9, 3.7621501673929367`*^9}, {
   3.7621502002993994`*^9, 3.762150211138784*^9}, {3.7621502626732693`*^9, 
   3.76215028933505*^9}, {3.762150951245661*^9, 3.7621509519117785`*^9}, {
   3.762151059141781*^9, 3.7621511102301598`*^9}, {3.7621512611243696`*^9, 
   3.7621512619812374`*^9}, {3.7621513059650774`*^9, 
   3.7621513070577755`*^9}, {3.762589255289995*^9, 3.762589322051834*^9}, 
   3.762589427079416*^9, {3.763207224979101*^9, 3.76320723324516*^9}, {
   3.7639632739737654`*^9, 3.7639633234919424`*^9}, {3.7639633573062334`*^9, 
   3.7639634173093615`*^9}, {3.763963458158408*^9, 3.7639634786751027`*^9}, {
   3.7639636923529*^9, 3.7639637267921667`*^9}, {3.763965399463144*^9, 
   3.763965426808322*^9}, {3.763966786060132*^9, 3.7639667888905277`*^9}, {
   3.765035147371912*^9, 3.7650351483563695`*^9}, {3.76503518181124*^9, 
   3.7650352390943813`*^9}, {3.76503526992417*^9, 3.765035278711988*^9}, {
   3.765035318372535*^9, 3.7650353422142944`*^9}, {3.765035379644287*^9, 
   3.7650354121586475`*^9}, 3.7650354923878937`*^9, {3.765035577594855*^9, 
   3.7650356874842625`*^9}, {3.7737616255237026`*^9, 
   3.7737616284945726`*^9}, {3.773913958744328*^9, 3.7739139660895185`*^9}, {
   3.7772952173078136`*^9, 3.777295224746776*^9}},
 CellLabel->
  "In[156]:=",ExpressionUUID->"cf37476f-c899-4a76-9667-adb46180fef8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Auxiliary Functions 5 (Matrix-Normal draw, etc.)", "Subsubsection",
 CellChangeTimes->{{3.753168025777519*^9, 3.7531680615670276`*^9}, {
   3.7589594344982147`*^9, 3.758959463904327*^9}, {3.762678450770961*^9, 
   3.762678455239439*^9}, {3.764999337143089*^9, 3.76499934983125*^9}, {
   3.7650000377046757`*^9, 3.7650000436737375`*^9}, {3.7677750702034163`*^9, 
   3.7677750786726117`*^9}, 
   3.7679326208091764`*^9},ExpressionUUID->"a8adb350-25e3-4b89-8ab4-\
601fee164a89"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"matrixNormalDraws", "[", 
    RowBox[{"M_", ",", "Q_", ",", "V_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"cholQ", "=", 
       RowBox[{"CholeskyDecomposition", "[", "Q", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"cholV", "=", 
       RowBox[{"CholeskyDecomposition", "[", "V", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"X", "=", 
       RowBox[{"RandomVariate", "[", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"0", ",", "1"}], "]"}], ",", 
         RowBox[{"Dimensions", "[", "M", "]"}]}], "]"}]}], ";", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
         RowBox[{"It", "'"}], "s", " ", "more", " ", "efficient", " ", "to", 
         " ", "just", " ", "draw", " ", "from", " ", "the", " ", 
         "NormalDistribution"}], ",", " ", 
        RowBox[{"than", " ", "MultiNormalDistribution"}]}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"M", "+", 
       RowBox[{
        RowBox[{"Transpose", "[", "cholQ", "]"}], ".", "X", ".", 
        "cholV"}]}]}]}], "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{"we", " ", "want", " ", "MN", 
      RowBox[{"(", 
       RowBox[{"M", ",", " ", "Q", ",", " ", "V"}], ")"}]}], " ", "*)"}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.76499946449345*^9, 3.7649994799505453`*^9}, {
   3.7649995549232035`*^9, 3.7649995643455677`*^9}, {3.764999623879922*^9, 
   3.7649996476936646`*^9}, {3.7649997687031436`*^9, 3.76499976920317*^9}, {
   3.7649998094552665`*^9, 3.76499981239292*^9}, {3.7649998535044384`*^9, 
   3.7649999387901335`*^9}, {3.764999988733372*^9, 3.7650000342826223`*^9}, {
   3.7650000803006444`*^9, 3.765000082503874*^9}, 3.765000278820572*^9},
 CellLabel->
  "In[157]:=",ExpressionUUID->"fd4d4021-b192-4de5-ae07-10e0382f67ea"]
}, Closed]],

Cell[CellGroupData[{

Cell["Learning Step for W and \[CapitalSigma]", "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.7631863524681063`*^9, 
   3.7631863634999356`*^9}},ExpressionUUID->"d1c4b245-54df-4f38-806a-\
dcbc6d9431f3"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"LW\[CapitalSigma]step", "[", 
     RowBox[{"vecy1T_", ",", "X1T_", ",", "T_", ",", "dim_", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
            "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
          "tilL_", ",", "tilQMat_"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Wmat_", ",", "SigmaMat_"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"m1_", ",", "m2_"}], "}"}], ",", "L\[CapitalSigma]_", ",", 
      "\[CapitalLambda]\[CapitalSigma]_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
        "Print", "[", "\"\< - - Entrando no LW\[CapitalSigma]step - - \>\"", 
         "]"}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "ALW\[CapitalSigma]", ",", "CmatLW\[CapitalSigma]", ",", 
          "CmatStarLW\[CapitalSigma]"}], "}"}], "=", 
        RowBox[{"rbcACmat", "[", 
         RowBox[{"reparametrizationFInv", "[", 
          RowBox[{"{", 
           RowBox[{
           "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
            "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"QLW\[CapitalSigma]", "=", 
        RowBox[{"reparametrizationFQInv", "[", "tilQMat", "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"VmatLW\[CapitalSigma]", "=", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"spectralDens", "[", 
             RowBox[{
              RowBox[{"lambda", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"j1", ",", "j2"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"L1", ",", "L2"}], "}"}]}], "]"}], ",", "2", ",", 
              "0.5", ",", 
              RowBox[{"Exp", "[", "tilL", "]"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"j1", ",", "1", ",", "m1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"j2", ",", "1", ",", "m2"}], "}"}]}], "]"}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"psiMat", "=", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{"PhiEigen", "[", 
             RowBox[{"#", ",", 
              RowBox[{"{", 
               RowBox[{"L1", ",", "L2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"m1", ",", "m2"}], "}"}]}], "]"}], "]"}], "&"}], ",", 
          "X1T"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"tilPsi", "=", 
        RowBox[{
         RowBox[{"Transpose", "[", "psiMat", "]"}], ".", "psiMat"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
        "yMat", " ", "is", " ", "a", " ", "matrix", " ", "where", " ", "each",
          " ", "row", " ", "is", " ", 
         RowBox[{
          RowBox[{"(", "y_t", ")"}], "^", "T"}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"yMat", "=", 
        RowBox[{"ArrayReshape", "[", 
         RowBox[{"vecy1T", ",", 
          RowBox[{"{", 
           RowBox[{"T", ",", "3"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "tilYMat", " ", "is", " ", "a", " ", "matrix", " ", "where", " ", 
          "each", " ", "row", " ", "is", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\\", "til"}], 
              RowBox[{"{", "y", "}"}], "_t"}], ")"}], "^", "T"}], ".", " ", 
           "We"}], " ", "need", " ", "Flatten"}], ",", " ", 
         RowBox[{
         "since", " ", "for", " ", "multiplication", " ", "in", " ", "tilPhi",
           " ", "we", " ", "cannot", " ", "have", " ", 
          RowBox[{"{", 
           RowBox[{"{", "}"}], "}"}], " ", "type"}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"tilYMat", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{"yMat", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "-", 
            RowBox[{"CmatLW\[CapitalSigma]", ".", 
             RowBox[{"X1T", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], "-", 
            "CmatStarLW\[CapitalSigma]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "T"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"tilPhi", "=", 
        RowBox[{
         RowBox[{"Transpose", "[", "tilYMat", "]"}], ".", "psiMat"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"tilUpsilon", "=", 
        RowBox[{
         RowBox[{"Transpose", "[", "tilYMat", "]"}], ".", "tilYMat"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"invVmat", "=", 
        RowBox[{"Inverse", "[", "VmatLW\[CapitalSigma]", "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"invPsiV", "=", 
        RowBox[{"Inverse", "[", 
         RowBox[{"tilPsi", "+", "invVmat"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"invPsiV", "=", 
        RowBox[{"0.5", "*", 
         RowBox[{"(", 
          RowBox[{"invPsiV", "+", 
           RowBox[{"Transpose", "[", "invPsiV", "]"}]}], ")"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
          RowBox[{"Due", " ", "to", " ", "machine"}], "-", 
          RowBox[{"precision", " ", "considerations"}]}], ",", " ", 
         RowBox[{
         "we", " ", "need", " ", "to", " ", "transform", " ", "invPsiV", " ", 
          "into", " ", "a", " ", "Symmetric", " ", "matrix"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"transposePhi", "=", 
        RowBox[{"Transpose", "[", "tilPhi", "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"newSigma", "=", 
        RowBox[{"RandomVariate", "[", 
         RowBox[{"InverseWishartMatrixDistribution", "[", 
          RowBox[{
           RowBox[{"T", "+", "L\[CapitalSigma]"}], ",", 
           RowBox[{"\[CapitalLambda]\[CapitalSigma]", "+", 
            RowBox[{"positivizeMatrix", "[", 
             RowBox[{"tilUpsilon", "-", 
              RowBox[{"tilPhi", ".", "invPsiV", ".", "transposePhi"}]}], 
             "]"}]}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"cholInvPsiV", "=", 
        RowBox[{"CholeskyDecomposition", "[", "invPsiV", "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"CholNewSigma", "=", 
        RowBox[{"CholeskyDecomposition", "[", "newSigma", "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"tildeX", "=", 
        RowBox[{"RandomVariate", "[", 
         RowBox[{
          RowBox[{"NormalDistribution", "[", 
           RowBox[{"0", ",", "1"}], "]"}], ",", 
          RowBox[{"Dimensions", "[", "Wmat", "]"}]}], "]"}]}], ";", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
          RowBox[{"It", "'"}], "s", " ", "more", " ", "efficient", " ", "to", 
          " ", "just", " ", "draw", " ", "from", " ", "the", " ", 
          RowBox[{"NormalDistribution", "[", 
           RowBox[{"0", ",", "1"}], "]"}]}], ",", " ", 
         RowBox[{"than", " ", 
          RowBox[{"MultiNormalDistribution", "[", 
           RowBox[{"0", ",", "I"}], "]"}]}]}], "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"newWmat", "=", 
        RowBox[{
         RowBox[{"tilPhi", ".", "invPsiV"}], "+", 
         RowBox[{"CholNewSigma", ".", "tildeX", ".", "cholInvPsiV"}]}]}], ";",
        "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"we", " ", "want", " ", "MN", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"tilPhi", ".", "invPsiV"}], ",", " ", "newSigma", ",", " ",
            "invPsiV"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"newWmat", ",", "newSigma"}], "}"}]}]}], 
     "\[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.762149440842417*^9, {3.7621495798800936`*^9, 3.762149618172799*^9}, {
   3.7621496961425076`*^9, 3.7621498678900714`*^9}, {3.762149947745415*^9, 
   3.7621499852835307`*^9}, {3.7621500314393663`*^9, 
   3.7621500903464723`*^9}, {3.762150129214629*^9, 3.7621501673929367`*^9}, {
   3.7621502002993994`*^9, 3.762150211138784*^9}, {3.7621502626732693`*^9, 
   3.76215028933505*^9}, {3.762150951245661*^9, 3.7621509519117785`*^9}, {
   3.762151059141781*^9, 3.7621511102301598`*^9}, {3.7621512611243696`*^9, 
   3.7621512619812374`*^9}, {3.7621513059650774`*^9, 
   3.7621513070577755`*^9}, {3.762589255289995*^9, 3.762589322051834*^9}, 
   3.762589427079416*^9, {3.763186378719485*^9, 3.763186428331457*^9}, {
   3.7631864768808937`*^9, 3.763186521898883*^9}, 3.7631872861265097`*^9, {
   3.7631879104562197`*^9, 3.7631879656466208`*^9}, {3.763187996085721*^9, 
   3.763188023368375*^9}, {3.7631880950752654`*^9, 3.763188132936661*^9}, {
   3.763189121027109*^9, 3.7631891220271397`*^9}, {3.763189170592184*^9, 
   3.7631892232199793`*^9}, {3.7631893599615088`*^9, 3.763189363289839*^9}, {
   3.763189785296364*^9, 3.7631898252047343`*^9}, {3.763190266290413*^9, 
   3.7631902669310627`*^9}, {3.763190376525976*^9, 3.763190388589105*^9}, 
   3.7631904356384544`*^9, {3.763190611272681*^9, 3.7631906785887194`*^9}, {
   3.7631907765782723`*^9, 3.763190827096553*^9}, {3.763190880458731*^9, 
   3.7631909403837557`*^9}, {3.7631910600150414`*^9, 3.7631910728281865`*^9}, 
   3.7631911597188244`*^9, {3.763205739635411*^9, 3.7632057726996655`*^9}, {
   3.763205870657906*^9, 3.763205872923682*^9}, {3.7632063346823206`*^9, 
   3.7632064199367995`*^9}, {3.7632064840339165`*^9, 
   3.7632064863777905`*^9}, {3.763206560991086*^9, 3.7632066180565863`*^9}, {
   3.763206662590175*^9, 3.76320673709409*^9}, 3.763206924978962*^9, 
   3.7632069787005053`*^9, {3.7632070666895022`*^9, 3.7632070788620186`*^9}, {
   3.763207170632495*^9, 3.763207205837441*^9}, {3.763207441084206*^9, 
   3.7632075180726266`*^9}, {3.7632076953665905`*^9, 
   3.7632077450722985`*^9}, {3.7632080008733125`*^9, 
   3.7632080124363904`*^9}, {3.763208198258683*^9, 3.7632082256038413`*^9}, {
   3.7632119604748926`*^9, 3.7632120119063854`*^9}, {3.763212103764224*^9, 
   3.76321213025077*^9}, {3.763212255000352*^9, 3.7632123343735914`*^9}, {
   3.763212756190728*^9, 3.7632127769384384`*^9}, {3.7632128511359973`*^9, 
   3.7632128518078804`*^9}, {3.7632128942646255`*^9, 3.763212991904598*^9}, {
   3.7632130427199183`*^9, 3.7632130577877645`*^9}, {3.7632133090206537`*^9, 
   3.763213311001815*^9}, {3.7632134391841135`*^9, 3.76321371974993*^9}, {
   3.763213766136264*^9, 3.7632138344367743`*^9}, {3.76321390664625*^9, 
   3.7632139173957443`*^9}, {3.763963255613432*^9, 3.7639632582698183`*^9}, {
   3.763967142198743*^9, 3.763967145684348*^9}, {3.764999270561491*^9, 
   3.7649992718740616`*^9}, {3.765036241722517*^9, 3.765036273033656*^9}, {
   3.773750830034005*^9, 3.773750840678135*^9}},
 CellLabel->
  "In[158]:=",ExpressionUUID->"ddf6d310-d955-4d44-b71c-42b9bbe1d38e"]
}, 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->"50ac03c9-beb4-441c-9d98-\
3a29ffdc51d5"],

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[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
             "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",",
            "tilL_", ",", "tilQMat_"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Wmat_", ",", "SigmaMat_"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1_", ",", "m2_"}], "}"}]}], "]"}], ":=", 
     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[{"QPG", "=", 
         RowBox[{"reparametrizationFQInv", "[", "tilQMat", "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
           RowBox[{"We", " ", 
            RowBox[{"don", "'"}], "t", " ", "need", " ", "to", " ", 
            "calculate", " ", "for", " ", "PGAS", "\[IndentingNewLine]", 
            "VmatPG"}], "=", 
           RowBox[{"DiagonalMatrix", "[", 
            RowBox[{"Flatten", "[", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"spectralDens", "[", 
                RowBox[{
                 RowBox[{"lambda", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"j1", ",", "j2"}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"L1", ",", "L2"}], "}"}]}], "]"}], ",", "2", ",", 
                 "0.5", ",", 
                 RowBox[{"Exp", "[", "tilL", "]"}]}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"j1", ",", "1", ",", "m1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"j2", ",", "1", ",", "m2"}], "}"}]}], "]"}], "]"}], 
            "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"refX1TPG", "=", "X1T"}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
           RowBox[{"It", "'"}], "s", " ", "the", " ", "reference", " ", 
           "particle"}], ",", " ", 
          RowBox[{
           RowBox[{"with", " ", "dim"}], " ", "=", " ", 
           RowBox[{
            RowBox[{"T", " ", "\\", "times"}], " ", "2"}]}]}], "  ", "*)"}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"partmatXPG", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", 
            RowBox[{"T", ",", "numParticles"}], "}"}]}], "]"}]}], ";", 
        RowBox[{"(*", 
         RowBox[{
         "each", " ", "column", " ", "will", " ", "be", " ", "a", " ", 
          "particle", " ", 
          RowBox[{"x", "^", "i_"}], 
          RowBox[{"{", 
           RowBox[{"1", ":", "t"}], "}"}]}], "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"normWlistPG", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{"0", ",", "T"}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"matX1tPG", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", "numParticles", "}"}]}], "]"}]}], ";", 
        "\[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"}], "]"}]}], ";", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
           RowBox[{
           "supposedly", " ", "we", " ", "only", " ", "need", " ", "up", " ", 
            "to", " ", "numParticles"}], "-", "1"}], ",", " ", 
          RowBox[{"but", " ", 
           RowBox[{"it", "'"}], "s", " ", "faster", " ", "this", " ", "way", 
           "\[IndentingNewLine]", "Also"}], ",", " ", 
          RowBox[{
           RowBox[{"partmatX", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", "is", " ", "x_", "1"}]}], 
         "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"matX1tPG", "=", 
         RowBox[{"Transpose", "[", 
          RowBox[{"{", 
           RowBox[{"partmatXPG", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "}"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"This", " ", "is", " ", "step", " ", "2"}], "*)"}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"matX1tPG", "[", 
          RowBox[{"[", 
           RowBox[{"numParticles", ",", "1"}], "]"}], "]"}], "=", 
         RowBox[{"refX1TPG", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"this", " ", "is", " ", "step", " ", "3"}], "*)"}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"partmatXPG", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "numParticles"}], "]"}], "]"}], "=", 
         RowBox[{"refX1TPG", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[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[{
          "column", " ", "index", " ", "for", " ", "matrices", " ", "such", 
           " ", "as", " ", "partmatX"}], ",", " ", 
          RowBox[{"or", " ", "ancmat"}]}], "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"timePG", "=", "2"}], ";", "\[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[{
             "Doing", " ", "step", " ", "6", " ", "in", " ", "Algorithm", " ",
               "3", " ", "of", " ", "Text"}], ",", " ", 
             RowBox[{"for", " ", "all", " ", "the", " ", "particles"}], ",", 
             " ", 
             RowBox[{"from", " ", "1", " ", "to", " ", 
              RowBox[{"numParticles", "."}]}]}], "\[IndentingNewLine]", 
            "*)"}], "\[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[{"ait2", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "=", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "-", 
                RowBox[{"th", " ", "time"}]}], ",", " ", 
               RowBox[{"index", " ", "to", " ", "extract"}]}], "}"}]}], 
            "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"ancmatPG", "[", 
             RowBox[{"[", "timePG", "]"}], "]"}], "=", "ait2PG"}], ";", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"ait", "  ", "at", " ", "time", " ", "t"}], ",", " ", 
             RowBox[{
              RowBox[{
              "points", " ", "to", " ", "ancestor", " ", "at", " ", "time", 
               " ", "t"}], "-", "1"}]}], "*)"}], "\[IndentingNewLine]", 
           "\[IndentingNewLine]", 
           RowBox[{"xt1aitPG", "=", 
            RowBox[{"Extract", "[", 
             RowBox[{"partmatXPG", ",", "ait2PG"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"retrieving", " ", "x_", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"t", "-", "1"}], "}"}], "^", 
              RowBox[{"{", 
               RowBox[{"a", "^", "i_t"}], "}"}]}], " ", "for", " ", "step", 
             " ", "7", " ", "in", " ", "PGAS", " ", "Markov", " ", "Kernel"}],
             "*)"}], "\[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]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", "\"\<3\>\"", "]"}], ";"}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"matX1TrefX1TPG", "=", 
              RowBox[{"Parallelize", "[", 
               RowBox[{"Map", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Join", "[", 
                   RowBox[{
                    RowBox[{"matX1tPG", "[", 
                    RowBox[{"[", "#", "]"}], "]"}], ",", 
                    RowBox[{"refX1TPG", "[", 
                    RowBox[{"[", 
                    RowBox[{"timePG", ";;", "T"}], "]"}], "]"}]}], "]"}], 
                  "&"}], ",", "columnlistPG"}], "]"}], "]"}]}], ";"}], "*)"}], 
           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", "[", "\"\<4\>\"", "]"}], ";"}], "*)"}], 
           "\[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[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", 
              RowBox[{"\"\<normWPG= \>\"", ",", " ", "normWPG"}], "]"}], 
             ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"multinormalDens", "[", 
             RowBox[{"x_", ",", "mean_", ",", "var2_"}], "]"}], "*)"}], 
           "\[IndentingNewLine]", 
           RowBox[{"tildeWPG", "=", 
            RowBox[{
             RowBox[{"Log", "[", "normWPG", "]"}], "+", 
             RowBox[{"ParallelMap", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"logMultinormalDens", "[", 
                 RowBox[{
                  RowBox[{"refX1TPG", "[", 
                   RowBox[{"[", "timePG", "]"}], "]"}], ",", 
                  RowBox[{"APG", ".", 
                   RowBox[{"(", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", 
                    RowBox[{"timePG", "-", "1"}], "]"}], "]"}], ")"}]}], ",", 
                  "QPG"}], "]"}], "&"}], ",", "matX1tPG"}], "]"}]}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
            "Computing", " ", "Step", " ", "8", " ", "of", " ", "Algorithm", 
             " ", "3", " ", "in", " ", "Main", " ", "Text"}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"min", "=", 
            RowBox[{"Min", "[", "tildeWPG", "]"}]}], ";", 
           "\[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[{
             "Normalize", " ", "for", " ", "probs", " ", "to", " ", "some", 
              " ", "to", " ", "1.", " ", "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]", 
           "\[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]", 
           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]", 
           RowBox[{"(*", 
            RowBox[{
            "Step", " ", "9", " ", "of", " ", "Algorithm", " ", "3", " ", 
             "Main", " ", "Text"}], "*)"}], "\[IndentingNewLine]", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", "\"\<7\>\"", "]"}], ";"}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{
              RowBox[{"partmatXPG", "[", 
               RowBox[{"[", 
                RowBox[{"timePG", ",", "numParticles"}], "]"}], "]"}], "=", 
              RowBox[{"refX1TPG", "[", 
               RowBox[{"[", "timePG", "]"}], "]"}]}], ";"}], "*)"}], 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
            "Step", " ", "10", " ", "of", " ", "Algorithm", " ", "3", " ", 
             "in", " ", "main", " ", 
             RowBox[{"Text", ".", " ", "Independent"}], " ", "from", " ", 
             "any", " ", 
             RowBox[{"step", "."}]}], "*)"}], "\[IndentingNewLine]", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", "\"\<8\>\"", "]"}], ";"}], "*)"}], 
           "\[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]", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", "\"\<9\>\"", "]"}], ";"}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"partmatXPG", "[", 
               RowBox[{"[", "timePG", "]"}], "]"}], "=", 
              RowBox[{"ParallelMap", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"transitionDrawPG", "[", 
                  RowBox[{"#", ",", "APG", ",", "QPG"}], "]"}], "&"}], ",", 
                "xt1aitPG"}], "]"}]}], ";", "\[IndentingNewLine]", " ", 
             RowBox[{
             "Step", " ", "7", " ", "in", " ", "PGAS", " ", "Markov", " ", 
              "Kernel"}]}], "*)"}], "\[IndentingNewLine]", 
           "\[IndentingNewLine]", 
           RowBox[{"normWPG", "=", 
            RowBox[{"ParallelMap", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"logMultinormalDens", "[", 
                 RowBox[{
                  RowBox[{"vecy1T", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"3", "*", 
                    RowBox[{"(", 
                    RowBox[{"timePG", "-", "1"}], ")"}]}], "+", "1"}], ";;", 
                    RowBox[{"3", "*", "timePG"}]}], "]"}], "]"}], ",", 
                  RowBox[{
                   RowBox[{"CmatPG", ".", "#"}], "+", "CmatStarPG", "+", 
                   RowBox[{"Wmat", ".", 
                    RowBox[{"PhiEigen", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"{", 
                    RowBox[{"L1", ",", "L2"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"m1", ",", "m2"}], "}"}]}], "]"}]}]}], ",", 
                  "SigmaMat"}], "]"}], ")"}], "&"}], ",", 
              RowBox[{"partmatXPG", "[", 
               RowBox[{"[", "timePG", "]"}], "]"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
            "Step", " ", "12", " ", "of", " ", "Algorithm", " ", "3", " ", 
             "of", " ", "Main", " ", "Text"}], "*)"}], "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", 
              RowBox[{"\"\<normWPG = \>\"", ",", "normWPG"}], "]"}], ";"}], 
            "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"min2", "=", 
            RowBox[{"Min", "[", "normWPG", "]"}]}], ";", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", 
              RowBox[{"\"\<Min[normWPG] = \>\"", ",", "min"}], "]"}], ";"}], 
            "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", 
              RowBox[{"\"\<normWPG-min = \>\"", ",", 
               RowBox[{"normWPG", "-", "min"}]}], "]"}], ";"}], "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"normWPG", "=", 
            RowBox[{"Exp", "[", 
             RowBox[{"normWPG", "-", "min2"}], "]"}]}], ";", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", 
              RowBox[{"\"\<normWPG = \>\"", ",", "normWPG"}], "]"}], ";"}], 
            "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", "\"\<10\>\"", "]"}], ";"}], "*)"}], 
           "\[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"}], "]"}]}], ";", " ", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"We", " ", "need", " ", "Threshold"}], ",", " ", 
             RowBox[{
             "because", " ", "when", " ", "have", " ", "very", " ", 
              "unbalanced", " ", "list", " ", 
              RowBox[{"(", 
               RowBox[{"ex", ":", 
                RowBox[{"path", " ", "degeneracy"}]}], ")"}]}], ",", " ", 
             RowBox[{
             "we", " ", "get", " ", "very", " ", "small", " ", "numbers", " ",
               "in", " ", "the", " ", "normalization"}], ",", " ", 
             RowBox[{
             "which", " ", "multinomial", " ", "function", " ", "cannot", " ", 
              RowBox[{"use", "."}]}]}], "*)"}], "\[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]", "]"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"kappaPG", "=", 
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{"RandomVariate", "[", 
             RowBox[{
              RowBox[{"MultinomialDistribution", "[", 
               RowBox[{"1", ",", "normWPG"}], "]"}], ",", "1"}], "]"}], ",", 
            "1"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{";;", ",", "2"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
         "Step", " ", "14", " ", "of", " ", "Algorithm", " ", "3", " ", "of", 
          " ", "Main", " ", "Text"}], "*)"}], "\[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.7626126133771706`*^9, 3.7626126457177706`*^9}, {3.762612693159457*^9, 
   3.7626127167322016`*^9}, {3.762612853733704*^9, 3.762612892312471*^9}, {
   3.762614130702695*^9, 3.7626141539902472`*^9}, {3.762614208434612*^9, 
   3.762614222960313*^9}, {3.7626142859333725`*^9, 3.7626143256889267`*^9}, {
   3.762614451237779*^9, 3.7626144960527105`*^9}, {3.7626148478016424`*^9, 
   3.762614866736289*^9}, 3.7626149619104567`*^9, {3.7626151348551598`*^9, 
   3.7626151817171755`*^9}, {3.7626154231343985`*^9, 3.762615435630744*^9}, {
   3.7626155775645437`*^9, 3.76261559690646*^9}, {3.762615815577509*^9, 
   3.762615923556628*^9}, 3.762615959758809*^9, {3.7626164603832808`*^9, 
   3.7626165075868063`*^9}, {3.762616715438634*^9, 3.7626167419618087`*^9}, {
   3.7626191474564247`*^9, 3.762619191377542*^9}, {3.762619221849842*^9, 
   3.762619224318739*^9}, {3.762619258988059*^9, 3.762619522638479*^9}, {
   3.762619561170394*^9, 3.7626195882841854`*^9}, {3.7626196331604333`*^9, 
   3.7626196493638306`*^9}, {3.7626655901902885`*^9, 
   3.7626655908309355`*^9}, {3.7626657004929767`*^9, 3.762665798169984*^9}, {
   3.762665829812261*^9, 3.7626658567980385`*^9}, {3.762668000868514*^9, 
   3.7626681263949795`*^9}, {3.7626682518724365`*^9, 
   3.7626683336579857`*^9}, {3.762668398333288*^9, 3.7626684454607673`*^9}, {
   3.762668499167791*^9, 3.762668523528448*^9}, {3.7626685546873693`*^9, 
   3.762668567845373*^9}, {3.7626686949006343`*^9, 3.7626686954475675`*^9}, {
   3.762668784856826*^9, 3.7626688429378786`*^9}, {3.7626694499250774`*^9, 
   3.762669452034562*^9}, {3.7626697183298054`*^9, 3.7626697409403396`*^9}, {
   3.7626699532327733`*^9, 3.7626699821717944`*^9}, 3.7626716723074784`*^9, {
   3.7626717722189665`*^9, 3.762671815330589*^9}, 3.762671947337554*^9, {
   3.7626720344671297`*^9, 3.7626720927826967`*^9}, 3.7626721803497686`*^9, {
   3.7626724476393595`*^9, 3.762672474466338*^9}, {3.762672525999297*^9, 
   3.7626725282337904`*^9}, {3.7626725902020864`*^9, 3.762672605077838*^9}, 
   3.7626726616490583`*^9, {3.7626727064886665`*^9, 3.7626727240677385`*^9}, {
   3.762672940298952*^9, 3.7626729425334435`*^9}, {3.762678522791997*^9, 
   3.7626785497239*^9}, {3.7626787681771393`*^9, 3.762678808333618*^9}, {
   3.7626788676927185`*^9, 3.7626788983193674`*^9}, {3.762679203615096*^9, 
   3.7626792190524426`*^9}, {3.7626794208661504`*^9, 
   3.7626794370067124`*^9}, {3.7626794696445527`*^9, 
   3.7626794970979977`*^9}, {3.762679560066685*^9, 3.7626795891207905`*^9}, {
   3.762679649521496*^9, 3.762679671396208*^9}, {3.762681863130561*^9, 
   3.762681872255605*^9}, {3.762682162224259*^9, 3.7626821630055485`*^9}, 
   3.762682767199736*^9, 3.762683015277878*^9, {3.762683103930862*^9, 
   3.7626832342567935`*^9}, {3.7639638798658357`*^9, 3.763963888100662*^9}, {
   3.763964020485692*^9, 3.7639640504872856`*^9}, {3.7639640985385113`*^9, 
   3.7639641236804466`*^9}, {3.7639672012586794`*^9, 3.763967204634947*^9}, {
   3.7672456677066727`*^9, 3.767245794213238*^9}, {3.7672458940622196`*^9, 
   3.767245905890933*^9}, 3.767246407848157*^9, {3.767266878358222*^9, 
   3.7672668949051847`*^9}, {3.767774921029343*^9, 3.767774954806754*^9}, {
   3.76777562048211*^9, 3.767775723143686*^9}, {3.767776483872837*^9, 
   3.767776488373071*^9}, 3.767776628849156*^9, {3.767776960425386*^9, 
   3.7677769924426775`*^9}, {3.7677770930543003`*^9, 
   3.7677771115552654`*^9}, {3.7677772454365916`*^9, 
   3.7677772786726723`*^9}, {3.7677774232559414`*^9, 
   3.7677774465852823`*^9}, {3.7677774895125446`*^9, 3.767777504325817*^9}, {
   3.76777753620269*^9, 3.767777544953143*^9}, {3.767777663015731*^9, 
   3.767777669750456*^9}, {3.7677777076918163`*^9, 3.7677777167860584`*^9}, {
   3.7677777640749035`*^9, 3.7677777768255367`*^9}, 3.767782507028596*^9, {
   3.7677828255139503`*^9, 3.7677828302173204`*^9}, {3.767782889267305*^9, 
   3.767782891173624*^9}, {3.767783172464967*^9, 3.767783179230946*^9}, {
   3.7677833627461004`*^9, 3.767783365730661*^9}, {3.7677834105172477`*^9, 
   3.7677834129392757`*^9}, 3.7677835044322386`*^9, 3.767795306370989*^9, {
   3.767940747617077*^9, 3.7679407585707464`*^9}, {3.767940797807165*^9, 
   3.7679408060263433`*^9}, {3.7679408977023716`*^9, 3.767940904843397*^9}, {
   3.7737509074391317`*^9, 3.7737509334815483`*^9}, {3.77375098213208*^9, 
   3.7737510045759583`*^9}, 3.773751142640874*^9, {3.7737511763049965`*^9, 
   3.773751179110427*^9}, {3.7737512499879436`*^9, 3.773751287510348*^9}, 
   3.7737524571803193`*^9, 3.7737557084538507`*^9, {3.773756087438349*^9, 
   3.773756103975918*^9}, 3.773756135958232*^9, 3.773756227301736*^9, {
   3.773756262817971*^9, 3.773756278464184*^9}, {3.773756317673103*^9, 
   3.773756322042832*^9}, {3.7737577857635255`*^9, 3.773757805776679*^9}, 
   3.773757847225874*^9, {3.773757895632388*^9, 3.77375789716632*^9}, {
   3.773757979741045*^9, 3.7737580566787667`*^9}},
 CellLabel->
  "In[159]:=",ExpressionUUID->"2f062e5f-4240-4bad-b0c6-37ed9eafb57d"]
}, 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->"bc3b9afd-ad1e-452c-8396-\
a0f51628c9f3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bayesianLS", "[", 
    RowBox[{"time_", ",", "vecy1T_", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "til\[Beta]_", ",", "til\[Delta]_", ",", "til\[Theta]_", ",", 
           "til\[Rho]_", ",", "tilaPar_", ",", "til\[Gamma]_"}], "}"}], ",", 
         "tilL_", ",", "tilQMat_"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Wmat_", ",", "SigmaMat_"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"m1_", ",", "m2_"}], "}"}], ",", "L\[CapitalSigma]_", ",", 
     "\[CapitalLambda]\[CapitalSigma]_", ",", "X1Tinitial_", ",", 
     "sampleSize_", ",", "numParticles_", ",", " ", "stepSize_", ",", 
     "varSize_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"scaleMatrix", "=", 
       RowBox[{"IdentityMatrix", "[", "9", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"spmatSigmaFor\[CapitalGamma]Sigma", "=", 
         RowBox[{"spmatSigma", "[", 
          RowBox[{"time", ",", "3"}], "]"}]}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"outputDim", "=", "3"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"stateSamples", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0", ",", "sampleSize"}], "]"}]}], ";", "\[IndentingNewLine]",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"stateSamples", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "=", "X1Tinitial"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"parameterEconSamples", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0", ",", "sampleSize"}], "]"}]}], ";", "\[IndentingNewLine]",
       "\[IndentingNewLine]", 
      RowBox[{"parameterW\[CapitalSigma]Samples", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0", ",", "sampleSize"}], "]"}]}], ";", "\[IndentingNewLine]",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"parameterEconSamples", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "til\[Beta]", ",", "til\[Delta]", ",", "til\[Theta]", ",", 
           "til\[Rho]", ",", "tilaPar", ",", "til\[Gamma]"}], "}"}], ",", 
         "tilL", ",", "tilQMat"}], "}"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"parameterW\[CapitalSigma]Samples", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"Wmat", ",", "SigmaMat"}], "}"}]}], ";", 
      "\[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]", 
        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[{"{", 
             RowBox[{
              RowBox[{"parameterEconSamples", "[", 
               RowBox[{"[", 
                RowBox[{"counterBLS", "-", "1"}], "]"}], "]"}], ",", 
              RowBox[{"parameterW\[CapitalSigma]Samples", "[", 
               RowBox[{"[", 
                RowBox[{"counterBLS", "-", "1"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"L1", ",", "L2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"m1", ",", "m2"}], "}"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{
           "Print", "[", 
            "\"\<Entrando no parameterW\[CapitalSigma]Samples\>\"", "]"}], 
           ";"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"parameterW\[CapitalSigma]Samples", "[", 
           RowBox[{"[", "counterBLS", "]"}], "]"}], "=", 
          RowBox[{"LW\[CapitalSigma]step", "[", 
           RowBox[{"vecy1T", ",", 
            RowBox[{"stateSamples", "[", 
             RowBox[{"[", 
              RowBox[{"counterBLS", "-", "1"}], "]"}], "]"}], ",", "time", 
            ",", "outputDim", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"parameterEconSamples", "[", 
               RowBox[{"[", 
                RowBox[{"counterBLS", "-", "1"}], "]"}], "]"}], ",", 
              RowBox[{"parameterW\[CapitalSigma]Samples", "[", 
               RowBox[{"[", 
                RowBox[{"counterBLS", "-", "1"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"L1", ",", "L2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"m1", ",", "m2"}], "}"}], ",", "L\[CapitalSigma]", ",", 
            "\[CapitalLambda]\[CapitalSigma]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Print", "[", "\"\<Entrando no MH-Step Global\>\"", "]"}], 
           ";"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"parameterEconSamples", "[", 
             RowBox[{"[", "counterBLS", "]"}], "]"}], ",", 
            RowBox[{"acceptanceRecord", "[", 
             RowBox[{"[", 
              RowBox[{"counterBLS", "-", "1"}], "]"}], "]"}]}], "}"}], "=", 
          RowBox[{"MHstepGlobal", "[", 
           RowBox[{"vecy1T", ",", 
            RowBox[{"stateSamples", "[", 
             RowBox[{"[", "counterBLS", "]"}], "]"}], ",", "time", ",", 
            "outputDim", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"parameterEconSamples", "[", 
               RowBox[{"[", 
                RowBox[{"counterBLS", "-", "1"}], "]"}], "]"}], ",", 
              RowBox[{"parameterW\[CapitalSigma]Samples", "[", 
               RowBox[{"[", "counterBLS", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"L1", ",", "L2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"m1", ",", "m2"}], "}"}], ",", "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[{"fileDataStates", "=", 
       RowBox[{"Compress", "[", "stateSamples", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"pathname", "<>", 
         RowBox[{"ToString", "[", "time", "]"}], "<>", 
         "\"\< - EstimationSampleStates.m\>\""}], ",", "fileDataStates"}], 
       "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"fileDataEconParameters", "=", 
       RowBox[{"Compress", "[", "parameterEconSamples", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"pathname", "<>", 
         RowBox[{"ToString", "[", "time", "]"}], "<>", 
         "\"\< - EstimationEconSampleParameters.m\>\""}], ",", 
        "fileDataEconParameters"}], "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"fileDataW\[CapitalSigma]Parameters", "=", 
       RowBox[{"Compress", "[", "parameterW\[CapitalSigma]Samples", "]"}]}], 
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"pathname", "<>", 
         RowBox[{"ToString", "[", "time", "]"}], "<>", 
         "\"\< - EstimationWSSampleParameters.m\>\""}], ",", 
        "fileDataW\[CapitalSigma]Parameters"}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"fileDataAcceptCounterBLS", "=", 
       RowBox[{"Compress", "[", 
        RowBox[{"{", 
         RowBox[{"acceptanceRecord", ",", "counterBLS"}], "}"}], "]"}]}], ";",
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"pathname", "<>", 
         RowBox[{"ToString", "[", "time", "]"}], "<>", 
         "\"\< - EstimationSampleAcceptCounterBLS.m\>\""}], ",", 
        "fileDataAcceptCounterBLS"}], "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"fileDataTildeW", "=", 
       RowBox[{"Compress", "[", "tildeWRecord", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"pathname", "<>", 
         RowBox[{"ToString", "[", "time", "]"}], "<>", 
         "\"\< - EstimationSampleStatesTildeW.m\>\""}], ",", 
        "fileDataTildeW"}], "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"fileDataNormW", "=", 
       RowBox[{"Compress", "[", "normWRecord", "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"pathname", "<>", 
         RowBox[{"ToString", "[", "time", "]"}], "<>", 
         "\"\< - EstimationSampleStatesNormW.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", ",", "parameterEconSamples", ",", 
        "parameterW\[CapitalSigma]Samples"}], "}"}]}]}], 
    "\[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.762005927614628*^9, 3.762005933691687*^9}, {3.7631846664263587`*^9, 
   3.76318468713057*^9}, {3.763184766119095*^9, 3.7631847933549337`*^9}, 
   3.763185423841156*^9, {3.763186000355858*^9, 3.76318600152779*^9}, {
   3.763962549206663*^9, 3.7639625671919746`*^9}, {3.763964943191814*^9, 
   3.763964948895235*^9}, {3.7639650356185064`*^9, 3.763965051603714*^9}, {
   3.7639655116753*^9, 3.763965520081989*^9}, {3.763965697856883*^9, 
   3.7639657282522063`*^9}, {3.7639658283668003`*^9, 3.763965937128379*^9}, {
   3.7639664881976805`*^9, 3.7639665705332675`*^9}, {3.763966603988139*^9, 
   3.763966631161401*^9}, {3.763966664819437*^9, 3.7639667024307413`*^9}, 
   3.763966747964367*^9, {3.7639668480196733`*^9, 3.7639668740210285`*^9}, {
   3.763967049633687*^9, 3.763967050461855*^9}, {3.763967354740023*^9, 
   3.763967357678706*^9}, {3.7639676997452188`*^9, 3.763967795706088*^9}, {
   3.763967904765197*^9, 3.7639679704111996`*^9}, {3.7639682242630386`*^9, 
   3.763968248367494*^9}, {3.7650103052634583`*^9, 3.7650103512658567`*^9}, {
   3.7650359843493376`*^9, 3.7650359854129553`*^9}, {3.765036117671751*^9, 
   3.765036120594842*^9}, {3.777295249899557*^9, 3.7772952622898197`*^9}},
 CellLabel->
  "In[160]:=",ExpressionUUID->"b5796d60-d86f-433b-a4e2-42b4274ecc98"]
}, 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->"a7193052-5d08-4173-b2d9-\
e385dde7414a"],

Cell[CellGroupData[{

Cell["Importing Data from File", "Subsubsection",
 CellChangeTimes->{{3.750396688677575*^9, 3.750396698240569*^9}, {
  3.755848722902397*^9, 
  3.7558487672594357`*^9}},ExpressionUUID->"2dc65cdf-f396-413e-b331-\
cf83888fe0e7"],

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[161]:=",ExpressionUUID->"c4438fd1-f8d4-464f-9501-f5468f761d01"],

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[162]:=",ExpressionUUID->"6eef729a-5d8b-4d37-9d68-c3bc75e80cfa"],

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[163]:=",ExpressionUUID->"2276003c-7dcf-499d-a2e5-1d0401896ff4"]
}, 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->"82b6a864-49de-4db6-a017-\
c0c56dfeed6d"],

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[167]:=",ExpressionUUID->"e3e780be-6012-4299-9d54-14abf127ccd0"]
}, 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->"0559d673-e389-47f0-a21b-\
3767d35230fc"],

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->"36fc39fc-3bf1-4f45-a0f4-\
8bfa6782a460"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"initValues", "[", 
      RowBox[{"time_", ",", 
       RowBox[{"{", 
        RowBox[{"m1_", ",", "m2_"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"L1_", ",", "L2_"}], "}"}], ",", "L\[CapitalSigma]_", ",", 
       "\[CapitalLambda]\[CapitalSigma]_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "X1", ",", "counter", ",", "Vmat", ",", "Wmat", ",", "SigmaMat", ",", 
         "\[Beta]", ",", "\[Delta]", ",", "\[Theta]", ",", "\[Rho]", ",", 
         "aPar", ",", "\[Gamma]", ",", "A", ",", "Cmat", ",", "CmatStar", ",",
          "Sigma", ",", "Q", ",", "Lgp"}], "}"}], ",", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{
        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[{"RandomVariate", "[", 
          RowBox[{"InverseWishartMatrixDistribution", "[", 
           RowBox[{
           "L\[CapitalSigma]", ",", "\[CapitalLambda]\[CapitalSigma]"}], 
           "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"Q", "=", 
         RowBox[{"DiagonalMatrix", "[", 
          RowBox[{"{", 
           RowBox[{"1.5", ",", "0.6"}], "}"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"Lgp", "=", "15"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"X1", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{"1", ",", "time"}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"Vmat", "=", 
         RowBox[{"DiagonalMatrix", "[", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"spectralDens", "[", 
              RowBox[{
               RowBox[{"lambda", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"j1", ",", "j2"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"L1", ",", "L2"}], "}"}]}], "]"}], ",", "2", ",", 
               "0.5", ",", "Lgp"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"j1", ",", "1", ",", "m1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"j2", ",", "1", ",", "m2"}], "}"}]}], "]"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"Wmat", "=", 
         RowBox[{"matrixNormalDraws", "[", 
          RowBox[{
           RowBox[{"ConstantArray", "[", 
            RowBox[{"0", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Length", "[", "Sigma", "]"}], ",", 
               RowBox[{"Length", "[", "Vmat", "]"}]}], "}"}]}], "]"}], ",", 
           "Sigma", ",", "Vmat"}], "]"}]}], ";", "\[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[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"reparametrizationF", "[", 
               RowBox[{"{", 
                RowBox[{
                "\[Beta]", ",", "\[Delta]", ",", "\[Theta]", ",", "\[Rho]", 
                 ",", "aPar", ",", "\[Gamma]"}], "}"}], "]"}], ",", 
              RowBox[{"Log", "[", "Lgp", "]"}], ",", 
              RowBox[{"reparametrizationFQ", "[", "Q", "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"Wmat", ",", "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, {
   3.764998955552373*^9, 3.7649990009766183`*^9}, {3.764999052341858*^9, 
   3.7649990896875243`*^9}, {3.7650039299543877`*^9, 3.76500394670526*^9}, {
   3.765004020943507*^9, 3.765004072934824*^9}, 3.765004137750704*^9, {
   3.765005248771474*^9, 3.765005261919103*^9}, {3.765005358990734*^9, 
   3.7650054317874737`*^9}, {3.765005618628264*^9, 3.7650056188314*^9}, {
   3.7650056982565756`*^9, 3.7650057585222125`*^9}, {3.765005881787887*^9, 
   3.7650059725066433`*^9}, {3.7650062669567137`*^9, 
   3.7650062843807116`*^9}, {3.7650063919558945`*^9, 3.765006414835535*^9}, {
   3.765006525303351*^9, 3.76500653286712*^9}, 3.7650065748663754`*^9, {
   3.7650066436152487`*^9, 3.7650066498063707`*^9}, {3.7650067697220497`*^9, 
   3.7650067983658094`*^9}, {3.765007169287857*^9, 3.7650071725222645`*^9}},
 CellLabel->
  "In[170]:=",ExpressionUUID->"50a5ad39-8c63-4745-bd51-a1b71017c1c6"]
}, Closed]],

Cell[CellGroupData[{

Cell["Prediction 1 Step (using positiviseMatrix)", "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}},ExpressionUUID->"d5d03a70-b482-4576-9ffd-\
973ba4f6addb"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"prediction1Step", "[", 
    RowBox[{
    "stateSamples_", ",", "parameterEconSamples_", ",", 
     "parameterW\[CapitalSigma]Samples_", ",", "time_", ",", "vecy1T_", ",", 
     "predSize_", ",", "sizeBurnIn_", ",", 
     RowBox[{"{", 
      RowBox[{"L1_", ",", "L2_"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"m1_", ",", "m2_"}], "}"}]}], "]"}], ":=", 
   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[{"parameterEconSamples", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], ",", 
         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[{"listQ", "=", 
       RowBox[{"ParallelTable", "[", 
        RowBox[{
         RowBox[{"reparametrizationFQInv", "[", 
          RowBox[{"parameterEconSamples", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"sizeBurnIn", "+", "1"}], ",", " ", "len"}], "}"}]}], 
        "]"}]}], ";", "\[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[{
        "Computing", " ", "the", " ", "mean", " ", "state", " ", "at", " ", 
         "T"}], "+", 
        RowBox[{
        "1", "\[IndentingNewLine]", "We", " ", "must", " ", "take", " ", 
         "care", " ", "to", " ", "use", " ", "only", " ", "the", " ", "data", 
         " ", "after", " ", "Burn"}], "-", 
        RowBox[{"In", "."}]}], "\[IndentingNewLine]", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "\"\<1\>\"", "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"yCatList", "=", 
       RowBox[{"Ceiling", "[", 
        RowBox[{
         RowBox[{"RandomVariate", "[", 
          RowBox[{
           RowBox[{"UniformDistribution", "[", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], "]"}], ",", "predSize"}], "]"}], 
         "*", 
         RowBox[{"(", 
          RowBox[{"len", "-", "sizeBurnIn"}], ")"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"yStarList", "=", 
       RowBox[{"ParallelTable", "[", 
        RowBox[{
         RowBox[{"RandomVariate", "[", 
          RowBox[{"MultinormalDistribution", "[", 
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
               "parameterW\[CapitalSigma]Samples", "\[LeftDoubleBracket]", 
                RowBox[{
                 RowBox[{
                 "yCatList", "\[LeftDoubleBracket]", "i", 
                  "\[RightDoubleBracket]"}], ",", "1"}], 
                "\[RightDoubleBracket]"}], ".", 
               RowBox[{"PhiEigen", "[", 
                RowBox[{"predictedState", ",", 
                 RowBox[{"{", 
                  RowBox[{"L1", ",", "L2"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m1", ",", "m2"}], "}"}]}], "]"}]}], "+", 
              RowBox[{
               RowBox[{"listACCstar", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                  "yCatList", "\[LeftDoubleBracket]", "i", 
                   "\[RightDoubleBracket]"}], ",", "2"}], "]"}], "]"}], ".", 
               "predictedState"}], "+", 
              RowBox[{"listACCstar", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{
                 "yCatList", "\[LeftDoubleBracket]", "i", 
                  "\[RightDoubleBracket]"}], ",", "3"}], "]"}], "]"}]}], 
             "]"}], ",", 
            RowBox[{
            "parameterW\[CapitalSigma]Samples", "\[LeftDoubleBracket]", 
             RowBox[{
              RowBox[{
              "yCatList", "\[LeftDoubleBracket]", "i", 
               "\[RightDoubleBracket]"}], ",", "2"}], 
             "\[RightDoubleBracket]"}]}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"len", "-", "sizeBurnIn"}]}], "}"}]}], "]"}]}], ";", 
      "\[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[{"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.7639687742284255`*^9, 3.763968800417737*^9}, {
   3.764168616368641*^9, 3.7641686185470963`*^9}, {3.76416869377631*^9, 
   3.7641687059704485`*^9}, {3.7641688081476507`*^9, 
   3.7641688317023745`*^9}, {3.7641696063774586`*^9, 
   3.7641696068187532`*^9}, {3.764170256353411*^9, 3.764170276344755*^9}, {
   3.764170434087047*^9, 3.764170436206462*^9}, 3.7641704724606614`*^9, {
   3.7641745885307875`*^9, 3.7641746047349253`*^9}, {3.764174640325529*^9, 
   3.764174684496503*^9}, {3.764175006126343*^9, 3.7641750114588366`*^9}, {
   3.7641750594364223`*^9, 3.7641750612355113`*^9}, {3.764175120146325*^9, 
   3.7641751504570312`*^9}, {3.7641752269915648`*^9, 3.764175263694009*^9}, {
   3.7641753095892334`*^9, 3.7641753354318027`*^9}, {3.764175464923546*^9, 
   3.7641754998196898`*^9}, {3.7641758955694647`*^9, 
   3.7641759158772593`*^9}, {3.77390795872293*^9, 3.7739079784581876`*^9}, {
   3.7739080145243316`*^9, 3.7739080179352183`*^9}},
 CellLabel->
  "In[171]:=",ExpressionUUID->"12f6e07c-75af-46c3-a9bd-398aad45f346"]
}, 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->"9dd422c7-f9f1-4c2e-bef1-\
e3344ca5fa5f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"predictionNSteps", "[", 
    RowBox[{
    "Y1T_", ",", "startTime_", ",", "endTime_", ",", "sampleSize_", ",", 
     "predSize_", ",", "numParticles_", ",", " ", "stepSize_", ",", 
     "varSize_", ",", "sizeBurnIn_", ",", 
     RowBox[{"{", 
      RowBox[{"m1_", ",", "m2_"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"L1_", ",", "L2_"}], "}"}], ",", "L\[CapitalSigma]_", ",", 
     "\[CapitalLambda]\[CapitalSigma]_"}], "]"}], ":=", 
   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", "[", 
           RowBox[{"currentTime", ",", 
            RowBox[{"{", 
             RowBox[{"m1", ",", "m2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"L1", ",", "L2"}], "}"}], ",", "L\[CapitalSigma]", ",", 
            "\[CapitalLambda]\[CapitalSigma]"}], "]"}]}], ";", 
         "\[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", ",", "parameterEconSamplesTime", ",", 
            "parameterW\[CapitalSigma]SamplesTime"}], "}"}], "=", 
          RowBox[{"bayesianLS", "[", 
           RowBox[{"currentTime", ",", "vecy1TCurrent", ",", 
            RowBox[{"startValues", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"L1", ",", "L2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"m1", ",", "m2"}], "}"}], ",", "L\[CapitalSigma]", ",", 
            "\[CapitalLambda]\[CapitalSigma]", ",", 
            RowBox[{"startValues", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "sampleSize", ",", 
            "numParticles", ",", " ", "stepSize", ",", "varSize"}], "]"}]}], 
         ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Print", "[", "\"\<prediction1Step\>\"", "]"}], ";"}], 
          "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"prediction1Step", "[", 
           RowBox[{
           "stateSamplesTime", ",", "parameterEconSamplesTime", ",", 
            "parameterW\[CapitalSigma]SamplesTime", ",", "currentTime", ",", 
            "vecy1TCurrent", ",", "predSize", ",", "sizeBurnIn", ",", 
            RowBox[{"{", 
             RowBox[{"L1", ",", "L2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"m1", ",", "m2"}], "}"}]}], "]"}], "\[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.7649983357374125`*^9, 
   3.764998338362548*^9}, {3.765007121022586*^9, 3.7650071596932964`*^9}, {
   3.7650078009362803`*^9, 3.76500782670325*^9}, 3.7650078804873023`*^9, {
   3.7650079359120665`*^9, 3.765008010856661*^9}, {3.765008075906928*^9, 
   3.765008093626602*^9}, {3.7650081748495855`*^9, 3.7650081757402287`*^9}, {
   3.7650091974678164`*^9, 3.765009204140037*^9}, {3.773907928895046*^9, 
   3.7739079500352726`*^9}, {3.845961131812764*^9, 3.8459611409710197`*^9}},
 CellLabel->
  "In[172]:=",ExpressionUUID->"4c6c4890-5b4e-46d1-9bc4-fee75516acba"]
}, Open  ]]
}, 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->"94643748-6661-4659-a651-\
0299832baaec"],

Cell["\<\
Set a pathname where you want to create your simulation results.\
\>", "Text",
 CellChangeTimes->{{3.7649983488005924`*^9, 3.764998385411846*^9}, {
   3.7651169938126564`*^9, 3.765117033580355*^9}, 3.7651724599526844`*^9, {
   3.767418814799019*^9, 3.767418819116229*^9}, {3.767765509527708*^9, 
   3.7677655230111895`*^9}, 3.773758117176793*^9, 3.7737636913719473`*^9, 
   3.7739082129169493`*^9, 3.7739086019769845`*^9, 3.7740669621040688`*^9, 
   3.774184091979722*^9, {3.8459602583991365`*^9, 3.845960263452729*^9}, {
   3.845960346317581*^9, 
   3.845960364796238*^9}},ExpressionUUID->"00c81862-3153-4d6a-b94a-\
abb01412949a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pathname", "=", 
   RowBox[{"NotebookDirectory", "[", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.7677655187428455`*^9, {3.7679373010050554`*^9, 3.7679373015744367`*^9}, 
   3.773758122544654*^9, {3.7737636948102455`*^9, 3.773763700023733*^9}, 
   3.7739082158648224`*^9, {3.7739085989972982`*^9, 3.773908614188555*^9}, 
   3.7739140478229127`*^9, 3.774066149560734*^9, 3.774066515549017*^9, 
   3.7740669645104475`*^9, {3.7741840956312323`*^9, 3.7741840996707687`*^9}, 
   3.7741847631024704`*^9, 3.776835397775673*^9, {3.7772952872874956`*^9, 
   3.777295287506646*^9}, 3.780669095970087*^9, 3.7806706994669924`*^9, {
   3.829456702561874*^9, 3.829456710413913*^9}, {3.845960375518147*^9, 
   3.8459603861818743`*^9}, {3.8459605160706153`*^9, 
   3.8459605173764095`*^9}, {3.845960682476243*^9, 3.845960686710849*^9}, 
   3.8459607822990217`*^9, {3.8459608711126747`*^9, 3.8459608736015573`*^9}, {
   3.8459610427578173`*^9, 3.8459610896798043`*^9}, {3.8459612309910955`*^9, 
   3.8459612341876535`*^9}},
 CellLabel->
  "In[173]:=",ExpressionUUID->"46f619f8-6f7e-49d3-b0df-1e282619b080"],

Cell["\<\
In my simulations, I used values similar to those below. Check PhD-Thesis pdf \
for more information.
startTime=10;
endTime=15;
sampleSize=55000;
predSize=100000;
numParticles=20;
stepSize=0.0001;
varSize=0.1;
s2Econ=0.01;
sizeBurnIn=5000;
{m1,m2}={12,12};
{L1,L2}={7,7};
L\[CapitalSigma]=10;
\[CapitalLambda]\[CapitalSigma]=IdentityMatrix[3];
degfredEcon=3\
\>", "Text",
 CellChangeTimes->{{3.8459604043260365`*^9, 3.845960460705772*^9}, {
  3.8459611683762503`*^9, 
  3.8459611694450703`*^9}},ExpressionUUID->"81ef30d7-b6d2-40de-a1d9-\
1e7518dded45"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"startTime", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"endTime", "=", "15"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sampleSize", "=", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"predSize", "=", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"numParticles", "=", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"stepSize", "=", "0.0001"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"varSize", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s2Econ", "=", "0.01"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sizeBurnIn", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"m1", ",", "m2"}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{"12", ",", "12"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"L1", ",", "L2"}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{"7", ",", "7"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L\[CapitalSigma]", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalLambda]\[CapitalSigma]", "=", 
   RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"degfredEcon", "=", "3"}], 
   RowBox[{"(*", "3", "*)"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"predictionNSteps", "[", 
  RowBox[{
  "Y1T", ",", "startTime", ",", "endTime", ",", "sampleSize", ",", "predSize",
    ",", "numParticles", ",", " ", "stepSize", ",", "varSize", ",", 
   "sizeBurnIn", ",", 
   RowBox[{"{", 
    RowBox[{"m1", ",", "m2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"L1", ",", "L2"}], "}"}], ",", "L\[CapitalSigma]", ",", 
   "\[CapitalLambda]\[CapitalSigma]"}], "]"}]}], "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.7649984873265505`*^9, 3.76499850401495*^9}, {3.7650081379101615`*^9, 
   3.76500814336357*^9}, {3.7650081870064697`*^9, 3.765008263794899*^9}, {
   3.76500929233304*^9, 3.765009293270619*^9}, 3.765010551164119*^9, {
   3.765116831835433*^9, 3.7651168462736893`*^9}, {3.765116900792152*^9, 
   3.765116901760973*^9}, {3.7672423151696615`*^9, 3.7672423183573103`*^9}, {
   3.7674137727305517`*^9, 3.7674137752931843`*^9}, {3.7674188235755396`*^9, 
   3.767418830574815*^9}, {3.7677676485630007`*^9, 3.767767651354803*^9}, {
   3.7737581452192817`*^9, 3.7737581532572966`*^9}, {3.773763851042721*^9, 
   3.773763873776924*^9}, {3.7739072053699217`*^9, 3.7739072212521353`*^9}, {
   3.7739078565569086`*^9, 3.7739079177726955`*^9}, {3.773908225410989*^9, 
   3.773908235649663*^9}, {3.773908442850828*^9, 3.7739084430383377`*^9}, {
   3.7739085752069254`*^9, 3.773908580363805*^9}, {3.7739139771213603`*^9, 
   3.7739140041467695`*^9}, {3.7739819783714952`*^9, 3.773981980230971*^9}, {
   3.7739820182017174`*^9, 3.773982028749155*^9}, {3.7740661119493527`*^9, 
   3.7740661269189005`*^9}, {3.7740663511027412`*^9, 3.774066356571783*^9}, {
   3.7740663887610006`*^9, 3.7740663912298827`*^9}, {3.774066498719991*^9, 
   3.7740665462381573`*^9}, {3.774066971167082*^9, 3.7740669914025364`*^9}, {
   3.7741841112491913`*^9, 3.7741841476326923`*^9}, 3.774184372920909*^9, {
   3.7741847322580004`*^9, 3.774184745719693*^9}, {3.7742450128648634`*^9, 
   3.7742450689823895`*^9}, 3.7768353948006887`*^9, {3.776835780621058*^9, 
   3.7768357808792353`*^9}, {3.780669150847678*^9, 3.7806691541290827`*^9}, {
   3.780670673059496*^9, 3.780670675122093*^9}, {3.8294567588278885`*^9, 
   3.82945676128656*^9}, {3.845960474826589*^9, 3.8459604780381393`*^9}, {
   3.845960715318677*^9, 3.845960728619852*^9}},
 CellLabel->
  "In[174]:=",ExpressionUUID->"f5a43f75-1f62-4cf9-9a7f-1ddf57e2978a"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{645, 695},
WindowMargins->{{0, Automatic}, {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->"8649c492-6067-4082-8f8d-019876197836"],
Cell[820, 28, 364, 6, 83, "Section",ExpressionUUID->"924b7e6f-6afb-467b-b0fa-0318b4b56f06"],
Cell[CellGroupData[{
Cell[1209, 38, 374, 6, 58, "Subchapter",ExpressionUUID->"581aee13-6e17-4ba8-a8f7-9d4aeb1ccfba"],
Cell[CellGroupData[{
Cell[1608, 48, 464, 8, 89, "Subsubsection",ExpressionUUID->"7e7fe8ee-429f-4a0f-908c-0be618109dc2"],
Cell[2075, 58, 2859, 68, 396, "Input",ExpressionUUID->"daf8ac34-2e05-46c5-b1f5-981ff2174a9b"]
}, Closed]],
Cell[CellGroupData[{
Cell[4971, 131, 293, 4, 45, "Subsubsection",ExpressionUUID->"884f8b6c-2f5f-42e4-b28c-ab3078c17164"],
Cell[5267, 137, 11258, 277, 972, "Input",ExpressionUUID->"b27750d8-740e-44d9-82a0-161b1935b405"]
}, Closed]],
Cell[CellGroupData[{
Cell[16562, 419, 162, 3, 45, "Subsubsection",ExpressionUUID->"b1236490-4c5d-4160-b1f1-c0a03e50db45"],
Cell[16727, 424, 11098, 306, 1092, "Input",ExpressionUUID->"180b121d-b441-4744-897f-016389f9dd49"]
}, Closed]],
Cell[CellGroupData[{
Cell[27862, 735, 368, 5, 45, "Subsubsection",ExpressionUUID->"ae5868f7-074a-4d8e-8fc9-86136209183b"],
Cell[28233, 742, 20878, 451, 2600, "Input",ExpressionUUID->"0b2ad542-c16f-4442-a669-bcfbf1380a9c"]
}, Closed]],
Cell[CellGroupData[{
Cell[49148, 1198, 386, 6, 78, "Subsubsection",ExpressionUUID->"7095e36c-aa04-4b2a-9a88-5c54b2619f57"],
Cell[49537, 1206, 11233, 257, 2264, "Input",ExpressionUUID->"fba8d491-82dc-460d-9ae9-9c1242927a59"]
}, Closed]],
Cell[CellGroupData[{
Cell[60807, 1468, 415, 6, 45, "Subsubsection",ExpressionUUID->"74e049ea-4f9d-4a72-be57-308352c5971b"],
Cell[61225, 1476, 35762, 497, 276, "Input",ExpressionUUID->"18f1f8f6-cb33-4f45-84e2-b3840b0b2c2c"]
}, Closed]],
Cell[CellGroupData[{
Cell[97024, 1978, 420, 6, 45, "Subsubsection",ExpressionUUID->"2f01d03a-5613-43c3-8f1e-05af80cae937"],
Cell[97447, 1986, 35210, 490, 348, "Input",ExpressionUUID->"bdfaad6c-fa4d-49de-a7c1-e9b4f1b25828"]
}, Closed]],
Cell[CellGroupData[{
Cell[132694, 2481, 415, 6, 45, "Subsubsection",ExpressionUUID->"a8fdb71b-a921-4d3f-9d7e-6d9d44d08348"],
Cell[133112, 2489, 34750, 480, 228, "Input",ExpressionUUID->"8ba99a8c-0798-49c2-8bec-1d635fb90c13"]
}, Closed]],
Cell[CellGroupData[{
Cell[167899, 2974, 326, 5, 45, "Subsubsection",ExpressionUUID->"3f2da3e6-4615-46f0-9d6e-35ce78f34c3a"],
Cell[168228, 2981, 3158, 59, 320, "Input",ExpressionUUID->"8bd605ba-4b08-4c89-a8bd-2bd234027e5f"],
Cell[171389, 3042, 3991, 73, 440, "Input",ExpressionUUID->"db3f5b5b-3862-42df-828d-b831580fbf5c"],
Cell[175383, 3117, 2784, 52, 200, "Input",ExpressionUUID->"456ed8b6-2306-44bb-a9b1-dfb481fd5af7"]
}, Closed]],
Cell[CellGroupData[{
Cell[178204, 3174, 222, 4, 45, "Subsubsection",ExpressionUUID->"dd45dbc3-54ae-4c1e-90ed-9876cbbd328e"],
Cell[178429, 3180, 8305, 190, 1688, "Input",ExpressionUUID->"0a30a68c-e105-4028-9678-b9426e9ba591"]
}, Closed]],
Cell[CellGroupData[{
Cell[186771, 3375, 572, 8, 45, "Subsubsection",ExpressionUUID->"8b9d0ce3-1ca3-46fa-92f6-5f4e490e1c6e"],
Cell[187346, 3385, 871, 26, 132, "Input",ExpressionUUID->"23eaa940-51c6-4213-8bc6-ded59639f6b3"],
Cell[188220, 3413, 3976, 99, 708, "Input",ExpressionUUID->"70c49fd3-d18f-4449-aabf-ea37bcdd12eb"],
Cell[192199, 3514, 2744, 70, 540, "Input",ExpressionUUID->"8b2b373b-f267-4971-a18c-33c0eb63f0bb"],
Cell[194946, 3586, 2370, 61, 444, "Input",ExpressionUUID->"859bef1e-9908-462e-a36c-be33d32d1bd5"],
Cell[197319, 3649, 4048, 99, 588, "Input",ExpressionUUID->"f87c52d2-d097-47f4-81aa-06c95f32deb6"],
Cell[201370, 3750, 15411, 260, 516, "Input",ExpressionUUID->"b25d75cf-4478-4830-9e31-c796cacad744"],
Cell[216784, 4012, 6543, 164, 1116, "Input",ExpressionUUID->"d808280e-2448-4454-b02c-8e532895ba97"],
Cell[223330, 4178, 6499, 165, 1140, "Input",ExpressionUUID->"89bf3615-00e1-47ab-8f9f-81be08d0f4dc"]
}, Closed]],
Cell[CellGroupData[{
Cell[229866, 4348, 834, 11, 78, "Subsubsection",ExpressionUUID->"46f1a966-fbfe-4e4d-8e4f-690dd7913ab5"],
Cell[230703, 4361, 9306, 207, 2172, "Input",ExpressionUUID->"d67f3b68-ee44-40bc-b1d3-5db22f59f25a"]
}, Closed]],
Cell[CellGroupData[{
Cell[240046, 4573, 597, 9, 45, "Subsubsection",ExpressionUUID->"c233c022-fc58-4790-9b4f-4ef3d039c34c"],
Cell[240646, 4584, 14927, 277, 1717, "Input",ExpressionUUID->"775eb904-582a-49ed-8001-be3239374fe3"]
}, Closed]],
Cell[CellGroupData[{
Cell[255610, 4866, 640, 9, 45, "Subsubsection",ExpressionUUID->"24f794b0-78cf-45f8-940c-eb393aa6735c"],
Cell[256253, 4877, 13837, 260, 1573, "Input",ExpressionUUID->"0a6e20cd-e506-4177-bd05-893ffab25d86"]
}, Closed]],
Cell[CellGroupData[{
Cell[270127, 5142, 691, 10, 45, "Subsubsection",ExpressionUUID->"cbce8631-3e7f-4642-87b3-6e5ba739a0d7"],
Cell[270821, 5154, 15768, 305, 2025, "Input",ExpressionUUID->"35bf9dc6-dce0-40ee-8798-a53b1ac90f18"]
}, Closed]],
Cell[CellGroupData[{
Cell[286626, 5464, 638, 9, 45, "Subsubsection",ExpressionUUID->"d899e737-24d5-4f79-bd9c-d9befd2acd57"],
Cell[287267, 5475, 12291, 234, 1304, "Input",ExpressionUUID->"cf37476f-c899-4a76-9667-adb46180fef8"]
}, Closed]],
Cell[CellGroupData[{
Cell[299595, 5714, 481, 7, 45, "Subsubsection",ExpressionUUID->"a8adb350-25e3-4b89-8ab4-601fee164a89"],
Cell[300079, 5723, 2108, 46, 420, "Input",ExpressionUUID->"fd4d4021-b192-4de5-ae07-10e0382f67ea"]
}, Closed]],
Cell[CellGroupData[{
Cell[302224, 5774, 623, 9, 45, "Subsubsection",ExpressionUUID->"d1c4b245-54df-4f38-806a-dcbc6d9431f3"],
Cell[302850, 5785, 16503, 312, 1860, "Input",ExpressionUUID->"ddf6d310-d955-4d44-b71c-42b9bbe1d38e"]
}, Closed]],
Cell[CellGroupData[{
Cell[319390, 6102, 423, 6, 45, "Subsubsection",ExpressionUUID->"50ac03c9-beb4-441c-9d98-3a29ffdc51d5"],
Cell[319816, 6110, 57830, 1098, 6084, "Input",ExpressionUUID->"2f062e5f-4240-4bad-b0c6-37ed9eafb57d"]
}, Closed]],
Cell[CellGroupData[{
Cell[377683, 7213, 328, 5, 78, "Subsubsection",ExpressionUUID->"bc3b9afd-ad1e-452c-8396-a0f51628c9f3"],
Cell[378014, 7220, 18138, 361, 3008, "Input",ExpressionUUID->"b5796d60-d86f-433b-a4e2-42b4274ecc98"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[396201, 7587, 409, 6, 79, "Subchapter",ExpressionUUID->"a7193052-5d08-4173-b2d9-e385dde7414a"],
Cell[CellGroupData[{
Cell[396635, 7597, 226, 4, 56, "Subsubsection",ExpressionUUID->"2dc65cdf-f396-413e-b331-cf83888fe0e7"],
Cell[396864, 7603, 607, 14, 246437, "Input",ExpressionUUID->"c4438fd1-f8d4-464f-9501-f5468f761d01"],
Cell[397474, 7619, 64729, 1321, 31447910, "Input",ExpressionUUID->"6eef729a-5d8b-4d37-9d68-c3bc75e80cfa"],
Cell[462206, 8942, 1279, 34, 170775, "Input",ExpressionUUID->"2276003c-7dcf-499d-a2e5-1d0401896ff4"]
}, Closed]],
Cell[CellGroupData[{
Cell[463522, 8981, 591, 10, 78, "Subsubsection",ExpressionUUID->"82b6a864-49de-4db6-a017-c0c56dfeed6d"],
Cell[464116, 8993, 5144, 110, 1190, "Input",ExpressionUUID->"e3e780be-6012-4299-9d54-14abf127ccd0"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[469309, 9109, 594, 9, 79, "Subchapter",ExpressionUUID->"0559d673-e389-47f0-a21b-3767d35230fc"],
Cell[CellGroupData[{
Cell[469928, 9122, 409, 6, 56, "Subsubsection",ExpressionUUID->"36fc39fc-3bf1-4f45-a0f4-8bfa6782a460"],
Cell[470340, 9130, 7442, 160, 1140, "Input",ExpressionUUID->"50a5ad39-8c63-4745-bd51-a1b71017c1c6"]
}, Closed]],
Cell[CellGroupData[{
Cell[477819, 9295, 488, 7, 45, "Subsubsection",ExpressionUUID->"d5d03a70-b482-4576-9ffd-973ba4f6addb"],
Cell[478310, 9304, 13306, 260, 1524, "Input",ExpressionUUID->"12f6e07c-75af-46c3-a9bd-398aad45f346"]
}, Closed]],
Cell[CellGroupData[{
Cell[491653, 9569, 417, 6, 45, "Subsubsection",ExpressionUUID->"9dd422c7-f9f1-4c2e-bef1-e3344ca5fa5f"],
Cell[492073, 9577, 8422, 169, 1140, "Input",ExpressionUUID->"4c6c4890-5b4e-46d1-9bc4-fee75516acba"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[500544, 9752, 673, 10, 79, "Subchapter",ExpressionUUID->"94643748-6661-4659-a651-0299832baaec"],
Cell[501220, 9764, 641, 11, 65, "Text",ExpressionUUID->"00c81862-3153-4d6a-b94a-abb01412949a"],
Cell[501864, 9777, 1130, 19, 35, "Input",ExpressionUUID->"46f619f8-6f7e-49d3-b0df-1e282619b080"],
Cell[502997, 9798, 562, 21, 412, "Text",ExpressionUUID->"81ef30d7-b6d2-40de-a1d9-1e7518dded45"],
Cell[503562, 9821, 4095, 81, 444, "Input",ExpressionUUID->"f5a43f75-1f62-4cf9-9a7f-1ddf57e2978a"]
}, Open  ]]
}, Open  ]]
}
]
*)