Nacaskul,Poomjai(2023.03.31).ThaiCapialMktLink.nb

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

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

(* CreatedBy='Mathematica 13.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    796111,      18132]
NotebookOptionsPosition[    750323,      17495]
NotebookOutlinePosition[    752461,      17540]
CellTagsIndexPosition[    752380,      17535]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"d221077b-ced1-42aa-b161-400de396ac64"],

Cell[TextData[{
 StyleBox["Multi-Paradigm Analysis of ",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["Thai Capital M",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["ar",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["k",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["e",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["t Link",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["ages",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None]
}], "Title",
 CellChangeTimes->{{3.8889733224978933`*^9, 3.888973343649993*^9}, 
   3.888973377357065*^9, {3.88914167191856*^9, 3.889141726588789*^9}, 
   3.8891605608528223`*^9},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"696b889a-19dd-44bc-b4da-f8fcecd7460a"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Part I. Bivariate Copula Approach",
 FontColor->GrayLevel[1]]], "Subsubsection",
 CellChangeTimes->{{3.875064507138184*^9, 3.875064510805688*^9}, {
   3.878278239576824*^9, 3.878278251901373*^9}, {3.878278631105335*^9, 
   3.8782786460326586`*^9}, {3.878780306537759*^9, 3.8787803068766427`*^9}, {
   3.879907613035598*^9, 3.879907614575369*^9}, {3.8799207827834115`*^9, 
   3.8799208073698564`*^9}, {3.8851914936468697`*^9, 3.8851915000629387`*^9}, 
   3.8891417856599226`*^9},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"9b9f6cc2-21fa-4af6-9dfe-55e32cb5e7e3"],

Cell[TextData[StyleBox["Poomjai Nacaskul, Ph.D.",
 FontSize->24,
 FontWeight->"Bold",
 FontColor->GrayLevel[1]]], "Author",
 CellChangeTimes->{{3.888973403835884*^9, 3.888973415957621*^9}, {
  3.88914180780099*^9, 3.889141820156021*^9}},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"d0110ea0-cbc4-44ae-9d63-767878962062"],

Cell[TextData[StyleBox["2023.03.31",
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.8713456840497117`*^9, 3.8713456876160254`*^9}, {
   3.871345775975469*^9, 3.871345776904157*^9}, {3.871510139631436*^9, 
   3.8715101405909257`*^9}, {3.8724629762226934`*^9, 
   3.8724629773699017`*^9}, {3.8737710280597725`*^9, 
   3.8737710359277973`*^9}, {3.8738568025000906`*^9, 3.873856803019414*^9}, {
   3.873939205165445*^9, 3.873939205677453*^9}, {3.8743596248494673`*^9, 
   3.874359625242044*^9}, {3.8750017301577554`*^9, 3.8750017308440323`*^9}, {
   3.875064440437437*^9, 3.8750644424578524`*^9}, {3.8752192571420364`*^9, 
   3.8752192578607607`*^9}, {3.8782782569263105`*^9, 3.878278258646419*^9}, {
   3.878680486732724*^9, 3.878680488853014*^9}, {3.8787695800471706`*^9, 
   3.8787695804801354`*^9}, {3.8788508927279806`*^9, 3.878850894930314*^9}, {
   3.878872025588595*^9, 3.8788720295144653`*^9}, {3.878944540769303*^9, 
   3.878944541131344*^9}, {3.879297357004484*^9, 3.879297357690538*^9}, {
   3.8799070600728455`*^9, 3.879907061420087*^9}, {3.8800040148043585`*^9, 
   3.8800040154933567`*^9}, {3.880082389037445*^9, 3.8800823896979666`*^9}, {
   3.8801443918157597`*^9, 3.880144392371735*^9}, {3.880234476387456*^9, 
   3.88023447685857*^9}, {3.880407454248597*^9, 3.8804074548496447`*^9}, {
   3.880607783426791*^9, 3.8806077835665684`*^9}, {3.880665381293962*^9, 
   3.880665381693717*^9}, {3.8824037991662436`*^9, 3.882403804145291*^9}, {
   3.882575638825726*^9, 3.882575639191471*^9}, {3.8837030946017375`*^9, 
   3.8837030957541246`*^9}, {3.883782588589318*^9, 3.8837825891013546`*^9}, {
   3.8851796676111403`*^9, 3.88517966829814*^9}, {3.8852510683575716`*^9, 
   3.885251068779319*^9}, 3.8853441316893744`*^9, {3.885418024335279*^9, 
   3.885418024649368*^9}, {3.8856056960454187`*^9, 3.8856056967885513`*^9}, {
   3.8857060030532913`*^9, 3.885706003811681*^9}, {3.8857716314441442`*^9, 
   3.8857716323711596`*^9}, {3.8858537519916754`*^9, 
   3.8858537525684457`*^9}, {3.885953719030515*^9, 3.8859537192314177`*^9}, {
   3.8860427886868787`*^9, 3.88604278915788*^9}, {3.8861110938674803`*^9, 
   3.8861110944596596`*^9}, {3.8877532429375496`*^9, 
   3.8877532453732915`*^9}, {3.889050550147873*^9, 3.889050550951415*^9}, {
   3.8891399580056877`*^9, 3.8891399596256995`*^9}, {3.8892186507955074`*^9, 
   3.889218652396516*^9}},ExpressionUUID->"16cca0e7-87dc-482b-ac54-\
e4dfdd548c3d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["1. Data, Stats & Fitted Univariate Distributions", "Section",
 CellChangeTimes->{{3.8531086817641788`*^9, 3.8531086824037175`*^9}, {
  3.8532789254794636`*^9, 3.853278935911662*^9}, {3.8532804054806623`*^9, 
  3.85328040920152*^9}, {3.8532805128574877`*^9, 
  3.8532805233859005`*^9}},ExpressionUUID->"6c69614b-3113-45a3-b1ca-\
76e5c5021de8"],

Cell[CellGroupData[{

Cell["Set Session", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
   3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
   3.853279970705259*^9}, {3.853280069721923*^9, 3.8532800713044753`*^9}, {
   3.880004003236344*^9, 3.880004006028346*^9}, 3.880005382662027*^9},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"a82cb731-8d72-4df9-aca3-2b8225badea8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"DIR0", "=", 
     RowBox[{"SetDirectory", "@", 
      RowBox[{"NotebookDirectory", "[", "]"}]}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"INPUTDIR0", "=", 
     RowBox[{"DIR0", "<>", "\"\<\\\\(input)\\\\\>\""}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"OUTPUTDIR0", "=", 
     RowBox[{"DIR0", "<>", "\"\<\\\\(output)\\\\\>\""}]}]}], "}"}], "//", 
  "TableForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"EXPORTTABLES", ",", "EXPORTPICS"}], "}"}], "=", 
    RowBox[{"{", 
     RowBox[{"False", ",", "False"}], "}"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"caution", ":", " ", 
    RowBox[{"may", " ", "take", " ", "minutes", " ", "to", " ", "execute"}]}],
    "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"EXPORTDEMOPICS", ",", "DEPLOYAPP"}], "}"}], "=", 
    RowBox[{"{", 
     RowBox[{"False", ",", "False"}], "}"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"caution", ":", " ", 
    RowBox[{
    "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
     "execute"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SeedRandom", "[", 
   RowBox[{"RANDOMSEED0", "=", "1234"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.889160319723113*^9, 3.8891603617870703`*^9}, {
  3.8891604175902824`*^9, 3.8891604223590174`*^9}, {3.8891635947272043`*^9, 
  3.889163611150265*^9}, {3.8891636646605*^9, 3.8891636856124754`*^9}, {
  3.8891637186013036`*^9, 3.8891637601113515`*^9}, {3.889163871080573*^9, 
  3.889163874665368*^9}, {3.889218514892374*^9, 3.889218528410821*^9}, {
  3.8892207989405823`*^9, 
  3.889220875200478*^9}},ExpressionUUID->"5c411729-2db8-4c5d-99a0-\
0f5b42942358"]
}, Closed]],

Cell[CellGroupData[{

Cell["Set Global Defaults", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
   3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
   3.853279970705259*^9}, {3.853280069721923*^9, 3.8532800713044753`*^9}, {
   3.880004003236344*^9, 3.880004006028346*^9}, 3.880005382662027*^9, {
   3.885435274067651*^9, 3.8854352770346556`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"fd6c5394-18b3-40a3-9d50-4ea8ceb8ab61"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"LISTIMAGESIZE0", "=", 
   RowBox[{"{", 
    RowBox[{"Automatic", ",", "Small", ",", 
     RowBox[{"IMAGESIZE0", "=", "Medium"}], ",", "Large"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LISTGRAPHLAYOUT0", "=", 
   RowBox[{"{", 
    RowBox[{
    "Automatic", ",", "\[IndentingNewLine]", "\"\<CircularEmbedding\>\"", 
     ",", "\"\<DiscreteSpiralEmbedding\>\"", ",", "\"\<GridEmbedding\>\"", 
     ",", "\[IndentingNewLine]", "\"\<BalloonEmbedding\>\"", ",", 
     RowBox[{"GRAPHLAYOUT0", "=", "\"\<RadialEmbedding\>\""}], ",", 
     "\"\<LayeredEmbedding\>\"", ",", "\[IndentingNewLine]", 
     "\"\<GravityEmbedding\>\"", ",", "\"\<HighDimensionalEmbedding\>\"", 
     ",", "\"\<SpectralEmbedding\>\"", ",", "\[IndentingNewLine]", 
     "\"\<SphericalEmbedding\>\"", ",", "\"\<SpringEmbedding\>\"", ",", 
     "\"\<SpringElectricalEmbedding\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"VERTEXSIZE0", "=", ".5"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8854352891613426`*^9, 3.8854353681875935`*^9}, {
  3.885436367079586*^9, 3.8854365591750317`*^9}, {3.885436595874724*^9, 
  3.885436643159589*^9}, {3.885436711633071*^9, 3.885436734068187*^9}, {
  3.885606891265688*^9, 3.885606893069603*^9}, {3.885606935406088*^9, 
  3.8856069355331707`*^9}, {3.8856280674910746`*^9, 3.885628120231854*^9}, {
  3.885782936827899*^9, 3.8857829728278294`*^9}, {3.885787158254985*^9, 
  3.88578716157792*^9}, {3.8890513676915565`*^9, 3.8890513779152937`*^9}, {
  3.889149672415678*^9, 3.889149686857545*^9}, {3.889149725899747*^9, 
  3.8891497263316765`*^9}},
 FontWeight->"Bold",
 CellLabel->"In[5]:=",ExpressionUUID->"bb402086-cc52-4a84-8220-3d80911826a5"],

Cell[BoxData[{
 RowBox[{"LISTCENTRALITYMETHOD0", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"CENTRALITYMETHOD0", "=", "\"\<Betweenness\>\""}], ",", 
    "\"\<Katz[.1]\>\"", ",", "\"\<PageRank[.1]\>\""}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"LISTDIMREDUCT0", "=", 
  RowBox[{"{", 
   RowBox[{"\"\<Linear\>\"", ",", 
    RowBox[{"DIMREDUCT0", "=", "\"\<TSNE\>\""}], ",", "\"\<Autoencoder\>\""}],
    "}"}]}]}], "Input",
 CellChangeTimes->{{3.8854352891613426`*^9, 3.8854353681875935`*^9}, {
  3.885436367079586*^9, 3.8854365591750317`*^9}, {3.885436595874724*^9, 
  3.885436643159589*^9}, {3.885436711633071*^9, 3.885436734068187*^9}, {
  3.885606891265688*^9, 3.885606893069603*^9}, {3.885606935406088*^9, 
  3.8856069355331707`*^9}, {3.8856280674910746`*^9, 3.885628120231854*^9}, {
  3.885782936827899*^9, 3.8857829728278294`*^9}, {3.885787158254985*^9, 
  3.88578716157792*^9}, {3.8890513676915565`*^9, 3.8890513779152937`*^9}, {
  3.889149672415678*^9, 3.889149737351841*^9}},
 FontWeight->"Bold",
 CellLabel->"In[8]:=",ExpressionUUID->"14a6d082-b226-48ed-9a54-2bf718b78386"]
}, Closed]],

Cell[CellGroupData[{

Cell["Capital Market Data", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.8532801706251445`*^9}, {3.880005400616885*^9, 
  3.880005408024914*^9}, {3.880005657212531*^9, 3.8800056710007668`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"619bd1e3-ba71-4897-a519-f9fcb4e41d78"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]Associate2Data", "[", "data_", "]"}], ":=", 
  RowBox[{"AssociationThread", "[", 
   RowBox[{
    RowBox[{"data", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "->", 
    RowBox[{"Transpose", "@", 
     RowBox[{"data", "[", 
      RowBox[{"[", 
       RowBox[{"2", ";;"}], "]"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Associate2Stat", "[", 
   RowBox[{"data_", ",", "stat_"}], "]"}], ":=", 
  RowBox[{"stat", "/@", 
   RowBox[{
   "\[ScriptCapitalP]\[ScriptCapitalN]Associate2Data", "[", "data", 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]Associate2Mtrx", "[", "matrix_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"dim", "=", 
      RowBox[{"Dimensions", "[", "matrix", "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Association", "@", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"matrix", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "1"}], "]"}], "]"}], "->", 
        RowBox[{"Association", "@", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"matrix", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "j"}], "]"}], "]"}], "->", 
            RowBox[{"matrix", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "2", ",", 
             RowBox[{"dim", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "2", ",", 
         RowBox[{"dim", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.8528595134963803`*^9, 3.852859561757221*^9}, {
   3.8528595995520763`*^9, 3.8528596210645065`*^9}, 3.852859720952722*^9, {
   3.8528601970987544`*^9, 3.852860204232746*^9}, {3.8532801253233666`*^9, 
   3.853280135179467*^9}, {3.866000145726143*^9, 3.866000148203085*^9}, {
   3.866012056020303*^9, 3.866012059540988*^9}, {3.879907450915445*^9, 
   3.879907489460468*^9}, 3.879907523487918*^9, 3.87990756795984*^9, {
   3.8799081054732633`*^9, 3.879908105932669*^9}, 3.8799084183392425`*^9, {
   3.8800827625419707`*^9, 3.880082769064991*^9}, {3.8891500661624565`*^9, 
   3.8891500667241077`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->"In[10]:=",ExpressionUUID->"813a167b-e248-4c31-be85-fa9d3ed9e5fd"],

Cell[BoxData[
 RowBox[{"dataThaiCapitalMktLink", "=", 
  RowBox[{"Import", "[", 
   RowBox[{
   "INPUTDIR0", "<>", "\"\<(input)ThaiCapitalMktLink-TimeSeries.csv\>\""}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8800055232465777`*^9, 3.880005528254139*^9}, 
   3.882414839073262*^9, 3.88916378304432*^9},
 CellLabel->"In[13]:=",ExpressionUUID->"ff0ae06b-d9f7-4897-91c8-78388e767e20"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[ScriptX]", "=", 
   RowBox[{
   "\[ScriptCapitalP]\[ScriptCapitalN]Associate2Data", "[", 
    "dataThaiCapitalMktLink", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"varName", "=", 
  RowBox[{"Keys", "@", 
   RowBox[{"\[ScriptX]", "[", 
    RowBox[{"[", 
     RowBox[{"2", ";;"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"vertexLabel", "=", 
  RowBox[{"Thread", "[", 
   RowBox[{
    RowBox[{"Range", "[", 
     RowBox[{"Length", "@", "varName"}], "]"}], "->", "varName"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"vertexNumberLabel", "=", 
  RowBox[{"Thread", "[", 
   RowBox[{
    RowBox[{"Range", "[", 
     RowBox[{"Length", "@", "varName"}], "]"}], "->", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "<>", "\"\<|\>\"", "<>", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"ToString", "/@", 
           RowBox[{"Range", "[", 
            RowBox[{"Length", "@", "varName"}], "]"}]}], ")"}], ",", 
         "varName"}], "}"}]}]}], ")"}]}], "]"}]}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQAmIQ/bZAUX7/ljeOvzQmKYPoR79LtUC0+v35piDa6kq+
J4heycXiBaLnl4j4gegfuqWJIPrn1U9ZIDptyqUcEH1msmk1iFZc1FUDotV0
2xtAdKzjhB4QvVA48KLF1jeOrmrxV0H03k+7G3YA6UNr5jSC6BMvdmXuAtLa
ZafA9F13hfl3tr9xdGvJA9P24bs0wl68ccz5MUMLRJ+58dAWRN9KrXAE0QsU
TXJA9JIvr/NA9PbQ+l4Q/XrpBjBtFHdhOog+stRyI1jfS+WtINouyAhMBy55
twtEPz+yYDeInnV40jEQXVe+9hqIfsnbyhMOpCevngWmZ5nVfWkFmav38juI
VjmSvXc1kI44234IRLc8jlV8+OmN4zeZNDAtwfQrCUSfSp2QAqKPHc2bC6K3
RJgtBtHTgr7Jfv/5xtGRg0sORAMAeuDz3A==
  "],
 Background->RGBColor[0.9, 1, 1],
 CellLabel->"In[14]:=",ExpressionUUID->"e69aab8f-5d02-4058-9177-801700b7820e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"listDistr", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
    "NormalDistribution", ",", "StudentTDistribution", ",", 
     "\[IndentingNewLine]", "CauchyDistribution", ",", "LogisticDistribution",
      ",", "\[IndentingNewLine]", "LaplaceDistribution", ",", 
     "GammaDistribution"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "minmax", ",", "mean", ",", "stdev", ",", "skewness", ",", "kurtosis", 
     ",", "JarqueBera", ",", "ShapiroWilk", ",", "histogram", ",", 
     "\[ScriptCapitalH]", ",", "\[ScriptCapitalD]"}], "}"}], "=", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Associate2Stat", "[", 
      RowBox[{
       RowBox[{"dataThaiCapitalMktLink", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"2", ";;"}]}], "]"}], "]"}], ",", "#"}], "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{
     "MinMax", ",", "\[IndentingNewLine]", "Mean", ",", "StandardDeviation", 
      ",", "Skewness", ",", "Kurtosis", ",", "JarqueBeraALMTest", ",", 
      "ShapiroWilkTest", ",", "\[IndentingNewLine]", "Histogram", ",", 
      "HistogramDistribution", ",", 
      RowBox[{
       RowBox[{"FindDistribution", "[", 
        RowBox[{"#", ",", 
         RowBox[{"TargetFunctions", "\[Rule]", "listDistr"}]}], "]"}], 
       "&"}]}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQAmIQ/bZAUX7/ljeOvzQmKYPoR79LtUC0+v35piDa6kq+
J4heycXiBaLnl4j4gegfuqWJIPrn1U9ZIDptyqUcEH1msmk1iFZc1FUDotV0
2xtAdKzjhB4QvVA48KLF1jeOrmrxV0H03k+7G3YA6UNr5jSC6BMvdmXuAtLa
ZafA9F13hfl3tr9xdGvJA9P24bs0wl68ccz5MUMLRJ+58dAWRN9KrXAE0QsU
TXJA9JIvr/NA9PbQ+l4Q/XrpBjBtFHdhOog+stRyI1jfS+WtINouyAhMBy55
twtEPz+yYDeInnV40jEQXVe+9hqIfsnbyhMOpCevngWmZ5nVfWkFmav38juI
VjmSvXc1kI44234IRLc8jlV8+OmN4zeZNDAtwfQrCUSfSp2QAqKPHc2bC6K3
RJgtBtFvUwPkv/8Ehi97LJgGAIAb9Kw=
  "],
 Background->RGBColor[0.9, 1, 1],
 CellLabel->"In[18]:=",ExpressionUUID->"e8e56739-80d3-4d6b-9253-f6f3159faf3d"],

Cell[BoxData[
 RowBox[{"tableBasicStat", "=", "\[IndentingNewLine]", 
  RowBox[{"Grid", "[", 
   RowBox[{
    RowBox[{"Prepend", "[", 
     RowBox[{
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Keys", "@", "\[ScriptCapitalD]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"Round", "[", 
            RowBox[{"#", ",", "0.0001"}], "]"}], "&"}], "/@", 
          RowBox[{"Values", "@", "mean"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Round", "[", 
            RowBox[{"#", ",", "0.001"}], "]"}], "&"}], "/@", 
          RowBox[{"Values", "@", "stdev"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"Round", "[", 
            RowBox[{"#", ",", "0.001"}], "]"}], "&"}], "/@", 
          RowBox[{"Values", "@", "skewness"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Round", "[", 
            RowBox[{"#", ",", "0.01"}], "]"}], "&"}], "/@", 
          RowBox[{"Values", "@", "kurtosis"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"Values", "@", "ShapiroWilk"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "Bold"}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Series\>\"", ",", "\"\<Mean\>\"", ",", "\"\<StDev\>\"", ",", 
         "\"\<Skewness\>\"", ",", "\"\<Kurtosis\>\"", ",", 
         "\"\<Sharpiro-Wilk\>\""}], "}"}]}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Alignment", "->", "Left"}], ",", 
    RowBox[{"Frame", "->", "All"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.852779852399312*^9, 3.852780077212146*^9}, {
   3.8527801298095493`*^9, 3.85278020001163*^9}, {3.852780281192836*^9, 
   3.8527803933078566`*^9}, {3.8527815148220615`*^9, 3.852781515557336*^9}, {
   3.852781929193603*^9, 3.852781935712062*^9}, {3.8527850808588767`*^9, 
   3.8527850811149344`*^9}, {3.8528603477644053`*^9, 3.852860354070414*^9}, {
   3.852860644457714*^9, 3.852860664125693*^9}, {3.853108977637822*^9, 
   3.8531090135327516`*^9}, {3.853109091265835*^9, 3.8531091168039618`*^9}, {
   3.8531091767542505`*^9, 3.853109200194211*^9}, {3.853109233460111*^9, 
   3.8531092345051017`*^9}, 3.853109265830222*^9, {3.853370500081355*^9, 
   3.8533705012566195`*^9}, {3.8533706133127584`*^9, 3.853370635315773*^9}, 
   3.853370667033825*^9, {3.853370700002895*^9, 3.8533707001928406`*^9}, {
   3.85440768091039*^9, 3.85440768926519*^9}, {3.8632247056269193`*^9, 
   3.863224713653912*^9}, 3.8632248551968007`*^9, {3.879908272133204*^9, 
   3.8799082901115904`*^9}, {3.8799091065861654`*^9, 3.8799091109745407`*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->"In[20]:=",ExpressionUUID->"d73ad9ef-6733-41b5-8dc9-b6715a2b05d2"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{"OUTPUTDIR0", "<>", "\"\<(table)BasicStat\>\"", "<>", "#"}], 
       ",", "tableBasicStat"}], "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"\"\<.png\>\"", ",", "\"\<.pdf\>\"", ",", "\"\<.csv\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8632247348711376`*^9, 3.863224816462368*^9}, 
   3.863226016752447*^9, {3.865918348446356*^9, 3.8659183523015256`*^9}, {
   3.865919864927621*^9, 3.8659198676034937`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->"In[21]:=",ExpressionUUID->"0f9a41ef-9b9b-4033-b097-3b4e05052d0f"],

Cell[BoxData[
 RowBox[{"tableFittedDistr", "=", "\[IndentingNewLine]", 
  RowBox[{"Grid", "[", 
   RowBox[{
    RowBox[{"Prepend", "[", 
     RowBox[{
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Keys", "@", "\[ScriptCapitalD]"}], ",", 
         RowBox[{"Values", "@", "\[ScriptCapitalD]"}]}], "}"}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "Bold"}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{"\"\<Series\>\"", ",", "\"\<Fitted Distribution\>\""}], 
        "}"}]}]}], "]"}], ",", 
    RowBox[{"Alignment", "->", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"Right", ",", "Left"}], "}"}], "}"}]}], ",", 
    RowBox[{"Frame", "->", "All"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8532888405943894`*^9, 3.853288857576692*^9}, {
  3.8533704651765113`*^9, 3.8533704898084965`*^9}, {3.853370524110622*^9, 
  3.853370604439372*^9}, {3.8533706735518417`*^9, 3.8533706962792435`*^9}, {
  3.8632248381062307`*^9, 3.8632248500516243`*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->"In[22]:=",ExpressionUUID->"280641ff-7ba0-4bb4-a88f-7151e9d08e25"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{"OUTPUTDIR0", "<>", "\"\<(table)FittedDistr\>\"", "<>", "#"}], 
       ",", "tableFittedDistr"}], "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"\"\<.png\>\"", ",", "\"\<.pdf\>\"", ",", "\"\<.csv\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.865918305006603*^9, 3.8659183181385713`*^9}, {
  3.865918688108077*^9, 3.865918691029032*^9}, {3.8659198745589795`*^9, 
  3.865919875337146*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->"In[23]:=",ExpressionUUID->"3c49f942-3c94-4fdf-bf20-ebe3cfc0ff54"]
}, Closed]],

Cell[CellGroupData[{

Cell["Interactive Display", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"5ab78e08-89db-4336-b83d-560896758e48"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]FittedUnivarDistr", "[", 
   RowBox[{
    RowBox[{"series_", ":", "\"\<SET\>\""}], ",", 
    RowBox[{"sizeImage_", ":", "Medium"}], ",", 
    RowBox[{"sizeContent_", ":", "Automatic"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Grid", "[", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Plot", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"PDF", "[", 
             RowBox[{
              RowBox[{"\[ScriptCapitalD]", "[", "X", "]"}], ",", "x"}], "]"}],
             ",", 
            RowBox[{"PDF", "[", 
             RowBox[{
              RowBox[{"\[ScriptCapitalH]", "[", "X", "]"}], ",", "x"}], 
             "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{
             RowBox[{"minmax", "[", "X", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"minmax", "[", "X", "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Filling", "->", 
           RowBox[{"{", 
            RowBox[{"1", "->", 
             RowBox[{"{", "2", "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"PlotRange", "->", "All"}], ",", "\[IndentingNewLine]", 
          RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"Grid", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"\"\<Mean\>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"mean", "[", "X", "]"}], ",", "0.0001"}], "]"}]}], 
             "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"\"\<StDev\>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"stdev", "[", "X", "]"}], ",", "0.001"}], "]"}]}], 
             "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"\"\<Skewness\>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"skewness", "[", "X", "]"}], ",", "0.001"}], "]"}]}], 
             "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"\"\<Kurtosis\>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"kurtosis", "[", "X", "]"}], ",", "0.01"}], "]"}]}], 
             "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"\"\<Sharpiro-Wilk\>\"", ",", 
              RowBox[{"ShapiroWilk", "[", "X", "]"}]}], "}"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"\"\<fitted distribution\>\"", ",", 
              RowBox[{"\[ScriptCapitalD]", "[", "X", "]"}]}], "}"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"Alignment", "->", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"Right", ",", "Left"}], "}"}], "}"}]}], ",", 
          RowBox[{"Frame", "->", "All"}]}], "]"}], "}"}]}], "}"}], "]"}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{
       "\"\<Fitted Univariate Distribution\>\"", ",", "Bold", ",", "Large", 
        ",", 
        TemplateBox[<|"color" -> RGBColor[0.25, 0.5, 0.75]|>,
         "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Style", "[", 
       RowBox[{
       "\"\<Poomjai Nacaskul, Ph.D.\>\"", ",", "Bold", ",", "Medium", ",", 
        TemplateBox[<|"color" -> RGBColor[0, 0, 0.75]|>,
         "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<2021.02.12\>\"", ",", "Bold", ",", "Small", ",", 
        TemplateBox[<|"color" -> RGBColor[0.45, 0.3, 0.15]|>,
         "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
      "Delimiter", ","}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"X", ",", "series"}], "}"}], ",", 
      RowBox[{"Keys", "@", "\[ScriptCapitalD]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"ContentSize", "->", "sizeContent"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ControlPlacement", "->", "Right"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.852785148991362*^9, 3.852785273742261*^9}, {
   3.852785310250885*^9, 3.852785316323321*^9}, {3.8527853590672665`*^9, 
   3.8527855161353335`*^9}, {3.8527855498506327`*^9, 3.85278574317982*^9}, {
   3.8527857921588397`*^9, 3.8527858316278715`*^9}, {3.852860364667326*^9, 
   3.852860369241375*^9}, {3.85286057835288*^9, 3.8528605930928755`*^9}, 
   3.852860673025681*^9, {3.8531092111946087`*^9, 3.853109227826106*^9}, {
   3.853109273085144*^9, 3.853109337713776*^9}, {3.8532850874564266`*^9, 
   3.8532851155246344`*^9}, {3.853285168152754*^9, 3.8532852040236216`*^9}, {
   3.8533707320308237`*^9, 3.853370762107934*^9}, {3.853381969112298*^9, 
   3.8533819875669794`*^9}, {3.853382034992381*^9, 3.8533820372794523`*^9}, {
   3.853382202981948*^9, 3.8533822039315863`*^9}, {3.8533822436286387`*^9, 
   3.8533822456166077`*^9}, {3.8533823265527573`*^9, 3.853382331419388*^9}, {
   3.8533926951731157`*^9, 3.8533927016281214`*^9}, {3.85346667059312*^9, 
   3.8534666710450916`*^9}, {3.853637420530503*^9, 3.8536374212112007`*^9}, {
   3.8537271619880447`*^9, 3.8537272218411245`*^9}, {3.8837031623801026`*^9, 
   3.883703163097873*^9}, {3.8837049432354956`*^9, 3.883704947003398*^9}, {
   3.883782657697884*^9, 3.883782700568446*^9}, {3.8837827308667145`*^9, 
   3.8837827311833744`*^9}, {3.883782796168007*^9, 3.8837828229481916`*^9}, {
   3.8837828609004736`*^9, 3.8837828995095987`*^9}, {3.883782930741878*^9, 
   3.8837831046526933`*^9}, {3.8837831983074665`*^9, 3.883783232871761*^9}, {
   3.8837835159998393`*^9, 3.883783519643829*^9}, {3.8837835698246326`*^9, 
   3.8837835746119823`*^9}, {3.8837837066836677`*^9, 3.8837837402172837`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->"In[24]:=",ExpressionUUID->"ead8d3bd-f89d-4641-af52-063004596775"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]FittedUnivarDistr", "[", "]"}], 
   ",", 
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]FittedUnivarDistr", "[", 
    RowBox[{"\"\<BondFlow\>\"", ",", "600", ",", 
     RowBox[{"{", 
      RowBox[{"600", ",", "Automatic"}], "}"}]}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.8837831099042883`*^9, 3.8837831150314436`*^9}, {
  3.883783168475552*^9, 3.8837831838372817`*^9}, {3.883783238481362*^9, 
  3.8837832866671467`*^9}, {3.8837833320382166`*^9, 3.883783335968251*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"0b809af8-693f-4d65-a83c-e4008fdaa5a5"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTDEMOPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"(*", 
     RowBox[{"caution", ":", " ", 
      RowBox[{
      "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
       "execute"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", "\"\<(figure)DemoFittedUnivariateDistr-\>\"", "<>",
          "#", "<>", "\"\<.png\>\""}], ",", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]FittedUnivarDistr", "[", 
         RowBox[{"#", ",", "600", ",", 
          RowBox[{"{", 
           RowBox[{"600", ",", "Automatic"}], "}"}]}], "]"}]}], "]"}], "&"}], 
     "/@", "varName"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8659183908689857`*^9, 3.8659183945085135`*^9}, {
   3.8659198840707097`*^9, 3.865919884450821*^9}, {3.883704974092539*^9, 
   3.8837050038915415`*^9}, {3.883783144181774*^9, 3.88378314937951*^9}, 
   3.8837833495741434`*^9, {3.883784662884652*^9, 3.8837846642146497`*^9}, 
   3.8837913308353357`*^9, {3.8837914002499266`*^9, 3.8837914021121163`*^9}, {
   3.8891405648415804`*^9, 3.889140566433777*^9}, {3.8891405990843754`*^9, 
   3.889140613287575*^9}, {3.889140722387921*^9, 3.88914073663912*^9}, 
   3.8891410726427393`*^9},
 Background->RGBColor[1, 1, 0],
 CellLabel->"In[26]:=",ExpressionUUID->"fae42d0a-ce1a-4062-b2ef-1040feaac040"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"NotebookSave", "[", "]"}], ";", 
   RowBox[{"EmitSound", "[", 
    RowBox[{"Sound", "[", 
     RowBox[{"SoundNote", "[", 
      RowBox[{"\"\<C\>\"", ",", ".5", ",", "\"\<Violin\>\""}], "]"}], "]"}], 
    "]"}]}],
  FontColor->GrayLevel[1]]], "Input",
 CellChangeTimes->{{3.8799140033373775`*^9, 3.879914004747589*^9}, 
   3.880002577173757*^9, {3.883723918193898*^9, 3.8837239212077284`*^9}, {
   3.883787399583018*^9, 3.883787400193737*^9}},
 Background->GrayLevel[0],
 CellLabel->"In[27]:=",ExpressionUUID->"4fa8dae2-bff2-45f2-af75-6b2b1b7bacde"]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"1beac911-f9cc-4ece-aedc-c26e6c9c3ba3"],

Cell[TextData[{
 StyleBox["Multi-Paradigm Analysis of ",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["Thai Capital M",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["ar",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["k",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["e",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["t Link",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["ages",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None]
}], "Title",
 CellChangeTimes->{{3.8889733224978933`*^9, 3.888973343649993*^9}, 
   3.888973377357065*^9, {3.88914167191856*^9, 3.889141726588789*^9}, 
   3.8891605582225494`*^9},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"e32c4eb8-c81e-4bcf-a2b5-346537bcfc46"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Part I. Bivariate Copula Approach",
 FontColor->GrayLevel[1]]], "Subsubsection",
 CellChangeTimes->{{3.875064507138184*^9, 3.875064510805688*^9}, {
   3.878278239576824*^9, 3.878278251901373*^9}, {3.878278631105335*^9, 
   3.8782786460326586`*^9}, {3.878780306537759*^9, 3.8787803068766427`*^9}, {
   3.879907613035598*^9, 3.879907614575369*^9}, {3.8799207827834115`*^9, 
   3.8799208073698564`*^9}, {3.8851914936468697`*^9, 3.8851915000629387`*^9}, 
   3.8891417856599226`*^9},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"9098a509-d9de-4540-ad2a-919e58a48bf3"],

Cell[TextData[StyleBox["Poomjai Nacaskul, Ph.D.",
 FontSize->24,
 FontWeight->"Bold",
 FontColor->GrayLevel[1]]], "Author",
 CellChangeTimes->{{3.888973403835884*^9, 3.888973415957621*^9}, {
  3.88914180780099*^9, 3.889141820156021*^9}},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"a155319d-5675-4c61-a569-f1f932850f53"],

Cell[TextData[StyleBox["2023.03.31",
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.8713456840497117`*^9, 3.8713456876160254`*^9}, {
   3.871345775975469*^9, 3.871345776904157*^9}, {3.871510139631436*^9, 
   3.8715101405909257`*^9}, {3.8724629762226934`*^9, 
   3.8724629773699017`*^9}, {3.8737710280597725`*^9, 
   3.8737710359277973`*^9}, {3.8738568025000906`*^9, 3.873856803019414*^9}, {
   3.873939205165445*^9, 3.873939205677453*^9}, {3.8743596248494673`*^9, 
   3.874359625242044*^9}, {3.8750017301577554`*^9, 3.8750017308440323`*^9}, {
   3.875064440437437*^9, 3.8750644424578524`*^9}, {3.8752192571420364`*^9, 
   3.8752192578607607`*^9}, {3.8782782569263105`*^9, 3.878278258646419*^9}, {
   3.878680486732724*^9, 3.878680488853014*^9}, {3.8787695800471706`*^9, 
   3.8787695804801354`*^9}, {3.8788508927279806`*^9, 3.878850894930314*^9}, {
   3.878872025588595*^9, 3.8788720295144653`*^9}, {3.878944540769303*^9, 
   3.878944541131344*^9}, {3.879297357004484*^9, 3.879297357690538*^9}, {
   3.8799070600728455`*^9, 3.879907061420087*^9}, {3.8800040148043585`*^9, 
   3.8800040154933567`*^9}, {3.880082389037445*^9, 3.8800823896979666`*^9}, {
   3.8801443918157597`*^9, 3.880144392371735*^9}, {3.880234476387456*^9, 
   3.88023447685857*^9}, {3.880407454248597*^9, 3.8804074548496447`*^9}, {
   3.880607783426791*^9, 3.8806077835665684`*^9}, {3.880665381293962*^9, 
   3.880665381693717*^9}, {3.8824037991662436`*^9, 3.882403804145291*^9}, {
   3.882575638825726*^9, 3.882575639191471*^9}, {3.8837030946017375`*^9, 
   3.8837030957541246`*^9}, {3.883782588589318*^9, 3.8837825891013546`*^9}, {
   3.8851796676111403`*^9, 3.88517966829814*^9}, {3.8852510683575716`*^9, 
   3.885251068779319*^9}, 3.8853441316893744`*^9, {3.885418024335279*^9, 
   3.885418024649368*^9}, {3.8856056960454187`*^9, 3.8856056967885513`*^9}, {
   3.8857060030532913`*^9, 3.885706003811681*^9}, {3.8857716314441442`*^9, 
   3.8857716323711596`*^9}, {3.8858537519916754`*^9, 
   3.8858537525684457`*^9}, {3.885953719030515*^9, 3.8859537192314177`*^9}, {
   3.8860427886868787`*^9, 3.88604278915788*^9}, {3.8861110938674803`*^9, 
   3.8861110944596596`*^9}, {3.8877532429375496`*^9, 
   3.8877532453732915`*^9}, {3.889050550147873*^9, 3.889050550951415*^9}, {
   3.8891399580056877`*^9, 3.8891399596256995`*^9}, 
   3.8892186420529594`*^9},ExpressionUUID->"719990cd-e0c4-404b-bfd2-\
012393363a52"]
}, Open  ]],

Cell[CellGroupData[{

Cell["2. Pair-Plot (Lower-Triangle/Diagonal/Upper-Triangle)", "Section",
 CellChangeTimes->{{3.8531086817641788`*^9, 3.8531086824037175`*^9}, {
  3.853109772392812*^9, 3.853109783167832*^9}, {3.85327896159962*^9, 
  3.8532790277676764`*^9}, {3.853280415185317*^9, 
  3.853280416489481*^9}},ExpressionUUID->"d10d27a5-d38b-473c-ac5e-\
a50b1411acfe"],

Cell[CellGroupData[{

Cell["L/D/U-Plot Template", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"f43944ec-bdd3-4c8b-ab92-923dcfb3418a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnL", "[", 
    RowBox[{"x_", ",", "OprnL_"}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"OprnL", "[", 
        RowBox[{
         RowBox[{"x", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"x", "[", 
          RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", 
         RowBox[{"i", "-", "1"}]}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", "2", ",", 
       RowBox[{"Length", "@", "x"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnLD", "[", 
    RowBox[{"x_", ",", "OprnL_", ",", "OprnD_"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"OprnL", "[", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"x", "[", 
            RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", 
           RowBox[{"i", "-", "1"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"OprnD", "[", 
         RowBox[{"x", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "@", "x"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnLDU", "[", 
    RowBox[{"x_", ",", "OprnL_", ",", "OprnD_", ",", "OprnU_"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"OprnL", "[", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"x", "[", 
            RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", 
           RowBox[{"i", "-", "1"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"OprnD", "[", 
         RowBox[{"x", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}], "}"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"OprnU", "[", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"x", "[", 
            RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", 
           RowBox[{"i", "+", "1"}], ",", 
           RowBox[{"Length", "@", "x"}]}], "}"}]}], "]"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "@", "x"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grid", "[", 
   RowBox[{"table_", ",", "colheader_", ",", "rowheader_", ",", 
    RowBox[{"title_", ":", "\"\<\>\""}], ",", 
    RowBox[{"headerstyle_", ":", 
     RowBox[{"{", 
      RowBox[{"Large", ",", "Bold", ",", 
       TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
        "RGBColorSwatchTemplate"]}], "}"}]}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Grid", "[", 
   RowBox[{
    RowBox[{"Prepend", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Prepend", "[", 
         RowBox[{
          RowBox[{"table", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"colheader", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", "headerstyle"}], "]"}]}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{"Length", "@", "table"}]}], "}"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "headerstyle"}], "]"}], "&"}], "/@", 
       RowBox[{"Prepend", "[", 
        RowBox[{"rowheader", ",", "title"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"Alignment", "->", 
     RowBox[{"{", 
      RowBox[{"Center", ",", "Center"}], "}"}]}], ",", 
    RowBox[{"ItemSize", "->", "All"}], ",", 
    RowBox[{"Frame", "->", "All"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.850622586692833*^9, 3.8506226272117662`*^9}, 
   3.8506226742051964`*^9, {3.850623005316287*^9, 3.8506230293013897`*^9}, {
   3.8506230748401947`*^9, 3.8506230954844723`*^9}, {3.853111397922191*^9, 
   3.8531114500499763`*^9}, {3.8531131939561872`*^9, 
   3.8531132122492313`*^9}, {3.8531132799352612`*^9, 
   3.8531132807912407`*^9}, {3.8531138577610617`*^9, 3.8531139336763*^9}, {
   3.8531147548543267`*^9, 3.853114779987919*^9}, {3.8533696755554934`*^9, 
   3.8533696888235846`*^9}, {3.8533697279373302`*^9, 3.853369835576291*^9}, {
   3.853370305200221*^9, 3.853370320207325*^9}, {3.853370986289273*^9, 
   3.853371003937289*^9}, {3.853371066408263*^9, 3.853371195306027*^9}, {
   3.853371989982216*^9, 3.853372078590677*^9}, {3.8533722036427445`*^9, 
   3.8533722129868436`*^9}, {3.853372310363283*^9, 3.8533723505875015`*^9}, {
   3.853372441439454*^9, 3.853372767242544*^9}, {3.853381519328438*^9, 
   3.8533815318624*^9}, {3.853392719951219*^9, 3.853392756262185*^9}, {
   3.854405798193248*^9, 3.854405806664382*^9}, {3.8544058554232244`*^9, 
   3.854405962500221*^9}, {3.8544060429203625`*^9, 3.8544060466523952`*^9}, {
   3.854406170616269*^9, 3.8544061746520967`*^9}, {3.854406215304197*^9, 
   3.8544062329583464`*^9}, {3.854406348092265*^9, 3.854406356993188*^9}, {
   3.8544064417474537`*^9, 3.8544064732962976`*^9}, {3.8544065244761972`*^9, 
   3.8544065291043167`*^9}, {3.854492640650849*^9, 3.854492647272849*^9}, {
   3.8544926787709007`*^9, 3.8544926991406565`*^9}, {3.8799099582015452`*^9, 
   3.8799099589859285`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->"In[28]:=",ExpressionUUID->"79f5a74c-bd1d-4c4e-b008-e3acb888f88e"],

Cell[BoxData[
 RowBox[{"gridPearsonHistogramScatter", "=", "\[IndentingNewLine]", 
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]Grid", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
    "\[ScriptCapitalP]\[ScriptCapitalN]PairOprnLDU", "[", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Values", "@", 
       RowBox[{"\[ScriptX]", "[", 
        RowBox[{"[", 
         RowBox[{"2", ";;"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListPlot", "[", 
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{"#1", ",", "#2"}], "}"}], "]"}], "]"}], "&"}], ",", 
      "Histogram", ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"Round", "[", 
          RowBox[{
           RowBox[{"Correlation", "[", 
            RowBox[{"#1", ",", "#2"}], "]"}], ",", "0.001"}], "]"}], ",", 
         "Large"}], "]"}], "&"}]}], "]"}], ",", "\[IndentingNewLine]", 
    "varName", ",", "varName", ",", 
    "\"\<  Pearson[U]\\n Histogram[D]\\nScatter[L]\>\""}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.8543992751416135`*^9, 3.854405815233342*^9, {3.8544060307443256`*^9, 
   3.854406077786392*^9}, 3.8544063815593953`*^9, {3.854414962166147*^9, 
   3.8544150021341515`*^9}, {3.8544155865460744`*^9, 3.854415612657114*^9}, {
   3.854492748986678*^9, 3.854492750254799*^9}, {3.863225095090067*^9, 
   3.8632251041642694`*^9}, {3.8659184474544735`*^9, 3.865918454586465*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->"In[32]:=",ExpressionUUID->"e0c33401-b36e-4e6d-b594-bd93d493d17c"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{
      "OUTPUTDIR0", "<>", 
       "\"\<(figure)Scatter[L]-Histogram[D]-Pearson[U].png\>\""}], ",", 
      "gridPearsonHistogramScatter"}], "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8659184723894134`*^9, 3.8659185110207553`*^9}, {
  3.8837936846935997`*^9, 3.8837936985971823`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->"In[33]:=",ExpressionUUID->"8a942b14-0950-4c7d-83a1-528127f55f27"]
}, Closed]],

Cell[CellGroupData[{

Cell["Mean/StDev/Pearson/Spearman/Kendall Stats", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.85328002756677*^9, 3.853280051528612*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"747922c4-04fc-41af-98e7-59742f20cc6e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]\[Mu]\[Sigma]", "[", 
   RowBox[{"x_", ",", 
    RowBox[{"rounding_", ":", 
     RowBox[{"{", 
      RowBox[{"0.001", ",", "0.001"}], "}"}]}], ",", 
    RowBox[{"style_", ":", "Large"}]}], "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"Grid", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "style"}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{"\"\<mean\>\"", ",", 
         RowBox[{"Round", "[", 
          RowBox[{
           RowBox[{"Mean", "[", "x", "]"}], ",", 
           RowBox[{"rounding", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "style"}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{"\"\<stdev\>\"", ",", 
         RowBox[{"Round", "[", 
          RowBox[{
           RowBox[{"StandardDeviation", "[", "x", "]"}], ",", 
           RowBox[{"rounding", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "}"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Alignment", "->", "Left"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]\[Rho]\[Rho]\[Tau]", "[", 
   RowBox[{"x1_", ",", "x2_", ",", 
    RowBox[{"rounding_", ":", 
     RowBox[{"{", 
      RowBox[{"0.001", ",", "0.001", ",", "0.001"}], "}"}]}], ",", 
    RowBox[{"style_", ":", "Large"}]}], "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"Grid", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "style"}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \(Pearson\
\)]\)\[Rho]\>\"", ",", 
         RowBox[{"Round", "[", 
          RowBox[{
           RowBox[{"Correlation", "[", 
            RowBox[{"x1", ",", "x2"}], "]"}], ",", 
           RowBox[{"rounding", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "style"}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \
\(Spearman\)]\)\[Rho]\>\"", ",", 
         RowBox[{"Round", "[", 
          RowBox[{
           RowBox[{"SpearmanRho", "[", 
            RowBox[{"x1", ",", "x2"}], "]"}], ",", 
           RowBox[{"rounding", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "style"}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \(Kendall\
\)]\)\[Tau]\>\"", ",", 
         RowBox[{"Round", "[", 
          RowBox[{
           RowBox[{"KendallTau", "[", 
            RowBox[{"x1", ",", "x2"}], "]"}], ",", 
           RowBox[{"rounding", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "}"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Alignment", "->", "Left"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.853114337937044*^9, 3.853114373471713*^9}, {
   3.853114419288271*^9, 3.8531144328315372`*^9}, 3.853114501011442*^9, 
   3.853114750824*^9, 3.8531148119512215`*^9, {3.8531148544181085`*^9, 
   3.853115017386656*^9}, {3.85311512296467*^9, 3.853115131299739*^9}, {
   3.8531153987070484`*^9, 3.8531154564062243`*^9}, {3.8531155097381496`*^9, 
   3.8531155745172825`*^9}, {3.854498172616544*^9, 3.8544982240735245`*^9}, 
   3.854498299435367*^9, {3.8544983391953783`*^9, 3.8544983408234034`*^9}, {
   3.8544986568139477`*^9, 3.8544986603069096`*^9}, {3.854498732928903*^9, 
   3.8544987544068584`*^9}, {3.8544987978128185`*^9, 
   3.8544987989897804`*^9}, {3.854498839328702*^9, 3.8544989325996003`*^9}, {
   3.8544989726995163`*^9, 3.85449898080054*^9}, {3.854499037100521*^9, 
   3.8544990424954987`*^9}, {3.8544991032833586`*^9, 3.854499104597426*^9}, {
   3.8545013121175222`*^9, 3.8545014289853663`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->"In[34]:=",ExpressionUUID->"6fb35701-cc2e-4930-ad37-1e0acd6c5291"],

Cell[BoxData[
 RowBox[{"gridPearsonSpearmanKendall", "=", "\[IndentingNewLine]", 
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]Grid", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnL", "[", 
     RowBox[{
      RowBox[{"Values", "@", 
       RowBox[{"\[ScriptX]", "[", 
        RowBox[{"[", 
         RowBox[{"2", ";;"}], "]"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]\[Rho]\[Rho]\[Tau]", "[", 
        RowBox[{
         RowBox[{"#1", "[", 
          RowBox[{"[", 
           RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
         RowBox[{"#2", "[", 
          RowBox[{"[", 
           RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], "&"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{";;", 
       RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
    "\"\<{\[Rho],\[Rho],\[Tau]}[L]\>\""}], "]"}]}]], "Input",
 CellChangeTimes->{{3.854501076832762*^9, 3.854501096331812*^9}, {
  3.8545011427666864`*^9, 3.854501151344734*^9}, {3.8632251582317553`*^9, 
  3.863225169513026*^9}, {3.879909751222886*^9, 3.8799097625143213`*^9}, {
  3.879910033538889*^9, 3.8799100376318474`*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->"In[36]:=",ExpressionUUID->"e90da854-6bb8-4c4f-908f-4513e17176c5"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{
     "OUTPUTDIR0", "<>", "\"\<(table)Pearson,Spearman,Kendall[L].png\>\""}], 
     ",", "gridPearsonSpearmanKendall"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8632252039497623`*^9, 3.8632252132399426`*^9}, 
   3.8632261550661216`*^9, {3.8659186270546246`*^9, 3.865918630009347*^9}, {
   3.8799098113967505`*^9, 3.8799098181123877`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->"In[37]:=",ExpressionUUID->"668bacf9-073b-464e-b654-2444e23fffc6"],

Cell[BoxData[
 RowBox[{"gridPearsonSpearmanKendallMuSigma", "=", "\[IndentingNewLine]", 
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]Grid", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnLD", "[", 
     RowBox[{
      RowBox[{"Values", "@", 
       RowBox[{"\[ScriptX]", "[", 
        RowBox[{"[", 
         RowBox[{"2", ";;"}], "]"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]\[Rho]\[Rho]\[Tau]", "[", 
        RowBox[{
         RowBox[{"#1", "[", 
          RowBox[{"[", 
           RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
         RowBox[{"#2", "[", 
          RowBox[{"[", 
           RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], "&"}], ",", 
      RowBox[{
       RowBox[{
       "\[ScriptCapitalP]\[ScriptCapitalN]\[Mu]\[Sigma]", "[", "#", "]"}], 
       "&"}]}], "]"}], ",", "\[IndentingNewLine]", "varName", ",", "varName", 
    ",", "\"\< {\[Mu],\[Sigma]}[D]\\n{\[Rho],\[Rho],\[Tau]}[L]\>\""}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.853373279584317*^9, 3.853373312379236*^9}, {
   3.853385516831813*^9, 3.853385559642931*^9}, {3.853385732861702*^9, 
   3.8533857500764575`*^9}, {3.8533928214281063`*^9, 
   3.8533928326522493`*^9}, {3.8533929238840866`*^9, 3.853392926747394*^9}, {
   3.853393049480048*^9, 3.8533930594682493`*^9}, {3.854416079816167*^9, 
   3.854416084583104*^9}, {3.854416116203107*^9, 3.854416192352106*^9}, 
   3.8544163328981485`*^9, {3.8544166271850767`*^9, 3.854416628103071*^9}, 
   3.854493180281246*^9, {3.8544980974206495`*^9, 3.85449810598567*^9}, 
   3.8544981580386105`*^9, {3.8544982840004396`*^9, 3.8544982850794487`*^9}, {
   3.854498942670598*^9, 3.8544989435816083`*^9}, {3.863225301959529*^9, 
   3.8632253140724697`*^9}, {3.8799098370420294`*^9, 
   3.8799098413334274`*^9}, {3.8799100527863626`*^9, 3.879910092820919*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->"In[38]:=",ExpressionUUID->"d25ee2eb-d5e6-41d0-91af-5d96e6443eff"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{
     "OUTPUTDIR0", "<>", 
      "\"\<(table)Pearson,Spearman,Kendall[L]-Mu,Sigma[D].png\>\""}], ",", 
     "gridPearsonSpearmanKendallMuSigma"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.863225327514843*^9, 3.863225338371815*^9}, 
   3.863226157690056*^9, {3.8659186483742104`*^9, 3.8659186509343505`*^9}, {
   3.879909851064973*^9, 3.879909856460975*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->"In[39]:=",ExpressionUUID->"3beed2cb-7c1c-41c4-a8f0-98f5536fc377"],

Cell[BoxData[
 RowBox[{"gridScatterHistogramPearsonSpearmanKendall", "=", 
  "\[IndentingNewLine]", 
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]Grid", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnLDU", "[", 
     RowBox[{
      RowBox[{"Values", "@", 
       RowBox[{"\[ScriptX]", "[", 
        RowBox[{"[", 
         RowBox[{"2", ";;"}], "]"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"ListPlot", "[", 
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{"#1", ",", "#2"}], "}"}], "]"}], "]"}], "&"}], ",", 
      "Histogram", ",", 
      "\[ScriptCapitalP]\[ScriptCapitalN]\[Rho]\[Rho]\[Tau]"}], "]"}], ",", 
    "\[IndentingNewLine]", "varName", ",", "varName", ",", 
    "\"\<  \[Rho]|\[Rho]|\[Tau][U]\\n Histogram[D]\\nScatter[L]\>\""}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.853116263930271*^9, 3.8531162806301155`*^9}, {
   3.8533728687385387`*^9, 3.8533728979836397`*^9}, 3.8533729873198376`*^9, {
   3.853373099590008*^9, 3.8533731664039946`*^9}, 3.853373207782111*^9, {
   3.8533826546841927`*^9, 3.8533826622242002`*^9}, {3.8533826924479303`*^9, 
   3.85338271291872*^9}, {3.8533827691212983`*^9, 3.8533827704263363`*^9}, {
   3.8533927801447234`*^9, 3.8533927849812264`*^9}, {3.8533930289441533`*^9, 
   3.8533930339335537`*^9}, {3.85441495751213*^9, 3.8544149709611387`*^9}, {
   3.8544150085631776`*^9, 3.8544150413526516`*^9}, {3.854415438296116*^9, 
   3.8544154430711684`*^9}, {3.8544156719761305`*^9, 
   3.8544156884441814`*^9}, {3.854416230007063*^9, 3.854416233080063*^9}, {
   3.8544163402611732`*^9, 3.8544163480130873`*^9}, 3.8544933491630163`*^9, {
   3.8632254528202877`*^9, 3.8632254535163097`*^9}, {3.863225492288062*^9, 
   3.86322550318723*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->"In[40]:=",ExpressionUUID->"b1cdd6dd-b8f5-44ee-a46a-858868f5cccf"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{
      "OUTPUTDIR0", "<>", 
       "\"\<(figure)Scatter[L]-Histogram[D]-Pearson,Spearman,Kendall[U].png\>\
\""}], ",", "gridScatterHistogramPearsonSpearmanKendall"}], "]"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8632255146692*^9, 3.863225517184044*^9}, 
   3.86322616141366*^9, {3.8659186570504847`*^9, 3.86591865932635*^9}, {
   3.8837900763353586`*^9, 3.8837900769333577`*^9}, {3.883791285418784*^9, 
   3.8837912897032347`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->"In[41]:=",ExpressionUUID->"2b5a3e79-e9da-4270-a648-c12849808c45"]
}, Closed]],

Cell[CellGroupData[{

Cell["Explore Data w/ [L] Plots", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.85328002756677*^9, 3.853280051528612*^9}, {
  3.853376949222954*^9, 3.853376996134886*^9}, {3.8533771071450057`*^9, 
  3.853377107675284*^9}, {3.853377642743022*^9, 3.8533776934148865`*^9}, {
  3.8544952378684444`*^9, 3.8544952488574624`*^9}, {3.8891509567468257`*^9, 
  3.889150988186789*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"3dfe9555-5dac-4e35-a61e-ee7cc8f784e7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Pearson", "'"}], "s", " ", "Rho", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"1", "D"}], "-", 
      RowBox[{
      "lagged", " ", "row", " ", "variables", " ", "VERSUS", " ", "column", 
       " ", "variables"}]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grid", "[", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnL", "[", 
     RowBox[{
      RowBox[{"Values", "@", 
       RowBox[{"\[ScriptX]", "[", 
        RowBox[{"[", 
         RowBox[{"2", ";;"}], "]"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"Correlation", "[", 
          RowBox[{
           RowBox[{"#1", "[", 
            RowBox[{"[", 
             RowBox[{";;", 
              RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
           RowBox[{"#2", "[", 
            RowBox[{"[", 
             RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", "0.001"}], 
        "]"}], "&"}]}], "]"}], ",", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{";;", 
       RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
    "\"\<\[InvisiblePrefixScriptBase](row-1D-lagged\!\(\*SuperscriptBox[\()\),\
 \(Pearson\)]\)\[Rho]\>\""}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8544935975235505`*^9, 3.8544936024248233`*^9}, {
  3.85449363380751*^9, 3.8544936461656694`*^9}, {3.854493733137498*^9, 
  3.8544937544286675`*^9}, {3.854493848269201*^9, 3.854493933844119*^9}, {
  3.854494068868005*^9, 3.8544941249849787`*^9}, {3.879910198852536*^9, 
  3.8799102029829226`*^9}, {3.879910291485016*^9, 3.8799103512033343`*^9}, {
  3.879910394725854*^9, 3.879910409011099*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"d1acdac0-468b-4bbb-928f-020400e28cdf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Spearman", "'"}], "s", " ", "Rho", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"1", "D"}], "-", 
      RowBox[{
      "lagged", " ", "row", " ", "variables", " ", "VERSUS", " ", "column", 
       " ", "variables"}]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grid", "[", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnL", "[", 
     RowBox[{
      RowBox[{"Values", "@", 
       RowBox[{"\[ScriptX]", "[", 
        RowBox[{"[", 
         RowBox[{"2", ";;"}], "]"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"SpearmanRho", "[", 
          RowBox[{
           RowBox[{"#1", "[", 
            RowBox[{"[", 
             RowBox[{";;", 
              RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
           RowBox[{"#2", "[", 
            RowBox[{"[", 
             RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", "0.001"}], 
        "]"}], "&"}]}], "]"}], ",", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{";;", 
       RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
    "\"\<\[InvisiblePrefixScriptBase](row-1D-lagged)\!\(\*SuperscriptBox[\(\
\[InvisiblePrefixScriptBase]\), \(Spearman\)]\)\[Rho]\>\""}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.853116447770402*^9, 3.8531164852175612`*^9}, {
   3.8533700156819906`*^9, 3.8533701275990753`*^9}, {3.8533701759231343`*^9, 
   3.8533701931261683`*^9}, {3.8533709269860554`*^9, 
   3.8533709709281654`*^9}, {3.8533710124972115`*^9, 
   3.8533710738722944`*^9}, {3.8533711597543693`*^9, 3.853371202136464*^9}, {
   3.853373350000296*^9, 3.8533734032718887`*^9}, 3.8533743717909327`*^9, {
   3.8533752148648996`*^9, 3.8533752555736732`*^9}, {3.853377005231925*^9, 
   3.8533770367800446`*^9}, {3.853377166975247*^9, 3.853377222479209*^9}, {
   3.8533773633243985`*^9, 3.8533773726483974`*^9}, 3.854493686819372*^9, {
   3.8544939516341743`*^9, 3.854493957300146*^9}, {3.8544941460418277`*^9, 
   3.8544941475788455`*^9}, {3.879910214140266*^9, 3.879910218172467*^9}, 
   3.879910366131573*^9, 3.879910419779557*^9},
 CellLabel->"In[43]:=",ExpressionUUID->"21e9724f-3f79-4b96-a9a0-89e572464088"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Spearman", "'"}], "s", " ", "Rho", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"row", " ", "variables", " ", "VERSUS", " ", "1", "D"}], "-", 
      RowBox[{"lagged", " ", "column", " ", "variables"}]}], ")"}]}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grid", "[", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnL", "[", 
     RowBox[{
      RowBox[{"Values", "@", 
       RowBox[{"\[ScriptX]", "[", 
        RowBox[{"[", 
         RowBox[{"2", ";;"}], "]"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"SpearmanRho", "[", 
          RowBox[{
           RowBox[{"#1", "[", 
            RowBox[{"[", 
             RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
           RowBox[{"#2", "[", 
            RowBox[{"[", 
             RowBox[{";;", 
              RowBox[{"-", "2"}]}], "]"}], "]"}]}], "]"}], ",", "0.001"}], 
        "]"}], "&"}]}], "]"}], ",", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{";;", 
       RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
    "\"\<(col-1D-lagged)\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\),\
 \(Spearman\)]\)\[Rho]\>\""}], "]"}]}]], "Input",
 CellChangeTimes->{{3.853370152996887*^9, 3.8533701639050903`*^9}, 
   3.85337095082782*^9, {3.8533712453760557`*^9, 3.8533712523410463`*^9}, {
   3.8533734320924177`*^9, 3.8533734568040257`*^9}, 3.8533743803736343`*^9, {
   3.8533752763352304`*^9, 3.8533752844148245`*^9}, {3.8533770205609355`*^9, 
   3.853377034271489*^9}, {3.853377182815156*^9, 3.8533771963964353`*^9}, {
   3.8533773839040403`*^9, 3.8533773880724297`*^9}, {3.8533813314344854`*^9, 
   3.853381357750569*^9}, {3.853381412238674*^9, 3.8533814125897207`*^9}, 
   3.854493700510078*^9, {3.854494025530044*^9, 3.8544940405712233`*^9}, {
   3.8544941639758224`*^9, 3.854494164484877*^9}, {3.85449419634784*^9, 
   3.8544942095047555`*^9}, {3.879910227537958*^9, 3.879910232464898*^9}, {
   3.879910455436199*^9, 3.8799104636807556`*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"b7ce254e-6d58-4690-b889-31e7a4e3700c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Spearman", "'"}], "s", " ", "Rho", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"1", "D"}], "-", 
      RowBox[{
      "lagged", " ", "row", " ", "variables", " ", "VERSUS", " ", "column", 
       " ", "variables"}]}], ")"}], " ", "DIVIDED", " ", "BY", " ", "one", 
    " ", 
    RowBox[{"w", "/", " ", "zero"}], " ", "lag"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grid", "[", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnL", "[", 
     RowBox[{
      RowBox[{"Values", "@", 
       RowBox[{"\[ScriptX]", "[", 
        RowBox[{"[", 
         RowBox[{"2", ";;"}], "]"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"Round", "[", 
        RowBox[{
         FractionBox[
          RowBox[{"SpearmanRho", "[", 
           RowBox[{
            RowBox[{"#1", "[", 
             RowBox[{"[", 
              RowBox[{";;", 
               RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
            RowBox[{"#2", "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], 
          RowBox[{"SpearmanRho", "[", 
           RowBox[{
            RowBox[{"#1", "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
            RowBox[{"#2", "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}]], ",", "0.001"}], 
        "]"}], "&"}]}], "]"}], ",", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{";;", 
       RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
    "\"\<(row-1D-lagged/no-lag\!\(\*SuperscriptBox[\()\), \(Spearman\)]\)\
\[Rho]\>\""}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8533749724450893`*^9, 3.853374973118417*^9}, {
   3.8533750297369432`*^9, 3.853375115511958*^9}, {3.8533751616626167`*^9, 
   3.853375175046914*^9}, {3.85337545781004*^9, 3.853375487743371*^9}, {
   3.8533755400621414`*^9, 3.8533755499494333`*^9}, {3.853375860751514*^9, 
   3.853375875127558*^9}, {3.8533771347224827`*^9, 3.853377145628174*^9}, {
   3.8533771907991657`*^9, 3.853377191304062*^9}, {3.8533772473522367`*^9, 
   3.853377279732372*^9}, {3.853377337396415*^9, 3.8533773399763803`*^9}, {
   3.8533774820565977`*^9, 3.8533775394327245`*^9}, 3.854493708362382*^9, {
   3.8544942429198136`*^9, 3.854494243275995*^9}, {3.854494288571754*^9, 
   3.8544942928057284`*^9}, {3.8799105733720264`*^9, 
   3.8799105973523035`*^9}, {3.879910636980268*^9, 3.879910652661256*^9}, {
   3.879910694084651*^9, 3.8799107718036537`*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"8672aa3c-f8a4-4c06-81fe-2d6cd052c429"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Spearman", "'"}], "s", " ", "Rho", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"row", " ", "variables", " ", "VERSUS", " ", "1", "D"}], "-", 
      RowBox[{"lagged", " ", "column", " ", "variables"}]}], ")"}], " ", 
    "DIVIDED", " ", "BY", " ", "one", " ", 
    RowBox[{"w", "/", " ", "zero"}], " ", "lag"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grid", "[", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnL", "[", 
     RowBox[{
      RowBox[{"Values", "@", 
       RowBox[{"\[ScriptX]", "[", 
        RowBox[{"[", 
         RowBox[{"2", ";;"}], "]"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"Round", "[", 
        RowBox[{
         FractionBox[
          RowBox[{"SpearmanRho", "[", 
           RowBox[{
            RowBox[{"#1", "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
            RowBox[{"#2", "[", 
             RowBox[{"[", 
              RowBox[{";;", 
               RowBox[{"-", "2"}]}], "]"}], "]"}]}], "]"}], 
          RowBox[{"SpearmanRho", "[", 
           RowBox[{
            RowBox[{"#1", "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
            RowBox[{"#2", "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}]], ",", "0.001"}], 
        "]"}], "&"}]}], "]"}], ",", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{";;", 
       RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
    "\"\<(col-1D-lagged/no-lag\!\(\*SuperscriptBox[\()\), \(Spearman\)]\)\
\[Rho]\>\""}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8533749724450893`*^9, 3.853374973118417*^9}, {
   3.8533750297369432`*^9, 3.853375115511958*^9}, {3.853375186886058*^9, 
   3.8533751892050953`*^9}, {3.8533754964550686`*^9, 3.853375547182071*^9}, {
   3.853377141304038*^9, 3.8533771479830327`*^9}, {3.853377253879259*^9, 
   3.8533772548640537`*^9}, {3.8533772859093018`*^9, 3.853377295104061*^9}, {
   3.8533774934156685`*^9, 3.853377499136623*^9}, {3.854494257391783*^9, 
   3.8544942580718703`*^9}, 3.854494312180797*^9, {3.879910832183309*^9, 
   3.8799108350491867`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"38d3c17f-bde3-4af3-8b72-d503091ec40e"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Pearson/Spearman/Kendall Stats {w/ 1D-lagged row variables, w/ zero lag, w/ \
1D-lagged column variables}\
\>", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.85328002756677*^9, 3.853280051528612*^9}, {
  3.853376949222954*^9, 3.853376996134886*^9}, {3.8533771071450057`*^9, 
  3.853377107675284*^9}, {3.8533777362929487`*^9, 3.8533778078970747`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"51dc9c6c-75e8-4ada-8031-15b6b66077a8"],

Cell[BoxData[
 RowBox[{"gridPearon", "=", "\[IndentingNewLine]", 
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]Grid", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnL", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Values", "[", "\[ScriptX]", "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"2", ";;"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Grid", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#", ",", "Large"}], "]"}], "&"}], "/@", 
            RowBox[{"{", 
             RowBox[{"\"\<(t-1,t) \>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"Correlation", "[", 
                 RowBox[{
                  RowBox[{"#1", "[", 
                   RowBox[{"[", 
                    RowBox[{";;", 
                    RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
                  RowBox[{"#2", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
                "0.0001"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#", ",", "Large"}], "]"}], "&"}], "/@", 
            RowBox[{"{", 
             RowBox[{"\"\<(t,t) \>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"Correlation", "[", 
                 RowBox[{
                  RowBox[{"#1", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
                  RowBox[{"#2", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
                "0.0001"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#", ",", "Large"}], "]"}], "&"}], "/@", 
            RowBox[{"{", 
             RowBox[{"\"\<(t,t-1) \>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"Correlation", "[", 
                 RowBox[{
                  RowBox[{"#1", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
                  RowBox[{"#2", "[", 
                   RowBox[{"[", 
                    RowBox[{";;", 
                    RowBox[{"-", "2"}]}], "]"}], "]"}]}], "]"}], ",", 
                "0.0001"}], "]"}]}], "}"}]}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Alignment", "->", "Left"}]}], "]"}], "&"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{";;", 
       RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
    "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \
\(Pearson\)]\)\[Rho]\>\""}], "]"}]}]], "Input",
 CellChangeTimes->{{3.853374654212963*^9, 3.8533747705890503`*^9}, {
   3.8533748815762014`*^9, 3.8533748960458794`*^9}, {3.85337633919305*^9, 
   3.8533763585602045`*^9}, {3.853376678368593*^9, 3.853376678559577*^9}, {
   3.8533815692019095`*^9, 3.8533816082378607`*^9}, 3.853383972436488*^9, {
   3.8533845368216176`*^9, 3.8533845432816467`*^9}, {3.8533853817958565`*^9, 
   3.8533853917791357`*^9}, {3.853392855357375*^9, 3.8533928765651484`*^9}, {
   3.8533930938083906`*^9, 3.8533930960286283`*^9}, {3.854405733845248*^9, 
   3.8544057571753736`*^9}, {3.8544151163851395`*^9, 
   3.8544151215561533`*^9}, {3.8544164718325825`*^9, 3.854416474347082*^9}, {
   3.8544944297944126`*^9, 3.854494450354216*^9}, {3.8544953754773808`*^9, 
   3.854495386513297*^9}, {3.8544954337972193`*^9, 3.854495619804001*^9}, {
   3.8544956609889*^9, 3.854495672236982*^9}, {3.8544957054708433`*^9, 
   3.8544957118148108`*^9}, {3.8544957433507953`*^9, 
   3.8544957757967453`*^9}, {3.854495812617749*^9, 3.8544958485006943`*^9}, {
   3.854496786829449*^9, 3.854496824594435*^9}, {3.8544968990543303`*^9, 
   3.8544969296707797`*^9}, {3.854496961865234*^9, 3.854496962449265*^9}, {
   3.854497029755145*^9, 3.8544970300752134`*^9}, {3.8544971190710454`*^9, 
   3.854497128083119*^9}, {3.854497207613947*^9, 3.8544973430887737`*^9}, {
   3.8544975782984204`*^9, 3.8544975898974743`*^9}, {3.8544994141429377`*^9, 
   3.8544994292140083`*^9}, {3.8545019155917125`*^9, 
   3.8545019171717353`*^9}, {3.8545020396005754`*^9, 3.85450204454986*^9}, {
   3.863226224076259*^9, 3.86322623473888*^9}, {3.8851887391720905`*^9, 
   3.8851887421101522`*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->"In[47]:=",ExpressionUUID->"27bdcc93-7125-4939-ad46-d7d8d5789835"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"OUTPUTDIR0", "<>", "\"\<(table)Pearson[L].png\>\""}], ",", 
     "gridPearon"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.863226276421485*^9, {3.865918718711481*^9, 3.8659187209105434`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->"In[48]:=",ExpressionUUID->"57a7d069-e1bc-4abf-8acc-1c4955b13d9f"],

Cell[BoxData[
 RowBox[{"gridSpearman", "=", "\[IndentingNewLine]", 
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]Grid", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnL", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Values", "[", "\[ScriptX]", "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"2", ";;"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Grid", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#", ",", "Large"}], "]"}], "&"}], "/@", 
            RowBox[{"{", 
             RowBox[{"\"\<(t-1,t) \>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"SpearmanRho", "[", 
                 RowBox[{
                  RowBox[{"#1", "[", 
                   RowBox[{"[", 
                    RowBox[{";;", 
                    RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
                  RowBox[{"#2", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
                "0.0001"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#", ",", "Large"}], "]"}], "&"}], "/@", 
            RowBox[{"{", 
             RowBox[{"\"\<(t,t) \>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"SpearmanRho", "[", 
                 RowBox[{
                  RowBox[{"#1", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
                  RowBox[{"#2", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
                "0.0001"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#", ",", "Large"}], "]"}], "&"}], "/@", 
            RowBox[{"{", 
             RowBox[{"\"\<(t,t-1) \>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"SpearmanRho", "[", 
                 RowBox[{
                  RowBox[{"#1", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
                  RowBox[{"#2", "[", 
                   RowBox[{"[", 
                    RowBox[{";;", 
                    RowBox[{"-", "2"}]}], "]"}], "]"}]}], "]"}], ",", 
                "0.0001"}], "]"}]}], "}"}]}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Alignment", "->", "Left"}]}], "]"}], "&"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{";;", 
       RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
    "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \(Spearman\)]\
\)\[Rho]\>\""}], "]"}]}]], "Input",
 CellChangeTimes->{{3.853374654212963*^9, 3.8533747705890503`*^9}, {
   3.8533748815762014`*^9, 3.8533748960458794`*^9}, {3.85337633919305*^9, 
   3.8533763585602045`*^9}, {3.853376678368593*^9, 3.853376678559577*^9}, {
   3.8533815692019095`*^9, 3.8533816082378607`*^9}, 3.853383972436488*^9, {
   3.8533845368216176`*^9, 3.8533845432816467`*^9}, {3.8533853817958565`*^9, 
   3.8533853917791357`*^9}, {3.853392855357375*^9, 3.8533928765651484`*^9}, {
   3.8533930938083906`*^9, 3.8533930960286283`*^9}, {3.854405733845248*^9, 
   3.8544057571753736`*^9}, {3.8544151163851395`*^9, 
   3.8544151215561533`*^9}, {3.8544164718325825`*^9, 3.854416474347082*^9}, {
   3.8544944297944126`*^9, 3.854494450354216*^9}, {3.8544953754773808`*^9, 
   3.854495386513297*^9}, {3.8544954337972193`*^9, 3.854495619804001*^9}, {
   3.8544956609889*^9, 3.854495672236982*^9}, {3.8544957054708433`*^9, 
   3.8544957118148108`*^9}, {3.8544957433507953`*^9, 
   3.8544957757967453`*^9}, {3.854495812617749*^9, 3.8544958485006943`*^9}, {
   3.854496786829449*^9, 3.854496824594435*^9}, {3.8544968990543303`*^9, 
   3.8544969296707797`*^9}, {3.854496961865234*^9, 3.854496962449265*^9}, {
   3.854497029755145*^9, 3.8544970300752134`*^9}, {3.8544971190710454`*^9, 
   3.854497128083119*^9}, {3.854497207613947*^9, 3.8544973430887737`*^9}, {
   3.854499435018962*^9, 3.8544994382258773`*^9}, {3.854501920159732*^9, 
   3.854501924778719*^9}, {3.8545020517408085`*^9, 3.854502054719077*^9}, {
   3.863226245663975*^9, 3.8632262539069614`*^9}, {3.885188728885663*^9, 
   3.885188731200716*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->"In[49]:=",ExpressionUUID->"1c3282bf-a6c1-47ed-81fd-a5d054dba2fa"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"OUTPUTDIR0", "<>", "\"\<(table)Spearman[L].png\>\""}], ",", 
     "gridSpearman"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8632263507547693`*^9, 3.86322635099524*^9}, {
  3.8659188165944643`*^9, 3.865918818834633*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->"In[50]:=",ExpressionUUID->"b48aa4b1-6c90-4c04-9ab0-c12cc352ba52"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]Grid", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnL", "[", 
     RowBox[{
      RowBox[{"Values", "@", 
       RowBox[{"\[ScriptX]", "[", 
        RowBox[{"[", 
         RowBox[{"2", ";;"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Grid", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#", ",", "Large"}], "]"}], "&"}], "/@", 
            RowBox[{"{", 
             RowBox[{"\"\<(t-1,t) \>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"KendallTau", "[", 
                 RowBox[{
                  RowBox[{"#1", "[", 
                   RowBox[{"[", 
                    RowBox[{";;", 
                    RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
                  RowBox[{"#2", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
                "0.0001"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#", ",", "Large"}], "]"}], "&"}], "/@", 
            RowBox[{"{", 
             RowBox[{"\"\<(t,t) \>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"KendallTau", "[", 
                 RowBox[{
                  RowBox[{"#1", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
                  RowBox[{"#2", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
                "0.0001"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#", ",", "Large"}], "]"}], "&"}], "/@", 
            RowBox[{"{", 
             RowBox[{"\"\<(t,t-1) \>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"KendallTau", "[", 
                 RowBox[{
                  RowBox[{"#1", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
                  RowBox[{"#2", "[", 
                   RowBox[{"[", 
                    RowBox[{";;", 
                    RowBox[{"-", "2"}]}], "]"}], "]"}]}], "]"}], ",", 
                "0.0001"}], "]"}]}], "}"}]}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Alignment", "->", "Left"}]}], "]"}], "&"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{";;", 
       RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
    "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \
\(Kendall\)]\)\[Tau]\>\""}], "]"}], "==", "\[IndentingNewLine]", 
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]Grid", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnL", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Values", "[", "\[ScriptX]", "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"2", ";;"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Grid", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#", ",", "Large"}], "]"}], "&"}], "/@", 
            RowBox[{"{", 
             RowBox[{"\"\<(t-1,t) \>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"KendallTau", "[", 
                 RowBox[{
                  RowBox[{"#1", "[", 
                   RowBox[{"[", 
                    RowBox[{";;", 
                    RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
                  RowBox[{"#2", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
                "0.0001"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#", ",", "Large"}], "]"}], "&"}], "/@", 
            RowBox[{"{", 
             RowBox[{"\"\<(t,t) \>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"KendallTau", "[", 
                 RowBox[{
                  RowBox[{"#1", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
                  RowBox[{"#2", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
                "0.0001"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#", ",", "Large"}], "]"}], "&"}], "/@", 
            RowBox[{"{", 
             RowBox[{"\"\<(t,t-1) \>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"KendallTau", "[", 
                 RowBox[{
                  RowBox[{"#1", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
                  RowBox[{"#2", "[", 
                   RowBox[{"[", 
                    RowBox[{";;", 
                    RowBox[{"-", "2"}]}], "]"}], "]"}]}], "]"}], ",", 
                "0.0001"}], "]"}]}], "}"}]}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Alignment", "->", "Left"}]}], "]"}], "&"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{";;", 
       RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
    "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \
\(Kendall\)]\)\[Tau]\>\""}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8851886411574693`*^9, 3.8851886483036675`*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"492fe141-5012-49c3-bbe3-81356d55362b"],

Cell[BoxData[
 RowBox[{"gridKendall", "=", "\[IndentingNewLine]", 
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]Grid", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnL", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Values", "[", "\[ScriptX]", "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"2", ";;"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Grid", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#", ",", "Large"}], "]"}], "&"}], "/@", 
            RowBox[{"{", 
             RowBox[{"\"\<(t-1,t) \>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"KendallTau", "[", 
                 RowBox[{
                  RowBox[{"#1", "[", 
                   RowBox[{"[", 
                    RowBox[{";;", 
                    RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
                  RowBox[{"#2", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
                "0.0001"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#", ",", "Large"}], "]"}], "&"}], "/@", 
            RowBox[{"{", 
             RowBox[{"\"\<(t,t) \>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"KendallTau", "[", 
                 RowBox[{
                  RowBox[{"#1", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
                  RowBox[{"#2", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
                "0.0001"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#", ",", "Large"}], "]"}], "&"}], "/@", 
            RowBox[{"{", 
             RowBox[{"\"\<(t,t-1) \>\"", ",", 
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"KendallTau", "[", 
                 RowBox[{
                  RowBox[{"#1", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
                  RowBox[{"#2", "[", 
                   RowBox[{"[", 
                    RowBox[{";;", 
                    RowBox[{"-", "2"}]}], "]"}], "]"}]}], "]"}], ",", 
                "0.0001"}], "]"}]}], "}"}]}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Alignment", "->", "Left"}]}], "]"}], "&"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
    RowBox[{"varName", "[", 
     RowBox[{"[", 
      RowBox[{";;", 
       RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
    "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \
\(Kendall\)]\)\[Rho]\>\""}], "]"}]}]], "Input",
 CellChangeTimes->{{3.853374654212963*^9, 3.8533747705890503`*^9}, {
   3.8533748815762014`*^9, 3.8533748960458794`*^9}, {3.85337633919305*^9, 
   3.8533763585602045`*^9}, {3.853376678368593*^9, 3.853376678559577*^9}, {
   3.8533815692019095`*^9, 3.8533816082378607`*^9}, 3.853383972436488*^9, {
   3.8533845368216176`*^9, 3.8533845432816467`*^9}, {3.8533853817958565`*^9, 
   3.8533853917791357`*^9}, {3.853392855357375*^9, 3.8533928765651484`*^9}, {
   3.8533930938083906`*^9, 3.8533930960286283`*^9}, {3.854405733845248*^9, 
   3.8544057571753736`*^9}, {3.8544151163851395`*^9, 
   3.8544151215561533`*^9}, {3.8544164718325825`*^9, 3.854416474347082*^9}, {
   3.8544944297944126`*^9, 3.854494450354216*^9}, {3.8544953754773808`*^9, 
   3.854495386513297*^9}, {3.8544954337972193`*^9, 3.854495619804001*^9}, {
   3.8544956609889*^9, 3.854495672236982*^9}, {3.8544957054708433`*^9, 
   3.8544957118148108`*^9}, {3.8544957433507953`*^9, 
   3.8544957757967453`*^9}, {3.854495812617749*^9, 3.8544958485006943`*^9}, {
   3.854496786829449*^9, 3.854496824594435*^9}, {3.8544968990543303`*^9, 
   3.8544969296707797`*^9}, {3.854496961865234*^9, 3.854496962449265*^9}, {
   3.854497029755145*^9, 3.8544970300752134`*^9}, {3.8544971190710454`*^9, 
   3.854497128083119*^9}, {3.854497207613947*^9, 3.8544973430887737`*^9}, {
   3.8544975782984204`*^9, 3.8544975898974743`*^9}, {3.8544994141429377`*^9, 
   3.8544994292140083`*^9}, {3.8545019155917125`*^9, 
   3.8545019171717353`*^9}, {3.8545020396005754`*^9, 3.85450204454986*^9}, {
   3.863226224076259*^9, 3.86322623473888*^9}, {3.8851887391720905`*^9, 
   3.8851887421101522`*^9}, {3.8890570322208595`*^9, 3.889057042808253*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->"In[52]:=",ExpressionUUID->"f3fb0634-0a0e-4360-983f-61099028c25a"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"OUTPUTDIR0", "<>", "\"\<(table)Kendall[L].png\>\""}], ",", 
     "gridKendall"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.863226336793787*^9, {3.865918834604637*^9, 3.865918837478668*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->"In[53]:=",ExpressionUUID->"067d4409-438e-46ed-b6f7-1f9017adb068"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pairwisePearson", "=", 
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnL", "[", 
    RowBox[{
     RowBox[{"Values", "@", 
      RowBox[{"\[ScriptX]", "[", 
       RowBox[{"[", 
        RowBox[{"2", ";;"}], "]"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Correlation", "[", 
         RowBox[{
          RowBox[{"#1", "[", 
           RowBox[{"[", 
            RowBox[{";;", 
             RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
          RowBox[{"#2", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"Correlation", "[", 
         RowBox[{
          RowBox[{"#1", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
          RowBox[{"#2", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"Correlation", "[", 
         RowBox[{
          RowBox[{"#1", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
          RowBox[{"#2", "[", 
           RowBox[{"[", 
            RowBox[{";;", 
             RowBox[{"-", "2"}]}], "]"}], "]"}]}], "]"}]}], "}"}], "&"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pairwiseSpearman", "=", 
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnL", "[", 
    RowBox[{
     RowBox[{"Values", "@", 
      RowBox[{"\[ScriptX]", "[", 
       RowBox[{"[", 
        RowBox[{"2", ";;"}], "]"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"SpearmanRho", "[", 
         RowBox[{
          RowBox[{"#1", "[", 
           RowBox[{"[", 
            RowBox[{";;", 
             RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
          RowBox[{"#2", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"SpearmanRho", "[", 
         RowBox[{
          RowBox[{"#1", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
          RowBox[{"#2", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"SpearmanRho", "[", 
         RowBox[{
          RowBox[{"#1", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
          RowBox[{"#2", "[", 
           RowBox[{"[", 
            RowBox[{";;", 
             RowBox[{"-", "2"}]}], "]"}], "]"}]}], "]"}]}], "}"}], "&"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pairwiseKendall", "=", 
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PairOprnL", "[", 
    RowBox[{
     RowBox[{"Values", "@", 
      RowBox[{"\[ScriptX]", "[", 
       RowBox[{"[", 
        RowBox[{"2", ";;"}], "]"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"KendallTau", "[", 
         RowBox[{
          RowBox[{"#1", "[", 
           RowBox[{"[", 
            RowBox[{";;", 
             RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
          RowBox[{"#2", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"KendallTau", "[", 
         RowBox[{
          RowBox[{"#1", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
          RowBox[{"#2", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"KendallTau", "[", 
         RowBox[{
          RowBox[{"#1", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
          RowBox[{"#2", "[", 
           RowBox[{"[", 
            RowBox[{";;", 
             RowBox[{"-", "2"}]}], "]"}], "]"}]}], "]"}]}], "}"}], "&"}]}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8544974018217077`*^9, 3.8544974319206448`*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->"In[54]:=",ExpressionUUID->"f96732a0-974b-4e7e-8622-619704ed0233"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", "\[IndentingNewLine]", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{
     "OUTPUTDIR0", "<>", "\"\<(output)Pearson,Spearman,Kendall[L].xlsx\>\""}],
      ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\"\<Pearson(t-1,t)\>\"", "->", 
        RowBox[{"pairwisePearson", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "All", ",", "1"}], "]"}], "]"}]}], ",", 
       RowBox[{"\"\<Pearson(t,t)\>\"", "->", 
        RowBox[{"pairwisePearson", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}]}], ",", 
       RowBox[{"\"\<Pearson(t,t-1)\>\"", "->", 
        RowBox[{"pairwisePearson", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "All", ",", "3"}], "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<Spearman(t-1,t)\>\"", "->", 
        RowBox[{"pairwiseSpearman", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "All", ",", "1"}], "]"}], "]"}]}], ",", 
       RowBox[{"\"\<Spearman(t,t)\>\"", "->", 
        RowBox[{"pairwiseSpearman", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}]}], ",", 
       RowBox[{"\"\<Spearman(t,t-1)\>\"", "->", 
        RowBox[{"pairwiseSpearman", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "All", ",", "3"}], "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<Kendall(t-1,t)\>\"", "->", 
        RowBox[{"pairwiseKendall", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "All", ",", "1"}], "]"}], "]"}]}], ",", 
       RowBox[{"\"\<Kendall(t,t)\>\"", "->", 
        RowBox[{"pairwiseKendall", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}]}], ",", 
       RowBox[{"\"\<Kendall(t,t-1)\>\"", "->", 
        RowBox[{"pairwiseKendall", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "All", ",", "3"}], "]"}], "]"}]}]}], "}"}]}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.865918918724662*^9, 3.865918928343546*^9}, {
  3.8659198077308598`*^9, 3.865919810398671*^9}, {3.88519103325708*^9, 
  3.885191036242261*^9}, {3.88579320816873*^9, 3.885793209517968*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->"In[57]:=",ExpressionUUID->"872418cd-0225-4902-9ca0-15149989091f"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"NotebookSave", "[", "]"}], ";", 
   RowBox[{"EmitSound", "[", 
    RowBox[{"Sound", "[", 
     RowBox[{"SoundNote", "[", 
      RowBox[{"\"\<C\>\"", ",", ".5", ",", "\"\<Violin\>\""}], "]"}], "]"}], 
    "]"}]}],
  FontColor->GrayLevel[1]]], "Input",
 CellChangeTimes->{{3.8799140033373775`*^9, 3.879914004747589*^9}, 
   3.880002577173757*^9, {3.883723918193898*^9, 3.8837239212077284`*^9}, {
   3.883787399583018*^9, 3.883787400193737*^9}},
 Background->GrayLevel[0],
 CellLabel->"In[58]:=",ExpressionUUID->"f28cedcd-b996-444f-9f8e-7a32183b5742"]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"e06680a3-6fe2-4f35-880c-e103fc03dc06"],

Cell[TextData[{
 StyleBox["Multi-Paradigm Analysis of ",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["Thai Capital M",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["ar",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["k",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["e",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["t Link",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["ages",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None]
}], "Title",
 CellChangeTimes->{{3.8889733224978933`*^9, 3.888973343649993*^9}, 
   3.888973377357065*^9, {3.88914167191856*^9, 3.889141726588789*^9}, 
   3.8891605644233837`*^9},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"afd89a32-6fc7-4e60-93fd-9cd0e7a263fd"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Part I. Bivariate Copula Approach",
 FontColor->GrayLevel[1]]], "Subsubsection",
 CellChangeTimes->{{3.875064507138184*^9, 3.875064510805688*^9}, {
   3.878278239576824*^9, 3.878278251901373*^9}, {3.878278631105335*^9, 
   3.8782786460326586`*^9}, {3.878780306537759*^9, 3.8787803068766427`*^9}, {
   3.879907613035598*^9, 3.879907614575369*^9}, {3.8799207827834115`*^9, 
   3.8799208073698564`*^9}, {3.8851914936468697`*^9, 3.8851915000629387`*^9}, 
   3.8891417856599226`*^9},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"84975f96-d9aa-4655-94a0-f2d4ad300b1f"],

Cell[TextData[StyleBox["Poomjai Nacaskul, Ph.D.",
 FontSize->24,
 FontWeight->"Bold",
 FontColor->GrayLevel[1]]], "Author",
 CellChangeTimes->{{3.888973403835884*^9, 3.888973415957621*^9}, {
  3.88914180780099*^9, 3.889141820156021*^9}},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"3c54e40f-1d3c-4e46-946c-c5f39235c762"],

Cell[TextData[StyleBox["2023.03.31",
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.8713456840497117`*^9, 3.8713456876160254`*^9}, {
   3.871345775975469*^9, 3.871345776904157*^9}, {3.871510139631436*^9, 
   3.8715101405909257`*^9}, {3.8724629762226934`*^9, 
   3.8724629773699017`*^9}, {3.8737710280597725`*^9, 
   3.8737710359277973`*^9}, {3.8738568025000906`*^9, 3.873856803019414*^9}, {
   3.873939205165445*^9, 3.873939205677453*^9}, {3.8743596248494673`*^9, 
   3.874359625242044*^9}, {3.8750017301577554`*^9, 3.8750017308440323`*^9}, {
   3.875064440437437*^9, 3.8750644424578524`*^9}, {3.8752192571420364`*^9, 
   3.8752192578607607`*^9}, {3.8782782569263105`*^9, 3.878278258646419*^9}, {
   3.878680486732724*^9, 3.878680488853014*^9}, {3.8787695800471706`*^9, 
   3.8787695804801354`*^9}, {3.8788508927279806`*^9, 3.878850894930314*^9}, {
   3.878872025588595*^9, 3.8788720295144653`*^9}, {3.878944540769303*^9, 
   3.878944541131344*^9}, {3.879297357004484*^9, 3.879297357690538*^9}, {
   3.8799070600728455`*^9, 3.879907061420087*^9}, {3.8800040148043585`*^9, 
   3.8800040154933567`*^9}, {3.880082389037445*^9, 3.8800823896979666`*^9}, {
   3.8801443918157597`*^9, 3.880144392371735*^9}, {3.880234476387456*^9, 
   3.88023447685857*^9}, {3.880407454248597*^9, 3.8804074548496447`*^9}, {
   3.880607783426791*^9, 3.8806077835665684`*^9}, {3.880665381293962*^9, 
   3.880665381693717*^9}, {3.8824037991662436`*^9, 3.882403804145291*^9}, {
   3.882575638825726*^9, 3.882575639191471*^9}, {3.8837030946017375`*^9, 
   3.8837030957541246`*^9}, {3.883782588589318*^9, 3.8837825891013546`*^9}, {
   3.8851796676111403`*^9, 3.88517966829814*^9}, {3.8852510683575716`*^9, 
   3.885251068779319*^9}, 3.8853441316893744`*^9, {3.885418024335279*^9, 
   3.885418024649368*^9}, {3.8856056960454187`*^9, 3.8856056967885513`*^9}, {
   3.8857060030532913`*^9, 3.885706003811681*^9}, {3.8857716314441442`*^9, 
   3.8857716323711596`*^9}, {3.8858537519916754`*^9, 
   3.8858537525684457`*^9}, {3.885953719030515*^9, 3.8859537192314177`*^9}, {
   3.8860427886868787`*^9, 3.88604278915788*^9}, {3.8861110938674803`*^9, 
   3.8861110944596596`*^9}, {3.8877532429375496`*^9, 
   3.8877532453732915`*^9}, {3.889050550147873*^9, 3.889050550951415*^9}, {
   3.8891399580056877`*^9, 3.8891399596256995`*^9}, 3.8892186158551755`*^9, {
   3.8892189990861115`*^9, 
   3.889219000098297*^9}},ExpressionUUID->"e2a087a3-2b02-483d-a77e-\
5ccfd695075c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["3. Pairwise Correlation (can jump directly from 1.)", "Section",
 CellChangeTimes->{{3.8531086817641788`*^9, 3.8531086824037175`*^9}, {
  3.8532789254794636`*^9, 3.853278935911662*^9}, {3.8532804054806623`*^9, 
  3.85328040920152*^9}, {3.8532805128574877`*^9, 3.8532805233859005`*^9}, {
  3.8851871304586725`*^9, 3.8851871419718294`*^9}, {3.885253608266919*^9, 
  3.885253614914999*^9}, {3.8854503623719206`*^9, 
  3.8854503694041953`*^9}},ExpressionUUID->"482be011-571e-4ecb-9af7-\
ae27c0f2e0a1"],

Cell[CellGroupData[{

Cell["Correlation Matrices (No-lag)", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.885184180663868*^9, 
  3.885184184695445*^9}, {3.885187693325343*^9, 3.8851876978631124`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"99ce94b2-9b24-4881-9b1d-6c5c469669c1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", "mtrx_", "]"}], ":=", 
  RowBox[{"mtrx", "-", 
   RowBox[{"DiagonalMatrix", "@", 
    RowBox[{"Diagonal", "@", "mtrx"}]}]}]}]], "Input",
 CellChangeTimes->{{3.885184229619153*^9, 3.885184275667289*^9}, {
  3.8851843480140038`*^9, 3.885184363568533*^9}, {3.8851844037883577`*^9, 
  3.88518444270529*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->"In[59]:=",ExpressionUUID->"67903ae0-0ad5-4801-9f0d-12e44d29671d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"mtrxPearson0Diag", "=", 
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
     RowBox[{"mtrxPearson", "=", 
      RowBox[{"Correlation", "@", 
       RowBox[{"Transpose", "@", 
        RowBox[{
         RowBox[{"Values", "[", "\[ScriptX]", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"2", ";;"}], "]"}], "]"}]}]}]}], "]"}]}], "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"[", 
     RowBox[{"[", 
      RowBox[{"2", ";;"}], "]"}], "]"}], " ", "because", " ", "the", " ", 
    "first", " ", "row", " ", "contains", " ", "date"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"mtrxSpearman0Diag", "=", 
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
    RowBox[{"mtrxSpearman", "=", 
     RowBox[{"SpearmanRho", "@", 
      RowBox[{"Transpose", "@", 
       RowBox[{
        RowBox[{"Values", "[", "\[ScriptX]", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"2", ";;"}], "]"}], "]"}]}]}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"mtrxKendall0Diag", "=", 
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
    RowBox[{"mtrxKendall", "=", 
     RowBox[{"KendallTau", "@", 
      RowBox[{"Transpose", "@", 
       RowBox[{
        RowBox[{"Values", "[", "\[ScriptX]", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"2", ";;"}], "]"}], "]"}]}]}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8851844861949577`*^9, 3.8851845885130672`*^9}, {
   3.885184882244768*^9, 3.88518488330015*^9}, {3.8851849225016265`*^9, 
   3.8851849415604115`*^9}, 3.8851850721917133`*^9, 3.885189132292143*^9, {
   3.8851892122260065`*^9, 3.885189215544876*^9}, {3.8851895913844833`*^9, 
   3.8851896423449507`*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"e46587c1-2646-4386-825a-ad5a2bd0dcee"],

Cell[BoxData[{
 RowBox[{"{", 
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxPearsonPositive0Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxPearsonPositive", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"#", ">", "0"}], ",", "1", ",", "0"}], "]"}], "&"}], ",", 
         "mtrxPearson", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxSpearmanPositive0Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxSpearmanPositive", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"#", ">", "0"}], ",", "1", ",", "0"}], "]"}], "&"}], ",", 
         "mtrxSpearman", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxKendallPositive0Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxKendallPositive", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"#", ">", "0"}], ",", "1", ",", "0"}], "]"}], "&"}], ",", 
         "mtrxKendall", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}]}], 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{"N", "@", 
      RowBox[{"Total", "@", 
       FractionBox[
        RowBox[{"Flatten", "[", "#", "]"}], 
        RowBox[{"14", 
         RowBox[{"(", 
          RowBox[{"14", "-", "1"}], ")"}]}]]}]}], ",", ".01"}], "]"}], "&"}], 
  "/@", 
  RowBox[{"{", 
   RowBox[{
   "mtrxPearsonPositive0Diag", ",", "mtrxSpearmanPositive0Diag", ",", 
    "mtrxKendallPositive0Diag"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.885184712379759*^9, 3.885184787088107*^9}, {
  3.8851848546677313`*^9, 3.885184858768769*^9}, {3.8851849811665325`*^9, 
  3.885185055341401*^9}, {3.885185139624575*^9, 3.885185183956314*^9}, {
  3.885251180447407*^9, 3.885251186789655*^9}, {3.885251730609132*^9, 
  3.8852517416796894`*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"5f3d4482-3524-4686-a1ac-c726c9978856"],

Cell[BoxData[{
 RowBox[{"{", 
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxPearsonAbsOverPt10Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxPearsonAbsOverPt1", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".1"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxPearson", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxSpearmanAbsOverPt10Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxSpearmanAbsOverPt1", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".1"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxSpearman", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxKendallAbsOverPt10Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxKendallAbsOverPt1", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".1"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxKendall", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}]}], 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{"N", "@", 
      RowBox[{"Total", "@", 
       FractionBox[
        RowBox[{"Flatten", "[", "#", "]"}], 
        RowBox[{"14", 
         RowBox[{"(", 
          RowBox[{"14", "-", "1"}], ")"}]}]]}]}], ",", ".01"}], "]"}], "&"}], 
  "/@", 
  RowBox[{"{", 
   RowBox[{
   "mtrxPearsonAbsOverPt10Diag", ",", "mtrxSpearmanAbsOverPt10Diag", ",", 
    "mtrxKendallAbsOverPt10Diag"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.885184712379759*^9, 3.885184787088107*^9}, {
  3.8851848546677313`*^9, 3.885184858768769*^9}, {3.8851849811665325`*^9, 
  3.885185055341401*^9}, {3.885185139624575*^9, 3.8851853317465906`*^9}, {
  3.885251752453288*^9, 3.885251761448247*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"32877263-ebb0-4973-a39f-3b2c8bfec4fb"],

Cell[BoxData[{
 RowBox[{"{", 
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxPearsonAbsOverPt20Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxPearsonAbsOverPt2", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".2"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxPearson", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxSpearmanAbsOverPt20Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxSpearmanAbsOverPt2", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".2"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxSpearman", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxKendallAbsOverPt20Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxKendallAbsOverPt2", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".2"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxKendall", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}]}], 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{"N", "@", 
      RowBox[{"Total", "@", 
       FractionBox[
        RowBox[{"Flatten", "[", "#", "]"}], 
        RowBox[{"14", 
         RowBox[{"(", 
          RowBox[{"14", "-", "1"}], ")"}]}]]}]}], ",", ".01"}], "]"}], "&"}], 
  "/@", 
  RowBox[{"{", 
   RowBox[{
   "mtrxPearsonAbsOverPt20Diag", ",", "mtrxSpearmanAbsOverPt20Diag", ",", 
    "mtrxKendallAbsOverPt20Diag"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.885184712379759*^9, 3.885184787088107*^9}, {
  3.8851848546677313`*^9, 3.885184858768769*^9}, {3.8851849811665325`*^9, 
  3.885185055341401*^9}, {3.885185139624575*^9, 3.8851853317465906`*^9}, {
  3.885185377113942*^9, 3.8851853926115046`*^9}, {3.8852517681133857`*^9, 
  3.8852517762023983`*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"a181c148-5022-4de4-b515-a79fade9a3a6"],

Cell[BoxData[{
 RowBox[{"{", 
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxPearsonAbsOverPt50Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxPearsonAbsOverPt5", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".5"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxPearson", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxSpearmanAbsOverPt50Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxSpearmanAbsOverPt5", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".5"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxSpearman", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxKendallAbsOverPt50Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxKendallAbsOverPt5", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".5"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxKendall", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}]}], 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{"N", "@", 
      RowBox[{"Total", "@", 
       FractionBox[
        RowBox[{"Flatten", "[", "#", "]"}], 
        RowBox[{"14", 
         RowBox[{"(", 
          RowBox[{"14", "-", "1"}], ")"}]}]]}]}], ",", ".01"}], "]"}], "&"}], 
  "/@", 
  RowBox[{"{", 
   RowBox[{
   "mtrxPearsonAbsOverPt50Diag", ",", "mtrxSpearmanAbsOverPt50Diag", ",", 
    "mtrxKendallAbsOverPt50Diag"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.885184712379759*^9, 3.885184787088107*^9}, {
  3.8851848546677313`*^9, 3.885184858768769*^9}, {3.8851849811665325`*^9, 
  3.885185055341401*^9}, {3.885185139624575*^9, 3.8851853317465906`*^9}, {
  3.885185377113942*^9, 3.8851854170880036`*^9}, {3.8852517830096316`*^9, 
  3.8852517949364862`*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"ebf9bbeb-b524-4c1a-b438-862bb7d12b61"]
}, Closed]],

Cell[CellGroupData[{

Cell["Correlation Matrices (1D-lag)", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.885184180663868*^9, 
  3.885184184695445*^9}, {3.885187693325343*^9, 3.885187710217897*^9}, {
  3.8857060525231686`*^9, 3.8857060536838646`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"ef177810-8546-4bfd-b15e-7a6ee3faa589"],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"mtrxPearson1DLag0Diag", "=", 
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
    RowBox[{"mtrxPearson1DLag", "=", 
     RowBox[{"Correlation", "[", 
      RowBox[{
       RowBox[{"Transpose", "@", 
        RowBox[{
         RowBox[{"Values", "[", "\[ScriptX]", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{";;", 
            RowBox[{"-", "2"}]}]}], "]"}], "]"}]}], ",", 
       RowBox[{"Transpose", "@", 
        RowBox[{
         RowBox[{"Values", "[", "\[ScriptX]", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{"2", ";;"}]}], "]"}], "]"}]}]}], "]"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"mtrxSpearman1DLag0Diag", "=", 
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
    RowBox[{"mtrxSpearman1DLag", "=", 
     RowBox[{"SpearmanRho", "[", 
      RowBox[{
       RowBox[{"Transpose", "@", 
        RowBox[{
         RowBox[{"Values", "[", "\[ScriptX]", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{";;", 
            RowBox[{"-", "2"}]}]}], "]"}], "]"}]}], ",", 
       RowBox[{"Transpose", "@", 
        RowBox[{
         RowBox[{"Values", "[", "\[ScriptX]", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{"2", ";;"}]}], "]"}], "]"}]}]}], "]"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"mtrxKendall1DLag0Diag", "=", 
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
    RowBox[{"mtrxKendall1DLag", "=", 
     RowBox[{"KendallTau", "[", 
      RowBox[{
       RowBox[{"Transpose", "@", 
        RowBox[{
         RowBox[{"Values", "[", "\[ScriptX]", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{";;", 
            RowBox[{"-", "2"}]}]}], "]"}], "]"}]}], ",", 
       RowBox[{"Transpose", "@", 
        RowBox[{
         RowBox[{"Values", "[", "\[ScriptX]", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{"2", ";;"}]}], "]"}], "]"}]}]}], "]"}]}], "]"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8851877218629513`*^9, 3.885187754657347*^9}, {
  3.8851887930322585`*^9, 3.8851888168251476`*^9}, {3.885188905316826*^9, 
  3.885188909694122*^9}, {3.8851892552697787`*^9, 3.8851892890851493`*^9}, {
  3.885189320431535*^9, 3.8851893250347795`*^9}, {3.885251832920492*^9, 
  3.88525184765272*^9}, {3.885706060522868*^9, 3.885706079563069*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"f0ea1440-9c01-48f3-a284-47d5a545aac5"],

Cell[BoxData[{
 RowBox[{"{", 
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxPearson1DLagPositive0Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxPearson1DLagPositive", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"#", ">", "0"}], ",", "1", ",", "0"}], "]"}], "&"}], ",", 
         "mtrxPearson1DLag", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxSpearman1DLagPositive0Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxSpearman1DLagPositive", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"#", ">", "0"}], ",", "1", ",", "0"}], "]"}], "&"}], ",", 
         "mtrxSpearman1DLag", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxKendall1DLagPositive0Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxKendall1DLagPositive", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"#", ">", "0"}], ",", "1", ",", "0"}], "]"}], "&"}], ",", 
         "mtrxKendall1DLag", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}]}], 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{"N", "@", 
      RowBox[{"Total", "@", 
       FractionBox[
        RowBox[{"Flatten", "[", "#", "]"}], 
        RowBox[{"14", 
         RowBox[{"(", 
          RowBox[{"14", "-", "1"}], ")"}]}]]}]}], ",", ".01"}], "]"}], "&"}], 
  "/@", 
  RowBox[{"{", 
   RowBox[{
   "mtrxPearson1DLagPositive0Diag", ",", "mtrxSpearman1DLagPositive0Diag", 
    ",", "mtrxKendall1DLagPositive0Diag"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.885184712379759*^9, 3.885184787088107*^9}, {
  3.8851848546677313`*^9, 3.885184858768769*^9}, {3.8851849811665325`*^9, 
  3.885185055341401*^9}, {3.885185139624575*^9, 3.885185183956314*^9}, {
  3.8851896952434673`*^9, 3.8851897449580507`*^9}, {3.8852518513859262`*^9, 
  3.8852518608136625`*^9}, {3.8857060865687294`*^9, 3.8857061246864815`*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"3d8b9d37-b51b-4789-a4fe-2b3c1fa4d4e0"],

Cell[BoxData[{
 RowBox[{"{", 
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxPearson1DLagAbsOverPt10Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxPearson1DLagAbsOverPt1", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".1"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxPearson1DLag", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxSpearman1DLagAbsOverPt10Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxSpearman1DLagAbsOverPt1", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".1"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxSpearman1DLag", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxKendall1DLagAbsOverPt10Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxKendall1DLagAbsOverPt1", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".1"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxKendall1DLag", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}]}], 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{"N", "@", 
      RowBox[{"Total", "@", 
       FractionBox[
        RowBox[{"Flatten", "[", "#", "]"}], 
        RowBox[{"14", 
         RowBox[{"(", 
          RowBox[{"14", "-", "1"}], ")"}]}]]}]}], ",", ".01"}], "]"}], "&"}], 
  "/@", 
  RowBox[{"{", 
   RowBox[{
   "mtrxPearson1DLagAbsOverPt10Diag", ",", "mtrxSpearman1DLagAbsOverPt10Diag",
     ",", "mtrxKendall1DLagAbsOverPt10Diag"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.885184712379759*^9, 3.885184787088107*^9}, {
  3.8851848546677313`*^9, 3.885184858768769*^9}, {3.8851849811665325`*^9, 
  3.885185055341401*^9}, {3.885185139624575*^9, 3.8851853317465906`*^9}, {
  3.885189699569776*^9, 3.885189751562746*^9}, {3.885251912945157*^9, 
  3.8852519236451254`*^9}, {3.8857061289428234`*^9, 3.885706161563355*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"643fed4c-be46-4985-837b-c0cad484158f"],

Cell[BoxData[{
 RowBox[{"{", 
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxPearson1DLagAbsOverPt20Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxPearson1DLagAbsOverPt2", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".2"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxPearson1DLag", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxSpearman1DLagAbsOverPt20Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxSpearman1DLagAbsOverPt2", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".2"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxSpearman1DLag", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxKendall1DLagAbsOverPt20Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxKendall1DLagAbsOverPt2", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".2"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxKendall1DLag", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}]}], 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{"N", "@", 
      RowBox[{"Total", "@", 
       FractionBox[
        RowBox[{"Flatten", "[", "#", "]"}], 
        RowBox[{"14", 
         RowBox[{"(", 
          RowBox[{"14", "-", "1"}], ")"}]}]]}]}], ",", ".01"}], "]"}], "&"}], 
  "/@", 
  RowBox[{"{", 
   RowBox[{
   "mtrxPearson1DLagAbsOverPt20Diag", ",", "mtrxSpearman1DLagAbsOverPt20Diag",
     ",", "mtrxKendall1DLagAbsOverPt20Diag"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.885184712379759*^9, 3.885184787088107*^9}, {
  3.8851848546677313`*^9, 3.885184858768769*^9}, {3.8851849811665325`*^9, 
  3.885185055341401*^9}, {3.885185139624575*^9, 3.8851853317465906`*^9}, {
  3.885185377113942*^9, 3.8851853926115046`*^9}, {3.8851897031038227`*^9, 
  3.8851897565867596`*^9}, {3.885251930397498*^9, 3.885251938304699*^9}, {
  3.885706168424241*^9, 3.8857061976064515`*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"9fe4166b-abf1-446b-97ce-238d6f6f932c"],

Cell[BoxData[{
 RowBox[{"{", 
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxPearson1DLagAbsOverPt50Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxPearson1DLagAbsOverPt5", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".5"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxPearson1DLag", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxSpearman1DLagAbsOverPt50Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxSpearman1DLagAbsOverPt5", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".5"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxSpearman1DLag", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxKendall1DLagAbsOverPt50Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxKendall1DLagAbsOverPt5", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "#", "]"}], ">", ".5"}], ",", "1", ",", 
            "0"}], "]"}], "&"}], ",", "mtrxKendall1DLag", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}]}], 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{"N", "@", 
      RowBox[{"Total", "@", 
       FractionBox[
        RowBox[{"Flatten", "[", "#", "]"}], 
        RowBox[{"14", 
         RowBox[{"(", 
          RowBox[{"14", "-", "1"}], ")"}]}]]}]}], ",", ".01"}], "]"}], "&"}], 
  "/@", 
  RowBox[{"{", 
   RowBox[{
   "mtrxPearson1DLagAbsOverPt50Diag", ",", "mtrxSpearman1DLagAbsOverPt50Diag",
     ",", "mtrxKendall1DLagAbsOverPt50Diag"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.885184712379759*^9, 3.885184787088107*^9}, {
  3.8851848546677313`*^9, 3.885184858768769*^9}, {3.8851849811665325`*^9, 
  3.885185055341401*^9}, {3.885185139624575*^9, 3.8851853317465906`*^9}, {
  3.885185377113942*^9, 3.8851854170880036`*^9}, {3.8851897057992563`*^9, 
  3.8851897597174487`*^9}, {3.88525195240565*^9, 3.8852519594002724`*^9}, {
  3.8857062041693373`*^9, 3.8857062320596523`*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"488ba8a0-d79b-4ead-9453-500e10e2d9fd"]
}, Closed]],

Cell[CellGroupData[{

Cell["Correlation Matrices (2Days)", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.885184180663868*^9, 
  3.885184184695445*^9}, {3.885187693325343*^9, 3.885187710217897*^9}, {
  3.885252048947132*^9, 3.8852520539453278`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"762a1bca-a8bd-4e9b-8617-875bc6b8ef30"],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"mtrxPearson2Days0Diag", "=", 
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
    RowBox[{"mtrxPearson2Days", "=", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Max", "[", 
         RowBox[{
          RowBox[{"-", "1"}], ",", 
          RowBox[{"Min", "[", 
           RowBox[{"1", ",", "#"}], "]"}]}], "]"}], "&"}], ",", 
       RowBox[{"mtrxPearson", "+", "mtrxPearson1DLag"}], ",", 
       RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"mtrxSpearman2Days0Diag", "=", 
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
    RowBox[{"mtrxSpearman2Days", "=", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Max", "[", 
         RowBox[{
          RowBox[{"-", "1"}], ",", 
          RowBox[{"Min", "[", 
           RowBox[{"1", ",", "#"}], "]"}]}], "]"}], "&"}], ",", 
       RowBox[{"mtrxSpearman", "+", "mtrxSpearman1DLag"}], ",", 
       RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"mtrxKendall2Days0Diag", "=", 
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
    RowBox[{"mtrxKendall2Days", "=", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Max", "[", 
         RowBox[{
          RowBox[{"-", "1"}], ",", 
          RowBox[{"Min", "[", 
           RowBox[{"1", ",", "#"}], "]"}]}], "]"}], "&"}], ",", 
       RowBox[{"mtrxKendall", "+", "mtrxKendall1DLag"}], ",", 
       RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8852531720428596`*^9, 3.885253178351014*^9}, {
  3.885253230223599*^9, 3.885253327916587*^9}, {3.885706242289903*^9, 
  3.885706246955456*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"3eac5ea0-54ec-4caf-bf8c-26112a0e0e3d"],

Cell[BoxData[{
 RowBox[{"{", 
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxPearson2DaysPositive0Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxPearson2DaysPositive", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Min", "[", 
           RowBox[{"1", ",", "#"}], "]"}], "&"}], ",", 
         RowBox[{"mtrxPearsonPositive", "+", "mtrxPearson1DLagPositive"}], 
         ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxSpearman2DaysPositive0Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxSpearman2DaysPositive", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Min", "[", 
           RowBox[{"1", ",", "#"}], "]"}], "&"}], ",", 
         RowBox[{"mtrxSpearmanPositive", "+", "mtrxSpearman1DLagPositive"}], 
         ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxKendall2DaysPositive0Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxKendall2DaysPositive", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Min", "[", 
           RowBox[{"1", ",", "#"}], "]"}], "&"}], ",", 
         RowBox[{"mtrxKendallPositive", "+", "mtrxKendall1DLagPositive"}], 
         ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}]}], 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{"N", "@", 
      RowBox[{"Total", "@", 
       FractionBox[
        RowBox[{"Flatten", "[", "#", "]"}], 
        RowBox[{"14", 
         RowBox[{"(", 
          RowBox[{"14", "-", "1"}], ")"}]}]]}]}], ",", ".01"}], "]"}], "&"}], 
  "/@", 
  RowBox[{"{", 
   RowBox[{
   "mtrxPearson2DaysPositive0Diag", ",", "mtrxSpearman2DaysPositive0Diag", 
    ",", "mtrxKendall2DaysPositive0Diag"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.885251448259144*^9, 3.8852514511270704`*^9}, {
  3.885252084617735*^9, 3.885252107805929*^9}, {3.885252138476182*^9, 
  3.8852521997333355`*^9}, {3.8852522409070663`*^9, 3.8852523599375334`*^9}, {
  3.885252905948206*^9, 3.8852529211362967`*^9}, {3.8852530108179336`*^9, 
  3.885253020416915*^9}, {3.885253116462596*^9, 3.8852531195136395`*^9}, {
  3.8857062627034354`*^9, 3.8857062667998295`*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"5aef75b0-d1ba-4723-9741-657c31ea690d"],

Cell[BoxData[{
 RowBox[{"{", 
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxPearson2DaysAbsOverPt10Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxPearson2DaysAbsOverPt1", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Min", "[", 
           RowBox[{"1", ",", "#"}], "]"}], "&"}], ",", 
         RowBox[{"mtrxPearsonAbsOverPt1", "+", "mtrxPearson1DLagAbsOverPt1"}],
          ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxSpearman2DaysAbsOverPt10Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxSpearman2DaysAbsOverPt1", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Min", "[", 
           RowBox[{"1", ",", "#"}], "]"}], "&"}], ",", 
         RowBox[{
         "mtrxSpearmanAbsOverPt1", "+", "mtrxSpearman1DLagAbsOverPt1"}], ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxKendall2DaysAbsOverPt10Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxKendall2DaysAbsOverPt1", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Min", "[", 
           RowBox[{"1", ",", "#"}], "]"}], "&"}], ",", 
         RowBox[{"mtrxKendallAbsOverPt1", "+", "mtrxKendall1DLagAbsOverPt1"}],
          ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}]}], 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{"N", "@", 
      RowBox[{"Total", "@", 
       FractionBox[
        RowBox[{"Flatten", "[", "#", "]"}], 
        RowBox[{"14", 
         RowBox[{"(", 
          RowBox[{"14", "-", "1"}], ")"}]}]]}]}], ",", ".01"}], "]"}], "&"}], 
  "/@", 
  RowBox[{"{", 
   RowBox[{
   "mtrxPearson2DaysAbsOverPt10Diag", ",", "mtrxSpearman2DaysAbsOverPt10Diag",
     ",", "mtrxKendall2DaysAbsOverPt10Diag"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.885251448259144*^9, 3.8852514511270704`*^9}, {
  3.885252084617735*^9, 3.885252107805929*^9}, {3.885252138476182*^9, 
  3.8852521997333355`*^9}, {3.8852522409070663`*^9, 3.8852523599375334`*^9}, {
  3.885252392019255*^9, 3.8852524438582993`*^9}, {3.8852528857953987`*^9, 
  3.885252898609502*^9}, {3.885706271647114*^9, 3.8857062886739025`*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"04848050-d3b2-4293-bc42-788b4e5a45a9"],

Cell[BoxData[{
 RowBox[{"{", 
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxPearson2DaysAbsOverPt20Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxPearson2DaysAbsOverPt2", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Min", "[", 
           RowBox[{"1", ",", "#"}], "]"}], "&"}], ",", 
         RowBox[{"mtrxPearsonAbsOverPt2", "+", "mtrxPearson1DLagAbsOverPt2"}],
          ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxSpearman2DaysAbsOverPt20Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxSpearman2DaysAbsOverPt2", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Min", "[", 
           RowBox[{"1", ",", "#"}], "]"}], "&"}], ",", 
         RowBox[{
         "mtrxSpearmanAbsOverPt2", "+", "mtrxSpearman1DLagAbsOverPt2"}], ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxKendall2DaysAbsOverPt20Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxKendall2DaysAbsOverPt2", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Min", "[", 
           RowBox[{"1", ",", "#"}], "]"}], "&"}], ",", 
         RowBox[{"mtrxKendallAbsOverPt2", "+", "mtrxKendall1DLagAbsOverPt2"}],
          ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}]}], 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{"N", "@", 
      RowBox[{"Total", "@", 
       FractionBox[
        RowBox[{"Flatten", "[", "#", "]"}], 
        RowBox[{"14", 
         RowBox[{"(", 
          RowBox[{"14", "-", "1"}], ")"}]}]]}]}], ",", ".01"}], "]"}], "&"}], 
  "/@", 
  RowBox[{"{", 
   RowBox[{
   "mtrxPearson2DaysAbsOverPt20Diag", ",", "mtrxSpearman2DaysAbsOverPt20Diag",
     ",", "mtrxKendall2DaysAbsOverPt20Diag"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.885251448259144*^9, 3.8852514511270704`*^9}, {
   3.885252084617735*^9, 3.885252107805929*^9}, {3.885252138476182*^9, 
   3.8852521997333355`*^9}, {3.8852522409070663`*^9, 
   3.8852523599375334`*^9}, {3.885252392019255*^9, 3.885252492573187*^9}, 
   3.8852527737996273`*^9, {3.8852528120990825`*^9, 3.8852528194883833`*^9}, {
   3.885252860925503*^9, 3.8852528818418903`*^9}, {3.885706293795045*^9, 
   3.8857062992759323`*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"eefb7bce-e7d9-4d94-aa9d-593396cda3cb"],

Cell[BoxData[{
 RowBox[{"{", 
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxPearson2DaysAbsOverPt50Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxPearson2DaysAbsOverPt5", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Min", "[", 
           RowBox[{"1", ",", "#"}], "]"}], "&"}], ",", 
         RowBox[{"mtrxPearsonAbsOverPt5", "+", "mtrxPearson1DLagAbsOverPt5"}],
          ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxSpearman2DaysAbsOverPt50Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxSpearman2DaysAbsOverPt5", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Min", "[", 
           RowBox[{"1", ",", "#"}], "]"}], "&"}], ",", 
         RowBox[{
         "mtrxSpearmanAbsOverPt5", "+", "mtrxSpearman1DLagAbsOverPt5"}], ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"mtrxKendall2DaysAbsOverPt50Diag", "=", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]RemoveDiagonal", "[", 
      RowBox[{"mtrxKendall2DaysAbsOverPt5", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Min", "[", 
           RowBox[{"1", ",", "#"}], "]"}], "&"}], ",", 
         RowBox[{"mtrxKendallAbsOverPt5", "+", "mtrxKendall1DLagAbsOverPt5"}],
          ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "]"}]}], 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{"N", "@", 
      RowBox[{"Total", "@", 
       FractionBox[
        RowBox[{"Flatten", "[", "#", "]"}], 
        RowBox[{"14", 
         RowBox[{"(", 
          RowBox[{"14", "-", "1"}], ")"}]}]]}]}], ",", ".01"}], "]"}], "&"}], 
  "/@", 
  RowBox[{"{", 
   RowBox[{
   "mtrxPearson2DaysAbsOverPt50Diag", ",", "mtrxSpearman2DaysAbsOverPt50Diag",
     ",", "mtrxKendall2DaysAbsOverPt50Diag"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.885251448259144*^9, 3.8852514511270704`*^9}, {
  3.885252084617735*^9, 3.885252107805929*^9}, {3.885252138476182*^9, 
  3.8852521997333355`*^9}, {3.8852522409070663`*^9, 3.8852523599375334`*^9}, {
  3.885252392019255*^9, 3.8852525341729016`*^9}, {3.8852527941985946`*^9, 
  3.8852528528201222`*^9}, {3.885706307082872*^9, 3.8857063167130237`*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"37a2ed87-6dda-4128-b9bb-23c87f7186b3"]
}, Closed]],

Cell[CellGroupData[{

Cell["Compile All Correlation Matrices, Check Properties", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.885184180663868*^9, 
  3.885184184695445*^9}, {3.8851864077890234`*^9, 3.8851864116768055`*^9}, {
  3.885606315997589*^9, 3.8856063294969006`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"653fc044-f839-4c56-9ffb-1786262cb480"],

Cell[BoxData[
 RowBox[{"Dimensions", "[", "\[IndentingNewLine]", 
  RowBox[{"mtrxCorrel", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "mtrxPearson", ",", "mtrxSpearman", ",", "mtrxKendall", ",", 
       "mtrxPearson0Diag", ",", "mtrxSpearman0Diag", ",", 
       "mtrxKendall0Diag"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mtrxPearsonPositive", ",", "mtrxSpearmanPositive", ",", 
       "mtrxKendallPositive", ",", "mtrxPearsonPositive0Diag", ",", 
       "mtrxSpearmanPositive0Diag", ",", "mtrxKendallPositive0Diag"}], "}"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mtrxPearsonAbsOverPt1", ",", "mtrxSpearmanAbsOverPt1", ",", 
       "mtrxKendallAbsOverPt1", ",", "mtrxPearsonAbsOverPt10Diag", ",", 
       "mtrxSpearmanAbsOverPt10Diag", ",", "mtrxKendallAbsOverPt10Diag"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mtrxPearsonAbsOverPt2", ",", "mtrxSpearmanAbsOverPt2", ",", 
       "mtrxKendallAbsOverPt2", ",", "mtrxPearsonAbsOverPt20Diag", ",", 
       "mtrxSpearmanAbsOverPt20Diag", ",", "mtrxKendallAbsOverPt20Diag"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mtrxPearsonAbsOverPt5", ",", "mtrxSpearmanAbsOverPt5", ",", 
       "mtrxKendallAbsOverPt5", ",", "mtrxPearsonAbsOverPt50Diag", ",", 
       "mtrxSpearmanAbsOverPt50Diag", ",", "mtrxKendallAbsOverPt50Diag"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mtrxPearson1DLag", ",", "mtrxSpearman1DLag", ",", "mtrxKendall1DLag", 
       ",", "mtrxPearson1DLag0Diag", ",", "mtrxSpearman1DLag0Diag", ",", 
       "mtrxKendall1DLag0Diag"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mtrxPearson1DLagPositive", ",", "mtrxSpearman1DLagPositive", ",", 
       "mtrxKendall1DLagPositive", ",", "mtrxPearson1DLagPositive0Diag", ",", 
       "mtrxSpearman1DLagPositive0Diag", ",", 
       "mtrxKendall1DLagPositive0Diag"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mtrxPearson1DLagAbsOverPt1", ",", "mtrxSpearman1DLagAbsOverPt1", ",", 
       "mtrxKendall1DLagAbsOverPt1", ",", "mtrxPearson1DLagAbsOverPt10Diag", 
       ",", "mtrxSpearman1DLagAbsOverPt10Diag", ",", 
       "mtrxKendall1DLagAbsOverPt10Diag"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mtrxPearson1DLagAbsOverPt2", ",", "mtrxSpearman1DLagAbsOverPt2", ",", 
       "mtrxKendall1DLagAbsOverPt2", ",", "mtrxPearson1DLagAbsOverPt20Diag", 
       ",", "mtrxSpearman1DLagAbsOverPt20Diag", ",", 
       "mtrxKendall1DLagAbsOverPt20Diag"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mtrxPearson1DLagAbsOverPt5", ",", "mtrxSpearman1DLagAbsOverPt5", ",", 
       "mtrxKendall1DLagAbsOverPt5", ",", "mtrxPearson1DLagAbsOverPt50Diag", 
       ",", "mtrxSpearman1DLagAbsOverPt50Diag", ",", 
       "mtrxKendall1DLagAbsOverPt50Diag"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mtrxPearson2Days", ",", "mtrxSpearman2Days", ",", "mtrxKendall2Days", 
       ",", "mtrxPearson2Days0Diag", ",", "mtrxSpearman2Days0Diag", ",", 
       "mtrxKendall2Days0Diag"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mtrxPearson2DaysPositive", ",", "mtrxSpearman2DaysPositive", ",", 
       "mtrxKendall2DaysPositive", ",", "mtrxPearson2DaysPositive0Diag", ",", 
       "mtrxSpearman2DaysPositive0Diag", ",", 
       "mtrxKendall2DaysPositive0Diag"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mtrxPearson2DaysAbsOverPt1", ",", "mtrxSpearman2DaysAbsOverPt1", ",", 
       "mtrxKendall2DaysAbsOverPt1", ",", "mtrxPearson2DaysAbsOverPt10Diag", 
       ",", "mtrxSpearman2DaysAbsOverPt10Diag", ",", 
       "mtrxKendall2DaysAbsOverPt10Diag"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mtrxPearson2DaysAbsOverPt2", ",", "mtrxSpearman2DaysAbsOverPt2", ",", 
       "mtrxKendall2DaysAbsOverPt2", ",", "mtrxPearson2DaysAbsOverPt20Diag", 
       ",", "mtrxSpearman2DaysAbsOverPt20Diag", ",", 
       "mtrxKendall2DaysAbsOverPt20Diag"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mtrxPearson2DaysAbsOverPt5", ",", "mtrxSpearman2DaysAbsOverPt5", ",", 
       "mtrxKendall2DaysAbsOverPt5", ",", "mtrxPearson2DaysAbsOverPt50Diag", 
       ",", "mtrxSpearman2DaysAbsOverPt50Diag", ",", 
       "mtrxKendall2DaysAbsOverPt50Diag"}], "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.885185887883844*^9, 3.885185911634169*^9}, {
  3.885185956404384*^9, 3.8851861266284437`*^9}, {3.885186241416064*^9, 
  3.8851862674157476`*^9}, {3.8851898266516886`*^9, 3.8851898277309294`*^9}, {
  3.8851899168582497`*^9, 3.885189933596944*^9}, {3.885252613878641*^9, 
  3.885252614988222*^9}, {3.88525271250347*^9, 3.8852527133685007`*^9}, {
  3.885427057654809*^9, 3.885427095225112*^9}, {3.8857063624869995`*^9, 
  3.885706437384627*^9}, {3.8891520751356773`*^9, 3.889152081261698*^9}, {
  3.889152233719736*^9, 3.8891522356632833`*^9}},
 CellLabel->"In[93]:=",ExpressionUUID->"61176c7e-9a27-4189-a842-a11d3d34743b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Map", "[", 
     RowBox[{"SymmetricMatrixQ", ",", "mtrxCorrel", ",", 
      RowBox[{"{", "2", "}"}]}], "]"}], "//", "MatrixForm"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Map", "[", 
     RowBox[{"PositiveSemidefiniteMatrixQ", ",", "mtrxCorrel", ",", 
      RowBox[{"{", "2", "}"}]}], "]"}], "//", "MatrixForm"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Map", "[", 
     RowBox[{"PositiveDefiniteMatrixQ", ",", "mtrxCorrel", ",", 
      RowBox[{"{", "2", "}"}]}], "]"}], "//", "MatrixForm"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Map", "[", 
     RowBox[{"Min", ",", "mtrxCorrel", ",", 
      RowBox[{"{", "2", "}"}]}], "]"}], "//", "MatrixForm"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Map", "[", 
     RowBox[{"Max", ",", "mtrxCorrel", ",", 
      RowBox[{"{", "2", "}"}]}], "]"}], "//", "MatrixForm"}]}], 
  "}"}]], "Input",
 CellChangeTimes->{{3.8851861336175976`*^9, 3.8851862217462516`*^9}, {
  3.8851862709907284`*^9, 3.8851863313417196`*^9}, {3.885190020417852*^9, 
  3.8851900790534067`*^9}, {3.8851901140427904`*^9, 3.8851901518862133`*^9}, {
  3.8891522622877374`*^9, 3.889152281294707*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"ac881e1a-4269-493e-9c3a-4d0149e0d8d7"],

Cell[BoxData[
 RowBox[{"Dimensions", "[", "\[IndentingNewLine]", 
  RowBox[{"binaryMtrxCorrel", "=", "\[IndentingNewLine]", 
   RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "mtrxPearson", ",", "mtrxSpearman", ",", "mtrxKendall", ",", 
          "mtrxPearson0Diag", ",", "mtrxSpearman0Diag", ",", 
          "mtrxKendall0Diag"}], "}"}], ","}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "mtrxPearsonPositive", ",", "mtrxSpearmanPositive", ",", 
         "mtrxKendallPositive", ",", "mtrxPearsonPositive0Diag", ",", 
         "mtrxSpearmanPositive0Diag", ",", "mtrxKendallPositive0Diag"}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "mtrxPearsonAbsOverPt1", ",", "mtrxSpearmanAbsOverPt1", ",", 
         "mtrxKendallAbsOverPt1", ",", "mtrxPearsonAbsOverPt10Diag", ",", 
         "mtrxSpearmanAbsOverPt10Diag", ",", "mtrxKendallAbsOverPt10Diag"}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "mtrxPearsonAbsOverPt2", ",", "mtrxSpearmanAbsOverPt2", ",", 
         "mtrxKendallAbsOverPt2", ",", "mtrxPearsonAbsOverPt20Diag", ",", 
         "mtrxSpearmanAbsOverPt20Diag", ",", "mtrxKendallAbsOverPt20Diag"}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "mtrxPearsonAbsOverPt5", ",", "mtrxSpearmanAbsOverPt5", ",", 
         "mtrxKendallAbsOverPt5", ",", "mtrxPearsonAbsOverPt50Diag", ",", 
         "mtrxSpearmanAbsOverPt50Diag", ",", "mtrxKendallAbsOverPt50Diag"}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "mtrxPearson1DLag", ",", "mtrxSpearman1DLag", ",", 
           "mtrxKendall1DLag", ",", "mtrxPearson1DLag0Diag", ",", 
           "mtrxSpearman1DLag0Diag", ",", "mtrxKendall1DLag0Diag"}], "}"}], 
         ","}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "mtrxPearson1DLagPositive", ",", "mtrxSpearman1DLagPositive", ",", 
         "mtrxKendall1DLagPositive", ",", "mtrxPearson1DLagPositive0Diag", 
         ",", "mtrxSpearman1DLagPositive0Diag", ",", 
         "mtrxKendall1DLagPositive0Diag"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "mtrxPearson1DLagAbsOverPt1", ",", "mtrxSpearman1DLagAbsOverPt1", ",",
          "mtrxKendall1DLagAbsOverPt1", ",", 
         "mtrxPearson1DLagAbsOverPt10Diag", ",", 
         "mtrxSpearman1DLagAbsOverPt10Diag", ",", 
         "mtrxKendall1DLagAbsOverPt10Diag"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "mtrxPearson1DLagAbsOverPt2", ",", "mtrxSpearman1DLagAbsOverPt2", ",",
          "mtrxKendall1DLagAbsOverPt2", ",", 
         "mtrxPearson1DLagAbsOverPt20Diag", ",", 
         "mtrxSpearman1DLagAbsOverPt20Diag", ",", 
         "mtrxKendall1DLagAbsOverPt20Diag"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "mtrxPearson1DLagAbsOverPt5", ",", "mtrxSpearman1DLagAbsOverPt5", ",",
          "mtrxKendall1DLagAbsOverPt5", ",", 
         "mtrxPearson1DLagAbsOverPt50Diag", ",", 
         "mtrxSpearman1DLagAbsOverPt50Diag", ",", 
         "mtrxKendall1DLagAbsOverPt50Diag"}], "}"}], ",", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "mtrxPearson2Days", ",", "mtrxSpearman2Days", ",", 
           "mtrxKendall2Days", ",", "mtrxPearson2Days0Diag", ",", 
           "mtrxSpearman2Days0Diag", ",", "mtrxKendall2Days0Diag"}], "}"}], 
         ","}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "mtrxPearson2DaysPositive", ",", "mtrxSpearman2DaysPositive", ",", 
         "mtrxKendall2DaysPositive", ",", "mtrxPearson2DaysPositive0Diag", 
         ",", "mtrxSpearman2DaysPositive0Diag", ",", 
         "mtrxKendall2DaysPositive0Diag"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "mtrxPearson2DaysAbsOverPt1", ",", "mtrxSpearman2DaysAbsOverPt1", ",",
          "mtrxKendall2DaysAbsOverPt1", ",", 
         "mtrxPearson2DaysAbsOverPt10Diag", ",", 
         "mtrxSpearman2DaysAbsOverPt10Diag", ",", 
         "mtrxKendall2DaysAbsOverPt10Diag"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "mtrxPearson2DaysAbsOverPt2", ",", "mtrxSpearman2DaysAbsOverPt2", ",",
          "mtrxKendall2DaysAbsOverPt2", ",", 
         "mtrxPearson2DaysAbsOverPt20Diag", ",", 
         "mtrxSpearman2DaysAbsOverPt20Diag", ",", 
         "mtrxKendall2DaysAbsOverPt20Diag"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "mtrxPearson2DaysAbsOverPt5", ",", "mtrxSpearman2DaysAbsOverPt5", ",",
          "mtrxKendall2DaysAbsOverPt5", ",", 
         "mtrxPearson2DaysAbsOverPt50Diag", ",", 
         "mtrxSpearman2DaysAbsOverPt50Diag", ",", 
         "mtrxKendall2DaysAbsOverPt50Diag"}], "}"}]}], "}"}], ",", 
     "\[IndentingNewLine]", "1"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.885427005748692*^9, 3.8854270890665054`*^9}, {
   3.885427138989811*^9, 3.885427163353505*^9}, {3.885606365845929*^9, 
   3.885606378029747*^9}, {3.885607259401936*^9, 3.8856072689693527`*^9}, {
   3.885706465492531*^9, 3.8857064853397126`*^9}, {3.8891521602476788`*^9, 
   3.8891521620789194`*^9}, 3.889152206543413*^9},
 CellLabel->"In[95]:=",ExpressionUUID->"1912e4c5-84ab-417b-a14a-c592d7a21f17"],

Cell[BoxData[
 RowBox[{"AdjacencyGraph", "/@", "binaryMtrxCorrel"}]], "Input",
 CellChangeTimes->{{3.8854269704909453`*^9, 3.8854269752747326`*^9}, {
   3.885427170132346*^9, 3.885427189624604*^9}, 3.8856063840218096`*^9, {
   3.8856064258575883`*^9, 3.8856064307557464`*^9}, 3.885606560862311*^9, {
   3.8856072818136854`*^9, 3.8856072872134657`*^9}},
 CellLabel->"In[96]:=",ExpressionUUID->"a8d8a327-9857-421a-b20b-adab943c43ad"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"adjacencyMtrxCorrel", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<PearsonPositive\>\"", "->", "mtrxPearsonPositive0Diag"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<SpearmanPositive\>\"", "->", "mtrxSpearmanPositive0Diag"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<KendallPositive\>\"", "->", "mtrxKendallPositive0Diag"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
     "\"\<PearsonAbsOverPt1\>\"", "->", "mtrxPearsonAbsOverPt10Diag"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
     "\"\<SpearmanAbsOverPt1\>\"", "->", "mtrxSpearmanAbsOverPt10Diag"}], ",",
      "\[IndentingNewLine]", 
     RowBox[{
     "\"\<KendallAbsOverPt1\>\"", "->", "mtrxKendallAbsOverPt10Diag"}]}], 
    "|>"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"adjacencyGraphCorrel", "=", 
   RowBox[{"AdjacencyGraph", "/@", "adjacencyMtrxCorrel"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"adjacencyMtrxCorrel1DLag", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
     "\"\<Pearson1DLagPositive\>\"", "->", "mtrxPearson1DLagPositive0Diag"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
     "\"\<Spearman1DLagPositive\>\"", "->", 
      "mtrxSpearman1DLagPositive0Diag"}], ",", "\[IndentingNewLine]", 
     RowBox[{
     "\"\<Kendall1DLagPositive\>\"", "->", "mtrxKendall1DLagPositive0Diag"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
     "\"\<Pearson1DLagAbsOverPt1\>\"", "->", 
      "mtrxPearson1DLagAbsOverPt10Diag"}], ",", "\[IndentingNewLine]", 
     RowBox[{
     "\"\<Spearman1DLagAbsOverPt1\>\"", "->", 
      "mtrxSpearman1DLagAbsOverPt10Diag"}], ",", "\[IndentingNewLine]", 
     RowBox[{
     "\"\<Kendall1DLagAbsOverPt1\>\"", "->", 
      "mtrxKendall1DLagAbsOverPt10Diag"}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"adjacencyGraphCorrel1DLag", "=", 
   RowBox[{"AdjacencyGraph", "/@", "adjacencyMtrxCorrel1DLag"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8856073058543625`*^9, 3.885607339353674*^9}, {
  3.8856095698633194`*^9, 3.8856096191011515`*^9}, {3.885617431123199*^9, 
  3.8856174405299587`*^9}, {3.8857073039464703`*^9, 3.8857073673154736`*^9}, {
  3.885774564007736*^9, 3.885774599223325*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"e742f606-86e7-4cfc-90e8-59c87ffdd058"]
}, Closed]],

Cell[CellGroupData[{

Cell["Static Visualisation", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.885792385118188*^9, 
  3.8857923896112375`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"ebe1e488-d580-449b-9c6e-8c0020cea522"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacency", "[", 
   RowBox[{
   "adjacencyMtrx_", ",", "adjacencyGraph_", ",", "labelVertices_", ",", 
    "adjacency_", ",", "titleView_", ",", "\[IndentingNewLine]", 
    "graphLayout_", ",", "sizeVertex_", ",", "sizeImage_"}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Grid", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "Bold", ",", 
          TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
           "RGBColorSwatchTemplate"]}], "]"}], "&"}], "/@", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"titleView", "<>", "\"\< - MatrixPlot\>\""}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"titleView", "<>", "\"\< - GraphPlot\>\""}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"titleView", "<>", "\"\< - GraphPlot3D\>\""}]}], "}"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"MatrixPlot", "[", 
         RowBox[{
          RowBox[{"adjacencyMtrx", "[", "adjacency", "]"}], ",", 
          RowBox[{"Mesh", "->", "All"}], ",", 
          RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"GraphPlot", "[", 
         RowBox[{
          RowBox[{"adjacencyGraph", "[", "adjacency", "]"}], ",", 
          RowBox[{"VertexLabels", "->", "labelVertices"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"GraphLayout", "->", "graphLayout"}], ",", 
          RowBox[{"VertexSize", "->", "sizeVertex"}], ",", 
          RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"GraphPlot3D", "[", 
         RowBox[{
          RowBox[{"adjacencyGraph", "[", "adjacency", "]"}], ",", 
          RowBox[{"VertexLabels", "->", "labelVertices"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"GraphLayout", "->", "graphLayout"}], ",", 
          RowBox[{"VertexSize", "->", "sizeVertex"}], ",", 
          RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}], ",", 
    RowBox[{"Frame", "->", "All"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8854323837224336`*^9, 3.8854323945379333`*^9}, {
   3.885432473206624*^9, 3.885432900561945*^9}, {3.885432960310556*^9, 
   3.885433006629282*^9}, {3.8854331115207305`*^9, 3.885433152491764*^9}, {
   3.8854332038892174`*^9, 3.885433258860891*^9}, {3.88543331837998*^9, 
   3.8854333432870336`*^9}, {3.885433377993168*^9, 3.8854337051366687`*^9}, {
   3.885433753433678*^9, 3.885433798633258*^9}, {3.885433856498012*^9, 
   3.8854338668942785`*^9}, {3.8854339035383606`*^9, 
   3.8854340491564035`*^9}, {3.885434086260288*^9, 3.885434201717524*^9}, {
   3.8854342520559497`*^9, 3.885434400087387*^9}, {3.8854344333119497`*^9, 
   3.8854345374710536`*^9}, {3.885434598999384*^9, 3.8854346443663273`*^9}, {
   3.88543469302448*^9, 3.8854348803781557`*^9}, {3.8854349285567403`*^9, 
   3.8854349344225435`*^9}, {3.885435188257352*^9, 3.885435195761675*^9}, 
   3.8854352306022406`*^9, {3.88543538119468*^9, 3.8854355559258947`*^9}, 
   3.8854362279653454`*^9, {3.8856061104982395`*^9, 3.885606191885829*^9}, {
   3.8856064354855294`*^9, 3.885606437686078*^9}, 3.8856064814036894`*^9, 
   3.885606566270522*^9, {3.885606914010069*^9, 3.885606914786411*^9}, {
   3.8856070146422977`*^9, 3.885607083917487*^9}, {3.8856327671490326`*^9, 
   3.8856328159615707`*^9}, {3.8856342293621864`*^9, 3.885634231447603*^9}, {
   3.885774511889037*^9, 3.8857745185972958`*^9}, {3.8857746352851114`*^9, 
   3.885774727600442*^9}, {3.8857747606696544`*^9, 3.885774918915951*^9}, {
   3.8857749662488155`*^9, 3.8857750186403666`*^9}, {3.8857769431774316`*^9, 
   3.8857769476321507`*^9}, 3.885777046918995*^9, {3.885777119493822*^9, 
   3.8857771225338492`*^9}, {3.8857771551678314`*^9, 3.885777319221496*^9}, {
   3.88577735374942*^9, 3.8857774844999075`*^9}, {3.88577752398254*^9, 
   3.8857775604793215`*^9}, 3.8857779377872734`*^9, 3.8857780038252506`*^9, {
   3.885785379962023*^9, 3.885785380285011*^9}, {3.885787698560673*^9, 
   3.8857877226587667`*^9}, {3.885787806744253*^9, 3.8857878117107377`*^9}, {
   3.8857993530966616`*^9, 3.885799354896433*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[101]:=",ExpressionUUID->"0c84d845-b8bf-4152-8c2d-2c063122e92b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacencyMtrx", "[", 
   RowBox[{"adjacencyMtrx_", ",", "labelVertices_", ",", "adjacency_", ",", 
    RowBox[{
    "titleView_", ":", 
     "\"\<\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacency\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"graphLayout_", ":", "GRAPHLAYOUT0"}], ",", 
    RowBox[{"sizeVertex_", ":", "VERTEXSIZE0"}], ",", 
    RowBox[{"sizeImage_", ":", "IMAGESIZE0"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"adjacencyGraph", "=", 
      RowBox[{"AdjacencyGraph", "/@", "adjacencyMtrx"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacency", "[", 
     RowBox[{
     "adjacencyMtrx", ",", "adjacencyGraph", ",", "labelVertices", ",", 
      "adjacency", ",", "titleView", ",", "\[IndentingNewLine]", 
      "graphLayout", ",", "sizeVertex", ",", "sizeImage"}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8854323837224336`*^9, 3.8854323945379333`*^9}, {
   3.885432473206624*^9, 3.885432900561945*^9}, {3.885432960310556*^9, 
   3.885433006629282*^9}, {3.8854331115207305`*^9, 3.885433152491764*^9}, {
   3.8854332038892174`*^9, 3.885433258860891*^9}, {3.88543331837998*^9, 
   3.8854333432870336`*^9}, {3.885433377993168*^9, 3.8854337051366687`*^9}, {
   3.885433753433678*^9, 3.885433798633258*^9}, {3.885433856498012*^9, 
   3.8854338668942785`*^9}, {3.8854339035383606`*^9, 
   3.8854340491564035`*^9}, {3.885434086260288*^9, 3.885434201717524*^9}, {
   3.8854342520559497`*^9, 3.885434400087387*^9}, {3.8854344333119497`*^9, 
   3.8854345374710536`*^9}, {3.885434598999384*^9, 3.8854346443663273`*^9}, {
   3.88543469302448*^9, 3.8854348803781557`*^9}, {3.8854349285567403`*^9, 
   3.8854349344225435`*^9}, {3.885435188257352*^9, 3.885435195761675*^9}, 
   3.8854352306022406`*^9, {3.88543538119468*^9, 3.8854355559258947`*^9}, 
   3.8854362279653454`*^9, {3.8856061104982395`*^9, 3.885606191885829*^9}, {
   3.8856064354855294`*^9, 3.885606437686078*^9}, 3.8856064814036894`*^9, 
   3.885606566270522*^9, {3.885606914010069*^9, 3.885606914786411*^9}, {
   3.8856070146422977`*^9, 3.885607083917487*^9}, {3.8856327671490326`*^9, 
   3.8856328159615707`*^9}, {3.8856342293621864`*^9, 3.885634231447603*^9}, {
   3.885774511889037*^9, 3.8857745185972958`*^9}, {3.8857746352851114`*^9, 
   3.885774727600442*^9}, {3.8857747606696544`*^9, 3.885774918915951*^9}, {
   3.8857749662488155`*^9, 3.8857750186403666`*^9}, {3.8857769431774316`*^9, 
   3.8857769476321507`*^9}, 3.885777046918995*^9, {3.885777119493822*^9, 
   3.8857771225338492`*^9}, {3.8857771551678314`*^9, 3.885777319221496*^9}, {
   3.88577735374942*^9, 3.8857774844999075`*^9}, {3.88577752398254*^9, 
   3.8857775604793215`*^9}, 3.8857779377872734`*^9, 3.8857780038252506`*^9, {
   3.885785379962023*^9, 3.885785380285011*^9}, {3.8857877585992794`*^9, 
   3.885787784746924*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[102]:=",ExpressionUUID->"4bf7a5fe-6d8d-478d-8d55-3c9b242f32c6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacencyGraph", "[", 
   RowBox[{"adjacencyGraph_", ",", "labelVertices_", ",", "adjacency_", ",", 
    RowBox[{
    "titleView_", ":", 
     "\"\<\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacency\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"graphLayout_", ":", "GRAPHLAYOUT0"}], ",", 
    RowBox[{"sizeVertex_", ":", "VERTEXSIZE0"}], ",", 
    RowBox[{"sizeImage_", ":", "IMAGESIZE0"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"adjacencyMtrx", "=", 
      RowBox[{"AdjacencyMatrix", "/@", "adjacencyGraph"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacency", "[", 
     RowBox[{
     "adjacencyMtrx", ",", "adjacencyGraph", ",", "labelVertices", ",", 
      "adjacency", ",", "titleView", ",", "\[IndentingNewLine]", 
      "graphLayout", ",", "sizeVertex", ",", "sizeImage"}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8854323837224336`*^9, 3.8854323945379333`*^9}, {
   3.885432473206624*^9, 3.885432900561945*^9}, {3.885432960310556*^9, 
   3.885433006629282*^9}, {3.8854331115207305`*^9, 3.885433152491764*^9}, {
   3.8854332038892174`*^9, 3.885433258860891*^9}, {3.88543331837998*^9, 
   3.8854333432870336`*^9}, {3.885433377993168*^9, 3.8854337051366687`*^9}, {
   3.885433753433678*^9, 3.885433798633258*^9}, {3.885433856498012*^9, 
   3.8854338668942785`*^9}, {3.8854339035383606`*^9, 
   3.8854340491564035`*^9}, {3.885434086260288*^9, 3.885434201717524*^9}, {
   3.8854342520559497`*^9, 3.885434400087387*^9}, {3.8854344333119497`*^9, 
   3.8854345374710536`*^9}, {3.885434598999384*^9, 3.8854346443663273`*^9}, {
   3.88543469302448*^9, 3.8854348803781557`*^9}, {3.8854349285567403`*^9, 
   3.8854349344225435`*^9}, {3.885435188257352*^9, 3.885435195761675*^9}, 
   3.8854352306022406`*^9, {3.88543538119468*^9, 3.8854355559258947`*^9}, 
   3.8854362279653454`*^9, {3.8856061104982395`*^9, 3.885606191885829*^9}, {
   3.8856064354855294`*^9, 3.885606437686078*^9}, 3.8856064814036894`*^9, 
   3.885606566270522*^9, {3.885606914010069*^9, 3.885606914786411*^9}, {
   3.8856070146422977`*^9, 3.885607083917487*^9}, {3.8856327671490326`*^9, 
   3.8856327690053067`*^9}, {3.885634223970234*^9, 3.8856342261357093`*^9}, {
   3.8857745237996745`*^9, 3.885774526976965*^9}, {3.8857749360800266`*^9, 
   3.8857750556129236`*^9}, {3.8857769510634966`*^9, 3.8857769564603577`*^9}, 
   3.8857770479410715`*^9, {3.88577757939194*^9, 3.8857775843851247`*^9}, {
   3.885777849965457*^9, 3.885777885691433*^9}, {3.8857779189383087`*^9, 
   3.88577793150171*^9}, {3.8857779756764507`*^9, 3.8857779969232783`*^9}, {
   3.8857878256741104`*^9, 3.8857878445559235`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[103]:=",ExpressionUUID->"c51163fb-24e7-41f4-93ee-e24f93887173"],

Cell[BoxData[{
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacencyMtrx", "[", 
  RowBox[{
  "adjacencyMtrxCorrel", ",", "vertexNumberLabel", ",", 
   "\"\<KendallAbsOverPt1\>\"", ",", "\"\<Test\>\"", ",", "GRAPHLAYOUT0", ",",
    "VERTEXSIZE0", ",", "Small"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacencyGraph", "[", 
  RowBox[{
  "adjacencyGraphCorrel", ",", "vertexNumberLabel", ",", 
   "\"\<KendallAbsOverPt1\>\"", ",", "\"\<Test\>\"", ",", "GRAPHLAYOUT0", ",",
    "VERTEXSIZE0", ",", "Small"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacencyMtrx", "[", 
  RowBox[{
  "adjacencyMtrxCorrel1DLag", ",", "vertexNumberLabel", ",", 
   "\"\<Kendall1DLagAbsOverPt1\>\"", ",", "\"\<Test\>\"", ",", "GRAPHLAYOUT0",
    ",", "VERTEXSIZE0", ",", "Small"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacencyGraph", "[", 
  RowBox[{
  "adjacencyGraphCorrel1DLag", ",", "vertexNumberLabel", ",", 
   "\"\<Kendall1DLagAbsOverPt1\>\"", ",", "\"\<Test\>\"", ",", "GRAPHLAYOUT0",
    ",", "VERTEXSIZE0", ",", "Small"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8856066620756545`*^9, 3.8856068153334084`*^9}, {
   3.885607113175136*^9, 3.8856071187306457`*^9}, 3.885607316434634*^9, 
   3.8856073492931585`*^9, {3.8856258862503524`*^9, 3.885625886946183*^9}, {
   3.8856259308038683`*^9, 3.8856259313191442`*^9}, {3.885632838451232*^9, 
   3.8856328425612535`*^9}, {3.8857752463659697`*^9, 3.885775260290051*^9}, {
   3.8857754694907885`*^9, 3.8857754733503866`*^9}, {3.8857755509250593`*^9, 
   3.8857756261094527`*^9}, {3.885775667238667*^9, 3.8857756708620405`*^9}, {
   3.8857757819986086`*^9, 3.885775904835402*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"4909da7d-7cfa-4def-969e-a5d61f09ab4c"],

Cell[BoxData[
 RowBox[{"Keys", "[", "adjacencyMtrxCorrel", "]"}]], "Input",
 CellLabel->
  "In[108]:=",ExpressionUUID->"e7accbd7-9628-4b7e-a12f-e899d8eb056d"],

Cell[BoxData[
 RowBox[{"Keys", "[", "adjacencyMtrxCorrel1DLag", "]"}]], "Input",
 CellChangeTimes->{{3.8891526365752554`*^9, 3.8891526392053356`*^9}},
 CellLabel->
  "In[109]:=",ExpressionUUID->"7e9c4583-6d1a-4269-9de2-3fb3999414b7"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Timing", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", "\"\<(figure)Adjacency-\>\"", "<>", "#", "<>", 
         "\"\<.png\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacencyMtrx", "[", 
         RowBox[{
         "adjacencyMtrxCorrel", ",", "vertexNumberLabel", ",", "#", ",", 
          "#"}], "]"}]}], "]"}], "&"}], "/@", 
     RowBox[{"Keys", "[", "adjacencyMtrxCorrel", "]"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8659183908689857`*^9, 3.8659183945085135`*^9}, {
   3.8659198840707097`*^9, 3.865919884450821*^9}, {3.883704974092539*^9, 
   3.8837050038915415`*^9}, {3.883783144181774*^9, 3.88378314937951*^9}, 
   3.8837833495741434`*^9, {3.883784662884652*^9, 3.8837846642146497`*^9}, 
   3.8837913308353357`*^9, {3.8837914002499266`*^9, 3.8837914021121163`*^9}, {
   3.8856073856781425`*^9, 3.88560738976175*^9}, {3.8856074531529818`*^9, 
   3.88560748674104*^9}, {3.88560752103344*^9, 3.8856075396653676`*^9}, {
   3.8856076143454547`*^9, 3.8856076390814533`*^9}, {3.88560767377332*^9, 
   3.8856076749414625`*^9}, {3.8856174546888995`*^9, 3.885617461182114*^9}, 
   3.8856329234104533`*^9, {3.885776263694957*^9, 3.8857763483178473`*^9}, {
   3.8857763917257357`*^9, 3.8857764101894913`*^9}, 3.885776451908352*^9, 
   3.8857765217583213`*^9},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[110]:=",ExpressionUUID->"a55e7c93-3afa-4167-aaba-a5463a85eb23"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Timing", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", "\"\<(figure)Adjacency-\>\"", "<>", "#", "<>", 
         "\"\<.png\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacencyMtrx", "[", 
         RowBox[{
         "adjacencyMtrxCorrel1DLag", ",", "vertexNumberLabel", ",", "#", ",", 
          "#"}], "]"}]}], "]"}], "&"}], "/@", 
     RowBox[{"Keys", "[", "adjacencyMtrxCorrel1DLag", "]"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8659183908689857`*^9, 3.8659183945085135`*^9}, {
   3.8659198840707097`*^9, 3.865919884450821*^9}, {3.883704974092539*^9, 
   3.8837050038915415`*^9}, {3.883783144181774*^9, 3.88378314937951*^9}, 
   3.8837833495741434`*^9, {3.883784662884652*^9, 3.8837846642146497`*^9}, 
   3.8837913308353357`*^9, {3.8837914002499266`*^9, 3.8837914021121163`*^9}, {
   3.8856073856781425`*^9, 3.88560738976175*^9}, {3.8856074531529818`*^9, 
   3.88560748674104*^9}, {3.88560752103344*^9, 3.8856075396653676`*^9}, {
   3.8856076143454547`*^9, 3.8856076390814533`*^9}, {3.88560767377332*^9, 
   3.8856076749414625`*^9}, {3.8856174546888995`*^9, 3.885617461182114*^9}, 
   3.8856329234104533`*^9, {3.885776263694957*^9, 3.8857763483178473`*^9}, {
   3.8857763917257357`*^9, 3.8857764101894913`*^9}, 3.885776451908352*^9, {
   3.885776510917884*^9, 3.885776525625456*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[111]:=",ExpressionUUID->"57ad3e23-4d69-4581-8bbe-a93f44e80bdf"]
}, Closed]],

Cell[CellGroupData[{

Cell["Interactive Display", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"573840a6-e49f-459c-b2d3-1e88af97349d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewAdjacencyMtrx", "[", 
   RowBox[{"adjacencyMtrx_", ",", "labelVertices_", ",", 
    RowBox[{"graphItem0_", ":", "1"}], ",", 
    RowBox[{
    "titleView_", ":", 
     "\"\<\[ScriptCapitalP]\[ScriptCapitalN]ViewAdjacency\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"graphLayout0_", ":", "GRAPHLAYOUT0"}], ",", 
    RowBox[{"sizeVertex_", ":", "VERTEXSIZE0"}], ",", 
    RowBox[{"sizeImage0_", ":", "IMAGESIZE0"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacencyMtrx", "[", 
     RowBox[{
     "adjacencyMtrx", ",", "labelVertices", ",", "adjacency", ",", 
      "titleView", ",", "\[IndentingNewLine]", "graphLayout", ",", 
      "sizeVertex", ",", "sizeImage"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"adjacency", ",", 
        RowBox[{
         RowBox[{"Keys", "[", "adjacencyMtrx", "]"}], "[", 
         RowBox[{"[", "graphItem0", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"Keys", "@", "adjacencyMtrx"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"graphLayout", ",", "graphLayout0"}], "}"}], ",", 
      "LISTGRAPHLAYOUT0"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"sizeImage", ",", "sizeImage0"}], "}"}], ",", 
      "LISTIMAGESIZE0"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ControlType", "->", "PopupMenu"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ControlPlacement", "->", "Bottom"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8854323837224336`*^9, 3.8854323945379333`*^9}, {
   3.885432473206624*^9, 3.885432900561945*^9}, {3.885432960310556*^9, 
   3.885433006629282*^9}, {3.8854331115207305`*^9, 3.885433152491764*^9}, {
   3.8854332038892174`*^9, 3.885433258860891*^9}, {3.88543331837998*^9, 
   3.8854333432870336`*^9}, {3.885433377993168*^9, 3.8854337051366687`*^9}, {
   3.885433753433678*^9, 3.885433798633258*^9}, {3.885433856498012*^9, 
   3.8854338668942785`*^9}, {3.8854339035383606`*^9, 
   3.8854340491564035`*^9}, {3.885434086260288*^9, 3.885434201717524*^9}, {
   3.8854342520559497`*^9, 3.885434400087387*^9}, {3.8854344333119497`*^9, 
   3.8854345374710536`*^9}, {3.885434598999384*^9, 3.8854346443663273`*^9}, {
   3.88543469302448*^9, 3.8854348803781557`*^9}, {3.8854349285567403`*^9, 
   3.8854349344225435`*^9}, {3.885435188257352*^9, 3.885435195761675*^9}, 
   3.8854352306022406`*^9, {3.88543538119468*^9, 3.8854355559258947`*^9}, 
   3.8854362279653454`*^9, {3.8856061104982395`*^9, 3.885606191885829*^9}, {
   3.8856064354855294`*^9, 3.885606437686078*^9}, 3.8856064814036894`*^9, 
   3.885606566270522*^9, {3.885606914010069*^9, 3.885606914786411*^9}, {
   3.8856070146422977`*^9, 3.885607083917487*^9}, {3.8856327671490326`*^9, 
   3.8856327690053067`*^9}, {3.885634223970234*^9, 3.8856342261357093`*^9}, {
   3.8857745237996745`*^9, 3.885774526976965*^9}, {3.885775179251033*^9, 
   3.8857752365848646`*^9}, {3.8857760317726355`*^9, 
   3.8857760559762115`*^9}, {3.8857769927028933`*^9, 3.885777052906608*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[112]:=",ExpressionUUID->"144a08e4-048a-4500-80e4-7b07708ed016"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewAdjacencyGraph", "[", 
   RowBox[{"adjacencyGraph_", ",", "labelVertices_", ",", 
    RowBox[{"graphItem0_", ":", "1"}], ",", 
    RowBox[{
    "titleView_", ":", 
     "\"\<\[ScriptCapitalP]\[ScriptCapitalN]ViewAdjacency\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"graphLayout0_", ":", "GRAPHLAYOUT0"}], ",", 
    RowBox[{"sizeVertex_", ":", "VERTEXSIZE0"}], ",", 
    RowBox[{"sizeImage0_", ":", "IMAGESIZE0"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacencyGraph", "[", 
     RowBox[{
     "adjacencyGraph", ",", "labelVertices", ",", "adjacency", ",", 
      "titleView", ",", "\[IndentingNewLine]", "graphLayout", ",", 
      "sizeVertex", ",", "sizeImage"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"adjacency", ",", 
        RowBox[{
         RowBox[{"Keys", "[", "adjacencyGraph", "]"}], "[", 
         RowBox[{"[", "graphItem0", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"Keys", "@", "adjacencyGraph"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"graphLayout", ",", "graphLayout0"}], "}"}], ",", 
      "LISTGRAPHLAYOUT0"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"sizeImage", ",", "sizeImage0"}], "}"}], ",", 
      "LISTIMAGESIZE0"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ControlType", "->", "PopupMenu"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ControlPlacement", "->", "Bottom"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8854323837224336`*^9, 3.8854323945379333`*^9}, {
   3.885432473206624*^9, 3.885432900561945*^9}, {3.885432960310556*^9, 
   3.885433006629282*^9}, {3.8854331115207305`*^9, 3.885433152491764*^9}, {
   3.8854332038892174`*^9, 3.885433258860891*^9}, {3.88543331837998*^9, 
   3.8854333432870336`*^9}, {3.885433377993168*^9, 3.8854337051366687`*^9}, {
   3.885433753433678*^9, 3.885433798633258*^9}, {3.885433856498012*^9, 
   3.8854338668942785`*^9}, {3.8854339035383606`*^9, 
   3.8854340491564035`*^9}, {3.885434086260288*^9, 3.885434201717524*^9}, {
   3.8854342520559497`*^9, 3.885434400087387*^9}, {3.8854344333119497`*^9, 
   3.8854345374710536`*^9}, {3.885434598999384*^9, 3.8854346443663273`*^9}, {
   3.88543469302448*^9, 3.8854348803781557`*^9}, {3.8854349285567403`*^9, 
   3.8854349344225435`*^9}, {3.885435188257352*^9, 3.885435195761675*^9}, 
   3.8854352306022406`*^9, {3.88543538119468*^9, 3.8854355559258947`*^9}, 
   3.8854362279653454`*^9, {3.8856061104982395`*^9, 3.885606191885829*^9}, {
   3.8856064354855294`*^9, 3.885606437686078*^9}, 3.8856064814036894`*^9, 
   3.885606566270522*^9, {3.885606914010069*^9, 3.885606914786411*^9}, {
   3.8856070146422977`*^9, 3.885607083917487*^9}, {3.8856327671490326`*^9, 
   3.8856327690053067`*^9}, {3.885634223970234*^9, 3.8856342261357093`*^9}, {
   3.8857745237996745`*^9, 3.885774526976965*^9}, {3.885775179251033*^9, 
   3.8857752365848646`*^9}, {3.885777027710087*^9, 3.8857770567399817`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[113]:=",ExpressionUUID->"5d5e7c0f-83cd-4120-9a53-e15fd46348fc"],

Cell[BoxData[{
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewAdjacencyMtrx", "[", 
  RowBox[{"adjacencyMtrxCorrel", ",", "vertexNumberLabel", ",", 
   RowBox[{"-", "1"}], ",", "\"\<Test\>\"", ",", "GRAPHLAYOUT0", ",", 
   "VERTEXSIZE0", ",", "Small"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewAdjacencyGraph", "[", 
  RowBox[{"adjacencyGraphCorrel", ",", "vertexNumberLabel", ",", 
   RowBox[{"-", "1"}], ",", "\"\<Test\>\"", ",", "GRAPHLAYOUT0", ",", 
   "VERTEXSIZE0", ",", "Small"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewAdjacencyMtrx", "[", 
  RowBox[{"adjacencyMtrxCorrel1DLag", ",", "vertexNumberLabel", ",", 
   RowBox[{"-", "1"}], ",", "\"\<Test\>\"", ",", "GRAPHLAYOUT0", ",", 
   "VERTEXSIZE0", ",", "Small"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewAdjacencyGraph", "[", 
  RowBox[{"adjacencyGraphCorrel1DLag", ",", "vertexNumberLabel", ",", 
   RowBox[{"-", "1"}], ",", "\"\<Test\>\"", ",", "GRAPHLAYOUT0", ",", 
   "VERTEXSIZE0", ",", "Small"}], "]"}]}], "Input",
 CellChangeTimes->{{3.885609635501339*^9, 3.885609636734359*^9}, {
  3.885625891946232*^9, 3.8856259096800947`*^9}, {3.885632859051656*^9, 
  3.885632861008947*^9}, {3.8857073421285925`*^9, 3.885707343620116*^9}, {
  3.8857756870070157`*^9, 3.8857757024694767`*^9}, {3.8857757647694483`*^9, 
  3.885775765213996*^9}, {3.8857776257470117`*^9, 3.885777626421336*^9}, {
  3.8857776578188267`*^9, 3.8857777329365735`*^9}, {3.8857777690750303`*^9, 
  3.8857777727880383`*^9}},
 CellLabel->
  "In[114]:=",ExpressionUUID->"3aa45376-9efa-4cd7-a258-567e0230bf6e"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTDEMOPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"(*", 
     RowBox[{"caution", ":", " ", 
      RowBox[{
      "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
       "execute"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"OUTPUTDIR0", "<>", "\"\<(figure)DemoViewGraph-\>\"", "<>", 
         RowBox[{
          RowBox[{"Keys", "[", "adjacencyGraphCorrel", "]"}], "[", 
          RowBox[{"[", "#", "]"}], "]"}], "<>", "\"\<.png\>\""}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewAdjacencyGraph", "[", 
         RowBox[{"adjacencyGraphCorrel", ",", "vertexNumberLabel", ",", "#"}],
          "]"}]}], "]"}], "&"}], "/@", 
     RowBox[{"Range", "[", 
      RowBox[{"Length", "[", "adjacencyGraphCorrel", "]"}], "]"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8659183908689857`*^9, 3.8659183945085135`*^9}, {
   3.8659198840707097`*^9, 3.865919884450821*^9}, {3.883704974092539*^9, 
   3.8837050038915415`*^9}, {3.883783144181774*^9, 3.88378314937951*^9}, 
   3.8837833495741434`*^9, {3.883784662884652*^9, 3.8837846642146497`*^9}, 
   3.8837913308353357`*^9, {3.8837914002499266`*^9, 3.8837914021121163`*^9}, {
   3.8856073856781425`*^9, 3.88560738976175*^9}, {3.8856074531529818`*^9, 
   3.88560748674104*^9}, {3.88560752103344*^9, 3.8856075396653676`*^9}, {
   3.8856076143454547`*^9, 3.8856076390814533`*^9}, {3.88560767377332*^9, 
   3.8856076749414625`*^9}, {3.8856174546888995`*^9, 3.885617461182114*^9}, 
   3.8856329234104533`*^9, {3.8857764771543083`*^9, 3.885776478258359*^9}, 
   3.8857765870440226`*^9, 3.889060349238508*^9, {3.8891409094622746`*^9, 
   3.8891409371896715`*^9}, {3.8891409750337048`*^9, 
   3.8891410327257795`*^9}, {3.889152994487997*^9, 3.889152994940318*^9}},
 Background->RGBColor[1, 1, 0],
 CellLabel->
  "In[118]:=",ExpressionUUID->"209d1b9a-d388-4db6-a065-bb11d10803d9"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTDEMOPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"(*", 
     RowBox[{"caution", ":", " ", 
      RowBox[{
      "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
       "execute"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"OUTPUTDIR0", "<>", "\"\<(figure)DemoViewGraph-\>\"", "<>", 
         RowBox[{
          RowBox[{"Keys", "[", "adjacencyGraphCorrel1DLag", "]"}], "[", 
          RowBox[{"[", "#", "]"}], "]"}], "<>", "\"\<.png\>\""}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewAdjacencyGraph", "[", 
         RowBox[{
         "adjacencyGraphCorrel1DLag", ",", "vertexNumberLabel", ",", "#"}], 
         "]"}]}], "]"}], "&"}], "/@", 
     RowBox[{"Range", "[", 
      RowBox[{"Length", "[", "adjacencyGraphCorrel1DLag", "]"}], "]"}]}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8659183908689857`*^9, 3.8659183945085135`*^9}, {
   3.8659198840707097`*^9, 3.865919884450821*^9}, {3.883704974092539*^9, 
   3.8837050038915415`*^9}, {3.883783144181774*^9, 3.88378314937951*^9}, 
   3.8837833495741434`*^9, {3.883784662884652*^9, 3.8837846642146497`*^9}, 
   3.8837913308353357`*^9, {3.8837914002499266`*^9, 3.8837914021121163`*^9}, {
   3.8856073856781425`*^9, 3.88560738976175*^9}, {3.8856074531529818`*^9, 
   3.88560748674104*^9}, {3.88560752103344*^9, 3.8856075396653676`*^9}, {
   3.8856076143454547`*^9, 3.8856076390814533`*^9}, {3.88560767377332*^9, 
   3.8856076749414625`*^9}, {3.885609662638277*^9, 3.8856096793566666`*^9}, {
   3.8856174661331677`*^9, 3.8856174715908556`*^9}, 3.8856329246250286`*^9, {
   3.8857065177755384`*^9, 3.885706528386402*^9}, {3.8857764837688537`*^9, 
   3.885776484789452*^9}, 3.885776588132373*^9, 3.8890603530227227`*^9, {
   3.8891409799027634`*^9, 3.8891409841943293`*^9}, {3.8891410200704904`*^9, 
   3.889141028725475*^9}, {3.8891529981614666`*^9, 3.8891530053027143`*^9}},
 Background->RGBColor[1, 1, 0],
 CellLabel->
  "In[119]:=",ExpressionUUID->"95dd7c9f-fe3d-4220-82f3-b07616112bd4"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"NotebookSave", "[", "]"}], ";", 
   RowBox[{"EmitSound", "[", 
    RowBox[{"Sound", "[", 
     RowBox[{"SoundNote", "[", 
      RowBox[{"\"\<C\>\"", ",", ".5", ",", "\"\<Violin\>\""}], "]"}], "]"}], 
    "]"}]}],
  FontColor->GrayLevel[1]]], "Input",
 CellChangeTimes->{{3.8799140033373775`*^9, 3.879914004747589*^9}, 
   3.880002577173757*^9, {3.883723918193898*^9, 3.8837239212077284`*^9}, {
   3.883787399583018*^9, 3.883787400193737*^9}},
 Background->GrayLevel[0],
 CellLabel->
  "In[120]:=",ExpressionUUID->"a695d1b0-b982-4c75-9916-05d123e78cfa"]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"7991e3c6-2a2e-436c-bd3b-7277a7936487"],

Cell[TextData[{
 StyleBox["Multi-Paradigm Analysis of ",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["Thai Capital M",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["ar",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["k",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["e",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["t Link",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["ages",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None]
}], "Title",
 CellChangeTimes->{{3.8889733224978933`*^9, 3.888973343649993*^9}, 
   3.888973377357065*^9, {3.88914167191856*^9, 3.889141726588789*^9}, 
   3.889160594736559*^9},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"a3dbf095-2e4e-43d8-ac4e-3a46c975a0b4"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Part I. Bivariate Copula Approach",
 FontColor->GrayLevel[1]]], "Subsubsection",
 CellChangeTimes->{{3.875064507138184*^9, 3.875064510805688*^9}, {
   3.878278239576824*^9, 3.878278251901373*^9}, {3.878278631105335*^9, 
   3.8782786460326586`*^9}, {3.878780306537759*^9, 3.8787803068766427`*^9}, {
   3.879907613035598*^9, 3.879907614575369*^9}, {3.8799207827834115`*^9, 
   3.8799208073698564`*^9}, {3.8851914936468697`*^9, 3.8851915000629387`*^9}, 
   3.8891417856599226`*^9},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"18d5fd4c-80c9-4ba2-8522-da1082b822a9"],

Cell[TextData[StyleBox["Poomjai Nacaskul, Ph.D.",
 FontSize->24,
 FontWeight->"Bold",
 FontColor->GrayLevel[1]]], "Author",
 CellChangeTimes->{{3.888973403835884*^9, 3.888973415957621*^9}, {
  3.88914180780099*^9, 3.889141820156021*^9}},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"d9e7634e-9693-4330-a83c-b8801a7ef552"],

Cell[TextData[StyleBox["2023.03.31",
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.8713456840497117`*^9, 3.8713456876160254`*^9}, {
   3.871345775975469*^9, 3.871345776904157*^9}, {3.871510139631436*^9, 
   3.8715101405909257`*^9}, {3.8724629762226934`*^9, 
   3.8724629773699017`*^9}, {3.8737710280597725`*^9, 
   3.8737710359277973`*^9}, {3.8738568025000906`*^9, 3.873856803019414*^9}, {
   3.873939205165445*^9, 3.873939205677453*^9}, {3.8743596248494673`*^9, 
   3.874359625242044*^9}, {3.8750017301577554`*^9, 3.8750017308440323`*^9}, {
   3.875064440437437*^9, 3.8750644424578524`*^9}, {3.8752192571420364`*^9, 
   3.8752192578607607`*^9}, {3.8782782569263105`*^9, 3.878278258646419*^9}, {
   3.878680486732724*^9, 3.878680488853014*^9}, {3.8787695800471706`*^9, 
   3.8787695804801354`*^9}, {3.8788508927279806`*^9, 3.878850894930314*^9}, {
   3.878872025588595*^9, 3.8788720295144653`*^9}, {3.878944540769303*^9, 
   3.878944541131344*^9}, {3.879297357004484*^9, 3.879297357690538*^9}, {
   3.8799070600728455`*^9, 3.879907061420087*^9}, {3.8800040148043585`*^9, 
   3.8800040154933567`*^9}, {3.880082389037445*^9, 3.8800823896979666`*^9}, {
   3.8801443918157597`*^9, 3.880144392371735*^9}, {3.880234476387456*^9, 
   3.88023447685857*^9}, {3.880407454248597*^9, 3.8804074548496447`*^9}, {
   3.880607783426791*^9, 3.8806077835665684`*^9}, {3.880665381293962*^9, 
   3.880665381693717*^9}, {3.8824037991662436`*^9, 3.882403804145291*^9}, {
   3.882575638825726*^9, 3.882575639191471*^9}, {3.8837030946017375`*^9, 
   3.8837030957541246`*^9}, {3.883782588589318*^9, 3.8837825891013546`*^9}, {
   3.8851796676111403`*^9, 3.88517966829814*^9}, {3.8852510683575716`*^9, 
   3.885251068779319*^9}, 3.8853441316893744`*^9, {3.885418024335279*^9, 
   3.885418024649368*^9}, {3.8856056960454187`*^9, 3.8856056967885513`*^9}, {
   3.8857060030532913`*^9, 3.885706003811681*^9}, {3.8857716314441442`*^9, 
   3.8857716323711596`*^9}, {3.8858537519916754`*^9, 
   3.8858537525684457`*^9}, {3.885953719030515*^9, 3.8859537192314177`*^9}, {
   3.8860427886868787`*^9, 3.88604278915788*^9}, {3.8861110938674803`*^9, 
   3.8861110944596596`*^9}, {3.8877532429375496`*^9, 
   3.8877532453732915`*^9}, {3.889050550147873*^9, 3.889050550951415*^9}, {
   3.8891399580056877`*^9, 3.8891399596256995`*^9}, {3.8892186065355444`*^9, 
   3.8892186069450803`*^9}},ExpressionUUID->"010a6531-46fa-454d-a72f-\
680bdb7c6c07"]
}, Open  ]],

Cell[CellGroupData[{

Cell["4. Demo Bivariate Copulas (can jump directly from 1.)", "Section",
 CellChangeTimes->{{3.8531086817641788`*^9, 3.8531086824037175`*^9}, {
   3.853109772392812*^9, 3.853109783167832*^9}, {3.8532212363701124`*^9, 
   3.8532212444234743`*^9}, {3.8532790456718407`*^9, 
   3.8532790594399385`*^9}, {3.8532791147125006`*^9, 
   3.8532791194158044`*^9}, {3.853280425544862*^9, 3.8532804267856207`*^9}, 
   3.853466878415967*^9, {3.885253637118565*^9, 3.8852536416042137`*^9}, 
   3.885253719755024*^9, 
   3.88545037570805*^9},ExpressionUUID->"0f30f8c8-5e42-4883-9554-\
b108a02b2fb5"],

Cell[CellGroupData[{

Cell["List Copulas & Copula Parameters", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.852682222628151*^9}, {
   3.85327977438478*^9, 3.8532797756571293`*^9}, {3.8532798235129023`*^9, 
   3.853279836322116*^9}, 3.889055111022704*^9},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"fff94742-29a0-4fcb-b47b-b15c1c147c8f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"copula", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Independent\>\"", ",", "\[IndentingNewLine]", "\"\<Frank[2]\>\"", 
     ",", "\"\<Clayton[2]\>\"", ",", "\"\<GumbelHougaard[2]\>\"", ",", 
     "\[IndentingNewLine]", "\"\<FGM[.5]\>\"", ",", "\"\<AMH[.5]\>\"", ",", 
     "\[IndentingNewLine]", "\"\<Binormal[.5]\>\"", ",", 
     "\[IndentingNewLine]", "\"\<StudentT[.5,10]\>\"", ",", 
     "\"\<StudentT[.5,5]\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"copulaDistribution", "=", "\[IndentingNewLine]", 
   RowBox[{"<|", 
    RowBox[{
     RowBox[{"\"\<Independent\>\"", "->", "\"\<Product\>\""}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<Frank[2]\>\"", "->", 
      RowBox[{"{", 
       RowBox[{"\"\<Frank\>\"", ",", "2"}], "}"}]}], ",", 
     RowBox[{"\"\<Clayton[2]\>\"", "->", 
      RowBox[{"{", 
       RowBox[{"\"\<Clayton\>\"", ",", "2"}], "}"}]}], ",", 
     RowBox[{"\"\<GumbelHougaard[2]\>\"", "->", 
      RowBox[{"{", 
       RowBox[{"\"\<GumbelHougaard\>\"", ",", "2"}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<FGM[.5]\>\"", "->", 
      RowBox[{"{", 
       RowBox[{"\"\<FGM\>\"", ",", ".5"}], "}"}]}], ",", 
     RowBox[{"\"\<AMH[.5]\>\"", "->", 
      RowBox[{"{", 
       RowBox[{"\"\<AMH\>\"", ",", ".5"}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<Binormal[.5]\>\"", "->", 
      RowBox[{"{", 
       RowBox[{"\"\<Binormal\>\"", ",", ".5"}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<StudentT[.5,10]\>\"", "->", 
      RowBox[{"{", 
       RowBox[{"\"\<MultivariateT\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", ".5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{".5", ",", "1"}], "}"}]}], "}"}], ",", "10"}], "}"}]}], 
     ",", 
     RowBox[{"\"\<StudentT[.5,5]\>\"", "->", 
      RowBox[{"{", 
       RowBox[{"\"\<MultivariateT\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", ".5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{".5", ",", "1"}], "}"}]}], "}"}], ",", "10"}], "}"}]}]}], 
    "|>"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"marginal", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Normal[0,1]\>\"", ",", "\[IndentingNewLine]", "\"\<Gamma[1,1]\>\"", 
     ",", "\"\<Gamma[2,1]\>\"", ",", "\[IndentingNewLine]", 
     "\"\<Beta[0.5,0.5]\>\"", ",", "\"\<Beta[1,1]\>\"", ",", 
     "\"\<Beta[2,2]\>\"", ",", "\"\<Beta[2,5]\>\"", ",", 
     "\"\<Beta[5,2]\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"marginalDistribution", "=", "\[IndentingNewLine]", 
   RowBox[{"<|", 
    RowBox[{
     RowBox[{"\"\<Normal[0,1]\>\"", "->", 
      RowBox[{"NormalDistribution", "[", 
       RowBox[{"0", ",", "1"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Gamma[1,1]\>\"", "->", 
      RowBox[{"GammaDistribution", "[", 
       RowBox[{"1", ",", "1"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Gamma[2,1]\>\"", "->", 
      RowBox[{"GammaDistribution", "[", 
       RowBox[{"2", ",", "1"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Beta[0.5,0.5]\>\"", "->", 
      RowBox[{"BetaDistribution", "[", 
       RowBox[{"0.5", ",", "0.5"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Beta[1,1]\>\"", "->", 
      RowBox[{"BetaDistribution", "[", 
       RowBox[{"1", ",", "1"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Beta[2,2]\>\"", "->", 
      RowBox[{"BetaDistribution", "[", 
       RowBox[{"2", ",", "2"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Beta[2,5]\>\"", "->", 
      RowBox[{"BetaDistribution", "[", 
       RowBox[{"2", ",", "5"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Beta[5,2]\>\"", "->", 
      RowBox[{"BetaDistribution", "[", 
       RowBox[{"5", ",", "2"}], "]"}]}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"marginalPlotRange", "=", "\[IndentingNewLine]", 
   RowBox[{"<|", 
    RowBox[{
     RowBox[{"\"\<Normal[0,1]\>\"", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "3"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Gamma[1,1]\>\"", "->", 
      RowBox[{"{", 
       RowBox[{"0", ",", "10"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Gamma[2,1]\>\"", "->", 
      RowBox[{"{", 
       RowBox[{"0", ",", "10"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Beta[0.5,0.5]\>\"", "->", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Beta[1,1]\>\"", "->", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Beta[2,2]\>\"", "->", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Beta[2,5]\>\"", "->", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Beta[5,2]\>\"", "->", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}]}], "|>"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8526745242487125`*^9, 3.8526746743477488`*^9}, {
   3.8526747074308043`*^9, 3.85267476438297*^9}, {3.852674891732151*^9, 
   3.8526749057140293`*^9}, {3.8526749460721397`*^9, 3.852675016911294*^9}, {
   3.852675214591304*^9, 3.852675225013301*^9}, {3.8526752550165744`*^9, 
   3.8526753556914005`*^9}, {3.8526754063128157`*^9, 
   3.8526754856728535`*^9}, {3.852675534208416*^9, 3.852675605855125*^9}, {
   3.8526757095064936`*^9, 3.8526757134743924`*^9}, {3.852675805448269*^9, 
   3.8526758403132467`*^9}, {3.852675930693796*^9, 3.852675956601522*^9}, {
   3.8526760125288777`*^9, 3.8526761105084257`*^9}, {3.852676275145325*^9, 
   3.8526764738180885`*^9}, {3.8526766332783346`*^9, 
   3.8526766616972404`*^9}, {3.8526767059708233`*^9, 
   3.8526767158903484`*^9}, {3.8526769380593104`*^9, 
   3.8526770179267054`*^9}, {3.852677110858617*^9, 3.8526771474760675`*^9}, {
   3.8526779199683566`*^9, 3.8526779947890263`*^9}, {3.852678036908307*^9, 
   3.852678096913746*^9}, {3.852678142101308*^9, 3.8526783025904617`*^9}, {
   3.8526785454118996`*^9, 3.852678585601763*^9}, {3.852678717750289*^9, 
   3.852678718980956*^9}, {3.852678768052213*^9, 3.852678812886889*^9}, {
   3.852678869524908*^9, 3.8526788999487276`*^9}, {3.8526791710038357`*^9, 
   3.852679175348982*^9}, 3.8526792255940685`*^9, {3.85267927014124*^9, 
   3.8526792941428843`*^9}, {3.8526793408178544`*^9, 3.852679343128829*^9}, {
   3.852679426830035*^9, 3.8526794696991243`*^9}, {3.8526795920176125`*^9, 
   3.8526798621222997`*^9}, {3.852679903962571*^9, 3.852679963228649*^9}, {
   3.852679995020649*^9, 3.8526800003907824`*^9}, {3.852681408832206*^9, 
   3.8526814140418386`*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[121]:=",ExpressionUUID->"76a750ab-f5bc-4005-a147-74250913711c"]
}, Closed]],

Cell[CellGroupData[{

Cell["Interactive Display", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"641ee1f4-700a-4749-b13e-047dcb1a0d60"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula", "[", 
   RowBox[{
    RowBox[{"\[ScriptCapitalC]xy0_", ":", "\"\<Binormal[.5]\>\""}], ",", 
    RowBox[{"\[ScriptCapitalD]x0_", ":", "\"\<Normal[0,1]\>\""}], ",", 
    RowBox[{"\[ScriptCapitalD]y0_", ":", "\"\<Normal[0,1]\>\""}], ",", 
    RowBox[{"\[ScriptCapitalC]xyPlot0_", ":", "ContourPlot"}], ",", 
    RowBox[{"\[ScriptCapitalD]xyPlot0_", ":", "Plot3D"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Grid", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "Bold"}], "]"}], "&"}], "/@", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(Copula\), \(X, Y\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(Marginal\), \(X\)]\)\>\""}], "}"}]}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"\[ScriptCapitalC]xyPlot", "[", 
           RowBox[{
            RowBox[{"PDF", "[", 
             RowBox[{
              RowBox[{"CopulaDistribution", "[", 
               RowBox[{
                RowBox[{
                "copulaDistribution", "[", "\[ScriptCapitalC]xy", "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"UniformDistribution", "[", "]"}], ",", 
                  RowBox[{"UniformDistribution", "[", "]"}]}], "}"}]}], "]"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"u", ",", "v"}], "}"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"v", ",", "0", ",", "1"}], "}"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PlotRange", "->", "\[ScriptCapitalC]xyPlotRange"}]}], 
           "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Plot", "[", 
           RowBox[{
            RowBox[{"PDF", "[", 
             RowBox[{
              RowBox[{
              "marginalDistribution", "[", "\[ScriptCapitalD]x", "]"}], ",", 
              "x"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"x", ",", 
              RowBox[{
               RowBox[{"marginalPlotRange", "[", "\[ScriptCapitalD]x", "]"}], 
               "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{
               RowBox[{"marginalPlotRange", "[", "\[ScriptCapitalD]x", "]"}], 
               "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], "}"}], ",",
         "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "Bold"}], "]"}], "&"}], "/@", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(Marginal\), \(Y\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(Distribution\), \(X, Y\)]\)\>\""}], 
          "}"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Rotate", "[", 
           RowBox[{
            RowBox[{"Plot", "[", 
             RowBox[{
              RowBox[{"PDF", "[", 
               RowBox[{
                RowBox[{
                "marginalDistribution", "[", "\[ScriptCapitalD]y", "]"}], ",",
                 "y"}], "]"}], ",", "\[IndentingNewLine]", 
              RowBox[{"{", 
               RowBox[{"y", ",", 
                RowBox[{
                 RowBox[{
                 "marginalPlotRange", "[", "\[ScriptCapitalD]y", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{
                 "marginalPlotRange", "[", "\[ScriptCapitalD]y", "]"}], "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"\[Pi]", "/", "2"}]}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"\[ScriptCapitalD]xyPlot", "[", 
           RowBox[{
            RowBox[{"PDF", "[", 
             RowBox[{
              RowBox[{"CopulaDistribution", "[", 
               RowBox[{
                RowBox[{
                "copulaDistribution", "[", "\[ScriptCapitalC]xy", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                  "marginalDistribution", "[", "\[ScriptCapitalD]x", "]"}], 
                  ",", 
                  RowBox[{
                  "marginalDistribution", "[", "\[ScriptCapitalD]y", "]"}]}], 
                 "}"}]}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "y"}], "}"}]}], "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"x", ",", 
              RowBox[{
               RowBox[{"marginalPlotRange", "[", "\[ScriptCapitalD]x", "]"}], 
               "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{
               RowBox[{"marginalPlotRange", "[", "\[ScriptCapitalD]x", "]"}], 
               "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"y", ",", 
              RowBox[{
               RowBox[{"marginalPlotRange", "[", "\[ScriptCapitalD]y", "]"}], 
               "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{
               RowBox[{"marginalPlotRange", "[", "\[ScriptCapitalD]y", "]"}], 
               "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PlotRange", "->", "\[ScriptCapitalD]xyPlotRange"}]}], 
           "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Frame", "->", "All"}]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula\>\"", ",", "Bold",
       ",", "Large", ",", 
      TemplateBox[<|"color" -> RGBColor[0.25, 0.5, 0.75]|>,
       "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Poomjai Nacaskul, Ph.D.\>\"", ",", "Bold", ",", "Medium", ",", 
      TemplateBox[<|"color" -> RGBColor[0, 0, 0.75]|>,
       "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<2021.02.12\>\"", ",", "Bold", ",", "Small", ",", 
      TemplateBox[<|"color" -> RGBColor[0.45, 0.3, 0.15]|>,
       "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
    "Delimiter", ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[ScriptCapitalC]xy", ",", "\[ScriptCapitalC]xy0"}], "}"}], 
      ",", "copula"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[ScriptCapitalC]xyPlot", ",", "\[ScriptCapitalC]xyPlot0"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ContourPlot", ",", "Plot3D"}], "}"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"\[ScriptCapitalC]xyPlotRange", ",", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "All"}], "}"}]}], "}"}], ",", 
    "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[ScriptCapitalD]x", ",", "\[ScriptCapitalD]x0"}], "}"}], ",",
       "marginal"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[ScriptCapitalD]y", ",", "\[ScriptCapitalD]y0"}], "}"}], ",",
       "marginal"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[ScriptCapitalD]xyPlot", ",", "\[ScriptCapitalD]xyPlot0"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ContourPlot", ",", "Plot3D"}], "}"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"\[ScriptCapitalD]xyPlotRange", ",", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "All"}], "}"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"ControlPlacement", "->", "Right"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8526755210194454`*^9, 3.8526755467956877`*^9}, {
   3.8526756422732058`*^9, 3.8526757030811157`*^9}, {3.852675736905656*^9, 
   3.852675786474879*^9}, {3.852675825244961*^9, 3.8526758679758544`*^9}, 
   3.8526759169215097`*^9, {3.852676495346631*^9, 3.852676584697729*^9}, {
   3.8526767434191694`*^9, 3.852676752221615*^9}, {3.8526767890976677`*^9, 
   3.852676902718505*^9}, {3.852677063802537*^9, 3.852677087360999*^9}, {
   3.8526772080353127`*^9, 3.8526772256185837`*^9}, {3.852677277662052*^9, 
   3.8526773917529316`*^9}, {3.8526774354371357`*^9, 
   3.8526774501004114`*^9}, {3.852677482588585*^9, 3.8526775360724096`*^9}, {
   3.8526775668441315`*^9, 3.8526775685076313`*^9}, {3.8526776131213913`*^9, 
   3.8526776351492667`*^9}, {3.852677686196452*^9, 3.852677708139758*^9}, {
   3.8526778344117107`*^9, 3.852677864773752*^9}, 3.852677943399109*^9, {
   3.852678343986088*^9, 3.852678355677039*^9}, {3.8526784774654264`*^9, 
   3.8526784799409447`*^9}, {3.852678521350386*^9, 3.8526785378056793`*^9}, {
   3.8526789360065317`*^9, 3.852678970573475*^9}, 3.8526791380609455`*^9, {
   3.8526791886470885`*^9, 3.852679189376704*^9}, {3.8526800718817043`*^9, 
   3.8526801819082007`*^9}, {3.8526802169392176`*^9, 
   3.8526802399620123`*^9}, {3.8526802726760387`*^9, 
   3.8526802777050467`*^9}, {3.8526805808224974`*^9, 
   3.8526806902355814`*^9}, {3.8526807369434333`*^9, 
   3.8526807515916524`*^9}, {3.852680786016412*^9, 3.852680894546548*^9}, {
   3.8526809245568795`*^9, 3.8526811312584534`*^9}, {3.852681179336047*^9, 
   3.8526811797878733`*^9}, {3.852681234795288*^9, 3.852681255186902*^9}, {
   3.852681293461234*^9, 3.8526813396363835`*^9}, {3.852681395664889*^9, 
   3.8526813961744943`*^9}, {3.852681432108468*^9, 3.8526814607126074`*^9}, {
   3.852681501097562*^9, 3.852681566586513*^9}, {3.8526816997778835`*^9, 
   3.8526817222019997`*^9}, {3.85268176839806*^9, 3.8526817773979783`*^9}, {
   3.852681932983539*^9, 3.852681974094835*^9}, {3.8526820697462955`*^9, 
   3.852682165897744*^9}, {3.853377979214246*^9, 3.853377990039029*^9}, {
   3.853382260830779*^9, 3.8533822616036644`*^9}, {3.853637191306279*^9, 
   3.8536371914475183`*^9}, {3.8537250759140034`*^9, 
   3.8537251672650366`*^9}, {3.853725224604125*^9, 3.853725248975099*^9}, 
   3.853734260113375*^9, {3.853734568672728*^9, 3.8537345696581917`*^9}, 
   3.853822357893749*^9},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[126]:=",ExpressionUUID->"1bcfbc94-b598-4332-85ca-8357cf9cf60e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula", "[", "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula", "[", 
    RowBox[{
    "\"\<Clayton[2]\>\"", ",", "\"\<Gamma[1,1]\>\"", ",", "\"\<Beta[5,2]\>\"",
      ",", "Plot3D", ",", "ContourPlot"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.8533818182981186`*^9, 3.8533818728851905`*^9}, {
   3.8533819176822376`*^9, 3.853381932438266*^9}, {3.853382061455096*^9, 
   3.853382069370922*^9}, 3.8533823432745724`*^9, {3.8533932943307657`*^9, 
   3.8533932952199144`*^9}, {3.889141511430065*^9, 3.8891415374290624`*^9}},
 CellLabel->
  "In[127]:=",ExpressionUUID->"24229b28-9525-4988-ac53-db6c9992311c"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTDEMOPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"(*", 
     RowBox[{"caution", ":", " ", 
      RowBox[{
      "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
       "execute"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBivarCopula-Frank(2),Uniform,Uniform.png\>\""}], 
        ",", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula", "[", 
         RowBox[{
         "\"\<Frank[2]\>\"", ",", "\"\<Beta[1,1]\>\"", ",", 
          "\"\<Beta[1,1]\>\"", ",", "ContourPlot", ",", "Plot3D"}], "]"}]}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBivarCopula-Frank(2),StdNormal,StdNormal.png\>\""}],
         ",", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula", "[", 
         RowBox[{
         "\"\<Frank[2]\>\"", ",", "\"\<Normal[0,1]\>\"", ",", 
          "\"\<Normal[0,1]\>\"", ",", "ContourPlot", ",", "Plot3D"}], "]"}]}],
        "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBivarCopula-Frank(2),Gamma(1,1),Beta(5,2).png\>\""}]\
, ",", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula", "[", 
         RowBox[{
         "\"\<Frank[2]\>\"", ",", "\"\<Gamma[1,1]\>\"", ",", 
          "\"\<Beta[5,2]\>\"", ",", "ContourPlot", ",", "Plot3D"}], "]"}]}], 
       "]"}]}], "}"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8537248703476653`*^9, 3.853724875601264*^9}, {
  3.853724950220853*^9, 3.853725025991973*^9}, {3.853725759850684*^9, 
  3.853725795361871*^9}, {3.854407138581337*^9, 3.854407161088278*^9}, {
  3.854408078876499*^9, 3.854408087875191*^9}, {3.8544189771069374`*^9, 
  3.8544189998479137`*^9}, {3.8659194252045116`*^9, 3.865919435148666*^9}, {
  3.86591974656133*^9, 3.865919752821805*^9}, {3.8837937665323153`*^9, 
  3.8837938125666122`*^9}, {3.8890586726860447`*^9, 3.8890586747156467`*^9}, {
  3.8891413518973656`*^9, 3.8891413573533635`*^9}},
 Background->RGBColor[1, 1, 0],
 CellLabel->
  "In[128]:=",ExpressionUUID->"a13ca159-15d9-4aed-8046-c7cbff30cbe5"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTDEMOPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"(*", 
     RowBox[{"caution", ":", " ", 
      RowBox[{
      "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
       "execute"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBivarCopula-Clayton(2),Uniform,Uniform.png\>\""}], 
        ",", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula", "[", 
         RowBox[{
         "\"\<Clayton[2]\>\"", ",", "\"\<Beta[1,1]\>\"", ",", 
          "\"\<Beta[1,1]\>\"", ",", "ContourPlot", ",", "Plot3D"}], "]"}]}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBivarCopula-Clayton(2),StdNormal,StdNormal.png\>\""}\
], ",", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula", "[", 
         RowBox[{
         "\"\<Clayton[2]\>\"", ",", "\"\<Normal[0,1]\>\"", ",", 
          "\"\<Normal[0,1]\>\"", ",", "ContourPlot", ",", "Plot3D"}], "]"}]}],
        "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBivarCopula-Clayton(2),Gamma(1,1),Beta(5,2).png\>\"\
"}], ",", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula", "[", 
         RowBox[{
         "\"\<Clayton[2]\>\"", ",", "\"\<Gamma[1,1]\>\"", ",", 
          "\"\<Beta[5,2]\>\"", ",", "ContourPlot", ",", "Plot3D"}], "]"}]}], 
       "]"}]}], "}"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8537248703476653`*^9, 3.853724875601264*^9}, {
  3.853724950220853*^9, 3.853725025991973*^9}, {3.853725759850684*^9, 
  3.8537257623568277`*^9}, {3.854407181944299*^9, 3.8544072036533346`*^9}, {
  3.8544083394062834`*^9, 3.8544083414952583`*^9}, {3.8544190014170666`*^9, 
  3.8544190032158813`*^9}, {3.865919437710578*^9, 3.8659194449530535`*^9}, {
  3.8659197546800475`*^9, 3.8659197560959053`*^9}, {3.8837938264463625`*^9, 
  3.883793843560625*^9}, {3.883810700251521*^9, 3.8838107022985306`*^9}, {
  3.8890586718058863`*^9, 3.8890586766690116`*^9}, {3.889141361361411*^9, 
  3.889141364409706*^9}},
 Background->RGBColor[1, 1, 0],
 CellLabel->
  "In[129]:=",ExpressionUUID->"52d2a57e-462a-4507-99b3-8173cd9a1e6d"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTDEMOPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"(*", 
     RowBox[{"caution", ":", " ", 
      RowBox[{
      "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
       "execute"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBivarCopula-FGM(0.5),Uniform,Uniform.png\>\""}], 
        ",", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula", "[", 
         RowBox[{
         "\"\<FGM[.5]\>\"", ",", "\"\<Beta[1,1]\>\"", ",", 
          "\"\<Beta[1,1]\>\"", ",", "ContourPlot", ",", "Plot3D"}], "]"}]}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBivarCopula-FGM(0.5),StdNormal,StdNormal.png\>\""}],
         ",", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula", "[", 
         RowBox[{
         "\"\<FGM[.5]\>\"", ",", "\"\<Normal[0,1]\>\"", ",", 
          "\"\<Normal[0,1]\>\"", ",", "ContourPlot", ",", "Plot3D"}], "]"}]}],
        "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBivarCopula-FGM(0.5),Gamma(1,1),Beta(5,2).png\>\""}]\
, ",", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula", "[", 
         RowBox[{
         "\"\<FGM[.5]\>\"", ",", "\"\<Gamma[1,1]\>\"", ",", 
          "\"\<Beta[5,2]\>\"", ",", "ContourPlot", ",", "Plot3D"}], "]"}]}], 
       "]"}]}], "}"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8537248703476653`*^9, 3.853724875601264*^9}, {
  3.853724950220853*^9, 3.853725025991973*^9}, {3.853725759850684*^9, 
  3.8537257623568277`*^9}, {3.853725815593842*^9, 3.853725830897616*^9}, {
  3.853725914637963*^9, 3.853725940976798*^9}, {3.8544072207331853`*^9, 
  3.8544072335971584`*^9}, {3.854408349083912*^9, 3.8544083517892437`*^9}, {
  3.854419005265966*^9, 3.8544190071420236`*^9}, {3.865919449808805*^9, 
  3.865919457621021*^9}, {3.8659197573576107`*^9, 3.8659197598195543`*^9}, {
  3.883787517855586*^9, 3.883787591885079*^9}, {3.8838107040105314`*^9, 
  3.883810707589172*^9}, {3.8890586694061575`*^9, 3.889058670645624*^9}, {
  3.889141371066396*^9, 3.889141385661565*^9}},
 Background->RGBColor[1, 1, 0],
 CellLabel->
  "In[130]:=",ExpressionUUID->"9359ffbe-3151-49c7-b468-f27ea63319d4"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"DEPLOYAPP", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"(*", 
     RowBox[{"caution", ":", " ", 
      RowBox[{
      "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
       "execute"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CloudDeploy", "[", 
       RowBox[{
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula", "[", "]"}], ",", 
        RowBox[{"Permissions", "->", "\"\<Public\>\""}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"CloudDeploy", "[", 
       RowBox[{
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula", "[", 
         RowBox[{
         "\"\<Clayton[2]\>\"", ",", "\"\<Gamma[1,1]\>\"", ",", 
          "\"\<Beta[5,2]\>\"", ",", "Plot3D", ",", "ContourPlot"}], "]"}], 
        ",", 
        RowBox[{"Permissions", "->", "\"\<Public\>\""}]}], "]"}]}], "}"}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8852538716195188`*^9, 3.885253892133038*^9}, {
   3.889141468536701*^9, 3.889141471066764*^9}, 3.889218487662844*^9, {
   3.8892187146976976`*^9, 3.889218716856621*^9}},
 Background->RGBColor[1, 1, 0],
 CellLabel->
  "In[135]:=",ExpressionUUID->"3db2281c-ff32-47ea-befe-5e1dbaf0e171"],

Cell[BoxData[{
 RowBox[{"CloudDeploy", "[", 
  RowBox[{
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula", "[", "]"}], 
   ",", 
   RowBox[{"Permissions", "->", "\"\<Public\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 InterpretationBox[
  RowBox[{"CloudObject", "[", 
   TemplateBox[{
    "\"https://www.wolframcloud.com/obj/aa301bdf-ae7b-4f4d-aad9-419992ca88d3\"\
", "https://www.wolframcloud.com/obj/aa301bdf-ae7b-4f4d-aad9-419992ca88d3"},
    "HyperlinkURL"], "]"}],
  CloudObject[
  "https://www.wolframcloud.com/obj/aa301bdf-ae7b-4f4d-aad9-419992ca88d3"],
  SelectWithContents->True], "\[LineSeparator]", 
 InterpretationBox[
  RowBox[{"CloudObject", "[", 
   TemplateBox[{
    "\"https://www.wolframcloud.com/obj/226dba7a-9db0-4b1f-a508-c60330bdf06a\"\
", "https://www.wolframcloud.com/obj/226dba7a-9db0-4b1f-a508-c60330bdf06a"},
    "HyperlinkURL"], "]"}],
  CloudObject[
  "https://www.wolframcloud.com/obj/226dba7a-9db0-4b1f-a508-c60330bdf06a"],
  SelectWithContents->True]}], "Input",
 Evaluatable->False,
 CellChangeTimes->{{3.853379077885576*^9, 3.8533791124341745`*^9}, {
  3.8799135614885902`*^9, 3.8799135620823603`*^9}, {3.889218829392557*^9, 
  3.889218829992756*^9}},
 Background->GrayLevel[
  0.85],ExpressionUUID->"20b53960-de09-4ed5-8279-4ddbcab40467"],

Cell[BoxData[{
 RowBox[{"CloudDeploy", "[", 
  RowBox[{
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula", "[", 
    RowBox[{
    "\"\<Clayton[2]\>\"", ",", "\"\<Gamma[1,1]\>\"", ",", "\"\<Beta[5,2]\>\"",
      ",", "Plot3D", ",", "ContourPlot"}], "]"}], ",", 
   RowBox[{"Permissions", "->", "\"\<Public\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 InterpretationBox[
  RowBox[{"CloudObject", "[", 
   TemplateBox[{
    "\"https://www.wolframcloud.com/obj/ba5a8fb8-6dd7-4e2f-9508-9667b3fffbb0\"\
", "https://www.wolframcloud.com/obj/ba5a8fb8-6dd7-4e2f-9508-9667b3fffbb0"},
    "HyperlinkURL"], "]"}],
  CloudObject[
  "https://www.wolframcloud.com/obj/ba5a8fb8-6dd7-4e2f-9508-9667b3fffbb0"],
  SelectWithContents->True], "\[LineSeparator]", 
 InterpretationBox[
  RowBox[{"CloudObject", "[", 
   TemplateBox[{
    "\"https://www.wolframcloud.com/obj/f87b4536-ca13-414e-aebd-57f6f48a2d9a\"\
", "https://www.wolframcloud.com/obj/f87b4536-ca13-414e-aebd-57f6f48a2d9a"},
    "HyperlinkURL"], "]"}],
  CloudObject[
  "https://www.wolframcloud.com/obj/f87b4536-ca13-414e-aebd-57f6f48a2d9a"],
  SelectWithContents->True]}], "Input",
 Evaluatable->False,
 CellChangeTimes->{
  3.8533792852026386`*^9, {3.879913584792063*^9, 3.879913585173562*^9}, {
   3.8892188216168885`*^9, 3.889218822301592*^9}},
 Background->GrayLevel[
  0.85],ExpressionUUID->"8bd537e5-f856-4c1f-aff4-4e00f1687858"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopulaWithFittedMarginals", "[", 
   RowBox[{
    RowBox[{"\[ScriptCapitalC]xy0_", ":", "\"\<Binormal[.5]\>\""}], ",", 
    RowBox[{"\[ScriptCapitalC]xyPlot0_", ":", "ContourPlot"}], ",", 
    RowBox[{"\[ScriptCapitalD]xyPlot0_", ":", "Plot3D"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Grid", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "Bold"}], "]"}], "&"}], "/@", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(Copula\), \(X, Y\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(Marginal\), \(X\)]\)\>\""}], "}"}]}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"\[ScriptCapitalC]xyPlot", "[", 
           RowBox[{
            RowBox[{"PDF", "[", 
             RowBox[{
              RowBox[{"CopulaDistribution", "[", 
               RowBox[{
                RowBox[{
                "copulaDistribution", "[", "\[ScriptCapitalC]xy", "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"UniformDistribution", "[", "]"}], ",", 
                  RowBox[{"UniformDistribution", "[", "]"}]}], "}"}]}], "]"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"u", ",", "v"}], "}"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"v", ",", "0", ",", "1"}], "}"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PlotRange", "->", "\[ScriptCapitalC]xyPlotRange"}]}], 
           "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Plot", "[", 
           RowBox[{
            RowBox[{"PDF", "[", 
             RowBox[{
              RowBox[{"\[ScriptCapitalD]", "[", "X", "]"}], ",", "x"}], "]"}],
             ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"x", ",", 
              RowBox[{
               RowBox[{"minmax", "[", "X", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{
               RowBox[{"minmax", "[", "X", "]"}], "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "Bold"}], "]"}], "&"}], "/@", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(Marginal\), \(Y\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(Distribution\), \(X, Y\)]\)\>\""}], 
          "}"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Rotate", "[", 
           RowBox[{
            RowBox[{"Plot", "[", 
             RowBox[{
              RowBox[{"PDF", "[", 
               RowBox[{
                RowBox[{"\[ScriptCapitalD]", "[", "Y", "]"}], ",", "y"}], 
               "]"}], ",", "\[IndentingNewLine]", 
              RowBox[{"{", 
               RowBox[{"y", ",", 
                RowBox[{
                 RowBox[{"minmax", "[", "Y", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"minmax", "[", "Y", "]"}], "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
              RowBox[{"PlotRange", "->", "All"}]}], "]"}], ",", 
            RowBox[{"\[Pi]", "/", "2"}]}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"\[ScriptCapitalD]xyPlot", "[", 
           RowBox[{
            RowBox[{"PDF", "[", 
             RowBox[{
              RowBox[{"CopulaDistribution", "[", 
               RowBox[{
                RowBox[{
                "copulaDistribution", "[", "\[ScriptCapitalC]xy", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"\[ScriptCapitalD]", "[", "X", "]"}], ",", 
                  RowBox[{"\[ScriptCapitalD]", "[", "Y", "]"}]}], "}"}]}], 
               "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "y"}], "}"}]}], "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"x", ",", 
              RowBox[{
               RowBox[{"minmax", "[", "X", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{
               RowBox[{"minmax", "[", "X", "]"}], "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"y", ",", 
              RowBox[{
               RowBox[{"minmax", "[", "Y", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{
               RowBox[{"minmax", "[", "Y", "]"}], "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PlotRange", "->", "\[ScriptCapitalD]xyPlotRange"}]}], 
           "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Frame", "->", "All"}]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<\[ScriptCapitalP]\[ScriptCapitalN]DemoBivarCopula\\n(\
onFittedMarginals)\>\"", ",", "Bold", ",", "Large", ",", 
      TemplateBox[<|"color" -> RGBColor[0.25, 0.5, 0.75]|>,
       "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Poomjai Nacaskul, Ph.D.\>\"", ",", "Bold", ",", "Medium", ",", 
      TemplateBox[<|"color" -> RGBColor[0, 0, 0.75]|>,
       "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<2021.02.14\>\"", ",", "Bold", ",", "Small", ",", 
      TemplateBox[<|"color" -> RGBColor[0.45, 0.3, 0.15]|>,
       "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
    "Delimiter", ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[ScriptCapitalC]xy", ",", "\[ScriptCapitalC]xy0"}], "}"}], 
      ",", "copula"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[ScriptCapitalC]xyPlot", ",", "\[ScriptCapitalC]xyPlot0"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ContourPlot", ",", "Plot3D"}], "}"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[ScriptCapitalC]xyPlotRange", ",", "All"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "All"}], "}"}]}], "}"}], ",", 
    "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"X", ",", "\"\<SET\>\""}], "}"}], ",", "varName"}], "}"}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Y", ",", "\"\<SP500\>\""}], "}"}], ",", "varName"}], "}"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[ScriptCapitalD]xyPlot", ",", "\[ScriptCapitalD]xyPlot0"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ContourPlot", ",", "Plot3D"}], "}"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[ScriptCapitalD]xyPlotRange", ",", "All"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "All"}], "}"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"ControlPlacement", "->", "Right"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8526755210194454`*^9, 3.8526755467956877`*^9}, {
   3.8526756422732058`*^9, 3.8526757030811157`*^9}, {3.852675736905656*^9, 
   3.852675786474879*^9}, {3.852675825244961*^9, 3.8526758679758544`*^9}, 
   3.8526759169215097`*^9, {3.852676495346631*^9, 3.852676584697729*^9}, {
   3.8526767434191694`*^9, 3.852676752221615*^9}, {3.8526767890976677`*^9, 
   3.852676902718505*^9}, {3.852677063802537*^9, 3.852677087360999*^9}, {
   3.8526772080353127`*^9, 3.8526772256185837`*^9}, {3.852677277662052*^9, 
   3.8526773917529316`*^9}, {3.8526774354371357`*^9, 
   3.8526774501004114`*^9}, {3.852677482588585*^9, 3.8526775360724096`*^9}, {
   3.8526775668441315`*^9, 3.8526775685076313`*^9}, {3.8526776131213913`*^9, 
   3.8526776351492667`*^9}, {3.852677686196452*^9, 3.852677708139758*^9}, {
   3.8526778344117107`*^9, 3.852677864773752*^9}, 3.852677943399109*^9, {
   3.852678343986088*^9, 3.852678355677039*^9}, {3.8526784774654264`*^9, 
   3.8526784799409447`*^9}, {3.852678521350386*^9, 3.8526785378056793`*^9}, {
   3.8526789360065317`*^9, 3.852678970573475*^9}, 3.8526791380609455`*^9, {
   3.8526791886470885`*^9, 3.852679189376704*^9}, {3.8526800718817043`*^9, 
   3.8526801819082007`*^9}, {3.8526802169392176`*^9, 
   3.8526802399620123`*^9}, {3.8526802726760387`*^9, 
   3.8526802777050467`*^9}, {3.8526805808224974`*^9, 
   3.8526806902355814`*^9}, {3.8526807369434333`*^9, 
   3.8526807515916524`*^9}, {3.852680786016412*^9, 3.852680894546548*^9}, {
   3.8526809245568795`*^9, 3.8526811312584534`*^9}, {3.852681179336047*^9, 
   3.8526811797878733`*^9}, {3.852681234795288*^9, 3.852681255186902*^9}, {
   3.852681293461234*^9, 3.8526813396363835`*^9}, {3.852681395664889*^9, 
   3.8526813961744943`*^9}, {3.852681432108468*^9, 3.8526814607126074`*^9}, {
   3.852681501097562*^9, 3.852681566586513*^9}, {3.8526816997778835`*^9, 
   3.8526817222019997`*^9}, {3.85268176839806*^9, 3.8526817773979783`*^9}, {
   3.852681932983539*^9, 3.852681974094835*^9}, {3.8526820697462955`*^9, 
   3.852682165897744*^9}, {3.853377979214246*^9, 3.853377990039029*^9}, {
   3.853382260830779*^9, 3.8533822616036644`*^9}, {3.853637191306279*^9, 
   3.8536371914475183`*^9}, {3.8537250759140034`*^9, 
   3.8537251672650366`*^9}, {3.853725224604125*^9, 3.853725248975099*^9}, 
   3.853734260113375*^9, {3.853734568672728*^9, 3.8537345696581917`*^9}, {
   3.85382113080519*^9, 3.853821180874078*^9}, {3.8538217091944504`*^9, 
   3.8538217822815714`*^9}, {3.8538219568416824`*^9, 
   3.8538219888095922`*^9}, {3.8538220252126513`*^9, 3.853822078192768*^9}, {
   3.8538221368296995`*^9, 3.85382215010913*^9}, {3.8538221818254013`*^9, 
   3.8538222500820208`*^9}, 3.8538223753659472`*^9, {3.853822410425652*^9, 
   3.853822508664177*^9}, {3.8538320928857174`*^9, 3.8538321451635637`*^9}, {
   3.8538339915718145`*^9, 3.8538340063871183`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[132]:=",ExpressionUUID->"b27b8d0d-4d64-4f4c-9650-ce3f22761c9f"],

Cell[BoxData[
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]\
DemoBivarCopulaWithFittedMarginals", "[", "]"}]], "Input",
 CellChangeTimes->{{3.8538217951003895`*^9, 3.853821795219412*^9}, 
   3.8538221553675737`*^9, {3.8538225207686434`*^9, 3.853822532095216*^9}, 
   3.854407264123269*^9, {3.8544217416589365`*^9, 3.8544217597299213`*^9}, {
   3.8544218093088503`*^9, 3.8544218120079193`*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"88c39f3d-835a-4753-a0d3-fdeabdb24003"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"NotebookSave", "[", "]"}], ";", 
   RowBox[{"EmitSound", "[", 
    RowBox[{"Sound", "[", 
     RowBox[{"SoundNote", "[", 
      RowBox[{"\"\<C\>\"", ",", ".5", ",", "\"\<Violin\>\""}], "]"}], "]"}], 
    "]"}]}],
  FontColor->GrayLevel[1]]], "Input",
 CellChangeTimes->{{3.8799140033373775`*^9, 3.879914004747589*^9}, 
   3.880002577173757*^9, {3.883723918193898*^9, 3.8837239212077284`*^9}, {
   3.883787399583018*^9, 3.883787400193737*^9}},
 Background->GrayLevel[0],
 CellLabel->
  "In[134]:=",ExpressionUUID->"5197e9a7-5881-4c0f-b882-67e675746eb7"]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"e72278da-6857-46fb-8a09-9ef849e01c3d"],

Cell[TextData[{
 StyleBox["Multi-Paradigm Analysis of ",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["Thai Capital M",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["ar",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["k",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["e",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["t Link",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["ages",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None]
}], "Title",
 CellChangeTimes->{{3.8889733224978933`*^9, 3.888973343649993*^9}, 
   3.888973377357065*^9, {3.88914167191856*^9, 3.889141726588789*^9}, 
   3.889160602576762*^9},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"90645125-ad5a-46fa-a2dc-ec261346a695"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Part II. Bivariate Copula vs. Granger Causality, a \
Centrality Analysis",
 FontColor->GrayLevel[1]]], "Subsubsection",
 CellChangeTimes->{{3.875064507138184*^9, 3.875064510805688*^9}, {
  3.878278239576824*^9, 3.878278251901373*^9}, {3.878278631105335*^9, 
  3.8782786460326586`*^9}, {3.878780306537759*^9, 3.8787803068766427`*^9}, {
  3.879907613035598*^9, 3.879907614575369*^9}, {3.8799207827834115`*^9, 
  3.8799208073698564`*^9}, {3.8851914936468697`*^9, 3.8851915000629387`*^9}},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"6c3a2412-11fd-4300-b6c1-8474afa41424"],

Cell[TextData[StyleBox["Poomjai Nacaskul, Ph.D.",
 FontSize->24,
 FontWeight->"Bold",
 FontColor->GrayLevel[1]]], "Author",
 CellChangeTimes->{{3.888973403835884*^9, 3.888973415957621*^9}},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"81734c6d-1f30-40fd-901e-b893cc384fab"],

Cell[TextData[StyleBox["2023.03.31",
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.8713456840497117`*^9, 3.8713456876160254`*^9}, {
   3.871345775975469*^9, 3.871345776904157*^9}, {3.871510139631436*^9, 
   3.8715101405909257`*^9}, {3.8724629762226934`*^9, 
   3.8724629773699017`*^9}, {3.8737710280597725`*^9, 
   3.8737710359277973`*^9}, {3.8738568025000906`*^9, 3.873856803019414*^9}, {
   3.873939205165445*^9, 3.873939205677453*^9}, {3.8743596248494673`*^9, 
   3.874359625242044*^9}, {3.8750017301577554`*^9, 3.8750017308440323`*^9}, {
   3.875064440437437*^9, 3.8750644424578524`*^9}, {3.8752192571420364`*^9, 
   3.8752192578607607`*^9}, {3.8782782569263105`*^9, 3.878278258646419*^9}, {
   3.878680486732724*^9, 3.878680488853014*^9}, {3.8787695800471706`*^9, 
   3.8787695804801354`*^9}, {3.8788508927279806`*^9, 3.878850894930314*^9}, {
   3.878872025588595*^9, 3.8788720295144653`*^9}, {3.878944540769303*^9, 
   3.878944541131344*^9}, {3.879297357004484*^9, 3.879297357690538*^9}, {
   3.8799070600728455`*^9, 3.879907061420087*^9}, {3.8800040148043585`*^9, 
   3.8800040154933567`*^9}, {3.880082389037445*^9, 3.8800823896979666`*^9}, {
   3.8801443918157597`*^9, 3.880144392371735*^9}, {3.880234476387456*^9, 
   3.88023447685857*^9}, {3.880407454248597*^9, 3.8804074548496447`*^9}, {
   3.880607783426791*^9, 3.8806077835665684`*^9}, {3.880665381293962*^9, 
   3.880665381693717*^9}, {3.8824037991662436`*^9, 3.882403804145291*^9}, {
   3.882575638825726*^9, 3.882575639191471*^9}, {3.8837030946017375`*^9, 
   3.8837030957541246`*^9}, {3.883782588589318*^9, 3.8837825891013546`*^9}, {
   3.8851796676111403`*^9, 3.88517966829814*^9}, {3.8852510683575716`*^9, 
   3.885251068779319*^9}, 3.8853441316893744`*^9, {3.885418024335279*^9, 
   3.885418024649368*^9}, {3.8856056960454187`*^9, 3.8856056967885513`*^9}, {
   3.8857060030532913`*^9, 3.885706003811681*^9}, {3.8857716314441442`*^9, 
   3.8857716323711596`*^9}, {3.8858537519916754`*^9, 
   3.8858537525684457`*^9}, {3.885953719030515*^9, 3.8859537192314177`*^9}, {
   3.8860427886868787`*^9, 3.88604278915788*^9}, {3.8861110938674803`*^9, 
   3.8861110944596596`*^9}, {3.8877532429375496`*^9, 
   3.8877532453732915`*^9}, {3.889050550147873*^9, 3.889050550951415*^9}, {
   3.8891399580056877`*^9, 3.8891399596256995`*^9}, {3.8892186595394464`*^9, 
   3.8892186676019206`*^9}},ExpressionUUID->"b6bd9583-eaa6-498b-8b16-\
5f568947a08a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["5. Centrality Analysis (can jump directly from 1.)", "Section",
 CellChangeTimes->{{3.8531086817641788`*^9, 3.8531086824037175`*^9}, {
   3.853109772392812*^9, 3.853109783167832*^9}, {3.8532212363701124`*^9, 
   3.8532212444234743`*^9}, {3.8532790456718407`*^9, 
   3.8532790594399385`*^9}, {3.8532791147125006`*^9, 
   3.8532791194158044`*^9}, {3.853280425544862*^9, 3.8532804267856207`*^9}, 
   3.853466878415967*^9, {3.885191809408603*^9, 3.88519181512705*^9}, {
   3.8854502603011403`*^9, 3.8854502606633725`*^9}, 
   3.885450389357931*^9},ExpressionUUID->"ad8fd1e7-d241-4a41-8456-\
36fea17a0b68"],

Cell[CellGroupData[{

Cell["Import Adjacency Matrices", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.8851918571584444`*^9, 
  3.885191862144619*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"59720ad9-ac1b-4054-8076-69120818b9cb"],

Cell[BoxData[{
 RowBox[{"Dimensions", "[", 
  RowBox[{"dataAdjacencyCopulaGranger", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
    "INPUTDIR0", "<>", 
     "\"\<(input)AdjacencyMtrx-BivarCopula,GrangerCausality.xlsx\>\""}], 
    "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"nameAdjacencyCopulaGranger", "=", 
  RowBox[{"Import", "[", 
   RowBox[{
    RowBox[{
    "INPUTDIR0", "<>", 
     "\"\<(input)AdjacencyMtrx-BivarCopula,GrangerCausality.xlsx\>\""}], ",", 
    "\"\<Sheets\>\""}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.885191878598819*^9, 3.8851918873634834`*^9}, {
   3.8851920026401877`*^9, 3.88519204328871*^9}, {3.8851926262862787`*^9, 
   3.8851926532623034`*^9}, {3.8851927196422443`*^9, 3.8851927487722826`*^9}, 
   3.8851931987856874`*^9, {3.8851953012043467`*^9, 3.885195308760246*^9}, {
   3.885195355780134*^9, 3.885195362970765*^9}, {3.8851953982885423`*^9, 
   3.885195400008724*^9}, {3.885358355972484*^9, 3.8853583581473184`*^9}, {
   3.885358409890225*^9, 3.8853584102736287`*^9}, {3.8853584445109963`*^9, 
   3.8853584450139694`*^9}, {3.8854287543730984`*^9, 
   3.8854287817457542`*^9}, {3.8854290399657135`*^9, 3.885429043569883*^9}, {
   3.8854291778906293`*^9, 3.885429207665306*^9}, 3.8891535362502317`*^9},
 CellLabel->
  "In[134]:=",ExpressionUUID->"1e616e3c-0baf-4cab-a980-def005601fb5"],

Cell[BoxData["nameAdjacencyCopulaGranger"], "Input",
 CellChangeTimes->{{3.8891536053652945`*^9, 3.8891536097441998`*^9}},
 CellLabel->
  "In[136]:=",ExpressionUUID->"e201ac70-886e-44be-89d6-23e5a89e75ce"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"varName", "==", "#"}], "&"}], "/@", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"dataAdjacencyCopulaGranger", "[", 
      RowBox[{"[", 
       RowBox[{"#", ",", "1", ",", 
        RowBox[{"2", ";;"}]}], "]"}], "]"}], "&"}], "/@", 
    RowBox[{"Range", "[", "6", "]"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.885358521448407*^9, 3.8853586311207137`*^9}, 
   3.8854287882023354`*^9, 3.8854290482775884`*^9, 3.8854292176850405`*^9},
 CellLabel->
  "In[137]:=",ExpressionUUID->"0b75d890-2d2c-47de-a4f8-c32c597b3c35"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"adjacencyMtrxCopulaGranger", "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{"nameAdjacencyCopulaGranger", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"dataAdjacencyCopulaGranger", "[", 
        RowBox[{"[", 
         RowBox[{"#", ",", 
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"2", ";;"}]}], "]"}], "]"}], "&"}], "/@", 
      RowBox[{"Range", "[", "6", "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"adjacencyGraphCopulaGranger", "=", 
  RowBox[{"AdjacencyGraph", "/@", "adjacencyMtrxCopulaGranger"}]}]}], "Input",
 CellChangeTimes->{{3.885358673494218*^9, 3.885358678190985*^9}, {
   3.8853587387580705`*^9, 3.8853587704733057`*^9}, {3.8853588397157545`*^9, 
   3.885358855189059*^9}, {3.885427732177946*^9, 3.88542773800455*^9}, 
   3.8854277785895014`*^9, 3.885428803313554*^9, 3.8854290496941442`*^9, {
   3.885429223380524*^9, 3.885429226277088*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"8ef9986f-c031-4cf4-a485-f02ddf459505"],

Cell[BoxData[{
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacencyGraph", "[", 
  RowBox[{
  "adjacencyGraphCopulaGranger", ",", "vertexNumberLabel", ",", 
   "\"\<GrangerCausalVar\>\"", ",", "\"\<GrangerCausalVar\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewAdjacencyGraph", "[", 
  RowBox[{"adjacencyGraphCopulaGranger", ",", "vertexNumberLabel", ",", 
   RowBox[{"-", "1"}], ",", "\"\<GrangerCausalVar\>\""}], "]"}]}], "Input",
 CellChangeTimes->{{3.885785081143649*^9, 3.8857851183666544`*^9}, {
  3.8857851563861923`*^9, 3.885785158688079*^9}, {3.8857852013226976`*^9, 
  3.88578520161401*^9}},
 CellLabel->
  "In[140]:=",ExpressionUUID->"d8e663f0-18b8-402c-9fae-570da335d5d9"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Timing", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", "\"\<(figure)Adjacency-\>\"", "<>", "#", "<>", 
         "\"\<.png\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacencyMtrx", "[", 
         RowBox[{
         "adjacencyMtrxCopulaGranger", ",", "vertexNumberLabel", ",", "#", 
          ",", "#"}], "]"}]}], "]"}], "&"}], "/@", 
     "nameAdjacencyCopulaGranger"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8659183908689857`*^9, 3.8659183945085135`*^9}, {
   3.8659198840707097`*^9, 3.865919884450821*^9}, {3.883704974092539*^9, 
   3.8837050038915415`*^9}, {3.883783144181774*^9, 3.88378314937951*^9}, 
   3.8837833495741434`*^9, {3.883784662884652*^9, 3.8837846642146497`*^9}, 
   3.8837913308353357`*^9, {3.8837914002499266`*^9, 3.8837914021121163`*^9}, {
   3.8856073856781425`*^9, 3.88560738976175*^9}, {3.8856074531529818`*^9, 
   3.88560748674104*^9}, {3.88560752103344*^9, 3.8856075396653676`*^9}, {
   3.8856076143454547`*^9, 3.8856076390814533`*^9}, {3.88560767377332*^9, 
   3.8856076749414625`*^9}, {3.885609662638277*^9, 3.8856096793566666`*^9}, 
   3.8856173689719257`*^9, {3.885617497546525*^9, 3.8856174996878586`*^9}, {
   3.885636783599063*^9, 3.8856367934952354`*^9}, {3.8857766709266977`*^9, 
   3.8857766770492735`*^9}, {3.885776714884924*^9, 3.8857767596900005`*^9}, {
   3.8891549902488966`*^9, 3.889154996074958*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[142]:=",ExpressionUUID->"8cadcef1-b808-4cd8-abc0-427670770088"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTDEMOPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"(*", 
     RowBox[{"caution", ":", " ", 
      RowBox[{
      "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
       "execute"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"OUTPUTDIR0", "<>", "\"\<(figure)DemoViewGraph-\>\"", "<>", 
         RowBox[{
          RowBox[{"Keys", "[", "adjacencyGraphCopulaGranger", "]"}], "[", 
          RowBox[{"[", "#", "]"}], "]"}], "<>", "\"\<.png\>\""}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewAdjacencyGraph", "[", 
         RowBox[{
         "adjacencyGraphCopulaGranger", ",", "vertexNumberLabel", ",", "#"}], 
         "]"}]}], "]"}], "&"}], "/@", 
     RowBox[{"Range", "[", 
      RowBox[{"Length", "[", "adjacencyGraphCopulaGranger", "]"}], "]"}]}], 
    "]"}]}], "]"}]], "Input",
 Evaluatable->False,
 CellChangeTimes->{{3.8659183908689857`*^9, 3.8659183945085135`*^9}, {
   3.8659198840707097`*^9, 3.865919884450821*^9}, {3.883704974092539*^9, 
   3.8837050038915415`*^9}, {3.883783144181774*^9, 3.88378314937951*^9}, 
   3.8837833495741434`*^9, {3.883784662884652*^9, 3.8837846642146497`*^9}, 
   3.8837913308353357`*^9, {3.8837914002499266`*^9, 3.8837914021121163`*^9}, {
   3.8856073856781425`*^9, 3.88560738976175*^9}, {3.8856074531529818`*^9, 
   3.88560748674104*^9}, {3.88560752103344*^9, 3.8856075396653676`*^9}, {
   3.8856076143454547`*^9, 3.8856076390814533`*^9}, {3.88560767377332*^9, 
   3.8856076749414625`*^9}, {3.8856174546888995`*^9, 3.885617461182114*^9}, 
   3.8856329234104533`*^9, {3.885776263694957*^9, 3.8857763483178473`*^9}, {
   3.8857763917257357`*^9, 3.8857764101894913`*^9}, 3.885776451908352*^9, {
   3.885776510917884*^9, 3.885776525625456*^9}, 3.8857767446498194`*^9, 
   3.8891541336510243`*^9, {3.889154210219159*^9, 3.8891542132837143`*^9}},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"e979b473-28ac-4904-bce5-5365f2da2c74"]
}, Closed]],

Cell[CellGroupData[{

Cell["Centrality Analysis", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.8851918571584444`*^9, 
  3.885191862144619*^9}, {3.885199046386737*^9, 3.8851990496537848`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"948ebffe-6baa-433c-bb07-02dea7bca1e4"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Grid", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"#", ",", "Bold", ",", 
           TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
            "RGBColorSwatchTemplate"]}], "]"}], "&"}], "/@", 
        RowBox[{"{", 
         RowBox[{"\"\<Betweenness Centrality\>\"", ",", 
          RowBox[{"\"\<Katz[\[Alpha]=\>\"", "<>", 
           RowBox[{"ToString", "@", "\[Alpha]"}], "<>", 
           "\"\<] Centrality\>\""}], ",", 
          RowBox[{"\"\<PageRank[\[Alpha]=\>\"", "<>", 
           RowBox[{"ToString", "@", "\[Alpha]"}], "<>", 
           "\"\<] Centrality\>\""}]}], "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"RadialAxisPlot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Rescale", "@", 
              RowBox[{"BetweennessCentrality", "[", "#", "]"}]}], "&"}], "/@",
             "adjacencyGraphCopulaGranger"}], ",", 
           RowBox[{"AxesLabel", "->", "varName"}], ",", 
           RowBox[{"PlotRange", "->", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}]}], ",", 
           RowBox[{"ImageSize", "->", "Medium"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"RadialAxisPlot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Rescale", "@", 
              RowBox[{"KatzCentrality", "[", 
               RowBox[{"#", ",", "\[Alpha]"}], "]"}]}], "&"}], "/@", 
            "adjacencyGraphCopulaGranger"}], ",", 
           RowBox[{"AxesLabel", "->", "varName"}], ",", 
           RowBox[{"PlotRange", "->", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}]}], ",", 
           RowBox[{"ImageSize", "->", "Medium"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"RadialAxisPlot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Rescale", "@", 
              RowBox[{"PageRankCentrality", "[", 
               RowBox[{"#", ",", "\[Alpha]"}], "]"}]}], "&"}], "/@", 
            "adjacencyGraphCopulaGranger"}], ",", 
           RowBox[{"AxesLabel", "->", "varName"}], ",", 
           RowBox[{"PlotRange", "->", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}]}], ",", 
           RowBox[{"ImageSize", "->", "Medium"}]}], "]"}]}], "}"}]}], "}"}], 
     ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", ",", "0.1", ",", ".9", ",", "1"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.885363847334695*^9, 3.885363848874864*^9}, {
  3.88536390813452*^9, 3.885363989524263*^9}, {3.8853640210200243`*^9, 
  3.8853640419796233`*^9}, {3.8853640787126117`*^9, 3.8853641166119413`*^9}, {
  3.8853642859548717`*^9, 3.88536444039712*^9}, {3.8854292394021726`*^9, 
  3.885429240855036*^9}, {3.8857789717441897`*^9, 3.8857789939466276`*^9}},
 CellLabel->
  "In[143]:=",ExpressionUUID->"0be6fc14-dc3d-44f9-a195-6813290ad111"],

Cell[BoxData["LISTCENTRALITYMETHOD0"], "Input",
 CellChangeTimes->{{3.8891554469705024`*^9, 3.8891554469715023`*^9}},
 CellLabel->
  "In[144]:=",ExpressionUUID->"c0b5c238-e564-4719-af69-dd07c9a473e9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"centralityScoreCopulaGranger", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<Betweenness\>\"", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Rescale", "@", 
          RowBox[{"BetweennessCentrality", "[", "#", "]"}]}], "&"}], "/@", 
        "adjacencyGraphCopulaGranger"}], ")"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Katz[.1]\>\"", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Rescale", "@", 
          RowBox[{"KatzCentrality", "[", 
           RowBox[{"#", ",", ".1"}], "]"}]}], "&"}], "/@", 
        "adjacencyGraphCopulaGranger"}], ")"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<PageRank[.1]\>\"", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Rescale", "@", 
          RowBox[{"PageRankCentrality", "[", 
           RowBox[{"#", ",", ".1"}], "]"}]}], "&"}], "/@", 
        "adjacencyGraphCopulaGranger"}], ")"}]}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"tableCentralityCopulaGranger", "=", 
  RowBox[{"<|", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\"\<Betweenness\>\"", "->", "\[IndentingNewLine]", 
     RowBox[{"Grid", "[", 
      RowBox[{
       RowBox[{"Prepend", "[", 
        RowBox[{
         RowBox[{"Transpose", "@", 
          RowBox[{"Prepend", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"centralityScoreCopulaGranger", "[", 
                 RowBox[{"\"\<Betweenness\>\"", ",", "#"}], "]"}], ",", 
                ".01"}], "]"}], "&"}], "/@", "nameAdjacencyCopulaGranger"}], 
            ",", "varName"}], "]"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{"nameAdjacencyCopulaGranger", ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<Betweenness\\nCentrality\>\"", ",", "Bold", ",", 
             TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
              "RGBColorSwatchTemplate"]}], "]"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"Frame", "->", "All"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"\"\<Katz[.1]\>\"", "->", "\[IndentingNewLine]", 
     RowBox[{"Grid", "[", 
      RowBox[{
       RowBox[{"Prepend", "[", 
        RowBox[{
         RowBox[{"Transpose", "@", 
          RowBox[{"Prepend", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"centralityScoreCopulaGranger", "[", 
                 RowBox[{"\"\<Katz[.1]\>\"", ",", "#"}], "]"}], ",", ".01"}], 
               "]"}], "&"}], "/@", "nameAdjacencyCopulaGranger"}], ",", 
            "varName"}], "]"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{"nameAdjacencyCopulaGranger", ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<Katz[.1]\\nCentrality\>\"", ",", "Bold", ",", 
             TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
              "RGBColorSwatchTemplate"]}], "]"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"Frame", "->", "All"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"\"\<PageRank[.1]\>\"", "->", "\[IndentingNewLine]", 
     RowBox[{"Grid", "[", 
      RowBox[{
       RowBox[{"Prepend", "[", 
        RowBox[{
         RowBox[{"Transpose", "@", 
          RowBox[{"Prepend", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Round", "[", 
               RowBox[{
                RowBox[{"centralityScoreCopulaGranger", "[", 
                 RowBox[{"\"\<PageRank[.1]\>\"", ",", "#"}], "]"}], ",", 
                ".01"}], "]"}], "&"}], "/@", "nameAdjacencyCopulaGranger"}], 
            ",", "varName"}], "]"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{"nameAdjacencyCopulaGranger", ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<PageRank[.1]\\nCentrality\>\"", ",", "Bold", ",", 
             TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
              "RGBColorSwatchTemplate"]}], "]"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"Frame", "->", "All"}]}], "]"}]}]}], 
   "|>"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Keys", "@", "centralityScoreCopulaGranger"}], "==", 
  RowBox[{"Keys", "@", "tableCentralityCopulaGranger"}], "==", 
  "LISTCENTRALITYMETHOD0"}]}], "Input",
 CellChangeTimes->{{3.8851935508558145`*^9, 3.885193553511314*^9}, {
   3.88519386438265*^9, 3.8851938713632765`*^9}, {3.885357341471465*^9, 
   3.8853573429343777`*^9}, {3.8853576366749086`*^9, 
   3.8853577303473415`*^9}, {3.885358949358132*^9, 3.8853589731574583`*^9}, {
   3.8853590266573477`*^9, 3.885359061558369*^9}, 3.8853591070064*^9, {
   3.8853617397443104`*^9, 3.88536176389144*^9}, {3.885362404504748*^9, 
   3.8853624391141415`*^9}, {3.8853625200908203`*^9, 
   3.8853625894115543`*^9}, {3.885362707038091*^9, 3.8853627352838607`*^9}, {
   3.885362797002293*^9, 3.8853628034228263`*^9}, {3.8853628950500355`*^9, 
   3.8853629777462273`*^9}, {3.885364250459755*^9, 3.8853642667872834`*^9}, {
   3.8853649626783276`*^9, 3.8853650260805626`*^9}, {3.8853666016828585`*^9, 
   3.885366610522149*^9}, {3.885366667834564*^9, 3.8853666843768015`*^9}, {
   3.885418087888723*^9, 3.885418089823762*^9}, {3.885429256545287*^9, 
   3.8854293345473127`*^9}, {3.8857786328246546`*^9, 
   3.8857786971181793`*^9}, {3.885778733616885*^9, 3.885778756786113*^9}, {
   3.8857787875166435`*^9, 3.885778787699256*^9}, {3.8857793650381613`*^9, 
   3.885779381093951*^9}, {3.885783038233245*^9, 3.8857831192246523`*^9}, {
   3.8857833582319336`*^9, 3.885783359181219*^9}, {3.885800321664342*^9, 
   3.885800517899634*^9}, {3.8891547080747266`*^9, 3.8891547439289083`*^9}, {
   3.889154814879015*^9, 3.889154815308054*^9}, {3.8891551620057535`*^9, 
   3.8891551634248133`*^9}, 3.889155429861885*^9},
 CellLabel->
  "In[145]:=",ExpressionUUID->"7ed978af-6303-431d-a449-bcdc9cdfdddc"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{
       "OUTPUTDIR0", "<>", "\"\<(table)\>\"", "<>", "#", "<>", 
        "\"\<Centrality-rescaled[0,1].png\>\""}], ",", 
       RowBox[{"tableCentralityCopulaGranger", "[", "#", "]"}]}], "]"}], 
     "&"}], "/@", 
    RowBox[{"Keys", "[", "tableCentralityCopulaGranger", "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.885778818618388*^9, 3.8857788928148165`*^9}, {
   3.889056416948083*^9, 3.8890564281303077`*^9}, {3.8891543545635643`*^9, 
   3.8891543554746337`*^9}, 3.8891544204091125`*^9, 3.889155192340683*^9, {
   3.8891555189116755`*^9, 3.8891555227200484`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[148]:=",ExpressionUUID->"13a14966-7ea3-492c-a115-8687d12b3944"]
}, Closed]],

Cell[CellGroupData[{

Cell["Static Visualisation", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.8851918571584444`*^9, 
  3.885191862144619*^9}, {3.885199046386737*^9, 3.8851990496537848`*^9}, {
  3.8857768125887737`*^9, 3.8857768151742754`*^9}, {3.8857994389603434`*^9, 
  3.8857994442719574`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"fb915392-4a8f-4be3-88a1-514ef769b5c2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotCentralityScore", "[", 
   RowBox[{
    RowBox[{"nameVar_", ":", "varName"}], ",", 
    RowBox[{"centralityScore_", ":", "centralityScoreCopulaGranger"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"adjacencyMatrix_", ":", "\"\<BivarCopulaNoLag\>\""}], ",", 
    RowBox[{"centralityMethod_", ":", "\"\<Betweenness\>\""}], ",", 
    RowBox[{"sizeImage_", ":", "IMAGESIZE0"}], ",", 
    RowBox[{"which_", ":", "\"\<ABC\>\""}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"panelA", "=", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{
           "\"\<'\>\"", "<>", "adjacencyMatrix", "<>", "\"\<' Adjacency\>\"", 
            "<>", "\"\<\\n >>> '\>\"", "<>", "centralityMethod", "<>", 
            "\"\<' Centrality\>\""}], ",", "Bold", ",", 
           TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
            "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"RadialAxisPlot", "[", 
          RowBox[{
           RowBox[{"centralityScore", "[", 
            RowBox[{"centralityMethod", ",", "adjacencyMatrix"}], "]"}], ",", 
           RowBox[{"AxesLabel", "->", "nameVar"}], ",", 
           RowBox[{"PlotRange", "->", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}]}], ",", 
           RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"panelB", "=", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{
           "\"\<'\>\"", "<>", "adjacencyMatrix", "<>", "\"\<' Adjacency\>\"", 
            "<>", "\"\<\\n >>> ALL Centrality methods\>\""}], ",", "Bold", 
           ",", 
           TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
            "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"RadialAxisPlot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"centralityScore", "[", 
              RowBox[{"#", ",", "adjacencyMatrix"}], "]"}], "&"}], "/@", 
            RowBox[{"Keys", "[", "centralityScore", "]"}]}], ",", 
           RowBox[{"AxesLabel", "->", "nameVar"}], ",", 
           RowBox[{"PlotRange", "->", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"PlotLegends", "->", 
            RowBox[{"Keys", "[", "centralityScore", "]"}]}], ",", 
           RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"panelC", "=", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{
           "\"\<ALL Adjacency matrices\>\"", "<>", "\"\<\\n >>> '\>\"", "<>", 
            "centralityMethod", "<>", "\"\<' Centrality\>\""}], ",", "Bold", 
           ",", 
           TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
            "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"RadialAxisPlot", "[", 
          RowBox[{
           RowBox[{"centralityScore", "[", "centralityMethod", "]"}], ",", 
           RowBox[{"AxesLabel", "->", "nameVar"}], ",", 
           RowBox[{"PlotRange", "->", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"PlotLegends", "->", 
            RowBox[{"Keys", "@", 
             RowBox[{"centralityScore", "[", "centralityMethod", "]"}]}]}], 
           ",", 
           RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}]}], "}"}]}]}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"show", "=", 
      RowBox[{"<|", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\"\<A\>\"", "->", 
         RowBox[{"Grid", "[", 
          RowBox[{
           RowBox[{"Transpose", "@", 
            RowBox[{"{", "panelA", "}"}]}], ",", 
           RowBox[{"Frame", "->", "All"}]}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"\"\<B\>\"", "->", 
         RowBox[{"Grid", "[", 
          RowBox[{
           RowBox[{"Transpose", "@", 
            RowBox[{"{", "panelB", "}"}]}], ",", 
           RowBox[{"Frame", "->", "All"}]}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"\"\<C\>\"", "->", 
         RowBox[{"Grid", "[", 
          RowBox[{
           RowBox[{"Transpose", "@", 
            RowBox[{"{", "panelC", "}"}]}], ",", 
           RowBox[{"Frame", "->", "All"}]}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"\"\<AB\>\"", "->", 
         RowBox[{"Grid", "[", 
          RowBox[{
           RowBox[{"Transpose", "@", 
            StyleBox[
             RowBox[{"{", 
              RowBox[{"panelA", ",", "panelB"}], "}"}],
             FontWeight->"Bold"]}], ",", 
           RowBox[{"Frame", "->", "All"}]}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"\"\<AC\>\"", "->", 
         RowBox[{"Grid", "[", 
          RowBox[{
           RowBox[{"Transpose", "@", 
            StyleBox[
             RowBox[{"{", 
              RowBox[{"panelA", ",", "panelC"}], "}"}],
             FontWeight->"Bold"]}], ",", 
           RowBox[{"Frame", "->", "All"}]}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"\"\<BC\>\"", "->", 
         RowBox[{"Grid", "[", 
          RowBox[{
           RowBox[{"Transpose", "@", 
            StyleBox[
             RowBox[{"{", 
              RowBox[{"panelB", ",", "panelC"}], "}"}],
             FontWeight->"Bold"]}], ",", 
           RowBox[{"Frame", "->", "All"}]}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"\"\<ABC\>\"", "->", 
         RowBox[{"Grid", "[", 
          RowBox[{
           RowBox[{"Transpose", "@", 
            RowBox[{"{", 
             RowBox[{"panelA", ",", "panelB", ",", "panelC"}], "}"}]}], ",", 
           RowBox[{"Frame", "->", "All"}]}], "]"}]}]}], "|>"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"show", "[", "which", "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8857814681112823`*^9, 3.885781469536866*^9}, {
   3.8857815664940147`*^9, 3.8857816291034946`*^9}, {3.8857816774778814`*^9, 
   3.885781878067774*^9}, {3.8857819284534836`*^9, 3.8857820703029685`*^9}, {
   3.885782254432733*^9, 3.8857822747857175`*^9}, {3.8857823135879593`*^9, 
   3.885782408696641*^9}, {3.8858009544798956`*^9, 3.8858009650061765`*^9}, 
   3.8858010793631783`*^9, {3.8891548576218576`*^9, 3.8891548600807495`*^9}, {
   3.8891553706677856`*^9, 3.8891553926659274`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[149]:=",ExpressionUUID->"d2ac244f-8675-4fe9-9931-dc7fee63ce5e"],

Cell[BoxData[
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotCentralityScore", "[", 
  "]"}]], "Input",
 CellLabel->
  "In[150]:=",ExpressionUUID->"8f42ede9-4f6a-4d59-ab9c-e23428d4cb2a"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Timing", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", "\"\<(figure)Centrality-\>\"", "<>", "#", "<>", 
         "\"\<.png\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotCentralityScore", "[", 
         RowBox[{
         "varName", ",", "centralityScoreCopulaGranger", ",", "#", ",", 
          "CENTRALITYMETHOD0", ",", "IMAGESIZE0", ",", "\"\<B\>\""}], "]"}]}],
        "]"}], "&"}], "/@", "nameAdjacencyCopulaGranger"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.885782694457712*^9, 3.8857826969595127`*^9}, {
  3.885782770711661*^9, 3.8857827712218885`*^9}, {3.885783143944519*^9, 
  3.8857831702684145`*^9}, {3.885800711047057*^9, 3.885800718098237*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[151]:=",ExpressionUUID->"63a5301c-12ff-44e9-8ec2-3bc2e75867ef"]
}, Closed]],

Cell[CellGroupData[{

Cell["Interactive Display", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
   3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
   3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
   3.8532801698013783`*^9, 3.853280204009462*^9}, {3.8851918571584444`*^9, 
   3.885191862144619*^9}, {3.885199046386737*^9, 3.8851990496537848`*^9}, {
   3.8857768125887737`*^9, 3.8857768151742754`*^9}, 3.889055552091428*^9},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"b38b09b3-d708-4c49-84be-0501c2886720"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewCentralityScore", "[", 
   RowBox[{
    RowBox[{"nameVar_", ":", "varName"}], ",", 
    RowBox[{"centralityScore_", ":", "centralityScoreCopulaGranger"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"adjacency0_", ":", "\"\<BivarCopulaNoLag\>\""}], ",", 
    RowBox[{"centrality0_", ":", "\"\<Betweenness\>\""}], ",", 
    RowBox[{"sizeImage_", ":", "IMAGESIZE0"}], ",", 
    RowBox[{"show0_", ":", "\"\<ABC\>\""}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotCentralityScore", "[", 
     RowBox[{
     "nameVar", ",", "centralityScore", ",", "\[IndentingNewLine]", 
      "adjacencyMatrix", ",", "centralityMethod", ",", "sizeImage", ",", 
      "show"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"adjacencyMatrix", ",", "adjacency0"}], "}"}], ",", 
      RowBox[{"Keys", "@", 
       RowBox[{"centralityScore", "[", "centrality0", "]"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"centralityMethod", ",", "centrality0"}], "}"}], ",", 
      RowBox[{"Keys", "@", "centralityScore"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"show", ",", "show0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "\"\<A\>\"", ",", "\"\<B\>\"", ",", "\"\<C\>\"", ",", "\"\<AB\>\"", 
        ",", "\"\<AC\>\"", ",", "\"\<BC\>\"", ",", "\"\<ABC\>\""}], "}"}]}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ControlType", "->", "PopupMenu"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ControlPlacement", "->", "Bottom"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.885193676526137*^9, 3.885193678483323*^9}, {
   3.885193725581109*^9, 3.885193794780529*^9}, {3.8851939886375046`*^9, 
   3.885194013497117*^9}, {3.885194049436837*^9, 3.8851940628624506`*^9}, 
   3.8851942072306023`*^9, {3.8851947321038857`*^9, 3.8851948464520235`*^9}, 
   3.885357477525013*^9, {3.8853577677366595`*^9, 3.8853578732712436`*^9}, {
   3.885357917996428*^9, 3.8853579212892637`*^9}, {3.88535796944061*^9, 
   3.885358006556068*^9}, {3.885358094381093*^9, 3.885358095729066*^9}, {
   3.885359138799102*^9, 3.885359139396748*^9}, 3.8853591782717943`*^9, {
   3.885359226440586*^9, 3.885359241441136*^9}, {3.8853593008494396`*^9, 
   3.8853594017536325`*^9}, {3.8853595333472757`*^9, 3.885359541963*^9}, {
   3.8853596762126083`*^9, 3.885359706377658*^9}, {3.8853597458196564`*^9, 
   3.8853597523172045`*^9}, {3.8853600359931107`*^9, 
   3.8853600487807302`*^9}, {3.885361256160932*^9, 3.885361303592576*^9}, {
   3.885361381885831*^9, 3.885361501454006*^9}, {3.885361648045869*^9, 
   3.8853616508011084`*^9}, {3.885363463481861*^9, 3.8853634727521343`*^9}, {
   3.8853635159028344`*^9, 3.885363516561936*^9}, 3.885429361638606*^9, {
   3.885779009585559*^9, 3.8857790115641327`*^9}, 3.885779225832715*^9, 
   3.8857793989605255`*^9, 3.8857795039750457`*^9, {3.8857797933767376`*^9, 
   3.8857798348975873`*^9}, {3.8857802459720106`*^9, 
   3.8857802498654084`*^9}, {3.8857807753090277`*^9, 
   3.8857808298301067`*^9}, {3.8857808732092*^9, 3.885780889885519*^9}, {
   3.8857824806600723`*^9, 3.8857825445235357`*^9}, {3.885783198254738*^9, 
   3.8857831992891045`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[152]:=",ExpressionUUID->"af67ed8d-8c1f-4415-b696-e6513f42b4c8"],

Cell[BoxData[
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewCentralityScore", "[", 
  "]"}]], "Input",
 CellChangeTimes->{{3.8857825474406176`*^9, 3.885782547481129*^9}},
 CellLabel->
  "In[153]:=",ExpressionUUID->"28015342-3e82-4f9a-bf29-6f340922c294"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTDEMOPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"(*", 
     RowBox[{"caution", ":", " ", 
      RowBox[{
      "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
       "execute"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", "\"\<(figure)DemoView\>\"", "<>", "#", "<>", 
         "\"\<-BetweennessCentrality.png\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewCentralityScore", "[", 
         RowBox[{
         "varName", ",", "centralityScoreCopulaGranger", ",", "#", ",", 
          "\"\<Betweenness\>\""}], "]"}]}], "]"}], "&"}], "/@", 
     "nameAdjacencyCopulaGranger"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8851945360161753`*^9, 3.8851946524208956`*^9}, {
   3.8853599341160407`*^9, 3.885359964052088*^9}, {3.885360013392461*^9, 
   3.8853600140501127`*^9}, {3.8853601071695824`*^9, 3.885360129385744*^9}, 
   3.885360333009125*^9, {3.8854294105820637`*^9, 3.8854294165040984`*^9}, 
   3.8877547696123962`*^9, 3.889141561793882*^9, {3.889155662682514*^9, 
   3.889155665998904*^9}},
 Background->RGBColor[1, 1, 0],
 CellLabel->
  "In[154]:=",ExpressionUUID->"0c09437d-a591-43b2-8ea4-b7832c0ceaad"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTDEMOPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"(*", 
     RowBox[{"caution", ":", " ", 
      RowBox[{
      "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
       "execute"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", "\"\<(figure)DemoView\>\"", "<>", "#", "<>", 
         "\"\<-Katz[.1]Centrality.png\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewCentralityScore", "[", 
         RowBox[{
         "varName", ",", "centralityScoreCopulaGranger", ",", "#", ",", 
          "\"\<Katz[.1]\>\""}], "]"}]}], "]"}], "&"}], "/@", 
     "nameAdjacencyCopulaGranger"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8851945360161753`*^9, 3.8851946524208956`*^9}, {
   3.88519469033825*^9, 3.885194694665135*^9}, 3.885359967841866*^9, {
   3.8853600183177767`*^9, 3.885360021434641*^9}, {3.885360108504389*^9, 
   3.8853601321150274`*^9}, 3.8853603405552554`*^9, {3.885368712348532*^9, 
   3.885368713964945*^9}, {3.8854294235998983`*^9, 3.88542942831769*^9}, {
   3.8857810402815523`*^9, 3.8857810444732885`*^9}, 3.8891415655546036`*^9, 
   3.889155672315733*^9},
 Background->RGBColor[1, 1, 0],
 CellLabel->
  "In[155]:=",ExpressionUUID->"5a3fb929-46b0-48d1-b1a0-19e1328feb08"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTDEMOPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"(*", 
     RowBox[{"caution", ":", " ", 
      RowBox[{
      "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
       "execute"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", "\"\<(figure)DemoView\>\"", "<>", "#", "<>", 
         "\"\<-PageRank[.1]Centrality.png\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewCentralityScore", "[", 
         RowBox[{
         "varName", ",", "centralityScoreCopulaGranger", ",", "#", ",", 
          "\"\<PageRank[.1]\>\""}], "]"}]}], "]"}], "&"}], "/@", 
     "nameAdjacencyCopulaGranger"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8851945360161753`*^9, 3.8851946524208956`*^9}, {
   3.8851946999772563`*^9, 3.885194706013719*^9}, 3.885359969049322*^9, 
   3.885360024627564*^9, {3.885360110127715*^9, 3.885360135101921*^9}, 
   3.8853603464108047`*^9, {3.8853687179114265`*^9, 3.88536871875212*^9}, {
   3.8854294255478625`*^9, 3.88542942981318*^9}, {3.885781050276989*^9, 
   3.885781050577195*^9}, 3.889141568095211*^9, 3.8891556778684654`*^9},
 Background->RGBColor[1, 1, 0],
 CellLabel->
  "In[156]:=",ExpressionUUID->"ef9b0895-9d86-42aa-b5fe-a1b817595903"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"NotebookSave", "[", "]"}], ";", 
   RowBox[{"EmitSound", "[", 
    RowBox[{"Sound", "[", 
     RowBox[{"SoundNote", "[", 
      RowBox[{"\"\<C\>\"", ",", ".5", ",", "\"\<Violin\>\""}], "]"}], "]"}], 
    "]"}]}],
  FontColor->GrayLevel[1]]], "Input",
 CellChangeTimes->{{3.8799140033373775`*^9, 3.879914004747589*^9}, 
   3.880002577173757*^9, {3.883723918193898*^9, 3.8837239212077284`*^9}, {
   3.883787399583018*^9, 3.883787400193737*^9}},
 Background->GrayLevel[0],
 CellLabel->
  "In[157]:=",ExpressionUUID->"b8f56bf9-ee2f-47e2-ac06-d178ff9d9d48"]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"f420562a-fe10-4de8-b676-8d452f6120f0"],

Cell[TextData[{
 StyleBox["Multi-Paradigm Analysis of ",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["Thai Capital M",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["ar",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["k",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["e",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["t Link",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["ages",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None]
}], "Title",
 CellChangeTimes->{{3.8889733224978933`*^9, 3.888973343649993*^9}, 
   3.888973377357065*^9, {3.88914167191856*^9, 3.889141726588789*^9}, 
   3.889160627341367*^9},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"e84e290b-954f-4339-90ff-415c88e48174"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Part III. Vine Copula and Monte Carlo \
Value-at-Risk/Expected Shortfall",
 FontColor->GrayLevel[1]]], "Subsubsection",
 CellChangeTimes->{{3.875064507138184*^9, 3.875064510805688*^9}, {
   3.878278239576824*^9, 3.878278251901373*^9}, {3.878278631105335*^9, 
   3.8782786460326586`*^9}, {3.878780306537759*^9, 3.8787803068766427`*^9}, {
   3.879907613035598*^9, 3.879907614575369*^9}, {3.8799207827834115`*^9, 
   3.8799208073698564`*^9}, {3.8851914936468697`*^9, 3.8851915000629387`*^9}, 
   3.889141973924244*^9},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"b9a784ca-26b0-4f00-93f9-6e76244261f3"],

Cell[TextData[StyleBox["Poomjai Nacaskul, Ph.D.",
 FontSize->24,
 FontWeight->"Bold",
 FontColor->GrayLevel[1]]], "Author",
 CellChangeTimes->{{3.888973403835884*^9, 3.888973415957621*^9}},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"faf0604b-e1aa-46e0-8ccb-0173a66c67ed"],

Cell[TextData[StyleBox["2023.03.31",
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.8713456840497117`*^9, 3.8713456876160254`*^9}, {
   3.871345775975469*^9, 3.871345776904157*^9}, {3.871510139631436*^9, 
   3.8715101405909257`*^9}, {3.8724629762226934`*^9, 
   3.8724629773699017`*^9}, {3.8737710280597725`*^9, 
   3.8737710359277973`*^9}, {3.8738568025000906`*^9, 3.873856803019414*^9}, {
   3.873939205165445*^9, 3.873939205677453*^9}, {3.8743596248494673`*^9, 
   3.874359625242044*^9}, {3.8750017301577554`*^9, 3.8750017308440323`*^9}, {
   3.875064440437437*^9, 3.8750644424578524`*^9}, {3.8752192571420364`*^9, 
   3.8752192578607607`*^9}, {3.8782782569263105`*^9, 3.878278258646419*^9}, {
   3.878680486732724*^9, 3.878680488853014*^9}, {3.8787695800471706`*^9, 
   3.8787695804801354`*^9}, {3.8788508927279806`*^9, 3.878850894930314*^9}, {
   3.878872025588595*^9, 3.8788720295144653`*^9}, {3.878944540769303*^9, 
   3.878944541131344*^9}, {3.879297357004484*^9, 3.879297357690538*^9}, {
   3.8799070600728455`*^9, 3.879907061420087*^9}, {3.8800040148043585`*^9, 
   3.8800040154933567`*^9}, {3.880082389037445*^9, 3.8800823896979666`*^9}, {
   3.8801443918157597`*^9, 3.880144392371735*^9}, {3.880234476387456*^9, 
   3.88023447685857*^9}, {3.880407454248597*^9, 3.8804074548496447`*^9}, {
   3.880607783426791*^9, 3.8806077835665684`*^9}, {3.880665381293962*^9, 
   3.880665381693717*^9}, {3.8824037991662436`*^9, 3.882403804145291*^9}, {
   3.882575638825726*^9, 3.882575639191471*^9}, {3.8837030946017375`*^9, 
   3.8837030957541246`*^9}, {3.883782588589318*^9, 3.8837825891013546`*^9}, {
   3.8851796676111403`*^9, 3.88517966829814*^9}, {3.8852510683575716`*^9, 
   3.885251068779319*^9}, 3.8853441316893744`*^9, {3.885418024335279*^9, 
   3.885418024649368*^9}, {3.8856056960454187`*^9, 3.8856056967885513`*^9}, {
   3.8857060030532913`*^9, 3.885706003811681*^9}, {3.8857716314441442`*^9, 
   3.8857716323711596`*^9}, {3.8858537519916754`*^9, 
   3.8858537525684457`*^9}, {3.885953719030515*^9, 3.8859537192314177`*^9}, {
   3.8860427886868787`*^9, 3.88604278915788*^9}, {3.8861110938674803`*^9, 
   3.8861110944596596`*^9}, {3.8877532429375496`*^9, 
   3.8877532453732915`*^9}, {3.889050550147873*^9, 3.889050550951415*^9}, {
   3.8891399580056877`*^9, 3.8891399596256995`*^9}, 
   3.8892186699477253`*^9},ExpressionUUID->"34ecc7e1-8cf4-42eb-8cfe-\
d7beeb169530"]
}, Open  ]],

Cell[CellGroupData[{

Cell["6. Define Base Pairs", "Section",
 CellChangeTimes->{{3.8531086817641788`*^9, 3.8531086824037175`*^9}, {
  3.853109772392812*^9, 3.853109783167832*^9}, {3.8532212363701124`*^9, 
  3.8532212444234743`*^9}, {3.8532790456718407`*^9, 3.8532790594399385`*^9}, {
  3.853279658208661*^9, 3.853279670223686*^9}, {3.8532804192176037`*^9, 
  3.853280420936925*^9}, {3.8532854475515347`*^9, 3.853285447856726*^9}, {
  3.8532854805470753`*^9, 3.853285482264063*^9}, {3.85328552055311*^9, 
  3.853285544747157*^9}, {3.8532880228063507`*^9, 3.8532880655894036`*^9}, {
  3.853288790751335*^9, 3.853288792559309*^9}, {3.8851870419028444`*^9, 
  3.8851870455631256`*^9}, {3.8851872879250135`*^9, 3.8851872896672726`*^9}, {
  3.8890574441341777`*^9, 3.8890574454955444`*^9}, {3.8890575059085703`*^9, 
  3.8890575277886486`*^9}, {3.889058763114086*^9, 
  3.889058801265751*^9}},ExpressionUUID->"1a4e2d86-46c6-4f64-98ed-\
9399b911a322"],

Cell[CellGroupData[{

Cell["Define Base Pairs (manually, based on Spearman\[CloseCurlyQuote]s \
Rho)", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853285855627571*^9, 
  3.853285866499487*^9}, {3.8851870357612295`*^9, 3.885187037984377*^9}, {
  3.8890587728205256`*^9, 3.889058799033767*^9}, {3.8890605785420923`*^9, 
  3.8890605799339385`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"ee03d451-5547-4df1-aa52-06c1a25a9f09"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listBasePairs", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<SET\>\"", ",", "\"\<MAI\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<SET\>\"", ",", "\"\<EquityFlow\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<SET\>\"", ",", "\"\<EMAsiaEquity\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<ZeroShort\>\"", ",", "\"\<ZeroLong\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<ZeroLong\>\"", ",", "\"\<CorpBond\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<ZeroLong\>\"", ",", "\"\<USBond\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<THB\>\"", ",", "\"\<EMAsiaEquity\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<THB\>\"", ",", "\"\<EMAsiaFX\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<EquityFlow\>\"", ",", "\"\<BondFlow\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<SP500\>\"", ",", "\"\<USBond\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<SP500\>\"", ",", "\"\<EMAsiaFX\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<EMBond\>\"", ",", "\"\<USBond\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<EMAsiaFX\>\"", ",", "\"\<USD\>\""}], "}"}]}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8532792458579965`*^9, 3.8532792474206347`*^9}, {
   3.853279303985016*^9, 3.8532795097120733`*^9}, {3.853279572378871*^9, 
   3.853279572826043*^9}, 3.853281295309284*^9, {3.853283636387203*^9, 
   3.8532836437967005`*^9}, {3.853284607806918*^9, 3.8532846110767527`*^9}, {
   3.8532848987324243`*^9, 3.853284910747363*^9}, 3.8532849531192613`*^9, {
   3.8533779198581796`*^9, 3.85337792193116*^9}, 3.8537279373722677`*^9, 
   3.8890575543640203`*^9},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[158]:=",ExpressionUUID->"f7b2c996-4309-468c-b905-7c036055b49b"],

Cell[BoxData[
 RowBox[{"basepairPearson", "=", "\[IndentingNewLine]", 
  RowBox[{"Grid", "[", 
   RowBox[{
    RowBox[{"Prepend", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Correlation", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{";;", 
               RowBox[{
                RowBox[{"Length", "@", 
                 RowBox[{"\[ScriptX]", "[", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "-", "1"}]}], 
              "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Correlation", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Correlation", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{";;", 
               RowBox[{
                RowBox[{"Length", "@", 
                 RowBox[{"\[ScriptX]", "[", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "-", "1"}]}], 
              "]"}], "]"}]}], "]"}]}], "}"}], "&"}], "/@", "listBasePairs"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "Bold"}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{
        "\"\<x1\>\"", ",", "\"\<x2\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \
\(Pearson\)]\)\[Rho](\!\(\*SubscriptBox[\(x1\), \(t - \
1\)]\),\!\(\*SubscriptBox[\(x2\), \(t\)]\))\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \
\(Pearson\)]\)\[Rho](\!\(\*SubscriptBox[\(x1\), \
\(t\)]\),\!\(\*SubscriptBox[\(x2\), \(t\)]\))\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \
\(Pearson\)]\)\[Rho](\!\(\*SubscriptBox[\(x1\), \
\(t\)]\),\!\(\*SubscriptBox[\(x2\), \(t - 1\)]\))\>\""}], "}"}]}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Alignment", "->", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
       "Right", ",", "Left", ",", "Right", ",", "Center", ",", "Left"}], 
       "}"}], "}"}]}], ",", 
    RowBox[{"Frame", "->", "All"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.853217367443267*^9, 3.8532174108862057`*^9}, {
   3.853217470698677*^9, 3.853217599634413*^9}, {3.8532176528473625`*^9, 
   3.8532176864725375`*^9}, {3.853218561168438*^9, 3.8532186258357954`*^9}, {
   3.8532186584367237`*^9, 3.853218744629842*^9}, {3.853218791158862*^9, 
   3.853218813196986*^9}, {3.853218874558272*^9, 3.8532189598051805`*^9}, {
   3.853218994055149*^9, 3.8532189955172644`*^9}, {3.853219326033708*^9, 
   3.8532193324256773`*^9}, {3.853219432590618*^9, 3.85321952182171*^9}, {
   3.8532195840154824`*^9, 3.853219593941926*^9}, {3.8532208010243006`*^9, 
   3.853220945999774*^9}, 3.8532795530441856`*^9, {3.8532795934974585`*^9, 
   3.853279593782569*^9}, 3.8532796273675714`*^9, 3.8532836521627083`*^9, 
   3.8532846195019073`*^9, {3.8532878023118277`*^9, 3.8532878377757654`*^9}, {
   3.8532879447532434`*^9, 3.8532880078903217`*^9}, {3.853382833169409*^9, 
   3.8533828363523192`*^9}, {3.8533830695607853`*^9, 3.853383246476037*^9}, {
   3.853383289081205*^9, 3.85338345638177*^9}, {3.8533836601894865`*^9, 
   3.8533836903052053`*^9}, {3.8533837898716936`*^9, 3.853383808192642*^9}, {
   3.853393148410226*^9, 3.8533931524700594`*^9}, {3.8632268065578365`*^9, 
   3.8632268086013947`*^9}, {3.879911233060812*^9, 3.879911253055911*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[159]:=",ExpressionUUID->"05940501-c9a4-481f-aab9-88ea1e03bcb1"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"OUTPUTDIR0", "<>", "\"\<(table)basepairPearson.png\>\""}], ",", 
     "basepairPearson"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8632268209288735`*^9, 3.863226821289845*^9}, {
  3.865919665955139*^9, 3.8659196754837294`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[160]:=",ExpressionUUID->"21a5a193-9ee0-4653-a0fa-282e4207859a"],

Cell[BoxData[
 RowBox[{"basepairSpearman", "=", "\[IndentingNewLine]", 
  RowBox[{"Grid", "[", 
   RowBox[{
    RowBox[{"Prepend", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"SpearmanRho", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{";;", 
               RowBox[{
                RowBox[{"Length", "@", 
                 RowBox[{"\[ScriptX]", "[", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "-", "1"}]}], 
              "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"SpearmanRho", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"SpearmanRho", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{";;", 
               RowBox[{
                RowBox[{"Length", "@", 
                 RowBox[{"\[ScriptX]", "[", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "-", "1"}]}], 
              "]"}], "]"}]}], "]"}]}], "}"}], "&"}], "/@", "listBasePairs"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "Bold"}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{
        "\"\<x1\>\"", ",", "\"\<x2\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \
\(Spearman\)]\)\[Rho](\!\(\*SubscriptBox[\(x1\), \(t - \
1\)]\),\!\(\*SubscriptBox[\(x2\), \(t\)]\))\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \
\(Spearman\)]\)\[Rho](\!\(\*SubscriptBox[\(x1\), \(t\)]\),\!\(\*SubscriptBox[\
\(x2\), \(t\)]\))\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \
\(Spearman\)]\)\[Rho](\!\(\*SubscriptBox[\(x1\), \(t\)]\),\!\(\*SubscriptBox[\
\(x2\), \(t - 1\)]\))\>\""}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Alignment", "->", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
       "Right", ",", "Left", ",", "Right", ",", "Center", ",", "Left"}], 
       "}"}], "}"}]}], ",", 
    RowBox[{"Frame", "->", "All"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.853217367443267*^9, 3.8532174108862057`*^9}, {
   3.853217470698677*^9, 3.853217599634413*^9}, {3.8532176528473625`*^9, 
   3.8532176864725375`*^9}, {3.853218561168438*^9, 3.8532186258357954`*^9}, {
   3.8532186584367237`*^9, 3.853218744629842*^9}, {3.853218791158862*^9, 
   3.853218813196986*^9}, {3.853218874558272*^9, 3.8532189598051805`*^9}, {
   3.853218994055149*^9, 3.8532189955172644`*^9}, {3.853219326033708*^9, 
   3.8532193324256773`*^9}, {3.853219432590618*^9, 3.85321952182171*^9}, {
   3.8532195840154824`*^9, 3.853219593941926*^9}, {3.8532208010243006`*^9, 
   3.853220945999774*^9}, 3.8532795530441856`*^9, {3.8532795934974585`*^9, 
   3.853279593782569*^9}, 3.8532796273675714`*^9, 3.8532836521627083`*^9, 
   3.8532846195019073`*^9, {3.8532878023118277`*^9, 3.8532878377757654`*^9}, {
   3.8532879447532434`*^9, 3.8532880078903217`*^9}, {3.853382833169409*^9, 
   3.8533828363523192`*^9}, {3.8533830695607853`*^9, 3.853383246476037*^9}, {
   3.853383289081205*^9, 3.85338345638177*^9}, {3.8533836601894865`*^9, 
   3.8533836903052053`*^9}, {3.853393162397769*^9, 3.8533931637338085`*^9}, {
   3.8632268312743034`*^9, 3.8632268331092634`*^9}, {3.8799112690215664`*^9, 
   3.8799112733093367`*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[161]:=",ExpressionUUID->"3a750f85-8534-4d55-ad4b-ec7d6e42c90b"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"OUTPUTDIR0", "<>", "\"\<(table)basepairSpearman.png\>\""}], ",",
      "basepairSpearman"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.8632268527918878`*^9, {3.865919680888489*^9, 3.8659196834909697`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[162]:=",ExpressionUUID->"a50a3f6c-b8a0-4407-a462-6de2669a6c90"],

Cell[BoxData[
 RowBox[{"basepairKendall", "=", "\[IndentingNewLine]", 
  RowBox[{"Grid", "[", 
   RowBox[{
    RowBox[{"Prepend", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"KendallTau", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{";;", 
               RowBox[{
                RowBox[{"Length", "@", 
                 RowBox[{"\[ScriptX]", "[", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "-", "1"}]}], 
              "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"KendallTau", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"KendallTau", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"\[ScriptX]", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{";;", 
               RowBox[{
                RowBox[{"Length", "@", 
                 RowBox[{"\[ScriptX]", "[", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "-", "1"}]}], 
              "]"}], "]"}]}], "]"}]}], "}"}], "&"}], "/@", "listBasePairs"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "Bold"}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{
        "\"\<x1\>\"", ",", "\"\<x2\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \
\(Kendall\)]\)\[Tau](\!\(\*SubscriptBox[\(x1\), \(t - \
1\)]\),\!\(\*SubscriptBox[\(x2\), \(t\)]\))\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \
\(Kendall\)]\)\[Tau](\!\(\*SubscriptBox[\(x1\), \
\(t\)]\),\!\(\*SubscriptBox[\(x2\), \(t\)]\))\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \
\(Kendall\)]\)\[Tau](\!\(\*SubscriptBox[\(x1\), \
\(t\)]\),\!\(\*SubscriptBox[\(x2\), \(t - 1\)]\))\>\""}], "}"}]}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Alignment", "->", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
       "Right", ",", "Left", ",", "Right", ",", "Center", ",", "Left"}], 
       "}"}], "}"}]}], ",", 
    RowBox[{"Frame", "->", "All"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.853217367443267*^9, 3.8532174108862057`*^9}, {
   3.853217470698677*^9, 3.853217599634413*^9}, {3.8532176528473625`*^9, 
   3.8532176864725375`*^9}, {3.853218561168438*^9, 3.8532186258357954`*^9}, {
   3.8532186584367237`*^9, 3.853218744629842*^9}, {3.853218791158862*^9, 
   3.853218813196986*^9}, {3.853218874558272*^9, 3.8532189598051805`*^9}, {
   3.853218994055149*^9, 3.8532189955172644`*^9}, {3.853219326033708*^9, 
   3.8532193324256773`*^9}, {3.853219432590618*^9, 3.85321952182171*^9}, {
   3.8532195840154824`*^9, 3.853219593941926*^9}, {3.8532208010243006`*^9, 
   3.853220945999774*^9}, 3.8532795530441856`*^9, {3.8532795934974585`*^9, 
   3.853279593782569*^9}, 3.8532796273675714`*^9, 3.8532836521627083`*^9, 
   3.8532846195019073`*^9, {3.8532878023118277`*^9, 3.8532878377757654`*^9}, {
   3.8532879447532434`*^9, 3.8532880078903217`*^9}, {3.853382833169409*^9, 
   3.8533828363523192`*^9}, {3.8533830695607853`*^9, 3.853383246476037*^9}, {
   3.853383289081205*^9, 3.85338345638177*^9}, {3.8533836601894865`*^9, 
   3.853383743001337*^9}, {3.8533931735927067`*^9, 3.8533931742216945`*^9}, {
   3.8632268394025335`*^9, 3.863226840628717*^9}, {3.8799112799600334`*^9, 
   3.879911284210846*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[163]:=",ExpressionUUID->"f4d042c6-7ec1-4aa6-952b-5b581319bd2f"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"OUTPUTDIR0", "<>", "\"\<(table)basepairKendall.png\>\""}], ",", 
     "basepairKendall"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.863226865772675*^9, {3.865919685445821*^9, 3.8659196894071784`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[164]:=",ExpressionUUID->"7fb2b1c6-d219-4527-adf2-07ed45c2e64c"]
}, Closed]],

Cell[CellGroupData[{

Cell["Interactive Display", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"44bf5138-13e7-4523-b045-6b777a586843"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"layouts1", "=", 
   RowBox[{"{", 
    RowBox[{
    "Automatic", ",", "\"\<BipartiteEmbedding\>\"", ",", 
     "\"\<CircularEmbedding\>\"", ",", 
     "\"\<CircularMultipartiteEmbedding\>\"", ",", 
     "\"\<DiscreteSpiralEmbedding\>\"", ",", "\"\<GridEmbedding\>\"", ",", 
     "\"\<LinearEmbedding\>\"", ",", "\"\<MultipartiteEmbedding\>\"", ",", 
     "\"\<SpiralEmbedding\>\"", ",", "\"\<StarEmbedding\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"layouts2", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<BalloonEmbedding\>\"", ",", "\"\<RadialEmbedding\>\"", ",", 
     "\"\<LayeredDigraphEmbedding\>\"", ",", "\"\<LayeredEmbedding\>\""}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"layouts3", " ", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<GravityEmbedding\>\"", ",", "\"\<HighDimensionalEmbedding\>\"", ",", 
     "\"\<PlanarEmbedding\>\"", ",", "\"\<SpectralEmbedding\>\"", ",", 
     "\"\<SphericalEmbedding\>\"", ",", "\"\<SpringElectricalEmbedding\>\"", 
     ",", "\"\<SpringEmbedding\>\"", ",", "\"\<TutteEmbedding\>\""}], "}"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"layouts123", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"layouts1", ",", "layouts2", ",", "layouts3"}], "]"}]}], ";", 
  RowBox[{"layoutsAll", "=", 
   RowBox[{"Union", "[", 
    RowBox[{"layouts1", ",", "layouts2", ",", "layouts3"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.853220238401699*^9, 3.8532202488297873`*^9}, {
   3.8532204572399073`*^9, 3.853220508031231*^9}, 3.853220539363183*^9, 
   3.8532210338537273`*^9, {3.8532829894206667`*^9, 3.8532830265653434`*^9}, {
   3.853283261198292*^9, 3.8532832930267158`*^9}, {3.85328409793917*^9, 
   3.8532840985782185`*^9}, {3.8532841385153327`*^9, 3.853284148050355*^9}, {
   3.853638739236747*^9, 3.853638763920231*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[165]:=",ExpressionUUID->"80adacf6-d626-4327-81e8-b579942baf89"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "[", 
   RowBox[{"nodepair_", ",", 
    RowBox[{"plot_", ":", "GraphPlot3D"}], ",", 
    RowBox[{"vertexlabel_", ":", "Automatic"}], ",", 
    RowBox[{"graphlayout_", ":", "Automatic"}], ",", 
    RowBox[{"labelEdge_", ":", "False"}], ",", 
    RowBox[{"imagesize_", ":", "Automatic"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"If", "[", 
   RowBox[{"labelEdge", ",", "\[IndentingNewLine]", 
    RowBox[{"plot", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"nodepair", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[UndirectedEdge]", 
         RowBox[{"nodepair", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{"Length", "@", "nodepair"}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"EdgeLabels", "->", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"nodepair", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[UndirectedEdge]", 
           RowBox[{"nodepair", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "->", 
          RowBox[{"nodepair", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"Length", "@", "nodepair"}]}], "}"}]}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"VertexLabels", "\[Rule]", "vertexlabel"}], ",", 
      RowBox[{"GraphLayout", "->", "graphlayout"}], ",", 
      RowBox[{"ImageSize", "->", "imagesize"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"plot", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"nodepair", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[UndirectedEdge]", 
         RowBox[{"nodepair", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{"Length", "@", "nodepair"}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"GraphLayout", "->", "graphlayout"}], ",", 
      RowBox[{"ImageSize", "->", "imagesize"}]}], "]"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlotLabel", "[", 
   RowBox[{"labellednodepair_", ",", 
    RowBox[{"plot_", ":", "GraphPlot3D"}], ",", 
    RowBox[{"vertexlabel_", ":", "Automatic"}], ",", 
    RowBox[{"graphlayout_", ":", "Automatic"}], ",", 
    RowBox[{"imagesize_", ":", "Automatic"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"plot", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"labellednodepair", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], "\[UndirectedEdge]", 
       RowBox[{"labellednodepair", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "@", "labellednodepair"}]}], "}"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"EdgeLabels", "->", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"labellednodepair", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], 
         "\[UndirectedEdge]", 
         RowBox[{"labellednodepair", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}]}], "->", 
        RowBox[{"labellednodepair", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "@", "labellednodepair"}]}], "}"}]}], "]"}]}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"VertexLabels", "\[Rule]", "vertexlabel"}], ",", 
    RowBox[{"GraphLayout", "->", "graphlayout"}], ",", 
    RowBox[{"ImageSize", "->", "imagesize"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8525338114534254`*^9, 3.852533816153638*^9}, {
   3.8525339325753202`*^9, 3.8525341364074802`*^9}, {3.8525342014953575`*^9, 
   3.8525342033434687`*^9}, {3.85253449905925*^9, 3.852534506184343*^9}, {
   3.8525345934810677`*^9, 3.8525346118073225`*^9}, {3.852534950604272*^9, 
   3.8525349508249807`*^9}, {3.852540810561032*^9, 3.8525408140955544`*^9}, 
   3.852540854800028*^9, {3.852581833235341*^9, 3.852581859801876*^9}, {
   3.8525819601410546`*^9, 3.8525820233950253`*^9}, {3.852582149042718*^9, 
   3.852582153961993*^9}, {3.852608554056858*^9, 3.852608567001919*^9}, {
   3.8532856493332872`*^9, 3.8532856671402073`*^9}, {3.853287230898322*^9, 
   3.8532872880474877`*^9}, {3.853287362554477*^9, 3.8532874199374037`*^9}, {
   3.8532875664957533`*^9, 3.853287586952387*^9}, {3.85328762318472*^9, 
   3.85328762607889*^9}, {3.853396821342019*^9, 3.8533968782270756`*^9}, {
   3.8533969926676273`*^9, 3.8533970200837727`*^9}, {3.8536381244571857`*^9, 
   3.853638202198504*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[169]:=",ExpressionUUID->"49f7521b-147f-439a-8c6f-7d4e62ed92d6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "@", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a", ",", "b"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", "c"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"b", ",", "c"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", "d"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", "e"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"d", ",", "e"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "c"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"b", ",", "c"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "d"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "e"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"d", ",", "e"}], "}"}]}], "}"}], ",", "GraphPlot3D", ",", 
   "Automatic", ",", "Automatic", ",", "True"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlotLabel", "@", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "b"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "c"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "c"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"b", ",", "c"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "d"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "d"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "e"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "e"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"d", ",", "e"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"d", ",", "e"}], "}"}]}], "}"}]}], "}"}]}]}], "Input",
 Evaluatable->False,
 CellChangeTimes->{{3.8533968734505396`*^9, 3.8533969189386053`*^9}, 
   3.853821641826691*^9},
 Background->GrayLevel[
  0.85],ExpressionUUID->"73edda57-12cf-4028-8889-da7e21da7967"],

Cell[BoxData[
 Graphics3DBox[{
   {Hue[0.6, 0.2, 0.8], Arrowheads[0.], 
    Arrow3DBox[TubeBox[{{{1.0080730297749723`, 0.3942970453862252, 
     0.07648864584585749}, {2.0161785625986766`, 0.7884772774241084, 
     0.15279293273795996`}}, {{1.0080730297749723`, 0.3942970453862252, 
     0.07648864584585749}, {2.016155756621079, 0.0001405580508324622, 0.}}, {{
     1.0080730297749723`, 0.3942970453862252, 0.07648864584585749}, {0., 0., 
     0.15276221429395684`}}, {{1.0080730297749723`, 0.3942970453862252, 
     0.07648864584585749}, {0.00004598526540311454, 0.7886447410327043, 
     0.000028961548803718706`}}, {{2.0161785625986766`, 0.7884772774241084, 
     0.15279293273795996`}, {2.016155756621079, 0.0001405580508324622, 
     0.}}, {{0., 0., 0.15276221429395684`}, {0.00004598526540311454, 
     0.7886447410327043, 0.000028961548803718706`}}}], 0.04548520277574408]}, 
   {Hue[0.6, 0.6, 1], {
     SphereBox[{1.0080730297749723`, 0.3942970453862252, 0.07648864584585749},
       0.04548520277574408], Text3DBox[
      FormBox["a", StandardForm], {1.0581067528282906`, 0.3942970453862252, 
      0.12652236889917598`}, {-1, -1},
      BaseStyle->"Graphics"]}, {
     SphereBox[{2.0161785625986766`, 0.7884772774241084, 
      0.15279293273795996`}, 0.04548520277574408], Text3DBox[
      FormBox["b", StandardForm], {2.066212285651995, 0.7884772774241084, 
      0.20282665579127845`}, {-1, -1},
      BaseStyle->"Graphics"]}, {
     SphereBox[{2.016155756621079, 0.0001405580508324622, 0.}, 
      0.04548520277574408], Text3DBox[
      FormBox["c", StandardForm], {2.0661894796743976`, 0.0001405580508324622,
       0.05003372305331849}, {-1, -1},
      BaseStyle->"Graphics"]}, {
     SphereBox[{0., 0., 0.15276221429395684`}, 0.04548520277574408], Text3DBox[
      FormBox["d", StandardForm], {0.05003372305331849, 0., 
      0.20279593734727533`}, {-1, -1},
      BaseStyle->"Graphics"]}, {
     SphereBox[{0.00004598526540311454, 0.7886447410327043, 
      0.000028961548803718706`}, 0.04548520277574408], Text3DBox[
      FormBox["e", StandardForm], {0.050079708318721605`, 0.7886447410327043, 
      0.05006268460212221}, {-1, -1},
      BaseStyle->"Graphics"]}}},
  BaseStyle->{Graphics3DBoxOptions -> {Method -> {"ShrinkWrap" -> True}}},
  Boxed->False,
  FormatType->TraditionalForm,
  Lighting->{{"Directional", 
     GrayLevel[0.7], 
     ImageScaled[{1, 1, 0}]}, {"Point", 
     GrayLevel[0.9], 
     ImageScaled[{0, 0, 0}], {0, 0, 0.07}}}]], "Output",
 CellChangeTimes->{3.8533968815890493`*^9, 3.8533969193448043`*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"f95ff6a6-9ddf-42e3-b978-ec7bba267ffa"],

Cell[BoxData[
 Graphics3DBox[{
   {Hue[0.6, 0.2, 0.8], {
     {Arrowheads[0.], 
      Arrow3DBox[TubeBox[{{1.0080730297749723`, 0.3942970453862252, 
       0.07648864584585749}, {2.0161785625986766`, 0.7884772774241084, 
       0.15279293273795996`}}], 0.04548520277574408]}, Text3DBox[
      FormBox[
       RowBox[{"{", 
        RowBox[{"a", ",", "b"}], "}"}], StandardForm], {1.5121257961868244`, 
      0.5913871614051668, 0.11464078929190873`}, {0., 0.},
      BaseStyle->"Graphics"]}, {
     {Arrowheads[0.], 
      Arrow3DBox[TubeBox[{{1.0080730297749723`, 0.3942970453862252, 
       0.07648864584585749}, {2.016155756621079, 0.0001405580508324622, 0.}}],
        0.04548520277574408]}, Text3DBox[
      FormBox[
       RowBox[{"{", 
        RowBox[{"a", ",", "c"}], "}"}], StandardForm], {1.5121143931980257`, 
      0.19721880171852882`, 0.038244322922928745`}, {0., 0.},
      BaseStyle->"Graphics"]}, {
     {Arrowheads[0.], 
      Arrow3DBox[TubeBox[{{1.0080730297749723`, 0.3942970453862252, 
       0.07648864584585749}, {0., 0., 0.15276221429395684`}}], 
       0.04548520277574408]}, Text3DBox[
      FormBox[
       RowBox[{"{", 
        RowBox[{"a", ",", "d"}], "}"}], StandardForm], {0.5040365148874861, 
      0.1971485226931126, 0.11462543006990716`}, {0., 0.},
      BaseStyle->"Graphics"]}, {
     {Arrowheads[0.], 
      Arrow3DBox[TubeBox[{{1.0080730297749723`, 0.3942970453862252, 
       0.07648864584585749}, {0.00004598526540311454, 0.7886447410327043, 
       0.000028961548803718706`}}], 0.04548520277574408]}, Text3DBox[
      FormBox[
       RowBox[{"{", 
        RowBox[{"a", ",", "e"}], "}"}], StandardForm], {0.5040595075201877, 
      0.5914708932094648, 0.038258803697330604`}, {0., 0.},
      BaseStyle->"Graphics"]}, {
     {Arrowheads[0.], 
      Arrow3DBox[TubeBox[{{2.0161785625986766`, 0.7884772774241084, 
       0.15279293273795996`}, {2.016155756621079, 0.0001405580508324622, 
       0.}}], 0.04548520277574408]}, Text3DBox[
      FormBox[
       RowBox[{"{", 
        RowBox[{"b", ",", "c"}], "}"}], StandardForm], {2.0161671596098776`, 
      0.39430891773747045`, 0.07639646636897998}, {0., 0.},
      BaseStyle->"Graphics"]}, {
     {Arrowheads[0.], 
      Arrow3DBox[TubeBox[{{0., 0., 0.15276221429395684`}, {
       0.00004598526540311454, 0.7886447410327043, 
       0.000028961548803718706`}}], 0.04548520277574408]}, Text3DBox[
      FormBox[
       RowBox[{"{", 
        RowBox[{"d", ",", "e"}], "}"}], StandardForm], {
      0.00002299263270155727, 0.39432237051635216`, 0.07639558792138028}, {0.,
       0.},
      BaseStyle->"Graphics"]}}, 
   {Hue[0.6, 0.6, 1], {
     SphereBox[{1.0080730297749723`, 0.3942970453862252, 0.07648864584585749},
       0.04548520277574408], Text3DBox[
      FormBox["a", StandardForm], {1.0581067528282906`, 0.3942970453862252, 
      0.12652236889917598`}, {-1, -1},
      BaseStyle->"Graphics"]}, {
     SphereBox[{2.0161785625986766`, 0.7884772774241084, 
      0.15279293273795996`}, 0.04548520277574408], Text3DBox[
      FormBox["b", StandardForm], {2.066212285651995, 0.7884772774241084, 
      0.20282665579127845`}, {-1, -1},
      BaseStyle->"Graphics"]}, {
     SphereBox[{2.016155756621079, 0.0001405580508324622, 0.}, 
      0.04548520277574408], Text3DBox[
      FormBox["c", StandardForm], {2.0661894796743976`, 0.0001405580508324622,
       0.05003372305331849}, {-1, -1},
      BaseStyle->"Graphics"]}, {
     SphereBox[{0., 0., 0.15276221429395684`}, 0.04548520277574408], Text3DBox[
      FormBox["d", StandardForm], {0.05003372305331849, 0., 
      0.20279593734727533`}, {-1, -1},
      BaseStyle->"Graphics"]}, {
     SphereBox[{0.00004598526540311454, 0.7886447410327043, 
      0.000028961548803718706`}, 0.04548520277574408], Text3DBox[
      FormBox["e", StandardForm], {0.050079708318721605`, 0.7886447410327043, 
      0.05006268460212221}, {-1, -1},
      BaseStyle->"Graphics"]}}},
  BaseStyle->{Graphics3DBoxOptions -> {Method -> {"ShrinkWrap" -> True}}},
  Boxed->False,
  FormatType->TraditionalForm,
  Lighting->{{"Directional", 
     GrayLevel[0.7], 
     ImageScaled[{1, 1, 0}]}, {"Point", 
     GrayLevel[0.9], 
     ImageScaled[{0, 0, 0}], {0, 0, 0.07}}}]], "Output",
 CellChangeTimes->{3.8533968815890493`*^9, 3.8533969194176097`*^9},
 CellLabel->
  "Out[109]=",ExpressionUUID->"324052ca-2870-42a8-9810-4aec8735876d"],

Cell[BoxData[
 Graphics3DBox[{
   {Hue[0.6, 0.2, 0.8], {
     {Arrowheads[0.], 
      Arrow3DBox[TubeBox[{{1.0080730297749723`, 0.3942970453862252, 
       0.07648864584585749}, {2.0161785625986766`, 0.7884772774241084, 
       0.15279293273795996`}}], 0.04548520277574408]}, Text3DBox[
      FormBox[
       RowBox[{"{", 
        RowBox[{"a", ",", "b"}], "}"}], StandardForm], {1.5121257961868244`, 
      0.5913871614051668, 0.11464078929190873`}, {0., 0.},
      BaseStyle->"Graphics"]}, {
     {Arrowheads[0.], 
      Arrow3DBox[TubeBox[{{1.0080730297749723`, 0.3942970453862252, 
       0.07648864584585749}, {2.016155756621079, 0.0001405580508324622, 0.}}],
        0.04548520277574408]}, Text3DBox[
      FormBox[
       RowBox[{"{", 
        RowBox[{"a", ",", "c"}], "}"}], StandardForm], {1.5121143931980257`, 
      0.19721880171852882`, 0.038244322922928745`}, {0., 0.},
      BaseStyle->"Graphics"]}, {
     {Arrowheads[0.], 
      Arrow3DBox[TubeBox[{{1.0080730297749723`, 0.3942970453862252, 
       0.07648864584585749}, {0., 0., 0.15276221429395684`}}], 
       0.04548520277574408]}, Text3DBox[
      FormBox[
       RowBox[{"{", 
        RowBox[{"a", ",", "d"}], "}"}], StandardForm], {0.5040365148874861, 
      0.1971485226931126, 0.11462543006990716`}, {0., 0.},
      BaseStyle->"Graphics"]}, {
     {Arrowheads[0.], 
      Arrow3DBox[TubeBox[{{1.0080730297749723`, 0.3942970453862252, 
       0.07648864584585749}, {0.00004598526540311454, 0.7886447410327043, 
       0.000028961548803718706`}}], 0.04548520277574408]}, Text3DBox[
      FormBox[
       RowBox[{"{", 
        RowBox[{"a", ",", "e"}], "}"}], StandardForm], {0.5040595075201877, 
      0.5914708932094648, 0.038258803697330604`}, {0., 0.},
      BaseStyle->"Graphics"]}, {
     {Arrowheads[0.], 
      Arrow3DBox[TubeBox[{{2.0161785625986766`, 0.7884772774241084, 
       0.15279293273795996`}, {2.016155756621079, 0.0001405580508324622, 
       0.}}], 0.04548520277574408]}, Text3DBox[
      FormBox[
       RowBox[{"{", 
        RowBox[{"b", ",", "c"}], "}"}], StandardForm], {2.0161671596098776`, 
      0.39430891773747045`, 0.07639646636897998}, {0., 0.},
      BaseStyle->"Graphics"]}, {
     {Arrowheads[0.], 
      Arrow3DBox[TubeBox[{{0., 0., 0.15276221429395684`}, {
       0.00004598526540311454, 0.7886447410327043, 
       0.000028961548803718706`}}], 0.04548520277574408]}, Text3DBox[
      FormBox[
       RowBox[{"{", 
        RowBox[{"d", ",", "e"}], "}"}], StandardForm], {
      0.00002299263270155727, 0.39432237051635216`, 0.07639558792138028}, {0.,
       0.},
      BaseStyle->"Graphics"]}}, 
   {Hue[0.6, 0.6, 1], {
     SphereBox[{1.0080730297749723`, 0.3942970453862252, 0.07648864584585749},
       0.04548520277574408], Text3DBox[
      FormBox["a", StandardForm], {1.0581067528282906`, 0.3942970453862252, 
      0.12652236889917598`}, {-1, -1},
      BaseStyle->"Graphics"]}, {
     SphereBox[{2.0161785625986766`, 0.7884772774241084, 
      0.15279293273795996`}, 0.04548520277574408], Text3DBox[
      FormBox["b", StandardForm], {2.066212285651995, 0.7884772774241084, 
      0.20282665579127845`}, {-1, -1},
      BaseStyle->"Graphics"]}, {
     SphereBox[{2.016155756621079, 0.0001405580508324622, 0.}, 
      0.04548520277574408], Text3DBox[
      FormBox["c", StandardForm], {2.0661894796743976`, 0.0001405580508324622,
       0.05003372305331849}, {-1, -1},
      BaseStyle->"Graphics"]}, {
     SphereBox[{0., 0., 0.15276221429395684`}, 0.04548520277574408], Text3DBox[
      FormBox["d", StandardForm], {0.05003372305331849, 0., 
      0.20279593734727533`}, {-1, -1},
      BaseStyle->"Graphics"]}, {
     SphereBox[{0.00004598526540311454, 0.7886447410327043, 
      0.000028961548803718706`}, 0.04548520277574408], Text3DBox[
      FormBox["e", StandardForm], {0.050079708318721605`, 0.7886447410327043, 
      0.05006268460212221}, {-1, -1},
      BaseStyle->"Graphics"]}}},
  BaseStyle->{Graphics3DBoxOptions -> {Method -> {"ShrinkWrap" -> True}}},
  Boxed->False,
  FormatType->TraditionalForm,
  Lighting->{{"Directional", 
     GrayLevel[0.7], 
     ImageScaled[{1, 1, 0}]}, {"Point", 
     GrayLevel[0.9], 
     ImageScaled[{0, 0, 0}], {0, 0, 0.07}}}]], "Output",
 CellChangeTimes->{3.8533968815890493`*^9, 3.853396919500388*^9},
 CellLabel->
  "Out[110]=",ExpressionUUID->"6db7fdb4-c0f3-428a-b83f-529a3d8daa31"]
}, Closed]],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "[", 
    RowBox[{
    "listBasePairs", ",", "plot", ",", "Automatic", ",", "graphlayout"}], 
    "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"plot", ",", 
     RowBox[{"{", 
      RowBox[{
      "GraphPlot", ",", "GraphPlot3D", ",", "LayeredGraphPlot", ",", 
       "LayeredGraphPlot3D"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"graphlayout", ",", "\"\<DiscreteSpiralEmbedding\>\""}], "}"}], 
     ",", "layouts1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.853281083266651*^9, 3.853281083738669*^9}, 
   3.8532835211877728`*^9, {3.8532850343394413`*^9, 3.853285035579461*^9}, {
   3.8532874947937555`*^9, 3.853287531974724*^9}, {3.8532876476468773`*^9, 
   3.853287676406679*^9}, 3.853377943969243*^9},
 CellLabel->
  "In[171]:=",ExpressionUUID->"e1b7bd6b-8c8c-4c2e-b0b0-d91e807b7e0a"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "[", 
    RowBox[{
    "listBasePairs", ",", "plot", ",", "Automatic", ",", "graphlayout"}], 
    "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"plot", ",", 
     RowBox[{"{", 
      RowBox[{
      "GraphPlot", ",", "GraphPlot3D", ",", "LayeredGraphPlot", ",", 
       "LayeredGraphPlot3D"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"graphlayout", ",", "\"\<LayeredDigraphEmbedding\>\""}], "}"}], 
     ",", "layouts2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.853281083266651*^9, 3.853281083738669*^9}, 
   3.8532835211877728`*^9, {3.8532850343394413`*^9, 3.853285035579461*^9}, {
   3.8532874947937555`*^9, 3.853287531974724*^9}, {3.8532876476468773`*^9, 
   3.8532877028031683`*^9}, 3.853287738248872*^9, 3.8533779527420845`*^9},
 CellLabel->
  "In[172]:=",ExpressionUUID->"29d25842-5f7a-4ea9-9d5f-4db1db3b5331"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "[", 
    RowBox[{
    "listBasePairs", ",", "plot", ",", "Automatic", ",", "graphlayout"}], 
    "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"plot", ",", 
     RowBox[{"{", 
      RowBox[{
      "GraphPlot", ",", "GraphPlot3D", ",", "LayeredGraphPlot", ",", 
       "LayeredGraphPlot3D"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"graphlayout", ",", "\"\<SpringElectricalEmbedding\>\""}], 
      "}"}], ",", "layouts3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.853281083266651*^9, 3.853281083738669*^9}, 
   3.8532835211877728`*^9, {3.8532850343394413`*^9, 3.853285035579461*^9}, {
   3.8532874947937555`*^9, 3.853287531974724*^9}, {3.8532876476468773`*^9, 
   3.853287676406679*^9}, {3.8532877215763636`*^9, 3.853287723424425*^9}, 
   3.85328775513175*^9, 3.853377955257263*^9},
 CellLabel->
  "In[173]:=",ExpressionUUID->"f75f9361-4d18-4c1c-b599-6c54243cd61a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Define Connected Acyclic Graphs", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
  3.8532857068838415`*^9}, {3.8532858437947817`*^9, 3.853285845227463*^9}, {
  3.8532858808764677`*^9, 3.8532859300822268`*^9}, {3.853378693728201*^9, 
  3.8533787055931*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"772f0642-5c28-4547-b8c5-e7a5e841dfc1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"listEquityBondFX", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
    "\"\<SP500\>\"", ",", "\"\<EMAsiaEquity\>\"", ",", "\"\<THEquityFlow\>\"",
      ",", "\"\<SET\>\"", ",", "\"\<MAI\>\"", ",", "\[IndentingNewLine]", 
     "\"\<THCorpBond\>\"", ",", "\"\<THGovtShort\>\"", ",", 
     "\"\<THGovtLong\>\"", ",", "\"\<THBondFlow\>\"", ",", "\"\<EMBond\>\"", 
     ",", "\"\<USBond\>\"", ",", "\[IndentingNewLine]", "\"\<USD\>\"", ",", 
     "\"\<EMAsiaFX\>\"", ",", "\"\<THB\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"listUSDEMAsiaTH", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
    "\"\<USD\>\"", ",", "\"\<SP500\>\"", ",", "\"\<USBond\>\"", ",", 
     "\[IndentingNewLine]", "\"\<EMBond\>\"", ",", "\"\<EMAsiaEquity\>\"", 
     ",", "\"\<EMAsiaFX\>\"", ",", "\[IndentingNewLine]", "\"\<THB\>\"", ",", 
     "\"\<THEquityFlow\>\"", ",", "\"\<SET\>\"", ",", "\"\<MAI\>\"", ",", 
     "\"\<THCorpBond\>\"", ",", "\"\<THGovtShort\>\"", ",", 
     "\"\<THGovtLong\>\"", ",", "\"\<THBondFlow\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"listEquityCentricPairings", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<THEquityFlow\>\"", ",", "\"\<SET\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<SET\>\"", ",", "\"\<MAI\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<THBondFlow\>\"", ",", "\"\<THGovtLong\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<THGovtLong\>\"", ",", "\"\<THGovtShort\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<THGovtShort\>\"", ",", "\"\<THCorpBond\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<USD\>\"", ",", "\"\<EMAsiaFX\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<EMAsiaFX\>\"", ",", "\"\<THB\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<USD\>\"", ",", "\"\<SP500\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<SP500\>\"", ",", "\"\<EMAsiaEquity\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<EMAsiaEquity\>\"", ",", "\"\<THEquityFlow\>\""}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"\"\<SP500\>\"", ",", "\"\<USBond\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<USBond\>\"", ",", "\"\<EMBond\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<EMBond\>\"", ",", "\"\<THBondFlow\>\""}], "}"}]}], "}"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"listFxCentricPairings", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<THBondFlow\>\"", ",", "\"\<THGovtLong\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<THGovtLong\>\"", ",", "\"\<THGovtShort\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<THGovtShort\>\"", ",", "\"\<THCorpBond\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<USD\>\"", ",", "\"\<EMAsiaFX\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<EMAsiaFX\>\"", ",", "\"\<THB\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<THB\>\"", ",", "\"\<THEquityFlow\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<THEquityFlow\>\"", ",", "\"\<SET\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<SET\>\"", ",", "\"\<MAI\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<USD\>\"", ",", "\"\<SP500\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<EMAsiaFX\>\"", ",", "\"\<EMAsiaEquity\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<SP500\>\"", ",", "\"\<USBond\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<EMAsiaEquity\>\"", ",", "\"\<EMBond\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<THB\>\"", ",", "\"\<THBondFlow\>\""}], "}"}]}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.853282387985677*^9, 3.853282453979841*^9}, {
  3.853282490799985*^9, 3.853282493981886*^9}, {3.8532826608151608`*^9, 
  3.8532826677413607`*^9}, {3.8532827165024557`*^9, 3.8532827210538383`*^9}, {
  3.8532827570219383`*^9, 3.853282774293505*^9}, {3.853284431182694*^9, 
  3.8532844466987276`*^9}, {3.8532845223839183`*^9, 3.8532845365712595`*^9}, {
  3.8532847646299777`*^9, 3.8532848245653515`*^9}, {3.8532850000889654`*^9, 
  3.8532850016768875`*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[174]:=",ExpressionUUID->"df3ad241-9e26-43cd-a6bd-a471704092d4"],

Cell[BoxData[{
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]MakeConsecutivePairs", ":=", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"i", "+", "1"}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{
        RowBox[{"Length", "@", "#"}], "-", "1"}]}], "}"}]}], "]"}], 
   "&"}]}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PerformOnConsecutivePairs", ":=", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"#1", "[", 
      RowBox[{
       RowBox[{"#2", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"#2", "[", 
        RowBox[{"[", 
         RowBox[{"i", "+", "1"}], "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{
        RowBox[{"Length", "@", "#2"}], "-", "1"}]}], "}"}]}], "]"}], 
   "&"}]}]}], "Input",
 CellChangeTimes->{{3.8525845675656767`*^9, 3.852584690970602*^9}, {
  3.8532860453657837`*^9, 3.8532860468278227`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[178]:=",ExpressionUUID->"15ce0ac5-91b0-4fa4-b194-77cbd33bfaef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalG]", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<EquityBondFXTree\>\"", "->", 
      RowBox[{
      "\[ScriptCapitalP]\[ScriptCapitalN]MakeConsecutivePairs", "[", 
       "listEquityBondFX", "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<USDEMAsiaTHTree\>\"", "->", 
      RowBox[{
      "\[ScriptCapitalP]\[ScriptCapitalN]MakeConsecutivePairs", "[", 
       "listUSDEMAsiaTH", "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<EquityCentricTree\>\"", "->", "listEquityCentricPairings"}],
      ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<FxCentricTree\>\"", "->", "listFxCentricPairings"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<SpearmanRhoTree\>\"", "->", "listBasePairs"}]}], "|>"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8524413700030746`*^9, 3.852441371655073*^9}, 
   3.852441484752437*^9, {3.8524415169049387`*^9, 3.8524416196806154`*^9}, {
   3.8524416938723154`*^9, 3.8524418442167444`*^9}, {3.8524419560089426`*^9, 
   3.852442065487768*^9}, {3.852442898404891*^9, 3.852443160727113*^9}, {
   3.852443212371788*^9, 3.852443229199171*^9}, {3.8524432803650007`*^9, 
   3.8524435009605927`*^9}, {3.8524435357505217`*^9, 
   3.8524435987426567`*^9}, {3.8524436745345993`*^9, 
   3.8524439033033657`*^9}, {3.852443948251008*^9, 3.852443954050374*^9}, {
   3.852444003058276*^9, 3.852444117214252*^9}, {3.8524442043273563`*^9, 
   3.852444204743125*^9}, {3.852444396767248*^9, 3.852444398231362*^9}, {
   3.8524444392149897`*^9, 3.8524445835963817`*^9}, {3.852444887643031*^9, 
   3.8524449447259817`*^9}, {3.8524450043836308`*^9, 3.852445038598934*^9}, 
   3.8524450743116875`*^9, {3.8524451347667093`*^9, 3.852445456778387*^9}, {
   3.85244550410323*^9, 3.8524455050302343`*^9}, {3.852445953879165*^9, 
   3.8524459686309147`*^9}, {3.8524460213124757`*^9, 
   3.8524461436667905`*^9}, {3.8524462391577253`*^9, 3.852446522445769*^9}, 
   3.8524465530703077`*^9, {3.852446619283176*^9, 3.8524466722223577`*^9}, {
   3.852446752934343*^9, 3.852447015055337*^9}, {3.852447063294235*^9, 
   3.852447077005678*^9}, {3.85244724739077*^9, 3.8524474012862005`*^9}, {
   3.852447460226288*^9, 3.8524474613023233`*^9}, 3.8525201400069237`*^9, {
   3.85252021236862*^9, 3.8525202467961864`*^9}, {3.8525205871857753`*^9, 
   3.852520598312146*^9}, {3.852520705480352*^9, 3.8525207104417057`*^9}, {
   3.8525225208811197`*^9, 3.8525225287922935`*^9}, 3.8525341870219507`*^9, {
   3.85260784771492*^9, 3.8526078540731544`*^9}, {3.852607914475149*^9, 
   3.8526079486971016`*^9}, {3.8526080209581175`*^9, 3.852608022931415*^9}, {
   3.8526081051779623`*^9, 3.852608106831006*^9}, {3.8526081380628242`*^9, 
   3.8526081438227367`*^9}, {3.852608272223473*^9, 3.8526082771448436`*^9}, {
   3.8526083205278296`*^9, 3.8526083497956543`*^9}, {3.8526084192266693`*^9, 
   3.8526084222809725`*^9}, {3.853280850661694*^9, 3.853280851995772*^9}, {
   3.853281358581588*^9, 3.853281461892669*^9}, {3.853281629469146*^9, 
   3.8532816548843217`*^9}, {3.8532817106302443`*^9, 
   3.8532817185695653`*^9}, {3.853281777916114*^9, 3.853281818044693*^9}, {
   3.853282523206177*^9, 3.8532825562148185`*^9}, {3.8532826243027973`*^9, 
   3.8532826783665667`*^9}, {3.8532827249982834`*^9, 
   3.8532827277663727`*^9}, {3.853282911353554*^9, 3.85328291650255*^9}, {
   3.8532836791971397`*^9, 3.8532836902377515`*^9}, 3.853284481716693*^9, {
   3.8532845590518785`*^9, 3.853284561786866*^9}, {3.853284845460946*^9, 
   3.853284848860173*^9}, {3.8532881671766996`*^9, 3.8532882084335947`*^9}, {
   3.853288330149692*^9, 3.853288384866927*^9}, {3.8533787180672092`*^9, 
   3.8533787206101413`*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[180]:=",ExpressionUUID->"26596330-b8dc-4c7f-8f5c-796fb6fba17d"]
}, Closed]],

Cell[CellGroupData[{

Cell["Interactive Display", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
  3.8532857068838415`*^9}, {3.8532858437947817`*^9, 3.853285845227463*^9}, {
  3.8532858808764677`*^9, 3.8532859476042695`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"9071d2a2-3671-40b0-95b3-a0de9171bc2b"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "[", 
    RowBox[{
     RowBox[{"\[ScriptCapitalG]", "[", "tree", "]"}], ",", "plot", ",", 
     "Automatic", ",", "graphlayout", ",", "False", ",", "imagesize"}], "]"}],
    ",", "\[IndentingNewLine]", 
   RowBox[{"Style", "[", 
    RowBox[{
    "\"\<Copula-Connected Fin Mkt Variables (Acyclic Graph)\>\"", ",", "Bold",
      ",", "Large", ",", 
     TemplateBox[<|"color" -> RGBColor[0.25, 0.5, 0.75]|>,
      "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Style", "[", 
    RowBox[{
    "\"\<Poomjai Nacaskul, Ph.D.\>\"", ",", "Bold", ",", "Medium", ",", 
     TemplateBox[<|"color" -> RGBColor[0, 0, 0.75]|>,
      "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Style", "[", 
    RowBox[{"\"\<2022.02.21\>\"", ",", "Bold", ",", "Small", ",", 
     TemplateBox[<|"color" -> RGBColor[0.45, 0.3, 0.15]|>,
      "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
   "Delimiter", ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"tree", ",", 
     RowBox[{"Reverse", "@", 
      RowBox[{"Keys", "@", "\[ScriptCapitalG]"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"plot", ",", 
     RowBox[{"{", 
      RowBox[{
      "GraphPlot", ",", "GraphPlot3D", ",", "LayeredGraphPlot", ",", 
       "LayeredGraphPlot3D"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"graphlayout", ",", "\"\<CircularEmbedding\>\""}], "}"}], ",", 
     "layoutsAll"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"imagesize", ",", "Medium"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Large", ",", "Medium", ",", "Small"}], "}"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ControlPlacement", "->", "Right"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.853288263041625*^9, 3.853288293482744*^9}, 
   3.8532883800237465`*^9, {3.8533707818298903`*^9, 3.8533707910888844`*^9}, {
   3.8533821257791424`*^9, 3.8533821481352015`*^9}, {3.8533821811196814`*^9, 
   3.853382189266759*^9}, {3.853382309744689*^9, 3.8533823110027313`*^9}, 
   3.853382353272184*^9, {3.8533932580742397`*^9, 3.8533932588088017`*^9}, {
   3.853637393660428*^9, 3.853637394112455*^9}, {3.8536382412646017`*^9, 
   3.8536382646198173`*^9}, {3.853638327409446*^9, 3.8536383876536922`*^9}, {
   3.8544205076239*^9, 3.854420525700857*^9}, {3.8544216873728733`*^9, 
   3.854421705152873*^9}},
 CellLabel->
  "In[181]:=",ExpressionUUID->"119be7bf-010f-43f8-9570-de623402a338"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTDEMOPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"(*", 
     RowBox[{"caution", ":", " ", 
      RowBox[{
      "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
       "execute"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{
      "OUTPUTDIR0", "<>", "\"\<(figure)DemoConnectedAcyclicGraph.png\>\""}], 
      ",", "%"}], "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8533930314486246`*^9, 3.85339309937164*^9}, {
   3.8533931502758303`*^9, 3.8533931767634926`*^9}, 3.8533932616659164`*^9, {
   3.8544072754982347`*^9, 3.8544072790841937`*^9}, 3.8544083813448524`*^9, {
   3.8544203006309023`*^9, 3.85442030173792*^9}, 3.854421725617921*^9, {
   3.8659194905577326`*^9, 3.865919492730988*^9}, {3.8659197852906404`*^9, 
   3.86591978563571*^9}, {3.889059226567587*^9, 3.8890592409817514`*^9}, {
   3.889142128838349*^9, 3.8891421348097477`*^9}},
 Background->RGBColor[1, 1, 0],
 CellLabel->
  "In[182]:=",ExpressionUUID->"45e99da3-6703-4382-96e8-206cc2509e8d"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"NotebookSave", "[", "]"}], ";", 
   RowBox[{"EmitSound", "[", 
    RowBox[{"Sound", "[", 
     RowBox[{"SoundNote", "[", 
      RowBox[{"\"\<C\>\"", ",", ".5", ",", "\"\<Violin\>\""}], "]"}], "]"}], 
    "]"}]}],
  FontColor->GrayLevel[1]]], "Input",
 CellChangeTimes->{{3.8799140033373775`*^9, 3.879914004747589*^9}, 
   3.880002577173757*^9, {3.883723918193898*^9, 3.8837239212077284`*^9}, {
   3.883787399583018*^9, 3.883787400193737*^9}},
 Background->GrayLevel[0],
 CellLabel->
  "In[183]:=",ExpressionUUID->"d1da0dac-fc54-4b39-b8d2-b748d2966eae"]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"d64dbf9c-2d36-42f4-9578-6ca1fb980f90"],

Cell[TextData[{
 StyleBox["Multi-Paradigm Analysis of ",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["Thai Capital M",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["ar",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["k",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["e",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["t Link",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["age",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None]
}], "Title",
 CellChangeTimes->{{3.8889733224978933`*^9, 3.888973343649993*^9}, 
   3.888973377357065*^9, {3.88914167191856*^9, 3.889141726588789*^9}},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"99b30207-983d-40f9-af00-b7ae17e94161"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Part III. Vine Copula and Monte Carlo \
Value-at-Risk/Expected Shortfall",
 FontColor->GrayLevel[1]]], "Subsubsection",
 CellChangeTimes->{{3.875064507138184*^9, 3.875064510805688*^9}, {
   3.878278239576824*^9, 3.878278251901373*^9}, {3.878278631105335*^9, 
   3.8782786460326586`*^9}, {3.878780306537759*^9, 3.8787803068766427`*^9}, {
   3.879907613035598*^9, 3.879907614575369*^9}, {3.8799207827834115`*^9, 
   3.8799208073698564`*^9}, {3.8851914936468697`*^9, 3.8851915000629387`*^9}, 
   3.889141973924244*^9},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"d731b3bc-93d1-4282-bdf3-ad3aa897f863"],

Cell[TextData[StyleBox["Poomjai Nacaskul, Ph.D.",
 FontSize->24,
 FontWeight->"Bold",
 FontColor->GrayLevel[1]]], "Author",
 CellChangeTimes->{{3.888973403835884*^9, 3.888973415957621*^9}},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"61356e34-9076-4bd9-9665-5b5ce0472155"],

Cell[TextData[StyleBox["2023.03.31",
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.8713456840497117`*^9, 3.8713456876160254`*^9}, {
   3.871345775975469*^9, 3.871345776904157*^9}, {3.871510139631436*^9, 
   3.8715101405909257`*^9}, {3.8724629762226934`*^9, 
   3.8724629773699017`*^9}, {3.8737710280597725`*^9, 
   3.8737710359277973`*^9}, {3.8738568025000906`*^9, 3.873856803019414*^9}, {
   3.873939205165445*^9, 3.873939205677453*^9}, {3.8743596248494673`*^9, 
   3.874359625242044*^9}, {3.8750017301577554`*^9, 3.8750017308440323`*^9}, {
   3.875064440437437*^9, 3.8750644424578524`*^9}, {3.8752192571420364`*^9, 
   3.8752192578607607`*^9}, {3.8782782569263105`*^9, 3.878278258646419*^9}, {
   3.878680486732724*^9, 3.878680488853014*^9}, {3.8787695800471706`*^9, 
   3.8787695804801354`*^9}, {3.8788508927279806`*^9, 3.878850894930314*^9}, {
   3.878872025588595*^9, 3.8788720295144653`*^9}, {3.878944540769303*^9, 
   3.878944541131344*^9}, {3.879297357004484*^9, 3.879297357690538*^9}, {
   3.8799070600728455`*^9, 3.879907061420087*^9}, {3.8800040148043585`*^9, 
   3.8800040154933567`*^9}, {3.880082389037445*^9, 3.8800823896979666`*^9}, {
   3.8801443918157597`*^9, 3.880144392371735*^9}, {3.880234476387456*^9, 
   3.88023447685857*^9}, {3.880407454248597*^9, 3.8804074548496447`*^9}, {
   3.880607783426791*^9, 3.8806077835665684`*^9}, {3.880665381293962*^9, 
   3.880665381693717*^9}, {3.8824037991662436`*^9, 3.882403804145291*^9}, {
   3.882575638825726*^9, 3.882575639191471*^9}, {3.8837030946017375`*^9, 
   3.8837030957541246`*^9}, {3.883782588589318*^9, 3.8837825891013546`*^9}, {
   3.8851796676111403`*^9, 3.88517966829814*^9}, {3.8852510683575716`*^9, 
   3.885251068779319*^9}, 3.8853441316893744`*^9, {3.885418024335279*^9, 
   3.885418024649368*^9}, {3.8856056960454187`*^9, 3.8856056967885513`*^9}, {
   3.8857060030532913`*^9, 3.885706003811681*^9}, {3.8857716314441442`*^9, 
   3.8857716323711596`*^9}, {3.8858537519916754`*^9, 
   3.8858537525684457`*^9}, {3.885953719030515*^9, 3.8859537192314177`*^9}, {
   3.8860427886868787`*^9, 3.88604278915788*^9}, {3.8861110938674803`*^9, 
   3.8861110944596596`*^9}, {3.8877532429375496`*^9, 
   3.8877532453732915`*^9}, {3.889050550147873*^9, 3.889050550951415*^9}, {
   3.8891399580056877`*^9, 3.8891399596256995`*^9}, 
   3.889218672220421*^9},ExpressionUUID->"3c39e061-97e0-4277-9f86-\
1e6a255a54b5"]
}, Open  ]],

Cell[CellGroupData[{

Cell["7. Demo Vine Copula Construction", "Section",
 CellChangeTimes->{{3.8531086817641788`*^9, 3.8531086824037175`*^9}, {
  3.853109772392812*^9, 3.853109783167832*^9}, {3.8532212363701124`*^9, 
  3.8532212444234743`*^9}, {3.8532790456718407`*^9, 3.8532790594399385`*^9}, {
  3.8532791147125006`*^9, 3.8532791194158044`*^9}, {3.853280425544862*^9, 
  3.8532804267856207`*^9}, {3.8532806200819235`*^9, 3.8532806250435486`*^9}, {
  3.8532855696767297`*^9, 3.8532855994761868`*^9}, {3.8532891805238485`*^9, 
  3.8532891812920103`*^9}, {3.8533934084750156`*^9, 3.8533934094910583`*^9}, {
  3.8534117161876082`*^9, 3.8534117178746743`*^9}, {3.885187305238119*^9, 
  3.88518730600708*^9}, {3.885636556784275*^9, 3.885636557806758*^9}, {
  3.889059614809331*^9, 3.8890596550660696`*^9}, {3.8890606656485896`*^9, 
  3.8890606687339935`*^9}, {3.8891422371234756`*^9, 
  3.8891422397286777`*^9}},ExpressionUUID->"03567416-273a-4548-8007-\
857b10f3a7d2"],

Cell[CellGroupData[{

Cell["Collapse Connected (Conditional) Copulas", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
  3.8532857068838415`*^9}, {3.853286501700282*^9, 3.8532865130847473`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"eeafac2f-7183-45f0-a756-e4c695d0aa49"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]CollapseConnectedCopulas", "[", 
   RowBox[{"cc1_", ",", "cc2_"}], "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"intersection", "=", 
      RowBox[{"Intersection", "[", 
       RowBox[{"cc1", ",", "cc2"}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Complement", "[", 
       RowBox[{
        RowBox[{"Union", "[", 
         RowBox[{"cc1", ",", "cc2"}], "]"}], ",", "intersection"}], "]"}], 
      ",", "intersection"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]CollapseConnectedConditionalCopulas", 
   "[", 
   RowBox[{"ccc1_", ",", "ccc2_"}], "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"intersection", "=", 
       RowBox[{"Intersection", "[", 
        RowBox[{
         RowBox[{"ccc1", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"ccc2", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ",", 
      "\[IndentingNewLine]", "union"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"union", "=", 
      RowBox[{"Union", "[", 
       RowBox[{"intersection", ",", 
        RowBox[{"ccc1", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"ccc2", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Complement", "[", 
        RowBox[{
         RowBox[{"Union", "[", 
          RowBox[{
           RowBox[{"ccc1", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"ccc2", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "union"}], "]"}], 
       ",", "union"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
   RowBox[{"cc1_", ",", "cc2_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"cc1", ",", "cc2"}], "}"}], ",", 
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]CollapseConnectedCopulas", "[", 
     RowBox[{"cc1", ",", "cc2"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
   RowBox[{"cc1_", ",", "cc2_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"cc1", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"cc2", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
    RowBox[{
    "\[ScriptCapitalP]\[ScriptCapitalN]CollapseConnectedConditionalCopulas", 
     "[", 
     RowBox[{
      RowBox[{"cc1", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"cc2", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.8526093565725765`*^9, 3.852609357024689*^9}, {
   3.852609391296517*^9, 3.8526094027766113`*^9}, {3.853286003868805*^9, 
   3.853286006060523*^9}, {3.8534023956045914`*^9, 3.8534023960515757`*^9}, {
   3.853403732669897*^9, 3.853403733123313*^9}, 3.853406068830285*^9, {
   3.8534063135510097`*^9, 3.853406343646077*^9}, {3.8534071192826557`*^9, 
   3.853407119983775*^9}, {3.853407163052295*^9, 3.853407174344746*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[184]:=",ExpressionUUID->"22c10b31-a404-4e8e-9037-ab30dad24813"],

Cell[BoxData[
 RowBox[{"Grid", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<LeftConnectedCopula\>\"", ",", "\"\<RightConnectedCopula\>\"", 
       ",", "\"\<CollapsedConnectedCopula\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c12", "=", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}]}], ",", 
       RowBox[{"c23", "=", 
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}]}], ",", 
       RowBox[{"cc1", "=", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]CollapseConnectedCopulas", "[", 
         RowBox[{"c12", ",", "c23"}], "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c34", "=", 
        RowBox[{"{", 
         RowBox[{"3", ",", "4"}], "}"}]}], ",", 
       RowBox[{"c45", "=", 
        RowBox[{"{", 
         RowBox[{"4", ",", "5"}], "}"}]}], ",", 
       RowBox[{"cc2", "=", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]CollapseConnectedCopulas", "[", 
         RowBox[{"c34", ",", "c45"}], "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<LeftConnected\\nConditionalCopula\>\"", ",", 
       "\"\<RightConnected\\nConditionalCopula\>\"", ",", 
       "\"\<CollapsedConnected\\nConditionalCopula\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", "}"}]}], "}"}], ",", 
       RowBox[{
       "\[ScriptCapitalP]\[ScriptCapitalN]\
CollapseConnectedConditionalCopulas", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "2"}], "}"}], ",", 
           RowBox[{"{", "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", "}"}]}], "}"}]}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"4", ",", "5"}], "}"}], ",", 
         RowBox[{"{", "}"}]}], "}"}], ",", 
       RowBox[{
       "\[ScriptCapitalP]\[ScriptCapitalN]\
CollapseConnectedConditionalCopulas", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"3", ",", "4"}], "}"}], ",", 
           RowBox[{"{", "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", "}"}]}], "}"}]}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"cc1", ",", "cc2", ",", 
       RowBox[{
       "\[ScriptCapitalP]\[ScriptCapitalN]\
CollapseConnectedConditionalCopulas", "[", 
        RowBox[{"cc1", ",", "cc2"}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"cc3", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"4", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"cc4", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "3", ",", "2"}], "}"}]}], "}"}]}], ",", 
       RowBox[{
       "\[ScriptCapitalP]\[ScriptCapitalN]\
CollapseConnectedConditionalCopulas", "[", 
        RowBox[{"cc3", ",", "cc4"}], "]"}]}], "}"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Alignment", "->", "Left"}], ",", 
   RowBox[{"Frame", "->", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8526086394966736`*^9, 3.85260879953681*^9}, {
  3.852608880225224*^9, 3.852608959745716*^9}, {3.8526090062166586`*^9, 
  3.852609034328341*^9}, {3.852609168305191*^9, 3.852609216008721*^9}, {
  3.8526092460612836`*^9, 3.852609337113629*^9}, {3.852609406625669*^9, 
  3.852609431367817*^9}, {3.8526094666034975`*^9, 3.8526094695925317`*^9}, {
  3.8532860133710165`*^9, 3.853286023260849*^9}},
 CellLabel->
  "In[188]:=",ExpressionUUID->"231e84cd-ac49-4791-ad08-a0094543b053"]
}, Closed]],

Cell[CellGroupData[{

Cell["Generate D-Vine w/ up to 15 random variables", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
   3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
   3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
   3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
   3.8532857068838415`*^9}, {3.853286501700282*^9, 3.853286553853015*^9}, {
   3.853286845429943*^9, 3.8532869483099785`*^9}, 3.8532869952241144`*^9, {
   3.8533934362351866`*^9, 3.853393436747096*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"8cbd8ad3-ab32-4758-b5d4-d4dac31f0b73"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"D", "-", 
    RowBox[{"Vines", " ", 
     RowBox[{"w", "/", " ", "up"}], " ", "to", " ", "15", " ", "random", " ", 
     "variables"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]DVineNew", "[", 
    RowBox[{"T00_", ":", 
     RowBox[{"{", 
      RowBox[{
      "\"\<A\>\"", ",", "\"\<B\>\"", ",", "\"\<C\>\"", ",", "\"\<D\>\"", ",", 
       "\"\<E\>\"", ",", "\"\<F\>\"", ",", "\"\<G\>\"", ",", "\"\<H\>\"", 
       ",", "\"\<I\>\"", ",", "\"\<J\>\"", ",", "\"\<K\>\"", ",", "\"\<L\>\"",
        ",", "\"\<M\>\"", ",", "\"\<N\>\"", ",", "\"\<O\>\""}], "}"}]}], 
    "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "T01", ",", "T02", ",", "T03", ",", "T04", ",", "T05", ",", "T06", ",", 
       "T07", ",", "T08", ",", "T09", ",", "T10", ",", "T11", ",", "T12", ",",
        "T13", ",", "T14"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"T14", "=", 
       RowBox[{
       "\[ScriptCapitalP]\[ScriptCapitalN]PerformOnConsecutivePairs", "[", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]Grow", ",", "\[IndentingNewLine]", 
         RowBox[{"T13", "=", 
          RowBox[{
          "\[ScriptCapitalP]\[ScriptCapitalN]PerformOnConsecutivePairs", "[", 
           RowBox[{
           "\[ScriptCapitalP]\[ScriptCapitalN]Grow", ",", 
            "\[IndentingNewLine]", 
            RowBox[{"T12", "=", 
             RowBox[{
             "\[ScriptCapitalP]\[ScriptCapitalN]PerformOnConsecutivePairs", 
              "[", 
              RowBox[{
              "\[ScriptCapitalP]\[ScriptCapitalN]Grow", ",", 
               "\[IndentingNewLine]", 
               RowBox[{"T11", "=", 
                RowBox[{
                "\[ScriptCapitalP]\[ScriptCapitalN]PerformOnConsecutivePairs",
                  "[", 
                 RowBox[{
                 "\[ScriptCapitalP]\[ScriptCapitalN]Grow", ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"T10", "=", 
                   RowBox[{
                   "\[ScriptCapitalP]\[ScriptCapitalN]\
PerformOnConsecutivePairs", "[", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]Grow", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"T09", "=", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]\
PerformOnConsecutivePairs", "[", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]Grow", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"T08", "=", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]\
PerformOnConsecutivePairs", "[", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]Grow", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"T07", "=", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]\
PerformOnConsecutivePairs", "[", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]Grow", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"T06", "=", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]\
PerformOnConsecutivePairs", "[", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]Grow", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"T05", "=", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]\
PerformOnConsecutivePairs", "[", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]Grow", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"T04", "=", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]\
PerformOnConsecutivePairs", "[", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]Grow", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"T03", "=", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]\
PerformOnConsecutivePairs", "[", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]Grow", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"T02", "=", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]\
PerformOnConsecutivePairs", "[", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]Sprout", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"T01", "=", 
                    RowBox[{
                    "\[ScriptCapitalP]\[ScriptCapitalN]MakeConsecutivePairs", 
                    "[", "\[IndentingNewLine]", "T00", "]"}]}]}], "]"}]}]}], 
                    "]"}]}]}], "]"}]}]}], "]"}]}]}], "]"}]}]}], "]"}]}]}], 
                    "]"}]}]}], "]"}]}]}], "]"}]}]}], "]"}]}]}], "]"}]}]}], 
           "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"{", 
        RowBox[{
        "T00", ",", "T01", ",", "T02", ",", "T03", ",", "T04", ",", "T05", 
         ",", "T06", ",", "T07", ",", "T08", ",", "T09", ",", "T10", ",", 
         "T11", ",", "T12", ",", "T13", ",", "T14"}], "}"}], "]"}]}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8534073378960066`*^9, 3.8534073642560816`*^9}, {
  3.853408208646058*^9, 3.853408210169099*^9}, {3.8534083655229926`*^9, 
  3.853408388704702*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[189]:=",ExpressionUUID->"d791e3ee-c44c-4e9a-afab-7d09b1b6f225"],

Cell[BoxData[
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]DVineNew", "[", "]"}]], "Input",
 CellChangeTimes->{{3.8890595161012106`*^9, 3.889059516401956*^9}},
 CellLabel->
  "In[190]:=",ExpressionUUID->"8b736c54-726a-454e-bacb-c2ed7005327d"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Following Di\[SZ]mann et al. (2012), \[OpenCurlyDoubleQuote]Selecting and \
Estimating Regular Vine Copulae and Application to Financial Returns\
\[CloseCurlyDoubleQuote].\
\>", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
  3.8532857068838415`*^9}, {3.853286501700282*^9, 3.8532865130847473`*^9}, {
  3.8534117452938685`*^9, 3.853411808899867*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"29dab72c-c8f2-4ecd-9aa2-ada41b882a2e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T1", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "6"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "7"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", "#"}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T1", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "@", "T1"}]}], "Input",
 CellChangeTimes->{{3.853406114221992*^9, 3.853406115742482*^9}, {
  3.853406566913963*^9, 3.853406580916976*^9}, {3.8534076385192266`*^9, 
  3.8534077005124273`*^9}, {3.8534087914335938`*^9, 3.853408793185323*^9}},
 CellLabel->
  "In[191]:=",ExpressionUUID->"65ab7372-e3fb-4cec-943a-99935c7cd49c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T2", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
      RowBox[{
       RowBox[{"T1", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"T1", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
      RowBox[{
       RowBox[{"T1", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T1", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
      RowBox[{
       RowBox[{"T1", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T1", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
      RowBox[{
       RowBox[{"T1", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T1", "[", 
        RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
      RowBox[{
       RowBox[{"T1", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", 
       RowBox[{"T1", "[", 
        RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T2", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "@", 
  RowBox[{"T2", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.853406151557539*^9, 3.853406173477575*^9}, {
  3.8534064397126665`*^9, 3.8534064474378633`*^9}, {3.853406591607069*^9, 
  3.8534066745181127`*^9}, {3.853408051184444*^9, 3.853408055639983*^9}, {
  3.853408847762988*^9, 3.853408870217033*^9}},
 CellLabel->
  "In[194]:=",ExpressionUUID->"1629e9eb-b54d-4cbb-af9c-9335687d8fab"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T3", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T2", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"T2", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T2", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"T2", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T2", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"T2", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T2", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", 
       RowBox[{"T2", "[", 
        RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T3", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlotLabel", "@", 
  "T3"}]}], "Input",
 CellChangeTimes->{{3.853406151557539*^9, 3.853406173477575*^9}, {
  3.8534064397126665`*^9, 3.8534064474378633`*^9}, {3.853406591607069*^9, 
  3.8534066745181127`*^9}, {3.8534067157671957`*^9, 3.853406722382135*^9}, {
  3.853406757678221*^9, 3.8534067909193354`*^9}, {3.85340687527431*^9, 
  3.853406895847474*^9}, {3.853408059645928*^9, 3.853408062288637*^9}},
 CellLabel->
  "In[197]:=",ExpressionUUID->"359d5c52-df16-41fc-8fcf-e2fb88df70dc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T4", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T3", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"T3", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T3", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T3", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T3", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"T3", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T4", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlotLabel", "@", 
  "T4"}]}], "Input",
 CellChangeTimes->{{3.8534069293104506`*^9, 3.8534069805825605`*^9}, {
  3.853408064606889*^9, 3.853408072084894*^9}},
 CellLabel->
  "In[200]:=",ExpressionUUID->"667c1a74-41f3-4062-9f0d-8651c5aa39ce"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T5", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T4", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"T4", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T4", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T4", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T5", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlotLabel", "@", 
  "T5"}]}], "Input",
 CellChangeTimes->{{3.8534069293104506`*^9, 3.853407025926139*^9}, {
  3.8534634662519865`*^9, 3.853463467140274*^9}},
 CellLabel->
  "In[203]:=",ExpressionUUID->"bf3de736-f45d-41f1-9998-d16c96b28e72"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T6", "=", 
   RowBox[{"{", 
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
     RowBox[{
      RowBox[{"T5", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"T5", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T6", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlotLabel", "@", 
  "T6"}]}], "Input",
 CellChangeTimes->{{3.8534070379506364`*^9, 3.8534070588141003`*^9}, {
  3.8534634510922885`*^9, 3.8534634534470263`*^9}},
 CellLabel->
  "In[206]:=",ExpressionUUID->"bd7627df-ce23-4559-82d8-d2b9f4aeb690"]
}, Closed]],

Cell[CellGroupData[{

Cell["Construct R-Vine w/ 14 \[OpenCurlyDoubleQuote]ThaiCapitalMktLink\
\[CloseCurlyDoubleQuote] Variables", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
  3.8532857068838415`*^9}, {3.853286501700282*^9, 3.8532865130847473`*^9}, {
  3.8534117452938685`*^9, 3.853411808899867*^9}, {3.8534118394987254`*^9, 
  3.853411849738735*^9}, {3.8534666274562607`*^9, 3.8534666424229813`*^9}, {
  3.8801444542186036`*^9, 3.880144491771653*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"1cb3917f-8486-43b0-91a2-b0e1657b7557"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T01", "=", "listBasePairs"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", "#"}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T01", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "@", 
  "T01"}]}], "Input",
 CellChangeTimes->{{3.853406114221992*^9, 3.853406115742482*^9}, {
  3.853406566913963*^9, 3.853406580916976*^9}, {3.8534076385192266`*^9, 
  3.8534077005124273`*^9}, {3.8534087914335938`*^9, 3.8534088316729302`*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[209]:=",ExpressionUUID->"0682b9f6-1c48-4f8d-abbe-6c4dac4efecb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T02", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
      RowBox[{
       RowBox[{"T01", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"T01", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
      RowBox[{
       RowBox[{"T01", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T01", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
      RowBox[{
       RowBox[{"T01", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T01", "[", 
        RowBox[{"[", "9", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
      RowBox[{
       RowBox[{"T01", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"T01", "[", 
        RowBox[{"[", "7", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
      RowBox[{
       RowBox[{"T01", "[", 
        RowBox[{"[", "7", "]"}], "]"}], ",", 
       RowBox[{"T01", "[", 
        RowBox[{"[", "8", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
      RowBox[{
       RowBox[{"T01", "[", 
        RowBox[{"[", "8", "]"}], "]"}], ",", 
       RowBox[{"T01", "[", 
        RowBox[{"[", "11", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
      RowBox[{
       RowBox[{"T01", "[", 
        RowBox[{"[", "8", "]"}], "]"}], ",", 
       RowBox[{"T01", "[", 
        RowBox[{"[", "13", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
      RowBox[{
       RowBox[{"T01", "[", 
        RowBox[{"[", "11", "]"}], "]"}], ",", 
       RowBox[{"T01", "[", 
        RowBox[{"[", "10", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
      RowBox[{
       RowBox[{"T01", "[", 
        RowBox[{"[", "10", "]"}], "]"}], ",", 
       RowBox[{"T01", "[", 
        RowBox[{"[", "6", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
      RowBox[{
       RowBox[{"T01", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"T01", "[", 
        RowBox[{"[", "12", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
      RowBox[{
       RowBox[{"T01", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"T01", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Sprout", "[", 
      RowBox[{
       RowBox[{"T01", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", 
       RowBox[{"T01", "[", 
        RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T02", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "@", 
  RowBox[{"T02", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.853406151557539*^9, 3.853406173477575*^9}, {
   3.8534064397126665`*^9, 3.8534064474378633`*^9}, {3.853406591607069*^9, 
   3.8534066745181127`*^9}, {3.8534077905675354`*^9, 
   3.8534077937096434`*^9}, {3.8534078320486717`*^9, 3.853407859688212*^9}, {
   3.853408896016972*^9, 3.8534089027620664`*^9}, {3.853409770662184*^9, 
   3.853409771746053*^9}, {3.853410064390771*^9, 3.853410065477028*^9}, {
   3.8534104106858425`*^9, 3.853410436196083*^9}, 3.8534105384650784`*^9, 
   3.8534108886131115`*^9},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[212]:=",ExpressionUUID->"6b75d8cd-d746-4d86-9a63-c1486b47985a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T03", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T02", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"T02", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T02", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T02", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T02", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T02", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T02", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", 
       RowBox[{"T02", "[", 
        RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T02", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", 
       RowBox[{"T02", "[", 
        RowBox[{"[", "6", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T02", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", 
       RowBox[{"T02", "[", 
        RowBox[{"[", "7", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T02", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"T02", "[", 
        RowBox[{"[", "8", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T02", "[", 
        RowBox[{"[", "8", "]"}], "]"}], ",", 
       RowBox[{"T02", "[", 
        RowBox[{"[", "9", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T02", "[", 
        RowBox[{"[", "9", "]"}], "]"}], ",", 
       RowBox[{"T02", "[", 
        RowBox[{"[", "10", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T02", "[", 
        RowBox[{"[", "9", "]"}], "]"}], ",", 
       RowBox[{"T02", "[", 
        RowBox[{"[", "11", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T02", "[", 
        RowBox[{"[", "11", "]"}], "]"}], ",", 
       RowBox[{"T02", "[", 
        RowBox[{"[", "12", "]"}], "]"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T03", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "@", 
  RowBox[{"T03", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.853397952038924*^9, 3.853397994194643*^9}, {
   3.8533980848460455`*^9, 3.85339815465121*^9}, {3.8533982646998544`*^9, 
   3.8533983134350753`*^9}, {3.85339834432447*^9, 3.8533984172395687`*^9}, {
   3.85340795636075*^9, 3.853407984736878*^9}, {3.8534089516170235`*^9, 
   3.853408959161111*^9}, {3.853409852959278*^9, 3.8534099338193655`*^9}, {
   3.853410179461693*^9, 3.853410189227706*^9}, {3.853410386516014*^9, 
   3.8534103909980597`*^9}, {3.8534104761118207`*^9, 3.85341048349905*^9}, {
   3.8534105937122946`*^9, 3.85341059434324*^9}, {3.853410633148244*^9, 
   3.8534106753159094`*^9}, {3.8534107868463492`*^9, 3.8534108020765*^9}, {
   3.85341083782553*^9, 3.853410844028556*^9}, {3.8534109635486765`*^9, 
   3.8534109738526278`*^9}, {3.853411031601267*^9, 3.8534110838598337`*^9}, 
   3.853411886859796*^9},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[215]:=",ExpressionUUID->"56072b77-f83b-4725-a06b-a302de2d1360"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T04", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T03", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"T03", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T03", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T03", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T03", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"T03", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T03", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", 
       RowBox[{"T03", "[", 
        RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T03", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", 
       RowBox[{"T03", "[", 
        RowBox[{"[", "6", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T03", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", 
       RowBox[{"T03", "[", 
        RowBox[{"[", "7", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T03", "[", 
        RowBox[{"[", "7", "]"}], "]"}], ",", 
       RowBox[{"T03", "[", 
        RowBox[{"[", "8", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T03", "[", 
        RowBox[{"[", "8", "]"}], "]"}], ",", 
       RowBox[{"T03", "[", 
        RowBox[{"[", "9", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T03", "[", 
        RowBox[{"[", "8", "]"}], "]"}], ",", 
       RowBox[{"T03", "[", 
        RowBox[{"[", "10", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T03", "[", 
        RowBox[{"[", "10", "]"}], "]"}], ",", 
       RowBox[{"T03", "[", 
        RowBox[{"[", "11", "]"}], "]"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T04", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "@", 
  RowBox[{"T04", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8533985933560586`*^9, 3.853398701007763*^9}, {
  3.8533987372688875`*^9, 3.853398739332952*^9}, {3.853398804584072*^9, 
  3.8533988050280237`*^9}, {3.8533990106860228`*^9, 3.853399116006062*^9}, {
  3.853411121211409*^9, 3.853411154405207*^9}, {3.853411239544769*^9, 
  3.8534112400876455`*^9}, {3.853411310105115*^9, 3.853411313318026*^9}, {
  3.853411373957239*^9, 3.8534113790121517`*^9}, {3.853411435437245*^9, 
  3.853411450231452*^9}, {3.853411495214527*^9, 3.853411499949211*^9}, {
  3.853411531733427*^9, 3.853411537205571*^9}, {3.853411575222495*^9, 
  3.8534115960525045`*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[218]:=",ExpressionUUID->"857a0940-5862-4921-9131-a6e435d1c48f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T05", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T04", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"T04", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T04", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T04", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T04", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"T04", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T04", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"T04", "[", 
        RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T04", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", 
       RowBox[{"T04", "[", 
        RowBox[{"[", "6", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T04", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"T04", "[", 
        RowBox[{"[", "7", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T04", "[", 
        RowBox[{"[", "7", "]"}], "]"}], ",", 
       RowBox[{"T04", "[", 
        RowBox[{"[", "8", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T04", "[", 
        RowBox[{"[", "7", "]"}], "]"}], ",", 
       RowBox[{"T04", "[", 
        RowBox[{"[", "9", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T04", "[", 
        RowBox[{"[", "9", "]"}], "]"}], ",", 
       RowBox[{"T04", "[", 
        RowBox[{"[", "10", "]"}], "]"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T05", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "@", 
  RowBox[{"T05", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8534636214788923`*^9, 3.8534636468720016`*^9}, {
  3.853463732335368*^9, 3.8534637437484007`*^9}, {3.8534638349884753`*^9, 
  3.853463839062348*^9}, {3.8534644961432934`*^9, 3.8534645293893304`*^9}, {
  3.853464581455514*^9, 3.853464622080389*^9}, {3.853464711085849*^9, 
  3.8534647339121013`*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[221]:=",ExpressionUUID->"51a38bcd-c0b9-4bb0-8e39-aa55e0d75574"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T06", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T05", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"T05", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T05", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T05", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T05", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"T05", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T05", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"T05", "[", 
        RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T05", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", 
       RowBox[{"T05", "[", 
        RowBox[{"[", "6", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T05", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"T05", "[", 
        RowBox[{"[", "7", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T05", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"T05", "[", 
        RowBox[{"[", "8", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T05", "[", 
        RowBox[{"[", "8", "]"}], "]"}], ",", 
       RowBox[{"T05", "[", 
        RowBox[{"[", "9", "]"}], "]"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T06", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "@", 
  RowBox[{"T06", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.853465080023406*^9, 3.853465126000317*^9}, {
  3.8534651781342506`*^9, 3.8534651885352907`*^9}, {3.853465230929392*^9, 
  3.8534652581772027`*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[224]:=",ExpressionUUID->"1615a270-3902-487c-a0a8-5b85044705c3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T07", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T06", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"T06", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T06", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T06", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T06", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"T06", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T06", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", 
       RowBox[{"T06", "[", 
        RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T06", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", 
       RowBox[{"T06", "[", 
        RowBox[{"[", "6", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T06", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", 
       RowBox[{"T06", "[", 
        RowBox[{"[", "7", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T06", "[", 
        RowBox[{"[", "7", "]"}], "]"}], ",", 
       RowBox[{"T06", "[", 
        RowBox[{"[", "8", "]"}], "]"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T07", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "@", 
  RowBox[{"T07", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8534652919791517`*^9, 3.853465311760112*^9}, {
  3.853465393542491*^9, 3.8534654138953447`*^9}, {3.8534654883594313`*^9, 
  3.8534655176507196`*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[227]:=",ExpressionUUID->"356cc450-03f9-443f-839e-89a08d6f430b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T08", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T07", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"T07", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T07", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T07", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T07", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"T07", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T07", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", 
       RowBox[{"T07", "[", 
        RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T07", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", 
       RowBox[{"T07", "[", 
        RowBox[{"[", "6", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T07", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"T07", "[", 
        RowBox[{"[", "7", "]"}], "]"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T08", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "@", 
  RowBox[{"T08", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.853465538152168*^9, 3.8534655629541426`*^9}, {
  3.853465614553231*^9, 3.853465618746765*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[230]:=",ExpressionUUID->"c773bf21-b92c-4f56-b67f-ebb2f7555d73"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T09", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T08", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"T08", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T08", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T08", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T08", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"T08", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T08", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"T08", "[", 
        RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T08", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", 
       RowBox[{"T08", "[", 
        RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T09", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "@", 
  RowBox[{"T09", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.853465650376061*^9, 3.853465682073966*^9}, {
  3.8534657154546804`*^9, 3.853465718311966*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[233]:=",ExpressionUUID->"e43f3680-145a-4fea-8885-3fff1caa8c7c"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.887755198626974*^9, 3.8877551986299753`*^9}},
 CellLabel->
  "In[236]:=",ExpressionUUID->"15c08ad7-abf2-4306-a622-363d0cac96a4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T10", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T09", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"T09", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T09", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T09", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T09", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T09", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T09", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", 
       RowBox[{"T09", "[", 
        RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T10", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "@", 
  RowBox[{"T10", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8534657604009933`*^9, 3.853465785551268*^9}, {
  3.853465877985663*^9, 3.853465955512265*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[237]:=",ExpressionUUID->"a11c99cc-1459-4cc5-80e8-634daf9e98c0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T11", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T10", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"T10", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T10", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T10", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T10", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"T10", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T11", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "@", 
  RowBox[{"T11", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.853465970552984*^9, 3.853465996711336*^9}, {
  3.8534661267365303`*^9, 3.853466141360317*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[240]:=",ExpressionUUID->"25b44f6f-4c13-47b9-99ee-07e161f5461c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T12", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T11", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"T11", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
      RowBox[{
       RowBox[{"T11", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"T11", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T12", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "@", 
  RowBox[{"T12", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8534661810644593`*^9, 3.8534661986713343`*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[243]:=",ExpressionUUID->"96c0f606-5451-400c-b2c2-4289f0689389"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T13", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Grow", "[", 
     RowBox[{
      RowBox[{"T12", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"T12", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "@", "#"}]}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "->", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Right", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], "&"}], "[", "T13", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "@", 
  RowBox[{"T13", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8534662082085423`*^9, 3.8534662256973295`*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[246]:=",ExpressionUUID->"ff1dcc42-2384-4228-99c1-47edfb444c09"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"RVine", "=", 
   RowBox[{"{", 
    RowBox[{
    "T01", ",", "T02", ",", "T03", ",", "T04", ",", "T05", ",", "T06", ",", 
     "T07", ",", "T08", ",", "T09", ",", "T10", ",", "T11", ",", "T12", ",", 
     "T13"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RVineNodePairs", "=", "\[IndentingNewLine]", 
   RowBox[{"Association", "[", "\[IndentingNewLine]", 
    RowBox[{"Prepend", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Join", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\"\<T0\>\"", "<>", 
             RowBox[{"ToString", "[", "l", "]"}]}], "->", 
            RowBox[{"RVine", "[", 
             RowBox[{"[", 
              RowBox[{"l", ",", "All", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"l", ",", "2", ",", "9"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\"\<T\>\"", "<>", 
             RowBox[{"ToString", "[", "l", "]"}]}], "->", 
            RowBox[{"RVine", "[", 
             RowBox[{"[", 
              RowBox[{"l", ",", "All", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"l", ",", "10", ",", "13"}], "}"}]}], "]"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<T01\>\"", "->", "T01"}]}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8534663088303614`*^9, 3.853466343919675*^9}, {
  3.8536376669928193`*^9, 3.8536376897341824`*^9}, {3.8536377370199175`*^9, 
  3.853638012501292*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[249]:=",ExpressionUUID->"3ef45ba6-0ab3-425b-aebc-16b86acc009c"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", "\[IndentingNewLine]", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"OUTPUTDIR0", "<>", "\"\<(output)RVine.xlsx\>\""}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\"\<T01\>\"", "->", "T01"}], ",", 
       RowBox[{"\"\<T02\>\"", "->", "T02"}], ",", 
       RowBox[{"\"\<T03\>\"", "->", "T03"}], ",", 
       RowBox[{"\"\<T04\>\"", "->", "T04"}], ",", 
       RowBox[{"\"\<T05\>\"", "->", "T05"}], ",", "\[IndentingNewLine]", 
       RowBox[{"\"\<T06\>\"", "->", "T06"}], ",", 
       RowBox[{"\"\<T07\>\"", "->", "T07"}], ",", 
       RowBox[{"\"\<T08\>\"", "->", "T08"}], ",", 
       RowBox[{"\"\<T09\>\"", "->", "T09"}], ",", 
       RowBox[{"\"\<T10\>\"", "->", "T10"}], ",", 
       RowBox[{"\"\<T11\>\"", "->", "T11"}], ",", 
       RowBox[{"\"\<T12\>\"", "->", "T12"}], ",", 
       RowBox[{"\"\<T13\>\"", "->", "T13"}]}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8534663500967903`*^9, 3.8534664738363037`*^9}, {
  3.854407294897288*^9, 3.8544073650342145`*^9}, {3.8659196183638215`*^9, 
  3.86591963930367*^9}, {3.8857942299077024`*^9, 3.885794231460517*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[251]:=",ExpressionUUID->"ef561dc2-170f-4d16-874d-19ffd6e6fc19"]
}, Closed]],

Cell[CellGroupData[{

Cell["Interactive Display", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
  3.8532857068838415`*^9}, {3.8532858437947817`*^9, 3.853285845227463*^9}, {
  3.8532858808764677`*^9, 3.8532859476042695`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"73e2ba61-db47-4c9e-b6d7-057fa65790aa"],

Cell[BoxData[
 RowBox[{"viewRVineCopulaTree05", "=", "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "[", 
     RowBox[{
      RowBox[{"RVineNodePairs", "[", "T", "]"}], ",", "plot", ",", 
      "Automatic", ",", "graphlayout", ",", "False", ",", 
      RowBox[{"{", 
       RowBox[{"imageWidth", ",", "imageHeight"}], "}"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<View R-Vine Copula Tree\>\"", ",", "Bold", ",", "Large", ",", 
      TemplateBox[<|"color" -> RGBColor[0.25, 0.5, 0.75]|>,
       "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Poomjai Nacaskul, Ph.D.\>\"", ",", "Bold", ",", "Medium", ",", 
      TemplateBox[<|"color" -> RGBColor[0, 0, 0.75]|>,
       "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<20222.02.21\>\"", ",", "Bold", ",", "Small", ",", 
      TemplateBox[<|"color" -> RGBColor[0.45, 0.3, 0.15]|>,
       "RGBColorSwatchTemplate"]}], "]"}], ",", "\[IndentingNewLine]", 
    "Delimiter", ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"T", ",", "\"\<T05\>\""}], "}"}], ",", 
      RowBox[{"Keys", "@", "RVineNodePairs"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"plot", ",", "GraphPlot3D"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "GraphPlot", ",", "GraphPlot3D", ",", "LayeredGraphPlot", ",", 
        "LayeredGraphPlot3D"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"graphlayout", ",", "Automatic"}], "}"}], ",", "layoutsAll"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"imageWidth", ",", "600"}], "}"}], ",", "150", ",", "900", ",",
       "150"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"imageHeight", ",", "300"}], "}"}], ",", "150", ",", "900", 
      ",", "150"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ControlPlacement", "->", "Right"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8536384216128073`*^9, 3.853638458778076*^9}, {
   3.8536385724789743`*^9, 3.853638602805122*^9}, 3.853638661947238*^9, {
   3.8536387030600605`*^9, 3.853638710008206*^9}, {3.85363879703485*^9, 
   3.8536388311440406`*^9}, {3.8536388836583548`*^9, 3.853638931266433*^9}, {
   3.8536389805019226`*^9, 3.8536391431585083`*^9}, {3.85363919181616*^9, 
   3.853639262033821*^9}, {3.8536393916900315`*^9, 3.8536395664511824`*^9}, {
   3.8536397516725144`*^9, 3.8536397520604224`*^9}, {3.854420548552913*^9, 
   3.8544205789923964`*^9}, {3.889156405785083*^9, 3.8891564118775053`*^9}, {
   3.889156446495549*^9, 3.8891564622566547`*^9}},
 CellLabel->
  "In[252]:=",ExpressionUUID->"bbf1ad23-2eae-4181-a3e5-b9c4c8d141b9"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTDEMOPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"(*", 
     RowBox[{"caution", ":", " ", 
      RowBox[{
      "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
       "execute"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{
      "OUTPUTDIR0", "<>", "\"\<(figure)DemoViewRVineCopulaTree05.png\>\""}], 
      ",", "viewRVineCopulaTree05"}], "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.854420779373931*^9, 3.8544207925518837`*^9}, {
  3.854420825446911*^9, 3.854420868397897*^9}, {3.8544211928739147`*^9, 
  3.854421424807885*^9}, {3.8544216112029467`*^9, 3.8544216161309443`*^9}, {
  3.8659195937416973`*^9, 3.865919600855097*^9}, {3.8659199864529533`*^9, 
  3.8659199868277836`*^9}, {3.8890598666969852`*^9, 3.8890598755700564`*^9}, {
  3.8891421679957647`*^9, 3.8891421886306677`*^9}, {3.889156485344536*^9, 
  3.8891564884945493`*^9}},
 Background->RGBColor[1, 1, 0],
 CellLabel->
  "In[253]:=",ExpressionUUID->"df6f5bac-7241-4dc0-a5b3-a246155e9aeb"]
}, Closed]],

Cell[CellGroupData[{

Cell["Import R-Vine Construction Matrix", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
  3.8532857068838415`*^9}, {3.8532858437947817`*^9, 3.853285845227463*^9}, {
  3.8532858808764677`*^9, 3.8532859476042695`*^9}, {3.8799137381896243`*^9, 
  3.8799137768099627`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"d12b616a-937b-41ca-83a3-17b1b8edb4ec"],

Cell[BoxData[
 RowBox[{"Dimensions", "[", 
  RowBox[{"RVineMatrix", "=", 
   RowBox[{
    RowBox[{"Import", "[", 
     RowBox[{
     "INPUTDIR0", "<>", "\"\<(input)ThaiCapitalMktLink-RVineMatrix.csv\>\""}],
      "]"}], "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{";;", "14"}], ",", 
      RowBox[{";;", "14"}]}], "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.853627858834281*^9, 3.853627877811117*^9}, 
   3.8536280038874025`*^9, {3.853628479452033*^9, 3.8536284832980113`*^9}, {
   3.853628573667199*^9, 3.853628577577775*^9}, {3.853628644293461*^9, 
   3.8536286659373293`*^9}, {3.854418744634385*^9, 3.8544187477435055`*^9}, {
   3.8825939410475564`*^9, 3.882593945049018*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[254]:=",ExpressionUUID->"7b0827cc-3024-4e5b-97ea-398e964a8bad"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ExtractBranch", "[", 
   RowBox[{"RVineMatrix_", ",", "l_"}], "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RVineMatrix", "[", 
         RowBox[{"[", 
          RowBox[{"j", ",", "j"}], "]"}], "]"}], ",", 
        RowBox[{"RVineMatrix", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Length", "@", "RVineMatrix"}], "-", "l", "+", "1"}], ",",
            "j"}], "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"RVineMatrix", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{
           RowBox[{"Length", "@", "RVineMatrix"}], "-", "l", "+", "2"}], ",", 
          RowBox[{"Length", "@", "RVineMatrix"}]}], "}"}]}], "]"}]}], "}"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", 
      RowBox[{
       RowBox[{"Length", "@", "RVineMatrix"}], "-", "l"}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8536291128118*^9, 3.8536291307710204`*^9}, {
   3.853629181412878*^9, 3.853629217354915*^9}, {3.853629554000285*^9, 
   3.853629557212408*^9}, {3.8536295923369665`*^9, 3.8536296559125957`*^9}, 
   3.8536297378446374`*^9, {3.853629771868791*^9, 3.853629773995711*^9}, {
   3.8536304164936085`*^9, 3.8536304174427347`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[255]:=",ExpressionUUID->"84a31bf6-dfab-4965-9441-7d8306b954b6"],

Cell[BoxData[{
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ExtractBranch", "[", 
  RowBox[{"RVineMatrix", ",", "1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ExtractBranch", "[", 
  RowBox[{"RVineMatrix", ",", "2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ExtractBranch", "[", 
  RowBox[{"RVineMatrix", ",", "3"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ExtractBranch", "[", 
  RowBox[{"RVineMatrix", ",", "4"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8536306239687405`*^9, 3.8536306565968323`*^9}},
 CellLabel->
  "In[256]:=",ExpressionUUID->"4b23fc02-82b2-4d20-a99d-6be37d0ce34e"],

Cell[BoxData[
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphPlot", "@", 
  RowBox[{
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ExtractBranch", "[", 
    RowBox[{"RVineMatrix", ",", "1"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8536288092448964`*^9, 3.8536288410674877`*^9}, {
  3.853630442277191*^9, 3.8536304596695776`*^9}},
 CellLabel->
  "In[260]:=",ExpressionUUID->"42ef1513-8fc1-4635-a101-cf06f2f7ecb8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Sort", "[", 
   RowBox[{"Sort", "/@", 
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ExtractBranch", "[", 
      RowBox[{"RVineMatrix", ",", "1"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "]"}], "==", 
  RowBox[{"Sort", "[", 
   RowBox[{"Sort", "/@", "T01"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Sort", "@", 
     RowBox[{"Map", "[", 
      RowBox[{"Sort", ",", 
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ExtractBranch", "[", 
        RowBox[{"RVineMatrix", ",", "#"}], "]"}], ",", 
       RowBox[{"{", "2", "}"}]}], "]"}]}], "==", 
    RowBox[{"Sort", "@", 
     RowBox[{"RVine", "[", 
      RowBox[{"[", 
       RowBox[{"#", ",", "All", ",", "2"}], "]"}], "]"}]}]}], "&"}], "/@", 
  RowBox[{"Range", "[", 
   RowBox[{"2", ",", "13"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.853629938118795*^9, 3.8536299389149237`*^9}, {
  3.853629969436028*^9, 3.8536299774757023`*^9}, {3.853630060272599*^9, 
  3.8536300620126047`*^9}, {3.853630120609203*^9, 3.853630188173173*^9}, {
  3.8536304741655793`*^9, 3.853630543697628*^9}},
 CellLabel->
  "In[261]:=",ExpressionUUID->"5279dfd6-07e0-4775-b577-df73c3dd61ca"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"NotebookSave", "[", "]"}], ";", 
   RowBox[{"EmitSound", "[", 
    RowBox[{"Sound", "[", 
     RowBox[{"SoundNote", "[", 
      RowBox[{"\"\<C\>\"", ",", ".5", ",", "\"\<Violin\>\""}], "]"}], "]"}], 
    "]"}]}],
  FontColor->GrayLevel[1]]], "Input",
 CellChangeTimes->{{3.8799140033373775`*^9, 3.879914004747589*^9}, 
   3.880002577173757*^9, {3.883723918193898*^9, 3.8837239212077284`*^9}, {
   3.883787399583018*^9, 3.883787400193737*^9}},
 Background->GrayLevel[0],
 CellLabel->
  "In[263]:=",ExpressionUUID->"e2f9dfcd-d223-4966-b141-487894c4d409"]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"640f74e4-2cca-4c4e-8087-3d9eb2482a89"],

Cell[TextData[{
 StyleBox["Multi-Paradigm Analysis of ",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["Thai Capital M",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["ar",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["k",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["e",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["t Link",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["age",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None]
}], "Title",
 CellChangeTimes->{{3.8889733224978933`*^9, 3.888973343649993*^9}, 
   3.888973377357065*^9, {3.88914167191856*^9, 3.889141726588789*^9}},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"b2555532-ddd1-4688-9ead-a28059fa1ddf"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Part III. Vine Copula and Monte Carlo \
Value-at-Risk/Expected Shortfall",
 FontColor->GrayLevel[1]]], "Subsubsection",
 CellChangeTimes->{{3.875064507138184*^9, 3.875064510805688*^9}, {
   3.878278239576824*^9, 3.878278251901373*^9}, {3.878278631105335*^9, 
   3.8782786460326586`*^9}, {3.878780306537759*^9, 3.8787803068766427`*^9}, {
   3.879907613035598*^9, 3.879907614575369*^9}, {3.8799207827834115`*^9, 
   3.8799208073698564`*^9}, {3.8851914936468697`*^9, 3.8851915000629387`*^9}, 
   3.889141973924244*^9},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"c05f90da-40ee-45f2-b5d5-3659d4d91aca"],

Cell[TextData[StyleBox["Poomjai Nacaskul, Ph.D.",
 FontSize->24,
 FontWeight->"Bold",
 FontColor->GrayLevel[1]]], "Author",
 CellChangeTimes->{{3.888973403835884*^9, 3.888973415957621*^9}},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"6f5c6c6e-45d8-44e7-ae30-bf917866e112"],

Cell[TextData[StyleBox["2023.03.31",
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.8713456840497117`*^9, 3.8713456876160254`*^9}, {
   3.871345775975469*^9, 3.871345776904157*^9}, {3.871510139631436*^9, 
   3.8715101405909257`*^9}, {3.8724629762226934`*^9, 
   3.8724629773699017`*^9}, {3.8737710280597725`*^9, 
   3.8737710359277973`*^9}, {3.8738568025000906`*^9, 3.873856803019414*^9}, {
   3.873939205165445*^9, 3.873939205677453*^9}, {3.8743596248494673`*^9, 
   3.874359625242044*^9}, {3.8750017301577554`*^9, 3.8750017308440323`*^9}, {
   3.875064440437437*^9, 3.8750644424578524`*^9}, {3.8752192571420364`*^9, 
   3.8752192578607607`*^9}, {3.8782782569263105`*^9, 3.878278258646419*^9}, {
   3.878680486732724*^9, 3.878680488853014*^9}, {3.8787695800471706`*^9, 
   3.8787695804801354`*^9}, {3.8788508927279806`*^9, 3.878850894930314*^9}, {
   3.878872025588595*^9, 3.8788720295144653`*^9}, {3.878944540769303*^9, 
   3.878944541131344*^9}, {3.879297357004484*^9, 3.879297357690538*^9}, {
   3.8799070600728455`*^9, 3.879907061420087*^9}, {3.8800040148043585`*^9, 
   3.8800040154933567`*^9}, {3.880082389037445*^9, 3.8800823896979666`*^9}, {
   3.8801443918157597`*^9, 3.880144392371735*^9}, {3.880234476387456*^9, 
   3.88023447685857*^9}, {3.880407454248597*^9, 3.8804074548496447`*^9}, {
   3.880607783426791*^9, 3.8806077835665684`*^9}, {3.880665381293962*^9, 
   3.880665381693717*^9}, {3.8824037991662436`*^9, 3.882403804145291*^9}, {
   3.882575638825726*^9, 3.882575639191471*^9}, {3.8837030946017375`*^9, 
   3.8837030957541246`*^9}, {3.883782588589318*^9, 3.8837825891013546`*^9}, {
   3.8851796676111403`*^9, 3.88517966829814*^9}, {3.8852510683575716`*^9, 
   3.885251068779319*^9}, 3.8853441316893744`*^9, {3.885418024335279*^9, 
   3.885418024649368*^9}, {3.8856056960454187`*^9, 3.8856056967885513`*^9}, {
   3.8857060030532913`*^9, 3.885706003811681*^9}, {3.8857716314441442`*^9, 
   3.8857716323711596`*^9}, {3.8858537519916754`*^9, 
   3.8858537525684457`*^9}, {3.885953719030515*^9, 3.8859537192314177`*^9}, {
   3.8860427886868787`*^9, 3.88604278915788*^9}, {3.8861110938674803`*^9, 
   3.8861110944596596`*^9}, {3.8877532429375496`*^9, 
   3.8877532453732915`*^9}, {3.889050550147873*^9, 3.889050550951415*^9}, {
   3.8891399580056877`*^9, 3.8891399596256995`*^9}, 
   3.8892186745003624`*^9},ExpressionUUID->"0832d019-7163-44b8-b606-\
c4b04b1db580"]
}, Open  ]],

Cell[CellGroupData[{

Cell["8. Monte Carlo Simulation (can jump directly from 1.)", "Section",
 CellChangeTimes->{{3.8531086817641788`*^9, 3.8531086824037175`*^9}, {
   3.853109772392812*^9, 3.853109783167832*^9}, {3.8532212363701124`*^9, 
   3.8532212444234743`*^9}, {3.8532790456718407`*^9, 
   3.8532790594399385`*^9}, {3.8532791147125006`*^9, 
   3.8532791194158044`*^9}, {3.853280425544862*^9, 3.8532804267856207`*^9}, {
   3.8532806200819235`*^9, 3.8532806250435486`*^9}, {3.8532855696767297`*^9, 
   3.8532855994761868`*^9}, {3.8532891805238485`*^9, 3.8532891812920103`*^9}, 
   3.8533934017641106`*^9, {3.8533934435227485`*^9, 3.8533934475971985`*^9}, {
   3.8534117048034897`*^9, 3.8534117093466063`*^9}, {3.8536278964695463`*^9, 
   3.853627914847779*^9}, {3.8799138361168833`*^9, 3.879913882083007*^9}, {
   3.880088280363574*^9, 3.8800882917268105`*^9}, 3.8851873401709414`*^9, 
   3.8852536695672493`*^9, {3.885450396111935*^9, 3.8854503998808317`*^9}, 
   3.8890609872436867`*^9},ExpressionUUID->"c7c19706-19cd-466a-8390-\
635cd76acd6a"],

Cell[CellGroupData[{

Cell["The 12 Investment Assets (5 Domestic, 7 International)", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
  3.8532857068838415`*^9}, {3.8532858437947817`*^9, 3.853285845227463*^9}, {
  3.8532858808764677`*^9, 3.8532859476042695`*^9}, {3.8799137381896243`*^9, 
  3.8799137768099627`*^9}, {3.8799142341250176`*^9, 3.8799142951712637`*^9}, {
  3.879920269594754*^9, 3.8799202707027607`*^9}, {3.8800878253552685`*^9, 
  3.8800879180160666`*^9}, {3.880087964232971*^9, 3.880087998892215*^9}, {
  3.8804089531140585`*^9, 3.880408953307412*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"e2be062b-265e-4097-ab30-418a86a7da1f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Join", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"varName", ",", 
      RowBox[{"assetClass", "=", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"varName", "[", 
          RowBox[{"[", 
           RowBox[{";;", "6"}], "]"}], "]"}], ",", 
         RowBox[{"varName", "[", 
          RowBox[{"[", 
           RowBox[{"9", ";;"}], "]"}], "]"}]}], "]"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"assetDome5", ",", "assetIntl7"}], "}"}], "=", 
     RowBox[{"TakeDrop", "[", 
      RowBox[{"assetClass", ",", "5"}], "]"}]}]}], "]"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.880610678523943*^9, 3.880610680429942*^9}, {
  3.8806107269928017`*^9, 3.880610775969353*^9}},
 CellLabel->
  "In[264]:=",ExpressionUUID->"3ca03f96-3f5a-4d0c-89f2-91358da44463"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
The 7 (1 Historical, 6 Parametric) Return Assumptions for Monte Carlo \
Simulation\
\>", "Item",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQ3fPfojJjyxvHwD+/q0F03uEKn56tbxwLOy6HgOgf
K1IjQXT1xLAYEP1PcnsGiI6OPJwHop8ssSwF0c2+DZUgOsvhmUY/kM7ziNEE
0bfyKq1AdIL7cjDNxiNjD6J1w4rdQXS6oJti5Is3juavJdVAtCqDSzyI/lf1
NA1EW3FsDowB0iy118B0TJy20jogPa/5gC6IbihpNwbRbL13zEH0uuCY1Ksg
9bJCmSBa9u+m+utAmu+lRhOIvpKc1gaiJxnP6gbRHD4Z1za+fOMYd67tJog2
c57gdQJI17U9BdN3nq0PA9FKx9rDQTQA3cCnrA==
  "],
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"30b0aa23-7534-4d79-99d3-1712fb9ab84b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"assumption", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
    "\"\<HistoricalActual\>\"", ",", "\[IndentingNewLine]", 
     "\"\<GaussianCNormalM\>\"", ",", "\"\<GaussianCEmpiriM\>\"", ",", 
     "\[IndentingNewLine]", "\"\<AutoRVinCNormalM\>\"", ",", 
     "\"\<AutoRVinCEmpiriM\>\"", ",", "\[IndentingNewLine]", 
     "\"\<ManuRVinCNormalM\>\"", ",", "\"\<ManuRVinCEmpiriM\>\""}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8806078504278665`*^9, 3.880607856729003*^9}, {
   3.8806079224856033`*^9, 3.880607948387395*^9}, {3.8806107922770796`*^9, 
   3.8806108925866227`*^9}, {3.880610930233651*^9, 3.880610946021411*^9}, {
   3.8806110229415846`*^9, 3.8806110580406413`*^9}, {3.880665546950389*^9, 
   3.8806655552064424`*^9}, 3.880665586342185*^9},
 CellLabel->
  "In[265]:=",ExpressionUUID->"75754cb2-584c-407e-b04e-c41fd72ef992"],

Cell[BoxData[
 RowBox[{"Histogram", "/@", 
  RowBox[{"(", 
   RowBox[{"retnHistoricalActual", "=", 
    RowBox[{"AssociationThread", "[", 
     RowBox[{"assetClass", "->", 
      RowBox[{"\[ScriptX]", "/@", "assetClass"}]}], "]"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.8806100930233884`*^9, 3.8806101024024525`*^9}, {
  3.880610173784973*^9, 3.8806101896445484`*^9}, {3.88061107001377*^9, 
  3.8806110836846905`*^9}},
 CellLabel->
  "In[266]:=",ExpressionUUID->"24da98b1-0c11-4ec3-8a3e-40d34c940efd"]
}, Closed]],

Cell[CellGroupData[{

Cell["Generate Gaussian Copula-based Uniform Random Multivariates", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
  3.8532857068838415`*^9}, {3.8532858437947817`*^9, 3.853285845227463*^9}, {
  3.8532858808764677`*^9, 3.8532859476042695`*^9}, {3.8799137381896243`*^9, 
  3.8799137768099627`*^9}, {3.8799142341250176`*^9, 3.8799142951712637`*^9}, {
  3.879920269594754*^9, 3.8799202707027607`*^9}, {3.880088009453224*^9, 
  3.8800880451678734`*^9}, {3.880088078061791*^9, 3.880088121583093*^9}, {
  3.8800881641716223`*^9, 3.8800881881357126`*^9}, {3.880090651707644*^9, 
  3.880090664780846*^9}, {3.8801627479485483`*^9, 3.8801627517636642`*^9}, {
  3.880163190344036*^9, 3.880163201457953*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"37db18d1-f520-4b79-87eb-c40eb9edf7a8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "\[Mu]Asset", ",", "\[CapitalSigma]Asset", ",", "\[CapitalRho]Asset"}], 
    "}"}], "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Mean", "/@", 
      RowBox[{"\[ScriptX]", "/@", "assetClass"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Covariance", "@", 
      RowBox[{"Transpose", "[", 
       RowBox[{"\[ScriptX]", "/@", "assetClass"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Correlation", "@", 
      RowBox[{"Transpose", "[", 
       RowBox[{"\[ScriptX]", "/@", "assetClass"}], "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Mean", "/@", 
     RowBox[{"\[ScriptX]", "/@", "assetClass"}]}], "==", 
    RowBox[{"Values", "[", 
     RowBox[{"Mean", "/@", "retnHistoricalActual"}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"#", "[", "\[CapitalSigma]Asset", "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"PositiveDefiniteMatrixQ", ",", "PositiveSemidefiniteMatrixQ"}], 
     "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"#", "[", "\[CapitalRho]Asset", "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"PositiveDefiniteMatrixQ", ",", "PositiveSemidefiniteMatrixQ"}], 
     "}"}]}]}], "}"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"{", "\[Mu]Asset", "}"}], ",", 
   RowBox[{"Frame", "->", "All"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{"\[CapitalSigma]Asset", ",", 
   RowBox[{"Frame", "->", "All"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{"\[CapitalRho]Asset", ",", 
   RowBox[{"Frame", "->", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.880090298416989*^9, 3.8800903013769665`*^9}, {
   3.88009034288089*^9, 3.8800904591220193`*^9}, {3.880090581576724*^9, 
   3.880090607037053*^9}, {3.8800931939363155`*^9, 3.8800931946646967`*^9}, {
   3.880093355156277*^9, 3.8800933638882384`*^9}, {3.8801627031038723`*^9, 
   3.8801627139519353`*^9}, {3.88016277973617*^9, 3.8801627804241695`*^9}, {
   3.8801628456045094`*^9, 3.880162878888255*^9}, {3.880163155699709*^9, 
   3.88016315589776*^9}, {3.880163434443869*^9, 3.880163435480462*^9}, 
   3.880163470677311*^9, {3.8801635548628597`*^9, 3.880163568517421*^9}, {
   3.880163925270485*^9, 3.8801639907248163`*^9}, {3.8806080895156507`*^9, 
   3.880608092852358*^9}, {3.88060860976036*^9, 3.8806086102367425`*^9}, {
   3.880608771119502*^9, 3.880608772975295*^9}, {3.880608925612623*^9, 
   3.8806089537963123`*^9}, {3.8806089920372596`*^9, 
   3.8806090473915825`*^9}, {3.880611095103812*^9, 3.8806111686724267`*^9}},
 CellLabel->
  "In[267]:=",ExpressionUUID->"6980b47e-c29f-4072-b563-8b56d07e01e8"],

Cell[BoxData[
 RowBox[{"Histogram", "/@", 
  RowBox[{"(", 
   RowBox[{"UnifRVwGaussianC", "=", 
    RowBox[{"AssociationThread", "[", 
     RowBox[{"assetClass", "->", 
      RowBox[{"Transpose", "@", 
       RowBox[{"CDF", "[", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", "]"}], ",", 
         RowBox[{"RandomVariate", "[", 
          RowBox[{
           RowBox[{
           "MultinormalDistribution", "[", "\[CapitalRho]Asset", "]"}], ",", 
           "50000"}], "]"}]}], "]"}]}]}], "]"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.8801629092195973`*^9, 3.8801629479877863`*^9}, {
   3.8801631143438883`*^9, 3.880163121475927*^9}, 3.880163218591592*^9, {
   3.8801637566540995`*^9, 3.8801637747361917`*^9}, {3.8801647178189282`*^9, 
   3.8801647316031356`*^9}, {3.8801650264946694`*^9, 
   3.8801650315915318`*^9}, {3.8801728123680973`*^9, 3.880172814383395*^9}, {
   3.8806081240594463`*^9, 3.8806081665395975`*^9}, 3.8806090721910715`*^9, {
   3.880609122975773*^9, 3.8806091659290037`*^9}, {3.8806111911981196`*^9, 
   3.8806112096737595`*^9}},
 CellLabel->
  "In[272]:=",ExpressionUUID->"8ef0d508-c378-40fb-ba20-d4588d987735"]
}, Closed]],

Cell[CellGroupData[{

Cell["Import R-Vine Copula-based Uniform Random Multivariates", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
  3.8532857068838415`*^9}, {3.8532858437947817`*^9, 3.853285845227463*^9}, {
  3.8532858808764677`*^9, 3.8532859476042695`*^9}, {3.8799137381896243`*^9, 
  3.8799137768099627`*^9}, {3.8799142341250176`*^9, 3.8799142951712637`*^9}, {
  3.879920269594754*^9, 3.8799202707027607`*^9}, {3.8800878253552685`*^9, 
  3.8800878507410374`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"4756dde6-abd7-4dcc-9a1a-b0e80e2a5e57"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Dimensions", "[", 
    RowBox[{"dataUnifRVwAutoRVineCopula", "=", 
     RowBox[{"Import", "[", 
      RowBox[{
      "INPUTDIR0", "<>", "\"\<(input)UnifRV_w_AutoRVineCopula.csv\>\""}], 
      "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Dimensions", "[", 
    RowBox[{"dataUnifRVwManuRVineCopula", "=", 
     RowBox[{"Import", "[", 
      RowBox[{
      "INPUTDIR0", "<>", "\"\<(input)UnifRV_w_ManuRVineCopula.csv\>\""}], 
      "]"}]}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.853627858834281*^9, 3.853627877811117*^9}, 
   3.8536280038874025`*^9, {3.853628479452033*^9, 3.8536284832980113`*^9}, {
   3.853628573667199*^9, 3.853628577577775*^9}, {3.853628644293461*^9, 
   3.8536286659373293`*^9}, {3.854418744634385*^9, 3.8544187477435055`*^9}, {
   3.879914397734297*^9, 3.8799144026685762`*^9}, {3.879914979912229*^9, 
   3.8799150020868397`*^9}, {3.879917864163219*^9, 3.8799178783180017`*^9}, {
   3.8799182720011187`*^9, 3.8799182772243166`*^9}, 3.8799200203485804`*^9, {
   3.8799209587205267`*^9, 3.879920961736041*^9}, {3.8799211049833364`*^9, 
   3.879921107943348*^9}, {3.879921443900256*^9, 3.879921452323413*^9}, {
   3.8799215868822117`*^9, 3.879921592122097*^9}, {3.879922381867342*^9, 
   3.8799223827903414`*^9}, {3.879922704599288*^9, 3.879922705413865*^9}, 
   3.879922798874838*^9, {3.8799233039312315`*^9, 3.879923306090661*^9}, {
   3.879979775599984*^9, 3.879979783422434*^9}, {3.8799841070265894`*^9, 
   3.8799841077187414`*^9}, {3.8800825459988303`*^9, 
   3.8800825479350367`*^9}, {3.8800831456262865`*^9, 3.880083146654746*^9}, {
   3.8800882321176643`*^9, 3.8800882609421835`*^9}, 3.880089424054224*^9, {
   3.880147090432742*^9, 3.8801470999466915`*^9}, {3.880609782575957*^9, 
   3.8806097866250973`*^9}, {3.880609822277153*^9, 3.8806098388888135`*^9}, {
   3.8806112161220565`*^9, 3.880611220776636*^9}, {3.8824147853314724`*^9, 
   3.882414793074371*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellLabel->
  "In[273]:=",ExpressionUUID->"fc555e57-6d7f-422c-a881-a79f7f5d5f77"],

Cell[BoxData[
 RowBox[{"varName", "==", 
  RowBox[{"dataUnifRVwAutoRVineCopula", "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", 
     RowBox[{"2", ";;"}]}], "]"}], "]"}], "==", 
  RowBox[{"dataUnifRVwManuRVineCopula", "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", 
     RowBox[{"2", ";;"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.880083123014021*^9, 3.880083125537798*^9}, {
   3.880083181216879*^9, 3.880083216801075*^9}, {3.880089353500386*^9, 
   3.880089370692037*^9}, 3.8800894261117945`*^9, {3.8801637164255323`*^9, 
   3.8801637166025867`*^9}, {3.8806098583878365`*^9, 3.880609858482893*^9}, {
   3.880611226721655*^9, 3.8806112268969045`*^9}},
 CellLabel->
  "In[274]:=",ExpressionUUID->"94f23df6-a5f5-49df-8590-1b919ecc1100"],

Cell[BoxData[
 RowBox[{"Histogram", "/@", 
  RowBox[{"(", 
   RowBox[{"UnifRVwAutoRVinC", "=", 
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Associate2Data", "@", 
     RowBox[{"dataUnifRVwAutoRVineCopula", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", 
        RowBox[{"2", ";;"}]}], "]"}], "]"}]}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.8800832302340317`*^9, 3.880083260079152*^9}, {
   3.8800893828462825`*^9, 3.8800894047555466`*^9}, {3.880147083430259*^9, 
   3.880147087188738*^9}, {3.880163785302054*^9, 3.8801638126004333`*^9}, {
   3.8806092228896713`*^9, 3.880609231087517*^9}, {3.8806092966344676`*^9, 
   3.8806093066196003`*^9}, {3.8806093369195337`*^9, 
   3.8806093715998545`*^9}, {3.880609404903295*^9, 3.8806094329244137`*^9}, {
   3.8806097212741227`*^9, 3.8806097217521515`*^9}, 3.880611413325356*^9},
 CellLabel->
  "In[275]:=",ExpressionUUID->"283ab5f1-4121-4ae3-87bb-607f81693533"],

Cell[BoxData[
 RowBox[{"Histogram", "/@", 
  RowBox[{"(", 
   RowBox[{"UnifRVwManuRVinC", "=", 
    RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Associate2Data", "@", 
     RowBox[{"dataUnifRVwManuRVineCopula", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", 
        RowBox[{"2", ";;"}]}], "]"}], "]"}]}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.880609878009548*^9, 3.8806098806699886`*^9}, {
   3.8806112381175365`*^9, 3.8806112416616173`*^9}, 3.880611415649884*^9},
 CellLabel->
  "In[276]:=",ExpressionUUID->"63c57731-35e1-4cb8-af25-d7b2ce31aa0c"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Use Normal/Empirical Distribution to Generate Monte Carlo Returns\
\>", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
  3.8532857068838415`*^9}, {3.8532858437947817`*^9, 3.853285845227463*^9}, {
  3.8532858808764677`*^9, 3.8532859476042695`*^9}, {3.8799137381896243`*^9, 
  3.8799137768099627`*^9}, {3.8799142341250176`*^9, 3.8799142951712637`*^9}, {
  3.879920269594754*^9, 3.8799202707027607`*^9}, {3.880088009453224*^9, 
  3.8800880451678734`*^9}, {3.8800885147809706`*^9, 3.8800885264159384`*^9}, {
  3.8800927684994698`*^9, 3.8800927727034054`*^9}, {3.88016415971305*^9, 
  3.880164168630299*^9}, {3.8801651968839846`*^9, 3.880165209683014*^9}, {
  3.8801656129711657`*^9, 3.8801656474262123`*^9}, {3.8806095693026695`*^9, 
  3.880609594133862*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"c9513d84-0cd6-4918-9662-cf071c017326"],

Cell[BoxData[
 RowBox[{"Histogram", "/@", 
  RowBox[{"(", 
   RowBox[{"retnGaussianCNormalM", "=", "\[IndentingNewLine]", 
    RowBox[{"AssociationThread", "[", 
     RowBox[{"assetClass", "->", "\[IndentingNewLine]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"InverseCDF", "[", 
          RowBox[{
           RowBox[{"NormalDistribution", "[", 
            RowBox[{
             RowBox[{"mean", "[", "#", "]"}], ",", 
             RowBox[{"stdev", "[", "#", "]"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"UnifRVwGaussianC", "[", "#", "]"}]}], "]"}], "&"}], "/@", 
        "assetClass"}], ")"}]}], "]"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.8801654806045604`*^9, 3.8801655126886997`*^9}, 
   3.880165653260044*^9, {3.8801657120234423`*^9, 3.880165740558189*^9}, {
   3.8801728428131847`*^9, 3.880172857052495*^9}, {3.880173547310273*^9, 
   3.8801735522880163`*^9}, 3.880235676905977*^9, {3.8802357188089027`*^9, 
   3.8802357591553516`*^9}, {3.880609471145418*^9, 3.8806095415993347`*^9}, {
   3.8806112485335455`*^9, 3.8806112624063067`*^9}},
 CellLabel->
  "In[277]:=",ExpressionUUID->"0f539edf-2c03-4c36-a9a8-05257f536331"],

Cell[BoxData[
 RowBox[{"Histogram", "/@", 
  RowBox[{"(", 
   RowBox[{"retnGaussianCEmpiriM", "=", "\[IndentingNewLine]", 
    RowBox[{"AssociationThread", "[", 
     RowBox[{"assetClass", "->", "\[IndentingNewLine]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"InverseCDF", "[", 
          RowBox[{
           RowBox[{"\[ScriptCapitalH]", "[", "#", "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"UnifRVwGaussianC", "[", "#", "]"}]}], "]"}], "&"}], "/@", 
        "assetClass"}], ")"}]}], "]"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.8806096049876513`*^9, 3.8806096064770365`*^9}, {
  3.880609651872575*^9, 3.8806096539918437`*^9}, {3.880611274337743*^9, 
  3.880611283977027*^9}},
 CellLabel->
  "In[278]:=",ExpressionUUID->"5ce2eab5-3288-4ddc-a5a0-49bc7896a3cc"],

Cell[BoxData[
 RowBox[{"Histogram", "/@", 
  RowBox[{"(", 
   RowBox[{"retnAutoRVinCNormalM", "=", "\[IndentingNewLine]", 
    RowBox[{"AssociationThread", "[", 
     RowBox[{"assetClass", "->", "\[IndentingNewLine]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"InverseCDF", "[", 
          RowBox[{
           RowBox[{"NormalDistribution", "[", 
            RowBox[{
             RowBox[{"mean", "[", "#", "]"}], ",", 
             RowBox[{"stdev", "[", "#", "]"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"UnifRVwAutoRVinC", "[", "#", "]"}]}], "]"}], "&"}], "/@", 
        "assetClass"}], ")"}]}], "]"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.8806096049876513`*^9, 3.8806096064770365`*^9}, {
  3.880609651872575*^9, 3.8806096539918437`*^9}, {3.8806099356773586`*^9, 
  3.8806099802016287`*^9}, {3.880611289172861*^9, 3.8806112902940598`*^9}, {
  3.8806114207151303`*^9, 3.880611424057409*^9}},
 CellLabel->
  "In[279]:=",ExpressionUUID->"1b3d8ff9-5d3d-4028-8d8e-604cd80e2e08"],

Cell[BoxData[
 RowBox[{"Histogram", "/@", 
  RowBox[{"(", 
   RowBox[{"retnAutoRVinCEmpiriM", "=", "\[IndentingNewLine]", 
    RowBox[{"AssociationThread", "[", 
     RowBox[{"assetClass", "->", "\[IndentingNewLine]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"InverseCDF", "[", 
          RowBox[{
           RowBox[{"\[ScriptCapitalH]", "[", "#", "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"UnifRVwAutoRVinC", "[", "#", "]"}]}], "]"}], "&"}], "/@", 
        "assetClass"}], ")"}]}], "]"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.8806096049876513`*^9, 3.8806096064770365`*^9}, {
  3.880609651872575*^9, 3.8806096539918437`*^9}, {3.8806099356773586`*^9, 
  3.880609953928258*^9}, {3.880611298201806*^9, 3.8806113036691875`*^9}, {
  3.880611426891306*^9, 3.8806114276580615`*^9}},
 CellLabel->
  "In[280]:=",ExpressionUUID->"5996059f-53e4-4f40-a7dd-6018ae5f0f91"],

Cell[BoxData[
 RowBox[{"Histogram", "/@", 
  RowBox[{"(", 
   RowBox[{"retnManuRVinCNormalM", "=", "\[IndentingNewLine]", 
    RowBox[{"AssociationThread", "[", 
     RowBox[{"assetClass", "->", "\[IndentingNewLine]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"InverseCDF", "[", 
          RowBox[{
           RowBox[{"NormalDistribution", "[", 
            RowBox[{
             RowBox[{"mean", "[", "#", "]"}], ",", 
             RowBox[{"stdev", "[", "#", "]"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"UnifRVwManuRVinC", "[", "#", "]"}]}], "]"}], "&"}], "/@", 
        "assetClass"}], ")"}]}], "]"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.8806096049876513`*^9, 3.8806096064770365`*^9}, {
  3.880609651872575*^9, 3.8806096539918437`*^9}, {3.8806099356773586`*^9, 
  3.8806099802016287`*^9}, {3.8806100234003525`*^9, 3.880610029896541*^9}, {
  3.8806113090340767`*^9, 3.880611315305071*^9}, {3.8806114293722053`*^9, 
  3.8806114303136888`*^9}},
 CellLabel->
  "In[281]:=",ExpressionUUID->"25192c9a-9f60-4df0-ac3a-829dd81bd774"],

Cell[BoxData[
 RowBox[{"Histogram", "/@", 
  RowBox[{"(", 
   RowBox[{"retnManuRVinCEmpiriM", "=", "\[IndentingNewLine]", 
    RowBox[{"AssociationThread", "[", 
     RowBox[{"assetClass", "->", "\[IndentingNewLine]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"InverseCDF", "[", 
          RowBox[{
           RowBox[{"\[ScriptCapitalH]", "[", "#", "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"UnifRVwManuRVinC", "[", "#", "]"}]}], "]"}], "&"}], "/@", 
        "assetClass"}], ")"}]}], "]"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.8806096049876513`*^9, 3.8806096064770365`*^9}, {
  3.880609651872575*^9, 3.8806096539918437`*^9}, {3.8806099356773586`*^9, 
  3.880609953928258*^9}, {3.880610044801201*^9, 3.880610053918968*^9}, {
  3.88061132596629*^9, 3.880611333941125*^9}, {3.880611433258646*^9, 
  3.8806114343731785`*^9}},
 CellLabel->
  "In[282]:=",ExpressionUUID->"0819c9df-9f54-4185-8739-b74d9b5a135b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"retn", "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{"assumption", "->", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "retnHistoricalActual", ",", "\[IndentingNewLine]", 
       "retnGaussianCNormalM", ",", "retnGaussianCEmpiriM", ",", 
       "\[IndentingNewLine]", "retnAutoRVinCNormalM", ",", 
       "retnAutoRVinCEmpiriM", ",", "\[IndentingNewLine]", 
       "retnManuRVinCNormalM", ",", "retnManuRVinCEmpiriM"}], "}"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "/@", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"Values", "[", 
      RowBox[{"retn", "[", "#", "]"}], "]"}], "&"}], "/@", "assumption"}], 
   ")"}]}]}], "Input",
 CellChangeTimes->{{3.8806103111414404`*^9, 3.8806104047677574`*^9}, {
  3.880611339957196*^9, 3.880611382406021*^9}},
 CellLabel->
  "In[283]:=",ExpressionUUID->"d4664fc8-c4c9-4da8-9232-96db1f803933"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Compare Distribution Fit on Generated Random Variates vs. on Original Time \
Series\
\>", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
  3.8532857068838415`*^9}, {3.8532858437947817`*^9, 3.853285845227463*^9}, {
  3.8532858808764677`*^9, 3.8532859476042695`*^9}, {3.8799137381896243`*^9, 
  3.8799137768099627`*^9}, {3.8799142341250176`*^9, 3.8799142951712637`*^9}, {
  3.879920269594754*^9, 3.8799202707027607`*^9}, {3.880088009453224*^9, 
  3.8800880451678734`*^9}, {3.880088078061791*^9, 3.880088101780932*^9}, {
  3.880088149860087*^9, 3.880088151195472*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"27b11ce1-9dc3-4363-9014-ffc63c8335fa"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["\[ScriptCapitalD]", "retn"], "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{"assumption", "->", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"AssociationThread", "[", 
        RowBox[{"assetClass", "->", 
         RowBox[{"\[ScriptCapitalD]", "/@", "assetClass"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{"assetClass", "->", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"FindDistribution", "[", 
             RowBox[{
              RowBox[{"retnGaussianCNormalM", "[", "#", "]"}], ",", 
              RowBox[{"TargetFunctions", "\[Rule]", "listDistr"}]}], "]"}], 
            "&"}], "/@", "assetClass"}], ")"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{"assetClass", "->", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"FindDistribution", "[", 
             RowBox[{
              RowBox[{"retnGaussianCEmpiriM", "[", "#", "]"}], ",", 
              RowBox[{"TargetFunctions", "\[Rule]", "listDistr"}]}], "]"}], 
            "&"}], "/@", "assetClass"}], ")"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{"assetClass", "->", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"FindDistribution", "[", 
             RowBox[{
              RowBox[{"retnAutoRVinCNormalM", "[", "#", "]"}], ",", 
              RowBox[{"TargetFunctions", "\[Rule]", "listDistr"}]}], "]"}], 
            "&"}], "/@", "assetClass"}], ")"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{"assetClass", "->", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"FindDistribution", "[", 
             RowBox[{
              RowBox[{"retnAutoRVinCEmpiriM", "[", "#", "]"}], ",", 
              RowBox[{"TargetFunctions", "\[Rule]", "listDistr"}]}], "]"}], 
            "&"}], "/@", "assetClass"}], ")"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{"assetClass", "->", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"FindDistribution", "[", 
             RowBox[{
              RowBox[{"retnManuRVinCNormalM", "[", "#", "]"}], ",", 
              RowBox[{"TargetFunctions", "\[Rule]", "listDistr"}]}], "]"}], 
            "&"}], "/@", "assetClass"}], ")"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{"assetClass", "->", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"FindDistribution", "[", 
             RowBox[{
              RowBox[{"retnManuRVinCEmpiriM", "[", "#", "]"}], ",", 
              RowBox[{"TargetFunctions", "\[Rule]", "listDistr"}]}], "]"}], 
            "&"}], "/@", "assetClass"}], ")"}]}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.879917776407051*^9, 3.8799178317427588`*^9}, {
   3.8799180250228386`*^9, 3.87991803062232*^9}, {3.879918242787764*^9, 
   3.87991826199751*^9}, {3.8799183242721205`*^9, 3.8799183452536497`*^9}, 
   3.8799183887091813`*^9, {3.879918606925789*^9, 3.8799186736919327`*^9}, {
   3.879918976381533*^9, 3.879918990688199*^9}, {3.879919040474969*^9, 
   3.879919048830621*^9}, {3.879919163526206*^9, 3.8799192088692975`*^9}, 
   3.879919250421223*^9, {3.879919284042542*^9, 3.8799193972178926`*^9}, 
   3.879919533298171*^9, 3.8799199696030684`*^9, {3.8799200258762217`*^9, 
   3.8799200318736353`*^9}, {3.879920131939616*^9, 3.879920139551173*^9}, 
   3.879921680967543*^9, {3.879921737573242*^9, 3.8799217612726583`*^9}, {
   3.879922587374978*^9, 3.8799225914994617`*^9}, {3.87998520706004*^9, 
   3.8799852082845097`*^9}, {3.8800896581790423`*^9, 
   3.8800896705667305`*^9}, {3.880146650099746*^9, 3.8801466537226586`*^9}, {
   3.880146729522091*^9, 3.880146742436017*^9}, {3.880147023800707*^9, 
   3.8801470495524044`*^9}, {3.880147149116233*^9, 3.880147152683595*^9}, {
   3.8801644336769533`*^9, 3.8801644517321424`*^9}, {3.8801657519556007`*^9, 
   3.8801657675551567`*^9}, {3.880168343128355*^9, 3.880168354799158*^9}, {
   3.880168393714078*^9, 3.8801684433571787`*^9}, {3.8801699326122656`*^9, 
   3.88016996014963*^9}, {3.8801714024065204`*^9, 3.880171452758121*^9}, 
   3.880171573248362*^9, {3.8801732854465485`*^9, 3.880173302033247*^9}, {
   3.880175109623701*^9, 3.8801751163080873`*^9}, {3.8806104884791965`*^9, 
   3.880610489929408*^9}, {3.8806105418742905`*^9, 3.8806106052043266`*^9}, {
   3.880611500616396*^9, 3.880611545839775*^9}},
 CellLabel->
  "In[285]:=",ExpressionUUID->"9b215eb0-a05c-465c-b5f2-5e9ac0628809"],

Cell[BoxData[
 RowBox[{"tableFittedDistrOfMonteCarloSim", "=", 
  RowBox[{"Grid", "[", 
   RowBox[{
    RowBox[{"Prepend", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{"assetClass", ",", "\[IndentingNewLine]", 
         RowBox[{"Values", "@", 
          RowBox[{
           SubscriptBox["\[ScriptCapitalD]", "retn"], "[", 
           "\"\<HistoricalActual\>\"", "]"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"Values", "@", 
          RowBox[{
           SubscriptBox["\[ScriptCapitalD]", "retn"], "[", 
           "\"\<GaussianCNormalM\>\"", "]"}]}], ",", 
         RowBox[{"Values", "@", 
          RowBox[{
           SubscriptBox["\[ScriptCapitalD]", "retn"], "[", 
           "\"\<GaussianCEmpiriM\>\"", "]"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"Values", "@", 
          RowBox[{
           SubscriptBox["\[ScriptCapitalD]", "retn"], "[", 
           "\"\<AutoRVinCNormalM\>\"", "]"}]}], ",", 
         RowBox[{"Values", "@", 
          RowBox[{
           SubscriptBox["\[ScriptCapitalD]", "retn"], "[", 
           "\"\<AutoRVinCEmpiriM\>\"", "]"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"Values", "@", 
          RowBox[{
           SubscriptBox["\[ScriptCapitalD]", "retn"], "[", 
           "\"\<ManuRVinCNormalM\>\"", "]"}]}], ",", 
         RowBox[{"Values", "@", 
          RowBox[{
           SubscriptBox["\[ScriptCapitalD]", "retn"], "[", 
           "\"\<ManuRVinCEmpiriM\>\"", "]"}]}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "Bold"}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Series\>\"", ",", "\[IndentingNewLine]", 
         "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalD]\), \
\(retn\)]\)[\\\"HistoricalActual\\\"]\>\"", ",", "\[IndentingNewLine]", 
         "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalD]\), \
\(retn\)]\)[\\\"GaussianCNormalM\\\"]\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalD]\), \
\(retn\)]\)[\\\"GaussianCEmpiriM\\\"]\>\"", ",", "\[IndentingNewLine]", 
         "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalD]\), \
\(retn\)]\)[\\\"AutoRVinCNormalM\\\"]\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalD]\), \
\(retn\)]\)[\\\"AutoRVinCEmpiriM\\\"]\>\"", ",", "\[IndentingNewLine]", 
         "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalD]\), \
\(retn\)]\)[\\\"ManuRVinCNormalM\\\"]\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalD]\), \
\(retn\)]\)[\\\"ManuRVinCEmpiriM\\\"]\>\""}], "}"}]}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Alignment", "->", "Left"}], ",", 
    RowBox[{"Frame", "->", "All"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.879919455075839*^9, 3.879919489792061*^9}, {
   3.8799195495131454`*^9, 3.8799195525832696`*^9}, {3.879919604014476*^9, 
   3.8799197147955103`*^9}, {3.879919771615484*^9, 3.8799198215969424`*^9}, {
   3.879919853114231*^9, 3.879919922549599*^9}, {3.8799217999482517`*^9, 
   3.879921813070136*^9}, 3.8799226048060083`*^9, 3.879922649644691*^9, {
   3.8799820105774813`*^9, 3.879982035974163*^9}, {3.879982077846545*^9, 
   3.8799821450408297`*^9}, {3.8799852112448*^9, 3.879985211924714*^9}, {
   3.880089683839345*^9, 3.880089729197045*^9}, {3.880089765920252*^9, 
   3.8800898009698505`*^9}, {3.8801467758555565`*^9, 3.880146788696005*^9}, {
   3.8801471771678486`*^9, 3.8801472018669357`*^9}, {3.8801472335748825`*^9, 
   3.8801473045309534`*^9}, {3.880165133161648*^9, 3.8801651536406975`*^9}, {
   3.880165787338358*^9, 3.880165842777206*^9}, {3.880168468717546*^9, 
   3.880168476839625*^9}, 3.880169826182557*^9, 3.88016987525496*^9, {
   3.8801701153426857`*^9, 3.8801701219901276`*^9}, {3.8801733118956995`*^9, 
   3.880173333315627*^9}, {3.880175147546856*^9, 3.8801753761126175`*^9}, {
   3.8806115554644527`*^9, 3.8806116805703974`*^9}, {3.8891439510266695`*^9, 
   3.889143981917906*^9}},
 CellLabel->
  "In[286]:=",ExpressionUUID->"edb90a2e-125c-4a55-a125-6e0eb8a10723"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{
       "OUTPUTDIR0", "<>", "\"\<(table)FittedDistrOfMonteCarloSim\>\"", "<>", 
        "#"}], ",", "tableFittedDistrOfMonteCarloSim"}], "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"\"\<.png\>\"", ",", "\"\<.pdf\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8632247348711376`*^9, 3.863224816462368*^9}, 
   3.863226016752447*^9, {3.865918348446356*^9, 3.8659183523015256`*^9}, {
   3.865919864927621*^9, 3.8659198676034937`*^9}, {3.889143988784897*^9, 
   3.8891439941848125`*^9}, {3.8891573568433275`*^9, 3.8891573611407785`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[287]:=",ExpressionUUID->"60e5b6d5-ccf5-4c6a-80d1-62c5c2e4f5ac"],

Cell[BoxData[
 RowBox[{
  RowBox[{"retnMeanSD", "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{"assumption", "->", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@",
         "retnHistoricalActual"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@",
         "retnGaussianCNormalM"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@",
         "retnGaussianCEmpiriM"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@",
         "retnAutoRVinCNormalM"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@",
         "retnAutoRVinCEmpiriM"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@",
         "retnManuRVinCNormalM"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@",
         "retnManuRVinCEmpiriM"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.880089955054946*^9, 3.8800899733412633`*^9}, {
   3.880091520902894*^9, 3.880091526179269*^9}, {3.8800928645579023`*^9, 
   3.8800928782933044`*^9}, {3.8800929150450125`*^9, 3.880092916782539*^9}, {
   3.880145895989136*^9, 3.8801459069566374`*^9}, {3.88014680267017*^9, 
   3.8801468390400047`*^9}, {3.880147322607695*^9, 3.8801473298885603`*^9}, {
   3.8801652533443813`*^9, 3.8801652588234005`*^9}, {3.8801653463676243`*^9, 
   3.880165359048375*^9}, {3.8801654140042963`*^9, 3.8801654238075595`*^9}, {
   3.8801658640835085`*^9, 3.8801658934136124`*^9}, {3.8801662446227846`*^9, 
   3.880166248268629*^9}, {3.8801701821498737`*^9, 3.8801702336412754`*^9}, 
   3.8801716030682077`*^9, {3.880173771945638*^9, 3.8801737808529167`*^9}, {
   3.8801738661363497`*^9, 3.88017386647694*^9}, {3.880175384890841*^9, 
   3.880175398651989*^9}, {3.880611716817934*^9, 3.880611837221501*^9}, {
   3.8806119779035387`*^9, 3.8806119782152824`*^9}, {3.880624443929567*^9, 
   3.880624469128716*^9}},
 CellLabel->
  "In[288]:=",ExpressionUUID->"8f0c2c8c-b3c4-4222-b020-cd8189dbccae"]
}, Closed]],

Cell[CellGroupData[{

Cell["Value-at-Risk (VaR) & Expected Shortfall (ES)", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
   3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
   3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
   3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
   3.8532857068838415`*^9}, {3.8532858437947817`*^9, 3.853285845227463*^9}, {
   3.8532858808764677`*^9, 3.8532859476042695`*^9}, {3.8799137381896243`*^9, 
   3.8799137768099627`*^9}, {3.8799142341250176`*^9, 
   3.8799142951712637`*^9}, {3.879920269594754*^9, 3.8799202707027607`*^9}, {
   3.8799248302338343`*^9, 3.8799248400327682`*^9}, {3.8800006778817787`*^9, 
   3.880000693184561*^9}, {3.8800020247678013`*^9, 3.880002030091875*^9}, {
   3.8800047308873663`*^9, 3.880004761842943*^9}, {3.8800048025507545`*^9, 
   3.8800048044728317`*^9}, {3.8800853627531414`*^9, 3.8800853725687065`*^9}, 
   3.8800854430286064`*^9, {3.8800854832242985`*^9, 3.880085484192732*^9}, {
   3.8800855370934925`*^9, 3.8800855675124483`*^9}, {3.88017243318619*^9, 
   3.8801724351744075`*^9}, 3.885794338074261*^9, {3.8891423694328613`*^9, 
   3.8891423722889285`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"7ec6da93-13d8-49dc-9ba6-7bb51febcad9"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2022.12", ".16"}], ")"}], " ", 
   RowBox[{"FuzzyPOptm", ".", "nb"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.889142524984375*^9, 3.8891425466211343`*^9}},
 Background->RGBColor[1, 0.5, 0],
 CellLabel->
  "In[289]:=",ExpressionUUID->"edc98773-00f7-4f9f-ab0f-a418297e51aa"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "[", 
   RowBox[{"retnMonteCarlo_", ",", 
    RowBox[{"alpha_", ":", ".05"}]}], "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Quantile", "[", 
     RowBox[{"retnMonteCarlo", ",", "alpha"}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Mean", "@", 
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{"retnMonteCarlo", ",", "Less"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{";;", 
        RowBox[{"Floor", "[", 
         RowBox[{"alpha", " ", 
          RowBox[{"Length", "@", "retnMonteCarlo"}]}], "]"}]}], "]"}], 
      "]"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8528595134963803`*^9, 3.852859561757221*^9}, {
   3.8528595995520763`*^9, 3.8528596210645065`*^9}, 3.852859720952722*^9, {
   3.8528601970987544`*^9, 3.852860204232746*^9}, {3.8532801253233666`*^9, 
   3.853280135179467*^9}, {3.866000145726143*^9, 3.866000148203085*^9}, {
   3.866012056020303*^9, 3.866012059540988*^9}, {3.879907450915445*^9, 
   3.879907489460468*^9}, 3.879907523487918*^9, 3.87990756795984*^9, {
   3.8799081054732633`*^9, 3.879908105932669*^9}, 3.8799084183392425`*^9, {
   3.87998316883889*^9, 3.8799832822925997`*^9}, {3.879983573643149*^9, 
   3.879983713487445*^9}, {3.8799837599550304`*^9, 3.8799838811270943`*^9}, {
   3.8799839810736384`*^9, 3.8799839963455772`*^9}, {3.87998403337004*^9, 
   3.879984059195459*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[290]:=",ExpressionUUID->"19bef7f7-6a3c-4471-9f5e-1f9566dfeb70"],

Cell[BoxData[
 RowBox[{"retnVaRES", "=", "\[IndentingNewLine]", 
  RowBox[{"AssociationThread", "[", 
   RowBox[{"assumption", "->", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
      "\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
       "retnHistoricalActual"}], ",", "\[IndentingNewLine]", 
      RowBox[{
      "\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
       "retnGaussianCNormalM"}], ",", 
      RowBox[{
      "\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
       "retnGaussianCEmpiriM"}], ",", "\[IndentingNewLine]", 
      RowBox[{
      "\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
       "retnAutoRVinCNormalM"}], ",", 
      RowBox[{
      "\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
       "retnAutoRVinCEmpiriM"}], ",", "\[IndentingNewLine]", 
      RowBox[{
      "\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
       "retnManuRVinCNormalM"}], ",", 
      RowBox[{
      "\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
       "retnManuRVinCEmpiriM"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.880166128427557*^9, 3.88016616490427*^9}, {
   3.880166207063339*^9, 3.880166231851786*^9}, {3.8801702840754538`*^9, 
   3.880170298776716*^9}, 3.880171600835907*^9, {3.88017389717199*^9, 
   3.8801739136881905`*^9}, {3.880175417021961*^9, 3.8801754335185566`*^9}, {
   3.880611883495346*^9, 3.880611940009224*^9}, {3.8806119738335066`*^9, 
   3.8806119741814976`*^9}, 3.88915739628729*^9, 3.889157722934498*^9},
 CellLabel->
  "In[291]:=",ExpressionUUID->"1fb435fd-b02d-476d-bcb7-9fd42b245aa8"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"NotebookSave", "[", "]"}], ";", 
   RowBox[{"EmitSound", "[", 
    RowBox[{"Sound", "[", 
     RowBox[{"SoundNote", "[", 
      RowBox[{"\"\<C\>\"", ",", ".5", ",", "\"\<Violin\>\""}], "]"}], "]"}], 
    "]"}]}],
  FontColor->GrayLevel[1]]], "Input",
 CellChangeTimes->{{3.8799140033373775`*^9, 3.879914004747589*^9}, 
   3.880002577173757*^9, {3.883723918193898*^9, 3.8837239212077284`*^9}, {
   3.883787399583018*^9, 3.883787400193737*^9}},
 Background->GrayLevel[0],
 CellLabel->
  "In[292]:=",ExpressionUUID->"931b3617-b02f-43f8-ac1b-593663867a49"]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"389e6fea-a668-4109-9ebd-532ef64f49ba"],

Cell[TextData[{
 StyleBox["Multi-Paradigm Analysis of ",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["Thai Capital M",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["ar",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["k",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["e",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["t Link",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["age",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None]
}], "Title",
 CellChangeTimes->{{3.8889733224978933`*^9, 3.888973343649993*^9}, 
   3.888973377357065*^9, {3.88914167191856*^9, 3.889141726588789*^9}},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"604af576-a5b1-4708-b3da-9899efbe5130"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Part III. Vine Copula and Monte Carlo \
Value-at-Risk/Expected Shortfall",
 FontColor->GrayLevel[1]]], "Subsubsection",
 CellChangeTimes->{{3.875064507138184*^9, 3.875064510805688*^9}, {
   3.878278239576824*^9, 3.878278251901373*^9}, {3.878278631105335*^9, 
   3.8782786460326586`*^9}, {3.878780306537759*^9, 3.8787803068766427`*^9}, {
   3.879907613035598*^9, 3.879907614575369*^9}, {3.8799207827834115`*^9, 
   3.8799208073698564`*^9}, {3.8851914936468697`*^9, 3.8851915000629387`*^9}, 
   3.889141973924244*^9},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"38bcb865-9d03-4f76-b005-ab077cd52021"],

Cell[TextData[StyleBox["Poomjai Nacaskul, Ph.D.",
 FontSize->24,
 FontWeight->"Bold",
 FontColor->GrayLevel[1]]], "Author",
 CellChangeTimes->{{3.888973403835884*^9, 3.888973415957621*^9}},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"bfb8b5fe-d5c5-4d28-a99b-183aa615e448"],

Cell[TextData[StyleBox["2023.03.31",
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.8713456840497117`*^9, 3.8713456876160254`*^9}, {
   3.871345775975469*^9, 3.871345776904157*^9}, {3.871510139631436*^9, 
   3.8715101405909257`*^9}, {3.8724629762226934`*^9, 
   3.8724629773699017`*^9}, {3.8737710280597725`*^9, 
   3.8737710359277973`*^9}, {3.8738568025000906`*^9, 3.873856803019414*^9}, {
   3.873939205165445*^9, 3.873939205677453*^9}, {3.8743596248494673`*^9, 
   3.874359625242044*^9}, {3.8750017301577554`*^9, 3.8750017308440323`*^9}, {
   3.875064440437437*^9, 3.8750644424578524`*^9}, {3.8752192571420364`*^9, 
   3.8752192578607607`*^9}, {3.8782782569263105`*^9, 3.878278258646419*^9}, {
   3.878680486732724*^9, 3.878680488853014*^9}, {3.8787695800471706`*^9, 
   3.8787695804801354`*^9}, {3.8788508927279806`*^9, 3.878850894930314*^9}, {
   3.878872025588595*^9, 3.8788720295144653`*^9}, {3.878944540769303*^9, 
   3.878944541131344*^9}, {3.879297357004484*^9, 3.879297357690538*^9}, {
   3.8799070600728455`*^9, 3.879907061420087*^9}, {3.8800040148043585`*^9, 
   3.8800040154933567`*^9}, {3.880082389037445*^9, 3.8800823896979666`*^9}, {
   3.8801443918157597`*^9, 3.880144392371735*^9}, {3.880234476387456*^9, 
   3.88023447685857*^9}, {3.880407454248597*^9, 3.8804074548496447`*^9}, {
   3.880607783426791*^9, 3.8806077835665684`*^9}, {3.880665381293962*^9, 
   3.880665381693717*^9}, {3.8824037991662436`*^9, 3.882403804145291*^9}, {
   3.882575638825726*^9, 3.882575639191471*^9}, {3.8837030946017375`*^9, 
   3.8837030957541246`*^9}, {3.883782588589318*^9, 3.8837825891013546`*^9}, {
   3.8851796676111403`*^9, 3.88517966829814*^9}, {3.8852510683575716`*^9, 
   3.885251068779319*^9}, 3.8853441316893744`*^9, {3.885418024335279*^9, 
   3.885418024649368*^9}, {3.8856056960454187`*^9, 3.8856056967885513`*^9}, {
   3.8857060030532913`*^9, 3.885706003811681*^9}, {3.8857716314441442`*^9, 
   3.8857716323711596`*^9}, {3.8858537519916754`*^9, 
   3.8858537525684457`*^9}, {3.885953719030515*^9, 3.8859537192314177`*^9}, {
   3.8860427886868787`*^9, 3.88604278915788*^9}, {3.8861110938674803`*^9, 
   3.8861110944596596`*^9}, {3.8877532429375496`*^9, 
   3.8877532453732915`*^9}, {3.889050550147873*^9, 3.889050550951415*^9}, {
   3.8891399580056877`*^9, 3.8891399596256995`*^9}, 
   3.8892186768539715`*^9},ExpressionUUID->"08821490-d37a-4130-b9a8-\
77fd41ff5e6f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["9. Pareto Frontier", "Section",
 CellChangeTimes->{{3.8531086817641788`*^9, 3.8531086824037175`*^9}, {
   3.853109772392812*^9, 3.853109783167832*^9}, {3.8532212363701124`*^9, 
   3.8532212444234743`*^9}, {3.8532790456718407`*^9, 
   3.8532790594399385`*^9}, {3.8532791147125006`*^9, 
   3.8532791194158044`*^9}, {3.853280425544862*^9, 3.8532804267856207`*^9}, {
   3.8532806200819235`*^9, 3.8532806250435486`*^9}, {3.8532855696767297`*^9, 
   3.8532855994761868`*^9}, {3.8532891805238485`*^9, 3.8532891812920103`*^9}, 
   3.8533934017641106`*^9, {3.8533934435227485`*^9, 3.8533934475971985`*^9}, {
   3.8534117048034897`*^9, 3.8534117093466063`*^9}, {3.8536278964695463`*^9, 
   3.853627914847779*^9}, {3.8799138361168833`*^9, 3.8799138968588085`*^9}, {
   3.8799221581659684`*^9, 3.8799221641979656`*^9}, {3.880241839944556*^9, 
   3.8802418443530397`*^9}, {3.8851873432177343`*^9, 3.8851873434628353`*^9}, 
   3.8854504082455235`*^9, 
   3.8890609965064955`*^9},ExpressionUUID->"9893d1d9-fe65-4da0-ac6a-\
659c5d053e6d"],

Cell[CellGroupData[{

Cell["The 3 Portfolios w/ Neural Allocation Weights", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
   3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
   3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
   3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
   3.8532857068838415`*^9}, {3.8532858437947817`*^9, 3.853285845227463*^9}, {
   3.8532858808764677`*^9, 3.8532859476042695`*^9}, {3.8799137381896243`*^9, 
   3.8799137768099627`*^9}, {3.8799142341250176`*^9, 
   3.8799142951712637`*^9}, {3.879920269594754*^9, 3.8799202707027607`*^9}, {
   3.8800878253552685`*^9, 3.8800879180160666`*^9}, {3.880087964232971*^9, 
   3.880087998892215*^9}, 3.8804089342834435`*^9, {3.880408969839877*^9, 
   3.88040898142735*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"f525084f-1c45-4c82-830e-ed5ad6ae3e8a"],

Cell[BoxData[
 RowBox[{"Grid", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Prepend", "[", 
      RowBox[{"assetClass", ",", "\"\<Benchmark Portfolio\>\""}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Prepend", "[", 
      RowBox[{
       RowBox[{"neutralAll12", "=", 
        RowBox[{"ConstantArray", "[", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"Length", "@", "assetClass"}]}], ",", 
          RowBox[{"Length", "@", "assetClass"}]}], "]"}]}], ",", 
       "\"\<neutralAll12\>\""}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Prepend", "[", 
      RowBox[{
       RowBox[{"neutralDome5", "=", 
        RowBox[{"PadRight", "[", 
         RowBox[{
          RowBox[{"ConstantArray", "[", 
           RowBox[{
            RowBox[{"1", "/", 
             RowBox[{"Length", "@", "assetDome5"}]}], ",", 
            RowBox[{"Length", "@", "assetDome5"}]}], "]"}], ",", 
          RowBox[{"Length", "@", "assetClass"}]}], "]"}]}], ",", 
       "\"\<neutralDome5\>\""}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Prepend", "[", 
      RowBox[{
       RowBox[{"neutralIntl7", "=", 
        RowBox[{"PadLeft", "[", 
         RowBox[{
          RowBox[{"ConstantArray", "[", 
           RowBox[{
            RowBox[{"1", "/", 
             RowBox[{"Length", "@", "assetIntl7"}]}], ",", 
            RowBox[{"Length", "@", "assetIntl7"}]}], "]"}], ",", 
          RowBox[{"Length", "@", "assetClass"}]}], "]"}]}], ",", 
       "\"\<neutralIntl7\>\""}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
   RowBox[{"Frame", "->", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.879923193394766*^9, 3.8799232678608694`*^9}, {
   3.8799237666445103`*^9, 3.879923774835767*^9}, {3.879923806342532*^9, 
   3.879923845406829*^9}, {3.8799799027199607`*^9, 3.8799799431221333`*^9}, {
   3.879979982934787*^9, 3.8799800539404335`*^9}, {3.8799800931452494`*^9, 
   3.879980253217763*^9}, {3.8799802892634153`*^9, 3.879980426756282*^9}, {
   3.8799804689600315`*^9, 3.8799808508101425`*^9}, {3.8799809006376276`*^9, 
   3.879980975108041*^9}, {3.879981006109638*^9, 3.879981031578803*^9}, 
   3.879981124445925*^9, {3.8799811676639194`*^9, 3.879981178018489*^9}, {
   3.8799812265577216`*^9, 3.879981273152791*^9}, {3.879981387454156*^9, 
   3.879981464316348*^9}, 3.8799814948076735`*^9, {3.8799815322600765`*^9, 
   3.879981549775863*^9}, {3.8799816467206984`*^9, 3.8799817027982473`*^9}, {
   3.8799817544777603`*^9, 3.879981903499547*^9}, 3.8799829507873297`*^9, {
   3.8799830167581587`*^9, 3.879983072496944*^9}, {3.8799847666231403`*^9, 
   3.879984795041657*^9}, {3.879984832525561*^9, 3.8799849238835115`*^9}, {
   3.879984964312769*^9, 3.879985008104169*^9}, {3.879985054560621*^9, 
   3.8799851506423492`*^9}, {3.8801633949782524`*^9, 
   3.8801633951651115`*^9}, {3.8806120364602003`*^9, 
   3.8806120823229527`*^9}, {3.8806121160996933`*^9, 3.8806122137177925`*^9}},
 CellLabel->
  "In[293]:=",ExpressionUUID->"fb709b92-7620-4964-8505-19e87e200974"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Monte Carlo Returns of 3 Neutral Portfolio Allocations under 7 Return \
Assumptions\
\>", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
   3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
   3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
   3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
   3.8532857068838415`*^9}, {3.8532858437947817`*^9, 3.853285845227463*^9}, {
   3.8532858808764677`*^9, 3.8532859476042695`*^9}, {3.8799137381896243`*^9, 
   3.8799137768099627`*^9}, {3.8799142341250176`*^9, 
   3.8799142951712637`*^9}, {3.879920269594754*^9, 3.8799202707027607`*^9}, {
   3.8799248302338343`*^9, 3.8799248400327682`*^9}, {3.880091452562621*^9, 
   3.8800914598020353`*^9}, {3.88040936359054*^9, 3.8804093974852266`*^9}, {
   3.8806656411044564`*^9, 3.880665647585588*^9}, {3.8806656962338257`*^9, 
   3.880665698893191*^9}, 3.880665771669874*^9},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"369b4b9b-bdc0-4f08-88eb-fcf09e11f783"],

Cell[BoxData[
 RowBox[{
  RowBox[{"retnNeutral", "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{"assumption", "->", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"AssociationThread", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<All\>\"", ",", "\"\<Domestic\>\"", ",", 
           "\"\<International\>\""}], "}"}], "->", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"neutralAll12", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnHistoricalActual"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neutralDome5", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnHistoricalActual"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neutralIntl7", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnHistoricalActual"}]}]}]}], "}"}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<All\>\"", ",", "\"\<Domestic\>\"", ",", 
           "\"\<International\>\""}], "}"}], "->", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"neutralAll12", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnGaussianCNormalM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neutralDome5", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnGaussianCNormalM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neutralIntl7", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnGaussianCNormalM"}]}]}]}], "}"}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<All\>\"", ",", "\"\<Domestic\>\"", ",", 
           "\"\<International\>\""}], "}"}], "->", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"neutralAll12", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnGaussianCEmpiriM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neutralDome5", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnGaussianCEmpiriM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neutralIntl7", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnGaussianCEmpiriM"}]}]}]}], "}"}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<All\>\"", ",", "\"\<Domestic\>\"", ",", 
           "\"\<International\>\""}], "}"}], "->", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"neutralAll12", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnAutoRVinCNormalM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neutralDome5", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnAutoRVinCNormalM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neutralIntl7", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnAutoRVinCNormalM"}]}]}]}], "}"}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<All\>\"", ",", "\"\<Domestic\>\"", ",", 
           "\"\<International\>\""}], "}"}], "->", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"neutralAll12", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnAutoRVinCEmpiriM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neutralDome5", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnAutoRVinCEmpiriM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neutralIntl7", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnAutoRVinCEmpiriM"}]}]}]}], "}"}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<All\>\"", ",", "\"\<Domestic\>\"", ",", 
           "\"\<International\>\""}], "}"}], "->", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"neutralAll12", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnManuRVinCNormalM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neutralDome5", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnManuRVinCNormalM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neutralIntl7", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnManuRVinCNormalM"}]}]}]}], "}"}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<All\>\"", ",", "\"\<Domestic\>\"", ",", 
           "\"\<International\>\""}], "}"}], "->", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"neutralAll12", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnManuRVinCEmpiriM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neutralDome5", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnManuRVinCEmpiriM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neutralIntl7", ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnManuRVinCEmpiriM"}]}]}]}], "}"}]}], 
        "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8800915524978223`*^9, 3.8800915920855446`*^9}, {
  3.880092985261673*^9, 3.880093024282078*^9}, {3.880145963095323*^9, 
  3.8801461370493402`*^9}, {3.8801461813294067`*^9, 3.880146195823981*^9}, {
  3.880146911829117*^9, 3.8801469648432765`*^9}, {3.88014735086018*^9, 
  3.880147380703206*^9}, {3.8801474842076902`*^9, 3.880147489408702*^9}, {
  3.8801475420631475`*^9, 3.8801476081255646`*^9}, {3.8801680516697435`*^9, 
  3.8801680864222903`*^9}, {3.8801703424797573`*^9, 3.8801703751150665`*^9}, {
  3.880171646841321*^9, 3.8801716664894514`*^9}, {3.880173951070859*^9, 
  3.880173965561849*^9}, {3.8801743074019136`*^9, 3.8801743132051525`*^9}, {
  3.8806122355292473`*^9, 3.8806124351170607`*^9}, {3.880619477659381*^9, 
  3.8806194801241813`*^9}},
 CellLabel->
  "In[294]:=",ExpressionUUID->"eeb6c5e9-1a65-4101-9748-31e3ebd1e05b"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Grid", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "\"\<Histogram Neutral Portfolio Returns\>\"", "}"}], ",",
        "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"Histogram", "[", 
         RowBox[{
          RowBox[{"Values", "@", 
           RowBox[{"retnNeutral", "[", "assu", "]"}]}], ",", "300", ",", 
          RowBox[{"ChartLegends", "->", 
           RowBox[{"Keys", "@", 
            RowBox[{"retnNeutral", "[", "assu", "]"}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"ChartLayout", "->", "view"}], ",", 
          RowBox[{"ChartStyle", "->", "\"\<Pastel\>\""}], ",", 
          RowBox[{"ImageSize", "->", "Medium"}]}], "]"}], "}"}]}], 
      "\[IndentingNewLine]", "}"}], ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"assu", ",", "assumption"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"view", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Stacked\>\"", ",", "\"\<Overlapped\>\""}], "}"}]}], "}"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"ControlPlacement", "->", "Right"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8806192406302195`*^9, 3.880619295782405*^9}, {
  3.8806194359923835`*^9, 3.880619442771112*^9}},
 CellLabel->
  "In[295]:=",ExpressionUUID->"881aeef7-ef13-4ce3-a464-d250f7b022ca"],

Cell[BoxData[
 RowBox[{
  RowBox[{"retnNeutralMeanSD", "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{"assumption", "->", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
        RowBox[{"retnNeutral", "[", "\"\<HistoricalActual\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
        RowBox[{"retnNeutral", "[", "\"\<GaussianCNormalM\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
        RowBox[{"retnNeutral", "[", "\"\<GaussianCEmpiriM\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
        RowBox[{"retnNeutral", "[", "\"\<AutoRVinCNormalM\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
        RowBox[{"retnNeutral", "[", "\"\<AutoRVinCEmpiriM\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
        RowBox[{"retnNeutral", "[", "\"\<ManuRVinCNormalM\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
        RowBox[{"retnNeutral", "[", "\"\<ManuRVinCEmpiriM\>\"", "]"}]}]}], 
      "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.880091642023775*^9, 3.8800916602840877`*^9}, {
   3.8800931396295877`*^9, 3.8800931530521307`*^9}, 3.8801523051954613`*^9, {
   3.8801524008872175`*^9, 3.8801524231230946`*^9}, {3.8801721766653967`*^9, 
   3.880172224057783*^9}, 3.880172294934683*^9, {3.880174735780242*^9, 
   3.880174747952519*^9}, {3.8801748666326847`*^9, 3.8801748842898254`*^9}, {
   3.880174982784541*^9, 3.8801750001608267`*^9}, 3.8802366976728926`*^9, {
   3.8806124984329824`*^9, 3.8806125589030256`*^9}, {3.8806126051796827`*^9, 
   3.880612633175171*^9}},
 CellLabel->
  "In[296]:=",ExpressionUUID->"b13d2d4f-d093-4065-b8a5-eb8d535b85ef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"retnNeutralVaRES", "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{"assumption", "->", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
        RowBox[{"retnNeutral", "[", "\"\<HistoricalActual\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
        RowBox[{"retnNeutral", "[", "\"\<GaussianCNormalM\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
        RowBox[{"retnNeutral", "[", "\"\<GaussianCEmpiriM\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
        RowBox[{"retnNeutral", "[", "\"\<AutoRVinCNormalM\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
        RowBox[{"retnNeutral", "[", "\"\<AutoRVinCEmpiriM\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
        RowBox[{"retnNeutral", "[", "\"\<ManuRVinCNormalM\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
        RowBox[{"retnNeutral", "[", "\"\<ManuRVinCEmpiriM\>\"", "]"}]}]}], 
      "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8806125741239614`*^9, 3.880612637870756*^9}},
 CellLabel->
  "In[297]:=",ExpressionUUID->"a7428f3e-d21a-4c55-8a6d-d0f3d6c7bc40"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   SubscriptBox["\[ScriptCapitalD]", "retnNeutral"], "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{"assumption", "->", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FindDistribution", "/@", 
        RowBox[{"retnNeutral", "[", "\"\<HistoricalActual\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"FindDistribution", "/@", 
        RowBox[{"retnNeutral", "[", "\"\<GaussianCNormalM\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"FindDistribution", "/@", 
        RowBox[{"retnNeutral", "[", "\"\<GaussianCEmpiriM\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"FindDistribution", "/@", 
        RowBox[{"retnNeutral", "[", "\"\<AutoRVinCNormalM\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"FindDistribution", "/@", 
        RowBox[{"retnNeutral", "[", "\"\<AutoRVinCEmpiriM\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"FindDistribution", "/@", 
        RowBox[{"retnNeutral", "[", "\"\<ManuRVinCNormalM\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"FindDistribution", "/@", 
        RowBox[{"retnNeutral", "[", "\"\<ManuRVinCEmpiriM\>\"", "]"}]}]}], 
      "}"}]}], "]"}]}], "]"}]], "Input",
 CellLabel->
  "In[298]:=",ExpressionUUID->"ad4654bb-c97d-4fa8-b2df-91432526f743"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{
       "OUTPUTDIR0", "<>", "\"\<(table)FittedDistrOfNeutralPortRetn\>\"", "<>",
         "#"}], ",", 
       SubscriptBox["\[ScriptCapitalD]", "retnNeutral"]}], "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"\"\<.png\>\"", ",", "\"\<.pdf\>\"", ",", "\"\<.csv\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8632247348711376`*^9, 3.863224816462368*^9}, 
   3.863226016752447*^9, {3.865918348446356*^9, 3.8659183523015256`*^9}, {
   3.865919864927621*^9, 3.8659198676034937`*^9}, {3.889143988784897*^9, 
   3.8891439941848125`*^9}, {3.889144176489618*^9, 3.889144195144775*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[299]:=",ExpressionUUID->"dd6ba813-fda7-414c-a519-34ea3c55244e"]
}, Closed]],

Cell[CellGroupData[{

Cell["MPT (1952,1959) Optimisation", "Item",
 CellChangeTimes->{{3.8777448119051433`*^9, 3.877744819547183*^9}, {
   3.877760374214647*^9, 3.877760391264331*^9}, {3.8778388339384313`*^9, 
   3.8778388349072237`*^9}, {3.8778389797219324`*^9, 3.877838994263509*^9}, {
   3.8786962750782857`*^9, 3.8786962766214685`*^9}, {3.878723970929686*^9, 
   3.878723980687358*^9}, {3.878724667435857*^9, 3.8787246733515725`*^9}, {
   3.8788583621394825`*^9, 3.878858369250189*^9}, 3.8788598016689224`*^9, {
   3.8800918443170357`*^9, 3.88009184547044*^9}, 3.8801665048358655`*^9, 
   3.889142621582332*^9},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"d5b6ea98-d84d-4c33-957a-5c48d20427a8"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2022.12", ".16"}], ")"}], " ", 
   RowBox[{"FuzzyPOptm", ".", "nb"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.889142524984375*^9, 3.8891425466211343`*^9}},
 Background->RGBColor[1, 0.5, 0],
 CellLabel->
  "In[300]:=",ExpressionUUID->"c1c2e09a-2666-4c92-908f-c392459fbf0a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"MAXALLOC0", "=", ".1"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "no", " ", "individual", " ", "fund", " ", "will", " ", "be", " ", 
    "allocated", " ", "more", " ", "than", " ", "MAXALLOC0"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PRECISIONALLOC0", "=", ".001"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "optimised", " ", "allocation", " ", "weights", " ", "will", " ", "be", 
    " ", "rounded", " ", "to", " ", "the", " ", "nearest", " ", 
    "PRECISIONALLOC0"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.878862698825987*^9, 3.878862715337531*^9}, {
   3.878863444622919*^9, 3.878863454335408*^9}, {3.8789364268799095`*^9, 
   3.8789366131625566`*^9}, {3.878954758597836*^9, 3.878954788927816*^9}, {
   3.878954824063299*^9, 3.8789548766751175`*^9}, {3.8789549099754047`*^9, 
   3.8789549360998945`*^9}, {3.8789549857257633`*^9, 
   3.8789550006748304`*^9}, {3.8789550533859434`*^9, 
   3.8789550539776163`*^9}, {3.8789564849407277`*^9, 
   3.8789564930053463`*^9}, {3.8789565417364426`*^9, 3.878956552728842*^9}, {
   3.8789568533827085`*^9, 3.878956858763308*^9}, {3.8789569209927735`*^9, 
   3.878956921208506*^9}, {3.878956957725009*^9, 3.878956957813207*^9}, {
   3.8789570106216307`*^9, 3.8789570223056707`*^9}, {3.878957053666938*^9, 
   3.878957054174775*^9}, 3.878957141159315*^9, {3.8789582452584653`*^9, 
   3.8789582541486764`*^9}, {3.8789588477220016`*^9, 3.87895887852234*^9}, {
   3.8789589390259743`*^9, 3.878958942316657*^9}, 3.8800919628833194`*^9},
 CellLabel->
  "In[301]:=",ExpressionUUID->"eea66387-1c15-4b60-944c-f8ecd0f3ae09"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]OptmMPT", "[", 
   RowBox[{"\[Mu]_", ",", "\[CapitalSigma]_", ",", "\[Mu]0_", ",", 
    RowBox[{"xMax_", ":", "MAXALLOC0"}], ",", 
    RowBox[{"precisionAlloc_", ":", "PRECISIONALLOC0"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"w", ",", 
         RowBox[{"Length", "@", "\[Mu]"}]}], "]"}]}], ",", "obj", ",", "soln",
       ",", "allocwt"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Off", "[", 
      RowBox[{"NMinimize", "::", "incst"}], "]"}], ";", 
     RowBox[{"Off", "[", 
      RowBox[{"NMinimize", "::", "nrnum"}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"obj", ",", "soln"}], "}"}], "=", 
      RowBox[{"Minimize", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x", ".", "\[CapitalSigma]", ".", "x"}], ",", 
          RowBox[{
           RowBox[{"x", ".", "\[Mu]"}], ">=", "\[Mu]0"}], ",", 
          RowBox[{
           RowBox[{"Total", "@", "x"}], "==", "1"}], ",", 
          RowBox[{"xMax", ">=", "x", ">=", "0"}]}], "}"}], ",", "x"}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"allocwt", "=", 
      RowBox[{"Round", "[", 
       RowBox[{
        RowBox[{"Values", "@", "soln"}], ",", "precisionAlloc"}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"allocwt", ".", "\[CapitalSigma]", ".", "allocwt"}], ",", 
       RowBox[{"allocwt", ".", "\[Mu]"}], ",", "allocwt"}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8786940563318396`*^9, 3.878694154106331*^9}, {
   3.87869446389896*^9, 3.878694469403514*^9}, {3.8786945311263995`*^9, 
   3.878694569035742*^9}, {3.8786950241704655`*^9, 3.8786950347694364`*^9}, {
   3.8786951383833957`*^9, 3.87869514075865*^9}, {3.8786951957491913`*^9, 
   3.8786952017881627`*^9}, {3.8786952423383117`*^9, 
   3.8786952847957053`*^9}, {3.8786953297924266`*^9, 
   3.8786953525995865`*^9}, {3.87869555321129*^9, 3.8786955834785385`*^9}, {
   3.8786956328271503`*^9, 3.878695708483676*^9}, {3.8786958378453803`*^9, 
   3.878695882315353*^9}, 3.8787240311371746`*^9, {3.878725733562914*^9, 
   3.8787257475796432`*^9}, {3.878725959207323*^9, 3.878725959232419*^9}, {
   3.8787260958320017`*^9, 3.8787261512042694`*^9}, {3.878727287075023*^9, 
   3.878727367036584*^9}, {3.878727417282262*^9, 3.878727422215719*^9}, {
   3.8787274816837077`*^9, 3.878727483288251*^9}, {3.8787786893817363`*^9, 
   3.878778694581959*^9}, {3.878780398564694*^9, 3.878780404949521*^9}, 
   3.8788573098233995`*^9, 3.878857360631379*^9, {3.878863100612482*^9, 
   3.878863105392475*^9}, 3.878864714837558*^9, {3.878864814455247*^9, 
   3.878864843340708*^9}, {3.8788648876806793`*^9, 3.878864910974435*^9}, {
   3.8788689345247936`*^9, 3.878868936228344*^9}, {3.8793005981317296`*^9, 
   3.8793006168542805`*^9}, {3.8801451534502845`*^9, 3.880145206126648*^9}, {
   3.8801453969512143`*^9, 3.8801454251856594`*^9}, 3.8801670454618263`*^9},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[303]:=",ExpressionUUID->"49cc2f16-2248-490b-8db4-551d9a444eef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]FrontierMPT", "[", 
   RowBox[{"\[Mu]_", ",", "\[CapitalSigma]_", ",", 
    RowBox[{"xMax_", ":", "MAXALLOC0"}], ",", 
    RowBox[{"precisionAlloc_", ":", "PRECISIONALLOC0"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\[Mu]Min", ",", "\[Mu]Max", ",", "\[Mu]0", ",", "optm"}], "}"}],
     ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Mu]Min", ",", "\[Mu]Max"}], "}"}], "=", 
      RowBox[{"MinMax", "@", "\[Mu]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]OptmMPT", "[", 
        RowBox[{"\[Mu]", ",", "\[CapitalSigma]", ",", 
         RowBox[{"\[Mu]Min", "+", 
          RowBox[{".1", 
           RowBox[{"(", 
            RowBox[{"\[Mu]Max", "-", "\[Mu]Min"}], ")"}], "i"}]}], ",", 
         "xMax", ",", "precisionAlloc"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "9"}], "}"}]}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8787241224376698`*^9, 3.8787243513967395`*^9}, {
   3.8787244039257927`*^9, 3.8787244256392193`*^9}, {3.8787244847877398`*^9, 
   3.878724566847705*^9}, {3.878725486346842*^9, 3.878725505350124*^9}, 
   3.878771095486102*^9, {3.8788034644334974`*^9, 3.878803477098566*^9}, {
   3.8788035310691047`*^9, 3.8788035344422665`*^9}, 3.8788035752306843`*^9, {
   3.878804908925202*^9, 3.8788049134157133`*^9}, 3.8788578075224705`*^9, {
   3.8788690727913475`*^9, 3.878869073366223*^9}, 3.8788691099752626`*^9, {
   3.879300687244097*^9, 3.879300687747813*^9}, {3.879300732778247*^9, 
   3.879300733362627*^9}, {3.880167032733405*^9, 3.880167043076283*^9}, {
   3.8806704554194555`*^9, 3.880670462356145*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[304]:=",ExpressionUUID->"8d0f58a9-1bb7-4922-b5fe-da97771c3efc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"frontierMPT", "=", 
   RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]FrontierMPT", "[", 
    RowBox[{"\[Mu]Asset", ",", "\[CapitalSigma]Asset", ",", "1", ",", 
     RowBox[{".1", "PRECISIONALLOC0"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"frontierMPTallocWt", "=", 
   RowBox[{"frontierMPT", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"frontierMPTRiskRetn", "=", 
   RowBox[{"Transpose", "@", 
    RowBox[{"{", 
     RowBox[{
      SqrtBox[
       RowBox[{"frontierMPT", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "1"}], "]"}], "]"}]], ",", 
      RowBox[{"frontierMPT", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Prepend", "[", 
    RowBox[{"frontierMPTRiskRetn", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<RISK\>\"", ",", "\"\<RETN\>\""}], "}"}]}], "]"}], ",", 
   RowBox[{"Alignment", "->", 
    RowBox[{"{", 
     RowBox[{"Left", ",", "Bottom"}], "}"}]}], ",", 
   RowBox[{"Frame", "->", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.878725470662166*^9, 3.8787255101723995`*^9}, {
   3.878726410225726*^9, 3.878726414980406*^9}, {3.8787265337711163`*^9, 
   3.8787265764851675`*^9}, {3.878771098823373*^9, 3.878771131801108*^9}, {
   3.878773984782528*^9, 3.878774217030737*^9}, {3.8787742488178864`*^9, 
   3.8787743353979797`*^9}, {3.878774405061492*^9, 3.8787744186034813`*^9}, {
   3.8787746236691356`*^9, 3.878774647593249*^9}, {3.878803481206461*^9, 
   3.878803481385512*^9}, {3.8788035786135416`*^9, 3.8788035795487566`*^9}, 
   3.8788577584132633`*^9, {3.8788683952822847`*^9, 3.8788684032666187`*^9}, {
   3.8788691740609703`*^9, 3.878869177846665*^9}, 3.8788692282472315`*^9, {
   3.879300656380563*^9, 3.879300660215925*^9}, {3.879300783505258*^9, 
   3.8793008447955723`*^9}, 3.879303167660408*^9, {3.880166622738124*^9, 
   3.880166637569439*^9}, {3.8801666747614307`*^9, 3.880166693893651*^9}, {
   3.8801670277574453`*^9, 3.880167040626176*^9}, {3.880167355543582*^9, 
   3.8801673722604265`*^9}, {3.880167429918614*^9, 3.8801674311844463`*^9}, {
   3.8801675631615257`*^9, 3.880167610334092*^9}, {3.8801677461963587`*^9, 
   3.8801677927116137`*^9}, {3.88016789676413*^9, 3.880167915635049*^9}, {
   3.880236190118086*^9, 3.8802362211397114`*^9}, {3.8806195675313807`*^9, 
   3.8806196372850504`*^9}, {3.8806197517643337`*^9, 
   3.8806197638892937`*^9}, {3.8806659145405817`*^9, 3.88066591684306*^9}},
 CellLabel->
  "In[305]:=",ExpressionUUID->"e4b8b4c5-09a2-4095-8558-2943c76558f4"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Monte Carlo Returns of (9) MPT-Frontier Solutions under 7 Return Assumptions, \
w/ Interactive Display\
\>", "Item",
 CellChangeTimes->{{3.8777448119051433`*^9, 3.877744819547183*^9}, {
   3.877760374214647*^9, 3.877760391264331*^9}, {3.8778388339384313`*^9, 
   3.8778388349072237`*^9}, {3.8778389797219324`*^9, 3.877838994263509*^9}, {
   3.8786962750782857`*^9, 3.8786962766214685`*^9}, {3.878723970929686*^9, 
   3.878723980687358*^9}, {3.878724667435857*^9, 3.8787246733515725`*^9}, {
   3.8788583621394825`*^9, 3.878858369250189*^9}, 3.8788598016689224`*^9, {
   3.8800918443170357`*^9, 3.88009184547044*^9}, 3.8801665048358655`*^9, {
   3.880236632859324*^9, 3.880236669984024*^9}, {3.880409401182184*^9, 
   3.880409406481262*^9}, 3.8806196880763607`*^9, 3.8877704551347933`*^9, 
   3.889145260165251*^9},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"fefaa564-f845-4240-ae67-503a15585fd0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"retnFrontierMPT", "=", "\[IndentingNewLine]", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{"assumption", "->", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"AssociationThread", "[", 
        RowBox[{
         RowBox[{"Range", "@", 
          RowBox[{"Length", "@", "frontierMPT"}]}], "->", 
         "\[IndentingNewLine]", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"frontierMPTallocWt", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnHistoricalActual"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Length", "@", "frontierMPT"}]}], "}"}]}], "]"}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{
         RowBox[{"Range", "@", 
          RowBox[{"Length", "@", "frontierMPT"}]}], "->", 
         "\[IndentingNewLine]", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"frontierMPTallocWt", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnGaussianCNormalM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Length", "@", "frontierMPT"}]}], "}"}]}], "]"}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{
         RowBox[{"Range", "@", 
          RowBox[{"Length", "@", "frontierMPT"}]}], "->", 
         "\[IndentingNewLine]", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"frontierMPTallocWt", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnGaussianCEmpiriM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Length", "@", "frontierMPT"}]}], "}"}]}], "]"}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{
         RowBox[{"Range", "@", 
          RowBox[{"Length", "@", "frontierMPT"}]}], "->", 
         "\[IndentingNewLine]", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"frontierMPTallocWt", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnAutoRVinCNormalM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Length", "@", "frontierMPT"}]}], "}"}]}], "]"}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{
         RowBox[{"Range", "@", 
          RowBox[{"Length", "@", "frontierMPT"}]}], "->", 
         "\[IndentingNewLine]", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"frontierMPTallocWt", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnAutoRVinCEmpiriM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Length", "@", "frontierMPT"}]}], "}"}]}], "]"}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{
         RowBox[{"Range", "@", 
          RowBox[{"Length", "@", "frontierMPT"}]}], "->", 
         "\[IndentingNewLine]", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"frontierMPTallocWt", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnManuRVinCNormalM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Length", "@", "frontierMPT"}]}], "}"}]}], "]"}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"AssociationThread", "[", 
        RowBox[{
         RowBox[{"Range", "@", 
          RowBox[{"Length", "@", "frontierMPT"}]}], "->", 
         "\[IndentingNewLine]", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"frontierMPTallocWt", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ".", "#"}], "&"}], "/@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"Values", "@", "retnManuRVinCEmpiriM"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Length", "@", "frontierMPT"}]}], "}"}]}], "]"}]}], 
        "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8802366168620863`*^9, 3.8802366191265383`*^9}, {
   3.880236674060419*^9, 3.8802366748186617`*^9}, {3.8806197765088587`*^9, 
   3.880619932407524*^9}, 3.880620216324068*^9},
 CellLabel->
  "In[309]:=",ExpressionUUID->"8bfe20c8-ff8c-41d9-adb8-2a1d059df55f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"retnFrontierMPTMeanSD", "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{"assumption", "->", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<HistoricalActual\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<GaussianCNormalM\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<GaussianCEmpiriM\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<AutoRVinCNormalM\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<AutoRVinCEmpiriM\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<ManuRVinCNormalM\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "[", "#", "]"}], ",", 
           RowBox[{"StandardDeviation", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<ManuRVinCEmpiriM\>\"", "]"}]}]}],
       "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.880091642023775*^9, 3.8800916602840877`*^9}, {
   3.8800931396295877`*^9, 3.8800931530521307`*^9}, 3.8801523051954613`*^9, {
   3.8801524008872175`*^9, 3.8801524231230946`*^9}, {3.8801721766653967`*^9, 
   3.880172224057783*^9}, 3.880172294934683*^9, {3.880174735780242*^9, 
   3.880174747952519*^9}, {3.8801748666326847`*^9, 3.8801748842898254`*^9}, {
   3.880174982784541*^9, 3.8801750001608267`*^9}, 3.8802366976728926`*^9, {
   3.8806124984329824`*^9, 3.8806125589030256`*^9}, {3.8806126051796827`*^9, 
   3.880612633175171*^9}, {3.8806200456893263`*^9, 3.8806200749432325`*^9}},
 CellLabel->
  "In[310]:=",ExpressionUUID->"a24e300c-fd3f-4b85-8a89-b1153516c1cf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"retnFrontierMPTVaRES", "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{"assumption", "->", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<HistoricalActual\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<GaussianCNormalM\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<GaussianCEmpiriM\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<AutoRVinCNormalM\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<AutoRVinCEmpiriM\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<ManuRVinCNormalM\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]MonteCarloVaRES", "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<ManuRVinCEmpiriM\>\"", "]"}]}]}],
       "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8806125741239614`*^9, 3.880612637870756*^9}, {
  3.880620096867156*^9, 3.8806201067960105`*^9}},
 CellLabel->
  "In[311]:=",ExpressionUUID->"0033136c-aeaf-48c7-858c-59490a24c373"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   SubscriptBox["\[ScriptCapitalD]", "retnFrontierMPT"], "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{"assumption", "->", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FindDistribution", "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<HistoricalActual\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"FindDistribution", "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<GaussianCNormalM\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"FindDistribution", "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<GaussianCEmpiriM\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"FindDistribution", "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<AutoRVinCNormalM\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"FindDistribution", "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<AutoRVinCEmpiriM\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"FindDistribution", "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<ManuRVinCNormalM\>\"", "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"FindDistribution", "/@", 
        RowBox[{"retnFrontierMPT", "[", "\"\<ManuRVinCEmpiriM\>\"", "]"}]}]}],
       "}"}]}], "]"}]}], "]"}]], "Input",
 CellLabel->
  "In[312]:=",ExpressionUUID->"4e92d8ae-4659-488f-92b3-fc95a0d34c31"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{
       "OUTPUTDIR0", "<>", "\"\<(table)FittedDistrOfFrontierPortRetn\>\"", "<>",
         "#"}], ",", 
       SubscriptBox["\[ScriptCapitalD]", "retnFrontierMPT"]}], "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"\"\<.png\>\"", ",", "\"\<.pdf\>\"", ",", "\"\<.csv\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8632247348711376`*^9, 3.863224816462368*^9}, 
   3.863226016752447*^9, {3.865918348446356*^9, 3.8659183523015256`*^9}, {
   3.865919864927621*^9, 3.8659198676034937`*^9}, {3.889143988784897*^9, 
   3.8891439941848125`*^9}, {3.889144176489618*^9, 3.889144195144775*^9}, {
   3.889144489861369*^9, 3.889144499584857*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[313]:=",ExpressionUUID->"c9295711-fb9e-4941-ab3f-104ba2bd29c3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ListLineArrowPlot", "[", 
   RowBox[{"list_", ",", "line_", ",", "arrow_", ",", "listlabel_", ",", 
    RowBox[{"sizeimage_", ":", "900"}], ",", 
    RowBox[{"marker_", ":", "\[Earth]"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Show", "[", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"list", "\[Rule]", "listlabel"}], ",", 
       RowBox[{"PlotMarkers", "->", "marker"}], ",", 
       RowBox[{"PlotStyle", "->", 
        TemplateBox[<|"color" -> RGBColor[1, 0, 0]|>,
         "RGBColorSwatchTemplate"]}], ",", 
       RowBox[{"ImageSize", "->", "sizeimage"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ListLinePlot", "[", 
      RowBox[{"line", ",", 
       RowBox[{"PlotStyle", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Thickness", "[", ".007", "]"}], ",", 
          TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
           "RGBColorSwatchTemplate"]}], "}"}]}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", ".007", "]"}], ",", 
        TemplateBox[<|"color" -> RGBColor[0, 1, 0]|>,
         "RGBColorSwatchTemplate"], ",", 
        RowBox[{"Arrowheads", "[", ".035", "]"}], ",", 
        RowBox[{"Arrow", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", "arrow"}], "}"}], "]"}]}], 
       "}"}], "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8787708675307302`*^9, 3.878770960520645*^9}, 
   3.8787710305773287`*^9, 3.8787710835438766`*^9, {3.878773201986582*^9, 
   3.8787732130358987`*^9}, {3.878773512832429*^9, 3.878773557850107*^9}, {
   3.878773594887414*^9, 3.8787737378061523`*^9}, {3.8787738234676437`*^9, 
   3.878773824290393*^9}, {3.8787789952339144`*^9, 3.878778995558597*^9}, {
   3.8787790458607087`*^9, 3.8787790690614223`*^9}, {3.878779130665943*^9, 
   3.878779151738492*^9}, {3.878779734609459*^9, 3.87877973836893*^9}, {
   3.8787798296058645`*^9, 3.8787798488735414`*^9}, {3.8787894044359093`*^9, 
   3.8787894260813494`*^9}, {3.878803356508917*^9, 3.878803362370737*^9}, {
   3.8788037558102427`*^9, 3.878803762474289*^9}, {3.8788042385216527`*^9, 
   3.8788042472915497`*^9}, {3.878804386832802*^9, 3.8788043886038914`*^9}, {
   3.878805013006091*^9, 3.878805021513548*^9}, {3.8788052219532175`*^9, 
   3.878805295593527*^9}, {3.878805368309765*^9, 3.8788053905697627`*^9}, {
   3.878805435964902*^9, 3.8788054453235054`*^9}, {3.878805483983785*^9, 
   3.8788055512980995`*^9}, {3.878805603802512*^9, 3.8788056579990187`*^9}, {
   3.87880578098179*^9, 3.8788058344067025`*^9}, {3.8788058871897593`*^9, 
   3.878805900658191*^9}, {3.8788686312227592`*^9, 3.878868632718524*^9}, {
   3.878868686607476*^9, 3.8788688829459734`*^9}, {3.878868951717132*^9, 
   3.8788689586755505`*^9}, {3.8793018949301977`*^9, 3.879301900170766*^9}, {
   3.879302382350388*^9, 3.8793023957725644`*^9}, {3.8801679335468025`*^9, 
   3.880167943893279*^9}, {3.8802386947958574`*^9, 3.8802386989439473`*^9}, {
   3.8802387326104307`*^9, 3.880238902510166*^9}, {3.880238942801339*^9, 
   3.880239067181754*^9}, {3.8802391082275953`*^9, 3.880239130981121*^9}, {
   3.880239280673882*^9, 3.8802392828222046`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[314]:=",ExpressionUUID->"b60f051a-4721-4c07-b4ad-4b414a68d9b2"],

Cell[BoxData[
 RowBox[{"frontierMPTRiskRetn", "==", "\[IndentingNewLine]", 
  RowBox[{"Transpose", "@", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Values", "[", 
       RowBox[{
       "retnFrontierMPTMeanSD", "[", "\"\<HistoricalActual\>\"", "]"}], "]"}],
       "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Values", "[", 
       RowBox[{
       "retnFrontierMPTMeanSD", "[", "\"\<HistoricalActual\>\"", "]"}], "]"}],
       "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.880239816443842*^9, 3.880239832510994*^9}, {
  3.8806205115762653`*^9, 3.8806205434444695`*^9}, {3.8806208789135327`*^9, 
  3.8806208801239686`*^9}},
 CellLabel->
  "In[315]:=",ExpressionUUID->"323b12fc-3df5-491b-bd69-bbd7d888984a"],

Cell[BoxData[
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ListLineArrowPlot", "[", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Transpose", "@", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       SqrtBox["250"], 
       RowBox[{
        RowBox[{"Values", "[", 
         RowBox[{"retnMeanSD", "[", "\"\<HistoricalActual\>\"", "]"}], "]"}], 
        "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"250", 
       RowBox[{
        RowBox[{"Values", "[", 
         RowBox[{"retnMeanSD", "[", "\"\<HistoricalActual\>\"", "]"}], "]"}], 
        "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SqrtBox["250"], ",", "250"}], "}"}], " ", "#"}], "&"}], "/@", 
    RowBox[{"Transpose", "@", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Values", "[", 
         RowBox[{
         "retnFrontierMPTMeanSD", "[", "\"\<HistoricalActual\>\"", "]"}], 
         "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Values", "[", 
         RowBox[{
         "retnFrontierMPTMeanSD", "[", "\"\<HistoricalActual\>\"", "]"}], 
         "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SqrtBox["250"], 
      RowBox[{
       RowBox[{"retnNeutralMeanSD", "[", 
        RowBox[{"\"\<HistoricalActual\>\"", ",", "\"\<All\>\""}], "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"250", 
      StyleBox[
       RowBox[{
        RowBox[{"retnNeutralMeanSD", "[", 
         RowBox[{"\"\<HistoricalActual\>\"", ",", "\"\<All\>\""}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}],
       FontWeight->"Bold"]}]}], "}"}], ",", "\[IndentingNewLine]", 
   "assetClass"}], "]"}]], "Input",
 CellChangeTimes->{{3.880239156814302*^9, 3.880239173294939*^9}, 
   3.880239209021553*^9, 3.880239308400775*^9, {3.8802393619278855`*^9, 
   3.880239368152714*^9}, {3.8802394166073933`*^9, 3.8802394274033318`*^9}, {
   3.880239801754632*^9, 3.880239802120313*^9}, 3.880239846182545*^9, {
   3.8806205573074293`*^9, 3.88062061576927*^9}, {3.8806208891142282`*^9, 
   3.880620895286496*^9}, {3.880670700874895*^9, 3.880670720480752*^9}},
 CellLabel->
  "In[316]:=",ExpressionUUID->"7a60faaa-1d62-4303-91bd-8e9b75ec0493"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]ViewRiskRetn", "[", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"assuAsset_", ":", "\"\<HistoricalActual\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"assuFrontier_", ":", "\"\<HistoricalActual\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"assuRef_", ":", "\"\<HistoricalActual\>\""}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]ListLineArrowPlot", "[", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Transpose", "@", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        SqrtBox["250"], 
        RowBox[{
         RowBox[{"Values", "[", 
          RowBox[{"retnMeanSD", "[", "assuAsset", "]"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"250", 
        RowBox[{
         RowBox[{"Values", "[", 
          RowBox[{"retnMeanSD", "[", "assuAsset", "]"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], "}"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         SqrtBox["250"], ",", "250"}], "}"}], " ", "#"}], "&"}], "/@", 
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Values", "[", 
          RowBox[{"retnFrontierMPTMeanSD", "[", "assuFrontier", "]"}], "]"}], 
         "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Values", "[", 
          RowBox[{"retnFrontierMPTMeanSD", "[", "assuFrontier", "]"}], "]"}], 
         "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       SqrtBox["250"], 
       RowBox[{
        RowBox[{"retnNeutralMeanSD", "[", 
         RowBox[{"assuRef", ",", "\"\<All\>\""}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"250", 
       StyleBox[
        RowBox[{
         RowBox[{"retnNeutralMeanSD", "[", 
          RowBox[{"assuRef", ",", "\"\<All\>\""}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}],
        FontWeight->"Bold"]}]}], "}"}], ",", "\[IndentingNewLine]", 
    "assetClass"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8802398964356337`*^9, 3.8802398973015695`*^9}, {
   3.8802399341112223`*^9, 3.880240019934823*^9}, {3.880240051928587*^9, 
   3.8802400522559786`*^9}, {3.880240127021463*^9, 3.880240156857729*^9}, {
   3.880620622664402*^9, 3.8806206511059012`*^9}, 3.880620816450309*^9, {
   3.8806209012245846`*^9, 3.8806209132935114`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[317]:=",ExpressionUUID->"f8389203-f7ea-4c3c-9502-d12d53e1953b"],

Cell[BoxData[
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ListLineArrowPlot", "[", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"250", " ", 
    RowBox[{"Transpose", "@", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Values", "[", 
           RowBox[{"retnVaRES", "[", "\"\<HistoricalActual\>\"", "]"}], "]"}],
           "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], "\[IndentingNewLine]", 
         "-", 
         RowBox[{
          RowBox[{"Values", "[", 
           RowBox[{"retnVaRES", "[", "\"\<HistoricalActual\>\"", "]"}], "]"}],
           "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ")"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Values", "[", 
         RowBox[{"retnVaRES", "[", "\"\<HistoricalActual\>\"", "]"}], "]"}], 
        "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SqrtBox["250"], ",", "250"}], "}"}], " ", "#"}], "&"}], "/@", 
    RowBox[{"Transpose", "@", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Values", "[", 
          RowBox[{
          "retnFrontierMPTVaRES", "[", "\"\<HistoricalActual\>\"", "]"}], 
          "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}], "\[IndentingNewLine]", "-", 
        RowBox[{
         RowBox[{"Values", "[", 
          RowBox[{
          "retnFrontierMPTVaRES", "[", "\"\<HistoricalActual\>\"", "]"}], 
          "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Values", "[", 
         RowBox[{
         "retnFrontierMPTVaRES", "[", "\"\<HistoricalActual\>\"", "]"}], 
         "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"250", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"retnNeutralVaRES", "[", 
          RowBox[{"\"\<HistoricalActual\>\"", ",", "\"\<All\>\""}], "]"}], 
         "[", 
         RowBox[{"[", "2", "]"}], "]"}], "\[IndentingNewLine]", "-", 
        RowBox[{
         RowBox[{"retnNeutralVaRES", "[", 
          RowBox[{"\"\<HistoricalActual\>\"", ",", "\"\<All\>\""}], "]"}], 
         "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ")"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"retnNeutralVaRES", "[", 
        RowBox[{"\"\<HistoricalActual\>\"", ",", "\"\<All\>\""}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
   "assetClass"}], "]"}]], "Input",
 CellChangeTimes->{{3.880239156814302*^9, 3.880239173294939*^9}, 
   3.880239209021553*^9, 3.880239308400775*^9, {3.8802393619278855`*^9, 
   3.880239368152714*^9}, {3.8802394166073933`*^9, 3.8802394274033318`*^9}, {
   3.880239481756265*^9, 3.8802394931064982`*^9}, 3.8802397998101435`*^9, 
   3.8802398669208508`*^9, {3.880620681831761*^9, 3.8806207165386124`*^9}, {
   3.880620918369051*^9, 3.880620926543868*^9}},
 CellLabel->
  "In[318]:=",ExpressionUUID->"97b09600-dfbd-428a-abc6-88509c3af5cc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]ViewVaRESmVaR", "[", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"assuAsset_", ":", "\"\<HistoricalActual\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"assuFrontier_", ":", "\"\<HistoricalActual\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"assuRef_", ":", "\"\<HistoricalActual\>\""}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]ListLineArrowPlot", "[", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"250", " ", 
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Values", "[", 
            RowBox[{"retnVaRES", "[", "assuAsset", "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}], "\[IndentingNewLine]", 
          "-", 
          RowBox[{
           RowBox[{"Values", "[", 
            RowBox[{"retnVaRES", "[", "assuAsset", "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ")"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Values", "[", 
          RowBox[{"retnVaRES", "[", "assuAsset", "]"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         SqrtBox["250"], ",", "250"}], "}"}], " ", "#"}], "&"}], "/@", 
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Values", "[", 
           RowBox[{"retnFrontierMPTVaRES", "[", "assuFrontier", "]"}], "]"}], 
          "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], "\[IndentingNewLine]", 
         "-", 
         RowBox[{
          RowBox[{"Values", "[", 
           RowBox[{"retnFrontierMPTVaRES", "[", "assuFrontier", "]"}], "]"}], 
          "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Values", "[", 
          RowBox[{"retnFrontierMPTVaRES", "[", "assuFrontier", "]"}], "]"}], 
         "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"250", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"retnNeutralVaRES", "[", 
           RowBox[{"assuRef", ",", "\"\<All\>\""}], "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}], "\[IndentingNewLine]", "-", 
         RowBox[{
          RowBox[{"retnNeutralVaRES", "[", 
           RowBox[{"assuRef", ",", "\"\<All\>\""}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ")"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"retnNeutralVaRES", "[", 
         RowBox[{"assuRef", ",", "\"\<All\>\""}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]",
     "assetClass"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.880239156814302*^9, 3.880239173294939*^9}, 
   3.880239209021553*^9, 3.880239308400775*^9, {3.8802393619278855`*^9, 
   3.880239368152714*^9}, {3.8802394166073933`*^9, 3.8802394274033318`*^9}, {
   3.880239481756265*^9, 3.8802394931064982`*^9}, 3.8802397998101435`*^9, 
   3.8802398669208508`*^9, {3.8802415058226585`*^9, 3.8802415665289965`*^9}, {
   3.8806207297458663`*^9, 3.880620757842005*^9}, {3.8806208246856155`*^9, 
   3.8806208284014482`*^9}, {3.8806209326053824`*^9, 3.880620943213825*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[319]:=",ExpressionUUID->"685c9cb6-7ce8-4238-b0d7-cf88d30de166"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"view", "[", 
    RowBox[{"assuAsset", ",", "assuFrontier", ",", "assuRef"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"view", ",", 
     RowBox[{"{", 
      RowBox[{
      "\[ScriptCapitalP]\[ScriptCapitalN]ViewRiskRetn", ",", 
       "\[ScriptCapitalP]\[ScriptCapitalN]ViewVaRESmVaR"}], "}"}]}], "}"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"assuAsset", ",", "assumption"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"assuFrontier", ",", "assumption"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"assuRef", ",", "assumption"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ControlType", "->", "PopupMenu"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ControlPlacement", "->", "Right"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8802378745038824`*^9, 3.8802380711525307`*^9}, {
  3.8802384772466707`*^9, 3.8802385281170454`*^9}, {3.8802416766273484`*^9, 
  3.8802417515801587`*^9}, {3.8806208379113274`*^9, 3.880620853031426*^9}, {
  3.883726484288823*^9, 3.8837264970791063`*^9}},
 CellLabel->
  "In[320]:=",ExpressionUUID->"64004543-9011-417d-b2f1-add8a265fa35"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewAssumption", "[", 
   RowBox[{
    RowBox[{"view0_", ":", "\[ScriptCapitalP]\[ScriptCapitalN]ViewRiskRetn"}],
     ",", 
    RowBox[{"assu0_", ":", "\"\<HistoricalActual\>\""}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"view", "[", 
     RowBox[{"assu", ",", "assu", ",", "assu"}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"view", ",", "view0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "\[ScriptCapitalP]\[ScriptCapitalN]ViewRiskRetn", ",", 
        "\[ScriptCapitalP]\[ScriptCapitalN]ViewVaRESmVaR"}], "}"}]}], "}"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"assu", ",", "assu0"}], "}"}], ",", "assumption"}], "}"}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"ControlType", "->", "PopupMenu"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ControlPlacement", "->", "Right"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8837264151326838`*^9, 3.883726430199401*^9}, {
  3.883726501858093*^9, 3.883726567519042*^9}, {3.883726604764611*^9, 
  3.88372660635472*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[321]:=",ExpressionUUID->"2916536d-02cc-49c1-85ad-8a3a48349e3d"],

Cell[BoxData[
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewAssumption", "[", 
  "]"}]], "Input",
 CellChangeTimes->{{3.883726591395562*^9, 3.883726609118351*^9}},
 CellLabel->
  "In[322]:=",ExpressionUUID->"ad48d202-fee5-4051-8a04-028f085cdb7f"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTDEMOPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"(*", 
     RowBox[{"caution", ":", " ", 
      RowBox[{
      "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
       "execute"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", "\"\<(figure)DemoRiskRetn-\>\"", "<>", "#", "<>", 
         "\"\<.png\>\""}], ",", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewAssumption", "[", 
         RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewRiskRetn", ",", "#"}],
          "]"}]}], "]"}], "&"}], "/@", "assumption"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.863226276421485*^9, {3.865918718711481*^9, 3.8659187209105434`*^9}, {
   3.8824143163861027`*^9, 3.882414327331058*^9}, 3.8837256233391533`*^9, {
   3.883726645666112*^9, 3.8837267187465496`*^9}, {3.883726754573421*^9, 
   3.883726827368312*^9}, {3.8837839259801903`*^9, 3.883783969901514*^9}, {
   3.8837844333653946`*^9, 3.8837844517761526`*^9}, {3.8891448240996056`*^9, 
   3.889144824968606*^9}, 3.8891448777642603`*^9},
 Background->RGBColor[1, 1, 0],
 CellLabel->
  "In[323]:=",ExpressionUUID->"6796515f-4b64-4709-b130-69b2c869d596"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTDEMOPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"(*", 
     RowBox[{"caution", ":", " ", 
      RowBox[{
      "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
       "execute"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", "\"\<(figure)DemoVaRESmVaR-\>\"", "<>", "#", 
         "<>", "\"\<.png\>\""}], ",", 
        RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewAssumption", "[", 
         RowBox[{
         "\[ScriptCapitalP]\[ScriptCapitalN]ViewVaRESmVaR", ",", "#"}], 
         "]"}]}], "]"}], "&"}], "/@", "assumption"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.863226276421485*^9, {3.865918718711481*^9, 3.8659187209105434`*^9}, {
   3.8824143163861027`*^9, 3.882414327331058*^9}, 3.8837256233391533`*^9, {
   3.883726645666112*^9, 3.8837267187465496`*^9}, {3.883726754573421*^9, 
   3.883726827368312*^9}, {3.8837839259801903`*^9, 3.883783994937907*^9}, {
   3.883784439586049*^9, 3.8837844549088926`*^9}, {3.8891448299726048`*^9, 
   3.8891448313016043`*^9}, 3.889144890093273*^9},
 Background->RGBColor[1, 1, 0],
 CellLabel->
  "In[324]:=",ExpressionUUID->"3d09d87c-5b87-427b-ae4e-8406244e6051"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Compare 1 + 6 = 7 Return Assumptions - Risk-Retn & VaR-ES Plots\
\>", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.8806052539993277`*^9, 
  3.88060525640535*^9}, {3.880623500161828*^9, 3.880623513155175*^9}, {
  3.880623992227209*^9, 3.880624003343327*^9}, {3.8806253182800875`*^9, 
  3.8806253362790136`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"4d329d01-9914-4e41-8df4-ee196db7e0f6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]FlipXY", "[", "xy_", "]"}], ":=", 
  RowBox[{"Transpose", "@", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"xy", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"xy", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{
  3.8806247058847294`*^9, {3.8806248014348354`*^9, 3.88062487140029*^9}, {
   3.880624979972909*^9, 3.880624988878657*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[325]:=",ExpressionUUID->"3380aa82-d592-44d2-bb56-70a5fdfbaf4d"],

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]FlipXY", "@", 
      RowBox[{"Values", "[", 
       RowBox[{"retnFrontierMPTMeanSD", "[", "#", "]"}], "]"}]}], "&"}], "/@",
     "assumption"}], ",", "\[IndentingNewLine]", 
   RowBox[{"PlotLabels", "->", "assumption"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ImageSize", "->", "Large"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.880623852992774*^9, 3.8806238550533605`*^9}, {
   3.880623886286968*^9, 3.8806239055388546`*^9}, {3.8806239373889475`*^9, 
   3.88062393999172*^9}, {3.8806240214113417`*^9, 3.880624028479848*^9}, {
   3.880624718662244*^9, 3.880624777045106*^9}, {3.8806248769965134`*^9, 
   3.8806249164536543`*^9}, {3.880625027595891*^9, 3.8806250936416435`*^9}, {
   3.882413026313436*^9, 3.8824130347249403`*^9}, {3.8824132182926846`*^9, 
   3.8824132322118855`*^9}, 3.882413263716426*^9, {3.8824143337824497`*^9, 
   3.882414334235615*^9}},
 CellLabel->
  "In[326]:=",ExpressionUUID->"9356fcc8-0dd1-4ad3-8e5d-b1b9a317ea02"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{
     "OUTPUTDIR0", "<>", "\"\<(figure)retnFrontierMPTMeanSD.png\>\""}], ",", 
     "%"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.863226276421485*^9, {3.865918718711481*^9, 3.8659187209105434`*^9}, {
   3.8824143163861027`*^9, 3.882414327331058*^9}, 3.8837256233391533`*^9},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[327]:=",ExpressionUUID->"6e23b688-33a5-4b12-91c2-68b04c17e58f"],

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Values", "[", 
      RowBox[{"retnFrontierMPTVaRES", "[", "#", "]"}], "]"}], "&"}], "/@", 
    "assumption"}], ",", "\[IndentingNewLine]", 
   RowBox[{"PlotLabels", "->", "assumption"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ImageSize", "->", "Large"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.880625150879238*^9, 3.8806251556269555`*^9}, {
   3.8824132430536966`*^9, 3.8824132711598268`*^9}, 3.8824143692437115`*^9},
 CellLabel->
  "In[328]:=",ExpressionUUID->"d39294f3-7c8b-4af0-ad0d-af467153fc69"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"OUTPUTDIR0", "<>", "\"\<(figure)retnFrontierMPTVaRES.png\>\""}],
      ",", "%"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.863226276421485*^9, {3.865918718711481*^9, 3.8659187209105434`*^9}, {
   3.8824143163861027`*^9, 3.882414327331058*^9}, 3.882414363984497*^9, 
   3.883725628210039*^9},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[329]:=",ExpressionUUID->"31156853-ecfb-4732-a7d3-18ab3902175f"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Compare 1 + 6 = 7 Return Assumptions - Mean, SD, VaR, ES Values - All \
Benchmark Portfolios\
\>", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.8806052539993277`*^9, 
  3.88060525640535*^9}, {3.880623500161828*^9, 3.880623513155175*^9}, {
  3.880623992227209*^9, 3.880624003343327*^9}, {3.8806253182800875`*^9, 
  3.880625406054029*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"d17c7a34-a5ac-46fb-a004-60eea0e42bf2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"portName", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<neutralAll12\>\"", ",", "\"\<neutralDome5\>\"", ",", 
       "\"\<neutralIntl7\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"\"\<frontierMPT\>\"", "<>", 
        RowBox[{"ToString", "@", "i"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "@", "frontierMPT"}]}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"portIndex", "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{"portName", "->", 
     RowBox[{"Range", "@", 
      RowBox[{"Length", "@", "portName"}]}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8806052703618574`*^9, 3.880605378261806*^9}, {
  3.88060562656255*^9, 3.880605635916309*^9}, {3.8806058057247157`*^9, 
  3.880605810457425*^9}, {3.8806059184188147`*^9, 3.8806059253429017`*^9}, {
  3.880605993974473*^9, 3.8806059986359224`*^9}, {3.880606036719514*^9, 
  3.880606037292349*^9}, {3.8806209990984035`*^9, 3.880621021618026*^9}, {
  3.880622269509001*^9, 3.880622316674041*^9}, {3.880671006149338*^9, 
  3.8806710158630314`*^9}},
 CellLabel->
  "In[330]:=",ExpressionUUID->"28ad3447-ef84-44fc-a9b7-5be6837aa098"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"portMean", "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{"assumption", "->", "\[IndentingNewLine]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"retnNeutralMeanSD", "[", 
             RowBox[{"assu", ",", "#"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", 
          RowBox[{"{", 
           RowBox[{
           "\"\<All\>\"", ",", "\"\<Domestic\>\"", ",", 
            "\"\<International\>\""}], "}"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"retnFrontierMPTMeanSD", "[", "assu", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Length", "@", "frontierMPT"}]}], "}"}]}], "]"}]}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"assu", ",", "assumption"}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"portSD", "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{"assumption", "->", "\[IndentingNewLine]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"retnNeutralMeanSD", "[", 
             RowBox[{"assu", ",", "#"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", 
          RowBox[{"{", 
           RowBox[{
           "\"\<All\>\"", ",", "\"\<Domestic\>\"", ",", 
            "\"\<International\>\""}], "}"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"retnFrontierMPTMeanSD", "[", "assu", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Length", "@", "frontierMPT"}]}], "}"}]}], "]"}]}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"assu", ",", "assumption"}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"portVaR", "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{"assumption", "->", "\[IndentingNewLine]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"retnNeutralVaRES", "[", 
             RowBox[{"assu", ",", "#"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", 
          RowBox[{"{", 
           RowBox[{
           "\"\<All\>\"", ",", "\"\<Domestic\>\"", ",", 
            "\"\<International\>\""}], "}"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"retnFrontierMPTVaRES", "[", "assu", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Length", "@", "frontierMPT"}]}], "}"}]}], "]"}]}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"assu", ",", "assumption"}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"portES", "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{"assumption", "->", "\[IndentingNewLine]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"retnNeutralVaRES", "[", 
             RowBox[{"assu", ",", "#"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", 
          RowBox[{"{", 
           RowBox[{
           "\"\<All\>\"", ",", "\"\<Domestic\>\"", ",", 
            "\"\<International\>\""}], "}"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"retnFrontierMPTVaRES", "[", "assu", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Length", "@", "frontierMPT"}]}], "}"}]}], "]"}]}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"assu", ",", "assumption"}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.880606353201634*^9, 3.880606372347805*^9}, {
  3.88060648219549*^9, 3.880606534698594*^9}, {3.8806210313275237`*^9, 
  3.880621094472288*^9}, {3.880671031818889*^9, 3.8806710350837574`*^9}},
 CellLabel->
  "In[332]:=",ExpressionUUID->"2baa2a5e-f6b7-4630-9265-ab5b5e97d538"],

Cell[BoxData[
 RowBox[{
  RowBox[{"portStat", "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<Mean\>\"", ",", "\"\<SD\>\"", ",", "\"\<VaR\>\"", ",", 
       "\"\<ES\>\""}], "}"}], "->", 
     RowBox[{"{", 
      RowBox[{"portMean", ",", "portSD", ",", "portVaR", ",", "portES"}], 
      "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.880621469326212*^9, 3.88062154884643*^9}, {
  3.8806710597230043`*^9, 3.880671063927619*^9}},
 CellLabel->
  "In[336]:=",ExpressionUUID->"2cc2d088-01b0-4c0d-b8fa-d847a1117f44"],

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"Prepend", "[", 
       RowBox[{
        RowBox[{"portMean", "/@", "assumption"}], ",", "portName"}], "]"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Prepend", "[", 
      RowBox[{"assumption", ",", "\"\<Mean Return\>\""}], "]"}]}], "]"}], ",", 
   RowBox[{"Frame", "->", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.880623541018515*^9, 3.8806235463672037`*^9}, {
   3.8824094408903337`*^9, 3.882409513094438*^9}, {3.88240955393613*^9, 
   3.882409571282607*^9}, 3.882413123525831*^9, 3.882413310124818*^9, {
   3.882414436298585*^9, 3.882414437856123*^9}},
 CellLabel->
  "In[337]:=",ExpressionUUID->"79f1b474-22a5-4050-8127-d8b935e356c3"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"OUTPUTDIR0", "<>", "\"\<(table)portMean.png\>\""}], ",", "%"}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.863226276421485*^9, {3.865918718711481*^9, 3.8659187209105434`*^9}, {
   3.8824143163861027`*^9, 3.882414327331058*^9}, 3.882414363984497*^9, {
   3.8824144130757046`*^9, 3.882414431351965*^9}, 3.883725728876122*^9},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[338]:=",ExpressionUUID->"99a6a901-17aa-4f04-8c09-ddb61daded2d"],

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"Prepend", "[", 
       RowBox[{
        RowBox[{"portSD", "/@", "assumption"}], ",", "portName"}], "]"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Prepend", "[", 
      RowBox[{"assumption", ",", "\"\<SD Return\>\""}], "]"}]}], "]"}], ",", 
   RowBox[{"Frame", "->", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.880623541018515*^9, 3.8806235463672037`*^9}, {
   3.8824095213453093`*^9, 3.8824095459957623`*^9}, {3.8824095804372163`*^9, 
   3.882409584235749*^9}, 3.8824131324690094`*^9, 3.882413317650972*^9, {
   3.8824144527164717`*^9, 3.8824144529274826`*^9}},
 CellLabel->
  "In[339]:=",ExpressionUUID->"cc70d7d1-78df-42e8-b3b9-11a85332dc78"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"OUTPUTDIR0", "<>", "\"\<(table)portSD.png\>\""}], ",", "%"}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.863226276421485*^9, {3.865918718711481*^9, 3.8659187209105434`*^9}, {
   3.8824143163861027`*^9, 3.882414327331058*^9}, 3.882414363984497*^9, {
   3.8824144130757046`*^9, 3.882414458330776*^9}, 3.883725732833525*^9},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[340]:=",ExpressionUUID->"c387361f-e78c-4170-ac29-cf9a06edd084"],

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"Prepend", "[", 
       RowBox[{
        RowBox[{"portVaR", "/@", "assumption"}], ",", "portName"}], "]"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Prepend", "[", 
      RowBox[{"assumption", ",", "\"\<VaR Return\>\""}], "]"}]}], "]"}], ",", 
   RowBox[{"Frame", "->", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8806235559466233`*^9, 3.8806235616459336`*^9}, {
   3.8824095885886345`*^9, 3.8824095926143866`*^9}, 3.8824131348683057`*^9, 
   3.88241332443647*^9, {3.8824144625450387`*^9, 3.8824144627622313`*^9}},
 CellLabel->
  "In[341]:=",ExpressionUUID->"45f89a79-bfad-4ac0-8c39-d41a64a85e88"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"OUTPUTDIR0", "<>", "\"\<(table)portVaR.png\>\""}], ",", "%"}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.863226276421485*^9, {3.865918718711481*^9, 3.8659187209105434`*^9}, {
   3.8824143163861027`*^9, 3.882414327331058*^9}, 3.882414363984497*^9, {
   3.8824144130757046`*^9, 3.882414431351965*^9}, {3.8824144677997084`*^9, 
   3.882414469050994*^9}, 3.883725736243744*^9},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[342]:=",ExpressionUUID->"0e2d99bd-c50a-4017-b1ea-1b324fb0f08c"],

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"Prepend", "[", 
       RowBox[{
        RowBox[{"portES", "/@", "assumption"}], ",", "portName"}], "]"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Prepend", "[", 
      RowBox[{"assumption", ",", "\"\<ES Return\>\""}], "]"}]}], "]"}], ",", 
   RowBox[{"Frame", "->", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.880623567826677*^9, 3.880623571611126*^9}, {
   3.8824095975812054`*^9, 3.882409617560672*^9}, 3.882413165159837*^9, 
   3.8824133305558205`*^9, {3.8824144724964347`*^9, 3.8824144726985626`*^9}},
 CellLabel->
  "In[343]:=",ExpressionUUID->"5ba75f16-212b-4e2f-9492-a5100043ad71"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"OUTPUTDIR0", "<>", "\"\<(table)portES.png\>\""}], ",", "%"}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.863226276421485*^9, {3.865918718711481*^9, 3.8659187209105434`*^9}, {
   3.8824143163861027`*^9, 3.882414327331058*^9}, 3.882414363984497*^9, {
   3.8824144130757046`*^9, 3.882414431351965*^9}, {3.8824144777158575`*^9, 
   3.8824144780049434`*^9}, 3.883725739432355*^9},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[344]:=",ExpressionUUID->"ed6f3dac-9a38-4fcf-9944-d55994764bc6"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Compare 1 + 6 = 7 Return Assumptions - Mean, SD, VaR, ES Values - Some \
Benchmark Portfolios, w/ Interactive Display\
\>", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.8806052539993277`*^9, 
  3.88060525640535*^9}, {3.880623500161828*^9, 3.880623513155175*^9}, {
  3.880623992227209*^9, 3.880624003343327*^9}, {3.8806253182800875`*^9, 
  3.880625423344467*^9}, {3.8891451115442123`*^9, 3.889145127839292*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"30be1516-9b42-4739-a1ec-b9c10ea1447a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]LinePlotPortMeanSDVaRES", "[", 
   RowBox[{
    RowBox[{"viewFrontier0_", ":", "True"}], ",", 
    RowBox[{"stat0_", ":", "\"\<VaR\>\""}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ListLinePlot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"portStat", "[", "stat", "]"}], "/@", "assumption"}], ")"}], 
       "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", 
         RowBox[{"If", "[", 
          RowBox[{"viewFrontier", ",", 
           RowBox[{"4", ";;"}], ",", 
           RowBox[{";;", "3"}]}], "]"}]}], "]"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotLabels", "->", "assumption"}], ",", 
      RowBox[{"PlotStyle", "->", 
       RowBox[{"Thickness", "[", ".007", "]"}]}], ",", 
      RowBox[{"ImageSize", "->", "Large"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"viewFrontier", ",", "viewFrontier0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"stat", ",", "stat0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Mean\>\"", ",", "\"\<SD\>\"", ",", "\"\<VaR\>\"", ",", 
        "\"\<ES\>\""}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ControlType", "->", "PopupMenu"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ControlPlacement", "->", "Right"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8787708675307302`*^9, 3.878770960520645*^9}, 
   3.8787710305773287`*^9, 3.8787710835438766`*^9, {3.878773201986582*^9, 
   3.8787732130358987`*^9}, {3.878773512832429*^9, 3.878773557850107*^9}, {
   3.878773594887414*^9, 3.8787737378061523`*^9}, {3.8787738234676437`*^9, 
   3.878773824290393*^9}, {3.8787789952339144`*^9, 3.878778995558597*^9}, {
   3.8787790458607087`*^9, 3.8787790690614223`*^9}, {3.878779130665943*^9, 
   3.878779151738492*^9}, {3.878779734609459*^9, 3.87877973836893*^9}, {
   3.8787798296058645`*^9, 3.8787798488735414`*^9}, {3.8787894044359093`*^9, 
   3.8787894260813494`*^9}, {3.878803356508917*^9, 3.878803362370737*^9}, {
   3.8788037558102427`*^9, 3.878803762474289*^9}, {3.8788042385216527`*^9, 
   3.8788042472915497`*^9}, {3.878804386832802*^9, 3.8788043886038914`*^9}, {
   3.878805013006091*^9, 3.878805021513548*^9}, {3.8788052219532175`*^9, 
   3.878805295593527*^9}, {3.878805368309765*^9, 3.8788053905697627`*^9}, {
   3.878805435964902*^9, 3.8788054453235054`*^9}, {3.878805483983785*^9, 
   3.8788055512980995`*^9}, {3.878805603802512*^9, 3.8788056579990187`*^9}, {
   3.87880578098179*^9, 3.8788058344067025`*^9}, {3.8788058871897593`*^9, 
   3.878805900658191*^9}, {3.8788686312227592`*^9, 3.878868632718524*^9}, {
   3.878868686607476*^9, 3.8788688829459734`*^9}, {3.878868951717132*^9, 
   3.8788689586755505`*^9}, {3.8793018949301977`*^9, 3.879301900170766*^9}, {
   3.879302382350388*^9, 3.8793023957725644`*^9}, {3.8801679335468025`*^9, 
   3.880167943893279*^9}, {3.8802386947958574`*^9, 3.8802386989439473`*^9}, {
   3.8802387326104307`*^9, 3.880238902510166*^9}, {3.880238942801339*^9, 
   3.880239067181754*^9}, {3.8802391082275953`*^9, 3.880239130981121*^9}, {
   3.880239280673882*^9, 3.8802392828222046`*^9}, {3.883722621551837*^9, 
   3.8837226227840242`*^9}, {3.883722678135882*^9, 3.88372277057813*^9}, {
   3.8837229153247256`*^9, 3.8837229404655356`*^9}, {3.8837230525446625`*^9, 
   3.8837230748403215`*^9}, {3.8837231360707254`*^9, 3.883723175401986*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[345]:=",ExpressionUUID->"53a16e1f-591b-416c-87f3-0583491b0b5f"],

Cell[BoxData[
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]LinePlotPortMeanSDVaRES", "[", 
  "]"}]], "Input",
 CellChangeTimes->{{3.883722960504524*^9, 3.8837229605605245`*^9}, 
   3.8837231808479276`*^9},
 CellLabel->
  "In[346]:=",ExpressionUUID->"292e0e67-d440-43c8-b5ae-13f7dcdfc651"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTDEMOPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"(*", 
     RowBox[{"caution", ":", " ", 
      RowBox[{
      "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
       "execute"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", "\"\<(figure)DemoLinePlotFrontier-Mean.png\>\""}],
         ",", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]LinePlotPortMeanSDVaRES", "[", 
         RowBox[{"True", ",", "\"\<Mean\>\""}], "]"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", "\"\<(figure)DemoLinePlotFrontier-SD.png\>\""}], 
        ",", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]LinePlotPortMeanSDVaRES", "[", 
         RowBox[{"True", ",", "\"\<SD\>\""}], "]"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", "\"\<(figure)DemoLinePlotFrontier-VaR.png\>\""}], 
        ",", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]LinePlotPortMeanSDVaRES", "[", 
         RowBox[{"True", ",", "\"\<VaR\>\""}], "]"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", "\"\<(figure)DemoLinePlotFrontier-ES.png\>\""}], 
        ",", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]LinePlotPortMeanSDVaRES", "[", 
         RowBox[{"True", ",", "\"\<ES\>\""}], "]"}]}], "]"}]}], "}"}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.883722470648103*^9, 3.8837224713661966`*^9}, {
  3.883722971748926*^9, 3.8837229955643682`*^9}, {3.8837231869331226`*^9, 
  3.8837232544729333`*^9}, {3.883723496140892*^9, 3.8837234993336873`*^9}, {
  3.883723725037312*^9, 3.883723740809236*^9}, {3.8837247818905554`*^9, 
  3.8837248115790224`*^9}, {3.883725450282713*^9, 3.883725457835354*^9}, {
  3.8837257515909414`*^9, 3.8837257582635107`*^9}, {3.8891432161606817`*^9, 
  3.8891432297202854`*^9}},
 Background->RGBColor[1, 1, 0],
 CellLabel->
  "In[347]:=",ExpressionUUID->"e4b9c017-b8d4-4598-bfd5-f73b3e8f700a"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Compare 1 + 6 = 7 Return Assumptions - Mean, SD, VaR, ES Values - Each \
Benchmark Portfolio, w/ Interactive Display\
\>", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.8806052539993277`*^9, 
  3.88060525640535*^9}, {3.880623500161828*^9, 3.880623513155175*^9}, {
  3.880623992227209*^9, 3.880624003343327*^9}, {3.8806253182800875`*^9, 
  3.8806253915222063`*^9}, {3.8891451190224333`*^9, 3.8891451240951786`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"789a03b3-77e3-4a72-89c2-8d47b8612c65"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]BarChartPortMeanSDVaRES", "[", 
   RowBox[{
    RowBox[{"port0_", ":", "\"\<neutralAll12\>\""}], ",", 
    RowBox[{"stat0_", ":", "\"\<VaR\>\""}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"BarChart", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Values", "[", 
        RowBox[{"portStat", "[", "stat", "]"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", 
         RowBox[{"portIndex", "[", "port", "]"}]}], "]"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"BarOrigin", "->", "Left"}], ",", "\[IndentingNewLine]", 
      RowBox[{"ChartLabels", "->", 
       RowBox[{"Placed", "[", 
        RowBox[{"assumption", ",", "Right"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ChartStyle", "->", "\"\<Pastel\>\""}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"port", ",", "port0"}], "}"}], ",", "portName"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"stat", ",", "stat0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Mean\>\"", ",", "\"\<SD\>\"", ",", "\"\<VaR\>\"", ",", 
        "\"\<ES\>\""}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ControlPlacement", "->", "Right"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8806224085132537`*^9, 3.880622487302561*^9}, {
   3.880622547582646*^9, 3.88062256594349*^9}, {3.8806226468807783`*^9, 
   3.8806227509865894`*^9}, {3.880622787427142*^9, 3.880622881220928*^9}, {
   3.8806229542397103`*^9, 3.8806230788384905`*^9}, {3.8806231154601874`*^9, 
   3.8806231737054768`*^9}, {3.882412361678459*^9, 3.882412369835395*^9}, 
   3.8824124099822598`*^9, {3.883723372534526*^9, 3.8837234280948257`*^9}, {
   3.8837235734639807`*^9, 3.8837235750845847`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[348]:=",ExpressionUUID->"74a1cbba-c0a3-4b6e-b9c3-649c507d6589"],

Cell[BoxData[
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]BarChartPortMeanSDVaRES", "[", 
  "]"}]], "Input",
 CellChangeTimes->{{3.883723442425596*^9, 3.8837234424515953`*^9}, 
   3.883723591026048*^9},
 CellLabel->
  "In[349]:=",ExpressionUUID->"e28da3c1-f84f-4022-88f6-212e09ab81fc"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTDEMOPICS", ",", 
   RowBox[{"Timing", "[", 
    RowBox[{"(*", 
     RowBox[{"caution", ":", " ", 
      RowBox[{
      "takes", " ", "a", " ", "long", " ", "time", " ", "to", " ", 
       "execute"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBarChartNeutralAll12-Mean.png\>\""}], ",", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]BarChartPortMeanSDVaRES", "[", 
         RowBox[{"\"\<neutralAll12\>\"", ",", "\"\<Mean\>\""}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBarChartNeutralAll12-SD.png\>\""}], ",", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]BarChartPortMeanSDVaRES", "[", 
         RowBox[{"\"\<neutralAll12\>\"", ",", "\"\<SD\>\""}], "]"}]}], "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBarChartNeutralAll12-VaR.png\>\""}], ",", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]BarChartPortMeanSDVaRES", "[", 
         RowBox[{"\"\<neutralAll12\>\"", ",", "\"\<VaR\>\""}], "]"}]}], "]"}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBarChartNeutralAll12-ES.png\>\""}], ",", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]BarChartPortMeanSDVaRES", "[", 
         RowBox[{"\"\<neutralAll12\>\"", ",", "\"\<ES\>\""}], "]"}]}], "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBarChartNeutralDome5-Mean.png\>\""}], ",", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]BarChartPortMeanSDVaRES", "[", 
         RowBox[{"\"\<neutralDome5\>\"", ",", "\"\<Mean\>\""}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBarChartNeutralDome5-SD.png\>\""}], ",", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]BarChartPortMeanSDVaRES", "[", 
         RowBox[{"\"\<neutralDome5\>\"", ",", "\"\<SD\>\""}], "]"}]}], "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBarChartNeutralDome5-VaR.png\>\""}], ",", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]BarChartPortMeanSDVaRES", "[", 
         RowBox[{"\"\<neutralDome5\>\"", ",", "\"\<VaR\>\""}], "]"}]}], "]"}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBarChartNeutralDome5-ES.png\>\""}], ",", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]BarChartPortMeanSDVaRES", "[", 
         RowBox[{"\"\<neutralDome5\>\"", ",", "\"\<ES\>\""}], "]"}]}], "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBarChartNeutralIntl7-Mean.png\>\""}], ",", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]BarChartPortMeanSDVaRES", "[", 
         RowBox[{"\"\<neutralIntl7\>\"", ",", "\"\<Mean\>\""}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBarChartNeutralIntl7-SD.png\>\""}], ",", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]BarChartPortMeanSDVaRES", "[", 
         RowBox[{"\"\<neutralIntl7\>\"", ",", "\"\<SD\>\""}], "]"}]}], "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBarChartNeutralIntl7-VaR.png\>\""}], ",", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]BarChartPortMeanSDVaRES", "[", 
         RowBox[{"\"\<neutralIntl7\>\"", ",", "\"\<VaR\>\""}], "]"}]}], "]"}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(figure)DemoBarChartNeutralIntl7-ES.png\>\""}], ",", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]BarChartPortMeanSDVaRES", "[", 
         RowBox[{"\"\<neutralIntl7\>\"", ",", "\"\<ES\>\""}], "]"}]}], 
       "]"}]}], "}"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.883722470648103*^9, 3.8837224713661966`*^9}, {
  3.883722971748926*^9, 3.8837229955643682`*^9}, {3.8837231869331226`*^9, 
  3.8837232544729333`*^9}, {3.8837235249186983`*^9, 3.8837235678129463`*^9}, {
  3.883723602656937*^9, 3.883723710484437*^9}, {3.8837237450633726`*^9, 
  3.8837237534783487`*^9}, {3.8837248395227246`*^9, 3.8837248493489285`*^9}, {
  3.8837257617813234`*^9, 3.883725770216104*^9}, {3.8891431467016554`*^9, 
  3.8891431768480296`*^9}, {3.88914500743812*^9, 3.88914501896148*^9}},
 Background->RGBColor[1, 1, 0],
 CellLabel->
  "In[350]:=",ExpressionUUID->"e9029ccd-21e1-4df6-b472-338dcffb0c56"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"NotebookSave", "[", "]"}], ";", 
   RowBox[{"EmitSound", "[", 
    RowBox[{"Sound", "[", 
     RowBox[{"SoundNote", "[", 
      RowBox[{"\"\<C\>\"", ",", ".5", ",", "\"\<Violin\>\""}], "]"}], "]"}], 
    "]"}]}],
  FontColor->GrayLevel[1]]], "Input",
 CellChangeTimes->{{3.8799140033373775`*^9, 3.879914004747589*^9}, 
   3.880002577173757*^9, {3.883723918193898*^9, 3.8837239212077284`*^9}, {
   3.883787399583018*^9, 3.883787400193737*^9}},
 Background->GrayLevel[0],
 CellLabel->
  "In[351]:=",ExpressionUUID->"1bf7410c-7fe5-447e-ae46-29bfb08c35d4"]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"3abdcbb3-7402-4490-89b9-6abf9bac47aa"],

Cell[TextData[{
 StyleBox["Multi-Paradigm Analysis of ",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["Thai Capital M",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["ar",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["k",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["e",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["t Link",
  FontSize->48,
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[1],
  Background->None],
 StyleBox["age",
  FontSize->48,
  FontColor->GrayLevel[1],
  Background->None]
}], "Title",
 CellChangeTimes->{{3.8889733224978933`*^9, 3.888973343649993*^9}, 
   3.888973377357065*^9, {3.88914167191856*^9, 3.889141726588789*^9}},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"96a2b838-395d-4b27-8667-e502e40f8717"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Part IV. GNN/Graph Embedding vs. Dimensionality \
Reduction",
 FontColor->GrayLevel[1]]], "Subsubsection",
 CellChangeTimes->{{3.875064507138184*^9, 3.875064510805688*^9}, {
   3.878278239576824*^9, 3.878278251901373*^9}, {3.878278631105335*^9, 
   3.8782786460326586`*^9}, {3.878780306537759*^9, 3.8787803068766427`*^9}, {
   3.879907613035598*^9, 3.879907614575369*^9}, {3.8799207827834115`*^9, 
   3.8799208073698564`*^9}, {3.8851914936468697`*^9, 3.8851915000629387`*^9}, 
   3.889141973924244*^9, 3.8891424528169937`*^9},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"0c72c989-f8ce-41c1-a7d8-9e47f2bfb098"],

Cell[TextData[StyleBox["Poomjai Nacaskul, Ph.D.",
 FontSize->24,
 FontWeight->"Bold",
 FontColor->GrayLevel[1]]], "Author",
 CellChangeTimes->{{3.888973403835884*^9, 3.888973415957621*^9}},
 Background->RGBColor[
  0., 0.5019607843137255, 
   1.],ExpressionUUID->"1c2b9d3e-3dd8-48c1-a394-5c4989460dd6"],

Cell[TextData[StyleBox["2023.03.31",
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.8713456840497117`*^9, 3.8713456876160254`*^9}, {
   3.871345775975469*^9, 3.871345776904157*^9}, {3.871510139631436*^9, 
   3.8715101405909257`*^9}, {3.8724629762226934`*^9, 
   3.8724629773699017`*^9}, {3.8737710280597725`*^9, 
   3.8737710359277973`*^9}, {3.8738568025000906`*^9, 3.873856803019414*^9}, {
   3.873939205165445*^9, 3.873939205677453*^9}, {3.8743596248494673`*^9, 
   3.874359625242044*^9}, {3.8750017301577554`*^9, 3.8750017308440323`*^9}, {
   3.875064440437437*^9, 3.8750644424578524`*^9}, {3.8752192571420364`*^9, 
   3.8752192578607607`*^9}, {3.8782782569263105`*^9, 3.878278258646419*^9}, {
   3.878680486732724*^9, 3.878680488853014*^9}, {3.8787695800471706`*^9, 
   3.8787695804801354`*^9}, {3.8788508927279806`*^9, 3.878850894930314*^9}, {
   3.878872025588595*^9, 3.8788720295144653`*^9}, {3.878944540769303*^9, 
   3.878944541131344*^9}, {3.879297357004484*^9, 3.879297357690538*^9}, {
   3.8799070600728455`*^9, 3.879907061420087*^9}, {3.8800040148043585`*^9, 
   3.8800040154933567`*^9}, {3.880082389037445*^9, 3.8800823896979666`*^9}, {
   3.8801443918157597`*^9, 3.880144392371735*^9}, {3.880234476387456*^9, 
   3.88023447685857*^9}, {3.880407454248597*^9, 3.8804074548496447`*^9}, {
   3.880607783426791*^9, 3.8806077835665684`*^9}, {3.880665381293962*^9, 
   3.880665381693717*^9}, {3.8824037991662436`*^9, 3.882403804145291*^9}, {
   3.882575638825726*^9, 3.882575639191471*^9}, {3.8837030946017375`*^9, 
   3.8837030957541246`*^9}, {3.883782588589318*^9, 3.8837825891013546`*^9}, {
   3.8851796676111403`*^9, 3.88517966829814*^9}, {3.8852510683575716`*^9, 
   3.885251068779319*^9}, 3.8853441316893744`*^9, {3.885418024335279*^9, 
   3.885418024649368*^9}, {3.8856056960454187`*^9, 3.8856056967885513`*^9}, {
   3.8857060030532913`*^9, 3.885706003811681*^9}, {3.8857716314441442`*^9, 
   3.8857716323711596`*^9}, {3.8858537519916754`*^9, 
   3.8858537525684457`*^9}, {3.885953719030515*^9, 3.8859537192314177`*^9}, {
   3.8860427886868787`*^9, 3.88604278915788*^9}, {3.8861110938674803`*^9, 
   3.8861110944596596`*^9}, {3.8877532429375496`*^9, 
   3.8877532453732915`*^9}, {3.889050550147873*^9, 3.889050550951415*^9}, {
   3.8891399580056877`*^9, 3.8891399596256995`*^9}, 
   3.8892186788602743`*^9},ExpressionUUID->"e762dbd1-019b-4dcf-9fb8-\
1bef191c9f78"]
}, Open  ]],

Cell[CellGroupData[{

Cell["10. Graph Embedding (requires 1., 3., 5.)", "Section",
 CellChangeTimes->{{3.8531086817641788`*^9, 3.8531086824037175`*^9}, {
   3.853109772392812*^9, 3.853109783167832*^9}, {3.8532212363701124`*^9, 
   3.8532212444234743`*^9}, {3.8532790456718407`*^9, 
   3.8532790594399385`*^9}, {3.8532791147125006`*^9, 
   3.8532791194158044`*^9}, {3.853280425544862*^9, 3.8532804267856207`*^9}, {
   3.8532806200819235`*^9, 3.8532806250435486`*^9}, {3.8532855696767297`*^9, 
   3.8532855994761868`*^9}, {3.8532891805238485`*^9, 3.8532891812920103`*^9}, 
   3.8533934017641106`*^9, {3.8533934435227485`*^9, 3.8533934475971985`*^9}, {
   3.8534117048034897`*^9, 3.8534117093466063`*^9}, {3.8536278964695463`*^9, 
   3.853627914847779*^9}, {3.8799138361168833`*^9, 3.8799138968588085`*^9}, {
   3.8799221581659684`*^9, 3.8799221641979656`*^9}, {3.880241839944556*^9, 
   3.8802418443530397`*^9}, {3.8851873432177343`*^9, 
   3.8851873434628353`*^9}, {3.8854503208100376`*^9, 
   3.8854503375141497`*^9}, {3.8854504114591017`*^9, 3.885450428105915*^9}, {
   3.8890609995032825`*^9, 
   3.8890609997023115`*^9}},ExpressionUUID->"19aa3262-05b9-4e7a-8fd9-\
287de4e7090a"],

Cell[CellGroupData[{

Cell["Gather Adjacency Matrices to Embed, Check Properties", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
  3.8532857068838415`*^9}, {3.8532858437947817`*^9, 3.853285845227463*^9}, {
  3.8532858808764677`*^9, 3.8532859476042695`*^9}, {3.8799137381896243`*^9, 
  3.8799137768099627`*^9}, {3.885429492730332*^9, 3.8854295093160267`*^9}, {
  3.8854321505775805`*^9, 3.8854321545525084`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"853c7531-6ba2-4e48-9489-41b883c19e6a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Total", "@", 
    RowBox[{"Flatten", "[", 
     RowBox[{"#", "-", 
      RowBox[{"IntegerPart", "@", "#"}]}], "]"}]}], "&"}], "/@", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
    "adjacencyMtrxCopulaGranger", "[", "\"\<BivarCopula2Days\>\"", "]"}], ",",
     "\[IndentingNewLine]", 
    RowBox[{
    "adjacencyMtrxCopulaGranger", "[", "\"\<GrangerCausalVar\>\"", "]"}]}], 
   "}"}], 
  RowBox[{"(*", " ", 
   RowBox[{"OK", " ", "to", " ", "just", " ", "take", " ", 
    RowBox[{"IntegerPart", "?"}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.8854312475462694`*^9, 3.8854312720378866`*^9}, {
  3.885431302238159*^9, 3.885431329147146*^9}, {3.8854317479049788`*^9, 
  3.885431765329645*^9}},
 CellLabel->
  "In[352]:=",ExpressionUUID->"9febd7ae-fbe6-4976-997a-a5a8324c9502"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"adjacencyMtrx2Embed", "=", "\[IndentingNewLine]", 
   RowBox[{"<|", 
    RowBox[{
     RowBox[{
     "\"\<PearsonAbsOverPt1\>\"", "->", "mtrxPearsonAbsOverPt10Diag"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
     "\"\<KendallAbsOverPt1\>\"", "->", "mtrxKendallAbsOverPt10Diag"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<BivarCopula2Days\>\"", "->", 
      RowBox[{"IntegerPart", "@", 
       RowBox[{
       "adjacencyMtrxCopulaGranger", "[", "\"\<BivarCopula2Days\>\"", 
        "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<GrangerCausalVar\>\"", "->", 
      RowBox[{"IntegerPart", "@", 
       RowBox[{
       "adjacencyMtrxCopulaGranger", "[", "\"\<GrangerCausalVar\>\"", 
        "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<PearsonKendall\>\"", "->", 
      RowBox[{
      "mtrxPearsonAbsOverPt10Diag", "+", "mtrxKendallAbsOverPt10Diag"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
     "\"\<PearsonKendallCopulaGranger\>\"", "->", "\[IndentingNewLine]", 
      RowBox[{
      "mtrxPearsonAbsOverPt10Diag", "+", "mtrxKendallAbsOverPt10Diag", "+", 
       "\[IndentingNewLine]", 
       RowBox[{"IntegerPart", "@", 
        RowBox[{
        "adjacencyMtrxCopulaGranger", "[", "\"\<BivarCopula2Days\>\"", 
         "]"}]}], "+", "\[IndentingNewLine]", 
       RowBox[{"IntegerPart", "@", 
        RowBox[{
        "adjacencyMtrxCopulaGranger", "[", "\"\<GrangerCausalVar\>\"", 
         "]"}]}]}]}]}], "|>"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"nameAdjacency2Embed", "=", 
  RowBox[{"Keys", "@", "adjacencyMtrx2Embed"}]}]}], "Input",
 CellChangeTimes->{{3.8854275223664017`*^9, 3.8854276237127905`*^9}, 
   3.88542766164682*^9, {3.8854278051656675`*^9, 3.885427829640849*^9}, {
   3.88542787285266*^9, 3.885427907486921*^9}, 3.885428097917408*^9, {
   3.8854281525127497`*^9, 3.8854281691694307`*^9}, {3.8854282196893516`*^9, 
   3.885428303770131*^9}, {3.8854283575270348`*^9, 3.885428387837328*^9}, {
   3.8854286356474447`*^9, 3.885428665390682*^9}, {3.8854289561531987`*^9, 
   3.88542896931927*^9}, {3.8854298344460382`*^9, 3.8854298562135706`*^9}, {
   3.8854300370292625`*^9, 3.885430067983345*^9}, {3.8854301400300183`*^9, 
   3.8854301442262506`*^9}, {3.8854302262946224`*^9, 
   3.8854303242344913`*^9}, {3.885430367604854*^9, 3.8854304799875813`*^9}, {
   3.885430547869316*^9, 3.885430581596649*^9}, {3.885430996258464*^9, 
   3.8854310247837324`*^9}, {3.885431192945155*^9, 3.885431205366645*^9}, {
   3.8854320806989555`*^9, 3.8854320951136656`*^9}, {3.8854324513372126`*^9, 
   3.8854324530808516`*^9}},
 CellLabel->
  "In[353]:=",ExpressionUUID->"a3c24a23-51f0-4938-9f16-66252da188c8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Counts", "[", 
   RowBox[{"IntegerQ", "/@", 
    RowBox[{"Flatten", "@", 
     RowBox[{"Values", "@", "adjacencyMtrx2Embed"}]}]}], "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{"All", " ", 
    RowBox[{"integer", "?"}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.8854310594929667`*^9, 3.8854311827825613`*^9}, {
  3.885431771483576*^9, 3.885431783397993*^9}, {3.88543186515003*^9, 
  3.8854318655173182`*^9}},
 CellLabel->
  "In[355]:=",ExpressionUUID->"301e0b64-4b00-4c1d-ab65-263bef98ca33"],

Cell[BoxData[
 RowBox[{"Dimensions", "/@", "adjacencyMtrx2Embed", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"All", " ", "14"}], "-", "by", "-", 
    RowBox[{"14", " ", 
     RowBox[{"matrices", "?"}]}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.885430574981406*^9, 3.8854305899356127`*^9}, {
  3.885430641642544*^9, 3.8854306569333453`*^9}, {3.8854317935186996`*^9, 
  3.8854318019388657`*^9}, {3.8854318683821597`*^9, 3.885431869293642*^9}},
 CellLabel->
  "In[356]:=",ExpressionUUID->"8554e45b-8e9b-4c3b-b34d-3c1a7fba19c1"],

Cell[BoxData[
 RowBox[{"SymmetricMatrixQ", "/@", "adjacencyMtrx2Embed"}]], "Input",
 CellChangeTimes->{{3.885432231002033*^9, 3.8854322362101717`*^9}, 
   3.8854322708841343`*^9},
 CellLabel->
  "In[357]:=",ExpressionUUID->"cd2b905b-c36f-4398-a447-bba8ab051a56"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Total", "[", 
    RowBox[{"Diagonal", "[", "#", "]"}], "]"}], "&"}], "/@", 
  "adjacencyMtrx2Embed", 
  RowBox[{"(*", " ", 
   RowBox[{"All", " ", 
    RowBox[{"w", "/", " ", "zero"}], " ", 
    RowBox[{"diagonals", "?"}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.8854306041383386`*^9, 3.8854306273211155`*^9}, {
  3.8854318087626867`*^9, 3.8854318174623823`*^9}, {3.8854318723497133`*^9, 
  3.885431874455595*^9}},
 CellLabel->
  "In[358]:=",ExpressionUUID->"97b02b6f-d8c2-4e35-9a6a-2730d06199bc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Counts", "[", 
    RowBox[{"Flatten", "[", "#", "]"}], "]"}], "&"}], "/@", 
  "adjacencyMtrx2Embed", 
  RowBox[{"(*", " ", 
   RowBox[{"Values", " ", "each", " ", "cell", " ", "can", " ", "take", " ", 
    RowBox[{"on", "?"}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.885430668429823*^9, 3.8854307115942774`*^9}, {
  3.885431363180499*^9, 3.885431367518612*^9}, {3.8854318307886853`*^9, 
  3.8854318575845118`*^9}},
 CellLabel->
  "In[359]:=",ExpressionUUID->"3e6791eb-123a-4c73-90e6-37c0e3cdf7f8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"AssociationThread", "[", 
   RowBox[{"nameAdjacency2Embed", ",", "\[IndentingNewLine]", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Values", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Round", "[", 
          RowBox[{
           RowBox[{"N", "@", 
            FractionBox[
             RowBox[{"Total", "[", 
              RowBox[{"Flatten", "[", "#", "]"}], "]"}], 
             RowBox[{"14", 
              RowBox[{"(", 
               RowBox[{"14", "-", "1"}], ")"}]}]]}], ",", ".01"}], "]"}], 
         "&"}], "/@", 
        RowBox[{"adjacencyMtrx2Embed", "[", 
         RowBox[{"[", 
          RowBox[{";;", "4"}], "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"(*", " ", 
       RowBox[{"Value", " ", 
        RowBox[{"\"\<density\>\"", "?"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Round", "[", 
         RowBox[{
          RowBox[{"N", "@", 
           FractionBox[
            RowBox[{"Total", "@", 
             RowBox[{"Flatten", "@", 
              RowBox[{"adjacencyMtrx2Embed", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}]}], 
            RowBox[{"14", 
             RowBox[{"(", 
              RowBox[{"14", "-", "1"}], ")"}], "2"}]]}], ",", ".01"}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Round", "[", 
         RowBox[{
          RowBox[{"N", "@", 
           FractionBox[
            RowBox[{"Total", "@", 
             RowBox[{"Flatten", "@", 
              RowBox[{"adjacencyMtrx2Embed", "[", 
               RowBox[{"[", "6", "]"}], "]"}]}]}], 
            RowBox[{"14", 
             RowBox[{"(", 
              RowBox[{"14", "-", "1"}], ")"}], "4"}]]}], ",", ".01"}], 
         "]"}]}], "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.885430844430779*^9, 3.885430893948295*^9}, {
   3.885431373393839*^9, 3.885431391169491*^9}, {3.885431422995534*^9, 
   3.8854316115326214`*^9}, {3.88543165438969*^9, 3.88543169171014*^9}, {
   3.8854318831738057`*^9, 3.88543206089284*^9}, {3.8854321045589147`*^9, 
   3.885432114383825*^9}, 3.885432466127678*^9},
 CellLabel->
  "In[360]:=",ExpressionUUID->"c2306212-c658-42ec-9315-8da1a3d91921"]
}, Closed]],

Cell[CellGroupData[{

Cell["Generate Corresponding Graphs, Check Properties", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.853285703195363*^9, 
  3.8532857068838415`*^9}, {3.8532858437947817`*^9, 3.853285845227463*^9}, {
  3.8532858808764677`*^9, 3.8532859476042695`*^9}, {3.8799137381896243`*^9, 
  3.8799137768099627`*^9}, {3.885429492730332*^9, 3.8854295093160267`*^9}, {
  3.8854321505775805`*^9, 3.8854321779744987`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"5593f3a7-93ce-4df0-9c19-7dc7db6aaa15"],

Cell[BoxData[
 RowBox[{"adjacencyGraph2Embed", "=", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"AdjacencyGraph", "/@", 
     RowBox[{"adjacencyMtrx2Embed", "[", 
      RowBox[{"[", 
       RowBox[{";;", "4"}], "]"}], "]"}]}], ",", 
    RowBox[{"WeightedAdjacencyGraph", "/@", 
     RowBox[{"adjacencyMtrx2Embed", "[", 
      RowBox[{"[", 
       RowBox[{"5", ";;"}], "]"}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8854321950718923`*^9, 3.885432202774023*^9}},
 CellLabel->
  "In[361]:=",ExpressionUUID->"2d0f8317-d22d-43f6-bdc1-deb8ba4e8b0c"],

Cell[BoxData[
 RowBox[{"DirectedGraphQ", "/@", "adjacencyGraph2Embed"}]], "Input",
 CellChangeTimes->{{3.8854322467928886`*^9, 3.885432250592916*^9}},
 CellLabel->
  "In[362]:=",ExpressionUUID->"7f7d57a0-718a-40c4-83a6-3a837a2fe140"],

Cell[BoxData[
 RowBox[{"GraphPlot3D", "/@", "adjacencyGraph2Embed"}]], "Input",
 CellChangeTimes->{{3.885432296896484*^9, 3.8854323223717394`*^9}},
 CellLabel->
  "In[363]:=",ExpressionUUID->"f8f331b2-58b5-4372-8487-d52ebb965327"],

Cell[BoxData[
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewGraph", "[", 
  RowBox[{
   RowBox[{"adjacencyGraph2Embed", "[", 
    RowBox[{"[", 
     RowBox[{";;", "4"}], "]"}], "]"}], ",", "vertexNumberLabel"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.885617316549755*^9, 3.885617342666644*^9}, 
   3.8856221316452217`*^9, {3.8856222410031967`*^9, 3.8856222432620273`*^9}},
 CellLabel->
  "In[364]:=",ExpressionUUID->"e4e9107d-e5f7-4312-8ee9-76224b6a15cd"]
}, Closed]],

Cell[CellGroupData[{

Cell["Import Graph Embeddings", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.8851918571584444`*^9, 
  3.885191862144619*^9}, {3.885622344443066*^9, 3.885622349754706*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"e72dd7ad-c05d-4bfb-9f6f-148d732fdf5f"],

Cell[BoxData[{
 RowBox[{"Dimensions", "[", 
  RowBox[{"dataGraphEmbeddingN2VP", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
    "INPUTDIR0", "<>", "\"\<(input)GraphEmbedding-Node2vec+.xlsx\>\""}], 
    "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", 
  RowBox[{"dataGraphEmbeddingHDMI", "=", 
   RowBox[{
    RowBox[{"Import", "[", 
     RowBox[{"INPUTDIR0", "<>", "\"\<(input)GraphEmbedding-HDMI.xlsx\>\""}], 
     "]"}], "[", 
    RowBox[{"[", 
     RowBox[{";;", "2"}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"experimentN2VP", "=", 
  RowBox[{"Import", "[", 
   RowBox[{
    RowBox[{
    "INPUTDIR0", "<>", "\"\<(input)GraphEmbedding-Node2vec+.xlsx\>\""}], ",", 
    "\"\<Sheets\>\""}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"experimentHDMI", "=", 
  RowBox[{
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"INPUTDIR0", "<>", "\"\<(input)GraphEmbedding-HDMI.xlsx\>\""}], 
     ",", "\"\<Sheets\>\""}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{";;", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.885191878598819*^9, 3.8851918873634834`*^9}, {
   3.8851920026401877`*^9, 3.88519204328871*^9}, {3.8851926262862787`*^9, 
   3.8851926532623034`*^9}, {3.8851927196422443`*^9, 3.8851927487722826`*^9}, 
   3.8851931987856874`*^9, {3.8851953012043467`*^9, 3.885195308760246*^9}, {
   3.885195355780134*^9, 3.885195362970765*^9}, {3.8851953982885423`*^9, 
   3.885195400008724*^9}, {3.885358355972484*^9, 3.8853583581473184`*^9}, {
   3.885358409890225*^9, 3.8853584102736287`*^9}, {3.8853584445109963`*^9, 
   3.8853584450139694`*^9}, {3.8854287543730984`*^9, 
   3.8854287817457542`*^9}, {3.8854290399657135`*^9, 3.885429043569883*^9}, {
   3.8854291778906293`*^9, 3.885429207665306*^9}, {3.8856223586279907`*^9, 
   3.885622364431381*^9}, {3.8856224068588667`*^9, 3.8856224262373114`*^9}, {
   3.885622483989807*^9, 3.885622499297534*^9}, {3.885622762644639*^9, 
   3.88562277156559*^9}, {3.8856268916089993`*^9, 3.8856269611895313`*^9}, {
   3.885627342927388*^9, 3.8856273431472235`*^9}, {3.8856273843615894`*^9, 
   3.8856274109560757`*^9}, {3.8856340733538065`*^9, 
   3.8856340797380996`*^9}, {3.885784323841365*^9, 3.885784336292283*^9}, {
   3.885784606128978*^9, 3.8857846203055677`*^9}, {3.885784650365594*^9, 
   3.8857846523203783`*^9}},
 CellLabel->
  "In[365]:=",ExpressionUUID->"7cce7111-6e02-4167-a15c-5ee0eec60410"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"varName", "==", "#"}], "&"}], "/@", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"dataGraphEmbeddingN2VP", "[", 
        RowBox[{"[", 
         RowBox[{"#", ",", "1", ",", 
          RowBox[{"2", ";;", "15"}]}], "]"}], "]"}], "&"}], "/@", 
      RowBox[{"Range", "[", "4", "]"}]}], ")"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"varName", "==", "#"}], "&"}], "/@", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"dataGraphEmbeddingHDMI", "[", 
        RowBox[{"[", 
         RowBox[{"#", ",", "1", ",", 
          RowBox[{"2", ";;", "15"}]}], "]"}], "]"}], "&"}], "/@", 
      RowBox[{"Range", "[", "2", "]"}]}], ")"}]}]}], "}"}]], "Input",
 CellChangeTimes->{{3.885358521448407*^9, 3.8853586311207137`*^9}, 
   3.8854287882023354`*^9, 3.8854290482775884`*^9, 3.8854292176850405`*^9, {
   3.8856261222854776`*^9, 3.8856262226356144`*^9}},
 CellLabel->
  "In[369]:=",ExpressionUUID->"643366ee-f51b-4446-bde3-536ef55d27bd"],

Cell[BoxData[{
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Dimensions", "@", 
    RowBox[{"Values", "[", 
     RowBox[{"graphEmbedded2DN2VP", "=", 
      RowBox[{"AssociationThread", "[", 
       RowBox[{"experimentN2VP", ",", 
        RowBox[{"dataGraphEmbeddingN2VP", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", 
           RowBox[{"2", ";;", "15"}], ",", 
           RowBox[{"16", ";;", "17"}]}], "]"}], "]"}]}], "]"}]}], "]"}]}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"Dimensions", "@", 
    RowBox[{"Values", "[", 
     RowBox[{"graphEmbedded3DN2VP", "=", 
      RowBox[{"AssociationThread", "[", 
       RowBox[{"experimentN2VP", ",", 
        RowBox[{"dataGraphEmbeddingN2VP", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", 
           RowBox[{"2", ";;", "15"}], ",", 
           RowBox[{"18", ";;", "20"}]}], "]"}], "]"}]}], "]"}]}], "]"}]}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"Dimensions", "@", 
    RowBox[{"Values", "[", 
     RowBox[{"graphEmbedded2DHDMI", "=", 
      RowBox[{"AssociationThread", "[", 
       RowBox[{"experimentHDMI", ",", 
        RowBox[{"dataGraphEmbeddingHDMI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", 
           RowBox[{"2", ";;", "15"}], ",", 
           RowBox[{"16", ";;", "17"}]}], "]"}], "]"}]}], "]"}]}], "]"}]}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"Dimensions", "@", 
    RowBox[{"Values", "[", 
     RowBox[{"graphEmbedded3DHDMI", "=", 
      RowBox[{"AssociationThread", "[", 
       RowBox[{"experimentHDMI", ",", 
        RowBox[{"dataGraphEmbeddingHDMI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", 
           RowBox[{"2", ";;", "15"}], ",", 
           RowBox[{"18", ";;", "20"}]}], "]"}], "]"}]}], "]"}]}], "]"}]}]}], 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"graphEmbedded2D", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"graphEmbedded2DN2VP", ",", "graphEmbedded2DHDMI"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"graphEmbedded3D", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"graphEmbedded3DN2VP", ",", "graphEmbedded3DHDMI"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8856272320997562`*^9, 3.8856272995534286`*^9}, {
   3.885627362487947*^9, 3.88562736622642*^9}, {3.885627438987239*^9, 
   3.8856274465073757`*^9}, {3.8856274788115716`*^9, 
   3.8856274793464327`*^9}, {3.8856275101696177`*^9, 
   3.8856275622069955`*^9}, {3.88562760601579*^9, 3.885627641638769*^9}, {
   3.8856276783502426`*^9, 3.885627724921445*^9}, {3.8856278501126876`*^9, 
   3.885627907463744*^9}, {3.88562794173547*^9, 3.8856279545691495`*^9}, {
   3.8856301908796244`*^9, 3.8856301914923773`*^9}, {3.885630279842928*^9, 
   3.8856303502954755`*^9}, {3.88563044489087*^9, 3.885630448853743*^9}, {
   3.8856305659827642`*^9, 3.88563056635439*^9}, 3.8856340939022026`*^9, {
   3.885784699463741*^9, 3.885784753321044*^9}},
 CellLabel->
  "In[370]:=",ExpressionUUID->"5a02d923-2b7b-45a6-b404-dee4c6d13d90"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Dimensions", "/@", 
    RowBox[{"Values", "[", "\[IndentingNewLine]", 
     RowBox[{"adjacencyMtrxN2VP", "=", 
      RowBox[{"AssociationThread", "[", 
       RowBox[{"experimentN2VP", ",", 
        RowBox[{"IntegerPart", "@", 
         RowBox[{"dataGraphEmbeddingN2VP", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", 
            RowBox[{"2", ";;", "15"}], ",", 
            RowBox[{"2", ";;", "15"}]}], "]"}], "]"}]}]}], "]"}]}], "]"}]}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"Dimensions", "/@", 
    RowBox[{"Values", "[", "\[IndentingNewLine]", 
     RowBox[{"adjacencyMtrxHDMI", "=", 
      RowBox[{"<|", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"experimentHDMI", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "->", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"IntegerPart", "@", 
           RowBox[{"dataGraphEmbeddingHDMI", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", 
              RowBox[{"2", ";;", "15"}], ",", 
              RowBox[{"2", ";;", "15"}]}], "]"}], "]"}]}], "+", 
          "\[IndentingNewLine]", 
          RowBox[{"IntegerPart", "@", 
           RowBox[{"dataGraphEmbeddingHDMI", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", 
              RowBox[{"17", ";;", "30"}], ",", 
              RowBox[{"2", ";;", "15"}]}], "]"}], "]"}]}]}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"experimentHDMI", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "->", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"IntegerPart", "@", 
           RowBox[{"dataGraphEmbeddingHDMI", "[", 
            RowBox[{"[", 
             RowBox[{"2", ",", 
              RowBox[{"2", ";;", "15"}], ",", 
              RowBox[{"2", ";;", "15"}]}], "]"}], "]"}]}], "+", 
          "\[IndentingNewLine]", 
          RowBox[{"IntegerPart", "@", 
           RowBox[{"dataGraphEmbeddingHDMI", "[", 
            RowBox[{"[", 
             RowBox[{"2", ",", 
              RowBox[{"17", ";;", "30"}], ",", 
              RowBox[{"2", ";;", "15"}]}], "]"}], "]"}]}], "+", 
          "\[IndentingNewLine]", 
          RowBox[{"IntegerPart", "@", 
           RowBox[{"dataGraphEmbeddingHDMI", "[", 
            RowBox[{"[", 
             RowBox[{"2", ",", 
              RowBox[{"32", ";;", "45"}], ",", 
              RowBox[{"2", ";;", "15"}]}], "]"}], "]"}]}], "+", 
          "\[IndentingNewLine]", 
          RowBox[{"IntegerPart", "@", 
           RowBox[{"dataGraphEmbeddingHDMI", "[", 
            RowBox[{"[", 
             RowBox[{"2", ",", 
              RowBox[{"47", ";;", "60"}], ",", 
              RowBox[{"2", ";;", "15"}]}], "]"}], "]"}]}]}]}]}], "|>"}]}], 
     "]"}]}]}], "}"}]], "Input",
 CellChangeTimes->{{3.885630469309435*^9, 3.8856305571621466`*^9}, {
  3.8856306067267227`*^9, 3.8856306386228514`*^9}, {3.8856306698888283`*^9, 
  3.885630759964416*^9}, {3.885630820409664*^9, 3.885630859085444*^9}, {
  3.885633778030676*^9, 3.8856337889685802`*^9}, {3.88563383784656*^9, 
  3.8856339452342033`*^9}, {3.8857842820165014`*^9, 3.885784306632019*^9}, {
  3.885784852146832*^9, 3.885784859890154*^9}},
 CellLabel->
  "In[373]:=",ExpressionUUID->"16d73568-6c80-4187-8a3f-f8dc2a5fce19"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"adjacencyGraphN2VP", "=", 
   RowBox[{"AdjacencyGraph", "/@", "adjacencyMtrxN2VP"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"adjacencyGraphHDMI", "=", 
   RowBox[{"WeightedAdjacencyGraph", "/@", "adjacencyMtrxHDMI"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8857844762098694`*^9, 3.885784515245913*^9}, {
  3.8857922372120514`*^9, 3.8857922389039164`*^9}},
 CellLabel->
  "In[374]:=",ExpressionUUID->"95d0b2fb-5cfb-4e43-94c7-97f3783cfc57"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{"adjacencyMtrxN2VP", ",", "adjacencyMtrxHDMI"}], "]"}], "==", 
    "adjacencyMtrx2Embed"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{"adjacencyGraphN2VP", ",", "adjacencyGraphHDMI"}], "]"}], "==", 
    "adjacencyGraph2Embed"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.885784909529537*^9, 3.885784912363493*^9}, {
  3.8857922623485785`*^9, 3.8857922898947153`*^9}},
 CellLabel->
  "In[376]:=",ExpressionUUID->"d812630b-ffb3-4c5f-8ca1-eba05160f651"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Dimensions", "/@", 
    RowBox[{"Values", "[", "\[IndentingNewLine]", 
     RowBox[{"attributeMonoplex", "=", "adjacencyMtrxN2VP"}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Dimensions", "/@", 
    RowBox[{"Values", "[", "\[IndentingNewLine]", 
     RowBox[{"attributeMultiplex", "=", 
      RowBox[{"<|", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"experimentHDMI", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "->", 
         RowBox[{"Join", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"IntegerPart", "@", 
            RowBox[{"dataGraphEmbeddingHDMI", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", 
               RowBox[{"2", ";;", "15"}], ",", 
               RowBox[{"2", ";;", "15"}]}], "]"}], "]"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"IntegerPart", "@", 
            RowBox[{"dataGraphEmbeddingHDMI", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", 
               RowBox[{"17", ";;", "30"}], ",", 
               RowBox[{"2", ";;", "15"}]}], "]"}], "]"}]}], ",", "2"}], 
          "]"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"experimentHDMI", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "->", 
         RowBox[{"Join", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"IntegerPart", "@", 
            RowBox[{"dataGraphEmbeddingHDMI", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", 
               RowBox[{"2", ";;", "15"}], ",", 
               RowBox[{"2", ";;", "15"}]}], "]"}], "]"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"IntegerPart", "@", 
            RowBox[{"dataGraphEmbeddingHDMI", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", 
               RowBox[{"17", ";;", "30"}], ",", 
               RowBox[{"2", ";;", "15"}]}], "]"}], "]"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"IntegerPart", "@", 
            RowBox[{"dataGraphEmbeddingHDMI", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", 
               RowBox[{"32", ";;", "45"}], ",", 
               RowBox[{"2", ";;", "15"}]}], "]"}], "]"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"IntegerPart", "@", 
            RowBox[{"dataGraphEmbeddingHDMI", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", 
               RowBox[{"47", ";;", "60"}], ",", 
               RowBox[{"2", ";;", "15"}]}], "]"}], "]"}]}], ",", "2"}], 
          "]"}]}]}], "|>"}]}], "]"}]}]}], "}"}]], "Input",
 CellChangeTimes->{{3.885630469309435*^9, 3.8856305571621466`*^9}, {
   3.8856306067267227`*^9, 3.8856306386228514`*^9}, {3.8856306698888283`*^9, 
   3.885630759964416*^9}, {3.885630820409664*^9, 3.885630859085444*^9}, 
   3.8856338263507495`*^9, {3.8856341202435474`*^9, 3.885634130218911*^9}, {
   3.885784289291712*^9, 3.8857842993802395`*^9}, {3.885784834645792*^9, 
   3.885784846559454*^9}},
 CellLabel->
  "In[377]:=",ExpressionUUID->"680a9b46-d01b-4068-95c8-834bd11b88e6"]
}, Closed]],

Cell[CellGroupData[{

Cell["Dimensionality Reduction", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.8851918571584444`*^9, 
  3.885191862144619*^9}, {3.885622344443066*^9, 3.885622349754706*^9}, {
  3.885627022925627*^9, 3.8856270405220222`*^9}, {3.8856280390797467`*^9, 
  3.8856280433553925`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"97ac42de-8dc9-43e4-8fab-c18407a9d232"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dimReduced2DMonoplex", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<Linear\>\"", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"DimensionReduce", "[", 
          RowBox[{"#", ",", 
           RowBox[{"Method", "->", "\"\<Linear\>\""}]}], "]"}], "&"}], "/@", 
        "attributeMonoplex"}], ")"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<TSNE\>\"", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"DimensionReduce", "[", 
          RowBox[{"#", ",", 
           RowBox[{"Method", "->", "\"\<TSNE\>\""}]}], "]"}], "&"}], "/@", 
        "attributeMonoplex"}], ")"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Autoencoder\>\"", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"DimensionReduce", "[", 
          RowBox[{"#", ",", 
           RowBox[{"Method", "->", "\"\<Autoencoder\>\""}]}], "]"}], "&"}], "/@",
         "attributeMonoplex"}], ")"}]}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dimReduced3DMonoplex", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<Linear\>\"", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"DimensionReduce", "[", 
          RowBox[{"#", ",", "3", ",", 
           RowBox[{"Method", "->", "\"\<Linear\>\""}]}], "]"}], "&"}], "/@", 
        "attributeMonoplex"}], ")"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<TSNE\>\"", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"DimensionReduce", "[", 
          RowBox[{"#", ",", "3", ",", 
           RowBox[{"Method", "->", "\"\<TSNE\>\""}]}], "]"}], "&"}], "/@", 
        "attributeMonoplex"}], ")"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Autoencoder\>\"", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"DimensionReduce", "[", 
          RowBox[{"#", ",", "3", ",", 
           RowBox[{"Method", "->", "\"\<Autoencoder\>\""}]}], "]"}], "&"}], "/@",
         "attributeMonoplex"}], ")"}]}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dimReduced2DMultiplex", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<Linear\>\"", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"DimensionReduce", "[", 
          RowBox[{"#", ",", 
           RowBox[{"Method", "->", "\"\<Linear\>\""}]}], "]"}], "&"}], "/@", 
        "attributeMultiplex"}], ")"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<TSNE\>\"", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"DimensionReduce", "[", 
          RowBox[{"#", ",", 
           RowBox[{"Method", "->", "\"\<TSNE\>\""}]}], "]"}], "&"}], "/@", 
        "attributeMultiplex"}], ")"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Autoencoder\>\"", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"DimensionReduce", "[", 
          RowBox[{"#", ",", 
           RowBox[{"Method", "->", "\"\<Autoencoder\>\""}]}], "]"}], "&"}], "/@",
         "attributeMultiplex"}], ")"}]}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dimReduced3DMultiplex", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<Linear\>\"", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"DimensionReduce", "[", 
          RowBox[{"#", ",", "3", ",", 
           RowBox[{"Method", "->", "\"\<Linear\>\""}]}], "]"}], "&"}], "/@", 
        "attributeMultiplex"}], ")"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<TSNE\>\"", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"DimensionReduce", "[", 
          RowBox[{"#", ",", "3", ",", 
           RowBox[{"Method", "->", "\"\<TSNE\>\""}]}], "]"}], "&"}], "/@", 
        "attributeMultiplex"}], ")"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Autoencoder\>\"", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"DimensionReduce", "[", 
          RowBox[{"#", ",", "3", ",", 
           RowBox[{"Method", "->", "\"\<Autoencoder\>\""}]}], "]"}], "&"}], "/@",
         "attributeMultiplex"}], ")"}]}]}], "|>"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.885628166872698*^9, 3.8856282211146345`*^9}, {
  3.885628310628297*^9, 3.885628504787468*^9}, {3.885628575828296*^9, 
  3.885628656547522*^9}, {3.885628841496868*^9, 3.885628898271968*^9}, {
  3.885628954502016*^9, 3.885628955260661*^9}, {3.885630894251175*^9, 
  3.885630924200696*^9}, {3.8856363710568724`*^9, 3.8856363774792976`*^9}},
 CellLabel->
  "In[378]:=",ExpressionUUID->"13704b47-d2e8-4a48-9b2e-7279ce7ab020"]
}, Closed]],

Cell[CellGroupData[{

Cell["Static Visualisation", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.8851918571584444`*^9, 
  3.885191862144619*^9}, {3.885622344443066*^9, 3.885622349754706*^9}, {
  3.885627022925627*^9, 3.8856270405220222`*^9}, {3.8856280390797467`*^9, 
  3.8856280433553925`*^9}, {3.885792487551528*^9, 3.8857924909092765`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"472cc0c3-e4ff-49f4-b236-0c015abda90c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacencyEmbedding", "[", 
   RowBox[{"adjacencyMtrx_", ",", "labelVertices_", ",", 
    RowBox[{"(*", 
     RowBox[{"coord2D_", ","}], "*)"}], "coord3D_", ",", "adjacency_", ",", 
    "titleView_", ",", "\[IndentingNewLine]", "sizeVertex_", ",", 
    "sizeImage_"}], "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"Grid", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "Bold", ",", 
          TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
           "RGBColorSwatchTemplate"]}], "]"}], "&"}], "/@", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"titleView", "<>", "\"\< - MatrixPlot\>\""}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"titleView", "<>", "\"\< - GraphPlot\>\""}], ","}], "*)"}],
          "\[IndentingNewLine]", 
         RowBox[{"titleView", "<>", "\"\< - GraphPlot3D\>\""}]}], "}"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"MatrixPlot", "[", 
         RowBox[{
          RowBox[{"adjacencyMtrx", "[", "adjacency", "]"}], ",", 
          RowBox[{"Mesh", "->", "All"}], ",", 
          RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"ListPlot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"coord2D", "[", "adjacency", "]"}], "->", 
             RowBox[{"Values", "@", "labelVertices"}]}], ",", 
            RowBox[{"PlotTheme", "->", "\"\<Marketing\>\""}], ",", 
            RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}], ","}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"ListPointPlot3D", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"coord3D", "[", "adjacency", "]"}], "->", 
           RowBox[{"Values", "@", "labelVertices"}]}], ",", 
          RowBox[{"PlotTheme", "->", "\"\<Detailed\>\""}], ",", 
          RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}], ",", 
    RowBox[{"Frame", "->", "All"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8854323837224336`*^9, 3.8854323945379333`*^9}, {
   3.885432473206624*^9, 3.885432900561945*^9}, {3.885432960310556*^9, 
   3.885433006629282*^9}, {3.8854331115207305`*^9, 3.885433152491764*^9}, {
   3.8854332038892174`*^9, 3.885433258860891*^9}, {3.88543331837998*^9, 
   3.8854333432870336`*^9}, {3.885433377993168*^9, 3.8854337051366687`*^9}, {
   3.885433753433678*^9, 3.885433798633258*^9}, {3.885433856498012*^9, 
   3.8854338668942785`*^9}, {3.8854339035383606`*^9, 
   3.8854340491564035`*^9}, {3.885434086260288*^9, 3.885434201717524*^9}, {
   3.8854342520559497`*^9, 3.885434400087387*^9}, {3.8854344333119497`*^9, 
   3.8854345374710536`*^9}, {3.885434598999384*^9, 3.8854346443663273`*^9}, {
   3.88543469302448*^9, 3.8854348803781557`*^9}, {3.8854349285567403`*^9, 
   3.8854349344225435`*^9}, {3.885435188257352*^9, 3.885435195761675*^9}, 
   3.8854352306022406`*^9, {3.88543538119468*^9, 3.8854355559258947`*^9}, 
   3.8854362279653454`*^9, {3.8856061104982395`*^9, 3.885606191885829*^9}, {
   3.8856064354855294`*^9, 3.885606437686078*^9}, 3.8856064814036894`*^9, 
   3.885606566270522*^9, {3.885606914010069*^9, 3.885606914786411*^9}, {
   3.8856070146422977`*^9, 3.885607083917487*^9}, {3.8856327671490326`*^9, 
   3.8856328159615707`*^9}, {3.8856342293621864`*^9, 3.885634231447603*^9}, {
   3.885774511889037*^9, 3.8857745185972958`*^9}, {3.8857746352851114`*^9, 
   3.885774727600442*^9}, {3.8857747606696544`*^9, 3.885774918915951*^9}, {
   3.8857749662488155`*^9, 3.8857750186403666`*^9}, {3.8857769431774316`*^9, 
   3.8857769476321507`*^9}, 3.885777046918995*^9, {3.885777119493822*^9, 
   3.8857771225338492`*^9}, {3.8857771551678314`*^9, 3.885777319221496*^9}, {
   3.88577735374942*^9, 3.8857774844999075`*^9}, {3.88577752398254*^9, 
   3.8857775604793215`*^9}, 3.8857779377872734`*^9, 3.8857780038252506`*^9, {
   3.885785372426158*^9, 3.8857853732257323`*^9}, 3.8857854075851603`*^9, {
   3.88578544853462*^9, 3.8857854512850065`*^9}, {3.8857855229558353`*^9, 
   3.885785547590774*^9}, {3.8857863591794395`*^9, 3.885786375109671*^9}, 
   3.885786506168326*^9, {3.8857879998401337`*^9, 3.885788028971726*^9}, {
   3.8857994939354525`*^9, 3.885799503781028*^9}, {3.885953833652603*^9, 
   3.8859538728175387`*^9}, {3.8859539147109776`*^9, 
   3.8859539748029785`*^9}, {3.885954029424847*^9, 3.8859540518207965`*^9}, {
   3.885954110742976*^9, 3.8859541118299255`*^9}, 3.885954244634142*^9, {
   3.8859543500395107`*^9, 3.8859544063231697`*^9}, {3.885954750011799*^9, 
   3.8859548139349437`*^9}, {3.8859571578309383`*^9, 3.885957185962888*^9}, {
   3.885957338970093*^9, 3.885957380307788*^9}, {3.8859574267451763`*^9, 
   3.8859575631981354`*^9}, {3.8859576032542734`*^9, 3.88595765904359*^9}, {
   3.8861121774537916`*^9, 3.886112182274702*^9}, {3.8861124015771284`*^9, 
   3.886112411682664*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[382]:=",ExpressionUUID->"b1280227-a492-457e-a4a2-d62c485b28c3"],

Cell[BoxData[
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacencyEmbedding", "[", 
  RowBox[{"adjacencyMtrxN2VP", ",", "vertexNumberLabel", ",", 
   RowBox[{"(*", 
    RowBox[{"graphEmbedded2DN2VP", ","}], "*)"}], "graphEmbedded3DN2VP", ",", 
   "\[IndentingNewLine]", "\"\<GrangerCausalVar\>\"", ",", 
   "\"\<GrangerCausalVar\>\"", ",", "VERTEXSIZE0", ",", "Small"}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.8859542339155254`*^9, {3.886112422690834*^9, 3.88611242684064*^9}, {
   3.88775662385373*^9, 3.887756624973303*^9}, {3.887756679794806*^9, 
   3.8877566820018034`*^9}},
 CellLabel->
  "In[383]:=",ExpressionUUID->"165e9e81-e59a-4f01-bcab-8e2f89c77e25"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotEmbeddedAdjacency", "[", 
   RowBox[{
   "adjacencyMtrx_", ",", "adjacencyGraph_", ",", "labelVertices_", ",", 
    RowBox[{"(*", 
     RowBox[{"coord2D_", ","}], "*)"}], "coord3D_", ",", "adjacency_", ",", 
    "titleView_", ",", "\[IndentingNewLine]", "sizeVertex_", ",", 
    "sizeImage_"}], "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"Grid", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "Bold", ",", 
          TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
           "RGBColorSwatchTemplate"]}], "]"}], "&"}], "/@", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"titleView", "<>", "\"\< - MatrixPlot\>\""}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"titleView", "<>", "\"\< - GraphPlot\>\""}], ","}], "*)"}],
          "\[IndentingNewLine]", 
         RowBox[{"titleView", "<>", "\"\< - GraphPlot3D\>\""}]}], "}"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"MatrixPlot", "[", 
         RowBox[{
          RowBox[{"adjacencyMtrx", "[", "adjacency", "]"}], ",", 
          RowBox[{"Mesh", "->", "All"}], ",", 
          RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"GraphPlot", "[", 
           RowBox[{
            RowBox[{"adjacencyGraph", "[", "adjacency", "]"}], ",", 
            RowBox[{"VertexLabels", "->", "labelVertices"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"VertexCoordinates", "->", 
             RowBox[{"coord2D", "[", "adjacency", "]"}]}], ",", 
            RowBox[{"VertexSize", "->", "sizeVertex"}], ",", 
            RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}], ","}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"GraphPlot3D", "[", 
         RowBox[{
          RowBox[{"adjacencyGraph", "[", "adjacency", "]"}], ",", 
          RowBox[{"VertexLabels", "->", "labelVertices"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"VertexCoordinates", "->", 
           RowBox[{"coord3D", "[", "adjacency", "]"}]}], ",", 
          RowBox[{"VertexSize", "->", "sizeVertex"}], ",", 
          RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}], ",", 
    RowBox[{"Frame", "->", "All"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8854323837224336`*^9, 3.8854323945379333`*^9}, {
   3.885432473206624*^9, 3.885432900561945*^9}, {3.885432960310556*^9, 
   3.885433006629282*^9}, {3.8854331115207305`*^9, 3.885433152491764*^9}, {
   3.8854332038892174`*^9, 3.885433258860891*^9}, {3.88543331837998*^9, 
   3.8854333432870336`*^9}, {3.885433377993168*^9, 3.8854337051366687`*^9}, {
   3.885433753433678*^9, 3.885433798633258*^9}, {3.885433856498012*^9, 
   3.8854338668942785`*^9}, {3.8854339035383606`*^9, 
   3.8854340491564035`*^9}, {3.885434086260288*^9, 3.885434201717524*^9}, {
   3.8854342520559497`*^9, 3.885434400087387*^9}, {3.8854344333119497`*^9, 
   3.8854345374710536`*^9}, {3.885434598999384*^9, 3.8854346443663273`*^9}, {
   3.88543469302448*^9, 3.8854348803781557`*^9}, {3.8854349285567403`*^9, 
   3.8854349344225435`*^9}, {3.885435188257352*^9, 3.885435195761675*^9}, 
   3.8854352306022406`*^9, {3.88543538119468*^9, 3.8854355559258947`*^9}, 
   3.8854362279653454`*^9, {3.8856061104982395`*^9, 3.885606191885829*^9}, {
   3.8856064354855294`*^9, 3.885606437686078*^9}, 3.8856064814036894`*^9, 
   3.885606566270522*^9, {3.885606914010069*^9, 3.885606914786411*^9}, {
   3.8856070146422977`*^9, 3.885607083917487*^9}, {3.8856327671490326`*^9, 
   3.8856328159615707`*^9}, {3.8856342293621864`*^9, 3.885634231447603*^9}, {
   3.885774511889037*^9, 3.8857745185972958`*^9}, {3.8857746352851114`*^9, 
   3.885774727600442*^9}, {3.8857747606696544`*^9, 3.885774918915951*^9}, {
   3.8857749662488155`*^9, 3.8857750186403666`*^9}, {3.8857769431774316`*^9, 
   3.8857769476321507`*^9}, 3.885777046918995*^9, {3.885777119493822*^9, 
   3.8857771225338492`*^9}, {3.8857771551678314`*^9, 3.885777319221496*^9}, {
   3.88577735374942*^9, 3.8857774844999075`*^9}, {3.88577752398254*^9, 
   3.8857775604793215`*^9}, 3.8857779377872734`*^9, 3.8857780038252506`*^9, {
   3.885785372426158*^9, 3.8857853732257323`*^9}, 3.8857854075851603`*^9, {
   3.88578544853462*^9, 3.8857854512850065`*^9}, {3.8857855229558353`*^9, 
   3.885785547590774*^9}, {3.8857863591794395`*^9, 3.885786375109671*^9}, 
   3.885786506168326*^9, {3.8857879998401337`*^9, 3.885788028971726*^9}, {
   3.8857994939354525`*^9, 3.885799503781028*^9}, {3.885953833652603*^9, 
   3.8859538728175387`*^9}, {3.8861124648245583`*^9, 3.8861124838023953`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[384]:=",ExpressionUUID->"3d275a91-54b9-4079-90c0-a51315e44832"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotEmbeddedAdjacencyMtrx", "[", 
   RowBox[{"adjacencyMtrx_", ",", "labelVertices_", ",", 
    RowBox[{"(*", 
     RowBox[{"coord2D_", ","}], "*)"}], "coord3D_", ",", "adjacency_", ",", 
    RowBox[{
    "titleView_", ":", 
     "\"\<\[ScriptCapitalP]\[ScriptCapitalN]PlotEmbeddedAdjacency\>\""}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"sizeVertex_", ":", "VERTEXSIZE0"}], ",", 
    RowBox[{"sizeImage_", ":", "IMAGESIZE0"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotEmbeddedAdjacency", "[", 
   RowBox[{"adjacencyMtrx", ",", 
    RowBox[{"AdjacencyGraph", "/@", "adjacencyMtrx"}], ",", "labelVertices", 
    ",", 
    RowBox[{"(*", 
     RowBox[{"coord2D", ","}], "*)"}], "coord3D", ",", "adjacency", ",", 
    "titleView", ",", "\[IndentingNewLine]", "sizeVertex", ",", "sizeImage"}],
    "]"}]}]], "Input",
 CellChangeTimes->{{3.8854323837224336`*^9, 3.8854323945379333`*^9}, {
   3.885432473206624*^9, 3.885432900561945*^9}, {3.885432960310556*^9, 
   3.885433006629282*^9}, {3.8854331115207305`*^9, 3.885433152491764*^9}, {
   3.8854332038892174`*^9, 3.885433258860891*^9}, {3.88543331837998*^9, 
   3.8854333432870336`*^9}, {3.885433377993168*^9, 3.8854337051366687`*^9}, {
   3.885433753433678*^9, 3.885433798633258*^9}, {3.885433856498012*^9, 
   3.8854338668942785`*^9}, {3.8854339035383606`*^9, 
   3.8854340491564035`*^9}, {3.885434086260288*^9, 3.885434201717524*^9}, {
   3.8854342520559497`*^9, 3.885434400087387*^9}, {3.8854344333119497`*^9, 
   3.8854345374710536`*^9}, {3.885434598999384*^9, 3.8854346443663273`*^9}, {
   3.88543469302448*^9, 3.8854348803781557`*^9}, {3.8854349285567403`*^9, 
   3.8854349344225435`*^9}, {3.885435188257352*^9, 3.885435195761675*^9}, 
   3.8854352306022406`*^9, {3.88543538119468*^9, 3.8854355559258947`*^9}, 
   3.8854362279653454`*^9, {3.8856061104982395`*^9, 3.885606191885829*^9}, {
   3.8856064354855294`*^9, 3.885606437686078*^9}, 3.8856064814036894`*^9, 
   3.885606566270522*^9, {3.885606914010069*^9, 3.885606914786411*^9}, {
   3.8856070146422977`*^9, 3.885607083917487*^9}, {3.8856327671490326`*^9, 
   3.8856328159615707`*^9}, {3.8856342293621864`*^9, 3.885634231447603*^9}, {
   3.885774511889037*^9, 3.8857745185972958`*^9}, {3.8857746352851114`*^9, 
   3.885774727600442*^9}, {3.8857747606696544`*^9, 3.885774918915951*^9}, {
   3.8857749662488155`*^9, 3.8857750186403666`*^9}, {3.8857769431774316`*^9, 
   3.8857769476321507`*^9}, 3.885777046918995*^9, {3.885777119493822*^9, 
   3.8857771225338492`*^9}, {3.8857771551678314`*^9, 3.885777319221496*^9}, {
   3.88577735374942*^9, 3.8857774844999075`*^9}, {3.88577752398254*^9, 
   3.8857775604793215`*^9}, 3.8857779377872734`*^9, 3.8857780038252506`*^9, {
   3.885785372426158*^9, 3.8857853732257323`*^9}, 3.8857854075851603`*^9, {
   3.88578544853462*^9, 3.8857854512850065`*^9}, {3.8857855229558353`*^9, 
   3.885785547590774*^9}, {3.8857863591794395`*^9, 3.885786375109671*^9}, 
   3.885786506168326*^9, {3.8857881161743712`*^9, 3.885788129255455*^9}, 
   3.885788303081309*^9, {3.885954167931937*^9, 3.8859541766000433`*^9}, {
   3.8861124944766235`*^9, 3.886112506281746*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[385]:=",ExpressionUUID->"054de5c9-205e-4969-9044-6c4c416a0f62"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotEmbeddedAdjacencyGraph", "[", 
   RowBox[{"adjacencyGraph_", ",", "labelVertices_", ",", 
    RowBox[{"(*", 
     RowBox[{"coord2D_", ","}], "*)"}], "coord3D_", ",", "adjacency_", ",", 
    RowBox[{
    "titleView_", ":", 
     "\"\<\[ScriptCapitalP]\[ScriptCapitalN]PlotEmbeddedAdjacency\>\""}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"sizeVertex_", ":", "VERTEXSIZE0"}], ",", 
    RowBox[{"sizeImage_", ":", "IMAGESIZE0"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotEmbeddedAdjacency", "[", 
   RowBox[{
    RowBox[{"AdjacencyMatrix", "/@", "adjacencyGraph"}], ",", 
    "adjacencyGraph", ",", "labelVertices", ",", 
    RowBox[{"(*", 
     RowBox[{"coord2D", ","}], "*)"}], "coord3D", ",", "adjacency", ",", 
    "titleView", ",", "\[IndentingNewLine]", "sizeVertex", ",", "sizeImage"}],
    "]"}]}]], "Input",
 CellChangeTimes->{{3.8854323837224336`*^9, 3.8854323945379333`*^9}, {
   3.885432473206624*^9, 3.885432900561945*^9}, {3.885432960310556*^9, 
   3.885433006629282*^9}, {3.8854331115207305`*^9, 3.885433152491764*^9}, {
   3.8854332038892174`*^9, 3.885433258860891*^9}, {3.88543331837998*^9, 
   3.8854333432870336`*^9}, {3.885433377993168*^9, 3.8854337051366687`*^9}, {
   3.885433753433678*^9, 3.885433798633258*^9}, {3.885433856498012*^9, 
   3.8854338668942785`*^9}, {3.8854339035383606`*^9, 
   3.8854340491564035`*^9}, {3.885434086260288*^9, 3.885434201717524*^9}, {
   3.8854342520559497`*^9, 3.885434400087387*^9}, {3.8854344333119497`*^9, 
   3.8854345374710536`*^9}, {3.885434598999384*^9, 3.8854346443663273`*^9}, {
   3.88543469302448*^9, 3.8854348803781557`*^9}, {3.8854349285567403`*^9, 
   3.8854349344225435`*^9}, {3.885435188257352*^9, 3.885435195761675*^9}, 
   3.8854352306022406`*^9, {3.88543538119468*^9, 3.8854355559258947`*^9}, 
   3.8854362279653454`*^9, {3.8856061104982395`*^9, 3.885606191885829*^9}, {
   3.8856064354855294`*^9, 3.885606437686078*^9}, 3.8856064814036894`*^9, 
   3.885606566270522*^9, {3.885606914010069*^9, 3.885606914786411*^9}, {
   3.8856070146422977`*^9, 3.885607083917487*^9}, {3.8856327671490326`*^9, 
   3.8856327690053067`*^9}, {3.885634223970234*^9, 3.8856342261357093`*^9}, {
   3.8857745237996745`*^9, 3.885774526976965*^9}, {3.8857749360800266`*^9, 
   3.8857750556129236`*^9}, {3.8857769510634966`*^9, 3.8857769564603577`*^9}, 
   3.8857770479410715`*^9, {3.88577757939194*^9, 3.8857775843851247`*^9}, {
   3.885777849965457*^9, 3.885777885691433*^9}, {3.8857779189383087`*^9, 
   3.88577793150171*^9}, {3.8857779756764507`*^9, 3.8857779969232783`*^9}, 
   3.885785419426895*^9, {3.8857854541707397`*^9, 3.885785456012538*^9}, {
   3.8857855618182745`*^9, 3.8857855856698437`*^9}, {3.885785895690751*^9, 
   3.885785916199548*^9}, {3.885785966215502*^9, 3.885785969036744*^9}, 
   3.8857864017594604`*^9, 3.885786503669815*^9, {3.88578807339946*^9, 
   3.8857881228223915`*^9}, 3.8857883043130455`*^9, {3.885954183819558*^9, 
   3.885954193352134*^9}, {3.8861125116058702`*^9, 3.8861125198061733`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[386]:=",ExpressionUUID->"b9521312-4409-4b36-9464-49d6297e4555"],

Cell[BoxData[{
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacencyEmbedding", "[", 
  RowBox[{"adjacencyMtrxN2VP", ",", "vertexNumberLabel", ",", 
   RowBox[{"(*", 
    RowBox[{"graphEmbedded2DN2VP", ","}], "*)"}], "graphEmbedded3DN2VP", ",", 
   "\[IndentingNewLine]", "\"\<BivarCopula2Days\>\"", ",", 
   "\"\<BivarCopula2Days\>\"", ",", "VERTEXSIZE0", ",", "Small"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotEmbeddedAdjacencyMtrx", "[", 
  RowBox[{"adjacencyMtrxN2VP", ",", "vertexNumberLabel", ",", 
   RowBox[{"(*", 
    RowBox[{"graphEmbedded2DN2VP", ","}], "*)"}], "graphEmbedded3DN2VP", ",", 
   "\[IndentingNewLine]", "\"\<BivarCopula2Days\>\"", ",", 
   "\"\<BivarCopula2Days\>\"", ",", "VERTEXSIZE0", ",", "Small"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotEmbeddedAdjacencyGraph", "[", 
  RowBox[{"adjacencyGraphN2VP", ",", "vertexNumberLabel", ",", 
   RowBox[{"(*", 
    RowBox[{"graphEmbedded2DN2VP", ","}], "*)"}], "graphEmbedded3DN2VP", ",", 
   "\[IndentingNewLine]", "\"\<BivarCopula2Days\>\"", ",", 
   "\"\<BivarCopula2Days\>\"", ",", "VERTEXSIZE0", ",", "Small"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotEmbeddedAdjacencyMtrx", "[", 
  RowBox[{"adjacencyMtrxN2VP", ",", "vertexNumberLabel", ",", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"dimReduced2DMonoplex", "[", "\"\<Linear\>\"", "]"}], ","}], 
    "*)"}], 
   RowBox[{"dimReduced3DMonoplex", "[", "\"\<Linear\>\"", "]"}], ",", 
   "\[IndentingNewLine]", "\"\<BivarCopula2Days\>\"", ",", 
   "\"\<BivarCopula2Days\>\"", ",", "VERTEXSIZE0", ",", "Small"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotEmbeddedAdjacencyGraph", "[", 
  RowBox[{"adjacencyGraphN2VP", ",", "vertexNumberLabel", ",", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"dimReduced2DMonoplex", "[", "\"\<Linear\>\"", "]"}], ","}], 
    "*)"}], 
   RowBox[{"dimReduced3DMonoplex", "[", "\"\<Linear\>\"", "]"}], ",", 
   "\[IndentingNewLine]", "\"\<BivarCopula2Days\>\"", ",", 
   "\"\<BivarCopula2Days\>\"", ",", "VERTEXSIZE0", ",", "Small"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8857863116340904`*^9, 3.885786341042923*^9}, {
  3.8857865102593765`*^9, 3.8857865137693214`*^9}, {3.8857890681458225`*^9, 
  3.885789128862611*^9}, {3.885789322165455*^9, 3.885789340545536*^9}, {
  3.8859548442233434`*^9, 3.8859548498256025`*^9}, {3.8859556288894863`*^9, 
  3.8859556479903154`*^9}, {3.886112526364531*^9, 3.886112555058441*^9}},
 CellLabel->
  "In[387]:=",ExpressionUUID->"14b58dd6-cee2-4e72-97d5-6f930e6784f9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]GraphWeightedAdjacencyMtrx", "[", 
   RowBox[{
   "wtdSymAdjMtrx_", ",", "labelVertices_", ",", "coordVertices_", ",", 
    RowBox[{"sizeImage_", ":", "IMAGESIZE0"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"n", "=", 
       RowBox[{"Length", "@", "wtdSymAdjMtrx"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"listWeight", "=", 
       RowBox[{"Flatten", "@", "wtdSymAdjMtrx"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"minmaxWeight", "=", 
       RowBox[{"MinMax", "@", "wtdSymAdjMtrx"}]}], ",", "\[IndentingNewLine]",
       "listEdge", ",", "listEdgeWithProp"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"listEdge", "=", 
      RowBox[{"Flatten", "@", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"i", "\[UndirectedEdge]", "j"}], ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "n"}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "n"}], "}"}]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"listEdgeWithProp", "=", 
      RowBox[{"MapThread", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Property", "[", 
          RowBox[{"#1", ",", "\[IndentingNewLine]", 
           RowBox[{"EdgeStyle", "->", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"#2", "==", "0"}], ",", 
                TemplateBox[<|"color" -> GrayLevel[1]|>,
                 "GrayLevelColorSwatchTemplate"], ",", 
                RowBox[{"Hue", "[", 
                 RowBox[{"Rescale", "[", 
                  RowBox[{"#2", ",", "minmaxWeight", ",", 
                   RowBox[{"{", 
                    RowBox[{"0", ",", "1"}], "}"}]}], "]"}], "]"}]}], "]"}], 
              ",", "\[IndentingNewLine]", 
              RowBox[{"Thickness", "[", 
               RowBox[{"Rescale", "[", 
                RowBox[{"#2", ",", "minmaxWeight", ",", 
                 RowBox[{"{", 
                  RowBox[{".002", ",", ".02"}], "}"}]}], "]"}], "]"}]}], 
             "}"}]}]}], "]"}], "&"}], ",", 
        RowBox[{"{", 
         RowBox[{"listEdge", ",", "listWeight"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Graph", "[", 
      RowBox[{"listEdgeWithProp", ",", 
       RowBox[{"VertexCoordinates", "->", "coordVertices"}], ",", 
       RowBox[{"VertexLabels", "->", "labelVertices"}], ",", 
       RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.876955001318886*^9, 3.8769550013198857`*^9}, {
   3.876955864252166*^9, 3.8769559100153513`*^9}, {3.8769560595564027`*^9, 
   3.8769560665184975`*^9}, {3.8769606935934258`*^9, 3.87696075760845*^9}, {
   3.883957722639923*^9, 3.8839577431235247`*^9}, {3.883958767271665*^9, 
   3.8839587703110123`*^9}, 3.883958805241394*^9, 3.88397588543978*^9, {
   3.883975957097275*^9, 3.8839759799540405`*^9}, {3.8839763586946526`*^9, 
   3.883976371650033*^9}, {3.8839764409160933`*^9, 3.883976441885326*^9}, {
   3.8839765504783545`*^9, 3.883976550641562*^9}, {3.8839781626314025`*^9, 
   3.8839781803376503`*^9}, {3.883978223135934*^9, 3.883978242305481*^9}, {
   3.8839782829797263`*^9, 3.8839783172592025`*^9}, {3.8839783578310456`*^9, 
   3.883978392333277*^9}, {3.883978436488043*^9, 3.883978475689023*^9}, {
   3.883978524921747*^9, 3.8839785417583246`*^9}, {3.8839789798908415`*^9, 
   3.8839789806927166`*^9}, {3.883979568394348*^9, 3.8839795688851123`*^9}, {
   3.883979620107238*^9, 3.8839796490642123`*^9}, {3.8857976909056005`*^9, 
   3.885797729189612*^9}, {3.885797764285936*^9, 3.8857977909143476`*^9}, {
   3.88611636517669*^9, 3.886116366332237*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[392]:=",ExpressionUUID->"ee7d346c-153f-473f-8f07-b58326dc94b4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]PlotEmbeddedMultiplexAdjacencyMtrx", "[", 
   RowBox[{"adjacencyMtrx_", ",", "labelVertices_", ",", 
    RowBox[{"(*", 
     RowBox[{"coord2D_", ","}], "*)"}], "coord3D_", ",", 
    "\[IndentingNewLine]", "adjacency_", ",", 
    RowBox[{
    "titleView_", ":", 
     "\"\<\[ScriptCapitalP]\[ScriptCapitalN]PlotEmbeddedMultiplexAdjacency\>\"\
"}], ",", "\[IndentingNewLine]", 
    RowBox[{"sizeVertex_", ":", "VERTEXSIZE0"}], ",", 
    RowBox[{"sizeImage_", ":", "IMAGESIZE0"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Grid", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "Bold", ",", 
          TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
           "RGBColorSwatchTemplate"]}], "]"}], "&"}], "/@", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"titleView", "<>", "\"\< - MatrixPlot\>\""}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"titleView", "<>", "\"\< - GraphPlot\>\""}], ","}], "*)"}],
          "\[IndentingNewLine]", 
         RowBox[{"titleView", "<>", "\"\< - GraphPlot3D\>\""}]}], "}"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"MatrixPlot", "[", 
         RowBox[{
          RowBox[{"adjacencyMtrx", "[", "adjacency", "]"}], ",", 
          RowBox[{"Mesh", "->", "All"}], ",", 
          RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
          "\[ScriptCapitalP]\[ScriptCapitalN]GraphWeightedAdjacencyMtrx", "[", 
           RowBox[{
            RowBox[{"adjacencyMtrx", "[", "adjacency", "]"}], ",", 
            "vertexLabel", ",", 
            RowBox[{"coord2D", "[", "adjacency", "]"}]}], "]"}], ","}], 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{
        "\[ScriptCapitalP]\[ScriptCapitalN]GraphWeightedAdjacencyMtrx", "[", 
         RowBox[{
          RowBox[{"adjacencyMtrx", "[", "adjacency", "]"}], ",", 
          "vertexLabel", ",", 
          RowBox[{"coord3D", "[", "adjacency", "]"}]}], "]"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}], ",", 
    RowBox[{"Frame", "->", "All"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8854323837224336`*^9, 3.8854323945379333`*^9}, {
   3.885432473206624*^9, 3.885432900561945*^9}, {3.885432960310556*^9, 
   3.885433006629282*^9}, {3.8854331115207305`*^9, 3.885433152491764*^9}, {
   3.8854332038892174`*^9, 3.885433258860891*^9}, {3.88543331837998*^9, 
   3.8854333432870336`*^9}, {3.885433377993168*^9, 3.8854337051366687`*^9}, {
   3.885433753433678*^9, 3.885433798633258*^9}, {3.885433856498012*^9, 
   3.8854338668942785`*^9}, {3.8854339035383606`*^9, 
   3.8854340491564035`*^9}, {3.885434086260288*^9, 3.885434201717524*^9}, {
   3.8854342520559497`*^9, 3.885434400087387*^9}, {3.8854344333119497`*^9, 
   3.8854345374710536`*^9}, {3.885434598999384*^9, 3.8854346443663273`*^9}, {
   3.88543469302448*^9, 3.8854348803781557`*^9}, {3.8854349285567403`*^9, 
   3.8854349344225435`*^9}, {3.885435188257352*^9, 3.885435195761675*^9}, 
   3.8854352306022406`*^9, {3.88543538119468*^9, 3.8854355559258947`*^9}, 
   3.8854362279653454`*^9, {3.8856061104982395`*^9, 3.885606191885829*^9}, {
   3.8856064354855294`*^9, 3.885606437686078*^9}, 3.8856064814036894`*^9, 
   3.885606566270522*^9, {3.885606914010069*^9, 3.885606914786411*^9}, {
   3.8856070146422977`*^9, 3.885607083917487*^9}, {3.8856327671490326`*^9, 
   3.8856328159615707`*^9}, {3.8856342293621864`*^9, 3.885634231447603*^9}, {
   3.885774511889037*^9, 3.8857745185972958`*^9}, {3.8857746352851114`*^9, 
   3.885774727600442*^9}, {3.8857747606696544`*^9, 3.885774918915951*^9}, {
   3.8857749662488155`*^9, 3.8857750186403666`*^9}, {3.8857769431774316`*^9, 
   3.8857769476321507`*^9}, 3.885777046918995*^9, {3.885777119493822*^9, 
   3.8857771225338492`*^9}, {3.8857771551678314`*^9, 3.885777319221496*^9}, {
   3.88577735374942*^9, 3.8857774844999075`*^9}, {3.88577752398254*^9, 
   3.8857775604793215`*^9}, 3.8857779377872734`*^9, 3.8857780038252506`*^9, {
   3.885785372426158*^9, 3.8857853732257323`*^9}, 3.8857854075851603`*^9, {
   3.88578544853462*^9, 3.8857854512850065`*^9}, {3.8857855229558353`*^9, 
   3.885785547590774*^9}, {3.8857863591794395`*^9, 3.885786375109671*^9}, 
   3.885786506168326*^9, {3.8857879998401337`*^9, 3.885788028971726*^9}, {
   3.885794811714554*^9, 3.885794815993473*^9}, {3.885795935054352*^9, 
   3.885795946968873*^9}, {3.8857960987420335`*^9, 3.8857961054102736`*^9}, 
   3.8857962162552495`*^9, {3.8857964756494455`*^9, 3.8857964875414853`*^9}, {
   3.8857966316222105`*^9, 3.8857966348925314`*^9}, {3.885796821071345*^9, 
   3.8857968357087717`*^9}, {3.885796893679564*^9, 3.8857968980051503`*^9}, {
   3.8857969494531546`*^9, 3.8857969650550203`*^9}, {3.885797075525402*^9, 
   3.885797076280177*^9}, {3.885797528880155*^9, 3.885797602635008*^9}, {
   3.885797876040511*^9, 3.8857979205084643`*^9}, 3.885798204936917*^9, {
   3.8857995191941943`*^9, 3.885799520447985*^9}, {3.886112648852418*^9, 
   3.8861126713025556`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[393]:=",ExpressionUUID->"803f46f1-a3c0-4751-87c0-c066b4d7c977"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]PlotEmbeddedMultiplexAdjacencyGraph", 
   "[", 
   RowBox[{"adjacencyGraph_", ",", "labelVertices_", ",", 
    RowBox[{"(*", 
     RowBox[{"coord2D_", ","}], "*)"}], "coord3D_", ",", 
    "\[IndentingNewLine]", "adjacency_", ",", 
    RowBox[{
    "titleView_", ":", 
     "\"\<\[ScriptCapitalP]\[ScriptCapitalN]PlotEmbeddedMultiplexAdjacency\>\"\
"}], ",", "\[IndentingNewLine]", 
    RowBox[{"sizeVertex_", ":", "VERTEXSIZE0"}], ",", 
    RowBox[{"sizeImage_", ":", "IMAGESIZE0"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]PlotEmbeddedMultiplexAdjacencyMtrx", "[", 
   RowBox[{
    RowBox[{"WeightedAdjacencyMatrix", "/@", "adjacencyGraph"}], ",", 
    "labelVertices", ",", 
    RowBox[{"(*", 
     RowBox[{"coord2D", ","}], "*)"}], "coord3D", ",", "\[IndentingNewLine]", 
    "adjacency", ",", "titleView", ",", "\[IndentingNewLine]", "sizeVertex", 
    ",", "sizeImage"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.885798441244071*^9, 3.8857985040042133`*^9}, {
  3.886112678778432*^9, 3.8861126887249823`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[394]:=",ExpressionUUID->"a423d1de-1aaa-42fc-97fa-6c5a09c7bbbb"],

Cell[BoxData[{
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]\
PlotEmbeddedMultiplexAdjacencyMtrx", "[", 
  RowBox[{"adjacencyMtrxHDMI", ",", "vertexNumberLabel", ",", 
   RowBox[{"(*", 
    RowBox[{"graphEmbedded2DHDMI", ","}], "*)"}], "graphEmbedded3DHDMI", ",", 
   "\[IndentingNewLine]", "\"\<PearsonKendallCopulaGranger\>\"", ",", 
   "\"\<PearsonKendallCopulaGranger\>\"", ",", "VERTEXSIZE0", ",", "Small"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]\
PlotEmbeddedMultiplexAdjacencyGraph", "[", 
  RowBox[{"adjacencyGraphHDMI", ",", "vertexNumberLabel", ",", 
   RowBox[{"(*", 
    RowBox[{"graphEmbedded2DHDMI", ","}], "*)"}], "graphEmbedded3DHDMI", ",", 
   "\[IndentingNewLine]", "\"\<PearsonKendallCopulaGranger\>\"", ",", 
   "\"\<PearsonKendallCopulaGranger\>\"", ",", "VERTEXSIZE0", ",", "Small"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8857985203225613`*^9, 3.8857985281900215`*^9}, {
  3.886112695737197*^9, 3.886112706156494*^9}},
 CellLabel->
  "In[395]:=",ExpressionUUID->"63e44c6b-9711-4fef-85e0-ffb012fb8011"]
}, Closed]],

Cell[CellGroupData[{

Cell["Compare Graph Embedding vs. Dimensionality Reduction", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.8851918571584444`*^9, 
  3.885191862144619*^9}, {3.885622344443066*^9, 3.885622349754706*^9}, {
  3.885627022925627*^9, 3.8856270405220222`*^9}, {3.8856280390797467`*^9, 
  3.8856280433553925`*^9}, {3.885792170043411*^9, 3.885792182558197*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"ff037add-0434-47c6-ae33-3b73d4f52fab"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "=", 
   RowBox[{
    RowBox[{"\"\<(\>\"", "<>", 
     RowBox[{"ToString", "[", 
      RowBox[{"#", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}], "<>", "\"\<,\>\"", "<>", 
     RowBox[{"ToString", "[", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "]"}], "<>", "\"\<)\>\""}], "&"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "=", 
   RowBox[{
    RowBox[{"\"\<(\>\"", "<>", 
     RowBox[{"ToString", "[", 
      RowBox[{"#", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}], "<>", "\"\<,\>\"", "<>", 
     RowBox[{"ToString", "[", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "]"}], "<>", "\"\<,\>\"", "<>", 
     RowBox[{"ToString", "[", 
      RowBox[{"#", "[", 
       RowBox[{"[", "3", "]"}], "]"}], "]"}], "<>", "\"\<)\>\""}], "&"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.886044783456724*^9, 3.8860448369995747`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[397]:=",ExpressionUUID->"92db2219-683b-45ca-9633-ed3428a541f3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"coord2DEmbeddingPearsonAbsOverPt1", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<Node2vec+\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{
         "graphEmbedded2DN2VP", "[", "\"\<PearsonAbsOverPt1\>\"", "]"}], ",", 
         ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Linear\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMonoplex", "[", 
          RowBox[{"\"\<Linear\>\"", ",", "\"\<PearsonAbsOverPt1\>\""}], "]"}],
          ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<TSNE\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMonoplex", "[", 
          RowBox[{"\"\<TSNE\>\"", ",", "\"\<PearsonAbsOverPt1\>\""}], "]"}], 
         ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Autoencoder\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMonoplex", "[", 
          RowBox[{"\"\<Autoencoder\>\"", ",", "\"\<PearsonAbsOverPt1\>\""}], 
          "]"}], ",", ".01"}], "]"}]}]}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"coord3DEmbeddingPearsonAbsOverPt1", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<Node2vec+\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{
         "graphEmbedded3DN2VP", "[", "\"\<PearsonAbsOverPt1\>\"", "]"}], ",", 
         ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Linear\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMonoplex", "[", 
          RowBox[{"\"\<Linear\>\"", ",", "\"\<PearsonAbsOverPt1\>\""}], "]"}],
          ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<TSNE\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMonoplex", "[", 
          RowBox[{"\"\<TSNE\>\"", ",", "\"\<PearsonAbsOverPt1\>\""}], "]"}], 
         ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Autoencoder\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMonoplex", "[", 
          RowBox[{"\"\<Autoencoder\>\"", ",", "\"\<PearsonAbsOverPt1\>\""}], 
          "]"}], ",", ".01"}], "]"}]}]}]}], "|>"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.886043866905738*^9, 3.886043910932146*^9}, {
   3.886044203108658*^9, 3.886044208987932*^9}, 3.8860444213884835`*^9, {
   3.8860447243769007`*^9, 3.886044727413827*^9}, {3.8860448451992855`*^9, 
   3.8860448910458164`*^9}, {3.886044921307025*^9, 3.8860449362591867`*^9}, {
   3.8860458620936127`*^9, 3.8860458865739536`*^9}, {3.8861198890438457`*^9, 
   3.886119901663377*^9}, {3.8861199640951195`*^9, 3.886119970144106*^9}},
 CellLabel->
  "In[399]:=",ExpressionUUID->"9ae10bde-cccc-434a-a264-f4c787cb876e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"table2DEmbeddingPearsonAbsOverPt1", "=", "\[IndentingNewLine]", 
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Prepend", "[", 
          RowBox[{"varName", ",", 
           RowBox[{"Style", "[", 
            RowBox[{
            "\"\<Monoplex 2D-Embedding\\nPearsonAbsOverPt1\>\"", ",", "Bold", 
             ",", 
             TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
              "RGBColorSwatchTemplate"]}], "]"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingPearsonAbsOverPt1", "[", "\"\<Node2vec+\>\"", 
            "]"}], ",", "\"\<\\nNode2vec+\>\""}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Prepend", "[", 
            RowBox[{
             RowBox[{
             "coord2DEmbeddingPearsonAbsOverPt1", "[", "\"\<Linear\>\"", 
              "]"}], ",", "\"\<\\nLinear\>\""}], "]"}], ","}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingPearsonAbsOverPt1", "[", "\"\<TSNE\>\"", "]"}], 
           ",", "\"\<\\nTSNE\>\""}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingPearsonAbsOverPt1", "[", "\"\<Autoencoder\>\"", 
            "]"}], ",", "\"\<\\nAutoencoder\>\""}], "]"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Frame", "->", "All"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"table3DEmbeddingPearsonAbsOverPt1", "=", "\[IndentingNewLine]", 
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Prepend", "[", 
          RowBox[{"varName", ",", 
           RowBox[{"Style", "[", 
            RowBox[{
            "\"\<Monoplex 3D-Embedding\\nPearsonAbsOverPt1\>\"", ",", "Bold", 
             ",", 
             TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
              "RGBColorSwatchTemplate"]}], "]"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingPearsonAbsOverPt1", "[", "\"\<Node2vec+\>\"", 
            "]"}], ",", "\"\<\\nNode2vec+\>\""}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Prepend", "[", 
            RowBox[{
             RowBox[{
             "coord3DEmbeddingPearsonAbsOverPt1", "[", "\"\<Linear\>\"", 
              "]"}], ",", "\"\<\\nLinear\>\""}], "]"}], ","}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingPearsonAbsOverPt1", "[", "\"\<TSNE\>\"", "]"}], 
           ",", "\"\<\\nTSNE\>\""}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingPearsonAbsOverPt1", "[", "\"\<Autoencoder\>\"", 
            "]"}], ",", "\"\<\\nAutoencoder\>\""}], "]"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Frame", "->", "All"}]}], "]"}]}]}], "}"}]], "Input",
 CellChangeTimes->{{3.8860460089777365`*^9, 3.886046290153848*^9}, 
   3.886046331463997*^9, {3.8860466392849226`*^9, 3.8860467205595865`*^9}, {
   3.886046751456132*^9, 3.886046751750439*^9}, {3.886047031806424*^9, 
   3.886047037836929*^9}, {3.8860477324572134`*^9, 3.8860477452316885`*^9}, {
   3.886119906176605*^9, 3.886119915812624*^9}},
 CellLabel->
  "In[401]:=",ExpressionUUID->"1569bd2a-82d3-4717-9377-811cab8cdd49"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", 
   RowBox[{"Timing", "[", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(table)2DEmbedding-PearsonAbsOverPt1.png\>\""}], ",", 
        "table2DEmbeddingPearsonAbsOverPt1"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(table)3DEmbedding-PearsonAbsOverPt1.png\>\""}], ",", 
        "table3DEmbeddingPearsonAbsOverPt1"}], "]"}]}], "}"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.885782694457712*^9, 3.8857826969595127`*^9}, {
  3.885782770711661*^9, 3.8857827712218885`*^9}, {3.885783143944519*^9, 
  3.8857831702684145`*^9}, {3.885800711047057*^9, 3.885800718098237*^9}, {
  3.8860463960996084`*^9, 3.8860464622489195`*^9}, {3.886046574836788*^9, 
  3.8860465772020154`*^9}, {3.8860498997590284`*^9, 3.886049909619506*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[402]:=",ExpressionUUID->"27f1446a-94da-4c58-9656-e621823b47ce"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"coord2DEmbeddingKendallAbsOverPt1", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<Node2vec+\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{
         "graphEmbedded2DN2VP", "[", "\"\<KendallAbsOverPt1\>\"", "]"}], ",", 
         ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Linear\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMonoplex", "[", 
          RowBox[{"\"\<Linear\>\"", ",", "\"\<KendallAbsOverPt1\>\""}], "]"}],
          ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<TSNE\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMonoplex", "[", 
          RowBox[{"\"\<TSNE\>\"", ",", "\"\<KendallAbsOverPt1\>\""}], "]"}], 
         ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Autoencoder\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMonoplex", "[", 
          RowBox[{"\"\<Autoencoder\>\"", ",", "\"\<KendallAbsOverPt1\>\""}], 
          "]"}], ",", ".01"}], "]"}]}]}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"coord3DEmbeddingKendallAbsOverPt1", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<Node2vec+\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{
         "graphEmbedded3DN2VP", "[", "\"\<KendallAbsOverPt1\>\"", "]"}], ",", 
         ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Linear\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMonoplex", "[", 
          RowBox[{"\"\<Linear\>\"", ",", "\"\<KendallAbsOverPt1\>\""}], "]"}],
          ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<TSNE\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMonoplex", "[", 
          RowBox[{"\"\<TSNE\>\"", ",", "\"\<KendallAbsOverPt1\>\""}], "]"}], 
         ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Autoencoder\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMonoplex", "[", 
          RowBox[{"\"\<Autoencoder\>\"", ",", "\"\<KendallAbsOverPt1\>\""}], 
          "]"}], ",", ".01"}], "]"}]}]}]}], "|>"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.886044976632786*^9, 3.8860450022853765`*^9}, {
  3.8860458928555303`*^9, 3.8860458986091747`*^9}},
 CellLabel->
  "In[403]:=",ExpressionUUID->"f58a7d72-8472-4ec5-b3e3-b8d94634503d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"table2DEmbeddingKendallAbsOverPt1", "=", "\[IndentingNewLine]", 
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Prepend", "[", 
          RowBox[{"varName", ",", 
           RowBox[{"Style", "[", 
            RowBox[{
            "\"\<Monoplex 2D-Embedding\\nKendallAbsOverPt1\>\"", ",", "Bold", 
             ",", 
             TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
              "RGBColorSwatchTemplate"]}], "]"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingKendallAbsOverPt1", "[", "\"\<Node2vec+\>\"", 
            "]"}], ",", "\"\<\\nNode2vec+\>\""}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Prepend", "[", 
            RowBox[{
             RowBox[{
             "coord2DEmbeddingKendallAbsOverPt1", "[", "\"\<Linear\>\"", 
              "]"}], ",", "\"\<\\nLinear\>\""}], "]"}], ","}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingKendallAbsOverPt1", "[", "\"\<TSNE\>\"", "]"}], 
           ",", "\"\<\\nTSNE\>\""}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingKendallAbsOverPt1", "[", "\"\<Autoencoder\>\"", 
            "]"}], ",", "\"\<\\nAutoencoder\>\""}], "]"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Frame", "->", "All"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"table3DEmbeddingKendallAbsOverPt1", "=", "\[IndentingNewLine]", 
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Prepend", "[", 
          RowBox[{"varName", ",", 
           RowBox[{"Style", "[", 
            RowBox[{
            "\"\<Monoplex 3D-Embedding\\nKendallAbsOverPt1\>\"", ",", "Bold", 
             ",", 
             TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
              "RGBColorSwatchTemplate"]}], "]"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingKendallAbsOverPt1", "[", "\"\<Node2vec+\>\"", 
            "]"}], ",", "\"\<\\nNode2vec+\>\""}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Prepend", "[", 
            RowBox[{
             RowBox[{
             "coord3DEmbeddingKendallAbsOverPt1", "[", "\"\<Linear\>\"", 
              "]"}], ",", "\"\<\\nLinear\>\""}], "]"}], ","}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingKendallAbsOverPt1", "[", "\"\<TSNE\>\"", "]"}], 
           ",", "\"\<\\nTSNE\>\""}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingKendallAbsOverPt1", "[", "\"\<Autoencoder\>\"", 
            "]"}], ",", "\"\<\\nAutoencoder\>\""}], "]"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Frame", "->", "All"}]}], "]"}]}]}], "}"}]], "Input",
 CellChangeTimes->{{3.8860460089777365`*^9, 3.886046290153848*^9}, 
   3.886046331463997*^9, {3.8860466392849226`*^9, 3.8860467205595865`*^9}, {
   3.886046751456132*^9, 3.886046751750439*^9}, {3.886046801755273*^9, 
   3.886046836515275*^9}, {3.8860470077654943`*^9, 3.8860470146039553`*^9}, {
   3.886047657968699*^9, 3.8860476782108517`*^9}, {3.886119983708584*^9, 
   3.886119992435258*^9}},
 CellLabel->
  "In[405]:=",ExpressionUUID->"933eeaa1-25f9-4937-95fd-48edd95d2367"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", 
   RowBox[{"Timing", "[", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(table)2DEmbedding-KendallAbsOverPt1.png\>\""}], ",", 
        "table2DEmbeddingKendallAbsOverPt1"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(table)3DEmbedding-KendallAbsOverPt1.png\>\""}], ",", 
        "table3DEmbeddingKendallAbsOverPt1"}], "]"}]}], "}"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.885782694457712*^9, 3.8857826969595127`*^9}, {
  3.885782770711661*^9, 3.8857827712218885`*^9}, {3.885783143944519*^9, 
  3.8857831702684145`*^9}, {3.885800711047057*^9, 3.885800718098237*^9}, {
  3.8860463960996084`*^9, 3.8860464622489195`*^9}, {3.886046574836788*^9, 
  3.8860465772020154`*^9}, {3.886046843773992*^9, 3.88604685038867*^9}, {
  3.8860499201052313`*^9, 3.8860499219116354`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[406]:=",ExpressionUUID->"8c630829-02b0-436d-a896-37faa1f1a592"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"coord2DEmbeddingBivarCopula2Days", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<Node2vec+\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{
         "graphEmbedded2DN2VP", "[", "\"\<BivarCopula2Days\>\"", "]"}], ",", 
         ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Linear\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMonoplex", "[", 
          RowBox[{"\"\<Linear\>\"", ",", "\"\<BivarCopula2Days\>\""}], "]"}], 
         ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<TSNE\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMonoplex", "[", 
          RowBox[{"\"\<TSNE\>\"", ",", "\"\<BivarCopula2Days\>\""}], "]"}], 
         ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Autoencoder\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMonoplex", "[", 
          RowBox[{"\"\<Autoencoder\>\"", ",", "\"\<BivarCopula2Days\>\""}], 
          "]"}], ",", ".01"}], "]"}]}]}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"coord3DEmbeddingBivarCopula2Days", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<Node2vec+\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{
         "graphEmbedded3DN2VP", "[", "\"\<BivarCopula2Days\>\"", "]"}], ",", 
         ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Linear\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMonoplex", "[", 
          RowBox[{"\"\<Linear\>\"", ",", "\"\<BivarCopula2Days\>\""}], "]"}], 
         ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<TSNE\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMonoplex", "[", 
          RowBox[{"\"\<TSNE\>\"", ",", "\"\<BivarCopula2Days\>\""}], "]"}], 
         ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Autoencoder\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMonoplex", "[", 
          RowBox[{"\"\<Autoencoder\>\"", ",", "\"\<BivarCopula2Days\>\""}], 
          "]"}], ",", ".01"}], "]"}]}]}]}], "|>"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8860439970200605`*^9, 3.88604400413381*^9}, {
  3.886044155847933*^9, 3.886044200481618*^9}, {3.886045020307602*^9, 
  3.886045042616208*^9}, {3.886045904011877*^9, 3.8860459061666803`*^9}},
 CellLabel->
  "In[407]:=",ExpressionUUID->"d343b3ee-7f18-4661-a99f-a0a70148e25a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"table2DEmbeddingBivarCopula2Days", "=", "\[IndentingNewLine]", 
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Prepend", "[", 
          RowBox[{"varName", ",", 
           RowBox[{"Style", "[", 
            RowBox[{
            "\"\<Monoplex 2D-Embedding\\nBivarCopula2Days\>\"", ",", "Bold", 
             ",", 
             TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
              "RGBColorSwatchTemplate"]}], "]"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingBivarCopula2Days", "[", "\"\<Node2vec+\>\"", 
            "]"}], ",", "\"\<\\nNode2vec+\>\""}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Prepend", "[", 
            RowBox[{
             RowBox[{
             "coord2DEmbeddingBivarCopula2Days", "[", "\"\<Linear\>\"", "]"}],
              ",", "\"\<\\nLinear\>\""}], "]"}], ","}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingBivarCopula2Days", "[", "\"\<TSNE\>\"", "]"}], 
           ",", "\"\<\\nTSNE\>\""}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingBivarCopula2Days", "[", "\"\<Autoencoder\>\"", 
            "]"}], ",", "\"\<\\nAutoencoder\>\""}], "]"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Frame", "->", "All"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"table3DEmbeddingBivarCopula2Days", "=", "\[IndentingNewLine]", 
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Prepend", "[", 
          RowBox[{"varName", ",", 
           RowBox[{"Style", "[", 
            RowBox[{
            "\"\<Monoplex 3D-Embedding\\nBivarCopula2Days\>\"", ",", "Bold", 
             ",", 
             TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
              "RGBColorSwatchTemplate"]}], "]"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingBivarCopula2Days", "[", "\"\<Node2vec+\>\"", 
            "]"}], ",", "\"\<\\nNode2vec+\>\""}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Prepend", "[", 
            RowBox[{
             RowBox[{
             "coord3DEmbeddingBivarCopula2Days", "[", "\"\<Linear\>\"", "]"}],
              ",", "\"\<\\nLinear\>\""}], "]"}], ","}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingBivarCopula2Days", "[", "\"\<TSNE\>\"", "]"}], 
           ",", "\"\<\\nTSNE\>\""}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingBivarCopula2Days", "[", "\"\<Autoencoder\>\"", 
            "]"}], ",", "\"\<\\nAutoencoder\>\""}], "]"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Frame", "->", "All"}]}], "]"}]}]}], "}"}]], "Input",
 CellChangeTimes->{{3.8860460089777365`*^9, 3.886046290153848*^9}, 
   3.886046331463997*^9, {3.8860466392849226`*^9, 3.8860467205595865`*^9}, {
   3.886046751456132*^9, 3.886046751750439*^9}, {3.886046801755273*^9, 
   3.886046836515275*^9}, {3.8860470077654943`*^9, 3.8860470146039553`*^9}, {
   3.8860470598219213`*^9, 3.8860470970689783`*^9}, {3.886047704331009*^9, 
   3.886047716186911*^9}, {3.8861200006724405`*^9, 3.8861200088140936`*^9}},
 CellLabel->
  "In[409]:=",ExpressionUUID->"f0fb369e-026f-4c03-9f96-bcdcca6a5549"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", 
   RowBox[{"Timing", "[", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(table)2DEmbedding-BivarCopula2Days.png\>\""}], ",", 
        "table2DEmbeddingBivarCopula2Days"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(table)3DEmbedding-BivarCopula2Days.png\>\""}], ",", 
        "table3DEmbeddingBivarCopula2Days"}], "]"}]}], "}"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.885782694457712*^9, 3.8857826969595127`*^9}, {
  3.885782770711661*^9, 3.8857827712218885`*^9}, {3.885783143944519*^9, 
  3.8857831702684145`*^9}, {3.885800711047057*^9, 3.885800718098237*^9}, {
  3.8860463960996084`*^9, 3.8860464622489195`*^9}, {3.886046574836788*^9, 
  3.8860465772020154`*^9}, {3.886046843773992*^9, 3.88604685038867*^9}, {
  3.8860471824210043`*^9, 3.886047193138956*^9}, {3.8860499276480227`*^9, 
  3.886049929391076*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[410]:=",ExpressionUUID->"757303ce-d630-44f2-a308-1cec1ef82fa7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"coord2DEmbeddingGrangerCausalVar", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<Node2vec+\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{
         "graphEmbedded2DN2VP", "[", "\"\<GrangerCausalVar\>\"", "]"}], ",", 
         ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Linear\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMonoplex", "[", 
          RowBox[{"\"\<Linear\>\"", ",", "\"\<GrangerCausalVar\>\""}], "]"}], 
         ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<TSNE\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMonoplex", "[", 
          RowBox[{"\"\<TSNE\>\"", ",", "\"\<GrangerCausalVar\>\""}], "]"}], 
         ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Autoencoder\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMonoplex", "[", 
          RowBox[{"\"\<Autoencoder\>\"", ",", "\"\<GrangerCausalVar\>\""}], 
          "]"}], ",", ".01"}], "]"}]}]}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"coord3DEmbeddingGrangerCausalVar", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<Node2vec+\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{
         "graphEmbedded3DN2VP", "[", "\"\<GrangerCausalVar\>\"", "]"}], ",", 
         ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Linear\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMonoplex", "[", 
          RowBox[{"\"\<Linear\>\"", ",", "\"\<GrangerCausalVar\>\""}], "]"}], 
         ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<TSNE\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMonoplex", "[", 
          RowBox[{"\"\<TSNE\>\"", ",", "\"\<GrangerCausalVar\>\""}], "]"}], 
         ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Autoencoder\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMonoplex", "[", 
          RowBox[{"\"\<Autoencoder\>\"", ",", "\"\<GrangerCausalVar\>\""}], 
          "]"}], ",", ".01"}], "]"}]}]}]}], "|>"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.886044170486083*^9, 3.886044189343234*^9}, {
  3.886045048778015*^9, 3.886045077788885*^9}, {3.886045908786084*^9, 
  3.8860459102525945`*^9}},
 CellLabel->
  "In[411]:=",ExpressionUUID->"4f7e8729-0848-4251-9823-7b484467f03e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"table2DEmbeddingGrangerCausalVar", "=", "\[IndentingNewLine]", 
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Prepend", "[", 
          RowBox[{"varName", ",", 
           RowBox[{"Style", "[", 
            RowBox[{
            "\"\<Monoplex 2D-Embedding\\nGrangerCausalVar\>\"", ",", "Bold", 
             ",", 
             TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
              "RGBColorSwatchTemplate"]}], "]"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingGrangerCausalVar", "[", "\"\<Node2vec+\>\"", 
            "]"}], ",", "\"\<\\nNode2vec+\>\""}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Prepend", "[", 
            RowBox[{
             RowBox[{
             "coord2DEmbeddingGrangerCausalVar", "[", "\"\<Linear\>\"", "]"}],
              ",", "\"\<\\nLinear\>\""}], "]"}], ","}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingGrangerCausalVar", "[", "\"\<TSNE\>\"", "]"}], 
           ",", "\"\<\\nTSNE\>\""}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingGrangerCausalVar", "[", "\"\<Autoencoder\>\"", 
            "]"}], ",", "\"\<\\nAutoencoder\>\""}], "]"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Frame", "->", "All"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"table3DEmbeddingGrangerCausalVar", "=", "\[IndentingNewLine]", 
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Prepend", "[", 
          RowBox[{"varName", ",", 
           RowBox[{"Style", "[", 
            RowBox[{
            "\"\<Monoplex 3D-Embedding\\nGrangerCausalVar\>\"", ",", "Bold", 
             ",", 
             TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
              "RGBColorSwatchTemplate"]}], "]"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingGrangerCausalVar", "[", "\"\<Node2vec+\>\"", 
            "]"}], ",", "\"\<\\nNode2vec+\>\""}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Prepend", "[", 
            RowBox[{
             RowBox[{
             "coord3DEmbeddingGrangerCausalVar", "[", "\"\<Linear\>\"", "]"}],
              ",", "\"\<\\nLinear\>\""}], "]"}], ","}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingGrangerCausalVar", "[", "\"\<TSNE\>\"", "]"}], 
           ",", "\"\<\\nTSNE\>\""}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingGrangerCausalVar", "[", "\"\<Autoencoder\>\"", 
            "]"}], ",", "\"\<\\nAutoencoder\>\""}], "]"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Frame", "->", "All"}]}], "]"}]}]}], "}"}]], "Input",
 CellChangeTimes->{{3.8860460089777365`*^9, 3.886046290153848*^9}, 
   3.886046331463997*^9, {3.8860466392849226`*^9, 3.8860467205595865`*^9}, {
   3.886046751456132*^9, 3.886046751750439*^9}, {3.886046801755273*^9, 
   3.886046836515275*^9}, {3.8860470077654943`*^9, 3.8860470146039553`*^9}, {
   3.8860470598219213`*^9, 3.8860470970689783`*^9}, {3.8860472112181587`*^9, 
   3.886047255804969*^9}, {3.8860477584072285`*^9, 3.886047768188715*^9}, {
   3.8861200160597167`*^9, 3.886120025085658*^9}},
 CellLabel->
  "In[413]:=",ExpressionUUID->"b3c7d017-7f33-40b2-904e-a79ecc5c30a7"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", 
   RowBox[{"Timing", "[", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(table)2DEmbedding-GrangerCausalVar.png\>\""}], ",", 
        "table2DEmbeddingGrangerCausalVar"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(table)3DEmbedding-GrangerCausalVar.png\>\""}], ",", 
        "table3DEmbeddingGrangerCausalVar"}], "]"}]}], "}"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.885782694457712*^9, 3.8857826969595127`*^9}, {
  3.885782770711661*^9, 3.8857827712218885`*^9}, {3.885783143944519*^9, 
  3.8857831702684145`*^9}, {3.885800711047057*^9, 3.885800718098237*^9}, {
  3.8860463960996084`*^9, 3.8860464622489195`*^9}, {3.886046574836788*^9, 
  3.8860465772020154`*^9}, {3.886046843773992*^9, 3.88604685038867*^9}, {
  3.8860471824210043`*^9, 3.886047193138956*^9}, {3.88604727606921*^9, 
  3.886047285469698*^9}, {3.8860499347551517`*^9, 3.8860499367718334`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[414]:=",ExpressionUUID->"4b92e836-6239-4e10-9261-b414d612a0ff"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"coord2DEmbeddingPearsonKendall", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<HDMI\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"graphEmbedded2DHDMI", "[", "\"\<PearsonKendall\>\"", "]"}], 
         ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Linear\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMultiplex", "[", 
          RowBox[{"\"\<Linear\>\"", ",", "\"\<PearsonKendall\>\""}], "]"}], 
         ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<TSNE\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMultiplex", "[", 
          RowBox[{"\"\<TSNE\>\"", ",", "\"\<PearsonKendall\>\""}], "]"}], ",",
          ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Autoencoder\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMultiplex", "[", 
          RowBox[{"\"\<Autoencoder\>\"", ",", "\"\<PearsonKendall\>\""}], 
          "]"}], ",", ".01"}], "]"}]}]}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"coord3DEmbeddingPearsonKendall", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<HDMI\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"graphEmbedded3DHDMI", "[", "\"\<PearsonKendall\>\"", "]"}], 
         ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Linear\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMultiplex", "[", 
          RowBox[{"\"\<Linear\>\"", ",", "\"\<PearsonKendall\>\""}], "]"}], 
         ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<TSNE\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMultiplex", "[", 
          RowBox[{"\"\<TSNE\>\"", ",", "\"\<PearsonKendall\>\""}], "]"}], ",",
          ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Autoencoder\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMultiplex", "[", 
          RowBox[{"\"\<Autoencoder\>\"", ",", "\"\<PearsonKendall\>\""}], 
          "]"}], ",", ".01"}], "]"}]}]}]}], "|>"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.886043374065014*^9, 3.886043376076352*^9}, {
   3.886043448123163*^9, 3.8860434979117517`*^9}, {3.8860435936720314`*^9, 
   3.8860436976968527`*^9}, {3.8860438218582773`*^9, 
   3.8860438341419888`*^9}, {3.8860439310764427`*^9, 3.886043975840536*^9}, 
   3.886044193447584*^9, {3.886045089085961*^9, 3.8860452452077637`*^9}, {
   3.8860455162414618`*^9, 3.8860455403599052`*^9}, {3.8860459125302677`*^9, 
   3.886045914985403*^9}},
 CellLabel->
  "In[415]:=",ExpressionUUID->"bf771e34-06a0-4e3b-a60f-3fc3bbbe375a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"table2DEmbeddingPearsonKendall", "=", "\[IndentingNewLine]", 
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Prepend", "[", 
          RowBox[{"varName", ",", 
           RowBox[{"Style", "[", 
            RowBox[{
            "\"\<Multiplex 2D-Embedding\\nPearsonKendall\>\"", ",", "Bold", 
             ",", 
             TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
              "RGBColorSwatchTemplate"]}], "]"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingPearsonKendall", "[", "\"\<HDMI\>\"", "]"}], ",", 
           "\"\<\\nHDMI\>\""}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Prepend", "[", 
            RowBox[{
             RowBox[{
             "coord2DEmbeddingPearsonKendall", "[", "\"\<Linear\>\"", "]"}], 
             ",", "\"\<\\nLinear\>\""}], "]"}], ","}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingPearsonKendall", "[", "\"\<TSNE\>\"", "]"}], ",", 
           "\"\<\\nTSNE\>\""}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingPearsonKendall", "[", "\"\<Autoencoder\>\"", 
            "]"}], ",", "\"\<\\nAutoencoder\>\""}], "]"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Frame", "->", "All"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"table3DEmbeddingPearsonKendall", "=", "\[IndentingNewLine]", 
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Prepend", "[", 
          RowBox[{"varName", ",", 
           RowBox[{"Style", "[", 
            RowBox[{
            "\"\<Multiplex 3D-Embedding\\nPearsonKendall\>\"", ",", "Bold", 
             ",", 
             TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
              "RGBColorSwatchTemplate"]}], "]"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingPearsonKendall", "[", "\"\<HDMI\>\"", "]"}], ",", 
           "\"\<\\nHDMI\>\""}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Prepend", "[", 
            RowBox[{
             RowBox[{
             "coord3DEmbeddingPearsonKendall", "[", "\"\<Linear\>\"", "]"}], 
             ",", "\"\<\\nLinear\>\""}], "]"}], ","}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingPearsonKendall", "[", "\"\<TSNE\>\"", "]"}], ",", 
           "\"\<\\nTSNE\>\""}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingPearsonKendall", "[", "\"\<Autoencoder\>\"", 
            "]"}], ",", "\"\<\\nAutoencoder\>\""}], "]"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Frame", "->", "All"}]}], "]"}]}]}], "}"}]], "Input",
 CellChangeTimes->{{3.8860460089777365`*^9, 3.886046290153848*^9}, 
   3.886046331463997*^9, {3.8860466392849226`*^9, 3.8860467205595865`*^9}, {
   3.886046751456132*^9, 3.886046751750439*^9}, {3.886046801755273*^9, 
   3.886046836515275*^9}, {3.8860470077654943`*^9, 3.8860470146039553`*^9}, {
   3.8860470598219213`*^9, 3.8860470970689783`*^9}, {3.8860472112181587`*^9, 
   3.886047255804969*^9}, {3.886047318206504*^9, 3.886047411986592*^9}, {
   3.886047778703885*^9, 3.886047789002968*^9}, {3.886120033810212*^9, 
   3.8861200406318607`*^9}},
 CellLabel->
  "In[417]:=",ExpressionUUID->"ec8c811a-ac57-4211-bac8-19e10bf65eae"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", 
   RowBox[{"Timing", "[", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", "\"\<(table)2DEmbedding-PearsonKendall.png\>\""}],
         ",", "table2DEmbeddingPearsonKendall"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", "\"\<(table)3DEmbedding-PearsonKendall.png\>\""}],
         ",", "table3DEmbeddingPearsonKendall"}], "]"}]}], "}"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.885782694457712*^9, 3.8857826969595127`*^9}, {
  3.885782770711661*^9, 3.8857827712218885`*^9}, {3.885783143944519*^9, 
  3.8857831702684145`*^9}, {3.885800711047057*^9, 3.885800718098237*^9}, {
  3.8860463960996084`*^9, 3.8860464622489195`*^9}, {3.886046574836788*^9, 
  3.8860465772020154`*^9}, {3.886046843773992*^9, 3.88604685038867*^9}, {
  3.8860471824210043`*^9, 3.886047193138956*^9}, {3.88604727606921*^9, 
  3.886047285469698*^9}, {3.88604743843038*^9, 3.886047447698344*^9}, {
  3.8860499413463087`*^9, 3.8860499431395397`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[418]:=",ExpressionUUID->"f8fc2a41-1cf7-43ce-a8be-cc848c8a602f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"coord2DEmbeddingPearsonKendallCopulaGranger", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<HDMI\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{
         "graphEmbedded2DHDMI", "[", "\"\<PearsonKendallCopulaGranger\>\"", 
          "]"}], ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Linear\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMultiplex", "[", 
          RowBox[{
          "\"\<Linear\>\"", ",", "\"\<PearsonKendallCopulaGranger\>\""}], 
          "]"}], ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<TSNE\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMultiplex", "[", 
          RowBox[{
          "\"\<TSNE\>\"", ",", "\"\<PearsonKendallCopulaGranger\>\""}], "]"}],
          ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Autoencoder\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format2D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced2DMultiplex", "[", 
          RowBox[{
          "\"\<Autoencoder\>\"", ",", "\"\<PearsonKendallCopulaGranger\>\""}],
           "]"}], ",", ".01"}], "]"}]}]}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"coord3DEmbeddingPearsonKendallCopulaGranger", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<HDMI\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{
         "graphEmbedded3DHDMI", "[", "\"\<PearsonKendallCopulaGranger\>\"", 
          "]"}], ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Linear\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMultiplex", "[", 
          RowBox[{
          "\"\<Linear\>\"", ",", "\"\<PearsonKendallCopulaGranger\>\""}], 
          "]"}], ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<TSNE\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMultiplex", "[", 
          RowBox[{
          "\"\<TSNE\>\"", ",", "\"\<PearsonKendallCopulaGranger\>\""}], "]"}],
          ",", ".01"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Autoencoder\>\"", "->", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]Format3D", "/@", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"dimReduced3DMultiplex", "[", 
          RowBox[{
          "\"\<Autoencoder\>\"", ",", "\"\<PearsonKendallCopulaGranger\>\""}],
           "]"}], ",", ".01"}], "]"}]}]}]}], "|>"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8860452041260705`*^9, 3.8860452125680265`*^9}, {
  3.886045250194028*^9, 3.886045254276107*^9}, {3.8860456075450974`*^9, 
  3.8860456093602095`*^9}, {3.8860459199821815`*^9, 3.886045923617712*^9}},
 CellLabel->
  "In[419]:=",ExpressionUUID->"7bcf9982-4aaf-4b21-8de2-bf526b02bb82"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
   "table2DEmbeddingPearsonKendallCopulaGranger", "=", "\[IndentingNewLine]", 
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Prepend", "[", 
          RowBox[{"varName", ",", 
           RowBox[{"Style", "[", 
            RowBox[{
            "\"\<Multiplex 2D-Embedding\\nPearsonKendallCopulaGranger\>\"", 
             ",", "Bold", ",", 
             TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
              "RGBColorSwatchTemplate"]}], "]"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingPearsonKendallCopulaGranger", "[", "\"\<HDMI\>\"",
             "]"}], ",", "\"\<\\nHDMI\>\""}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Prepend", "[", 
            RowBox[{
             RowBox[{
             "coord2DEmbeddingPearsonKendallCopulaGranger", "[", 
              "\"\<Linear\>\"", "]"}], ",", "\"\<\\nLinear\>\""}], "]"}], 
           ","}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingPearsonKendallCopulaGranger", "[", "\"\<TSNE\>\"",
             "]"}], ",", "\"\<\\nTSNE\>\""}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord2DEmbeddingPearsonKendallCopulaGranger", "[", 
            "\"\<Autoencoder\>\"", "]"}], ",", "\"\<\\nAutoencoder\>\""}], 
          "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"Frame", "->", "All"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{
   "table3DEmbeddingPearsonKendallCopulaGranger", "=", "\[IndentingNewLine]", 
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Prepend", "[", 
          RowBox[{"varName", ",", 
           RowBox[{"Style", "[", 
            RowBox[{
            "\"\<Multiplex 3D-Embedding\\nPearsonKendallCopulaGranger\>\"", 
             ",", "Bold", ",", 
             TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
              "RGBColorSwatchTemplate"]}], "]"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingPearsonKendallCopulaGranger", "[", "\"\<HDMI\>\"",
             "]"}], ",", "\"\<\\nHDMI\>\""}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Prepend", "[", 
            RowBox[{
             RowBox[{
             "coord3DEmbeddingPearsonKendallCopulaGranger", "[", 
              "\"\<Linear\>\"", "]"}], ",", "\"\<\\nLinear\>\""}], "]"}], 
           ","}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingPearsonKendallCopulaGranger", "[", "\"\<TSNE\>\"",
             "]"}], ",", "\"\<\\nTSNE\>\""}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{
           "coord3DEmbeddingPearsonKendallCopulaGranger", "[", 
            "\"\<Autoencoder\>\"", "]"}], ",", "\"\<\\nAutoencoder\>\""}], 
          "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"Frame", "->", "All"}]}], "]"}]}]}], "}"}]], "Input",
 CellChangeTimes->{{3.8860460089777365`*^9, 3.886046290153848*^9}, 
   3.886046331463997*^9, {3.8860466392849226`*^9, 3.8860467205595865`*^9}, {
   3.886046751456132*^9, 3.886046751750439*^9}, {3.886046801755273*^9, 
   3.886046836515275*^9}, {3.8860470077654943`*^9, 3.8860470146039553`*^9}, {
   3.8860470598219213`*^9, 3.8860470970689783`*^9}, {3.8860472112181587`*^9, 
   3.886047255804969*^9}, {3.886047318206504*^9, 3.886047411986592*^9}, {
   3.886047473001887*^9, 3.886047494586246*^9}, {3.8860478014971313`*^9, 
   3.8860478115440264`*^9}, {3.886120050631118*^9, 3.88612005806888*^9}},
 CellLabel->
  "In[421]:=",ExpressionUUID->"239f8bde-3565-4d67-8f18-48468215a59b"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTTABLES", ",", 
   RowBox[{"Timing", "[", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(table)2DEmbedding-PearsonKendallCopulaGranger.png\>\""}], ",", 
        "table2DEmbeddingPearsonKendallCopulaGranger"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "OUTPUTDIR0", "<>", 
         "\"\<(table)3DEmbedding-PearsonKendallCopulaGranger.png\>\""}], ",", 
        "table3DEmbeddingPearsonKendallCopulaGranger"}], "]"}]}], "}"}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.885782694457712*^9, 3.8857826969595127`*^9}, {
  3.885782770711661*^9, 3.8857827712218885`*^9}, {3.885783143944519*^9, 
  3.8857831702684145`*^9}, {3.885800711047057*^9, 3.885800718098237*^9}, {
  3.8860463960996084`*^9, 3.8860464622489195`*^9}, {3.886046574836788*^9, 
  3.8860465772020154`*^9}, {3.886046843773992*^9, 3.88604685038867*^9}, {
  3.8860471824210043`*^9, 3.886047193138956*^9}, {3.88604727606921*^9, 
  3.886047285469698*^9}, {3.88604743843038*^9, 3.886047447698344*^9}, {
  3.886047509853153*^9, 3.886047518221482*^9}, {3.8860499484442525`*^9, 
  3.8860499504026785`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[422]:=",ExpressionUUID->"752acef3-3755-44f5-ac1e-677367741c1f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Static Visualisation", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}, {3.8851918571584444`*^9, 
  3.885191862144619*^9}, {3.885622344443066*^9, 3.885622349754706*^9}, {
  3.885627022925627*^9, 3.8856270405220222`*^9}, {3.8856280390797467`*^9, 
  3.8856280433553925`*^9}, {3.885792487551528*^9, 3.8857924909092765`*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"2c1272cc-d93e-4390-98a6-0f783c1f37ce"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotListMonoplexEmbedding", "[", 
   RowBox[{"adjacency_", ",", 
    RowBox[{"coordOnly_", ":", "True"}], ",", 
    RowBox[{"sizeVertex_", ":", "VERTEXSIZE0"}], ",", 
    RowBox[{"sizeImage_", ":", "IMAGESIZE0"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"plot", "=", 
      RowBox[{"If", "[", 
       RowBox[{
       "coordOnly", ",", 
        "\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacencyEmbedding", ",", 
        "\[ScriptCapitalP]\[ScriptCapitalN]PlotEmbeddedAdjacencyMtrx"}], 
       "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"TableForm", "[", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<'Node2vec+' Graph Embedding\>\"", ",", "Bold", ",", "Large"}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"plot", "[", 
        RowBox[{"adjacencyMtrxN2VP", ",", "vertexNumberLabel", ",", 
         RowBox[{"(*", 
          RowBox[{"graphEmbedded2DN2VP", ","}], "*)"}], "graphEmbedded3DN2VP",
          ",", "adjacency", ",", "adjacency", ",", "\[IndentingNewLine]", 
         "sizeVertex", ",", "sizeImage"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<'Linear' Dimensionality Reduction\>\"", ",", "Bold", ",", 
         "Large"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"plot", "[", 
        RowBox[{"adjacencyMtrxN2VP", ",", "vertexNumberLabel", ",", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"dimReduced2DMonoplex", "[", "\"\<Linear\>\"", "]"}], 
           ","}], "*)"}], 
         RowBox[{"dimReduced3DMonoplex", "[", "\"\<Linear\>\"", "]"}], ",", 
         "adjacency", ",", "adjacency", ",", "\[IndentingNewLine]", 
         "sizeVertex", ",", "sizeImage"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<'t-SNE' Dimensionality Reduction\>\"", ",", "Bold", ",", 
         "Large"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"plot", "[", 
        RowBox[{"adjacencyMtrxN2VP", ",", "vertexNumberLabel", ",", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"dimReduced2DMonoplex", "[", "\"\<TSNE\>\"", "]"}], ","}], 
          "*)"}], 
         RowBox[{"dimReduced3DMonoplex", "[", "\"\<TSNE\>\"", "]"}], ",", 
         "adjacency", ",", "adjacency", ",", "\[IndentingNewLine]", 
         "sizeVertex", ",", "sizeImage"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<'Autoencoder' Dimensionality Reduction\>\"", ",", "Bold", ",", 
         "Large"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"plot", "[", 
        RowBox[{"adjacencyMtrxN2VP", ",", "vertexNumberLabel", ",", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"dimReduced2DMonoplex", "[", "\"\<Autoencoder\>\"", "]"}], 
           ","}], "*)"}], 
         RowBox[{"dimReduced3DMonoplex", "[", "\"\<Autoencoder\>\"", "]"}], 
         ",", "adjacency", ",", "adjacency", ",", "\[IndentingNewLine]", 
         "sizeVertex", ",", "sizeImage"}], "]"}]}], "}"}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8857904069911165`*^9, 3.885790433761879*^9}, {
  3.885790479813374*^9, 3.885790660414734*^9}, {3.885799652816448*^9, 
  3.885799667806547*^9}, {3.885955024353264*^9, 3.885955060846876*^9}, {
  3.885955165951654*^9, 3.8859552113442125`*^9}, {3.885955248850111*^9, 
  3.8859552627518377`*^9}, {3.88595535953481*^9, 3.885955365962407*^9}, {
  3.88595548514551*^9, 3.8859555039985933`*^9}, {3.885955862275542*^9, 
  3.885955864636716*^9}, {3.8861128178682623`*^9, 3.8861128394705753`*^9}, {
  3.8861160652599525`*^9, 3.886116071436967*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[423]:=",ExpressionUUID->"8a1fd694-3881-4620-88cd-f32a386317e5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]PlotCompareMonoplexEmbedding", "[", 
   RowBox[{"adjacency_", ",", 
    RowBox[{"coordOnly_", ":", "False"}], ",", 
    RowBox[{"sizeVertex_", ":", "VERTEXSIZE0"}], ",", 
    RowBox[{"sizeImage_", ":", "IMAGESIZE0"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"plot", "=", 
      RowBox[{"If", "[", 
       RowBox[{"coordOnly", ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ListPointPlot3D", "[", 
          RowBox[{
           RowBox[{"#", "->", 
            RowBox[{"Values", "@", "vertexNumberLabel"}]}], ",", 
           RowBox[{"PlotTheme", "->", "\"\<Detailed\>\""}], ",", 
           RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}], "&"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"GraphPlot3D", "[", 
          RowBox[{
           RowBox[{"AdjacencyGraph", "@", 
            RowBox[{"adjacencyMtrxN2VP", "[", "adjacency", "]"}]}], ",", 
           RowBox[{"VertexLabels", "->", "vertexNumberLabel"}], ",", 
           RowBox[{"VertexCoordinates", "->", "#"}], ",", 
           RowBox[{"VertexSize", "->", "sizeVertex"}], ",", 
           RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}], "&"}]}], 
       "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Grid", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "Bold", ",", 
            TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
             "RGBColorSwatchTemplate"]}], "]"}], "&"}], "/@", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"adjacency", "<>", "\"\< - MatrixPlot\>\""}], ",", 
           RowBox[{"adjacency", "<>", "\"\< - Node2vec+\>\""}]}], "}"}]}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"MatrixPlot", "[", 
           RowBox[{
            RowBox[{"adjacencyMtrxN2VP", "[", "adjacency", "]"}], ",", 
            RowBox[{"Mesh", "->", "All"}], ",", 
            RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}], ",", 
          RowBox[{"plot", "@", 
           RowBox[{"graphEmbedded3DN2VP", "[", "adjacency", "]"}]}]}], "}"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "Bold", ",", 
            TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
             "RGBColorSwatchTemplate"]}], "]"}], "&"}], "/@", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"adjacency", "<>", "\"\< - TSNE\>\""}], ",", 
           RowBox[{"adjacency", "<>", "\"\< - Autoencoder\>\""}]}], "}"}]}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"plot", "@", 
           RowBox[{"dimReduced3DMonoplex", "[", 
            RowBox[{"\"\<TSNE\>\"", ",", "adjacency"}], "]"}]}], ",", 
          RowBox[{"plot", "@", 
           RowBox[{"dimReduced3DMonoplex", "[", 
            RowBox[{"\"\<Autoencoder\>\"", ",", "adjacency"}], "]"}]}]}], 
         "}"}]}], "\[IndentingNewLine]", "}"}], ",", 
      RowBox[{"Frame", "->", "All"}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8854323837224336`*^9, 3.8854323945379333`*^9}, {
   3.885432473206624*^9, 3.885432900561945*^9}, {3.885432960310556*^9, 
   3.885433006629282*^9}, {3.8854331115207305`*^9, 3.885433152491764*^9}, {
   3.8854332038892174`*^9, 3.885433258860891*^9}, {3.88543331837998*^9, 
   3.8854333432870336`*^9}, {3.885433377993168*^9, 3.8854337051366687`*^9}, {
   3.885433753433678*^9, 3.885433798633258*^9}, {3.885433856498012*^9, 
   3.8854338668942785`*^9}, {3.8854339035383606`*^9, 
   3.8854340491564035`*^9}, {3.885434086260288*^9, 3.885434201717524*^9}, {
   3.8854342520559497`*^9, 3.885434400087387*^9}, {3.8854344333119497`*^9, 
   3.8854345374710536`*^9}, {3.885434598999384*^9, 3.8854346443663273`*^9}, {
   3.88543469302448*^9, 3.8854348803781557`*^9}, {3.8854349285567403`*^9, 
   3.8854349344225435`*^9}, {3.885435188257352*^9, 3.885435195761675*^9}, 
   3.8854352306022406`*^9, {3.88543538119468*^9, 3.8854355559258947`*^9}, 
   3.8854362279653454`*^9, {3.8856061104982395`*^9, 3.885606191885829*^9}, {
   3.8856064354855294`*^9, 3.885606437686078*^9}, 3.8856064814036894`*^9, 
   3.885606566270522*^9, {3.885606914010069*^9, 3.885606914786411*^9}, {
   3.8856070146422977`*^9, 3.885607083917487*^9}, {3.8856327671490326`*^9, 
   3.8856328159615707`*^9}, {3.8856342293621864`*^9, 3.885634231447603*^9}, {
   3.885774511889037*^9, 3.8857745185972958`*^9}, {3.8857746352851114`*^9, 
   3.885774727600442*^9}, {3.8857747606696544`*^9, 3.885774918915951*^9}, {
   3.8857749662488155`*^9, 3.8857750186403666`*^9}, {3.8857769431774316`*^9, 
   3.8857769476321507`*^9}, 3.885777046918995*^9, {3.885777119493822*^9, 
   3.8857771225338492`*^9}, {3.8857771551678314`*^9, 3.885777319221496*^9}, {
   3.88577735374942*^9, 3.8857774844999075`*^9}, {3.88577752398254*^9, 
   3.8857775604793215`*^9}, 3.8857779377872734`*^9, 3.8857780038252506`*^9, {
   3.885785372426158*^9, 3.8857853732257323`*^9}, 3.8857854075851603`*^9, {
   3.88578544853462*^9, 3.8857854512850065`*^9}, {3.8857855229558353`*^9, 
   3.885785547590774*^9}, {3.8857863591794395`*^9, 3.885786375109671*^9}, 
   3.885786506168326*^9, {3.8857879998401337`*^9, 3.885788028971726*^9}, {
   3.8857994939354525`*^9, 3.885799503781028*^9}, {3.885953833652603*^9, 
   3.8859538728175387`*^9}, {3.8859539147109776`*^9, 
   3.8859539748029785`*^9}, {3.885954029424847*^9, 3.8859540518207965`*^9}, {
   3.885954110742976*^9, 3.8859541118299255`*^9}, 3.885954244634142*^9, {
   3.8859543500395107`*^9, 3.8859544063231697`*^9}, {3.885954750011799*^9, 
   3.8859548139349437`*^9}, {3.8859571578309383`*^9, 3.885957185962888*^9}, {
   3.885957338970093*^9, 3.885957380307788*^9}, {3.8859574267451763`*^9, 
   3.8859575631981354`*^9}, {3.8859576032542734`*^9, 3.88595765904359*^9}, {
   3.8861121774537916`*^9, 3.886112182274702*^9}, {3.8861124015771284`*^9, 
   3.886112411682664*^9}, {3.88611400158929*^9, 3.8861140385185633`*^9}, {
   3.886114088241457*^9, 3.886114088762226*^9}, {3.8861141302152386`*^9, 
   3.886114143527851*^9}, {3.88611419320899*^9, 3.886114223113761*^9}, {
   3.886114270985261*^9, 3.886114285877268*^9}, {3.886114328982813*^9, 
   3.886114372229721*^9}, {3.886114403287141*^9, 3.886114465405721*^9}, {
   3.886114498568663*^9, 3.886114544823298*^9}, {3.8861146416882343`*^9, 
   3.886114662292246*^9}, {3.8861147045891433`*^9, 3.8861147273585405`*^9}, {
   3.886114810370694*^9, 3.8861148144863787`*^9}, {3.8861148526087074`*^9, 
   3.886114867910402*^9}, {3.886115203365157*^9, 3.8861152096932297`*^9}, {
   3.886115493135219*^9, 3.8861155962102118`*^9}, {3.8861156688779955`*^9, 
   3.8861156839661827`*^9}, {3.8861157629083924`*^9, 3.8861159003139*^9}, {
   3.8861159428740144`*^9, 3.8861159750985317`*^9}, 3.886116120748645*^9, 
   3.8861161807293053`*^9, {3.886117345146661*^9, 3.886117384844502*^9}, 
   3.8861174345105906`*^9, {3.8861193977586117`*^9, 3.886119398557041*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[424]:=",ExpressionUUID->"88ed38e4-a2f3-42ba-9358-b84143231a47"],

Cell[BoxData[{
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
      "\[ScriptCapitalP]\[ScriptCapitalN]PlotListMonoplexEmbedding", "[", 
       RowBox[{
       "\"\<GrangerCausalVar\>\"", ",", "#", ",", "VERTEXSIZE0", ",", 
        "Small"}], "]"}], "&"}], "/@", 
     RowBox[{"{", 
      RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", 
   RowBox[{"Frame", "->", "All"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
      "\[ScriptCapitalP]\[ScriptCapitalN]PlotCompareMonoplexEmbedding", "[", 
       RowBox[{
       "\"\<GrangerCausalVar\>\"", ",", "#", ",", "VERTEXSIZE0", ",", 
        "Small"}], "]"}], "&"}], "/@", 
     RowBox[{"{", 
      RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", 
   RowBox[{"Frame", "->", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8861173546133924`*^9, 3.8861173581963577`*^9}, {
  3.8861173885209618`*^9, 3.886117392000425*^9}, {3.886119393476489*^9, 
  3.886119394011699*^9}, {3.8861194843894067`*^9, 3.8861195348503113`*^9}, {
  3.8861195878965445`*^9, 3.8861195893359323`*^9}},
 CellLabel->
  "In[425]:=",ExpressionUUID->"5b357234-45c9-4966-9285-7bda57dc2346"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]PlotListMultiplexEmbedding", "[", 
   RowBox[{"adjacency_", ",", 
    RowBox[{"coordOnly_", ":", "False"}], ",", 
    RowBox[{"sizeVertex_", ":", "VERTEXSIZE0"}], ",", 
    RowBox[{"sizeImage_", ":", "IMAGESIZE0"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"plot", "=", 
      RowBox[{"If", "[", 
       RowBox[{
       "coordOnly", ",", 
        "\[ScriptCapitalP]\[ScriptCapitalN]PlotAdjacencyEmbedding", ",", 
        "\[ScriptCapitalP]\[ScriptCapitalN]\
PlotEmbeddedMultiplexAdjacencyMtrx"}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"TableForm", "[", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<'HDMI' Graph Embedding\>\"", ",", "Bold", ",", "Large"}],
         "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"plot", "[", 
        RowBox[{"adjacencyMtrxHDMI", ",", "vertexNumberLabel", ",", 
         RowBox[{"(*", 
          RowBox[{"graphEmbedded2DHDMI", ","}], "*)"}], "graphEmbedded3DHDMI",
          ",", "adjacency", ",", "adjacency", ",", "\[IndentingNewLine]", 
         "sizeVertex", ",", "sizeImage"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<'Linear' Dimensionality Reduction\>\"", ",", "Bold", ",", 
         "Large"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"plot", "[", 
        RowBox[{"adjacencyMtrxHDMI", ",", "vertexNumberLabel", ",", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"dimReduced2DMultiplex", "[", "\"\<Linear\>\"", "]"}], 
           ","}], "*)"}], 
         RowBox[{"dimReduced3DMultiplex", "[", "\"\<Linear\>\"", "]"}], ",", 
         "adjacency", ",", "adjacency", ",", "\[IndentingNewLine]", 
         "sizeVertex", ",", "sizeImage"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<'t-SNE' Dimensionality Reduction\>\"", ",", "Bold", ",", 
         "Large"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"plot", "[", 
        RowBox[{"adjacencyMtrxHDMI", ",", "vertexNumberLabel", ",", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"dimReduced2DMultiplex", "[", "\"\<TSNE\>\"", "]"}], ","}],
           "*)"}], 
         RowBox[{"dimReduced3DMultiplex", "[", "\"\<TSNE\>\"", "]"}], ",", 
         "adjacency", ",", "adjacency", ",", "\[IndentingNewLine]", 
         "sizeVertex", ",", "sizeImage"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<'Autoencoder' Dimensionality Reduction\>\"", ",", "Bold", ",", 
         "Large"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"plot", "[", 
        RowBox[{"adjacencyMtrxHDMI", ",", "vertexNumberLabel", ",", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"dimReduced2DMultiplex", "[", "\"\<Autoencoder\>\"", "]"}],
            ","}], "*)"}], 
         RowBox[{"dimReduced3DMultiplex", "[", "\"\<Autoencoder\>\"", "]"}], 
         ",", "adjacency", ",", "adjacency", ",", "\[IndentingNewLine]", 
         "sizeVertex", ",", "sizeImage"}], "]"}]}], "}"}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8857904069911165`*^9, 3.885790433761879*^9}, {
   3.885790479813374*^9, 3.885790660414734*^9}, {3.8857912694643927`*^9, 
   3.8857913324987245`*^9}, {3.8857996173388224`*^9, 
   3.8857996345421963`*^9}, {3.8857996778232727`*^9, 
   3.8857996785037823`*^9}, {3.885955081935508*^9, 3.885955109848464*^9}, {
   3.885955146407677*^9, 3.885955155302648*^9}, {3.8859554341920204`*^9, 
   3.885955457528212*^9}, 3.88595577635754*^9, {3.885955822199452*^9, 
   3.8859558327739153`*^9}, {3.8859558675466137`*^9, 
   3.8859558698225927`*^9}, {3.8861128610949607`*^9, 3.886112879605274*^9}, {
   3.8861162211806498`*^9, 3.8861162264415865`*^9}, {3.8861194284799657`*^9, 
   3.8861194293065195`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[427]:=",ExpressionUUID->"eb3b5678-c028-4e02-9ef2-4cc5bde65a05"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "\[ScriptCapitalP]\[ScriptCapitalN]PlotCompareMultiplexEmbedding", "[", 
   RowBox[{"adjacency_", ",", 
    RowBox[{"coordOnly_", ":", "False"}], ",", 
    RowBox[{"sizeVertex_", ":", "VERTEXSIZE0"}], ",", 
    RowBox[{"sizeImage_", ":", "IMAGESIZE0"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"plot", "=", 
      RowBox[{"If", "[", 
       RowBox[{"coordOnly", ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ListPointPlot3D", "[", 
          RowBox[{
           RowBox[{"#", "->", 
            RowBox[{"Values", "@", "vertexNumberLabel"}]}], ",", 
           RowBox[{"PlotTheme", "->", "\"\<Detailed\>\""}], ",", 
           RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}], "&"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
         "\[ScriptCapitalP]\[ScriptCapitalN]GraphWeightedAdjacencyMtrx", "[", 
          RowBox[{
           RowBox[{"adjacencyMtrxHDMI", "[", "adjacency", "]"}], ",", 
           "vertexNumberLabel", ",", "#", ",", "sizeImage"}], "]"}], "&"}]}], 
       "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Grid", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "Bold", ",", 
            TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
             "RGBColorSwatchTemplate"]}], "]"}], "&"}], "/@", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"adjacency", "<>", "\"\< - MatrixPlot\>\""}], ",", 
           RowBox[{"adjacency", "<>", "\"\< - HDMI\>\""}]}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"MatrixPlot", "[", 
           RowBox[{
            RowBox[{"adjacencyMtrxHDMI", "[", "adjacency", "]"}], ",", 
            RowBox[{"Mesh", "->", "All"}], ",", 
            RowBox[{"ImageSize", "->", "sizeImage"}]}], "]"}], ",", 
          RowBox[{"plot", "@", 
           RowBox[{"graphEmbedded3DHDMI", "[", "adjacency", "]"}]}]}], "}"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "Bold", ",", 
            TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>,
             "RGBColorSwatchTemplate"]}], "]"}], "&"}], "/@", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"adjacency", "<>", "\"\< - TSNE\>\""}], ",", 
           RowBox[{"adjacency", "<>", "\"\< - Autoencoder\>\""}]}], "}"}]}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"plot", "@", 
           RowBox[{"dimReduced3DMultiplex", "[", 
            RowBox[{"\"\<TSNE\>\"", ",", "adjacency"}], "]"}]}], ",", 
          RowBox[{"plot", "@", 
           RowBox[{"dimReduced3DMultiplex", "[", 
            RowBox[{"\"\<Autoencoder\>\"", ",", "adjacency"}], "]"}]}]}], 
         "}"}]}], "\[IndentingNewLine]", "}"}], ",", 
      RowBox[{"Frame", "->", "All"}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8854323837224336`*^9, 3.8854323945379333`*^9}, {
   3.885432473206624*^9, 3.885432900561945*^9}, {3.885432960310556*^9, 
   3.885433006629282*^9}, {3.8854331115207305`*^9, 3.885433152491764*^9}, {
   3.8854332038892174`*^9, 3.885433258860891*^9}, {3.88543331837998*^9, 
   3.8854333432870336`*^9}, {3.885433377993168*^9, 3.8854337051366687`*^9}, {
   3.885433753433678*^9, 3.885433798633258*^9}, {3.885433856498012*^9, 
   3.8854338668942785`*^9}, {3.8854339035383606`*^9, 
   3.8854340491564035`*^9}, {3.885434086260288*^9, 3.885434201717524*^9}, {
   3.8854342520559497`*^9, 3.885434400087387*^9}, {3.8854344333119497`*^9, 
   3.8854345374710536`*^9}, {3.885434598999384*^9, 3.8854346443663273`*^9}, {
   3.88543469302448*^9, 3.8854348803781557`*^9}, {3.8854349285567403`*^9, 
   3.8854349344225435`*^9}, {3.885435188257352*^9, 3.885435195761675*^9}, 
   3.8854352306022406`*^9, {3.88543538119468*^9, 3.8854355559258947`*^9}, 
   3.8854362279653454`*^9, {3.8856061104982395`*^9, 3.885606191885829*^9}, {
   3.8856064354855294`*^9, 3.885606437686078*^9}, 3.8856064814036894`*^9, 
   3.885606566270522*^9, {3.885606914010069*^9, 3.885606914786411*^9}, {
   3.8856070146422977`*^9, 3.885607083917487*^9}, {3.8856327671490326`*^9, 
   3.8856328159615707`*^9}, {3.8856342293621864`*^9, 3.885634231447603*^9}, {
   3.885774511889037*^9, 3.8857745185972958`*^9}, {3.8857746352851114`*^9, 
   3.885774727600442*^9}, {3.8857747606696544`*^9, 3.885774918915951*^9}, {
   3.8857749662488155`*^9, 3.8857750186403666`*^9}, {3.8857769431774316`*^9, 
   3.8857769476321507`*^9}, 3.885777046918995*^9, {3.885777119493822*^9, 
   3.8857771225338492`*^9}, {3.8857771551678314`*^9, 3.885777319221496*^9}, {
   3.88577735374942*^9, 3.8857774844999075`*^9}, {3.88577752398254*^9, 
   3.8857775604793215`*^9}, 3.8857779377872734`*^9, 3.8857780038252506`*^9, {
   3.885785372426158*^9, 3.8857853732257323`*^9}, 3.8857854075851603`*^9, {
   3.88578544853462*^9, 3.8857854512850065`*^9}, {3.8857855229558353`*^9, 
   3.885785547590774*^9}, {3.8857863591794395`*^9, 3.885786375109671*^9}, 
   3.885786506168326*^9, {3.8857879998401337`*^9, 3.885788028971726*^9}, {
   3.8857994939354525`*^9, 3.885799503781028*^9}, {3.885953833652603*^9, 
   3.8859538728175387`*^9}, {3.8859539147109776`*^9, 
   3.8859539748029785`*^9}, {3.885954029424847*^9, 3.8859540518207965`*^9}, {
   3.885954110742976*^9, 3.8859541118299255`*^9}, 3.885954244634142*^9, {
   3.8859543500395107`*^9, 3.8859544063231697`*^9}, {3.885954750011799*^9, 
   3.8859548139349437`*^9}, {3.8859571578309383`*^9, 3.885957185962888*^9}, {
   3.885957338970093*^9, 3.885957380307788*^9}, {3.8859574267451763`*^9, 
   3.8859575631981354`*^9}, {3.8859576032542734`*^9, 3.88595765904359*^9}, {
   3.8861121774537916`*^9, 3.886112182274702*^9}, {3.8861124015771284`*^9, 
   3.886112411682664*^9}, {3.88611400158929*^9, 3.8861140385185633`*^9}, {
   3.886114088241457*^9, 3.886114088762226*^9}, {3.8861141302152386`*^9, 
   3.886114143527851*^9}, {3.88611419320899*^9, 3.886114223113761*^9}, {
   3.886114270985261*^9, 3.886114285877268*^9}, {3.886114328982813*^9, 
   3.886114372229721*^9}, {3.886114403287141*^9, 3.886114465405721*^9}, {
   3.886114498568663*^9, 3.886114544823298*^9}, {3.8861146416882343`*^9, 
   3.886114662292246*^9}, {3.8861147045891433`*^9, 3.8861147273585405`*^9}, {
   3.886114810370694*^9, 3.8861148144863787`*^9}, {3.8861148526087074`*^9, 
   3.886114867910402*^9}, {3.886115203365157*^9, 3.8861152096932297`*^9}, {
   3.886115493135219*^9, 3.8861155962102118`*^9}, {3.8861156688779955`*^9, 
   3.8861156839661827`*^9}, {3.8861157629083924`*^9, 3.8861159003139*^9}, {
   3.8861159428740144`*^9, 3.8861159750985317`*^9}, 3.886116120748645*^9, {
   3.8861162618344264`*^9, 3.8861162733991456`*^9}, 3.8861163196455917`*^9, {
   3.886116395604955*^9, 3.886116443408348*^9}, {3.8861165243381057`*^9, 
   3.886116537980688*^9}, 3.8861170007741423`*^9, {3.886117318459425*^9, 
   3.8861173254651165`*^9}, {3.886117464617279*^9, 3.8861174728565507`*^9}, {
   3.886119354946125*^9, 3.886119355724927*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[428]:=",ExpressionUUID->"b6627fbe-87fe-4f11-ad84-81728aff3f0f"],

Cell[BoxData[{
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
      "\[ScriptCapitalP]\[ScriptCapitalN]PlotListMultiplexEmbedding", "[", 
       RowBox[{
       "\"\<PearsonKendallCopulaGranger\>\"", ",", "#", ",", "VERTEXSIZE0", 
        ",", "Small"}], "]"}], "&"}], "/@", 
     RowBox[{"{", 
      RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", 
   RowBox[{"Frame", "->", "All"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
      "\[ScriptCapitalP]\[ScriptCapitalN]PlotCompareMultiplexEmbedding", "[", 
       RowBox[{
       "\"\<PearsonKendallCopulaGranger\>\"", ",", "#", ",", "VERTEXSIZE0", 
        ",", "Small"}], "]"}], "&"}], "/@", 
     RowBox[{"{", 
      RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", 
   RowBox[{"Frame", "->", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8861161342338314`*^9, 3.886116144658823*^9}, {
  3.8861162828158145`*^9, 3.8861163130786347`*^9}, {3.8861173341080203`*^9, 
  3.8861173380641837`*^9}, {3.8861174899181633`*^9, 3.8861174924599967`*^9}, {
  3.8861193720328736`*^9, 3.8861193726476603`*^9}, {3.886119609607853*^9, 
  3.8861196551271467`*^9}},
 CellLabel->
  "In[429]:=",ExpressionUUID->"3eea023a-5936-4851-aaed-35ea272d1912"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Timing", "[", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Export", "[", 
         RowBox[{
          RowBox[{
          "OUTPUTDIR0", "<>", "\"\<(figure)ListMonoplexEmbedding-\>\"", "<>", 
           "#", "<>", "\"\<.png\>\""}], ",", "\[IndentingNewLine]", 
          RowBox[{
          "\[ScriptCapitalP]\[ScriptCapitalN]PlotListMonoplexEmbedding", "[", 
           RowBox[{"#", ",", "True"}], "]"}]}], "]"}], "&"}], "/@", 
       RowBox[{"Keys", "[", "adjacencyGraphN2VP", "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Export", "[", 
         RowBox[{
          RowBox[{
          "OUTPUTDIR0", "<>", "\"\<(figure)CompareMonoplexEmbedding-\>\"", "<>",
            "#", "<>", "\"\<.png\>\""}], ",", "\[IndentingNewLine]", 
          RowBox[{
          "\[ScriptCapitalP]\[ScriptCapitalN]PlotCompareMonoplexEmbedding", 
           "[", 
           RowBox[{"#", ",", "True"}], "]"}]}], "]"}], "&"}], "/@", 
       RowBox[{"Keys", "[", "adjacencyGraphN2VP", "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Export", "[", 
         RowBox[{
          RowBox[{
          "OUTPUTDIR0", "<>", "\"\<(figure)ListMonoplexEmbeddingGraph-\>\"", "<>",
            "#", "<>", "\"\<.png\>\""}], ",", "\[IndentingNewLine]", 
          RowBox[{
          "\[ScriptCapitalP]\[ScriptCapitalN]PlotListMonoplexEmbedding", "[", 
           "#", "]"}]}], "]"}], "&"}], "/@", 
       RowBox[{"Keys", "[", "adjacencyGraphN2VP", "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Export", "[", 
         RowBox[{
          RowBox[{
          "OUTPUTDIR0", "<>", 
           "\"\<(figure)CompareMonoplexEmbeddingGraph-\>\"", "<>", "#", "<>", 
           "\"\<.png\>\""}], ",", "\[IndentingNewLine]", 
          RowBox[{
          "\[ScriptCapitalP]\[ScriptCapitalN]PlotCompareMonoplexEmbedding", 
           "[", "#", "]"}]}], "]"}], "&"}], "/@", 
       RowBox[{"Keys", "[", "adjacencyGraphN2VP", "]"}]}]}], "}"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8857922103621044`*^9, 3.8857922200563564`*^9}, {
  3.8857926218157682`*^9, 3.8857926493196435`*^9}, {3.885792679795906*^9, 
  3.885792712185302*^9}, {3.88579276991716*^9, 3.885792832895687*^9}, {
  3.8857986367851615`*^9, 3.8857986383188686`*^9}, {3.8861133091157203`*^9, 
  3.8861133158942566`*^9}, {3.8861133660569897`*^9, 3.8861134140439997`*^9}, {
  3.886117098726384*^9, 3.88611713349032*^9}, {3.886117513294245*^9, 
  3.886117552008442*^9}, {3.8861196919398937`*^9, 3.8861197140966253`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[431]:=",ExpressionUUID->"dce53588-8c33-4926-9481-c714342aedff"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{"EXPORTPICS", ",", 
   RowBox[{"Timing", "[", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Export", "[", 
         RowBox[{
          RowBox[{
          "OUTPUTDIR0", "<>", "\"\<(figure)ListMultiplexEmbedding-\>\"", "<>",
            "#", "<>", "\"\<.png\>\""}], ",", "\[IndentingNewLine]", 
          RowBox[{
          "\[ScriptCapitalP]\[ScriptCapitalN]PlotListMultiplexEmbedding", "[", 
           RowBox[{"#", ",", "True"}], "]"}]}], "]"}], "&"}], "/@", 
       RowBox[{"Keys", "[", "adjacencyGraphHDMI", "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Export", "[", 
         RowBox[{
          RowBox[{
          "OUTPUTDIR0", "<>", "\"\<(figure)CompareMultiplexEmbedding-\>\"", "<>",
            "#", "<>", "\"\<.png\>\""}], ",", "\[IndentingNewLine]", 
          RowBox[{
          "\[ScriptCapitalP]\[ScriptCapitalN]PlotCompareMultiplexEmbedding", 
           "[", 
           RowBox[{"#", ",", "True"}], "]"}]}], "]"}], "&"}], "/@", 
       RowBox[{"Keys", "[", "adjacencyGraphHDMI", "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Export", "[", 
         RowBox[{
          RowBox[{
          "OUTPUTDIR0", "<>", "\"\<(figure)ListMultiplexEmbeddingGraph-\>\"", 
           "<>", "#", "<>", "\"\<.png\>\""}], ",", "\[IndentingNewLine]", 
          RowBox[{
          "\[ScriptCapitalP]\[ScriptCapitalN]PlotListMultiplexEmbedding", "[",
            "#", "]"}]}], "]"}], "&"}], "/@", 
       RowBox[{"Keys", "[", "adjacencyGraphHDMI", "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Export", "[", 
         RowBox[{
          RowBox[{
          "OUTPUTDIR0", "<>", 
           "\"\<(figure)CompareMultiplexEmbeddingGraph-\>\"", "<>", "#", 
           "<>", "\"\<.png\>\""}], ",", "\[IndentingNewLine]", 
          RowBox[{
          "\[ScriptCapitalP]\[ScriptCapitalN]PlotCompareMultiplexEmbedding", 
           "[", "#", "]"}]}], "]"}], "&"}], "/@", 
       RowBox[{"Keys", "[", "adjacencyGraphHDMI", "]"}]}]}], "}"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8857922103621044`*^9, 3.8857922200563564`*^9}, {
  3.8857926218157682`*^9, 3.8857926493196435`*^9}, {3.885792679795906*^9, 
  3.885792712185302*^9}, {3.88579276991716*^9, 3.885792832895687*^9}, {
  3.8857929121370063`*^9, 3.885792918414904*^9}, {3.8857986434891896`*^9, 
  3.885798644951217*^9}, {3.8861133281688232`*^9, 3.8861133338680124`*^9}, {
  3.8861133839371557`*^9, 3.8861134179239273`*^9}, {3.8861175604772005`*^9, 
  3.8861176471650457`*^9}, {3.8861197213732443`*^9, 3.8861197344844103`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->
  "In[432]:=",ExpressionUUID->"c957621d-f50d-4f6d-96e2-3057a728c93e"]
}, Closed]],

Cell[CellGroupData[{

Cell["Interactive Display", "Item",
 CellChangeTimes->{{3.8526821857811947`*^9, 3.8526822078745503`*^9}, {
  3.853279843773856*^9, 3.8532799106104054`*^9}, {3.853279947176876*^9, 
  3.853279970705259*^9}, {3.853280069721923*^9, 3.8532801181046576`*^9}, {
  3.8532801698013783`*^9, 3.853280204009462*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"0ce1d139-b38a-4ecc-887c-4b39358f0c82"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewMonoplexEmbedding", "[", 
   RowBox[{
    RowBox[{"graphItem0_", ":", "1"}], ",", 
    RowBox[{"listAll0_", ":", "False"}], ",", 
    RowBox[{"coordOnly0_", ":", "False"}], ",", 
    RowBox[{"sizeVertex_", ":", "VERTEXSIZE0"}], ",", 
    RowBox[{"sizeImage0_", ":", "IMAGESIZE0"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
      "listAll", ",", 
       "\[ScriptCapitalP]\[ScriptCapitalN]PlotListMonoplexEmbedding", ",", 
       "\[ScriptCapitalP]\[ScriptCapitalN]PlotCompareMonoplexEmbedding"}], 
      "]"}], "[", 
     RowBox[{
     "adjacency", ",", "coordOnly", ",", "sizeVertex", ",", "sizeImage"}], 
     "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"adjacency", ",", 
        RowBox[{
         RowBox[{"Keys", "[", "adjacencyGraphN2VP", "]"}], "[", 
         RowBox[{"[", "graphItem0", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"Keys", "@", "adjacencyGraphN2VP"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"listAll", ",", "listAll0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"coordOnly", ",", "coordOnly0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"sizeImage", ",", "sizeImage0"}], "}"}], ",", 
      "LISTIMAGESIZE0"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ControlType", "->", "PopupMenu"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ControlPlacement", "->", "Bottom"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8857898409211235`*^9, 3.8857898716569834`*^9}, {
  3.885789908274528*^9, 3.885789928355067*^9}, {3.885789958476989*^9, 
  3.8857903777917104`*^9}, {3.8857906780054226`*^9, 3.8857907115261917`*^9}, {
  3.885790761915152*^9, 3.8857908084869103`*^9}, {3.8857909172470217`*^9, 
  3.8857909370939407`*^9}, {3.8857916506173005`*^9, 3.885791659725151*^9}, {
  3.88595594512792*^9, 3.885956039896228*^9}, {3.886117768535767*^9, 
  3.8861177927367115`*^9}, {3.886117915102997*^9, 3.886117922736107*^9}, {
  3.8861180484884033`*^9, 3.8861181164765615`*^9}, {3.886118371252281*^9, 
  3.8861184287402873`*^9}, {3.886119232106682*^9, 3.886119252211241*^9}, {
  3.8861206398459387`*^9, 3.886120640555254*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[433]:=",ExpressionUUID->"e6e91374-5e7f-49b0-aba3-711b6009143a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewMultiplexEmbedding", "[", 
   RowBox[{
    RowBox[{"graphItem0_", ":", "1"}], ",", 
    RowBox[{"listAll0_", ":", "False"}], ",", 
    RowBox[{"coordOnly0_", ":", "False"}], ",", 
    RowBox[{"sizeVertex_", ":", "VERTEXSIZE0"}], ",", 
    RowBox[{"sizeImage0_", ":", "IMAGESIZE0"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
      "listAll", ",", 
       "\[ScriptCapitalP]\[ScriptCapitalN]PlotListMultiplexEmbedding", ",", 
       "\[ScriptCapitalP]\[ScriptCapitalN]PlotCompareMultiplexEmbedding"}], 
      "]"}], "[", 
     RowBox[{
     "adjacency", ",", "coordOnly", ",", "sizeVertex", ",", "sizeImage"}], 
     "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"adjacency", ",", 
        RowBox[{
         RowBox[{"Keys", "[", "adjacencyGraphHDMI", "]"}], "[", 
         RowBox[{"[", "graphItem0", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"Keys", "@", "adjacencyGraphHDMI"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"listAll", ",", "listAll0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"coordOnly", ",", "coordOnly0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"sizeImage", ",", "sizeImage0"}], "}"}], ",", 
      "LISTIMAGESIZE0"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ControlType", "->", "PopupMenu"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ControlPlacement", "->", "Bottom"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8857898409211235`*^9, 3.8857898716569834`*^9}, {
   3.885789908274528*^9, 3.885789928355067*^9}, {3.885789958476989*^9, 
   3.8857903777917104`*^9}, {3.8857906780054226`*^9, 
   3.8857907115261917`*^9}, {3.885790761915152*^9, 3.8857908084869103`*^9}, {
   3.8857909172470217`*^9, 3.885790922609891*^9}, 3.8857916857887907`*^9, {
   3.885791765791479*^9, 3.885791770092204*^9}, {3.8859559809445267`*^9, 
   3.8859559948631926`*^9}, {3.885956026324092*^9, 3.885956037187588*^9}, {
   3.886117800136576*^9, 3.8861178180487766`*^9}, {3.886117925680414*^9, 
   3.8861179277254033`*^9}, 3.886118123624882*^9, {3.8861182563188233`*^9, 
   3.886118291279665*^9}, {3.8861184039788475`*^9, 3.886118439452598*^9}, 
   3.886118675956787*^9, {3.8861192394012213`*^9, 3.8861192478168445`*^9}, {
   3.886120632812254*^9, 3.886120633623612*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[434]:=",ExpressionUUID->"39dac4d6-6eda-4cf1-ae18-f1b7ab5e81cd"],

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
      "\[ScriptCapitalP]\[ScriptCapitalN]ViewMonoplexEmbedding", "[", "]"}], 
      ",", 
      RowBox[{
      "\[ScriptCapitalP]\[ScriptCapitalN]ViewMultiplexEmbedding", "[", 
       "]"}]}], "}"}], "}"}], ",", 
   RowBox[{"Frame", "->", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.886118512876254*^9, 3.8861185192039356`*^9}},
 CellLabel->
  "In[435]:=",ExpressionUUID->"6f70c87f-85e5-4b0d-a0d6-59b04d69b0f5"],

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewMonoplexEmbedding", "[", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "True", ",", "True"}], "]"}], ",", 
      RowBox[{"\[ScriptCapitalP]\[ScriptCapitalN]ViewMultiplexEmbedding", "[", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "True", ",", "True"}], "]"}]}], "}"}], "}"}],
    ",", 
   RowBox[{"Frame", "->", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8861192938792343`*^9, 3.8861192972999487`*^9}, 
   3.886120551452638*^9, {3.8861206541877337`*^9, 3.88612065804808*^9}},
 CellLabel->
  "In[436]:=",ExpressionUUID->"c28c8c02-0c35-4c20-937d-c01e6d05ec40"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"NotebookSave", "[", "]"}], ";", 
   RowBox[{"EmitSound", "[", 
    RowBox[{"Sound", "[", 
     RowBox[{"SoundNote", "[", 
      RowBox[{"\"\<C\>\"", ",", ".5", ",", "\"\<Violin\>\""}], "]"}], "]"}], 
    "]"}]}],
  FontColor->GrayLevel[1]]], "Input",
 CellChangeTimes->{{3.8799140033373775`*^9, 3.879914004747589*^9}, 
   3.880002577173757*^9, {3.883723918193898*^9, 3.8837239212077284`*^9}, {
   3.883787399583018*^9, 3.883787400193737*^9}},
 Background->GrayLevel[0],
 CellLabel->
  "In[437]:=",ExpressionUUID->"96af34a7-ae5c-43c5-bd78-5ac2f953f5fd"]
}, Closed]]
}, Open  ]]
}, Open  ]]
},
ScreenStyleEnvironment->"SlideShow",
WindowSize->{846.6666666666666, 402.3333333333333},
WindowMargins->{{425.3333333333333, Automatic}, {
  1.3333333333333144`, Automatic}},
TaggingRules-><|
 "TryRealOnly" -> False, "SlideshowSettings" -> <|"Toolbar" -> True|>|>,
Magnification:>0.4 Inherited,
FrontEndVersion->"13.1 for Microsoft Windows (64-bit) (August 22, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"6dddeb72-1aac-4593-a8d3-0f10da27c672"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[580, 22, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"d221077b-ced1-42aa-b161-400de396ac64",
   CellTags->"SlideShowHeader"],
  Cell[33690, 801, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"1beac911-f9cc-4ece-aedc-c26e6c9c3ba3",
   CellTags->"SlideShowHeader"],
  Cell[101868, 2452, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"e06680a3-6fe2-4f35-880c-e103fc03dc06",
   CellTags->"SlideShowHeader"],
  Cell[193239, 4521, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"7991e3c6-2a2e-436c-bd3b-7277a7936487",
   CellTags->"SlideShowHeader"],
  Cell[241127, 5611, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"e72278da-6857-46fb-8a09-9ef849e01c3d",
   CellTags->"SlideShowHeader"],
  Cell[283387, 6567, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"f420562a-fe10-4de8-b676-8d452f6120f0",
   CellTags->"SlideShowHeader"],
  Cell[348202, 8064, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"d64dbf9c-2d36-42f4-9578-6ca1fb980f90",
   CellTags->"SlideShowHeader"],
  Cell[432969, 10234, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"640f74e4-2cca-4c4e-8087-3d9eb2482a89",
   CellTags->"SlideShowHeader"],
  Cell[480233, 11290, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"389e6fea-a668-4109-9ebd-532ef64f49ba",
   CellTags->"SlideShowHeader"],
  Cell[588244, 13879, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"3abdcbb3-7402-4490-89b9-6abf9bac47aa",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 750900, 17511}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"d221077b-ced1-42aa-b161-400de396ac64",
 CellTags->"SlideShowHeader"],
Cell[705, 26, 1160, 44, 56, "Title",ExpressionUUID->"696b889a-19dd-44bc-b4da-f8fcecd7460a"],
Cell[CellGroupData[{
Cell[1890, 74, 615, 10, 29, "Subsubsection",ExpressionUUID->"9b9f6cc2-21fa-4af6-9dfe-55e32cb5e7e3"],
Cell[2508, 86, 350, 8, 27, "Author",ExpressionUUID->"d0110ea0-cbc4-44ae-9d63-767878962062"],
Cell[2861, 96, 2440, 35, 20, "Text",ExpressionUUID->"16cca0e7-87dc-482b-ac54-e4dfdd548c3d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5338, 136, 348, 5, 37, "Section",ExpressionUUID->"6c69614b-3113-45a3-b1ca-76e5c5021de8"],
Cell[CellGroupData[{
Cell[5711, 145, 418, 6, 26, "Item",ExpressionUUID->"a82cb731-8d72-4df9-aca3-2b8225badea8"],
Cell[6132, 153, 1772, 46, 78, "Input",ExpressionUUID->"5c411729-2db8-4c5d-99a0-0f5b42942358"]
}, Closed]],
Cell[CellGroupData[{
Cell[7941, 204, 478, 7, 26, "Item",ExpressionUUID->"fd6c5394-18b3-40a3-9d50-4ea8ceb8ab61"],
Cell[8422, 213, 1729, 33, 89, "Input",ExpressionUUID->"bb402086-cc52-4a84-8220-3d80911826a5"],
Cell[10154, 248, 1091, 21, 31, "Input",ExpressionUUID->"14a6d082-b226-48ed-9a54-2bf718b78386"]
}, Closed]],
Cell[CellGroupData[{
Cell[11282, 274, 502, 7, 26, "Item",ExpressionUUID->"619bd1e3-ba71-4897-a519-f9fcb4e41d78"],
Cell[11787, 283, 2590, 64, 61, "Input",ExpressionUUID->"813a167b-e248-4c31-be85-fa9d3ed9e5fd"],
Cell[14380, 349, 385, 8, 21, "Input",ExpressionUUID->"ff0ae06b-d9f7-4897-91c8-78388e767e20"],
Cell[14768, 359, 1877, 49, 61, "Input",ExpressionUUID->"e69aab8f-5d02-4058-9177-801700b7820e"],
Cell[16648, 410, 2063, 47, 107, "Input",ExpressionUUID->"e8e56739-80d3-4d6b-9253-f6f3159faf3d"],
Cell[18714, 459, 2841, 60, 96, "Input",ExpressionUUID->"d73ad9ef-6733-41b5-8dc9-b6715a2b05d2"],
Cell[21558, 521, 698, 16, 27, "Input",ExpressionUUID->"0f9a41ef-9b9b-4033-b097-3b4e05052d0f"],
Cell[22259, 539, 1173, 28, 37, "Input",ExpressionUUID->"280641ff-7ba0-4bb4-a88f-7151e9d08e25"],
Cell[23435, 569, 676, 16, 27, "Input",ExpressionUUID->"3c49f942-3c94-4fdf-bf20-ebe3cfc0ff54"]
}, Closed]],
Cell[CellGroupData[{
Cell[24148, 590, 403, 6, 26, "Item",ExpressionUUID->"5ab78e08-89db-4336-b83d-560896758e48"],
Cell[24554, 598, 6395, 134, 283, "Input",ExpressionUUID->"ead8d3bd-f89d-4641-af52-063004596775"],
Cell[30952, 734, 643, 12, 21, "Input",ExpressionUUID->"0b809af8-693f-4d65-a83c-e4008fdaa5a5"],
Cell[31598, 748, 1432, 30, 37, "Input",ExpressionUUID->"fae42d0a-ce1a-4062-b2ef-1040feaac040"],
Cell[33033, 780, 596, 14, 27, "Input",ExpressionUUID->"4fa8dae2-bff2-45f2-af75-6b2b1b7bacde"]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[33690, 801, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"1beac911-f9cc-4ece-aedc-c26e6c9c3ba3",
 CellTags->"SlideShowHeader"],
Cell[33815, 805, 1160, 44, 56, "Title",ExpressionUUID->"e32c4eb8-c81e-4bcf-a2b5-346537bcfc46"],
Cell[CellGroupData[{
Cell[35000, 853, 615, 10, 29, "Subsubsection",ExpressionUUID->"9098a509-d9de-4540-ad2a-919e58a48bf3"],
Cell[35618, 865, 350, 8, 27, "Author",ExpressionUUID->"a155319d-5675-4c61-a569-f1f932850f53"],
Cell[35971, 875, 2416, 35, 20, "Text",ExpressionUUID->"719990cd-e0c4-404b-bfd2-012393363a52"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38424, 915, 347, 5, 37, "Section",ExpressionUUID->"d10d27a5-d38b-473c-ac5e-a50b1411acfe"],
Cell[CellGroupData[{
Cell[38796, 924, 304, 5, 26, "Item",ExpressionUUID->"f43944ec-bdd3-4c8b-ab92-923dcfb3418a"],
Cell[39103, 931, 6307, 155, 189, "Input",ExpressionUUID->"79f5a74c-bd1d-4c4e-b008-e3acb888f88e"],
Cell[45413, 1088, 1603, 36, 96, "Input",ExpressionUUID->"e0c33401-b36e-4e6d-b594-bd93d493d17c"],
Cell[47019, 1126, 557, 13, 27, "Input",ExpressionUUID->"8a942b14-0950-4c7d-83a1-528127f55f27"]
}, Closed]],
Cell[CellGroupData[{
Cell[47613, 1144, 371, 5, 26, "Item",ExpressionUUID->"747922c4-04fc-41af-98e7-59742f20cc6e"],
Cell[47987, 1151, 4465, 108, 151, "Input",ExpressionUUID->"6fb35701-cc2e-4930-ad37-1e0acd6c5291"],
Cell[52455, 1261, 1422, 34, 61, "Input",ExpressionUUID->"e90da854-6bb8-4c4f-908f-4513e17176c5"],
Cell[53880, 1297, 578, 12, 27, "Input",ExpressionUUID->"668bacf9-073b-464e-b654-2444e23fffc6"],
Cell[54461, 1311, 1982, 39, 61, "Input",ExpressionUUID->"d25ee2eb-d5e6-41d0-91af-5d96e6443eff"],
Cell[56446, 1352, 596, 13, 27, "Input",ExpressionUUID->"3beed2cb-7c1c-41c4-a8f0-98f5536fc377"],
Cell[57045, 1367, 1880, 36, 61, "Input",ExpressionUUID->"b1cdd6dd-b8f5-44ee-a46a-858868f5cccf"],
Cell[58928, 1405, 706, 16, 27, "Input",ExpressionUUID->"2b5a3e79-e9da-4270-a648-c12849808c45"]
}, Closed]],
Cell[CellGroupData[{
Cell[59671, 1426, 607, 9, 26, "Item",ExpressionUUID->"3dfe9555-5dac-4e35-a61e-ee7cc8f784e7"],
Cell[60281, 1437, 1894, 47, 33, "Input",ExpressionUUID->"d1acdac0-468b-4bbb-928f-020400e28cdf"],
Cell[62178, 1486, 2348, 54, 33, "Input",ExpressionUUID->"21e9724f-3f79-4b96-a9a0-89e572464088"],
Cell[64529, 1542, 2273, 51, 33, "Input",ExpressionUUID->"b7ce254e-6d58-4690-b889-31e7a4e3700c"],
Cell[66805, 1595, 2737, 65, 47, "Input",ExpressionUUID->"8672aa3c-f8a4-4c06-81fe-2d6cd052c429"],
Cell[69545, 1662, 2419, 59, 47, "Input",ExpressionUUID->"38d3c17f-bde3-4af3-8b72-d503091ec40e"]
}, Closed]],
Cell[CellGroupData[{
Cell[72001, 1726, 593, 10, 26, "Item",ExpressionUUID->"51dc9c6c-75e8-4ada-8031-15b6b66077a8"],
Cell[72597, 1738, 4876, 105, 123, "Input",ExpressionUUID->"27bdcc93-7125-4939-ad46-d7d8d5789835"],
Cell[77476, 1845, 432, 10, 27, "Input",ExpressionUUID->"57a7d069-e1bc-4abf-8acc-1c4955b13d9f"],
Cell[77911, 1857, 4819, 104, 123, "Input",ExpressionUUID->"1c3282bf-a6c1-47ed-81fd-a5d054dba2fa"],
Cell[82733, 1963, 460, 10, 27, "Input",ExpressionUUID->"b48aa4b1-6c90-4c04-9ab0-c12cc352ba52"],
Cell[83196, 1975, 6319, 161, 201, "Input",ExpressionUUID->"492fe141-5012-49c3-bbe3-81356d55362b"],
Cell[89518, 2138, 4922, 105, 123, "Input",ExpressionUUID->"f3fb0634-0a0e-4360-983f-61099028c25a"],
Cell[94443, 2245, 431, 10, 27, "Input",ExpressionUUID->"067d4409-438e-46ed-b6f7-1f9017adb068"],
Cell[94877, 2257, 3968, 117, 49, "Input",ExpressionUUID->"f96732a0-974b-4e7e-8622-619704ed0233"],
Cell[98848, 2376, 2360, 53, 72, "Input",ExpressionUUID->"872418cd-0225-4902-9ca0-15149989091f"],
Cell[101211, 2431, 596, 14, 27, "Input",ExpressionUUID->"f28cedcd-b996-444f-9f8e-7a32183b5742"]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[101868, 2452, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"e06680a3-6fe2-4f35-880c-e103fc03dc06",
 CellTags->"SlideShowHeader"],
Cell[101993, 2456, 1160, 44, 56, "Title",ExpressionUUID->"afd89a32-6fc7-4e60-93fd-9cd0e7a263fd"],
Cell[CellGroupData[{
Cell[103178, 2504, 615, 10, 29, "Subsubsection",ExpressionUUID->"84975f96-d9aa-4655-94a0-f2d4ad300b1f"],
Cell[103796, 2516, 350, 8, 27, "Author",ExpressionUUID->"3c54e40f-1d3c-4e46-946c-c5f39235c762"],
Cell[104149, 2526, 2468, 36, 20, "Text",ExpressionUUID->"e2a087a3-2b02-483d-a77e-5ccfd695075c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106654, 2567, 503, 7, 37, "Section",ExpressionUUID->"482be011-571e-4ecb-9af7-ae27c0f2e0a1"],
Cell[CellGroupData[{
Cell[107182, 2578, 510, 7, 26, "Item",ExpressionUUID->"99ce94b2-9b24-4881-9b1d-6c5c469669c1"],
Cell[107695, 2587, 514, 11, 27, "Input",ExpressionUUID->"67903ae0-0ad5-4801-9f0d-12e44d29671d"],
Cell[108212, 2600, 1912, 45, 42, "Input",ExpressionUUID->"e46587c1-2646-4386-825a-ad5a2bd0dcee"],
Cell[110127, 2647, 2425, 63, 70, "Input",ExpressionUUID->"5f3d4482-3524-4686-a1ac-c726c9978856"],
Cell[112555, 2712, 2529, 65, 70, "Input",ExpressionUUID->"32877263-ebb0-4973-a39f-3b2c8bfec4fb"],
Cell[115087, 2779, 2584, 66, 70, "Input",ExpressionUUID->"a181c148-5022-4de4-b515-a79fade9a3a6"],
Cell[117674, 2847, 2584, 66, 70, "Input",ExpressionUUID->"ebf9bbeb-b524-4c1a-b438-862bb7d12b61"]
}, Closed]],
Cell[CellGroupData[{
Cell[120295, 2918, 561, 8, 26, "Item",ExpressionUUID->"ef177810-8546-4bfd-b15e-7a6ee3faa589"],
Cell[120859, 2928, 2828, 72, 42, "Input",ExpressionUUID->"f0ea1440-9c01-48f3-a284-47d5a545aac5"],
Cell[123690, 3002, 2541, 63, 70, "Input",ExpressionUUID->"3d8b9d37-b51b-4789-a4fe-2b3c1fa4d4e0"],
Cell[126234, 3067, 2688, 66, 70, "Input",ExpressionUUID->"643fed4c-be46-4985-837b-c0cad484158f"],
Cell[128925, 3135, 2741, 67, 70, "Input",ExpressionUUID->"9fe4166b-abf1-446b-97ce-238d6f6f932c"],
Cell[131669, 3204, 2744, 67, 70, "Input",ExpressionUUID->"488ba8a0-d79b-4ead-9453-500e10e2d9fd"]
}, Closed]],
Cell[CellGroupData[{
Cell[134450, 3276, 558, 8, 26, "Item",ExpressionUUID->"762a1bca-a8bd-4e9b-8617-875bc6b8ef30"],
Cell[135011, 3286, 1933, 48, 42, "Input",ExpressionUUID->"3eac5ea0-54ec-4caf-bf8c-26112a0e0e3d"],
Cell[136947, 3336, 2635, 64, 70, "Input",ExpressionUUID->"5aef75b0-d1ba-4723-9741-657c31ea690d"],
Cell[139585, 3402, 2612, 63, 82, "Input",ExpressionUUID->"04848050-d3b2-4293-bc42-788b4e5a45a9"],
Cell[142200, 3467, 2696, 65, 82, "Input",ExpressionUUID->"eefb7bce-e7d9-4d94-aa9d-593396cda3cb"],
Cell[144899, 3534, 2614, 63, 82, "Input",ExpressionUUID->"37a2ed87-6dda-4128-b9bb-23c87f7186b3"]
}, Closed]],
Cell[CellGroupData[{
Cell[147550, 3602, 584, 8, 26, "Item",ExpressionUUID->"653fc044-f839-4c56-9ffb-1786262cb480"],
Cell[148137, 3612, 5255, 100, 300, "Input",ExpressionUUID->"61176c7e-9a27-4189-a842-a11d3d34743b"],
Cell[153395, 3714, 1324, 32, 66, "Input",ExpressionUUID->"ac881e1a-4269-493e-9c3a-4d0149e0d8d7"],
Cell[154722, 3748, 5591, 118, 312, "Input",ExpressionUUID->"1912e4c5-84ab-417b-a14a-c592d7a21f17"],
Cell[160316, 3868, 431, 6, 21, "Input",ExpressionUUID->"a8d8a327-9857-421a-b20b-adab943c43ad"],
Cell[160750, 3876, 2376, 55, 195, "Input",ExpressionUUID->"e742f606-86e7-4cfc-90e8-59c87ffdd058"]
}, Closed]],
Cell[CellGroupData[{
Cell[163163, 3936, 455, 7, 26, "Item",ExpressionUUID->"ebe1e488-d580-449b-9c6e-8c0020cea522"],
Cell[163621, 3945, 4469, 83, 166, "Input",ExpressionUUID->"0c84d845-b8bf-4152-8c2d-2c063122e92b"],
Cell[168093, 4030, 3100, 53, 72, "Input",ExpressionUUID->"4bf7a5fe-6d8d-478d-8d55-3c9b242f32c6"],
Cell[171196, 4085, 2905, 50, 72, "Input",ExpressionUUID->"c51163fb-24e7-41f4-93ee-e24f93887173"],
Cell[174104, 4137, 1822, 30, 54, "Input",ExpressionUUID->"4909da7d-7cfa-4def-969e-a5d61f09ab4c"],
Cell[175929, 4169, 158, 3, 21, "Input",ExpressionUUID->"e7accbd7-9628-4b7e-a12f-e899d8eb056d"],
Cell[176090, 4174, 233, 4, 21, "Input",ExpressionUUID->"7e9c4583-6d1a-4269-9de2-3fb3999414b7"],
Cell[176326, 4180, 1612, 31, 49, "Input",ExpressionUUID->"a55e7c93-3afa-4167-aaba-a5463a85eb23"],
Cell[177941, 4213, 1644, 31, 49, "Input",ExpressionUUID->"57ad3e23-4d69-4581-8bbe-a93f44e80bdf"]
}, Closed]],
Cell[CellGroupData[{
Cell[179622, 4249, 403, 6, 26, "Item",ExpressionUUID->"573840a6-e49f-459c-b2d3-1e88af97349d"],
Cell[180028, 4257, 3380, 64, 131, "Input",ExpressionUUID->"144a08e4-048a-4500-80e4-7b07708ed016"],
Cell[183411, 4323, 3332, 63, 131, "Input",ExpressionUUID->"5d5e7c0f-83cd-4120-9a53-e15fd46348fc"],
Cell[186746, 4388, 1654, 25, 54, "Input",ExpressionUUID->"3aa45376-9efa-4cd7-a258-567e0230bf6e"],
Cell[188403, 4415, 2019, 39, 49, "Input",ExpressionUUID->"209d1b9a-d388-4db6-a065-bb11d10803d9"],
Cell[190425, 4456, 2150, 41, 49, "Input",ExpressionUUID->"95dd7c9f-fe3d-4220-82f3-b07616112bd4"],
Cell[192578, 4499, 600, 15, 27, "Input",ExpressionUUID->"a695d1b0-b982-4c75-9916-05d123e78cfa"]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[193239, 4521, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"7991e3c6-2a2e-436c-bd3b-7277a7936487",
 CellTags->"SlideShowHeader"],
Cell[193364, 4525, 1158, 44, 56, "Title",ExpressionUUID->"a3dbf095-2e4e-43d8-ac4e-3a46c975a0b4"],
Cell[CellGroupData[{
Cell[194547, 4573, 615, 10, 29, "Subsubsection",ExpressionUUID->"18d5fd4c-80c9-4ba2-8522-da1082b822a9"],
Cell[195165, 4585, 350, 8, 27, "Author",ExpressionUUID->"d9e7634e-9693-4330-a83c-b8801a7ef552"],
Cell[195518, 4595, 2442, 35, 20, "Text",ExpressionUUID->"010a6531-46fa-454d-a72f-680bdb7c6c07"]
}, Open  ]],
Cell[CellGroupData[{
Cell[197997, 4635, 584, 9, 37, "Section",ExpressionUUID->"0f30f8c8-5e42-4883-9554-b108a02b2fb5"],
Cell[CellGroupData[{
Cell[198606, 4648, 340, 5, 26, "Item",ExpressionUUID->"fff94742-29a0-4fcb-b47b-b15c1c147c8f"],
Cell[198949, 4655, 6998, 151, 412, "Input",ExpressionUUID->"76a750ab-f5bc-4005-a147-74250913711c"]
}, Closed]],
Cell[CellGroupData[{
Cell[205984, 4811, 403, 6, 26, "Item",ExpressionUUID->"641ee1f4-700a-4749-b13e-047dcb1a0d60"],
Cell[206390, 4819, 10754, 236, 364, "Input",ExpressionUUID->"1bcfbc94-b598-4332-85ca-8357cf9cf60e"],
Cell[217147, 5057, 760, 14, 31, "Input",ExpressionUUID->"24229b28-9525-4988-ac53-db6c9992311c"],
Cell[217910, 5073, 2383, 54, 61, "Input",ExpressionUUID->"a13ca159-15d9-4aed-8046-c7cbff30cbe5"],
Cell[220296, 5129, 2446, 55, 84, "Input",ExpressionUUID->"52d2a57e-462a-4507-99b3-8173cd9a1e6d"],
Cell[222745, 5186, 2525, 56, 61, "Input",ExpressionUUID->"9359ffbe-3151-49c7-b468-f27ea63319d4"],
Cell[225273, 5244, 1273, 31, 49, "Input",ExpressionUUID->"3db2281c-ff32-47ea-befe-5e1dbaf0e171"],
Cell[226549, 5277, 1286, 30, 54, "Input",ExpressionUUID->"20b53960-de09-4ed5-8279-4ddbcab40467",
 Evaluatable->False],
Cell[227838, 5309, 1393, 32, 54, "Input",ExpressionUUID->"8bd537e5-f856-4c1f-aff4-4e00f1687858",
 Evaluatable->False],
Cell[229234, 5343, 10751, 234, 364, "Input",ExpressionUUID->"b27b8d0d-4d64-4f4c-9650-ce3f22761c9f"],
Cell[239988, 5579, 475, 8, 21, "Input",ExpressionUUID->"88c39f3d-835a-4753-a0d3-fdeabdb24003"],
Cell[240466, 5589, 600, 15, 27, "Input",ExpressionUUID->"5197e9a7-5881-4c0f-b882-67e675746eb7"]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[241127, 5611, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"e72278da-6857-46fb-8a09-9ef849e01c3d",
 CellTags->"SlideShowHeader"],
Cell[241252, 5615, 1158, 44, 56, "Title",ExpressionUUID->"90645125-ad5a-46fa-a2dc-ec261346a695"],
Cell[CellGroupData[{
Cell[242435, 5663, 622, 10, 29, "Subsubsection",ExpressionUUID->"6c3a2412-11fd-4300-b6c1-8474afa41424"],
Cell[243060, 5675, 302, 7, 27, "Author",ExpressionUUID->"81734c6d-1f30-40fd-901e-b893cc384fab"],
Cell[243365, 5684, 2442, 35, 20, "Text",ExpressionUUID->"b6bd9583-eaa6-498b-8b16-5f568947a08a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[245844, 5724, 607, 9, 37, "Section",ExpressionUUID->"ad8fd1e7-d241-4a41-8456-36fea17a0b68"],
Cell[CellGroupData[{
Cell[246476, 5737, 460, 7, 26, "Item",ExpressionUUID->"59720ad9-ac1b-4054-8076-69120818b9cb"],
Cell[246939, 5746, 1330, 26, 31, "Input",ExpressionUUID->"1e616e3c-0baf-4cab-a980-def005601fb5"],
Cell[248272, 5774, 205, 3, 21, "Input",ExpressionUUID->"e201ac70-886e-44be-89d6-23e5a89e75ce"],
Cell[248480, 5779, 574, 15, 21, "Input",ExpressionUUID->"0b75d890-2d2c-47de-a4f8-c32c597b3c35"],
Cell[249057, 5796, 1020, 22, 31, "Input",ExpressionUUID->"8ef9986f-c031-4cf4-a485-f02ddf459505"],
Cell[250080, 5820, 733, 13, 31, "Input",ExpressionUUID->"d8e663f0-18b8-402c-9fae-570da335d5d9"],
Cell[250816, 5835, 1697, 31, 49, "Input",ExpressionUUID->"8cadcef1-b808-4cd8-abc0-427670770088"],
Cell[252516, 5868, 2070, 40, 49, "Input",ExpressionUUID->"e979b473-28ac-4904-bce5-5365f2da2c74",
 Evaluatable->False]
}, Closed]],
Cell[CellGroupData[{
Cell[254623, 5913, 502, 7, 26, "Item",ExpressionUUID->"948ebffe-6baa-433c-bb07-02dea7bca1e4"],
Cell[255128, 5922, 3181, 74, 89, "Input",ExpressionUUID->"0be6fc14-dc3d-44f9-a195-6813290ad111"],
Cell[258312, 5998, 200, 3, 21, "Input",ExpressionUUID->"c0b5c238-e564-4719-af69-dd07c9a473e9"],
Cell[258515, 6003, 6029, 128, 183, "Input",ExpressionUUID->"7ed978af-6303-431d-a449-bcdc9cdfdddc"],
Cell[264547, 6133, 867, 20, 37, "Input",ExpressionUUID->"13a14966-7ea3-492c-a115-8687d12b3944"]
}, Closed]],
Cell[CellGroupData[{
Cell[265451, 6158, 609, 9, 26, "Item",ExpressionUUID->"fb915392-4a8f-4be3-88a1-514ef769b5c2"],
Cell[266063, 6169, 6884, 160, 283, "Input",ExpressionUUID->"d2ac244f-8675-4fe9-9931-dc7fee63ce5e"],
Cell[272950, 6331, 187, 4, 21, "Input",ExpressionUUID->"8f42ede9-4f6a-4d59-ab9c-e23428d4cb2a"],
Cell[273140, 6337, 1009, 22, 49, "Input",ExpressionUUID->"63a5301c-12ff-44e9-8ec2-3bc2e75867ef"]
}, Closed]],
Cell[CellGroupData[{
Cell[274186, 6364, 582, 8, 26, "Item",ExpressionUUID->"b38b09b3-d708-4c49-84be-0501c2886720"],
Cell[274771, 6374, 3560, 68, 131, "Input",ExpressionUUID->"af67ed8d-8c1f-4415-b696-e6513f42b4c8"],
Cell[278334, 6444, 255, 5, 21, "Input",ExpressionUUID->"28015342-3e82-4f9a-bf29-6f340922c294"],
Cell[278592, 6451, 1339, 29, 49, "Input",ExpressionUUID->"0c09437d-a591-43b2-8ea4-b7832c0ceaad"],
Cell[279934, 6482, 1405, 30, 49, "Input",ExpressionUUID->"5a3fb929-46b0-48d1-b1a0-19e1328feb08"],
Cell[281342, 6514, 1381, 29, 49, "Input",ExpressionUUID->"ef9b0895-9d86-42aa-b5fe-a1b817595903"],
Cell[282726, 6545, 600, 15, 27, "Input",ExpressionUUID->"b8f56bf9-ee2f-47e2-ac06-d178ff9d9d48"]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[283387, 6567, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"f420562a-fe10-4de8-b676-8d452f6120f0",
 CellTags->"SlideShowHeader"],
Cell[283512, 6571, 1158, 44, 56, "Title",ExpressionUUID->"e84e290b-954f-4339-90ff-415c88e48174"],
Cell[CellGroupData[{
Cell[284695, 6619, 652, 11, 29, "Subsubsection",ExpressionUUID->"b9a784ca-26b0-4f00-93f9-6e76244261f3"],
Cell[285350, 6632, 302, 7, 27, "Author",ExpressionUUID->"faf0604b-e1aa-46e0-8ccb-0173a66c67ed"],
Cell[285655, 6641, 2416, 35, 20, "Text",ExpressionUUID->"34ecc7e1-8cf4-42eb-8cfe-d7beeb169530"]
}, Open  ]],
Cell[CellGroupData[{
Cell[288108, 6681, 922, 13, 37, "Section",ExpressionUUID->"1a4e2d86-46c6-4f64-98ed-9399b911a322"],
Cell[CellGroupData[{
Cell[289055, 6698, 509, 8, 26, "Item",ExpressionUUID->"ee03d451-5547-4df1-aa52-06c1a25a9f09"],
Cell[289567, 6708, 2013, 45, 84, "Input",ExpressionUUID->"f7b2c996-4309-468c-b905-7c036055b49b"],
Cell[291583, 6755, 5066, 114, 101, "Input",ExpressionUUID->"05940501-c9a4-481f-aab9-88ea1e03bcb1"],
Cell[296652, 6871, 472, 11, 27, "Input",ExpressionUUID->"21a5a193-9ee0-4653-a0fa-282e4207859a"],
Cell[297127, 6884, 5021, 113, 101, "Input",ExpressionUUID->"3a750f85-8534-4d55-ad4b-ec7d6e42c90b"],
Cell[302151, 6999, 450, 11, 27, "Input",ExpressionUUID->"a50a3f6c-b8a0-4407-a462-6de2669a6c90"],
Cell[302604, 7012, 5015, 114, 101, "Input",ExpressionUUID->"f4d042c6-7ec1-4aa6-952b-5b581319bd2f"],
Cell[307622, 7128, 446, 11, 27, "Input",ExpressionUUID->"7fb2b1c6-d219-4527-adf2-07ed45c2e64c"]
}, Closed]],
Cell[CellGroupData[{
Cell[308105, 7144, 403, 6, 26, "Item",ExpressionUUID->"44bf5138-13e7-4523-b045-6b777a586843"],
Cell[308511, 7152, 1988, 44, 96, "Input",ExpressionUUID->"80adacf6-d626-4327-81e8-b579942baf89"],
Cell[310502, 7198, 5409, 128, 143, "Input",ExpressionUUID->"49f7521b-147f-439a-8c6f-7d4e62ed92d6"],
Cell[CellGroupData[{
Cell[315936, 7330, 2431, 76, 49, "Input",ExpressionUUID->"73edda57-12cf-4028-8889-da7e21da7967",
 Evaluatable->False],
Cell[318370, 7408, 2631, 49, 66, "Output",ExpressionUUID->"f95ff6a6-9ddf-42e3-b978-ec7bba267ffa"],
Cell[321004, 7459, 4350, 93, 66, "Output",ExpressionUUID->"324052ca-2870-42a8-9810-4aec8735876d"],
Cell[325357, 7554, 4348, 93, 66, "Output",ExpressionUUID->"6db7fdb4-c0f3-428a-b83f-529a3d8daa31"]
}, Closed]],
Cell[329720, 7650, 1020, 23, 52, "Input",ExpressionUUID->"e1b7bd6b-8c8c-4c2e-b0b0-d91e807b7e0a"],
Cell[330743, 7675, 1046, 23, 54, "Input",ExpressionUUID->"29d25842-5f7a-4ea9-9d5f-4db1db3b5331"],
Cell[331792, 7700, 1096, 24, 54, "Input",ExpressionUUID->"f75f9361-4d18-4c1c-b599-6c54243cd61a"]
}, Closed]],
Cell[CellGroupData[{
Cell[332925, 7729, 614, 9, 26, "Item",ExpressionUUID->"772f0642-5c28-4547-b8c5-e7a5e841dfc1"],
Cell[333542, 7740, 4537, 100, 213, "Input",ExpressionUUID->"df3ad241-9e26-43cd-a6bd-a471704092d4"],
Cell[338082, 7842, 1269, 37, 37, "Input",ExpressionUUID->"15ce0ac5-91b0-4fa4-b194-77cbd33bfaef"],
Cell[339354, 7881, 3805, 61, 84, "Input",ExpressionUUID->"26596330-b8dc-4c7f-8f5c-796fb6fba17d"]
}, Closed]],
Cell[CellGroupData[{
Cell[343196, 7947, 555, 8, 26, "Item",ExpressionUUID->"9071d2a2-3671-40b0-95b3-a0de9171bc2b"],
Cell[343754, 7957, 2695, 58, 136, "Input",ExpressionUUID->"119be7bf-010f-43f8-9570-de623402a338"],
Cell[346452, 8017, 1086, 23, 37, "Input",ExpressionUUID->"45e99da3-6703-4382-96e8-206cc2509e8d"],
Cell[347541, 8042, 600, 15, 27, "Input",ExpressionUUID->"d1da0dac-fc54-4b39-b8d2-b748d2966eae"]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[348202, 8064, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"d64dbf9c-2d36-42f4-9578-6ca1fb980f90",
 CellTags->"SlideShowHeader"],
Cell[348327, 8068, 1131, 43, 56, "Title",ExpressionUUID->"99b30207-983d-40f9-af00-b7ae17e94161"],
Cell[CellGroupData[{
Cell[349483, 8115, 652, 11, 29, "Subsubsection",ExpressionUUID->"d731b3bc-93d1-4282-bdf3-ad3aa897f863"],
Cell[350138, 8128, 302, 7, 27, "Author",ExpressionUUID->"61356e34-9076-4bd9-9665-5b5ce0472155"],
Cell[350443, 8137, 2414, 35, 20, "Text",ExpressionUUID->"3c39e061-97e0-4277-9f86-1e6a255a54b5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[352894, 8177, 944, 13, 37, "Section",ExpressionUUID->"03567416-273a-4548-8007-857b10f3a7d2"],
Cell[CellGroupData[{
Cell[353863, 8194, 523, 7, 26, "Item",ExpressionUUID->"eeafac2f-7183-45f0-a756-e4c695d0aa49"],
Cell[354389, 8203, 3518, 91, 154, "Input",ExpressionUUID->"22c10b31-a404-4e8e-9037-ab30dad24813"],
Cell[357910, 8296, 4658, 133, 124, "Input",ExpressionUUID->"231e84cd-ac49-4791-ad08-a0094543b053"]
}, Closed]],
Cell[CellGroupData[{
Cell[362605, 8434, 657, 9, 26, "Item",ExpressionUUID->"8cbd8ad3-ab32-4758-b5d4-d4dac31f0b73"],
Cell[363265, 8445, 5819, 132, 236, "Input",ExpressionUUID->"d791e3ee-c44c-4e9a-afab-7d09b1b6f225"],
Cell[369087, 8579, 241, 4, 21, "Input",ExpressionUUID->"8b736c54-726a-454e-bacb-c2ed7005327d"]
}, Closed]],
Cell[CellGroupData[{
Cell[369365, 8588, 713, 12, 26, "Item",ExpressionUUID->"29dab72c-c8f2-4ecd-9aa2-ada41b882a2e"],
Cell[370081, 8602, 1329, 37, 42, "Input",ExpressionUUID->"65ab7372-e3fb-4cec-943a-99935c7cd49c"],
Cell[371413, 8641, 2464, 66, 42, "Input",ExpressionUUID->"1629e9eb-b54d-4cbb-af9c-9335687d8fab"],
Cell[373880, 8709, 2250, 59, 42, "Input",ExpressionUUID->"359d5c52-df16-41fc-8fcf-e2fb88df70dc"],
Cell[376133, 8770, 1775, 50, 42, "Input",ExpressionUUID->"667c1a74-41f3-4062-9f0d-8651c5aa39ce"],
Cell[377911, 8822, 1544, 44, 42, "Input",ExpressionUUID->"bf3de736-f45d-41f1-9998-d16c96b28e72"],
Cell[379458, 8868, 1296, 37, 42, "Input",ExpressionUUID->"bd7627df-ce23-4559-82d8-d2b9f4aeb690"]
}, Closed]],
Cell[CellGroupData[{
Cell[380791, 8910, 786, 11, 26, "Item",ExpressionUUID->"1cb3917f-8486-43b0-91a2-b0e1657b7557"],
Cell[381580, 8923, 976, 25, 49, "Input",ExpressionUUID->"0682b9f6-1c48-4f8d-abbe-6c4dac4efecb"],
Cell[382559, 8950, 4699, 113, 189, "Input",ExpressionUUID->"6b75d8cd-d746-4d86-9a63-c1486b47985a"],
Cell[387261, 9065, 4733, 111, 178, "Input",ExpressionUUID->"56072b77-f83b-4725-a06b-a302de2d1360"],
Cell[391997, 9178, 4244, 102, 166, "Input",ExpressionUUID->"857a0940-5862-4921-9131-a6e435d1c48f"],
Cell[396244, 9282, 3698, 92, 154, "Input",ExpressionUUID->"51a38bcd-c0b9-4bb0-8e39-aa55e0d75574"],
Cell[399945, 9376, 3289, 84, 143, "Input",ExpressionUUID->"1615a270-3902-487c-a0a8-5b85044705c3"],
Cell[403237, 9462, 3035, 78, 131, "Input",ExpressionUUID->"356cc450-03f9-443f-839e-89a08d6f430b"],
Cell[406275, 9542, 2724, 71, 119, "Input",ExpressionUUID->"c773bf21-b92c-4f56-b67f-ebb2f7555d73"],
Cell[409002, 9615, 2468, 65, 107, "Input",ExpressionUUID->"e43f3680-145a-4fea-8885-3fff1caa8c7c"],
Cell[411473, 9682, 177, 3, 21, "Input",ExpressionUUID->"15c08ad7-abf2-4306-a622-363d0cac96a4"],
Cell[411653, 9687, 2212, 59, 96, "Input",ExpressionUUID->"a11c99cc-1459-4cc5-80e8-634daf9e98c0"],
Cell[413868, 9748, 1956, 53, 84, "Input",ExpressionUUID->"25b44f6f-4c13-47b9-99ee-07e161f5461c"],
Cell[415827, 9803, 1653, 46, 72, "Input",ExpressionUUID->"96c0f606-5451-400c-b2c2-4289f0689389"],
Cell[417483, 9851, 1376, 39, 61, "Input",ExpressionUUID->"ff1dcc42-2384-4228-99c1-47edfb444c09"],
Cell[418862, 9892, 1838, 45, 107, "Input",ExpressionUUID->"3ef45ba6-0ab3-425b-aebc-16b86acc009c"],
Cell[420703, 9939, 1320, 28, 61, "Input",ExpressionUUID->"ef561dc2-170f-4d16-874d-19ffd6e6fc19"]
}, Closed]],
Cell[CellGroupData[{
Cell[422060, 9972, 555, 8, 26, "Item",ExpressionUUID->"73e2ba61-db47-4c9e-b6d7-057fa65790aa"],
Cell[422618, 9982, 3065, 66, 160, "Input",ExpressionUUID->"bbf1ad23-2eae-4181-a3e5-b9c4c8d141b9"],
Cell[425686, 10050, 1083, 23, 37, "Input",ExpressionUUID->"df6f5bac-7241-4dc0-a5b3-a246155e9aeb"]
}, Closed]],
Cell[CellGroupData[{
Cell[426806, 10078, 622, 9, 26, "Item",ExpressionUUID->"d12b616a-937b-41ca-83a3-17b1b8edb4ec"],
Cell[427431, 10089, 815, 19, 27, "Input",ExpressionUUID->"7b0827cc-3024-4e5b-97ea-398e964a8bad"],
Cell[428249, 10110, 1624, 42, 49, "Input",ExpressionUUID->"84a31bf6-dfab-4965-9441-7d8306b954b6"],
Cell[429876, 10154, 690, 11, 54, "Input",ExpressionUUID->"4b23fc02-82b2-4d20-a99d-6be37d0ce34e"],
Cell[430569, 10167, 484, 10, 21, "Input",ExpressionUUID->"42ef1513-8fc1-4635-a101-cf06f2f7ecb8"],
Cell[431056, 10179, 1249, 31, 31, "Input",ExpressionUUID->"5279dfd6-07e0-4775-b577-df73c3dd61ca"],
Cell[432308, 10212, 600, 15, 27, "Input",ExpressionUUID->"e2f9dfcd-d223-4966-b141-487894c4d409"]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[432969, 10234, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"640f74e4-2cca-4c4e-8087-3d9eb2482a89",
 CellTags->"SlideShowHeader"],
Cell[433094, 10238, 1131, 43, 56, "Title",ExpressionUUID->"b2555532-ddd1-4688-9ead-a28059fa1ddf"],
Cell[CellGroupData[{
Cell[434250, 10285, 652, 11, 29, "Subsubsection",ExpressionUUID->"c05f90da-40ee-45f2-b5d5-3659d4d91aca"],
Cell[434905, 10298, 302, 7, 27, "Author",ExpressionUUID->"6f5c6c6e-45d8-44e7-ae30-bf917866e112"],
Cell[435210, 10307, 2416, 35, 20, "Text",ExpressionUUID->"0832d019-7163-44b8-b606-c4b04b1db580"]
}, Open  ]],
Cell[CellGroupData[{
Cell[437663, 10347, 1029, 14, 37, "Section",ExpressionUUID->"c7c19706-19cd-466a-8390-635cd76acd6a"],
Cell[CellGroupData[{
Cell[438717, 10365, 894, 12, 26, "Item",ExpressionUUID->"e2be062b-265e-4097-ab30-418a86a7da1f"],
Cell[439614, 10379, 895, 25, 42, "Input",ExpressionUUID->"3ca03f96-3f5a-4d0c-89f2-91358da44463"]
}, Closed]],
Cell[CellGroupData[{
Cell[440546, 10409, 594, 13, 26, "Item",ExpressionUUID->"30b0aa23-7534-4d79-99d3-1712fb9ab84b"],
Cell[441143, 10424, 891, 17, 66, "Input",ExpressionUUID->"75754cb2-584c-407e-b04e-c41fd72ef992"],
Cell[442037, 10443, 506, 11, 21, "Input",ExpressionUUID->"24da98b1-0c11-4ec3-8a3e-40d34c940efd"]
}, Closed]],
Cell[CellGroupData[{
Cell[442580, 10459, 1047, 14, 26, "Item",ExpressionUUID->"37db18d1-f520-4b79-87eb-c40eb9edf7a8"],
Cell[443630, 10475, 2797, 64, 124, "Input",ExpressionUUID->"6980b47e-c29f-4072-b563-8b56d07e01e8"],
Cell[446430, 10541, 1151, 24, 21, "Input",ExpressionUUID->"8ef0d508-c378-40fb-ba20-d4588d987735"]
}, Closed]],
Cell[CellGroupData[{
Cell[447618, 10570, 798, 11, 26, "Item",ExpressionUUID->"4756dde6-abd7-4dcc-9a1a-b0e80e2a5e57"],
Cell[448419, 10583, 2078, 37, 37, "Input",ExpressionUUID->"fc555e57-6d7f-422c-a881-a79f7f5d5f77"],
Cell[450500, 10622, 742, 16, 21, "Input",ExpressionUUID->"94f23df6-a5f5-49df-8590-1b919ecc1100"],
Cell[451245, 10640, 917, 17, 21, "Input",ExpressionUUID->"283ab5f1-4121-4ae3-87bb-607f81693533"],
Cell[452165, 10659, 557, 12, 21, "Input",ExpressionUUID->"63c57731-35e1-4cb8-af25-d7b2ce31aa0c"]
}, Closed]],
Cell[CellGroupData[{
Cell[452759, 10676, 1117, 17, 26, "Item",ExpressionUUID->"c9513d84-0cd6-4918-9662-cf071c017326"],
Cell[453879, 10695, 1193, 25, 54, "Input",ExpressionUUID->"0f539edf-2c03-4c36-a9a8-05257f536331"],
Cell[455075, 10722, 818, 19, 54, "Input",ExpressionUUID->"5ce2eab5-3288-4ddc-a5a0-49bc7896a3cc"],
Cell[455896, 10743, 1040, 23, 54, "Input",ExpressionUUID->"1b3d8ff9-5d3d-4028-8d8e-604cd80e2e08"],
Cell[456939, 10768, 919, 20, 54, "Input",ExpressionUUID->"5996059f-53e4-4f40-a7dd-6018ae5f0f91"],
Cell[457861, 10790, 1093, 24, 54, "Input",ExpressionUUID->"25192c9a-9f60-4df0-ac3a-829dd81bd774"],
Cell[458957, 10816, 965, 21, 54, "Input",ExpressionUUID->"0819c9df-9f54-4185-8739-b74d9b5a135b"],
Cell[459925, 10839, 938, 23, 78, "Input",ExpressionUUID->"d4664fc8-c4c9-4da8-9232-96db1f803933"]
}, Closed]],
Cell[CellGroupData[{
Cell[460900, 10867, 927, 15, 26, "Item",ExpressionUUID->"27b11ce1-9dc3-4363-9014-ffc63c8335fa"],
Cell[461830, 10884, 4855, 102, 101, "Input",ExpressionUUID->"9b215eb0-a05c-465c-b5f2-5e9ac0628809"],
Cell[466688, 10988, 4048, 80, 148, "Input",ExpressionUUID->"edb90a2e-125c-4a55-a125-6e0eb8a10723"],
Cell[470739, 11070, 820, 18, 27, "Input",ExpressionUUID->"60e5b6d5-ccf5-4c6a-80d1-62c5c2e4f5ac"],
Cell[471562, 11090, 3089, 71, 66, "Input",ExpressionUUID->"8f0c2c8c-b3c4-4222-b020-cd8189dbccae"]
}, Closed]],
Cell[CellGroupData[{
Cell[474688, 11166, 1309, 18, 26, "Item",ExpressionUUID->"7ec6da93-13d8-49dc-9ba6-7bb51febcad9"],
Cell[476000, 11186, 345, 9, 27, "Input",ExpressionUUID->"edc98773-00f7-4f9f-ab0f-a418297e51aa"],
Cell[476348, 11197, 1579, 33, 49, "Input",ExpressionUUID->"19bef7f7-6a3c-4471-9f5e-1f9566dfeb70"],
Cell[477930, 11232, 1639, 34, 78, "Input",ExpressionUUID->"1fb435fd-b02d-476d-bcb7-9fd42b245aa8"],
Cell[479572, 11268, 600, 15, 27, "Input",ExpressionUUID->"931b3617-b02f-43f8-ac1b-593663867a49"]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[480233, 11290, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"389e6fea-a668-4109-9ebd-532ef64f49ba",
 CellTags->"SlideShowHeader"],
Cell[480358, 11294, 1131, 43, 56, "Title",ExpressionUUID->"604af576-a5b1-4708-b3da-9899efbe5130"],
Cell[CellGroupData[{
Cell[481514, 11341, 652, 11, 29, "Subsubsection",ExpressionUUID->"38bcb865-9d03-4f76-b005-ab077cd52021"],
Cell[482169, 11354, 302, 7, 27, "Author",ExpressionUUID->"bfb8b5fe-d5c5-4d28-a99b-183aa615e448"],
Cell[482474, 11363, 2416, 35, 20, "Text",ExpressionUUID->"08821490-d37a-4130-b9a8-77fd41ff5e6f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[484927, 11403, 1028, 15, 37, "Section",ExpressionUUID->"9893d1d9-fe65-4da0-ac6a-659c5d053e6d"],
Cell[CellGroupData[{
Cell[485980, 11422, 919, 13, 26, "Item",ExpressionUUID->"f525084f-1c45-4c82-830e-ed5ad6ae3e8a"],
Cell[486902, 11437, 3032, 61, 78, "Input",ExpressionUUID->"fb709b92-7620-4964-8505-19e87e200974"]
}, Closed]],
Cell[CellGroupData[{
Cell[489971, 11503, 1067, 17, 26, "Item",ExpressionUUID->"369b4b9b-bdc0-4f08-88eb-fcf09e11f783"],
Cell[491041, 11522, 8321, 201, 347, "Input",ExpressionUUID->"eeb6c5e9-1a65-4101-9748-31e3ebd1e05b"],
Cell[499365, 11725, 1477, 34, 113, "Input",ExpressionUUID->"881aeef7-ef13-4ce3-a464-d250f7b022ca"],
Cell[500845, 11761, 3039, 72, 101, "Input",ExpressionUUID->"b13d2d4f-d093-4065-b8a5-eb8d535b85ef"],
Cell[503887, 11835, 1640, 30, 101, "Input",ExpressionUUID->"a7428f3e-d21a-4c55-8a6d-d0f3d6c7bc40"],
Cell[505530, 11867, 1390, 30, 101, "Input",ExpressionUUID->"ad4654bb-c97d-4fa8-b2df-91432526f743"],
Cell[506923, 11899, 868, 20, 27, "Input",ExpressionUUID->"dd6ba813-fda7-414c-a519-34ea3c55244e"]
}, Closed]],
Cell[CellGroupData[{
Cell[507828, 11924, 692, 10, 26, "Item",ExpressionUUID->"d5b6ea98-d84d-4c33-957a-5c48d20427a8"],
Cell[508523, 11936, 345, 9, 27, "Input",ExpressionUUID->"c1c2e09a-2666-4c92-908f-c392459fbf0a"],
Cell[508871, 11947, 1639, 32, 31, "Input",ExpressionUUID->"eea66387-1c15-4b60-944c-f8ecd0f3ae09"],
Cell[510513, 11981, 3272, 67, 84, "Input",ExpressionUUID->"49cc2f16-2248-490b-8db4-551d9a444eef"],
Cell[513788, 12050, 1947, 40, 61, "Input",ExpressionUUID->"8d0f58a9-1bb7-4922-b5fe-da97771c3efc"],
Cell[515738, 12092, 2692, 55, 57, "Input",ExpressionUUID->"e4b8b4c5-09a2-4095-8558-2943c76558f4"]
}, Closed]],
Cell[CellGroupData[{
Cell[518467, 12152, 922, 15, 26, "Item",ExpressionUUID->"fefaa564-f845-4240-ae67-503a15585fd0"],
Cell[519392, 12169, 5676, 144, 277, "Input",ExpressionUUID->"8bfe20c8-ff8c-41d9-adb8-2a1d059df55f"],
Cell[525071, 12315, 3121, 72, 101, "Input",ExpressionUUID->"a24e300c-fd3f-4b85-8a89-b1153516c1cf"],
Cell[528195, 12389, 1723, 31, 101, "Input",ExpressionUUID->"0033136c-aeaf-48c7-858c-59490a24c373"],
Cell[529921, 12422, 1422, 30, 101, "Input",ExpressionUUID->"4e92d8ae-4659-488f-92b3-fc95a0d34c31"],
Cell[531346, 12454, 923, 21, 27, "Input",ExpressionUUID->"c9295711-fb9e-4941-ab3f-104ba2bd29c3"],
Cell[532272, 12477, 3507, 67, 72, "Input",ExpressionUUID->"b60f051a-4721-4c07-b4ad-4b414a68d9b2"],
Cell[535782, 12546, 881, 23, 42, "Input",ExpressionUUID->"323b12fc-3df5-491b-bd69-bbd7d888984a"],
Cell[536666, 12571, 2622, 71, 115, "Input",ExpressionUUID->"7a60faaa-1d62-4303-91bd-8e9b75ec0493"],
Cell[539291, 12644, 2919, 79, 168, "Input",ExpressionUUID->"f8389203-f7ea-4c3c-9502-d12d53e1953b"],
Cell[542213, 12725, 3384, 91, 142, "Input",ExpressionUUID->"97b09600-dfbd-428a-abc6-88509c3af5cc"],
Cell[545600, 12818, 3813, 98, 195, "Input",ExpressionUUID->"685c9cb6-7ce8-4238-b0d7-cf88d30de166"],
Cell[549416, 12918, 1260, 28, 101, "Input",ExpressionUUID->"64004543-9011-417d-b2f1-add8a265fa35"],
Cell[550679, 12948, 1380, 34, 96, "Input",ExpressionUUID->"2916536d-02cc-49c1-85ad-8a3a48349e3d"],
Cell[552062, 12984, 248, 5, 21, "Input",ExpressionUUID->"ad48d202-fee5-4051-8a04-028f085cdb7f"],
Cell[552313, 12991, 1289, 29, 37, "Input",ExpressionUUID->"6796515f-4b64-4709-b130-69b2c869d596"],
Cell[553605, 13022, 1296, 29, 37, "Input",ExpressionUUID->"3d09d87c-5b87-427b-ae4e-8406244e6051"]
}, Closed]],
Cell[CellGroupData[{
Cell[554938, 13056, 653, 11, 26, "Item",ExpressionUUID->"4d329d01-9914-4e41-8df4-ee196db7e0f6"],
Cell[555594, 13069, 642, 17, 27, "Input",ExpressionUUID->"3380aa82-d592-44d2-bb56-70a5fdfbaf4d"],
Cell[556239, 13088, 1072, 20, 42, "Input",ExpressionUUID->"9356fcc8-0dd1-4ad3-8e5d-b1b9a317ea02"],
Cell[557314, 13110, 521, 13, 27, "Input",ExpressionUUID->"6e23b688-33a5-4b12-91c2-68b04c17e58f"],
Cell[557838, 13125, 599, 13, 42, "Input",ExpressionUUID->"d39294f3-7c8b-4af0-ad0d-af467153fc69"],
Cell[558440, 13140, 538, 13, 27, "Input",ExpressionUUID->"31156853-ecfb-4732-a7d3-18ab3902175f"]
}, Closed]],
Cell[CellGroupData[{
Cell[559015, 13158, 680, 12, 26, "Item",ExpressionUUID->"d17c7a34-a5ac-46fb-a004-60eea0e42bf2"],
Cell[559698, 13172, 1312, 31, 42, "Input",ExpressionUUID->"28ad3447-ef84-44fc-a9b7-5be6837aa098"],
Cell[561013, 13205, 4764, 129, 148, "Input",ExpressionUUID->"2baa2a5e-f6b7-4630-9265-ab5b5e97d538"],
Cell[565780, 13336, 574, 15, 21, "Input",ExpressionUUID->"2cc2d088-01b0-4c0d-b8fa-d847a1117f44"],
Cell[566357, 13353, 790, 18, 31, "Input",ExpressionUUID->"79f1b474-22a5-4050-8127-d8b935e356c3"],
Cell[567150, 13373, 574, 13, 27, "Input",ExpressionUUID->"99a6a901-17aa-4f04-8c09-ddb61daded2d"],
Cell[567727, 13388, 797, 18, 31, "Input",ExpressionUUID->"cc70d7d1-78df-42e8-b3b9-11a85332dc78"],
Cell[568527, 13408, 572, 13, 27, "Input",ExpressionUUID->"c387361f-e78c-4170-ac29-cf9a06edd084"],
Cell[569102, 13423, 748, 17, 31, "Input",ExpressionUUID->"45f89a79-bfad-4ac0-8c39-d41a64a85e88"],
Cell[569853, 13442, 625, 14, 27, "Input",ExpressionUUID->"0e2d99bd-c50a-4017-b1ea-1b324fb0f08c"],
Cell[570481, 13458, 741, 17, 31, "Input",ExpressionUUID->"5ba75f16-212b-4e2f-9492-a5100043ad71"],
Cell[571225, 13477, 626, 14, 27, "Input",ExpressionUUID->"ed6f3dac-9a38-4fcf-9944-d55994764bc6"]
}, Closed]],
Cell[CellGroupData[{
Cell[571888, 13496, 753, 12, 26, "Item",ExpressionUUID->"30be1516-9b42-4739-a1ec-b9c10ea1447a"],
Cell[572644, 13510, 3805, 74, 107, "Input",ExpressionUUID->"53a16e1f-591b-416c-87f3-0583491b0b5f"],
Cell[576452, 13586, 287, 6, 21, "Input",ExpressionUUID->"292e0e67-d440-43c8-b5ae-13f7dcdfc651"],
Cell[576742, 13594, 2297, 56, 72, "Input",ExpressionUUID->"e4b9c017-b8d4-4598-bfd5-f73b3e8f700a"]
}, Closed]],
Cell[CellGroupData[{
Cell[579076, 13655, 756, 12, 26, "Item",ExpressionUUID->"789a03b3-77e3-4a72-89c2-8d47b8612c65"],
Cell[579835, 13669, 2079, 48, 119, "Input",ExpressionUUID->"74a1cbba-c0a3-4b6e-b9c3-649c507d6589"],
Cell[581917, 13719, 285, 6, 21, "Input",ExpressionUUID->"e28da3c1-f84f-4022-88f6-212e09ab81fc"],
Cell[582205, 13727, 5375, 128, 166, "Input",ExpressionUUID->"e9029ccd-21e1-4df6-b472-338dcffb0c56"],
Cell[587583, 13857, 600, 15, 27, "Input",ExpressionUUID->"1bf7410c-7fe5-447e-ae46-29bfb08c35d4"]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[588244, 13879, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"3abdcbb3-7402-4490-89b9-6abf9bac47aa",
 CellTags->"SlideShowHeader"],
Cell[588369, 13883, 1131, 43, 56, "Title",ExpressionUUID->"96a2b838-395d-4b27-8667-e502e40f8717"],
Cell[CellGroupData[{
Cell[589525, 13930, 663, 11, 29, "Subsubsection",ExpressionUUID->"0c72c989-f8ce-41c1-a7d8-9e47f2bfb098"],
Cell[590191, 13943, 302, 7, 27, "Author",ExpressionUUID->"1c2b9d3e-3dd8-48c1-a394-5c4989460dd6"],
Cell[590496, 13952, 2416, 35, 20, "Text",ExpressionUUID->"e762dbd1-019b-4dcf-9fb8-1bef191c9f78"]
}, Open  ]],
Cell[CellGroupData[{
Cell[592949, 13992, 1159, 17, 37, "Section",ExpressionUUID->"19aa3262-05b9-4e7a-8fd9-287de4e7090a"],
Cell[CellGroupData[{
Cell[594133, 14013, 742, 10, 26, "Item",ExpressionUUID->"853c7531-6ba2-4e48-9489-41b883c19e6a"],
Cell[594878, 14025, 848, 22, 42, "Input",ExpressionUUID->"9febd7ae-fbe6-4976-997a-a5a8324c9502"],
Cell[595729, 14049, 2706, 55, 136, "Input",ExpressionUUID->"a3c24a23-51f0-4938-9f16-66252da188c8"],
Cell[598438, 14106, 528, 13, 21, "Input",ExpressionUUID->"301e0b64-4b00-4c1d-ab65-263bef98ca33"],
Cell[598969, 14121, 537, 11, 21, "Input",ExpressionUUID->"8554e45b-8e9b-4c3b-b34d-3c1a7fba19c1"],
Cell[599509, 14134, 262, 5, 21, "Input",ExpressionUUID->"cd2b905b-c36f-4398-a447-bba8ab051a56"],
Cell[599774, 14141, 553, 14, 21, "Input",ExpressionUUID->"97b02b6f-d8c2-4e35-9a6a-2730d06199bc"],
Cell[600330, 14157, 553, 13, 21, "Input",ExpressionUUID->"3e6791eb-123a-4c73-90e6-37c0e3cdf7f8"],
Cell[600886, 14172, 2238, 58, 124, "Input",ExpressionUUID->"c2306212-c658-42ec-9315-8da1a3d91921"]
}, Closed]],
Cell[CellGroupData[{
Cell[603161, 14235, 737, 10, 26, "Item",ExpressionUUID->"5593f3a7-93ce-4df0-9c19-7dc7db6aaa15"],
Cell[603901, 14247, 560, 14, 28, "Input",ExpressionUUID->"2d0f8317-d22d-43f6-bdc1-deb8ba4e8b0c"],
Cell[604464, 14263, 233, 4, 16, "Input",ExpressionUUID->"7f7d57a0-718a-40c4-83a6-3a837a2fe140"],
Cell[604700, 14269, 230, 4, 16, "Input",ExpressionUUID->"f8f331b2-58b5-4372-8487-d52ebb965327"],
Cell[604933, 14275, 460, 10, 16, "Input",ExpressionUUID->"e4e9107d-e5f7-4312-8ee9-76224b6a15cd"]
}, Closed]],
Cell[CellGroupData[{
Cell[605430, 14290, 504, 7, 26, "Item",ExpressionUUID->"e72dd7ad-c05d-4bfb-9f6f-148d732fdf5f"],
Cell[605937, 14299, 2388, 48, 52, "Input",ExpressionUUID->"7cce7111-6e02-4167-a15c-5ee0eec60410"],
Cell[608328, 14349, 1064, 29, 28, "Input",ExpressionUUID->"643366ee-f51b-4446-bde3-536ef55d27bd"],
Cell[609395, 14380, 2960, 69, 122, "Input",ExpressionUUID->"5a02d923-2b7b-45a6-b404-dee4c6d13d90"],
Cell[612358, 14451, 3297, 77, 158, "Input",ExpressionUUID->"16d73568-6c80-4187-8a3f-f8dc2a5fce19"],
Cell[615658, 14530, 497, 12, 28, "Input",ExpressionUUID->"95d0b2fb-5cfb-4e43-94c7-97f3783cfc57"],
Cell[616158, 14544, 578, 14, 28, "Input",ExpressionUUID->"d812630b-ffb3-4c5f-8ca1-eba05160f651"],
Cell[616739, 14560, 3112, 71, 146, "Input",ExpressionUUID->"680a9b46-d01b-4068-95c8-834bd11b88e6"]
}, Closed]],
Cell[CellGroupData[{
Cell[619888, 14636, 609, 9, 26, "Item",ExpressionUUID->"97ac42de-8dc9-43e4-8fab-c18407a9d232"],
Cell[620500, 14647, 4725, 122, 192, "Input",ExpressionUUID->"13704b47-d2e8-4a48-9b2e-7279ce7ab020"]
}, Closed]],
Cell[CellGroupData[{
Cell[625262, 14774, 653, 9, 26, "Item",ExpressionUUID->"472cc0c3-e4ff-49f4-b236-0c015abda90c"],
Cell[625918, 14785, 5253, 96, 143, "Input",ExpressionUUID->"b1280227-a492-457e-a4a2-d62c485b28c3"],
Cell[631174, 14883, 671, 13, 31, "Input",ExpressionUUID->"165e9e81-e59a-4f01-bcab-8e2f89c77e25"],
Cell[631848, 14898, 5001, 93, 166, "Input",ExpressionUUID->"3d275a91-54b9-4079-90c0-a51315e44832"],
Cell[636852, 14993, 3346, 54, 61, "Input",ExpressionUUID->"054de5c9-205e-4969-9044-6c4c416a0f62"],
Cell[640201, 15049, 3223, 52, 61, "Input",ExpressionUUID->"b9521312-4409-4b36-9464-49d6297e4555"],
Cell[643427, 15103, 2636, 48, 124, "Input",ExpressionUUID->"14b58dd6-cee2-4e72-97d5-6f930e6784f9"],
Cell[646066, 15153, 4013, 86, 143, "Input",ExpressionUUID->"ee7d346c-153f-473f-8f07-b58326dc94b4"],
Cell[650082, 15241, 5385, 101, 154, "Input",ExpressionUUID->"803f46f1-a3c0-4751-87c0-c066b4d7c977"],
Cell[655470, 15344, 1257, 29, 84, "Input",ExpressionUUID->"a423d1de-1aaa-42fc-97fa-6c5a09c7bbbb"],
Cell[656730, 15375, 1069, 20, 54, "Input",ExpressionUUID->"63e44c6b-9711-4fef-85e0-ffb012fb8011"]
}, Closed]],
Cell[CellGroupData[{
Cell[657836, 15400, 683, 9, 26, "Item",ExpressionUUID->"ff037add-0434-47c6-ae33-3b73d4f52fab"],
Cell[658522, 15411, 1138, 29, 37, "Input",ExpressionUUID->"92db2219-683b-45ca-9633-ed3428a541f3"],
Cell[659663, 15442, 3483, 73, 124, "Input",ExpressionUUID->"9ae10bde-cccc-434a-a264-f4c787cb876e"],
Cell[663149, 15517, 3794, 91, 171, "Input",ExpressionUUID->"1569bd2a-82d3-4717-9377-811cab8cdd49"],
Cell[666946, 15610, 1138, 27, 49, "Input",ExpressionUUID->"27f1446a-94da-4c58-9656-e621823b47ce"],
Cell[668087, 15639, 3156, 69, 124, "Input",ExpressionUUID->"f58a7d72-8472-4ec5-b3e3-b8d94634503d"],
Cell[671246, 15710, 3846, 92, 171, "Input",ExpressionUUID->"933eeaa1-25f9-4937-95fd-48edd95d2367"],
Cell[675095, 15804, 1188, 28, 49, "Input",ExpressionUUID->"8c630829-02b0-436d-a896-37faa1f1a592"],
Cell[676286, 15834, 3238, 70, 124, "Input",ExpressionUUID->"d343b3ee-7f18-4661-a99f-a0a70148e25a"],
Cell[679527, 15906, 3884, 92, 171, "Input",ExpressionUUID->"f0fb369e-026f-4c03-9f96-bcdcca6a5549"],
Cell[683414, 16000, 1233, 29, 49, "Input",ExpressionUUID->"757303ce-d630-44f2-a308-1cec1ef82fa7"],
Cell[684650, 16031, 3191, 70, 124, "Input",ExpressionUUID->"4f7e8729-0848-4251-9823-7b484467f03e"],
Cell[687844, 16103, 3936, 93, 171, "Input",ExpressionUUID->"b3c7d017-7f33-40b2-904e-a79ecc5c30a7"],
Cell[691783, 16198, 1280, 29, 49, "Input",ExpressionUUID->"4b92e836-6239-4e10-9261-b414d612a0ff"],
Cell[693066, 16229, 3435, 72, 124, "Input",ExpressionUUID->"bf771e34-06a0-4e3b-a60f-3fc3bbbe375a"],
Cell[696504, 16303, 3920, 92, 171, "Input",ExpressionUUID->"ec8c811a-ac57-4211-bac8-19e10bf65eae"],
Cell[700427, 16397, 1300, 28, 49, "Input",ExpressionUUID->"f8fc2a41-1cf7-43ce-a8be-cc848c8a602f"],
Cell[701730, 16427, 3421, 76, 124, "Input",ExpressionUUID->"7bcf9982-4aaf-4b21-8de2-bf526b02bb82"],
Cell[705154, 16505, 4189, 98, 171, "Input",ExpressionUUID->"239f8bde-3565-4d67-8f18-48468215a59b"],
Cell[709346, 16605, 1423, 31, 49, "Input",ExpressionUUID->"752acef3-3755-44f5-ac1e-677367741c1f"]
}, Closed]],
Cell[CellGroupData[{
Cell[710806, 16641, 653, 9, 26, "Item",ExpressionUUID->"2c1272cc-d93e-4390-98a6-0f783c1f37ce"],
Cell[711462, 16652, 3913, 81, 189, "Input",ExpressionUUID->"8a1fd694-3881-4620-88cd-f32a386317e5"],
Cell[715378, 16735, 7284, 133, 154, "Input",ExpressionUUID->"88ed38e4-a2f3-42ba-9358-b84143231a47"],
Cell[722665, 16870, 1244, 32, 31, "Input",ExpressionUUID->"5b357234-45c9-4966-9285-7bda57dc2346"],
Cell[723912, 16904, 4067, 84, 189, "Input",ExpressionUUID->"eb3b5678-c028-4e02-9ef2-4cc5bde65a05"],
Cell[727982, 16990, 7316, 133, 143, "Input",ExpressionUUID->"b6627fbe-87fe-4f11-ad84-81728aff3f0f"],
Cell[735301, 17125, 1323, 33, 31, "Input",ExpressionUUID->"3eea023a-5936-4851-aaed-35ea272d1912"],
Cell[736627, 17160, 2826, 65, 119, "Input",ExpressionUUID->"dce53588-8c33-4926-9481-c714342aedff"],
Cell[739456, 17227, 2839, 65, 119, "Input",ExpressionUUID->"c957621d-f50d-4f6d-96e2-3057a728c93e"]
}, Closed]],
Cell[CellGroupData[{
Cell[742332, 17297, 403, 6, 26, "Item",ExpressionUUID->"0ce1d139-b38a-4ecc-887c-4b39358f0c82"],
Cell[742738, 17305, 2771, 64, 119, "Input",ExpressionUUID->"e6e91374-5e7f-49b0-aba3-711b6009143a"],
Cell[745512, 17371, 2908, 66, 119, "Input",ExpressionUUID->"39dac4d6-6eda-4cf1-ae18-f1b7ab5e81cd"],
Cell[748423, 17439, 529, 15, 21, "Input",ExpressionUUID->"6f70c87f-85e5-4b0d-a0d6-59b04d69b0f5"],
Cell[748955, 17456, 725, 17, 21, "Input",ExpressionUUID->"c28c8c02-0c35-4c20-937d-c01e6d05ec40"],
Cell[749683, 17475, 600, 15, 27, "Input",ExpressionUUID->"96af34a7-ae5c-43c5-bd78-5ac2f953f5fd"]
}, Closed]]
}, Open  ]]
}, Open  ]]
}
]
*)